#!/usr/local/bin/perl5

$today=(1,2,3,4,5,6,7)[(localtime)[6]];
$error1=`rm /web/motp/html/pool/images/hendrick_int/live`;
$error2=`ln -s /web/motp/html/pool/images/hendrick_int/$today /web/motp/html/pool/images/hendrick_int/live`;
$error3=`rm /web/motp/html/pool/images/hendrick/live`;
$error4=`ln -s /web/motp/html/pool/images/hendrick/$today /web/motp/html/pool/images/hendrick/live`;
$error4="hi there";
if ($error1 || $error2 || $error3 || $error4){
    open MAIL, "|/usr/sbin/sendmail -t -oi" or return;
    print MAIL "To:brian\@cobaltgroup.com\n";
    print MAIL "From:nobody\@cobaltgroup.com\n";
    print MAIL "Subject: hendrick directory error in /web/motp/html/shared/hendrick_int/switch.pl\n\n";
    print MAIL "$error1\n $error2\n$error3\n$error4";
    close (MAIL);
}
exit();