#! /usr/local/bin/perl
usar estrito;
usar avisos;
usar o sendmail;
usar POSIX;
meu $html;
meu $cnt = 0;
meu $dte = strftime “%A, %B %d, %Y - %T”, localtime;
abrir DENTRO, “tix_file” ou morrer “não poderia abrir tix_file: $! ”;
$html. = “\ n
\ n ";
$html. = “Relatório do bilhete\ n ";
quando ()
{
chomp;
$cnt++;
meu $url = “https://ibjira.uk.mmm.com/jira/browse/$_”;
$html. = “bilhete $_
\ n ";
}
$html. = “
\ n ";
$html. = “encontrou registros de $cnt
\ n ";
$html. = “\ n\ n ";
fechar DENTRO;
# configurar opções do email
meu $sendto = “[email protected], [email protected]”;
meu $from = “email automatizado”;
meu $subject = do “relatório bilhete para $dte”;
sendmail ($sendto, $from, $subject, $html);
saída;
|
