#!/usr/bin/perl
$searchstring = "hp designjet";

$email = "kml\@comcast.net";
$localfile = "d:/ebay hacks/search 5-27.txt";

use WWW::Search;
$searchobject = new WWW::Search('Ebay');
$query = WWW::Search::escape_query($searchstring);
$searchobject->native_query($query);

# *** put results into two arrays ***
$a = 0;
while ($resultobject = $searchobject->next_result()) {
  $a++;
  ($itemnumber[$a]) = ($resultobject->url =~ m!item=(\d+)!);
  $title[$a] = $resultobject->title;
}

# *** eliminate entries already in file ***
open (INFILE,"$localfile");
  while ( $line = <INFILE> ) {
    for ($b = $a; $b >= 1; $b--) {
      if ($line =~ $itemnumber[$b]) {
        splice @itemnumber, $b, 1;
        splice @title, $b, 1;
      }
    }
  }
close (INFILE);
$a = @itemnumber - 1;
if ($a == 0) { exit; }

# *** save any remaining new entries to file ***
open (OUTFILE,">>$localfile");
  for ($b = 1; $b <= $a; $b++) {
    print OUTFILE "$itemnumber[$b]\n";
  }
close (OUTFILE);

# *** send email with new entries found ***
open(MAIL,"|/usr/sbin/sendmail -t");
  print MAIL "To: $email\n";
  print MAIL "From: $email\n";
  print MAIL "Subject: New $searchstring items found\n\n";
  print MAIL "The following new items have been listed on eBay:\n";
  for ($b = 1; $b <= $a; $b++) {
    print MAIL "$title[$b]\n";
    print MAIL "http://cgi.ebay.com/ws/eBayISAPI.dll?ViewItem&item=$itemnumber[$b]\n\n";
  }
close(MAIL);