/[mdap]/bin/bootpd.pl
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 /bin/bootpd.pl

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

revision 61 by dpavlin, Sat Nov 17 00:12:12 2007 UTC revision 63 by dpavlin, Sun Nov 18 00:55:42 2007 UTC
# Line 68  while (1) { Line 68  while (1) {
68                  warn ">> ",$sock->peeraddr,":",$sock->peerport," send $ip with server $ip_server\n",$packet->toString(),"\n";                  warn ">> ",$sock->peeraddr,":",$sock->peerport," send $ip with server $ip_server\n",$packet->toString(),"\n";
69    
70                  my $reply = IO::Socket::INET->new(                  my $reply = IO::Socket::INET->new(
71                          LocalAddr => '10.0.0.100',                          LocalAddr => $ip_server,
72                          LocalPort => 67,                          LocalPort => 67,
73                          Proto => "udp",                          Proto => "udp",
74                          Broadcast => 1,                          Broadcast => 1,
# Line 81  while (1) { Line 81  while (1) {
81                  my $buff = $packet->serialize();                  my $buff = $packet->serialize();
82                  $reply->send( $buff, 0 ) or die "Error sending: $!\n";                  $reply->send( $buff, 0 ) or die "Error sending: $!\n";
83    
84    #               system("arp -s $ip ",$dhcp->chaddr());
85    
86          } else {          } else {
87                  print "No bootp request.\n";                  print "No bootp request.\n";
88          }          }
Legend:
Removed from v.61  
changed lines
  Added in v.63
  ViewVC Help
Powered by ViewVC 1.1.26