Tava olhando as mensagem antiga e achei isso:
A pessoa tava querendo que quando recebece um e-mail com o assunto "extrato
de horas" o programa captura-se o login da pessoa, retirando a parte do
@dominio , e envia-se um email pra este usuario com o extrato. E eu todo
precisando disso mesmo... mas tem jeito de "editar" o e-mail usado o
open()??
Mas eu n�o sei o que � .forward nem aliases ( sei + ou -, n�o sei como
usar )
O meu servidor usa Unix... d� pra fazer???
Tem como vcs explicarem a resposta???
##### RESPOSTA enviada por Marco A P D'Andrade
Uma outra maneira � colocar no .forward ...
Em meu /etc/aliases
daemon: "| /usr/local/script/mailer.pl daemon"
autosenha: "| /usr/local/script/mailer.pl autosenha"
Parte (relevante) de /usr/local/script/mailer.pl
#!/usr/local/bin/perl
#
( $user )= @ARGV;
unless ( $to ) { $to = "marco"; }
$Assunto = "";
$From = "";
... open log ...
while (<>) {
$line = $_;
if ( $line =~ /^Subject:/ ) { $Assunto = substr($line,9);
} elsif ( $line =~ /^To:/ ) { $To = substr($line,4);
} elsif ( $line =~ /^From:/ ) { $From = substr($line,6);
}
print LOG $line;
}
close(LOG);
if ( $Assunto =~ /^Extrato: (\d\d\d\d)/ ) {
... gerar extrato para $1 ...
... enviar par a $From ...
}
if ( $From =~ /Comercial/i ) { $to = "sermidi";
} elsif ( $From =~ /consulta/i ) { $to = "ronaldo";
}
... opcionalmente vc pode enviar a vc o email, pois em muitos casos ...
... o usuario vai questionar outros assuntos ...
########
VALEU A TODOS..
... Felipe ...
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
