#!/usr/bin/perl 
# This file is the clear.pl 
# This is a script that will telnet into the BSM, 
# and clear all SWERR and erase all cleared alarms. 
 
use strict; 
use warnings; 
use Net::Telnet; 
use Text::ParseWords; 
use POSIX qw/strftime/; 
 
my $date = strftime("%Y-%m-%d", localtime(time)); 
my $temp = "/home/bsm/data/temp.txt"; 
my $user="USR"; 
my $pass="PWD"; 
my $server="HOST"; 
my $t = Net::Telnet->new($server); 
$t->waitfor('/login:/'); 
$t->print("$user"); 
$t->waitfor('/Password:/'); 
$t->print("$pass"); 
$t->waitfor('/%/'); 
$t->print("cliapp"); 
$t->waitfor('/>/'); 
$t->print("alarm;"); 
$t->waitfor('/FaultName/'); 
 
my ($data) = $t->waitfor('/>/'); 
 
open(WRITE, ">", "$temp") 
     or die "Can't open 'temp.txt' $!"; 
print WRITE $data; 
close WRITE; 
 
my $file = $temp || die "Usage: $0 <filename>\n"; 
open my $FH, '<', $file or die "Can't open '$file' $!"; 
 
while (<$FH>) { 
if($_ =~ /^#/){ 
  my (undef, $index, $status, $activity, $datetime, $source, $severity, $faultname) = quotewords('\s+', 0, $_); 
 
  foreach($faultname =~ /SWERR/){ 
    print $index, "\n"; 
    print $faultname, "\n"; 
    $t->waitfor('/>/');                        ## REMOVED THIS LINE ## 
    $t->print("cd $source;"); 
    $t->waitfor('/>/'); 
    $t->print("action uploadlogsfromcc1;"); 
    $t->waitfor('/>/'); 
   } 
} 
} 
$t->close; 
 
#system("/home/bsm/sendupdate.pl");

1895793 
SWERR log threshold exceeded at CEM, please upload the log // [XCEM]  SWERR Log 
pattern match timed-out at ./clear.pl line 45

# 1684941 Nak    Active   "20 Jan 09 12:14:57" "O%:CBS1:Cells1:MC800BTS1012:MCBTSSubsystem1:Root1:ECC1" MAJOR "AC Power Failure" 
# 1753868 Nak    Active   "20 Jan 09 16:05:24" "O%:CBS1:Cells1:MC800BTS1006:MCBTSSubsystem1:Root1:RFM2:RadioSector1" MAJOR "PAM output device failure. Reduced output power // FRU:MFRM-2 3 dB reduction" 
# 1753886 Nak    Active   "21 Jan 09 15:15:28" "O%:CBS1:Cells1:MC800BTS1006:MCBTSSubsystem1:Root1:ECC1" MAJOR "Total rectifier current high // PLANCURRHI" 
# 1923679 Nak    Active   "21 Jan 09 20:36:03" "O%:CBS1:Cells1:MC800BTS1008:MCBTSSubsystem1:Root1:CEM1" MINOR "SWERR log threshold exceeded at CEM, please upload the log // [XCEM]  SWERR Log" 
# 1713589 Nak    Active   "21 Jan 09 22:41:42" "O%:CBS1:Cells1:MC800BTS1019:MCBTSSubsystem1:Root1:CEM1" MINOR "SWERR log threshold exceeded at CEM, please upload the log // [XCEM]  SWERR Log" 
# 1784177 Nak    Active   "22 Jan 09 00:55:13" "O%:CBS1:Cells1:MC800BTS1003:MCBTSSubsystem1:Root1:CEM1" MINOR "Trap log threshold exceeded at CEM, please upload the log // [XCEM]  TRAP Log" 
# 1852141 Nak    Active   "22 Jan 09 03:50:38" "O%:CBS1:Cells1:MC800BTS1014:MCBTSSubsystem1:Root1:ECC1" MAJOR "Shelter High Temperature" 
# 1876342 Nak    Active   "22 Jan 09 07:11:19" "O%:CBS1:Cells1:MC800BTS1021:MCBTSSubsystem1:Root1:CEM3" MINOR "SWERR log threshold exceeded at CEM, please upload the log // [XCEM]  SWERR Log"

foreach($faultname =~ /SWERR/){

#!/usr/bin/perl  
# This file is the clear.pl  
# This is a script that will telnet into the BSM,  
# and clear all SWERR and erase all cleared alarms.  
  
use strict;  
use warnings;  
use Net::Telnet;  
use Text::ParseWords;  
use POSIX qw/strftime/;  
  
my $date    = strftime("%Y-%m-%d", localtime(time));  
my $temp    = "/home/bsm/data/temp.txt";  
my $user    = "USR";  
my $pass    = "PWD";  
my $server  = "HOST";  
my $t       = Net::Telnet->new(Prompt => '/login:/'); 
 
$t->open($server); 
$t->login($user, $pass); 
$t->waitfor('/%/');  
$t->print("cliapp");  
$t->waitfor('/>/');  
$t->print("alarm;");  
$t->waitfor('/FaultName/');  
  
my ($data) = $t->waitfor('/>/');  
 
foreach my $line (split /\n/, $data) { 
   my (undef, $index, $status, $activity, $datetime, $source, $severity, $faultname) = quotewords('\s+', 0, $line); 
    
   if ($faultname =~ /^SWERR/){ 
       print $index, "\n";  
       print $faultname, "\n";  
       $t->print("cd $source;");  
       $t->waitfor('/>/');  
       $t->print("action uploadlogsfromcc1;");  
       $t->waitfor('/>/');  
   } 
}

#!/usr/bin/perl 
# This file is the clear.pl 
# This is a script that will telnet into the BSM, 
# and clear all SWERR and erase all cleared alarms. 
 
use strict; 
use warnings; 
use Net::Telnet; 
use Text::ParseWords; 
use POSIX qw/strftime/; 
 
my $user    = "USR"; 
my $pass    = "PWD"; 
my $server  = "HOST"; 
my $t       = Net::Telnet->new($server); 
 
$t->waitfor('/login:/'); 
$t->print($user); 
$t->waitfor('/Password:/'); 
$t->print($pass); 
$t->waitfor('/%/'); 
$t->print("cliapp"); 
$t->waitfor('/>/'); 
$t->print("alarm;"); 
$t->waitfor('/FaultName/'); 
 
my ($data1) = $t->waitfor('/>/'); 
 
foreach my $line1 (split /\n/, $data1) { 
   my (undef, $index1, $status1, $activity1, $datetime1, $source1, $severity1, $faultname1) = quotewords('\s+', 0, $line1); 
 
   if ($faultname1 =~ /^SWERR/){ 
       print $index1, "\n"; 
       print $faultname1, "\n"; 
       $t->print("cd $source1;"); 
       $t->waitfor('/>/'); 
       sleep(3); 
       $t->print("action uploadlogsfromcc1;"); 
       $t->waitfor('/>/'); 
       sleep(3); 
   } 
} 
 
sleep(5); 
 
$t->print("alarm;"); 
$t->waitfor('/FaultName/'); 
 
my ($data2) = $t->waitfor('/>/'); 
 
foreach my $line2 (split /\n/, $data2) { 
   my (undef, $index2, $status2, $activity2, $datetime2, $source2, $severity2, $faultname2) = quotewords('\s+', 0, $line2); 
 
   if ($activity2 =~ /^Clear/){ 
       print $index2, "\n"; 
       print $activity2, "\n"; 
       print $faultname2, "\n"; 
       $t->print("alarm -a $index2;"); 
       $t->waitfor('/>/'); 
       sleep(2);               
   } 
} 
 
 
 
$t->close; 
 
system("/home/bsm/sendupdate.pl");

my ($index1, $source1, $faultname1) = (quotewords('\s+', 0, $line1))[1,5,7];

$ConnectTime= "17:25:30"; 
$DisconnectTime: "17:35:13";

Argument "17:35:13" isn't numeric in subroutine entry at ./parser.pl line 23, <$FH> line 10. 
Argument "17:25:30" isn't numeric in subroutine entry at ./parser.pl line 23, <$FH> line 10.

#!/usr/bin/perl 
# This file is the parser.pl 
# This is a script that will parse data from the Syslog 
 
use strict; 
use warnings; 
use Text::ParseWords; 
 
my $file = $ARGV[0] || die "Usage: $0 <filename>\n"; 
open my $FH, '<', $file or die "Can't open '$file' $!"; 
 
while (<$FH>) { 
  if($_ =~ /^20/){ 
     my ($Date, $Time, $Local, $CID1, $CID2, $CID3, $CID4, $PA, $CT, $DT) = (quotewords('\s+', 0, $_))[0,1,2,12,13,14,15,24,36,43]; 
     my ($CID, $DIFF, $CALL, $secs1, $secs2); 
     if($Local =~ /^Local7.Notice/){ 
      $CID = "$CID1 $CID2 $CID3 $CID4"; 
      $CT = substr("$CT",1,8); 
      $DT = substr("$DT",1,8); 
      $secs1 = (substr("$CT",0,2) * 360)+(substr("$CT",3,2) * 60)+substr("$CT",6,2); 
      $secs2 = (substr("$DT",0,2) * 360)+(substr("$DT",3,2) * 60)+substr("$DT",6,2); 
      $DIFF = $secs2 - $secs1; 
 
      print "Date: $Date \n"; 
      print "Time: $Time \n"; 
      print "ConnectionID: $CID \n"; 
      print "PeerAddress: $PA \n"; 
      print "ConnectTime: $CT \n"; 
      print "DisconnectTime: $DT \n"; 
      print "TotalTime: $DIFF \n"; 
      print " \n\n"; 
 
      $CALL = "$Date,$Time,$CID$PA$CT,$DT,$DIFF\n"; 
 
      my $calllog = "calllog.txt" || die "Usage: $0 <filename>\n"; 
      open my $CL, '>>', $calllog or die "Can't open '$calllog' $!"; 
      print $CL $CALL; 
      close $CL; 
    } 
    if($Local =~ /^Local7.Error/){ 
      my $errorlog = "errorlog.txt" || die "Usage: $0 <filename>\n"; 
      open my $EL, '>>', $errorlog or die "Can't open '$errorlog' $!"; 
      print $EL $_; 
      close $EL; 
    } 
  } 
} 
close $FH;

my $ConnectTime = "23:55:42";  
my $DisconnectTime = "00:07:29"; 
my $diff = ConvertToSeconds($ConnectTime,$DisconnectTime); 
print $diff; 
 
sub ConvertToSeconds { 
   my ($start,$end) = @_; 
   my ($sh,$sm,$ss) = split(/:/,$start); 
   my ($eh,$em,$es) = split(/:/,$end);     
   $eh = $eh == 0 ? 24 : $eh; 
   $start = ($sh * 3600) + ($sm * 60) + $ss; 
   $end   = ($eh * 3600) + ($em * 60) + $es; 
   my $diff = $end - $start; 
   my ($s,$m,$h) = (gmtime($diff))[0,1,2]; 
   return (sprintf "%02d:%02d:%02d", $h,$m,$s); 
}