sending_email
This is an old revision of the document!
Sending email
#!/usr/bin/perl -w $sysadmin = "user\@domain.com"; $script_name = "test"; $archive_data_dir = "/a/b/c"; $latest_file_download = `ls -1 $archive_data_dir| tail -n 1`; now(); `echo '$now\n\nLast saved file: $latest_file_download' | mailx -s '$script_name.pl reports stale source files' $sysadmin`; sub now { $now = `date`; chomp($now); }
sending_email.1587419021.txt.gz · Last modified: 2020/04/20 17:43 by juckins