FS/bin/freeside-sqlradius-reset

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Record qw(qsearch qsearchs);
   6 use FS::part_export;
   7 use FS::svc_acct;
   8 use FS::cust_svc;
   9
  10 my $user = shift or die &usage;
  11 adminsuidsetup $user;
  12
  13 #my $machine = shift or die &usage;
  14
  15 my @exports =  qsearch('part_export', { exporttype=>'sqlradius' } );
  16 push @exports, qsearch('part_export', { exporttype=>'sqlradius_withdomain' } );
  17
  18
  19 foreach my $export ( @exports ) {
  20   my $icradius_dbh = DBI->connect(
  21     map { $export->option($_) } qw( datasrc username password )
  22   ) or die $DBI::errstr;
  23   for my $table (qw( radcheck radreply usergroup )) {
  24     my $sth = $icradius_dbh->prepare("DELETE FROM $table");
  25     $sth->execute or die "Can't reset $table table: ". $sth->errstr;
  26   }
  27   $icradius_dbh->disconnect;
  28 }
  29
  30 foreach my $export ( @exports ) {
  31
  32   #my @svcparts = map { $_->svcpart } $export->export_svc;
  33
  34   my @svc_acct =
  35     map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
  36       map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  37         grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  38           $export->export_svc;
  39
  40   foreach my $svc_acct ( @svc_acct ) {
  41
  42     #false laziness with FS::svc_acct::insert (like it matters)
  43     my $error = $export->export_insert($svc_acct);
  44     die $error if $error;
  45
  46   }
  47 }
  48
  49 sub usage {
  50   #die "Usage:\n\n  sqlradius_reset user machine\n";
  51   die "Usage:\n\n  freeside-sqlradius-reset user\n";
  52 }
  53
  54 =head1 NAME
  55
  56 freeside-sqlradius-reset - Command line interface to reset and recreate RADIUS SQL tables
  57
  58 =head1 SYNOPSIS
  59
  60   freeside-sqlradius-reset username
  61
  62 =head1 DESCRIPTION
  63
  64 Deletes the radcheck, radreply and usergroup tables and repopulates them from
  65 the Freeside database, for all sqlradius exports.
  66
  67 B<username> is a username added by freeside-adduser.
  68
  69 =head1 SEE ALSO
  70
  71 L<freeside-reexport>, L<FS::part_export>, L<FS::part_export::sqlradius>
  72
  73 =cut
  74
  75
  76