blob: 501685449c0da65642d532f19ee2fdcda6ab1a00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!/usr/bin/perl -Tw
use strict;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::part_export;
use FS::svc_acct;
use FS::cust_svc;
my $user = shift or die &usage;
adminsuidsetup $user;
#my $machine = shift or die &usage;
my @exports = qsearch('part_export', { 'exporttype' => 'sqlradius' } );
foreach my $export ( @exports ) {
my $icradius_dbh = DBI->connect(
map { $export->option($_) } qw( datasrc username password )
) or die $DBI::errstr;
for my $table (qw( radcheck radreply usergroup )) {
my $sth = $icradius_dbh->prepare("DELETE FROM $table");
$sth->execute or die "Can't reset $table table: ". $sth->errstr;
}
}
foreach my $export ( @exports ) {
my @svc_acct =
map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
qsearch('cust_svc', { 'svcpart' => $export->part_svc->svcpart } );
foreach my $svc_acct ( @svc_acct ) {
#false laziness with FS::svc_acct::insert (like it matters)
my $error = $export->export_insert($svc_acct);
die $error if $error;
}
}
sub usage {
#die "Usage:\n\n icradius_reset user machine\n";
die "Usage:\n\n icradius_reset user\n";
}
|