summaryrefslogtreecommitdiff
path: root/bin/sqlradius-nas.import
diff options
context:
space:
mode:
Diffstat (limited to 'bin/sqlradius-nas.import')
-rwxr-xr-xbin/sqlradius-nas.import67
1 files changed, 67 insertions, 0 deletions
diff --git a/bin/sqlradius-nas.import b/bin/sqlradius-nas.import
new file mode 100755
index 000000000..0583272db
--- /dev/null
+++ b/bin/sqlradius-nas.import
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w
+
+use strict;
+use DBI;
+use FS::UID qw(adminsuidsetup); #datasrc
+use FS::Record qw(qsearch qsearchs dbh);
+use FS::nas;
+use FS::export_nas;
+use FS::part_export;
+
+my $user = shift or die &usage;
+adminsuidsetup $user;
+
+$FS::export_nas::noexport_hack = 1;
+$FS::UID::AutoCommit = 0;
+my $dbh = dbh;
+
+my $exportnum = shift or die &usage;
+my $part_export = qsearchs('part_export', { exportnum => $exportnum })
+ or die "export $exportnum not found.\n";
+
+$part_export->isa('FS::part_export::sqlradius')
+ or die "export $exportnum is not an sqlradius export.\n";
+
+my $raddbh = DBI->connect(
+ $part_export->option('datasrc'),
+ $part_export->option('username'),
+ $part_export->option('password')
+);
+
+# cache NAS names we already know about, and don't import them
+my %existing_names = map { $_->nasname , $_->nasnum } qsearch('nas', {});
+
+my @fields = (qw( nasname shortname type secret server community description ));
+my $sql = 'SELECT '.join(', ',@fields).' FROM nas';
+my $all_nas = $raddbh->selectall_arrayref($sql)
+ or die "unable to retrieve NAS records: ".$dbh->errstr."\n";
+
+warn scalar(@$all_nas)." records found.\n";
+my $inserted = 0;
+foreach my $row (@$all_nas) {
+ my %hash;
+ @hash{@fields} = @$row;
+ if (my $num = $existing_names{ $hash{nasname} }) {
+ warn "NAS $hash{nasname} already exists as #$num (skipped)\n";
+ }
+ else {
+ my $nas = FS::nas->new(\%hash);
+ my $error = $nas->insert
+ || $nas->process_m2m(link_table => 'export_nas',
+ target_table => 'part_export',
+ params => [ $exportnum ]);
+ if ( $error ) {
+ $dbh->rollback;
+ die "error inserting $hash{nasname}: $error (changes reverted)\n";
+ }
+ $inserted++;
+ }
+} #foreach $row
+
+warn "Inserted $inserted NAS records.\n\n";
+$dbh->commit;
+
+sub usage {
+ die "Usage:\n\n sqlradius-nas.import user exportnum\n\n";
+}
+