/[pxelator]/lib/PXElator/dhcpd.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/dhcpd.pm

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

revision 114 by dpavlin, Sun Aug 2 03:31:39 2009 UTC revision 128 by dpavlin, Mon Aug 3 19:59:08 2009 UTC
# Line 19  use IO::Socket::INET; Line 19  use IO::Socket::INET;
19  use File::Slurp;  use File::Slurp;
20  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
21  use Net::Ping;  use Net::Ping;
 use Module::Refresh;  
22    
23  use lib '..';  use lib '..';
24  use Net::DHCP::Packet;  use Net::DHCP::Packet;
# Line 83  our $transaction = 0; # FIXME predictibl Line 82  our $transaction = 0; # FIXME predictibl
82  sub process_packet {  sub process_packet {
83          my $sock = shift;          my $sock = shift;
84    
85            server->refresh;
86    
87          my $buf;          my $buf;
88          $sock->recv($buf, 1024);          $sock->recv($buf, 1024);
89          my $size = 'empty';          my $size = 'empty';
# Line 198  sub start { Line 199  sub start {
199          print "DHCP listen on ",$sock->sockhost,":",$sock->sockport,"\n";          print "DHCP listen on ",$sock->sockhost,":",$sock->sockport,"\n";
200    
201          while (1) {          while (1) {
                 Module::Refresh->refresh;  
202                  process_packet $sock;                  process_packet $sock;
203          }          }
204  }  }
Legend:
Removed from v.114  
changed lines
  Added in v.128
  ViewVC Help
Powered by ViewVC 1.1.26