Apache2-AuthenSecurID
view release on metacpan or search on metacpan
Auth/Auth.pm view on Meta::CPAN
# $Id: Auth.pm,v 1.10 2007/12/08 03:19:43 atobey Exp $
package Apache2::AuthenSecurID::Auth;
use strict;
use ModPerl::Registry;
use Apache2::porting;
use Apache2::Request;
use Apache2::Const qw(:common);
use IO::Socket::INET;
use Crypt::CBC;
use CGI qw(:standard);
use vars qw($VERSION);
$VERSION = '0.5';
sub handler {
my $r = shift;
my $req = Apache2::Request->new($r);
# seed the random number generator
Auth/Auth.pm view on Meta::CPAN
my $message;
my $extra_input;
my $result;
my %info;
my $ace;
my $mesg;
my $my_rand = rand();
my $return_rand;
my $crypt_key = $r->dir_config("AuthCryptKey");
my $crypt = new Crypt::CBC( $crypt_key, "Blowfish" );
$mesg =
$crypt->encrypt_hex("$my_rand:$session_id:$type:$username:$passcode");
$client->send($mesg);
$client->recv( $mesg, 1024 );
$mesg = $crypt->decrypt_hex($mesg);
(
$return_rand, $result, $info{system_pin}, $info{min_pin_len},
Auth/Auth.pm view on Meta::CPAN
PerlModule Apache2::AuthenSecurID::Auth
=head1 PREREQUISITES
For AuthenSecurID::Auth you need to enable the appropriate call-back hook
when making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID::Auth requires Crypt::Blowfish and Crypt::CBC.
For AuthenSecurID::Auth to properly track users mod_usertrack must be
compiled and enabled.
=head1 SEE ALSO
L<Apache>, L<mod_perl>, L<Authen::ACE> L<Apache2::AuthenSecurID::Auth>
=head1 AUTHORS
Auth/Makefile.PL view on Meta::CPAN
sub MY::libscan {
my($self,$path) = @_;
return '' if $path =~ /RCS/;
$path;
}
WriteMakefile(
'NAME' => 'Apache2::AuthenSecurID::Auth',
'VERSION_FROM' => 'Auth.pm',
'PREREQ_PM' => { Authen::ACE => 0.90,
Crypt::CBC => 1.25,
Crypt::Blowfish => 2.06 },
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
Auth/RCS/Auth.pm,v view on Meta::CPAN
@# $Id: Auth.pm,v 1.9 2002/07/31 16:44:14 Administrator Exp $
package Apache2::AuthenSecurID::Auth;
use strict;
use ModPerl::Registry;
use Apache2::porting;
use Apache2::Request;
use Apache2::Const qw(:common);
use IO::Socket::INET;
use Crypt::CBC;
use CGI qw(:standard);
use vars qw($VERSION);
$VERSION = '0.5';
sub handler {
my $r = shift;
my $req = Apache2::Request->new($r);
# seed the random number generator
Auth/RCS/Auth.pm,v view on Meta::CPAN
my $message;
my $extra_input;
my $result;
my %info;
my $ace;
my $mesg;
my $my_rand = rand();
my $return_rand;
my $crypt_key = $r->dir_config("AuthCryptKey");
my $crypt = new Crypt::CBC( $crypt_key, "Blowfish" );
$mesg =
$crypt->encrypt_hex("$my_rand:$session_id:$type:$username:$passcode");
$client->send($mesg);
$client->recv( $mesg, 1024 );
$mesg = $crypt->decrypt_hex($mesg);
(
$return_rand, $result, $info{system_pin}, $info{min_pin_len},
Auth/RCS/Auth.pm,v view on Meta::CPAN
PerlModule Apache2::AuthenSecurID::Auth
=head1 PREREQUISITES
For AuthenSecurID::Auth you need to enable the appropriate call-back hook
when making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID::Auth requires Crypt::Blowfish and Crypt::CBC.
For AuthenSecurID::Auth to properly track users mod_usertrack must be
compiled and enabled.
=head1 SEE ALSO
L<Apache>, L<mod_perl>, L<Authen::ACE> L<Apache2::AuthenSecurID::Auth>
=head1 AUTHORS
Auth/RCS/Auth.pm,v view on Meta::CPAN
my $message;
my $extra_input;
my $result;
my %info;
my $ace;
my $mesg;
my $my_rand = rand();
my $return_rand;
my $crypt_key = $r->dir_config("AuthCryptKey");
my $crypt = new Crypt::CBC ( $crypt_key, "Blowfish" );
$mesg = $crypt->encrypt_hex ("$my_rand:$session_id:$type:$username:$passcode");
$client->send($mesg);
$client->recv($mesg, 1024);
$mesg = $crypt->decrypt_hex ( $mesg );
( $return_rand, $result, $info{system_pin}, $info{min_pin_len}, $info{max_pin_len},
$info{alphanumeric}, $info{user_selectable} )
Auth/RCS/Auth.pm,v view on Meta::CPAN
my $pin2 = $query->param('pin2');
my $alphanumeric = $query->param('alphanumeric');
my $min_pin_len = $query->param('min_pin_len');
my $max_pin_len = $query->param('max_pin_len');
d181 1
d244 1
a244 1
my ( $username, $passcode, $type, $session_id, $client ) = @@_;
d255 2
a256 1
my $crypt = new Crypt::CBC ( "this is the key", "Blowfish" );
d272 3
a274 2
($message,$extra_input) = Ace_Result ( $result, \%info );
d282 4
a285 1
my ( $result, $info ) = @@_;
d288 8
d299 5
d321 1
Auth/RCS/Makefile.PL,v view on Meta::CPAN
sub MY::libscan {
my($self,$path) = @@_;
return '' if $path =~ /RCS/;
$path;
}
WriteMakefile(
'NAME' => 'Apache::AuthenSecurID::Auth',
'VERSION_FROM' => 'Auth.pm',
'PREREQ_PM' => { Authen::ACE => 0.90,
Crypt::CBC => 1.25,
Crypt::Blowfish => 2.06 },
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
@
Auth/RCS/Makefile.old,v view on Meta::CPAN
# 5.45 (Revision: 1.222) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
# MakeMaker Parameters:
# NAME => q[Apache::AuthenSecurID::Auth]
# PREREQ_PM => { Crypt::Blowfish=>q[2.06], Crypt::CBC=>q[1.25], Authen::ACE=>q[0.9] }
# VERSION_FROM => q[Auth.pm]
# dist => { COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
# --- MakeMaker post_initialize section:
# --- MakeMaker const_config section:
# These definitions are from config.sh (via /usr/local/lib/perl5/5.6.0/i686-linux/Config.pm)
Auth/RCS/Makefile.old,v view on Meta::CPAN
test_ : test_dynamic
test_static :: test_dynamic
testdb_static :: testdb_dynamic
# --- MakeMaker ppd section:
# Creates a PPD (Perl Package Description) for a binary distribution.
ppd:
@@$(PERL) -e "print qq{<SOFTPKG NAME=\"Apache-AuthenSecurID-Auth\" VERSION=\"0,3,0,0\">\n}. qq{\t<TITLE>Apache-AuthenSecurID-Auth</TITLE>\n}. qq{\t<ABSTRACT></ABSTRACT>\n}. qq{\t<AUTHOR></AUTHOR>\n}. qq{\t<IMPLEMENTATION>\n}. qq{\t\t<DEPENDENCY NAME...
# --- MakeMaker pm_to_blib section:
pm_to_blib: $(TO_INST_PM)
@@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
"-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
-e "pm_to_blib({qw{$(PM_TO_BLIB)}},'$(INST_LIB)/auto')"
@@$(TOUCH) $@@
AuthenSecurID.pm view on Meta::CPAN
# $Id: AuthenSecurID.pm,v 1.7 2007/12/08 03:20:58 atobey Exp $
package Apache2::AuthenSecurID;
use strict;
use Apache2::Const qw(OK AUTH_REQUIRED DECLINED REDIRECT SERVER_ERROR);
use Apache2::RequestUtil ();
use Apache2::RequestRec ();
use Apache2::Cookie;
use Crypt::CBC;
use CGI::Carp;
use vars qw($VERSION);
$VERSION = '0.5';
sub handler {
my $r = shift;
# get configuration directives
AuthenSecurID.pm view on Meta::CPAN
my ( $session_key ) = ( ($r->headers_in->{Cookie} || "") =~
/${auth_cookie}=([^;]+)/);
my ( $session_user ) = ( ($r->headers_in->{Cookie} || "") =~
/${auth_user_cookie}=([^;]+)/);
my $username;
my $session_time;
# decrypt cookie
my $cipher = new Crypt::CBC($crypt_key,"Blowfish") || warn ( $! );
if ( $session_key ) {
my $plaintext_cookie = $cipher->decrypt_hex($session_key);
( $session_time, $username ) = split /\:/, $plaintext_cookie;
}
my $time = time();
my $timeout = $time - 60 * $cookie_timeout;
my $uri = $r->uri;
# check cookie
AuthenSecurID.pm view on Meta::CPAN
PerlModule Apache2::AuthenSecurID
=head1 PREREQUISITES
For AuthenSecurID you need to enable the appropriate call-back hook
when making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID requires Crypt::Blowfish and Crypt::CBC.
=head1 SEE ALSO
L<Apache>, L<mod_perl>, L<Authen::ACE> L<Apache2::AuthenSecurID::Auth>
=head1 AUTHORS
=item *
mod_perl by Doug MacEachern <dougm@osf.org>
Makefile.PL view on Meta::CPAN
my($self,$path) = @_;
return '' if $path =~ /RCS/;
$path;
}
WriteMakefile(
'NAME' => 'Apache2::AuthenSecurID',
'VERSION_FROM' => 'AuthenSecurID.pm',
'PREREQ_PM' => {
Authen::ACE => 0.90,
Crypt::CBC => 1.25,
Crypt::Blowfish => 2.06,
Apache2::RequestUtil => 0.01,
Apache2::RequestRec => 0.01,
ModPerl::Registry => 0.01
},
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
RCS/AuthenSecurID.pm,v view on Meta::CPAN
text
@# $Id: AuthenSecurID.pm,v 1.6 2002/07/31 16:43:44 Administrator Exp $
package Apache2::AuthenSecurID;
use strict;
use Apache2::Const qw(OK AUTH_REQUIRED DECLINED REDIRECT SERVER_ERROR);
use Apache2::RequestUtil ();
use Apache2::RequestRec ();
use Apache2::Cookie;
use Crypt::CBC;
use CGI::Carp;
use vars qw($VERSION);
$VERSION = '0.5';
sub handler {
my $r = shift;
# get configuration directives
RCS/AuthenSecurID.pm,v view on Meta::CPAN
my ( $session_key ) = ( ($r->headers_in->{Cookie} || "") =~
/${auth_cookie}=([^;]+)/);
my ( $session_user ) = ( ($r->headers_in->{Cookie} || "") =~
/${auth_user_cookie}=([^;]+)/);
my $username;
my $session_time;
# decrypt cookie
my $cipher = new Crypt::CBC($crypt_key,"Blowfish") || warn ( $! );
if ( $session_key ) {
my $plaintext_cookie = $cipher->decrypt_hex($session_key);
( $session_time, $username ) = split /\:/, $plaintext_cookie;
}
my $time = time();
my $timeout = $time - 60 * $cookie_timeout;
my $uri = $r->uri;
# check cookie
RCS/AuthenSecurID.pm,v view on Meta::CPAN
PerlModule Apache2::AuthenSecurID
=head1 PREREQUISITES
For AuthenSecurID you need to enable the appropriate call-back hook
when making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID requires Crypt::Blowfish and Crypt::CBC.
=head1 SEE ALSO
L<Apache>, L<mod_perl>, L<Authen::ACE> L<Apache2::AuthenSecurID::Auth>
=head1 AUTHORS
=item *
mod_perl by Doug MacEachern <dougm@@osf.org>
RCS/Makefile.PL,v view on Meta::CPAN
my($self,$path) = @@_;
return '' if $path =~ /RCS/;
$path;
}
WriteMakefile(
'NAME' => 'Apache2::AuthenSecurID',
'VERSION_FROM' => 'AuthenSecurID.pm',
'PREREQ_PM' => {
Authen::ACE => 0.90,
Crypt::CBC => 1.25,
Crypt::Blowfish => 2.06,
Apache2::RequestUtil => 0.01,
Apache2::RequestRec => 0.01,
ModPerl::Registry => 0.01
},
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
@
RCS/Makefile.old,v view on Meta::CPAN
# 5.45 (Revision: 1.222) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
# MakeMaker Parameters:
# NAME => q[Apache::AuthenSecurID]
# PREREQ_PM => { Crypt::Blowfish=>q[2.06], Crypt::CBC=>q[1.25], Authen::ACE=>q[0.9] }
# VERSION_FROM => q[AuthenSecurID.pm]
# dist => { COMPRESS=>q[gzip -9f], SUFFIX=>q[gz] }
# --- MakeMaker post_initialize section:
# --- MakeMaker const_config section:
# These definitions are from config.sh (via /usr/local/lib/perl5/5.6.0/i686-linux/Config.pm)
RCS/Makefile.old,v view on Meta::CPAN
test_ : test_dynamic
test_static :: test_dynamic
testdb_static :: testdb_dynamic
# --- MakeMaker ppd section:
# Creates a PPD (Perl Package Description) for a binary distribution.
ppd:
@@$(PERL) -e "print qq{<SOFTPKG NAME=\"Apache-AuthenSecurID\" VERSION=\"0,4,0,0\">\n}. qq{\t<TITLE>Apache-AuthenSecurID</TITLE>\n}. qq{\t<ABSTRACT></ABSTRACT>\n}. qq{\t<AUTHOR></AUTHOR>\n}. qq{\t<IMPLEMENTATION>\n}. qq{\t\t<DEPENDENCY NAME=\"Authen-...
# --- MakeMaker pm_to_blib section:
pm_to_blib: $(TO_INST_PM)
@@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
"-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
-e "pm_to_blib({qw{$(PM_TO_BLIB)}},'$(INST_LIB)/auto')"
@@$(TOUCH) $@@
RCS/README,v view on Meta::CPAN
1.5
log
@updated
@
text
@# $Id: README,v 1.4 2002/07/31 16:43:55 Administrator Exp atobey $
In order to install and use this package you will need Perl version
5.6 or better, mod_perl2, libapreq (Apache2::Request), Crypt::CBC,
Crypt::Blowfish and Authen::ACE.
Installation as usual:
perl Makefile.PL
make
make test
make install
There are three components to Apache::AuthenSecurID.
RCS/README,v view on Meta::CPAN
following line to your httpd.conf:
PerlModule Apache2::AuthenSecurID
PREREQUISITES
For AuthenSecurID you need to enable the appropriate call-back hook when
making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID requires Crypt::Blowfish and Crypt::CBC.
SEE ALSO
Apache, mod_perl, Authen::ACE Apache2::AuthenSecurID::Auth
AUTHORS
* mod_perl by Doug MacEachern <dougm@@osf.org>
* Authen::ACE by Dave Carrigan <Dave.Carrigan@@iplenergy.com>
* Apache::AuthenSecurID by David Berk <dberk@@lump.org>
* mod_perl2 port and other modifications by Al Tobey <tobert@@gmail.com>
RCS/README,v view on Meta::CPAN
following line to your httpd.conf:
PerlModule Apache2::AuthenSecurID::Auth
PREREQUISITES
For AuthenSecurID::Auth you need to enable the appropriate call-back
hook when making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID::Auth requires Crypt::Blowfish and Crypt::CBC.
For AuthenSecurID::Auth to properly track users mod_usertrack must be
compiled and enabled.
SEE ALSO
Apache, mod_perl, Authen::ACE Apache2::AuthenSecurID::Auth
AUTHORS
* mod_perl by Doug MacEachern <dougm@@osf.org>
* Authen::ACE by Dave Carrigan <Dave.Carrigan@@iplenergy.com>
RCS/README,v view on Meta::CPAN
Break off from the shell and become a daemon.
CONFIGURATION
Either run from the command line;
prompt$ nohup ./ace_initd &
or write the appropriate scripts in the /etc/rc directories.
PREREQUISITES
ace_initd requires Crypt::Blowfish, Crypt::CBC and Authen::ACE.
SEE ALSO
Authen::ACE Apache::AuthenSecurID Apache::AuthenSecurID::Auth
AUTHORS
* mod_perl by Doug MacEachern <dougm@@osf.org>
* Authen::ACE by Dave Carrigan <Dave.Carrigan@@iplenergy.com>
* Apache::AuthenSecurID by David Berk <dberk@@lump.org>
* Apache::AuthenSecurID::Auth by David Berk <dberk@@lump.org>
* Various changes by Al Tobey <tobert@@gmail.com>
RCS/README,v view on Meta::CPAN
1.4
log
@*** empty log message ***
@
text
@d1 1
a1 1
# $Id: README,v 1.3 2002/07/30 20:15:39 Administrator Exp $
d4 3
a6 1
5.004 or better, mod_perl Crypt::CBC, Crypt::Blowfish and Authen::ACE.
d20 4
d25 2
a26 1
Apache::AuthenSecurID(3)curID(3)
d28 1
d30 1
a30 3
NAME
Apache::AuthenSecurID - Authentication via a SecurID
server
RCS/README,v view on Meta::CPAN
d91 1
d94 2
a95 2
For AuthenSecurID you need to enable the appropriate call-
back hook when making mod_perl:
d97 1
a97 1
perl Makefile.PL PERL_AUTHEN=1
d99 1
a99 1
AuthenSecurID requires Crypt::Blowfish and Crypt::CBC.
d102 1
a102 2
the Apache manpage, the mod_perl manpage, the Authen::ACE
manpage the Apache::AuthenSecurID::Auth manpage
d105 4
a108 7
o mod_perl by Doug MacEachern <dougm@@osf.org>
o Authen::ACE by Dave Carrigan
<Dave.Carrigan@@iplenergy.com>
RCS/README,v view on Meta::CPAN
d195 2
a196 2
For AuthenSecurID::Auth you need to enable the appropriate
call-back hook when making mod_perl:
d198 1
a198 1
perl Makefile.PL PERL_AUTHEN=1
d200 1
a200 2
AuthenSecurID::Auth requires Crypt::Blowfish and
Crypt::CBC.
d202 2
a203 2
For AuthenSecurID::Auth to properly track users
mod_usertrack must be compiled and enabled.
d206 1
a206 2
the Apache manpage, the mod_perl manpage, the Authen::ACE
manpage the Apache::AuthenSecurID::Auth manpage
d209 5
a213 9
RCS/README,v view on Meta::CPAN
Either run from the command line;
d258 1
a258 1
prompt$ nohup ./ace_initd &
d260 1
a260 2
or write the appropriate scripts in the /etc/rc
directories.
d263 1
a263 3
ace_initd requires Crypt::Blowfish, Crypt::CBC and
Authen::ACE.
d266 1
a266 2
the Authen::ACE manpage the Apache::AuthenSecurID manpage
the Apache::AuthenSecurID::Auth manpage
d269 5
a273 9
o mod_perl by Doug MacEachern <dougm@@osf.org>
RCS/ace_initd,v view on Meta::CPAN
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;
use Crypt::CBC;
use Getopt::Long;
our( $port, $facility, $secret, $listen, $var_ace, $daemon, $pidfile );
GetOptions(
"port=i" => \$port, "p=i" => \$port,
"facility=s" => \$facility, "f=s" => \$facility,
"secret=s" => \$secret, "s=s" => \$secret,
"listen=s" => \$listen, "l=s" => \$listen,
"var_ace=s" => \$var_ace, "a=s" => \$var_ace,
RCS/ace_initd,v view on Meta::CPAN
}
$var_ace ||= $ENV{VAR_ACE};
$ENV{'VAR_ACE'} ||= $var_ace;
$facility ||= 'local2';
$port ||= 1969;
$secret ||= 'secret';
$listen ||= '127.0.0.1';
write_pidfile( $pidfile );
my $crypt = new Crypt::CBC ( $secret, "Blowfish" );
# maybe make UNIX socket an option?
my $server = IO::Socket::INET->new(
LocalPort => $port,
Proto => 'udp',
LocalAddr => $listen
) or die "Couldn't be a tcp server on port $port: $!\n";
openlog ( 'ace_initd', 'nowait', $facility );
RCS/ace_initd,v view on Meta::CPAN
=head1 CONFIGURATION
Either run from the command line;
prompt$ nohup ./ace_initd &
or write the appropriate scripts in the /etc/rc directories.
=head1 PREREQUISITES
ace_initd requires Crypt::Blowfish, Crypt::CBC and Authen::ACE.
=head1 SEE ALSO
L<Authen::ACE> L<Apache::AuthenSecurID> L<Apache::AuthenSecurID::Auth>
=head1 AUTHORS
=item *
mod_perl by Doug MacEachern <dougm@@osf.org>
RCS/ace_initd,v view on Meta::CPAN
text
@d7 1
d9 2
a10 1
$ENV{'VAR_ACE'} = "/opt/ace/data";
d12 1
a12 1
$SIG{CHLD} = 'IGNORE';
d14 3
a16 1
my $crypt = new Crypt::CBC ( "this is the key", "Blowfish" );
d18 1
d20 1
a20 1
my $server = IO::Socket::INET->new ( LocalPort => 1969,
d25 1
a25 1
openlog ( 'ace_initd', '', 'LOG_LOCAL_2' );
d66 1
a66 1
$mesg = "$rand:$results:::::";
# $Id: README,v 1.5 2007/12/08 03:26:51 atobey Exp $
In order to install and use this package you will need Perl version
5.6 or better, mod_perl2, libapreq (Apache2::Request), Crypt::CBC,
Crypt::Blowfish and Authen::ACE.
Installation as usual:
perl Makefile.PL
make
make test
make install
There are three components to Apache::AuthenSecurID.
following line to your httpd.conf:
PerlModule Apache2::AuthenSecurID
PREREQUISITES
For AuthenSecurID you need to enable the appropriate call-back hook when
making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID requires Crypt::Blowfish and Crypt::CBC.
SEE ALSO
Apache, mod_perl, Authen::ACE Apache2::AuthenSecurID::Auth
AUTHORS
* mod_perl by Doug MacEachern <dougm@osf.org>
* Authen::ACE by Dave Carrigan <Dave.Carrigan@iplenergy.com>
* Apache::AuthenSecurID by David Berk <dberk@lump.org>
* mod_perl2 port and other modifications by Al Tobey <tobert@gmail.com>
following line to your httpd.conf:
PerlModule Apache2::AuthenSecurID::Auth
PREREQUISITES
For AuthenSecurID::Auth you need to enable the appropriate call-back
hook when making mod_perl:
perl Makefile.PL PERL_AUTHEN=1
AuthenSecurID::Auth requires Crypt::Blowfish and Crypt::CBC.
For AuthenSecurID::Auth to properly track users mod_usertrack must be
compiled and enabled.
SEE ALSO
Apache, mod_perl, Authen::ACE Apache2::AuthenSecurID::Auth
AUTHORS
* mod_perl by Doug MacEachern <dougm@osf.org>
* Authen::ACE by Dave Carrigan <Dave.Carrigan@iplenergy.com>
Break off from the shell and become a daemon.
CONFIGURATION
Either run from the command line;
prompt$ nohup ./ace_initd &
or write the appropriate scripts in the /etc/rc directories.
PREREQUISITES
ace_initd requires Crypt::Blowfish, Crypt::CBC and Authen::ACE.
SEE ALSO
Authen::ACE Apache::AuthenSecurID Apache::AuthenSecurID::Auth
AUTHORS
* mod_perl by Doug MacEachern <dougm@osf.org>
* Authen::ACE by Dave Carrigan <Dave.Carrigan@iplenergy.com>
* Apache::AuthenSecurID by David Berk <dberk@lump.org>
* Apache::AuthenSecurID::Auth by David Berk <dberk@lump.org>
* Various changes by Al Tobey <tobert@gmail.com>
#!/opt/ActivePerl-5.8/bin/perl
# $Id: ace_initd,v 1.5 2007/12/08 03:27:01 atobey Exp $
use Authen::ACE;
use IO::Socket::INET;
use Sys::Syslog;
use Crypt::CBC;
use Getopt::Long;
our( $port, $facility, $secret, $listen, $var_ace, $daemon, $pidfile );
GetOptions(
"port=i" => \$port, "p=i" => \$port,
"facility=s" => \$facility, "f=s" => \$facility,
"secret=s" => \$secret, "s=s" => \$secret,
"listen=s" => \$listen, "l=s" => \$listen,
"var_ace=s" => \$var_ace, "a=s" => \$var_ace,
}
$var_ace ||= $ENV{VAR_ACE};
$ENV{'VAR_ACE'} ||= $var_ace;
$facility ||= 'local2';
$port ||= 1969;
$secret ||= 'secret';
$listen ||= '127.0.0.1';
write_pidfile( $pidfile );
my $crypt = new Crypt::CBC ( $secret, "Blowfish" );
# maybe make UNIX socket an option?
my $server = IO::Socket::INET->new(
LocalPort => $port,
Proto => 'udp',
LocalAddr => $listen
) or die "Couldn't be a tcp server on port $port: $!\n";
openlog ( 'ace_initd', 'nowait', $facility );
=head1 CONFIGURATION
Either run from the command line;
prompt$ nohup ./ace_initd &
or write the appropriate scripts in the /etc/rc directories.
=head1 PREREQUISITES
ace_initd requires Crypt::Blowfish, Crypt::CBC and Authen::ACE.
=head1 SEE ALSO
L<Authen::ACE> L<Apache::AuthenSecurID> L<Apache::AuthenSecurID::Auth>
=head1 AUTHORS
=item *
mod_perl by Doug MacEachern <dougm@osf.org>
( run in 1.036 second using v1.01-cache-2.11-cpan-e1769b4cff6 )