retronetworking
/
freeswitch
13
0
Fork 0
Code Pull Requests Releases Activity

fixes from tony

This commit is contained in:
Brian West 2011-01-27 09:41:18 -06:00
parent 008e527c0f
commit 22c05ad542
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/perl/dhcp-inform.pl
View File

@ -61,12 +61,7 @@ while ($sock->recv($newmsg, 1024)) {
}
print "Sending option 66 as $opt_u\n";
$handle = IO::Socket::INET->new(Proto => 'udp',
PeerPort => '68',
LocalPort => '67',
ReuseAddr => 1,
PeerAddr => $dhcpreq->ciaddr(),
) or die "socket: $@";
$handle->send($dhcpresp->serialize())
$sock->send($dhcpresp->serialize())
}
}