bin/sqlradius-norealm.reimport

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use vars qw(%part_svc);
   5 #use Date::Parse;
   6 use DBI;
   7 use Term::Query qw(query);
   8 use FS::UID qw(adminsuidsetup); #datasrc
   9 use FS::Record qw(qsearch qsearchs);
  10 use FS::svc_acct;
  11 use FS::part_svc;
  12
  13 my $user = shift or die &usage;
  14 adminsuidsetup $user;
  15
  16 #push @FS::svc_acct::shells, qw(/bin/sync /sbin/shutdown /bin/halt /sbin/halt); #others?
  17
  18 $FS::svc_Common::noexport_hack = 1;
  19
  20 ###
  21
  22 %part_svc=map { $_->svcpart, $_ } qsearch('part_svc',{'svcdb'=>'svc_acct'});
  23
  24 die "No services with svcdb svc_acct!\n" unless %part_svc;
  25
  26 print "\n\n", &menu_svc, "\n", <<END;
  27 Enter part number to import.
  28 END
  29 my $sqlradius_svcpart = &getpart;
  30
  31 my $datasrc = &getvalue("\n\nEnter the DBI datasource:");
  32 my $db_user = &getvalue("\n\nEnter the database user:");
  33 my $db_pass = &getvalue("\n\nEnter the database password:");
  34
  35 sub menu_svc {
  36   ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %part_svc ). "\n";
  37 }
  38 sub getpart {
  39   $^W=0; # Term::Query isn't -w-safe
  40   my $return = query "Enter part number:", 'irk', [ keys %part_svc ];
  41   $^W=1;
  42   $return;
  43 }
  44 sub getvalue {
  45   my $prompt = shift;
  46   $^W=0; # Term::Query isn't -w-safe
  47   my $return = query $prompt, '';
  48   $^W=1;
  49   $return;
  50 }
  51
  52 print "\n\n";
  53
  54 ###
  55
  56 my $dbh = DBI->connect( $datasrc, $db_user, $db_pass )
  57   or die $DBI::errstr;
  58
  59 my $sth = $dbh->prepare('SELECT DISTINCT UserName FROM radcheck')
  60   or die $dbh->errstr;
  61 $sth->execute or die $sth->errstr;
  62
  63 my $row;
  64 while ( defined ( $row = $sth->fetchrow_arrayref ) ) {
  65   my( $username ) = @$row;
  66
  67   my( $password, $group ) = ( '', '', '' );
  68
  69   my $rc_sth = $dbh->prepare(
  70     'SELECT Attribute, Value'.
  71     '  FROM radcheck'.
  72     '  WHERE UserName = ?'
  73   ) or die $dbh->errstr;
  74   $rc_sth->execute($username) or die $rc_sth->errstr;
  75
  76   foreach my $rc_row ( @{$rc_sth->fetchall_arrayref} ) {
  77     my($attribute, $value) = @$rc_row;
  78     if ( $attribute =~ /^((Crypt|User)-)?Password$/ ) {
  79       $password = $value unless $password && !$1;
  80     } else {
  81       #handle other params!
  82     }
  83   }
  84
  85   my @svc_acct = grep { $_->cust_svc->svcpart == $sqlradius_svcpart }
  86                  qsearch('svc_acct', { 'username' => $username, } );
  87
  88   #print "$r_username / $realm: $password / $finger: ";
  89   print "$username: $password: ";
  90   if ( scalar(@svc_acct) == 0 ) {
  91     print "not found\n";
  92     next;
  93   } elsif ( scalar(@svc_acct) > 1 ) {
  94     print "multiple matches found?!?!\n";
  95     next;
  96   } else {
  97     #print "correcting password and name\n";
  98     print "correcting password\n";
  99   }
 100
 101   my $svc_acct = $svc_acct[0];
 102   #my $new = new FS::svc_acct { $svc_acct->hash, '_password' => $password, 'finger' => $finger };
 103   my $new = new FS::svc_acct { $svc_acct->hash, '_password' => $password };
 104   my $error = $new->replace($svc_acct);
 105   #my $error = $new->check;
 106   die "$username: $error" if $error;
 107
 108 }
 109
 110 sub usage {
 111   die "Usage:\n\n  sqlradius-norealm.reimport user\n";
 112 }
 113