#####################
#                   #
#  Slashdot.pl for  #
# SlashDot headline #
#     retrival      #
#  tessone@imsa.edu #
#   Chris Tessone   #
#   Licensing:      #
# Artistic License  #
# (as perl itself)  #
#####################

use strict;

my $no_slashlines = 0;

BEGIN {
    eval "use LWP::UserAgent";
    $no_slashlines++ if $@;
}

sub getslashdotheads {
    return '' if $no_slashlines;
    my $ua = new LWP::UserAgent;
    $ua->timeout(12);

    my $slashindex = new HTTP::Request('GET','http://www.slashdot.org/');
    my $response = $ua->request($slashindex);

    if($response->is_success) {
	my $flathtml = $response->content;
	my @indexhtml = split(/\n/,$flathtml);
	foreach(@indexhtml) {
	    next unless(/^ <TABLE/);
	    my @headlines = m|<IMG src="http://yoda.blockstackers.com/slc.gif" width=\d+ height=\d+ alt="" align=top><FONT size=\d color="[\#A-Fa-f\d]{7}" face="[\w,]+"><B>([^(</B>)]+)</B>|g;
	    return(join("; ",@headlines));
	}
    } else {
	return "i couldn't get the headlines. sorry. :(";
    }
}

1;