kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-13 01:26:58 +00:00
Code Issues Projects Releases Wiki Activity

These might be useful for someone...

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16215 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West
2010-01-08 18:14:07 +00:00
parent 8dbce3ef3e
commit ded50e7f02
2 changed files with 162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
scripts/perl/dhcp-inform.pl Normal file
View File

@@ -0,0 +1,72 @@
#!/usr/bin/perl
#
# Send DHCPACK when you receive a DHCPINFORM from a polycom
# so we can provide the provisioning URL to the phone
#
# Authors: (and wish lists)
#
# Brian West <brian@freeswitch.org> http://www.amazon.com/gp/registry/wishlist/1BWDJUX5LYQE0
# Raymond Chandler <intralanman@freeswitch.org> http://www.amazon.com/gp/registry/wishlist/1BWDJUX5LYQE0
#
#
use IO::Socket::INET;
use Net::DHCP::Packet;
use Net::DHCP::Constants;
use Getopt::Std;
getopt("du");
$| = 1;
if (!$opt_u) {
print "Usage: $0 -u <url> [-d 1]\n";
exit;
}
$sock = IO::Socket::INET->new(
LocalPort => '67',
Proto => 'udp',
Broadcast => 1,
ReuseAddr => 1,
) or die "socket: $@";
while ($sock->recv($newmsg, 1024)) {
my $dhcpreq = Net::DHCP::Packet->new($newmsg);
if ($opt_d) {
print $dhcpreq->toString();
print "\n---------------------------------------------------------------------\n";
}
$tmp = $dhcpreq->chaddr();
print "--$tmp--\n";
if ($dhcpreq->getOptionValue(DHO_DHCP_MESSAGE_TYPE()) == 8 && $dhcpreq->chaddr() =~ /^0004f2/) {
my $dhcpresp = new Net::DHCP::Packet(
Op => BOOTREPLY(),
Hops => $dhcpreq->hops(),
Xid => $dhcpreq->xid(),
Htype => $dhcpreq->htype(),
Ciaddr => $dhcpreq->ciaddr(),
Chaddr => $dhcpreq->chaddr(),
DHO_DHCP_MESSAGE_TYPE() => DHCPACK(),
DHO_DHCP_SERVER_IDENTIFIER() => $sock->sockhost,
DHO_TFTP_SERVER() => "$opt_u",
);
if ($opt_d) {
print $dhcpresp->toString();
print "\n---------------------------------------------------------------------\n";
}
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())
}
}