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 $debug = server::debug; |
12 |
|
|
13 |
|
our $dir = "$server::base_dir/tftp"; |
14 |
|
|
15 |
sub path { |
sub path { |
16 |
my $glob = shift; |
my $glob = shift; |
17 |
my $path = glob("$dir/$glob"); |
my $path = (glob("$dir/$glob"))[0]; |
18 |
die "can't find anything for $dir/$glob" unless $path; |
die "can't find anything for $dir/$glob" unless $path; |
19 |
warn $path; |
warn $path; |
20 |
$path =~ s{^$dir}{}; |
$path =~ s{^$dir}{}; |
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 |
|
|