#! /usr/local/bin/perl
usare rigoroso;
usare gli avvertimenti;
usare il sendmail;
usare POSIX;
il mio $html;
mio $cnt = 0;
mio $dte = strftime “%A, %B %d, %Y - %T„, localtime;
aprir DENTRO, “tix_file„ o morire “non potrebbe aprire tix_file: $! „;
$html. = “\ n
\ n ";
$html. = “Rapporto del biglietto\ n ";
mentre ()
{
chomp;
$cnt++;
mio $url = “https://ibjira.uk.mmm.com/jira/browse/$_„;
$html. = “biglietto $_
\ n ";
}
$html. = “
\ n ";
$html. = “ha trovato le annotazioni di $cnt
\ n ";
$html. = “\ n\ n ";
chiuder DENTRO;
# configurare le opzioni del email
mio $sendto = “[email protected], [email protected]„;
mio $from = “email automatizzato„;
mio $subject = “rapporto del biglietto per $dte„;
sendmail ($sendto, $from, $subject, $html);
uscita;
|
