Apache2-AuthenSecurID
view release on metacpan or search on metacpan
Auth/Auth.pm view on Meta::CPAN
p {
font-family: sans-serif;
margin-left: auto;
margin-right: auto;
}
</style>
</head>
<html>
<!-- $session_id -->
<form method="post">
<fieldset style="width: 500px; margin-left: auto; margin-right: auto; background: #cccccc;">
<legend>SecurID Authorization</legend>
<p>$message</p>
<br/>
<label for="username">Username :</label>
<input type="text" name="username" value="$username" id="username"/>
<br/>
$extra_input
<br/>
<br/>
<input type="submit" name="Submit" value="Enter"/>
Auth/RCS/Auth.pm,v view on Meta::CPAN
p {
font-family: sans-serif;
margin-left: auto;
margin-right: auto;
}
</style>
</head>
<html>
<!-- $session_id -->
<form method="post">
<fieldset style="width: 500px; margin-left: auto; margin-right: auto; background: #cccccc;">
<legend>SecurID Authorization</legend>
<p>$message</p>
<br/>
<label for="username">Username :</label>
<input type="text" name="username" value="$username" id="username"/>
<br/>
$extra_input
<br/>
<br/>
<input type="submit" name="Submit" value="Enter"/>
RCS/ace_initd,v view on Meta::CPAN
desc
@Created
@
1.5
log
@Removed Config::General and switched to command-line configuration.
Added --daemon option to automatically background the process.
Added some other options.
@
text
@#!/opt/ActivePerl-5.8/bin/perl
# $Id: ace_initd,v 1.4 2001/06/22 19:08:46 root Exp $
use Authen::ACE;
use IO::Socket::INET;
use Sys::Syslog;
RCS/ace_initd,v view on Meta::CPAN
"pidfile=s" => \$pidfile, "p=s" => \$pidfile
);
# make the secret not visible in 'ps' output
if ( $secret ) {
my $newname = $0;
$newname =~ s/$secret/###########/g;
$0 = $newname;
}
# background the program if --daemon/-d is specified
if ( $daemon ) {
my $pid = fork();
if ( $pid ) {
exit 0;
}
else {
eval {
require POSIX;
POSIX::setsid();
};
"pidfile=s" => \$pidfile, "p=s" => \$pidfile
);
# make the secret not visible in 'ps' output
if ( $secret ) {
my $newname = $0;
$newname =~ s/$secret/###########/g;
$0 = $newname;
}
# background the program if --daemon/-d is specified
if ( $daemon ) {
my $pid = fork();
if ( $pid ) {
exit 0;
}
else {
eval {
require POSIX;
POSIX::setsid();
};
( run in 0.554 second using v1.01-cache-2.11-cpan-f56aa216473 )