#!/usr/local/bin/perl

package main;

use strict;
use Socket;
use Carp;

#-----------------------------------------------#
# ESTABLISH RELATIVE DIRECTORY VARIABLES		#
# e.g. $0=/users/dbbrowse/WWW/DEALQUERY/top.cgi	#
#-----------------------------------------------#
BEGIN 
{
	use Exporter();
	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS
		$baseprog $basedir $pcommon $ppages $pcgibin $pjava $linkpages
		$hostname);
	
	$VERSION=1.00;
	
	@ISA = qw(Exporter);
	@EXPORT = qw();
	%EXPORT_TAGS = ();
	
	# your exported package globals go here,
	# as well as any optionally exported functions
	@EXPORT_OK = qw(
		$baseprog $basedir $pcommon $ppages $pcgibin $pjava $linkpages
		$hostname $col_delim
	);

	my @path = split("\/",$0);

	$baseprog = $0;

	pop(@path);
	if (@path)
	{
		$basedir = join("\/",@path); # e.g. /users/dbbrowse/WWW/DEALQUERY
	}
	else
	{
		$basedir = ".";
	}
	    
	$pcommon = "$basedir/../LIB";
	$ppages = "$basedir/pages";
	$pcgibin = "$basedir/cgi-bin";
	$pjava = "$basedir/../JAVA";
	$linkpages = "/var/shares/ip/refacct/hp";

	$hostname = `hostname`;
	chop($hostname);		# remove \n;
}
use vars @EXPORT_OK;

use lib "$pcommon";
use Msg;
use Client;
use Querier;

my $help = <<ENDHELP;
	Usage: dbperl scriptname
	Connects to Querier and executes the perl 
	contained in scriptname, which typically will be
	of the form 
		\$query = qq/select .../;
		db_retrieve("mr",\$query);
		
	Expects to find Client.pm in ../LIB
	Be sure to end your script file with a 1
ENDHELP

if (@ARGV < 1) {
	print $help;
	exit;
}

&Client::make_socket_connections();

require "../LIB/sqlUtils.pl";

# for sub perfprofile
my $curtime;

while (@ARGV)
{
	require shift;
	&mySub();
} 

#---------------------------------------------------#
# 			Close the socket connections			#
#---------------------------------------------------#
&Client::close_socket_connections();

#==============================================================

sub perfprofile
{
	my $comment = shift;
	my $end = (POSIX::times())[0];
	printf "%.2f CPU seconds	%s\n", ($end - $curtime)/100, $comment
		if $curtime;
	$curtime = $end;
}