#!/usr/bin/perl

$user = 'username';		# hotmail user name
$pass = 'password';		# hotmail password
$addr = 'fwdaddress@foo.com';	# forwarding address
$delay = 30;			# delay (in seconds) between sending messages
$delete_messages = 0;		# 0/1 => don't/do delete messages from the hotmail account

require LWP::UserAgent;
require HTTP::Cookies;

# set up our super cool web browser
$ua = LWP::UserAgent->new;
push @{$ua->requests_redirectable}, 'POST';
$ua->cookie_jar(HTTP::Cookies->new({}));
$ua->agent("yellow rubber ducky");

# let's get some "hot" mail
$html = $ua->get('http://www.hotmail.com')->content;

# we don't need no stinkin' javascript
while( $html =~ s/<input type=hidden name="([^"]*)" value="([^"]*)">// ){
	$form{$1} = $2;
}
$html = $ua->post( 'http://login.passport.net/uilogin.srf?id=2', \%form)->content;

# log on in
$html =~ /<form TARGET="_top" name="hotmail_com" action="([^"]*)"/;
$html = $ua->post( $1, ['login'         => $user,
                        'passwd'        => $pass,
                        'domain'        => 'hotmail.com',
                        'sec'           => '',
                        'mspp_shared'   => '',
                        'padding'       => substr( "xxxxxxxxxxxxxxxx",0, 16-length($pass))])->content;

# follow the magic meta
$html =~ /<META HTTP-EQUIV="REFRESH" CONTENT="0; URL=([^"]*)"/;
$html = $ua->get($1)->content;

# we definetly don't need no stinking internet explorer
$html =~ /<form name="cont" action="([^"]*)"/;
$html = $ua->post( $1, ['curmbox'       => 'F000000001', 
                        'HrsTest'       => ''])->content;
$base = $1;
$base =~ s/\/cgi-bin\/.*//;

# find out where we can get our free massages
$html =~ /_UM = "([^"]*)"/;
$UM = $1;
while( $html =~ s/<a href="javascript:G\('(\/cgi-bin\/getmsg?[^']*)'// ){
	if( $1 !~ /msgread/ ){
		push @messes, $1;
	}
}

# get the whole mess
foreach $mess(@messes){
	$html = $ua->get($base.$mess."&".$UM)->content;

	# junk it
	if( $delete_messages ){
		$html =~ /<a href="#" onclick="G\('([^']*)'.*>Delete<\/a>/;
		$ua->get($base.$1."&".$UM);
	}
	
	# go straight to the source (set the options for advanced view)
	$html =~ /<a href="([^"]*)" target="_blank">View E-mail Message Source<\/a>/;
	$html = $ua->get($1)->content;
	$html =~ /<A HREF="([^"]*)">here<\/A>/;
	$html = $ua->get($1)->content;

	# clean up the mess
	$html =~ s/<pre>\s*([\w\W]*)<\/pre>[\w\W]*/$1/;
	$html =~ s/&quot;/"/gi;
	$html =~ s/&lt;/</gi;
	$html =~ s/&gt;/>/gi;
	$html =~ s/&amp;/&/gi;
	$html =~ s/\n\.\n/\n .\n/g;
	$html =~ s/(\s+)To:.*/$1To: $addr/;

	open MAIL, "|/usr/sbin/sendmail -t";
	print MAIL $html;
	close MAIL;

	sleep($delay);
}