#!/usr/bin/perl -- Ebay Monitor Program
use lib qw(/home/cyprus/whitton/lib);
use LWP::Simple;

system('/usr/bin/clear');

print "Ebay Report:\n------------\n";
@urls = qw(156047958 155166500 154059726);
    
foreach (@urls){
    $content = get("http://cgi.ebay.com/aw-cgi/eBayISAPI.dll?ViewItem&item=$_");

    if ($content =~ /<title>([^<]+)-\s([^<]+)</i) {
        print "$2\n";
    }

    print "http://cgi.ebay.com/aw-cgi/eBayISAPI.dll?ViewItem&item=$_\n";

    if ($content =~ /Currently<\/font><\/td>\n<td width="31%"><b>\$(\d+\.\d+)/) {
        print "Currently: \$$1\n";
    }

    if ($content =~ /<TITLE>[^(]+\((.+)\)/) {
        print "$1\n";
    }

    if ($content =~ m#Time left</font></td>\n<td width="31%"><b>([^<]+)<#) {
        print "Time left: $1\n\n";
    }
}