#!/usr/bin/perl require ('/home/sites/inverse.org/www/offline/site.pl'); ## manga.cgi ## WEB INTERFACE ## Author : Andre Germain ## Start : August 7, 1999 ## Last Edit : August 7, 1999 $VERSION = "1.00$SERVER"; parse_form(); if (-e "$realroot/books/manga/s$FORM{'v'}/$FORM{'p'}.gif") { print < Mega-Explosive Magical Legend SLAYERS Volume $FORM{'v'}, Page $FORM{'p'}
Chou-baku-mahou-den (Mega-Explosive Magical Legend) SLAYERS Volume $FORM{'v'}, Page $FORM{'p'}
Translations from Slayers Universe (http://www.inverse.org)



ENDFORM # foreach($_,keys(%ENV)) { print "$_ => $ENV{$_}
\n"; } $FORM{'p'}--; if (-e ("$realroot/books/manga/s$FORM{'v'}/" . $FORM{'p'} . ".gif")) { print <page $FORM{'p'} < ENDBLOCK } $FORM{'p'}++; $FORM{'p'}++; if (-e ("$realroot/books/manga/s$FORM{'v'}/" . $FORM{'p'} . ".gif")) { print <> page $FORM{'p'} ENDBLOCK } print "
\nreturn to manga index\n"; print "
\n"; } else { print "Location: res/404.shtml\n\n"; }