View ¡m../sdba/bin/X.pl¡n

---

# X; - checks to see if $INCOMINGMSG is an x # and restarts the visitor if it is # Allows the visitor to have an easy "backdoor" whenever they want it # # # All of these functions should start with package Common; # and end with the little 1; # $Common::continue - tells main script whether to stop # $Common::ERRORMSG - what to send back if visitor cant continue package Common; sub X { if ($INCOMINGMSG eq "X"||$INCOMINGMSG eq "x"){ $OUTMSG = "Press any key to continue"; $NEXTPAGE = "0"; print"\nIN X\nINCOMINGMSG=$INCOMINGMSG\nNP=$NEXTPAGE\n"; } } 1;