projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix title
[freeside.git]
/
FS
/
bin
/
freeside-sqlradius-reset
diff --git
a/FS/bin/freeside-sqlradius-reset
b/FS/bin/freeside-sqlradius-reset
index
41f3358
..
74f90a5
100755
(executable)
--- a/
FS/bin/freeside-sqlradius-reset
+++ b/
FS/bin/freeside-sqlradius-reset
@@
-12,7
+12,9
@@
adminsuidsetup $user;
#my $machine = shift or die &usage;
#my $machine = shift or die &usage;
-my @exports = qsearch('part_export', { 'exporttype' => 'sqlradius' } );
+my @exports = qsearch('part_export', { exporttype=>'sqlradius' } );
+push @exports, qsearch('part_export', { exporttype=>'sqlradius_withdomain' } );
+
foreach my $export ( @exports ) {
my $icradius_dbh = DBI->connect(
foreach my $export ( @exports ) {
my $icradius_dbh = DBI->connect(
@@
-46,7
+48,7
@@
foreach my $export ( @exports ) {
sub usage {
#die "Usage:\n\n sqlradius_reset user machine\n";
sub usage {
#die "Usage:\n\n sqlradius_reset user machine\n";
- die "Usage:\n\n
sqlradius_
reset user\n";
+ die "Usage:\n\n
freeside-sqlradius-
reset user\n";
}
=head1 NAME
}
=head1 NAME
@@
-66,7
+68,7
@@
B<username> is a username added by freeside-adduser.
=head1 SEE ALSO
=head1 SEE ALSO
-<FS::part_export>, L<FS::part_export::sqlradius>
+
L<freeside-reexport>, L
<FS::part_export>, L<FS::part_export::sqlradius>
=cut
=cut