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 1.150 second using v1.01-cache-2.11-cpan-49f99fa48dc )