#!/usr/bin/perl if ($ENV{SERVER_NAME} =~ /jscdev/i) { require "/pub1/jscextern/cgilib/cgi_parse.pl"; } else { require "/webData/www.jsc.nasa.gov/cgi-bin/ap_pao/ap/pao/exitpage/cgi_parse.pl"; } %fields=&getcgivars; foreach $key (keys %fields) { $fields{$key} =~ s/[\<\>\x0f]//g; #--- Added to prevent hacker attempts } $newsite=$fields{"newsite"}; $oldsite=$fields{"oldsite"}; print "content-type: text/html\n\n"; print < Notice: Leaving a NASA Site

Notice! You are about to leave the NASA web family.

Continue to the new site. Stay at the current site.

Thank you for visiting this NASA web site. The web page you are about to visit is not part of the NASA web family, or nasa.gov domain. The site is not under NASA control, and NASA is not responsible for the information or links you may find there. NASA is providing this link only as a convenience. The presence of the link is not intended to imply NASA endorsement.