#!/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 "";
}
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;
}
}