Script Perl de lembrete via e-mail =)
by samir on Aug.25, 2009, under Uncategorized
E aí pessoal,
Na necessidade de me lembrar de algumas coisas de tempos em tempos, peguei um script que manda e-mails (em perl), e adaptei para mandar de tempos em tempos (feiamente com um for “infinito”), simplesmente no fim do dia eu mato o processo e ele para de encher, para usar copie o conteudo do script em um arquivo em branco e configure :
#!/usr/bin/perl
for($i=0;$i < 9999 ; $i++) {
print “Content-type: text/html\n\n”;
$title=’Lembrete’;
$to=’eu@samircury.eng.br’; # MUDE MEU e-mail!!!
$from= ‘lembrete@samircury.eng.br’; # MUDE isto também!!
$subject=’Lembrete’;
open(MAIL, “|/usr/sbin/sendmail -t”);
## Mail Header
print MAIL “To: $to\n”;
print MAIL “From: $from\n”;
print MAIL “Subject: $subject\n\n”;
## Mail Body
print MAIL “Aqui vai a mensagem do lembrete \n”;
close(MAIL);
sleep(600); # define o intervalo de 10 minutos para cada e-mail
}
Lembre-se que ele vai mandar no intervalo configurado
bom proveito!
