#!/usr/bin/perl -w
#

sub usage {
    print <<EOF;
Usage: ariswatch.pl
Watches for changes to the ARIS Threatcon level and pages me.
EOF
    exit 1;
}

use strict;
use LWP::UserAgent;
use Mail::Sendmail;

#if(scalar @ARGV != 1) {
#    usage();
#}

my $inited = 0;
my $oldlevel;
my $level;

while(1) {
  my $level = track();

  if($inited == 0) {
    $oldlevel = $level;
    $inited = 1;
    next;
  }

  if(defined $level && $oldlevel ne $level) {
    mail($oldlevel, $level);
    $oldlevel = $level;
    sleep 300;
  }
  else {
    sleep 300;
  }
}

sub mail {
  my $oldlevel = shift;
  my $level = shift;
  my %mail = (To => '1786955@skytel.com',
	      From => 'thalakan@lightconsulting.com',
	      Message => "ARIS Threatcon level changed: $oldlevel -> $level"
	     );
  sendmail(%mail) || die $Mail::Sendmail::error;
}

sub track {
  my @ret;
  my $url = 'http://www.securityfocus.com/';
#  my $url = 'http://graendal.lightconsulting.com/~thalakan/tester.html';

  my $ua = new LWP::UserAgent;
  my $req = new HTTP::Request GET => $url;

  my $res = $ua->request($req);
  if (! $res->is_success) {
    warn "Could not retrieve info: received error ". $res->code. "\n";
  }

  $res->content =~ m|(threatcon._ani.gif)|is;
  $1 =~ /threatcon(.)_ani.gif/;

  return $1;
}