#!/usr/bin/perl #################################################################### # The Island Network page generation script # Copyright 2002 # Written By : Mit mit@a-tractor.com # http://a-tractor.srv2.com/TIN ... http://a-tractor.com #################################################################### &parse_form; $uniqueID = $FORM{'uid'}; print "Content-type: text/html\n\n"; print "GameIslands.Net\n"; print "
"; print "
"; if ( $uniqueID eq "" ) { &ShowNoUniqueID; } else { if ( $uniqueID eq "ffffffff" ) { &ShowInvalidUniqueID; } else { &ShowValidRegistrationPage; } } print "

© 2000-2004 Games For May.
"; sub ShowValidRegistrationPage { print ""; print "Thank you for choosing to register your Island.

The next stage in processing your registration is to confirm your Island's identity -\n"; print " to make sure that your payment is not used for the registration of any other Island."; print "For security reasons this is a manual process.

"; print ""; print "Our aim is to respond to all new registrations within 24 hours, but on occasion some may take up to 72 hours to complete.

"; print "Once the registration has been verified, you will receive an email giving you final instructions on activating your registered Island - If after 72 hours you have still not received this email, please contact sales\@gameislands.net

"; print ""; print "If you've previously authenticated your Island but it has since stopped working, please continue with this process and you will be contacted by the support team.

"; print ""; print "To complete this final stage of the registration process, Please fill in all your details below..
"; print "
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
"; print "Your Island Name :
"; print "(This must exactly match the name you (will) use for your Island.)
"; print "Your Name :
"; print "Your email address :
"; print "(Must be the same as the one you used on your payment)
"; print "
"; } sub ShowNoUniqueID { print ""; print "This script can only be used in conjunction with the registered version of the world server.

"; print "For further information, please see the website, theuniversal.net or contact\n"; print "enquiries\@theuniversal.net

"; } sub ShowInvalidUniqueID { print ""; print "Your registration details are invalid. This may be because your Island has not been able to properly authenticate itself with the world servers yet.
"; print "This means your registration cannot be processed automatically, but will not otherwise hinder the processing of your Island registration.

"; print "For further information, please see the website, theuniversal.net or contact\n"; print "enquiries\@theuniversal.net

"; } sub parse_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } }