--- lib/PXElator/tftpd.pm 2009/07/29 22:25:42 46 +++ lib/PXElator/tftpd.pm 2009/07/29 23:03:00 47 @@ -6,7 +6,9 @@ use Net::TFTPd 0.03 qw(%OPCODES); use Data::Dump qw/dump/; -our $dir = '/home/dpavlin/llin/pxelator/tftp'; +use server; + +our $dir = "$server::base_dir/tftp"; sub path { my $glob = shift;