#! /usr/bin/perl -w
# This program displays data from the WDS.
BEGIN { push @INC, "../" }
use astroUtils;
use CGI qw(:standard); # The Perl CGI processing class.
use DBI;
use Math::Trig;
use strict;
open CT, "zTestCount" or die "Can't open zTestCount.\n";
my $ct = readline CT;
close CT;
chomp $ct;
$ct++;
open CT, ">zTestCount" or die "Can't write zTestCount.\n";
print CT "$ct\n";
close CT;
# open T1, ">TestFile" or die "Can't write TestFile.\n"; #TEST
my $pi = 3.1415926535897932384626433;
my $d2r = $pi / 180;
my $h2r = $pi / 12;
my $tpi = $pi * 2;
my $east = param('east');
my $west = param('west');
my $north = param('north');
my $south = param('south');
my $err = "";
unless($east =~ /\d/) { $err = "Eastern boundary not defined!
"; }
unless($west =~ /\d/) { $err .= "Western boundary not defined!
"; }
unless($north =~ /\d/) { $err .= "Northern boundary not defined!
"; }
unless($south =~ /\d/) { $err .= "Southern boundary not defined!
"; }
$north = ckVal($north);
$south = ckVal($south);
$east = ckVal($east);
$west = ckVal($west);
if ($err) {
print header, start_html("Undefined boundaries");
print $err;
print "Click your back button to continue.
";
print "