Gracious, benevolent monks:

I've got a file which amalgamates job listings from different categories of a website, and dumps them out. This worked fine at my old isp, and is fine at my new isp when run from the command line, but produces truncated output from a browser(it just stops printing at a point, making it useless), but produces no errors.

The platform was linux, now is freeBSD. I figured its a cgi thing, but I've been through ovid's tutorial, and even understood some of it.

#!/usr/bin/perl -w
use strict;
use CGI;
# get joblinks
# Check for recent jobs in 5 categories and return links 
# check for a few start and end dates
# category anchors, to avoid icky month transformations
    
my $query = CGI->new();            
my @begindate = split (/ /, scalar localtime);
my ($Q,$dow,$mon,$day,$hh_mm_ss,$tz,$yyyy) = @begindate;
my $endday = ($day - 6);
my $base = 'http://www.craigslist.org';
my @categories = qw/eng sad tch art bus nby\/apa  nby\/roo/;

print $query->header( "text/html" ),
        $query->start_html(-title   => "CraigsList Distillate",
                         -bgcolor => "#ffffaa" ),
      $query->h1( "GetJobs.pl" );
 print "<a name = top >";
 
foreach (@categories) {
print "<a href = \#$_>$_ </a> &nbsp;";
                        }    
                                            
for my $i (0 .. $#categories) {
    open HANDLE_IN, "lynx -source http://www.craigslist.org/sfo/$categ
+ories[$i] |" or die "can't open HANDLE_IN $!";
    my $grab = 0;
    while (<HANDLE_IN>) {
    my $newdate = &newdate($_);
        next unless(($newdate) && (/bgcolor/)) || ($grab ne 0);
        print "<a name = $categories[$i]><br><b>  $categories[$i] </b>
+ <BR> <a href = \#top>Top </a>" if $grab == 0;
        s|href=\/|href=$base\/|ig;
        $grab++;
        my $olddate = &olddate($_);
        print unless $olddate; 
        last if $olddate;
                           }                
     close HANDLE_IN;    
                                  }
print $query->end_html;
sub olddate { #is the date more than a few days old?
return () unless /\s([\w]{3}\s[\d]+)[\w]{2}/;
my ($mon, $dd) = split (/ /, $1);
my $test = $dd - $endday;
$test <= 0 ? (1) : ();
                }         
                        
sub newdate { #is the date less than a few days old?
    return () unless /([\w]{3}\s[\d]+)/;
    my ($mon, $qd) = split (/ /, $1);
    my $test = $qd - $endday;
    $test >= 0 ? (1) : ();
                }
[download]

Thanks for any insights or comments.
http://wutare.pair.com/~frk/cgi-bin/getjobs.pl
to see it f->up.

http://vader.inow.com/~mrk/cgi-bin/getjobs.pl
to see it work.
mkahn