use Milkbone;
use Net::SMTP;

use strict;
use warnings;

sub sendmail
{
    print "sending message";;
    my ($sub, $text, $user) = @_;
    my $smtp = Net::SMTP->new('smtpauth.earthlink.net', 
                              Hello => 'milkbone.org', Debug => 1);

    $smtp->auth('batkins86@earthlink.net', 'superfly');
    $smtp->mail("$user\@milkbone.org");
    $smtp->to('savannah@batkins.com');

    $smtp->data();
    $smtp->datasend("To: \n");
    $smtp->datasend("From: Milkbone Monitor <$user\@milkbone.org>\n");
    $smtp->datasend("Subject: $sub \n");
    $smtp->datasend("\n");
    $smtp->datasend($text);
    $smtp->dataend();

    $smtp->quit;
}

register_hook("msg_in", sub {
        print "msg received";
        return unless hook("protocol_away_status");
        sendmail('Message Received', "Received the following message from $ARGS{-user}:\n\n$ARGS{-msg}", $ARGS{-user});
});

1;