--- lib/PXElator/tftpd.pm	2009/07/29 22:04:58	45
+++ lib/PXElator/tftpd.pm	2009/07/30 22:43:48	68
@@ -6,11 +6,15 @@
 use Net::TFTPd 0.03 qw(%OPCODES);
 use Data::Dump qw/dump/;
 
-our $dir  = '/home/dpavlin/llin/pxelator/tftp';
+use server;
+
+our $debug = server::debug;
+
+our $dir  = "$server::base_dir/tftp";
 
 sub path {
 	my $glob = shift;
-	my $path = glob("$dir/$glob");
+	my $path = (glob("$dir/$glob"))[0];
 	die "can't find anything for $dir/$glob" unless $path;
 warn $path;
 	$path =~ s{^$dir}{};
@@ -62,13 +66,14 @@
 		Timeout => 3600, 
 		CallBack => \&transfer_status,
 #		LocalAddr => $server::ip,
+		LocalAddr => '0.0.0.0',
 #		BlkSize => 8192,
 #		BlkSize => 512,
 		BlkSize => 1456,	# IBM GE seems to be picky
 		Debug => 99,
 	) || die Net::TFTPd->error;
 
-	warn 'listener: ',dump( $listener );
+	warn 'listener: ',dump( $listener ) if $debug;
 
 	while(1) {