6 |
use Net::TFTPd 0.03 qw(%OPCODES); |
use Net::TFTPd 0.03 qw(%OPCODES); |
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
|
|
9 |
our $dir = '/home/dpavlin/llin/pxelator/tftp'; |
use server; |
10 |
|
|
11 |
|
our $dir = "$server::base_dir/tftp"; |
12 |
|
|
13 |
sub path { |
sub path { |
14 |
my $glob = shift; |
my $glob = shift; |
64 |
Timeout => 3600, |
Timeout => 3600, |
65 |
CallBack => \&transfer_status, |
CallBack => \&transfer_status, |
66 |
# LocalAddr => $server::ip, |
# LocalAddr => $server::ip, |
67 |
|
LocalAddr => '0.0.0.0', |
68 |
# BlkSize => 8192, |
# BlkSize => 8192, |
69 |
# BlkSize => 512, |
# BlkSize => 512, |
70 |
BlkSize => 1456, # IBM GE seems to be picky |
BlkSize => 1456, # IBM GE seems to be picky |