8 |
|
|
9 |
use server; |
use server; |
10 |
|
|
11 |
|
our $debug = server::debug; |
12 |
|
|
13 |
our $dir = "$server::base_dir/tftp"; |
our $dir = "$server::base_dir/tftp"; |
14 |
|
|
15 |
sub path { |
sub path { |
66 |
Timeout => 3600, |
Timeout => 3600, |
67 |
CallBack => \&transfer_status, |
CallBack => \&transfer_status, |
68 |
# LocalAddr => $server::ip, |
# LocalAddr => $server::ip, |
69 |
|
LocalAddr => '0.0.0.0', |
70 |
# BlkSize => 8192, |
# BlkSize => 8192, |
71 |
# BlkSize => 512, |
# BlkSize => 512, |
72 |
BlkSize => 1456, # IBM GE seems to be picky |
BlkSize => 1456, # IBM GE seems to be picky |
73 |
Debug => 99, |
Debug => 99, |
74 |
) || die Net::TFTPd->error; |
) || die Net::TFTPd->error; |
75 |
|
|
76 |
warn 'listener: ',dump( $listener ); |
warn 'listener: ',dump( $listener ) if $debug; |
77 |
|
|
78 |
while(1) { |
while(1) { |
79 |
|
|