log.pl.save

#!/usr/bin/perl
# -*- coding: utf-8 -*-
#===================================================
# 
# Switch entre el enlace de Movistar y conexión de internet para la VPN.
#
# Copyleft (C) 2012  harold Luzardo <haroldburtonl@gmial.com>
#
# This script 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 3 of the License, or (at your option) any later
# version.
#
# This script 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 PACKAGE (see COPYING); if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# Created on: Abril 08, 2013 - Harold Luzardo
#
#===================================================

use strict;
use warnings;
use FileHandle;
use Time::Piece;
use Net::Ping;
use Net::Twitter::Lite;

#sub getPreviousState ($) {
sub EstusPrevRouter ($) {

#       my ( $host ) = @_;
        my ( $router ) = @_;

#       foreach ( @hostStates ) {
        foreach ( @EstatusRouteres ) {

#               my( $line ) = $_;
                my( $posicion ) = $_;
#               my ($domain, $state, $time) = split(/:/, $line, 3);
                my ($router, $estatus, $hora) = split(/:/, $posicion, 3);
#               if ( $domain eq $host ) {
                if ( $domain eq $host ) {

                        return $estatus;

                }

        }

}