Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 220
#!/usr/local/bin/perl -T
# loc2earth.cgi - generates a redirect to Earth Viewer based on LOC record
# [ see or RFC 1876 ]
# by Christopher Davis
# $Id: loc2earth.fcgi 264 2005-04-06 09:16:15Z olaf $
die "I want 5.004 and I want it now" if $] < 5.004;
# if you don't have FastCGI support, comment out this line and the two lines
# later in the script with "NO FCGI" comments
use CGI::Fast qw(:standard);
# and uncomment the following instead.
#use CGI qw(:standard);
use Net::DNS '0.08'; # LOC support in 0.08 and later
$res = new Net::DNS::Resolver;
@samplehosts= ('www.kei.com',
'www.ndg.com.au',
'gw.alink.net',
'quasar.inexo.com.br',
'hubert.fukt.hk-r.se',
'sargent.cms.dmu.ac.uk',
'thales.mathematik.uni-ulm.de');
while (new CGI::Fast) { # NO FCGI -- comment out this line
print header(-Title => "RFC 1876 Resources: Earth Viewer Demo");
# reinitialize these since FastCGI would keep them around otherwise
@addrs = @netnames = ();
$foundloc = 0;
print '
RFC 1876 Resources: Earth Viewer Demo