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
  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
  29   #my @svcparts = map { $_->svcpart } $export->export_svc;
  30
  31   my @svc_acct =
  32     map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
  33       map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  34         grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
  35           $export->export_svc;
  36
  37   foreach my $svc_acct ( @svc_acct ) {
  38
  39     #false laziness with FS::svc_acct::insert (like it matters)
  40     my $error = $export->export_insert($svc_acct);
  41     die $error if $error;
  42
  43   }
  44 }
  45
  46 sub usage {
  47   #die "Usage:\n\n  sqlradius_reset user machine\n";
  48   die "Usage:\n\n  sqlradius_reset user\n";
  49 }
  50
  51 =head1 NAME
  52
  53 freeside-sqlradius-reset - Command line interface to reset and recreate RADIUS SQL tables
  54
  55 =head1 SYNOPSIS
  56
  57   freeside-sqlradius-reset username
  58
  59 =head1 DESCRIPTION
  60
  61 Deletes the radcheck, radreply and usergroup tables and repopulates them from
  62 the Freeside database, for all sqlradius exports.
  63
  64 B<username> is a username added by freeside-adduser.
  65
  66 =head1 SEE ALSO
  67
  68 <FS::part_export>, L<FS::part_export::sqlradius>
  69
  70 =cut
  71
  72
  73