#calls appropriate command line pScripts
#
#!/home/ftp/gbdperl -w
package driverMake1;
require Exporter;

our @ISA = qw(Exporter);
our @Export = qw( make1 );

sub make1{


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;


}
