#!/usr/local/bin/perl

unshift(INC, "/usr/local/lib");
require("perl-forms-lib");

&form'Parse();

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

if ($in{'jobcode'}) {
   &displayByJobNumber($in{'jobnumber'});
} else {
   &search($in{'search'});
}

sub displayByJobNumber {
  ($jobNumber) = @_;

  $file = $jobNumber . ".php";
	
  if (-f $file) {
     $fileContents = `cat $file`;
     print $fileContents;
  } else {
     print <<EOM;
There is no job with that job number. Pick another.
EOM
  }

} # end sub displayByJobNumber