Jay Berryman wrote:
I was referring to your perl script.
It follows. I hasten to add that NO scripts work (we have a few dozen of them).
Also, "diagnostic writes" don't seem to get me anywhere. I get a
[Mon Nov 13 17:41:41 2006] [error] [client 10.1.5.58] (13)Permission denied:
exec of '/var/www/cgi-bin/aa_geocentric.pl' failed
[Mon Nov 13 17:41:41 2006] [error] [client 10.1.5.58] Premature end of script
headers: aa_geocentric.pl
cgi-bin/aa_geocentric.pl:
#!/usr/bin/perl
use CGI qw(:cgi-lib);
$| = 1;
#require ("cgi-lib.pl");
&ReadParse;
#$bindir = '/Users/williamh/bin';
$bindir = '/home/httpd/bin';
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head><title>Geocentric Positions</title></head>\n";
print "<body>\n";
print "<pre>\n";
$postype = $in{pos};
$object = $in{obj};
$year = $in{xxy};
$month = $in{xxm};
$day = $in{xxd};
$hour = $in{t1};
$minute = $in{t2};
$second = $in{t3};
$interval = $in{intd};
$units = $in{unit};
$number = $in{num};
$data = sprintf "%2i %4i %2i %2i %2i %2i %4.1f %2i %4i %5.1f
%2i",$postype,$year,$month,$day,$hour,$minute,$second,$object,$number,$interval,$units;
open (GeoPos, "| $bindir/geocentric ");
print (GeoPos "$data\n");
close (GeoPos);
print "</pre>\n";
print "<p><a href=\"../data/docs/GeoNotes.php\" TARGET=\"_blank\">Notes on the
data</a></p>\n";
print "<a href=\"javascript: history.go(-1)\">Back to form</a>\n";
print "</body>\n";
print "</html>\n";
--
redhat-list mailing list
unsubscribe mailto:redhat-list-request@xxxxxxxxxx?subject=unsubscribe
https://www.redhat.com/mailman/listinfo/redhat-list
