#!/usr/local/bin/perl

unshift(@INC, "/usr/local/lib");

require LWP::UserAgent;
use CGI qw(param);
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 = "../../06_jcl/jobdesc/" . $jobNumber . ".php"; 

  my $ua = LWP::UserAgent->new;
	$modfile = $file."?var=".$jobNumber;
	my $response = $ua->get('<url of directory location on my development server here>');
  
  if (-f $file) {
		 print $response->content;
		 
  } else {
     print <<EOM;
There is no job with that job number. Pick another.
EOM
  }

} # end sub displayByJobNumber