# ! /usr/local/bin/perl
employer strict ;
employer les avertissements ;
employer le sendmail ;
employer POSIX ;
mon $html ;
mon $cnt = 0 ;
mon $dte = strftime « %A, %B %d, %Y - %T », localtime ;
s'ouvrir DEDANS, « tix_file » ou mourir « ne pourrait pas ouvrir tix_file : $ ! » ;
$html. = « \ n
\ n " ;
$html. = « Rapport de billet\ n " ;
tandis que ()
{
chomp ;
$cnt++ ;
mon $url = « https://ibjira.uk.mmm.com/jira/browse/$_ » ;
$html. = « billet $_
\ n " ;
}
$html. = «
\ n " ;
$html. = « a trouvé des disques de $cnt
\ n " ;
$html. = « \ n\ n " ;
se fermer DEDANS ;
# configurer les options d'email
mon $sendto = « [email protected], [email protected] » ;
mon $from = « email automatisé » ;
mon $subject = « rapport de billet pour $dte » ;
sendmail ($sendto, $from, $subject, $html) ;
sortie ;
|
