Registration Sample CGI


#!/usr/bin/perl -w
use CGI;
use Env;

my $q = new CGI;

my $u = "http://" . $ENV{"HTTP_HOST"} . $ENV{REQUEST_URI};

$r = $ENV{"REMOTE_ADDR"};
if (!$q->param("reg")) {
	$code = "";
	@quad = split(/\./, $r);
	foreach $q (@quad) {
		$code .= sprintf("%02x", $q);
	}
	$code .= $q->param("last") || "noname";
	$u .= "?reg=$code";
} else {
	$u .= "?reg=$code";
}

print <<EOH;
Content-Type: text/html

<HTML><HEAD>
<TITLE>Registration successful!</TITLE>
EOH;

if (!$q->param("reg")) {
	<meta http-equiv="refresh" content="0;$u">
}

print <<EOH;
</HEAD>
<BODY>
<H3>Registration successful</H3>
<H4>Your registration code is: $code</H4>

<A HREF="$u+close=true">Click here to close.</A>
EOH

foreach $p ($q->param()) {
	print "<P>$p: ", $q->param($p), "</P>\n";
}

print <<EOH;
</BODY>
</HTML>
EOH

exit 0;