Help for this page

Select Code to Download


  1. or download this
    our $usemail        =   0;
our $mailto         =   'root@localhost';
...
our $mailserver     =   'smtp';

our $usestdout      =   1;
  2. or download this
    $Reporting::usemail = 1;
  3. or download this
    #!/usr/bin/perl
use Reporting qw/EMail Stdout/;
$Reporting::EMail::to = "root@server";
@report=("Everything is fine.","Nothing is broken.");
&Reporting::Send(@report);
  4. or download this
    package Reporting;
my @sendtasks;
...
    use EMail
    shift @sendtasks,\&EMail::Send;
}