package pf::SNMP::Dell::PowerConnect6224;

=head1 NAME

pf::SNMP::Dell::PowerConnect6224 - Object oriented module to access SNMP enabled Dell PowerConnect6224 switches

=head1 SYNOPSIS

The pf::SNMP::Dell::PowerConnect6224 module implements an object oriented interface to access SNMP enabled Dell:PowerConnect6224 switches.

The minimum required firmware version is 112.

=head1 CONFIGURATION AND ENVIRONMENT

F<conf/switches.conf>

=cut

use strict;
use warnings;
use Data::Dumper;
use Log::Log4perl;
use Net::Telnet;

use base ('pf::SNMP::Dell');

sub description { 'Dell PowerConnect 6224' }

sub getMinOSVersion {
    my ($this) = @_;
    my $logger = Log::Log4perl::get_logger( ref($this) );
    return '112';
}

sub _setVlan {
    my ( $this, $ifIndex, $newVlan, $oldVlan, $switch_locker_ref ) = @_;
    my $logger = Log::Log4perl::get_logger( ref($this) );
    my $session;

    eval {
        $session = new Net::Telnet( Host => $this->{_ip}, Timeout => 20 );

        $session->dump_log();
        $session->waitfor('/User:/');
        $session->print( $this->{_cliUser} );
        $session->waitfor('/Password:/');
        $session->print( $this->{_cliPwd} );
        $session->waitfor('/>/');
    };
    if ($@) {
        $logger->error(
            "ERROR: Can not connect to switch $this->{'_ip'} using Telnet");
        return 1;
    }

    $session->print('enable');
#    $session->waitfor('/Password:/');
#    $session->print( $this->{_cliEnablePwd} );
    $session->waitfor('/#/');
    $session->print('configure');
    $session->waitfor('/\(config\)#/');
    $session->print( 'interface ethernet 1/g' . $ifIndex );
    $session->waitfor('/\(config-if-.*\)#/');
    $session->print( 'switchport access vlan ' . $newVlan );
    $session->waitfor('/\(config-if-.*\)#/');
    $session->print("end");
    $session->waitfor('/#/');
    $session->print("exit");
    $session->waitfor('/>/');
    $session->print("quit");

    $session->close();
    return 1;

}

=head1 AUTHOR

Inverse inc. <info@inverse.ca>

=head1 COPYRIGHT

Copyright (C) 2005-2013 Inverse inc.

Modified for Dell 62xx switch (non-stack mode) by Bill Arlofski - Reverse Polarity, LLC - http://www.revpol.com/

=head1 LICENSE

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

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 Street, Fifth Floor, Boston, MA  02110-1301,
USA.

=cut

1;

# vim: set shiftwidth=4:
# vim: set expandtab:
# vim: set backspace=indent,eol,start: