#!/usr1/local/bin/perl5
# ________________________________________________________________
# File : iredirect.pl
# ________________________________________________________________
# This is a cgi script that is called in response to a redirect from
# the old imagine learning center address to the new Imagine the
# Universe! site.
# Author: Stephan Fantasia
# Date: 10/17/97
#
$magic_line = "Content-type: text/html\n\n";
print $magic_line;
$reqdoc = $ENV{"QUERY_STRING"};
$rootdir = '/www/htdocs/imagine/';
$files_msg ='';
if ($reqdoc !~ /\/$/) {
@tmp = split(/\//,$reqdoc);
$file = $tmp[@tmp-1];
if ($file ne '') {
chdir $rootdir;
$newfiles = `find . -name $file`;
@tmp = split(/\n/,$newfiles);
$numbfiles = @tmp;
if ($numbfiles) {
$files_msg = "Perhaps you will find what you are looking for in:
";
foreach $newfile (@tmp) {
$newfile =~ s/^.//;
$newfile = '- http://imagine.gsfc.nasa.gov'.$newfile;
$files_msg .= $newfile;
}
$files_msg .= '
';
}
}
}
$Body = <
The Learning Center Has Changed Its Look
The Learning Center has changed its look!
Please go to Imagine the Universe! at:
$files_msg