#!/usr/bin/perl -w

use strict;
use warnings;
use Net::Telnet;

my $ip = $ARGV[0];
my $pass = "xxxx";
my $pass2 = "xxxxx";
my $t=new Net::Telnet(Errmode=>'return',Input_Log => "/tmp/input.log", Output_Log =>
"/tmp/output.log",Timeout=>30);
my $file = "/tmp/input.log";


$t->open($ip);
 if($t->errmsg) { my $err=$t->errmsg; return $err; }
 my ($prompt) = $t->waitfor('/Password: $/');
    if($t->errmsg) { my $err=$t->errmsg; return $err; }
    $t->print("$pass");
    $t->waitfor('/>$)/');
    $t->print('en');
    $t->waitfor('/Password: $/');
    $t->print("$pass2");
    $t->waitfor('/#$/');
    my @out=$t->cmd(String=>'sh run | inc connect',Prompt=>'/#$/');
    my $line = @out;
    t->print("config t");
    $t->waitfor('/#$/');
    $t->print(" no $line") if $line =~ '/^connect sgsn/';
    $t->waitfor('/#$/');
    $t->print("end");
    $t->waitfor('/#$/');
    $t->print("logout");
   
   


    
    
    ##### email results of cross connect bounce ####

    my $to = 'xxxx.xxx@xxx.com';
    chomp (my $date=`date '+%H:%M:%S %Z %a %b %e %Y'`);
    
    my $subj="\"Cross Connects Bounced\"";
                open(MAILX, "|/usr/bin/mailx -s $subj $to");
                print MAILX "The cross connects for $ip were bounced at $date, @out\n";
                close(MAILX);

connect sgsn Serial1/0:6 701 l2transport
xconnect 172.19.231.227 701 pw-class fr-xconnect