Here is the radius.pm. It looks like nothing changed from the upgrade on this
file
package authentication::radius;
=head1 NAME
authentication::radius - radius authentication
=head1 SYNOPSYS
use authentication::radius;
my ( $authReturn, $err ) = authenticate (
$login,
$password
);
=head1 DESCRIPTION
authentication::radius allows to validate a username/password
combination using RADIUS
=head1 CONFIGURATION AND ENVIRONMENT
Define the variables C<RadiusServer> and C<RadiusSecret> at the
top of the module.
=cut
use strict;
use warnings;
BEGIN {
use Exporter ();
our (@ISA, @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(authenticate);
}
use Authen::Radius;
my $RadiusServer = 'Ip address of our radius server';
my $RadiusSecret = 'Password I set';
=head1 SUBROUTINES
=over
=item * authenticate ($login, $password)
return (1,0) for successfull authentication
return (0,2) for inability to check credentials
return (0,1) for wrong login/password
=back
=cut
sub authenticate {
my ($username, $password) = @_;
my $radcheck;
$radcheck = new Authen::Radius(
Host => $RadiusServer,
Secret => $RadiusSecret);
if ($radcheck->check_pwd($username, $password)) {
return (1,0);
} else {
return (0,1);
}
}
=head1 DEPENDENCIES
=over
=item * Authen::Radius
=back
=head1 AUTHOR
Maikel van der roest <[email protected]>
=head1 COPYRIGHT
Copyright (C) 2008 Utelisys Communications B.V.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
USA.
=cut
1;
Thanks
Dan Nelson
Nutraceutical Corporation
Network Administrator
801-334-3702
------------------------------------------------------------------------------
All the data continuously generated in your IT infrastructure contains a
definitive record of customers, application performance, security
threats, fraudulent activity and more. Splunk takes this data and makes
sense of it. Business sense. IT sense. Common sense.
http://p.sf.net/sfu/splunk-d2dcopy1
_______________________________________________
Packetfence-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/packetfence-users
