#!/usr/bin/perl print "Content-type: text/html\n\n"; #if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/news\/)(.*)/gi) { } else { print qq~ ~; } # End else if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/legend\/)(.*)/gi) { } else { print qq~ ~; } # End else if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/photos\/)(.*)/gi) { } else { print qq~ ~; } # End else if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/witnesses\/)(.*)/gi || $ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/trailer\/)(.*)/gi) { } else { print qq~ ~; } # End else if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/film\/)(.*)/gi) { } else { print qq~ ~; } # End else if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/haunted_set\/)(.*)/gi) { } else { print qq~ ~; } # End else #if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/storyboards\/)(.*)/gi) { } else { print qq~ ~; } # End else if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/news\/)(.*)/gi) { } else { print qq~ ~; } # End else if ($ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/filmmaker\/)(.*)/gi || $ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/contact\/)(.*)/gi || $ENV{'REDIRECT_SCRIPT_URI'} =~ m/(.*)(\/lucy\/merchandise\/)(.*)/gi) { } else { print qq~ ~; } # End else #foreach $variable (sort keys %ENV) { #print "$variable $ENV{$variable} \n"; #} #End foreach
We'd love to hear from you especially if you've experienced the ghost. Email Us	Jean Stratton - "A Haunting Voice" BACK TO WITNESSES