--- lib/PXElator/tftpd.pm	2009/07/29 22:04:58	45
+++ lib/PXElator/tftpd.pm	2009/07/30 21:31:30	67
@@ -6,7 +6,11 @@
 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;
@@ -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) {