/[pxelator]/lib/PXElator/tftpd.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/tftpd.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 45 by dpavlin, Wed Jul 29 22:04:58 2009 UTC revision 68 by dpavlin, Thu Jul 30 22:43:48 2009 UTC
# Line 6  use strict; Line 6  use strict;
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}{};
# Line 62  sub start { Line 66  sub start {
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                    
Legend:
Removed from v.45  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.26