#!sdh return 'OK' unless SDH::inc('/.login', ''); SDH::inc('/.head'); $SDH::res->head('Status', 302); # TODO guarantee the TRUE condition if ($SDH::req->{uri}{scheme} && $SDH::req->{uri}{host}) { $SDH::res->head('Location', $SDH::req->{uri}{scheme} . '://' . $SDH::req->{uri}{host} . '/?msg=Login+Successful'); } else { $SDH::res->head('Location', 'http://ld.webring.com/?msg=Login+Successful'); } my $doc = $SDH::res->body(); $doc->head(<< "EOT"); Login Successful EOT $doc->body(<< "EOT");

You have logged in. Do you want to go home or back?

EOT 'OK';