#!/usr/bin/perl
use CGI;
use Storable;
use MIME::Base64;
use CGI::Carp qw(fatalsToBrowser);
$hidden = "BAcIMTIzNDU2NzgECAgIAwMAAAAEAwAAAAAGAAAAcGFyYW1zCIIEAAAAc3RlcAQDAQAAAAiAHgAAAF9fZ2V0X3dvcmtmbG93X2J1c2luZXNzX3BhcmFtcwQAAABkYXRh";
$secret = "iAithang2ha6OoCenai7uoLigh5ijem4dieK1aene7Ce";
$nl = "\n
";
# CGI context
$query = new CGI;
$url = $ENV{REQUEST_URI};
$method = $ENV{REQUEST_METHOD};
# HTML header
print $query->header;
print "Validation workflow$nl";
# Process the form
if ($method eq "POST") {
$p_key = $query->param('key');
$p_state = $query->param('state');
my $state = Storable::thaw(decode_base64($p_state));
if ($p_key ne $secret) {
print "Wrong key: access denied!$nl"
} else {
print "Let's pretend you don't know the secret key, Mkay?$nl";
print "Welcome at step ". $state->{'step'} . " anyway!$nl";
}
# Print the form
} else {
print "$nl",
}
# HTML footer
print "";