(SPAM) [Slack-BR|Geral] Script adsl

[Carlos Eduardo Cruz]

Bem você poderia utilizar alguns serviço como www.dnip.net ou minidns.net ..etc.. para várias finalidades

Eu tenho um que envia várias informações.. vc pode adpatar ao seu gosto.


#!/usr/bin/perl

use MIME::Entity;

system("rm -rf /root/monitor.txt");
system("echo >> /root/monitor.txt");
system("adsl-status >> /root/monitor.txt");
system("echo >> /root/monitor.txt");

$texto = "IP";
$top = build MIME::Entity  From => 'Root <root@>',
                           To   =>   '@',
                           Cc   =>  '@',
                           Cco  =>  '@',
                           Subject => "IP do Sistema",
                           Data => $texto;

# definindo o anexo
$top->attach(
            Name        => "monitor.txt",
            Path        => "/root/monitor.txt",
            Type        => "application/x-gtar",
            Encoding    => "base64"
);

# caminho para o programa do agente MTA do seu servidor
open(MAIL,"| /usr/lib/sendmail -t");
$top->print(\*MAIL);
close(MAIL);


------

Tem esse também do site vivaolinux

#!/usr/bin/perl
# ip_monitor.pl
# Usado para enviar o endereco IP da conexao ADSL por e-mail
# para o administrador do sistema.
# Caso o IP esteja down, ele tenta reiniciar o servico ADSL
# automaticamente.
#
# Programador por: Fabio Berbert de Paula
# <fabio em vivaolinux.com.br>
# http://www.vivaolinux.com.br

use strict;

# variaveis globais - configure de acordo com suas prefs.
my $meu_email  = "login\@dominio.com";
my $base_dir   = "/usr/local/monitor/";
my $ip_file    = $base_dir . "last_ip.txt";
my $last_ip    = 0;
my $current_ip = "";

if (-f $ip_file) {
   open(R, $ip_file);
   $last_ip = <R>; chomp($last_ip);
   close(R);
}

my $ifconfig = `/sbin/ifconfig ppp0`;
if ($ifconfig =~ /inet addr:(.*)P-t-P/) {
   $current_ip = $1;
   $current_ip =~ s/ //g;
} else {
   system("/sbin/adsl start");
}

if ($last_ip ne $current_ip && $current_ip) {
   #print "entrei\n";
   open(W, "> $ip_file");
   print W $current_ip;
   close(W);

   if ($last_ip!=0) {
      # enviar email com o ip
      system("echo $current_ip | /usr/sbin/sendmail $meu_email");
   }
}


Fica a sua escolha

inté.

Carlos

On Fri, 24 Jun 2005 13:20:35 -0300
"JUNIOR MR. MICRO" <junior em araxa.com.br> wrote:

> Boa tarde á todos,
> 
> Alguém conhece um script em shell que pegue o ip de uma conexão adsl da placa ppp0 e envia por email?
> 
> 
> Aguimar Rezende Junior 
> 
> E-MAIL junior em araxa.com.br
> MSN junior em araxa.com.br
> SKYPE junior_araxa
> Praça Hugo levy Araxá-mg
> Linux User: 343129
> Celular: 3488017007
> ___________________
> Mister Micro Setor de assistência técnica.
> 
> "A única diferença ente o remédio e o veneno é a dose"
> 
> -- 
> Esta mensagem foi verificada pelo sistema de antivírus e
>  acredita-se estar livre de perigo.
> 
> 
>