tacitochaves

#!/bin/bash

TMPDIR=/tmp
IP=`lynx --source http://meuip.datahouse.com.br |grep meuip-home|cut -d\< -f3|awk '{print $5}';`

if [ ! -e  ${TMPDIR}/ddns.ip ]; then
        echo "0.0.0.0" >  ${TMPDIR}/ddns.ip
fi

tacitochaves

#!/usr/bin/perl
#
# 	This program will include a record in DNS for hosts with dynamic link. 
#
#	Author: Tácito Chaves - 2014-06-05 
#	e-mail: chaves@tchaves.com.br
#	fone: (98) 8123-8153 / 8857-9777

use strict;
use warnings;

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

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

#!/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
#
# 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

	

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

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

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 {