root/trunk/misc/shutdown_notification.pl

#!/usr/bin/perl -w

use strict;

use Getopt::Long;
use Net::SMTP::TLS;

# parse command line options
my $reboot_flag = '1';
my $shutdown_time = '04:00';
GetOptions('reboot!' => \$reboot_flag, 'time=s' => \$shutdown_time);
unless($shutdown_time =~ m/^[012]\d:[012345]\d$/) {
    print "Invalid time: $shutdown_time\n";
    exit 1;
}

# email server config
my $smtp_server = 'smtp.gmail.com';
my $smtp_user = 'mat.booth@gmail.com';
my $smtp_password = 'music_trend';
my $smtp_port = 587;

# get list of each vhosts' admin email addresses
my %sites;
foreach my $conf (glob "./*/site.conf") {
    open CONF, $conf or die($!);
    $conf =~ s/\.\/(.*)\/site\.conf/$1/;
    while(<CONF>) {
        chomp;
        $sites{$conf} = $_ if s/^ServerAdmin\s+(\S*)/$1/i;
    }
}

foreach my $vhost (keys %sites) {

    # email config
    my $email_to = $sites{$vhost};
    my $email_from = 'admin@matbooth.co.uk';
    my $email_subject = "$vhost is going down for maintenance!";
    my $email_replyto = 'admin@matbooth.co.uk';

    # build smtp headers
    my @head;
    push(@head, "To: $email_to\n");
    push(@head, "From: $email_from\n");
    push(@head, "Subject: $email_subject\n");
    push(@head, "Reply-to: $email_replyto\n");
    push(@head, "Content-Type: text/plain; charset=UTF-8\n");
    push(@head, "Content-Transfer-Encoding: 8bit\n");
    push(@head, "\n");

    # build message body
    my @body;
    push(@body, "Dear Webmaster,\n\n");
    push(@body, "Recent security related kernel updates require that we reboot the server your website is hosted on. All services at $vhost will be unavailable from $shutdown_time for approximately 5-10 minutes. If this is inconvenient, please email me and I will reschedule the reboot for another time.\n\n");
    push(@body, "Peace out,\nMat\n\n");
    push(@body, "------------------------------\n\n");
    push(@body, "This is an automatically generated message. You are receiving it because the ServerAdmin directive in the Apache virtual host config for $vhost is set to this email address. If you do not believe this message was intended for you, please email me immediately so that I can correct the mistake.\n");
    push(@body, "\n");

    # send email
    my $smtp = new Net::SMTP::TLS($smtp_server, Port => $smtp_port, User => $smtp_user, Password => $smtp_password);
    $smtp->mail($email_from);
    $smtp->to($email_to);
    $smtp->data();
    $smtp->datasend(@head, @body);
    $smtp->dataend();
    $smtp->quit();
}

# issue shutdown command
if($reboot_flag eq "1") {
    system "shutdown -r $shutdown_time &";
} else {
    system "shutdown -h $shutdown_time &";
}
exit 0;