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();
        };

ace_initd  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();
        };



( run in 0.554 second using v1.01-cache-2.11-cpan-f56aa216473 )