Apache-SecSess
view release on metacpan or search on metacpan
demo/ht/form.comp view on Meta::CPAN
<& /index.comp, title => $title, content => $content &>
<%init>
my $content = '';
my $prompt;
## top matter
if ($message) { $content .= "<center><h2>$message</h2></center>\n"; }
$content .= <<"ENDCONTENT";
Please enter the following information:
<form method="POST" action="$action">
<table>
ENDCONTENT
## inputs
for (@$inputs) {
$prompt = ($_->{type} eq 'hidden') ? '' : $_->{prompt};
$content .= sprintf(
'<tr><td>%s</td><td><input type="%s" name="%s" value="%s"></td></tr>',
$prompt, $_->{type}, $_->{name}, $_->{value}
);
}
## end matter
$content .= <<"ENDCONTENT";
<tr><td></td><td>
<input type="submit" value="$submit">
</td></tr>
</table>
</form>
ENDCONTENT
</%init>
<%args>
$title => 'What are you looking at?'
$action => 'http://localhost/'
$inputs => [{name => 'what', prompt => 'What?', type => 'text'}]
$message => ''
$submit => 'Say What'
</%args>
demo/ht/john.sec.acme.com/authen/index.html view on Meta::CPAN
my $sorry = 'Please contact the system administrator.';
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied PIN code was incorrect. $pta",
disabled => "$err Your account has been temporarily disabled. $sorry"
);
my $inputs = [
{name => 'pin', prompt => 'Your PIN Code:', type => 'password'}
];
my $action = "https://john.sec.acme.com/authen?url=$url";
</%init>
<%args>
$uid => undef
$msg => undef
$url => undef
</%args>
demo/ht/john.sec.acme.com/changeid/index.html view on Meta::CPAN
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied password was incorrect. $pta",
disabled => "$err The account has been temporarily disabled. $sorry"
);
my $action = 'https://john.sec.acme.com/changeid';
my $inputs = [
{name => 'newuid', prompt => 'Desired User ID:', type => 'text'},
{name => 'pw', prompt => 'Your Password:', type => 'password'}
];
</%init>
<%args>
$msg => undef
$url => undef
</%args>
demo/ht/lysander.acme.com/authen/index.html view on Meta::CPAN
my $sorry = 'Please contact the system administrator.';
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied password was incorrect. $pta",
disabled => "$err Your account has been temporarily disabled. $sorry"
);
my $inputs = [
{name => 'uid', prompt => 'Your Login ID:', type => 'text'},
{name => 'pw', prompt => 'Your Password:', type => 'password'}
];
my $action = "https://lysander.acme.com/authen?url=$url";
</%init>
<%args>
$msg => undef
$url => undef
</%args>
demo/ht/milt.sec.acme.com/changeid/index.html view on Meta::CPAN
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied password was incorrect. $pta",
disabled => "$err The account has been temporarily disabled. $sorry"
);
my $action = 'https://john.sec.acme.com/changeid';
my $inputs = [
{name => 'newuid', prompt => 'Desired User ID:', type => 'text'},
{name => 'pw', prompt => 'Your Password:', type => 'password'}
];
</%init>
<%args>
$msg => undef
$url => undef
</%args>
demo/ht/noam.acme.org/changeid/index.html view on Meta::CPAN
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied password was incorrect. $pta",
disabled => "$err The account has been temporarily disabled. $sorry"
);
my $action = 'https://john.sec.acme.com/changeid';
my $inputs = [
{name => 'newuid', prompt => 'Desired User ID:', type => 'text'},
{name => 'pw', prompt => 'Your Password:', type => 'password'}
];
</%init>
<%args>
$msg => undef
$url => undef
</%args>
demo/ht/stu.transacme.com/authen/index.html view on Meta::CPAN
my $sorry = 'Please contact the system administrator.';
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied PIN code was incorrect. $pta",
disabled => "$err Your account has been temporarily disabled. $sorry"
);
my $inputs = [
{name => 'pin', prompt => 'Your PIN Code:', type => 'password'}
];
my $action = "https://stu.transacme.com/authen?url=$url";
</%init>
<%args>
$uid => undef
$msg => undef
$url => undef
</%args>
demo/ht/stu.transacme.com/changeid/index.html view on Meta::CPAN
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied password was incorrect. $pta",
disabled => "$err The account has been temporarily disabled. $sorry"
);
my $action = 'https://john.sec.acme.com/changeid';
my $inputs = [
{name => 'newuid', prompt => 'Desired User ID:', type => 'text'},
{name => 'pw', prompt => 'Your Password:', type => 'password'}
];
</%init>
<%args>
$msg => undef
$url => undef
</%args>
demo/ht/tom.acme.com/changeid/index.html view on Meta::CPAN
my $err = '<font color="red" size=5>An Error Occurred.</font><p>';
my $noerr = '<font color="#000000" size=5>Logging in.</font><p>';
my %message = (
empty => "$err One or more required fields contained no data. $pta",
unknown => "$err Unknown user. $pta",
again => "$err The supplied password was incorrect. $pta",
disabled => "$err The account has been temporarily disabled. $sorry"
);
my $action = 'https://tom.acme.com/changeid';
my $inputs = [
{name => 'newuid', prompt => 'Desired User ID:', type => 'text'},
{name => 'pw', prompt => 'Your Password:', type => 'password'}
];
</%init>
<%args>
$msg => undef
$url => undef
</%args>
utils/mkcerts view on Meta::CPAN
#
# create root request config file
#
$configinfo = <<"END_CONFILE";
[ req ]
default_bits = $rsabits
default_md = $digest
default_keyfile = $cakey
distinguished_name = req_distinguished_name
prompt = no
output_password = $capasswd
[ req_distinguished_name ]
C = $dnc
ST = $dnst
L = $dnl
O = $company
OU = www.$dns
CN = $company Root CA
emailAddress = trustmaster\@$dns
utils/mkcerts view on Meta::CPAN
$enccmd = ($opt_e) ?
"output_password = $spasswd" :
"encrypt_key = no";
$configinfo = <<"END_CONFILE";
[ req ]
default_bits = $rsabits
default_md = $digest
default_keyfile = $key
distinguished_name = req_distinguished_name
prompt = no
$enccmd
[ req_distinguished_name ]
END_CONFILE
for $dtag (@x500tags) {
if (defined($hr->{$dtag})) {
$configinfo .= sprintf("%s\t\t= %s\n", $dtag, $hr->{$dtag});
}
}
( run in 1.376 second using v1.01-cache-2.11-cpan-6aa56a78535 )