TEST

#!/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 "

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 ""; ##

##


#!/usr/local/bin/perl

use CGI qw(:standard);

@jid = param('JobID');

  
  
print "Content-type: text/html\n\n";

print "TEST SCRIPT";
print "";

foreach $jid (@jid) {

print "+$jid";

    }

$ENV{'QUERY_STRING'} eq (print "+$jid");
#$ENV{'QUERY_STRING'} = print "+$jid";

}


print "
http://www.foo.com/cgi-bin/test2.pl?$ENV{'QUERY_STRING'}
";
print "
http://www.foo.com/cgi-bin/test2.pl?$ENV{'QUERY_STRING'}";





print "

";