#!/usr/local/bin/perl push (@INC, "\\foo\\cgi-bin\\hotjobs\\"); require "jobs_prefs.pl"; $jobdata="\\foo\\hotjobs\\data\\jobs.txt"; $sortfunction = sort_func; print "Content-type:text/html\n\n"; print "TEST"; print "
"; open(DB2,,$jobdata); @indata = ; close(DB2); print "


"; print "artwork

"; print "

Please click here". " to search our database of available jobs.

"; print "

"; print ""; print ""; print ""; print "\n"; @reverse = reverse(@indata); foreach $i (sort $sortfunction @reverse) { chop($i); ($Index,$Date,$Title,$Category,$JobCode,$Description,$Requirements,$Contract,$field9,$field10,$field11,$field12,$City,$State,$field15) = split("\t",$i,15); print ""; print ""; print ""; print ""; print ""; print "\n"; } #print "($reverse[0]('Date'))"; #$record1 = ($Date($reverse[0])); #print "$record1 "; print "
"; print "

APPLY?

"; print "

JOB #

"; print "

TITLE (Click to read the description)

"; print "

LOCATION

$JobCode$Title$City, $State

"; print "";