Boa tarde a todos. Estou fazendo um script para verificar parti�oes
dos meus servidores e enviar por email caso a parti��o exceda um valor
especificado. Por�m, quando tento rodar em uma m�quina sem o servi�o
de email, como � o caso da maioria, ela n�o envia usando o servidor de
email. O script segue abaixo:
OBS: o servidor de email roda o postfix com dom�nios virtuais e requer
autentica��o.
Se algu�m souber algo pra ajudar...
Valeu,
Wild Bill
#!/usr/bin/perl -w
$host = `hostname`;
$comando = `df -h | sed '1d' | awk '\$5 \> 80 \{print \$5\}' | cut -d '\%' -f1`;
if ( $comando > 80 ){
use Net::SMTP;
$from_address = "root";
$to_mail = "[EMAIL PROTECTED]";
$subject = "Espa�o das parti��es na $host";
$data=`df -h`;
$pass = "pass";
chomp($pass,$to_mail);
$smtp = Net::SMTP_auth->new('pitfall.seven.com.br', Hello => $host);
$smtp->auth($to_mail,$pass);
$smtp->recipient($to_mail);
$smtp->data();
$smtp->datasend("To:",$to_mail);
$smtp->datasend("From:",$from_address);
$smtp->datasend("Subject:",$subject);
$smtp->datasend("\n\n");
$smtp->datasend($data);
$smtp->dataend();
$smtp->quit;
}
--
GUS-BR - Grupo de Usuarios Slackware - BR
http://www.slackwarebrasil.org/
http://www.linuxmag.com.br/mailman/listinfo/slack-users
