use strict;
use vars qw(%part_svc %domain_part_svc);
#use Date::Parse;
-use DBI;
+use FS::DBI;
use Term::Query qw(query);
use FS::UID qw(adminsuidsetup); #datasrc
use FS::Record qw(qsearch qsearchs);
###
-my $dbh = DBI->connect( $datasrc, $db_user, $db_pass )
- or die $DBI::errstr;
+my $dbh = FS::DBI->connect( $datasrc, $db_user, $db_pass )
+ or die $FS::DBI::errstr;
my $sth = $dbh->prepare('SELECT DISTINCT UserName, Realm FROM radcheck')
or die $dbh->errstr;
$rc_sth->execute($r_username, $realm) or die $rc_sth->errstr;
foreach my $rc_row ( @{$rc_sth->fetchall_arrayref} ) {
- my($attribute, $value, $name, $groupname) = @$row;
- if ( $attribute =~ /^(Crypt-)?Password$/ ) {
+ my($attribute, $value, $name, $groupname) = @$rc_row;
+ if ( $attribute =~ /^((User|Crypt)-)?Password$/ ) {
$password = $value;
$finger = $name;
$group = $groupname;
'finger' => $finger,
};
- my($error);
- $error = $svc_acct->insert;
- #$error = $svc_acct->check;
+ my $error = $svc_acct->insert;
+ #my $error = $svc_acct->check;
if ( $error ) {
if ( $error =~ /duplicate/i ) {
warn "$r_username / $realm: $error";