Untitled

 #!/usr/bin/perl -w

 # Will simple send a SIP NOTIFY header to an IP address. Built to support Polycoms.
 # Confirmed working in a Switchvox environment 11/14/2006

 $polycompath = '/tftpboot/';    # Where you keep your config files
 $arp         = '/sbin/arp';          # Location of arp command
 $sipserver   = '192.168.1.50';      # IP of asterisk server

 use Net::Ping;
 use Socket;

 $phone = shift;
 if ( ! $phone ) { print "\n\nSorry - you need to include the extension that you wish to reboot.\n\n"; exit;}

 $ip = arp2config($phone);
 checkphone($ip);
 reboot_sip_phone($ip, $sipserver, $phone);

 sub checkphone {
     # Checks for existence of phone, makes sure
     # it's in arp table
     $activephone = shift;

     # Populate ARP table
     print "Checking ARP table.\n";
     $p = Net::Ping->new("icmp");
     if ( $p->ping( $activephone, 2 ) ) {
         print "$activephone is ";
         print "reachable.\n";
     }
     else { die "Polycom at ", $activephone, " is not reachable!"; }
     sleep(1);
     $p->close();
 }

 sub arp2config {
     # Gets mac address from arp table, converts
     # to a polycom config filename, makes sure
     # the config file exists, matches an extension
     # and returns the IP if we find a match

     my $return_ip = "";
     open( ARP, "$arp -an|" ) || die "Couldn't open arp table: $!\n";
     print "checking for polycom config name...", "\n";
     while (<ARP>) {
         chomp;
        my ($j1, $ip, $j2, $addr) = split(' ');
         $addr =~ s/.* ([\d\w]+:[\d\w]+:[\d\w]+:[\d\w]+:[\d\w]+:[\d\w]+).*/$1/;
         $addr =~ s/://g;
         $addr = lc($addr) . '.cfg';
         $ip =~ s/.*?(\d+\.\d+\.\d+\.\d+).*/$1/;
        print "Found ip = $ip  @  mac = $addr \n";
        my $file = $polycompath.$addr;

        # Now scan the cfg file (if it exists) and look for the phone extension within the file
        if ( -e $file ) {
                if ( `grep $phone $file 2>/dev/null` ) {
                        print "\nYee Haa - $file was a MATCH for $phone\n\n";
                        #`touch $file`; # Not needed anymore - since firmware 2.* looks for checksum
                        `perl -i -p -e 's/Date: /Date:  /' $file`;
                        `perl -i -p -e 's/Date:    /Date: /' $file`;
                        $return_ip = $ip;
                }
        }
        if ( $return_ip ) { return $return_ip; exit;}
     }
 }

 sub reboot_sip_phone {
     # Send the phone a check-sync to reboot it
     $phone_ip = shift;
     $local_ip = shift;
     $sip_to   = shift;
     $sip_from = "asterisk";
     $tm       = time();
     $call_id  = $tm . "msgto$sip_to";
     $httptime = `date -R`;
     chomp($httptime);
     $MESG     = "NOTIFY sip:$sip_to\@$phone_ip:5060 SIP/2.0
 Via: SIP/2.0/UDP $local_ip
 From: <sip:$sip_from\@$local_ip>
 To: <sip:$sip_to\@$phone_ip>
 Event: check-sync
 Date: $httptime
 Call-ID: $call_id\@$local_ip
 CSeq: 102 NOTIFY
 Contact: <sip:$sip_from\@$local_ip>
 Content-Length: 0

 ";

     $proto = getprotobyname('udp');
     socket( SOCKET, PF_INET, SOCK_DGRAM, $proto );
     $iaddr = inet_aton("$phone_ip");
     $paddr = sockaddr_in( 5060, $iaddr );
     bind( SOCKET, $paddr );
     $port = 5060;

     $hisiaddr = inet_aton($phone_ip);
     $hispaddr = sockaddr_in( $port, $hisiaddr );

     if ( send( SOCKET, $MESG, 0, $hispaddr ) ) {
         print "reboot of phone ", "$phone_ip", " was successful", "\n";
     } else {
        print "reboot of phone ", "$phone_ip", " failed", "\n";
     }

 #print "This was the SIP header:\n\n".$MESG."\n\n";

 }