#!/usr/local/bin/perl

# stupid gallery redirector so people don't have to type "script.cgi" 
# anymore. Now you can give people meaningful URL's like:
# http://xxx.xxx.xxx/gallery/1 
#
# and they'll be redirected to
#
# http://xxx.xxx.xxx/gallery/script.cgi?page=1

$ROOTURL="http://blank.org/memory/gallery";

# ----------------------------------------------------------------------------

$q = $ENV{'SCRIPT_NAME'};
$q = (split("/",$q))[3];

print "Location: $ROOTURL/script.cgi?page=$q\n\n";