CGI-Auth
1 match

 view release on metacpan or  search on metacpan

Auth.pm  view on Meta::CPAN 

<head>
<title>Login</title>
</head>
<body>
<p>Please enter your login information:</p>
DEFAULT
	}

	if ($msg)
	{
		print qq(<p style="color: red; font-weight: bold;">$msg</p>\n);
	}

	my $formaction = $self->{formaction};
	print <<START;
<form method=post action="$formaction">
<table border=0>
START

	print $self->FormFields;



( run in 0.715 second using v1.01-cache-2.11-cpan-39bf76dae61 )