#!/usr/bin/perl # # usage photo.cgi?gallery=GALLERY&photo=PHOTO # or photo.cgi?gallery=GALLERY # # This now only used by random calls somewhere in the sinister pages # - not called in the galleries themselves now on ftp.nodata.org # # require("cgi.pl"); require("sinister.pl"); # Get parameters &ReadParse; # Find which msg we're after; do some magic guesswork for spaces $GALLERY = $in{'gallery'}; $QUERY = $GALLERY; $PHOTO = $in{'photo'}; if ( $PHOTO ne "") { $QUERY .= "/" . $PHOTO . ".html"; } # Output HTML header #&HTML_Header; #print < # # #EOT #; # Generate frame - break OUT of frames and then create one # This now only used by random calls somewhere in the sinister pages # - not called in the galleries themselves now on ftp.nodata.org # # # # #Shh.. I'm redirecting you to the new home of the Sinister galleries at www.nodata.org... # print "Content-type: text/html\n\n"; print < EOT ; # #&Sinister_Footer(STDOUT,fromurl);