use strict;
use warnings;

use Net::Appliance::Session;

my $device_ip = shift @ARGV; # get the IP address from the command line
my @cmd       = @ARGV; # get the commands from the command line

# check we have passed at least one command
unless ($cmd[0]) {
    print qq(Usage : Recipe_07.pl <device_ip> "<ios_conf_command>" );
    print qq([ "<ios_conf_command>" .. "<ios_conf_command>" ]\n);
    exit 1;
}

# common username and password for all devices
my $ios_username        = 'cisco';
my $ios_password        = 'cisco';

my $session_obj = Net::Appliance::Session->new(
    Host      => $device_ip,
    Transport => 'Telnet',
);

$session_obj->input_log(*STDOUT);

# tell our object we'll be in privileged mode straight after login
$session_obj->do_privileged_mode(0);    

# start eval block to trap errors in interactive session
eval {
    
    # try to login to the ios device, ignoring host check
    $session_obj->connect(Name => $ios_username, Password => $ios_password);
    
    # go in to conf mode (i.e. 'conf t')
    $session_obj->begin_configure;
    
    for my $conf_cmd (@cmd) {
        $session_obj->cmd($conf_cmd);
    }
    
    # uncomment these lines to write the changes to the startup config
    #$session_obj->end_configure;
    #$session_obj->cmd("write memory");
    
};

# close down our session
$session_obj->close;

# did we get an error ?
if ($@) {
    print error_report($@, $device_ip);
}
    
sub error_report {
    
    # standard subroutine used to extract failure info when
    # interactive session fails
    
    my $err         = shift or croak("No err !");
    my $device_name = shift or croak("No device name !");
    
    my $report; # holder for report message to return to caller
    
    if ( UNIVERSAL::isa($err, 'Net::Appliance::Session::Exception') ) {
            
        # fault description from Net::Appliance::Session
        $report  =  "We had an error during our Telnet/SSH session to device  : $device_name \n"; 
        $report .= $err->message . " \n";
            
        # message from Net::Telnet
        $report .= "Net::Telnet message : " . $err->errmsg . "\n"; 
            
        # last line of output from your appliance  
        $report .=  "Last line of output from device : " . $err->lastline . "\n\n";

    }
    elsif (UNIVERSAL::isa($err, 'Net::Appliance::Session::Error') ) {
        
        # fault description from Net::Appliance::Session
        $report  = "We had an issue during program execution to device : $device_name \n";
        $report .=  $err->message . " \n";

    }
    else {
        
        # we had some other error that wasn't a deliberately created exception
        $report  = "We had an issue when accessing the device : $device_name \n";
        $report .= "The reported error was : $err \n";
    }
        
    return $report;
}

#
# Copyright (c) Nigel Bowden 2007. All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of version 2 of the GNU General Public License as published by the
# Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
# St, Fifth Floor, Boston, MA 02110-1301 USA