bin/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
  17 foreach my $export ( @exports ) {
  18   my $icradius_dbh = DBI->connect(
  19     map { $export->option($_) } qw( datasrc username password )
  20   ) or die $DBI::errstr;
  21   for my $table (qw( radcheck radreply usergroup )) {
  22     my $sth = $icradius_dbh->prepare("DELETE FROM $table");
  23     $sth->execute or die "Can't reset $table table: ". $sth->errstr;
  24   }
  25 }
  26
  27 foreach my $export ( @exports ) {
  28   my @svc_acct =
  29     map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
  30       qsearch('cust_svc', { 'svcpart' => $export->part_svc->svcpart } );
  31   foreach my $svc_acct ( @svc_acct ) {
  32
  33     #false laziness with FS::svc_acct::insert (like it matters)
  34     my $error = $export->export_insert($svc_acct);
  35     die $error if $error;
  36
  37   }
  38 }
  39
  40 sub usage {
  41   #die "Usage:\n\n  sqlradius_reset user machine\n";
  42   die "Usage:\n\n  sqlradius_reset user\n";
  43 }
  44
  45