pls_newdbgroup

harvest是一个下载html网页得机器人

: # *-*-perl-*-*
	eval 'exec perl -S $0 "$@"'
	if $running_under_some_shell;  
#
#  pls_newdbgroup - Creates a new PLWeb database group
#
#  Darren Hardy, University of Colorado - Boulder, July 1995
#
#  pls_newdbgroup,v 1.1 1995/07/26 18:22:35 hardy Exp
#
$ENV{'HARVEST_HOME'} = "/usr/local/harvest" if (!defined($ENV{'HARVEST_HOME'}));
unshift(@INC, "$ENV{'HARVEST_HOME'}/lib");      # use local files 

$debug = 0;

&usage() if ($#ARGV != 1);

$dbgroup = shift(@ARGV);
$plsroot = shift(@ARGV);

$dbgroups = "$plsroot/DBGROUPS";
$dbgroupdir = "$plsroot/DBGROUPS/$dbgroup";

die "plsroot: $plsroot: $!\n" if (! -d $plsroot);
die "dbgroup dir: $dbgroups: $!\n" if (! -d $dbgroups);

die "Database Group already exists! $dbgroupdir\n" if (-d $dbgroupdir);

mkdir($dbgroupdir, 0755) || die "$dbgroupdir: $!\n";

$ofile = "$dbgroupdir/database.tab";
open(OUT, ">$ofile") || die "$ofile: $!\n";
print OUT "#  Created by pls_newdbgroup\n";
close(OUT);

$ofile = "$dbgroupdir/dblist.cpl";
open(OUT, ">$ofile") || die "$ofile: $!\n";
print OUT "#  Created by pls_newdbgroup\n";
close(OUT);

$ofile = "$dbgroupdir/acfile.tab";
open(OUT, ">$ofile") || die "$ofile: $!\n";
print OUT "#  Created by pls_newdbgroup\n";
close(OUT);

$ofile = "$dbgroupdir/dbprice.tab";
open(OUT, ">$ofile") || die "$ofile: $!\n";
print OUT "#  Created by pls_newdbgroup\n";
close(OUT);

$ofile = "$dbgroupdir/dbgroup.conf";
open(OUT, ">$ofile") || die "$ofile: $!\n";
print OUT "#  Created by pls_newdbgroup\n";
print OUT <<EOM;
# Configuration file pertaining to $dbgroup dbgroup.

# maxwait: sets the maximum time plweb will wait for a response.
Default: 15
maxwait = 15

# billing:  Turns billing "ON" or "OFF"
billing = OFF
EOM
close(OUT);

unlink("$dbgroupdir/acfile.tab");
unlink("$dbgroupdir/dbprice.tab");

mkdir("$plsroot/htdocs/$dbgroup", 0755);

$ofile = "$plsroot/htdocs/$dbgroup/dbdef.html";
open(OUT, ">$ofile") || die "$ofile: $!\n";
print OUT "Empty.  Created by pls_newdbgroup\n";
close(OUT);

exit 0; 					## END OF PROGRAM ##

sub usage {
	print STDERR "Usage: pls_newdbgroup dbgroup plsroot\n";
	exit 1;
}