tacitochaves

#!/usr/bin/env perl

use strict;
use warnings;

# inicialização de variáveis
my $m;
my @options;

# vai rodar enquanto a opção 3 do menu não for solicitada

tacitochaves

#!/usr/bin/env perl

use strict;
use warnings;

use lib '/usr/lib/tchaves';
use network::Route qw( ip_rule_list rule_add rule_del rule_emb ping_emb r_add_147 r_add_34 );

use strict;
use warnings;

tacitochaves

package network::Route;

use strict;
use warnings;

use Exporter qw(import);

our @EXPORT_OK = qw(ip_rule_list rule_add rule_del rule_emb ping_emb r_add_147 r_add_34);

sub ip_rule_list {

tacitochaves

#!/usr/bin/env perl

use strict;
use warnings;

my $oi      = comment_squid_oi();
#my $emb_34  = comment_squid_emb_34();
#my $emb_147 = comment_squid_emb_147();

sub comment_squid_oi {

tacitochaves

	

    use strict;
     
     
    my @list = qw/
        nome
        nome.1
        nome.2
     

tacitochaves

#!/usr/bin/env perl
#
# This program will make the redundancy between two internet links.
#
# Author: Tácito Chaves - 2014-06-17
# e-mail: chaves@tchaves.com.br
# fone: (98) 8123-8153 / 8857-9777

use strict;
use warnings;

tacitochaves

#!/usr/bin/env perl
#
#
# bkp_fwbuilder.pl
#
# This program is responsible for performing the backup of the firewall.
#
# Author: Tácito Chaves
# Contact: (98) 8123 - 8153 / (98) 8857 - 9777
# E-mail: chaves@tchaves.com.br

tacitochaves

#!/usr/bin/env perl
#
# bkp_fwbuilder.pl
#
# This program is responsible for performing the backup of the firewall.
#
# Author: Tácito Chaves
# Contact: (98) 8123 - 8153 / (98) 8857 - 9777
# E-mail: chaves@tchaves.com.br

tacitochaves

#!/usr/bin/env perl
#
# update_dns.pl
#
# This program is responsible for performing the backup of the firewall.
#
# Author: Tácito Chaves
# Contact: (98) 8123 - 8153 / (98) 8857 - 9777
# E-mail: chaves@tchaves.com.br

tacitochaves

#!/bin/bash
#
# redundant.sh
#
# 	Este script tratará a redundância entre dois links de internet. 
#
#	Author: Tácito Chaves - 2013-08-04 
#	e-mail: chaves@tchaves.com.br
#	fone: (98) 8123-8153 / 8857-9777
# set -x