#!perl -w use strict; use CGI q~:standard~; use DBI; use CGI::Cookie; use CGI::Carp q~fatalsToBrowser~; my(%Cookies, @Values, $Username, $Password, $Error, $DBH, $STH); print "Content-type: text/html\n\n"; %Cookies = fetch CGI::Cookie; if ($Cookies{'FFAdmin0229'}) { @Values = $Cookies{'FFAdmin0229'} -> value; $Username = $Values[0]; $Password = $Values[1]; } else { print redirect(-location => 'http://admin.ffinfo.com/'); } ##

##