#calls appropriate command line pScripts # #!/home/ftp/gbdperl -w my $file = ">" . shift; my $site = shift; my $sect = shift; my $chpt = shift; my $page = shift; use lib "."; use Page; use gbd; open(NFILE, $file); print "File : " . $file . "\n"; print "Site : " . $site . "\n"; print "Sect : " . $sect . "\n"; print "Chpt : " . $chpt . "\n"; print "Page : " . $page . "\n"; print "\n\n"; $webPage= Page->new(); if($site eq "gbd"){ get_gbd( $webPage, $sect, $chpt, $page ); } $finalHTML = $webPage->createPage(); print "\n\n"; print NFILE $finalHTML;