Data-Passphrase
view release on metacpan or search on metacpan
examples/meter/meter.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Passphrase Strength Meter</title>
<script type="text/javascript" src="meter.js"></script>
</head>
<body style="text-align: center">
<div id="content">
<form id="myform">
<h1>Passphrase Strength Meter</h1>
<h2>Passphrase:</h2>
lib/Data/Passphrase/Apache.pm view on Meta::CPAN
$debug and warn 'printing form';
# print header
my $r = $arg_ref->{r};
$r->content_type("text/html");
if (!$IS_MOD_PERL_2) {
$r->send_http_header();
}
print <<"END";
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head><title>Validate Passphrase</title></head>
<body>
END
# print validation message if validation occurred
if (defined $message) {
print '<p><strong>Passphrase ', encode_entities($message),
"score: $score\%</strong></p>";
( run in 0.732 second using v1.01-cache-2.11-cpan-49f99fa48dc )