#!/star/Perl/bin/perl
use Astro::Time;
use Astro::Coord;
use Astro::Misc;
use IO::Handle; 
BEGIN { 
        use CGI::Carp qw(carpout fatalsToBrowser); 
        open ("LOG", ">>/data/sss/cgilog.log") or die "Can't to open cgilog: $!
\n"; 
        carpout("LOG"); 
} 
$EMAIL="6df\@roe.ac.uk";
$HTMLDOCCMD="/home/mar/htmldoc-1.8.27/htmldoc/htmldoc ";
#$BASEURLJSP="http://horus.roe.ac.uk:8080/6dfgs";
$BASEURLJSP="http://www-wfau.roe.ac.uk:8080/6dfgs";
$SPECBASE="/data/6dFGS";
$TARGBASE="/data/6dFGS";

$DR2GIFS="$SPECBASE/dr2_spec/gifs";
$DR3GIFS="$SPECBASE/sdf_dr3";

$DR2FITSDIR="dr2_fits/fits";
$DR3FITSDIR="dr3_fits/fits";

$DR2FITS="$TARGBASE/$DR2FITSDIR";
$DR3FITS="$TARGBASE/$DR3FITSDIR";

#$BASEURL="http://horus.roe.ac.uk/data/6dFGS";
$BASEURL="http://www-wfau.roe.ac.uk/data/6dFGS";

#$BASECGIURL="http://horus.roe.ac.uk/6dFGS/cgi-bin";
$BASECGIURL="http://www-wfau.roe.ac.uk/6dFGS/cgi-bin";

$CGIDIR="/home/mar/6dFGS";
$DR2FITSURL="$BASEURL/$DR2FITSDIR";
$DR3FITSURL="$BASEURL/$DR3FITSDIR";
$TMPWEB="/data/6dFGS/tmp";
#$BASETMPURL="http://horus.roe.ac.uk/data/6dFGS/tmp";
$BASETMPURL="http://www-wfau.roe.ac.uk/data/6dFGS/tmp";

$JPEGBASE="/data/6dFGS/jpeg";
$JPEGURL=$BASEURL;

$SERVERNAME="horus";
$ENV{'PGPLOT_FONT'}="/star/bin/grfont.dat";
#print "Content-type: text/html\n\n";
$ENV{'PATH'} = "/usr/bin:/bin:/home/nch/bin";
#print "$ENV{'LD_LIBRARY_PATH'}<p> ssssss";
#$ENV{'LD_LIBRARY_PATH'} = $ENV{'LD_LIBRARY_PATH'}.":/star/lib";
$ENV{'LD_LIBRARY_PATH'} = "/star/lib";
$ENV{'SURVEY_DIR_N'} = "/scatn/scos";
$ENV{'SURVEY_DIR_S'} = "/scats/scos";
$ENV{'SURVEY_DIR_H'} = "HAsurvey";
$ENV{'SSS_DATA_DIR'} = "/home/mar/webprogs";
$ENV{'SURVEY_DIR'} = "/scats/scos";




#$BASEWWWURL="http://horus.roe.ac.uk/data/sss";
$BASEWWWURL="http://www-wfau.roe.ac.uk/data/sss";

$BASEWWWDIR="/data/sss";
$WEBPROGSDIR="/home/mar/webprogs/";
$NIGEROGSDIR="/home/nch/bin/";
$IMDIR="/usr/local/bin/";
$IMCONVERT=$IMDIR."convert -negate -level 80%,100%,1.0";
$HAIMCONVERT=$IMDIR."convert -level 40%,100%,1.0";
$GSDIR="/usr/bin/";
$IMCOPY=$WEBPROGSDIR."imcopy";
$HABLOCKDIR="/data/sss/hablock";
$HABLOCKURL=$BASEWWWURL."/hablock";
$HTMLDOCCMD="/home/mar/htmldoc-1.8.27/htmldoc/htmldoc ";

$logDir=$TMPWEB."/logs/";
sub cgiLog {
    my $cgiName=$_[0];
    my $ip=$_[1];
    my $bytesSent=$_[2];
    my $extra=$_[3];
    my $err=$_[4];
    my $logString=$cgiName.",".$ip.",".$bytesSent.",".$extra.",".$err;
($sec,$min,$hour,$day,$mon,$year,$a1,$a2,$a3) = localtime (time);

$year=$year+1900;

$thisMonth= (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon];
$mon++;
$timeStamp=sprintf("%02d",$day)."/".$thisMonth."/".$year." ".sprintf("%02d",$hour).":".sprintf("%02d",$min).":".sprintf("%02d",$sec);
$logFile=$logDir."cgi".$year."_".sprintf("%02d",$mon)."_".sprintf("%02d",$day).".log";
$logString=$timeStamp.",".$logString;
open(LOGFILE, ">> $logFile") || die "cant open logfile: $!";
print LOGFILE "$logString\n";
close(LOGFILE);
}