#!/usr/bin/perl

#########################################################
#                                                       #
#             MaximumEdge.com News Headlines            #
#                                                       #
#########################################################
#                                                       #
#   This perl script will fetch news headlines from     #
#   MaximumEdge.com and display them on your site.      #
#                                                       #
#   To install this script simply upload it to your     #
#   CGI-BIN and CHMOD it 755. You will also have to     #
#   rename is to "newsheadlines.cgi" for it to work.    #
#   You may also have to change the first line of this  #
#   script to the correct location of perl on your web  #
#   server. On any page where you want headlines to     #
#   appear, rename the page ending with '.shtml' and    #
#   add this code:                                      #
#                                                       #
#   <!--#include virtual="newsheadlines.cgi?top"-->     #
#                                                       #
#   Make sure that it points to the correct directory.  #
#   Replace "top" with whatever headlines you wish      #
#   to use. Your choices are "top", "entertainment",    #
#   "politics", "science", "technology", and "offbeat". #                               #
#                                                       #
#   If you have any questions or comments regarding     #
#   this script please send an e-mail using this form:  #
#   http://www.maximumedge.com/contact.shtml            #
#                                                       #
#########################################################

use LWP::Simple;
use LWP::UserAgent;
use File::stat;
print "Content-type:text/html\n\n";
print "<ul>";
if ($ENV{'QUERY_STRING'} eq "entertainment" || $ENV{'QUERY_STRING'} eq "science" || $ENV{'QUERY_STRING'} eq "top" || $ENV{'QUERY_STRING'} eq "technology" || $ENV{'QUERY_STRING'} eq "politics" || $ENV{'QUERY_STRING'} eq "offbeat"){
$file = "$ENV{'QUERY_STRING'}.txt";
$url = "http://www.maximumedge.com/cgi/news/$ENV{'QUERY_STRING'}.txt";
}
else {
$file = "top.txt";
$url = "http://www.maximumedge.com/cgi/news/top.txt";
}
open(IN,$file);
$date = <IN>;
@lines = <IN>;
close(IN);
chomp(@lines);
chomp($date);
if (time - $date > 14400) {
my $ua = new LWP::UserAgent;
my $res = $ua->request(HTTP::Request->new(GET => $url));
my $content = $res->content;
@lines = split("\n",$content);
open(OUT,">$file");
print OUT time;
print OUT "\n";
foreach $line (@lines) {
print OUT "$line\n";
}
close(OUT);
}
foreach $line (@lines) {
@parts = split(/\|/,$line);
print "<li><a href=\"http://www.maximumedge.com/cgi/news/article.cgi/$parts[0]\">$parts[1]</a> <font size=\"2\">$parts[2]</font></li>";
}
print "</ul>";