Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
#!/usr/bin/perl
# /\ Configure the above if needed. ##
######################################
# print "Content-type: text/html \n\n";
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
$query = new CGI;
$forwhat = $query->param('forwhat');
$username = $query->param('username');
$password = $query->param('password');
if ($username eq "") { print "Location: [URL unfurl="true"]http://www.vgacd.com/[/URL] \n\n"; }
if ($password eq "") { print "Location: [URL unfurl="true"]http://www.vgacd.com/[/URL] \n\n"; }
if ($forwhat eq "prem") { print "Location: [URL unfurl="true"]http://$username\:$password\@vgacd.com/members/[/URL] \n\n"; }
if ($forwhat eq "free") { print "Location: [URL unfurl="true"]http://$username\:$password\@vgacd.com/free/[/URL] \n\n"; }
if ($forwhat eq "email") { print "Location: [URL unfurl="true"]http://vgacd.mail.everyone.net/email/scripts/loginuser.pl?loginName=$username&user_pwd=$password&login=Login[/URL] \n\n"; }
if ($forwhat eq "prem") { print "Location: [URL unfurl="true"]http://$username\:$password\@vgacd.com/members/[/URL] \n\n"; }
if ($forwhat eq "email") { print "Location: [URL unfurl="true"]http://vgacd.mail.everyone.net/email/scripts/loginuser.pl?loginName=$username&user_pwd=$password&login=Login[/URL] \n\n"; }
sub GetLogon {
my($authtype,$authstring) = split(' ', $ENV{'HTTP_AUTHORIZATION'});
return "unknown" unless $authtype =~ /basic/i;
# We COULD use the following two lines, but it would include
# code that we don't really need much.
#use MIME::Base64 ();
#$decoded = MIME::Base64::decode($encoded);
# The following code comes from perlfaq9
# remove non-base64 chars
$authstring =~ tr[A-Za-z0-9+/][]cd;
# convert to uuencoded format
$authstring =~ tr[A-Za-z0-9+/][ -_];
# compute length byte
$len = pack("c", 32 + 0.75*length($authstring));
# uudecode
my $authstring = unpack("u", $len . $authstring);
# Now we have userid:password. Split them up
my ($user,$pswd) = split(':', $authstring);
# return them
return ($user,$pswd);
} # GetLogon
return ("unknown","") unless $authtype =~ /basic/i;
use CGI qw/ :standard /;
my $cookie = cookie(-name => 'sessid',
-value => $randomnumber,
);
print redirect(-location => 'entrypage.html',
-cookie => $cookie,
);
use CGI qw/ :standard /;
my $cookie = cookie(-name => 'sessid',
-expires => oldtime,
);
print header(-cookie => $cookie);