#!/usr/bin/perl -w
use CGI;
use strict;
use Date::Calc qw(Today Day_of_Week Add_Delta_Days);
# Variables
my ($start,$nextday,$mon,$counter,$day1,$mail);
my ($year, $month, $day) = Today();
my $sendmail = "/usr/sbin/sendmail -oi -t -odq";
# E-Mail Config
my $to_mail = "coffeeDuke\@gmail.com";
my $send_to = "To: $to_mail\n";
my $reply_to = "Reply-to: $to_mail\n";
my $subject = "Subject: Test Email Send From PerlScript\n";
# Main
# NextDay = Mon-Fri | if Fri then NextDay = Mon
if (Day_of_Week($year, $month, $day) || "1,2,3,4") {
$counter = 1;
$day1 = Today();
$day1 = Today() + $counter;
$counter++;
$nextday = $day1.$month.$year;
$nextday = (length($day1) < 2) ? "0".$day1."." :$day1;
$nextday .= (length($month) < 2) ? "0".$month : $month;
$nextday .= ".";
$nextday .= $year;
}
# Calc. Nextday
if (Day_of_Week($year, $month, $day) == 5) {
$counter = 3;
$day1 = Today();
$day1 = Today() + $counter;
$counter++;
$nextday = $day1.$month.$year;
$nextday = (length($day1) < 2) ? "0".$day1."." :$day1;
$nextday .= (length($month) < 2) ? "0".$month : $month;
$nextday .= ".";
$nextday .= $year;
}
# Calc. Monday
while (Day_of_Week($year, $month, $day) != 1) {
($year, $month, $day) = Add_Delta_Days($year, $month, $day, 1);
}
$mon = (length($day) < 2) ? "0".$day."." :$day;
$mon .= (length($month) < 2) ? "0".$month : $month;
$mon .= ".";
$mon .= $year;
# Send Email
open(SM, "|$sendmail") or die "Cannot open $sendmail: $!";
print SM $reply_to;
print SM $subject;
print SM $send_to;
print (SM "Content-type: text/html\n\n");
# Mail Body
print (SM "");
print (SM "Mail message from CoffeeDuke
");
print (SM "Write some usefull Text here..
");
print (SM "Next expected Backups of Coffee Server (local Time):
");
print (SM "Master Server:" .$nextday, "around 10:00am
");
print (SM "Backup Server:" .$mon, "around 10:30am
");
print (SM "Regards,
");
print (SM "Backup Service DukeCoffee
");
print (SM "");
close(SM);
__END__