create $server::base_dir

diff --git a/lib/PXElator/server.pm b/lib/PXElator/server.pm
index a8ba059..05fe4e6 100644 (file)
--- a/lib/PXElator/server.pm
+++ b/lib/PXElator/server.pm
@@ -4,4 +4,6 @@ our $ip = '172.16.10.1';
 
 our ( $ip_from, $ip_to ) = ( 10, 100 );
 
+our $base_dir = '/home/dpavlin/llin/pxelator';
+
 warn "loaded";

diff --git a/lib/PXElator/tftpd.pm b/lib/PXElator/tftpd.pm
index 4f58b18..beda86a 100644 (file)
--- a/lib/PXElator/tftpd.pm
+++ b/lib/PXElator/tftpd.pm
@@ -6,7 +6,9 @@ use strict;
 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;