summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rw-r--r--bin/backup-dvd45
-rw-r--r--bin/billco-upload20
-rwxr-xr-xbin/bind.export20
-rwxr-xr-xbin/bind.import194
-rwxr-xr-xbin/generate-raddb14
-rwxr-xr-xbin/generate-table-module89
-rwxr-xr-xbin/print-schema7
7 files changed, 99 insertions, 290 deletions
diff --git a/bin/backup-dvd b/bin/backup-dvd
deleted file mode 100644
index d0314b469..000000000
--- a/bin/backup-dvd
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/bin/bash
-
-database="freeside"
-DEVICE="/dev/hda"
-
-su freeside -c "pg_dump $database" >/var/backups/$database.sql
-
-DATE=$(date +%Y-%m-%d)
-
-#NOTE: These two paths must end in a / in
-#order to correctly build up the other paths
-#BACKUP_DIR="/backup/directory/"
-BACKUP_DIR="/backup/"
- #TEMP_BACKUP_FILES_DIR="/backup/temp/"
-
-BACKUP_FILE=$BACKUP_DIR"backup-"$DATE".tar.bz2"
- #DATABASE_FILE=$TEMP_BACKUP_FILES_DIR"foo-"$DATE".sql"
-
- #These directories shouldn't end in a / although
- #I don't think it will cause any problems if
- #they do. There should be a space at the end though
- #to ensure the database file gets concatenated correctly.
- #SOURCE="/a/location /other/locations " $DATABASE_FILE
-
-#echo Removing old backup directories
-rm -rf $BACKUP_DIR
- #rm -rf $TEMP_BACKUP_FILES_DIR
-
-#echo Creating new backup directories
-mkdir $BACKUP_DIR
- #mkdir $TEMP_BACKUP_FILES_DIR
-
- #echo Creating database backup
- #pg_dump -U username -f $DATABASE_FILE databaseName
-
-#echo Backing up $SOURCE to file $BACKUP_FILE
-#tar -cvpl -f $BACKUP_FILE --anchored --exclude /backup /
-tar -cjpl -f $BACKUP_FILE --anchored --exclude /backup /
-
- ##This is not necessary and possibly harmful for DVD+RW media
- #echo Quick blanking media
- #dvd+rw-format -blank /dev/hdc
-
-#echo Burning backup
-growisofs -dvd-compat -Z $DEVICE -quiet -r -J $BACKUP_FILE
diff --git a/bin/billco-upload b/bin/billco-upload
deleted file mode 100644
index ce4a43d5f..000000000
--- a/bin/billco-upload
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/bin/sh
-
-AGENTNUMS="1 2 3"
-
-date=`date +"%Y%m%d"`
-dir="/usr/local/etc/freeside/export.DBI:Pg:dbname=freeside/cust_bill"
-cd "$dir"
-
-for AGENTNUM in $AGENTNUMS; do
-
- for a in header detail; do
- mv agentnum$AGENTNUM-$a.csv agentnum$AGENTNUM-$date-$a.csv
- done
-
- zip agentnum$AGENTNUM-$date.zip agentnum$AGENTNUM-$date-header.csv agentnum$AGENTNUM-$date-detail.csv
-
- echo $dir/agentnum$AGENTNUM-$date.zip
-
-done
-
diff --git a/bin/bind.export b/bin/bind.export
index 286e43a2d..d0b93797e 100755
--- a/bin/bind.export
+++ b/bin/bind.export
@@ -43,12 +43,10 @@ foreach my $export ( @exports ) {
open(NAMED_CONF,">$prefix/named.conf")
or die "can't open $prefix/named.conf: $!";
- if ( -e "$prefix/named.conf.HEADER" ) {
- open(CONF_HEADER,"<$prefix/named.conf.HEADER")
- or die "can't open $prefix/named.conf.HEADER: $!";
- while (<CONF_HEADER>) { print NAMED_CONF $_; }
- close CONF_HEADER;
- }
+ open(CONF_HEADER,"<$prefix/named.conf.HEADER")
+ or die "can't open $prefix/named.conf.HEADER: $!";
+ while (<CONF_HEADER>) { print NAMED_CONF $_; }
+ close CONF_HEADER;
my $zonepath = $export->option('zonepath');
$zonepath =~ s/\/$//;
@@ -147,12 +145,10 @@ foreach my $sexport ( @sexports ) { #false laziness with above
open(NAMED_CONF,">$prefix/named.conf")
or die "can't open $prefix/named.conf: $!";
- if ( -e "$prefix/named.conf.HEADER" ) {
- open(CONF_HEADER,"<$prefix/named.conf.HEADER")
- or die "can't open $prefix/named.conf.HEADER: $!";
- while (<CONF_HEADER>) { print NAMED_CONF $_; }
- close CONF_HEADER;
- }
+ open(CONF_HEADER,"<$prefix/named.conf.HEADER")
+ or die "can't open $prefix/named.conf.HEADER: $!";
+ while (<CONF_HEADER>) { print NAMED_CONF $_; }
+ close CONF_HEADER;
my $masters = $sexport->option('master');
diff --git a/bin/bind.import b/bin/bind.import
index 1cdf5672c..41313fba6 100755
--- a/bin/bind.import
+++ b/bin/bind.import
@@ -1,33 +1,22 @@
#!/usr/bin/perl -w
#
-# REQUIRED:
-# -p: part number for domains
-#
-# -n: named.conf file (or an include file with zones you want to import),
-# for example root@ns.isp.com:/var/named/named.conf
-#
-# OPTIONAL:
-# -d: dry-run, debug: don't insert any records, just dump debugging output
# -s: import slave zones as master. useful if you need to recreate your
# primary nameserver from a secondary
-# -c dir: override patch for downloading zone files (for example, when
-# downloading zone files from chrooted bind)
+# -c chroot_dir: import data from chrooted bind (corrects the path for
+# downloading zone files
#
# need to manually put header in
# /usr/local/etc/freeside/export.<datasrc./bind/<machine>/named.conf.HEADER
-# (or, nowadays, better just to include the file freeside exports)
use strict;
-
-use vars qw($domain_svcpart);
-
+use vars qw( %d_part_svc );
use Getopt::Std;
-use Data::Dumper;
+use Term::Query qw(query);
#use BIND::Conf_Parser;
#use DNS::ZoneParse 0.81;
-use Net::SCP qw(scp iscp);
-
+#use Net::SCP qw(iscp);
+use Net::SCP qw(scp);
use FS::UID qw(adminsuidsetup datasrc);
use FS::Record qw(qsearch); #qsearchs);
#use FS::svc_acct_sm;
@@ -36,8 +25,8 @@ use FS::domain_record;
#use FS::svc_acct;
#use FS::part_svc;
-use vars qw($opt_p $opt_n $opt_s $opt_c $opt_d);
-getopts("p:n:sc:d");
+use vars qw($opt_s $opt_c);
+getopts("sc:");
my $user = shift or die &usage;
adminsuidsetup $user;
@@ -49,19 +38,42 @@ use vars qw($spooldir);
$spooldir = "/usr/local/etc/freeside/export.". datasrc. "/bind";
mkdir $spooldir unless -d $spooldir;
-$domain_svcpart = $opt_p;
-
-my $named_conf = $opt_n;
+%d_part_svc =
+ map { $_->svcpart, $_ } qsearch('part_svc',{'svcdb'=>'svc_domain'});
+print "\n\n",
+ ( join "\n", map "$_: ".$d_part_svc{$_}->svc, sort keys %d_part_svc ),
+ "\n\n";
+use vars qw($domain_svcpart);
+$^W=0; #Term::Query isn't -w-safe
+$domain_svcpart =
+ query "Enter part number for domains: ", 'irk', [ keys %d_part_svc ];
+$^W=1;
+
+print "\n\n", <<END;
+Enter the location and name of your primary named.conf file, for example
+"ns.isp.com:/var/named/named.conf"
+END
+my($named_conf)=&getvalue(":");
+
use vars qw($named_machine $prefix);
$named_machine = (split(/:/, $named_conf))[0];
-my $pnamed_machine = $named_machine;
-$pnamed_machine =~ s/^[\w\-]+\@//;
-$prefix = "$spooldir/$pnamed_machine";
+$prefix = "$spooldir/$named_machine";
mkdir $prefix unless -d $prefix;
-#iscp("$named_conf","$prefix/named.conf.import");
-scp("$named_conf","$prefix/named.conf.import");
+#iscp("root\@$named_conf","$prefix/named.conf.import");
+scp("root\@$named_conf","$prefix/named.conf.import");
+
+
+sub getvalue {
+ my $prompt = shift;
+ $^W=0; # Term::Query isn't -w-safe
+ my $return = query $prompt, '';
+ $^W=1;
+ $return;
+}
+
+print "\n\n";
##
@@ -75,7 +87,7 @@ print "\nBIND import completed.\n";
##
sub usage {
- die "Usage:\n\n bind.import -p partnum -n \"user\@machine:/path/to/named.conf\" [ -s ] [ -c chroot_dir ] [ -f ] user\n";
+ die "Usage:\n\n bind.import user\n";
}
########
@@ -85,13 +97,11 @@ BEGIN {
use BIND::Conf_Parser;
use vars qw(@ISA $named_dir);
@ISA = qw(BIND::Conf_Parser);
-
- $named_dir = 'COULD_NOT_FIND_NAMED_DIRECTORY_TRY_SETTING_-C_OPTION';
+
sub handle_option {
my($self, $option, $argument) = @_;
return unless $option eq "directory";
$named_dir = $argument;
- #warn "found named dir: $named_dir\n";
}
sub handle_zone {
@@ -120,25 +130,20 @@ BEGIN {
if ( $type eq 'slave' && !$main::opt_s ) {
- if ( $main::opt_d ) {
-
- use Data::Dumper;
- print "$name: ". Dumper($options);
-
- } else {
-
- foreach my $master ( @{ $options->{masters} } ) {
- my $domain_record = new FS::domain_record( {
- 'svcnum' => $domain->svcnum,
- 'reczone' => '@',
- 'recaf' => 'IN',
- 'rectype' => '_mstr',
- 'recdata' => $master,
- } );
- my $error = $domain_record->insert;
- die $error if $error;
- }
-
+ #use Data::Dumper;
+ #print Dumper($options);
+ #exit;
+
+ foreach my $master ( @{ $options->{masters} } ) {
+ my $domain_record = new FS::domain_record( {
+ 'svcnum' => $domain->svcnum,
+ 'reczone' => '@',
+ 'recaf' => 'IN',
+ 'rectype' => '_mstr',
+ 'recdata' => $master,
+ } );
+ my $error = $domain_record->insert;
+ die $error if $error;
}
} elsif ( $type eq 'master' || ( $type eq 'slave' && $main::opt_s ) ) {
@@ -148,79 +153,54 @@ BEGIN {
use File::Basename;
my $basefile = basename($file);
my $sourcefile = $file;
- if ( $main::opt_c ) {
- $sourcefile = "$main::opt_c/$sourcefile" if $main::opt_c;
- } else {
- $sourcefile = "$named_dir/$sourcefile" unless $file =~ /^\//;
- }
+ $sourcefile = "$named_dir/$sourcefile" unless $file =~ /^\//;
+ $sourcefile = "$main::opt_c/$sourcefile" if $main::opt_c;
use Net::SCP qw(iscp scp);
- #iscp("$main::named_machine:$sourcefile",
- # "$main::prefix/$basefile.import");
- scp("$main::named_machine:$sourcefile",
- "$main::prefix/$basefile.import");
+ scp("root\@$main::named_machine:$sourcefile",
+ "$main::prefix/$basefile.import");
use DNS::ZoneParse 0.84;
my $zone = DNS::ZoneParse->new("$main::prefix/$basefile.import");
my $dump = $zone->dump;
-
- if ( $main::opt_d ) {
-
- use Data::Dumper;
- print "$name: ". Dumper($dump);
-
- } else {
+
+ #use Data::Dumper;
+ #print "$name: ". Dumper($dump);
+ #exit;
- foreach my $rectype ( keys %$dump ) {
- if ( $rectype =~ /^SOA$/i ) {
- my $rec = $dump->{$rectype};
- $rec->{email} =~ s/\@/\./;
+ foreach my $rectype ( keys %$dump ) {
+ if ( $rectype =~ /^SOA$/i ) {
+ my $rec = $dump->{$rectype};
+ my $domain_record = new FS::domain_record( {
+ 'svcnum' => $domain->svcnum,
+ 'reczone' => $rec->{origin},
+ 'recaf' => 'IN',
+ 'rectype' => $rectype,
+ 'recdata' =>
+ $rec->{primary}. ' '. $rec->{email}. ' ( '.
+ join(' ', map $rec->{$_},
+ qw( serial refresh retry expire minimumTTL ) ).
+ ' )',
+ } );
+ my $error = $domain_record->insert;
+ die $error if $error;
+ } else {
+ #die $dump->{$rectype};
+ foreach my $rec ( @{ $dump->{$rectype} } ) {
my $domain_record = new FS::domain_record( {
'svcnum' => $domain->svcnum,
- 'reczone' => $rec->{origin},
- 'recaf' => 'IN',
+ 'reczone' => $rec->{name},
+ 'recaf' => $rec->{class},
'rectype' => $rectype,
- 'recdata' =>
- $rec->{primary}. ' '. $rec->{email}. ' ( '.
- join(' ', map $rec->{$_},
- qw( serial refresh retry expire minimumTTL ) ).
- ' )',
+ 'recdata' => ( $rectype =~ /^MX$/i
+ ? $rec->{priority}. ' '. $rec->{host}
+ : $rec->{host} ),
} );
my $error = $domain_record->insert;
die $error if $error;
- } else {
- #die $dump->{$rectype};
-
- my $datasub;
- if ( $rectype =~ /^MX$/i ) {
- $datasub = sub { $_[0]->{priority}. ' '. $_[0]->{host}; };
- } elsif ( $rectype =~ /^TXT$/i ) {
- $datasub = sub { $_[0]->{text}; };
- } else {
- $datasub = sub { $_[0]->{host}; };
- }
-
- foreach my $rec ( @{ $dump->{$rectype} } ) {
- my $domain_record = new FS::domain_record( {
- 'svcnum' => $domain->svcnum,
- 'reczone' => $rec->{name},
- 'recaf' => $rec->{class} || 'IN',
- 'rectype' => $rectype,
- 'recdata' => &{$datasub}($rec),
- } );
- my $error = $domain_record->insert;
- if ( $error ) {
- warn "$error inserting ".
- $rec->{name}. ' . '. $domain->domain. "\n";
- warn Dumper($rec);
- #system('cat',"$main::prefix/$basefile.import");
- die;
- }
- }
}
}
-
}
#} else {
diff --git a/bin/generate-raddb b/bin/generate-raddb
index af21c05a8..f946b05b3 100755
--- a/bin/generate-raddb
+++ b/bin/generate-raddb
@@ -1,7 +1,8 @@
#!/usr/bin/perl
# usage: generate-raddb radius-server/raddb/dictionary* >raddb.pm
-# i.e.: generate-raddb ~/freeradius/freeradius-1.0.5/share/dictionary* ~/wirelessoceans/dictionary.ip3networks ~/wtxs/dictionary.mot.canopy >raddb.pm.new
+# i.e.: generate-raddb ~/src/freeradius-0.2/raddb/dictionary* >FS/raddb.pm
+
print <<END;
package FS::raddb;
use vars qw(%attrib);
@@ -28,24 +29,17 @@ while (<>) {
#print "$2\n";
}
-foreach ( sort keys %hash ) {
+foreach ( keys %hash ) {
# print "$_\n" if length($_)>24;
# print substr($_,0,24),"\n" if length($_)>24;
# $max = length($_) if length($_)>$max;
# have to fudge things since everything >24 is *not* unique
#print " '". substr($_,0,24). "' => '$hash{$_}',\n";
- print " '$_' ". ( " " x (24-length($_) ) ). "=> '$hash{$_}',\n";
+ print " '$_' => '$hash{$_}',\n";
}
print <<END;
-
- #NETC.NET.AU (RADIATOR?)
- 'authentication_type' => 'Authentication-Type',
-
- #wtxs (dunno)
- #'radius_operator' => 'Radius-Operator',
-
);
1;
diff --git a/bin/generate-table-module b/bin/generate-table-module
deleted file mode 100755
index fcc3f1d1f..000000000
--- a/bin/generate-table-module
+++ /dev/null
@@ -1,89 +0,0 @@
-#!/usr/bin/perl
-
-use FS::Schema qw( dbdef_dist );
-
-my $table = shift;
-
-###
-# add a new FS/FS/table.pm
-###
-
-my %ut = ( #just guesses
- 'int' => 'number',
- 'number' => 'float',
- 'varchar' => 'text',
- 'text' => 'text',
-);
-
-my $dbdef_table = dbdef_dist->table($table)
- or die "define table in Schema.pm first";
-my $primary_key = $dbdef_table->primary_key;
-
-open(SRC,"<eg/table_template.pm") or die $!;
--e "FS/FS/$table.pm" and die "FS/FS/$table.pm already exists!";
-open(DEST,">FS/FS/$table.pm") or die $!;
-
-while (my $line = <SRC>) {
-
- $line =~ s/table_name/$table/g;
-
- if ( $line =~ /^=item\s+field\s+-\s+description\s*$/ ) {
-
- foreach my $column ( $dbdef_table->columns ) {
- print DEST "=item $column - ";
- print DEST "primary key"
- if $column eq $primary_key;
- print DEST "\n\n";
- }
- next;
-
- } elsif ( $line=~ /^(\s*)\$self->ut_numbern\('primary_key'\)\s*/ ) {
-
- print DEST "$1\$self->ut_numbern('$primary_key')\n"
- if $primary_key;
- next;
-
- } elsif (
- $line =~ /^(\s*)\|\|\s+\$self->ut_number\('validate_other_fields'\)\s*/
- ) {
-
- foreach my $column ( grep { $_ ne $primary_key } $dbdef_table->columns ) {
- my $ut = $ut{$dbdef_table->column($column)->type};
- $ut .= 'n' if $dbdef_table->column($column)->null;
- print DEST "$1|| \$self->ut_$ut('$column')\n";
- }
- next;
-
- }
-
- print DEST $line;
-}
-
-close SRC;
-close DEST;
-
-###
-# add FS/t/table.t
-###
-
-open(TEST,">FS/t/$table.t") or die $!;
-print TEST <<ENDTEST;
-BEGIN { \$| = 1; print "1..1\\n" }
-END {print "not ok 1\\n" unless \$loaded;}
-use FS::$table;
-\$loaded=1;
-print "ok 1\\n";
-ENDTEST
-close TEST;
-
-###
-# add them to MANIFEST
-###
-
-system('cvs edit FS/MANIFEST');
-
-open(MANIFEST,">>FS/MANIFEST") or die $!;
-print MANIFEST "FS/$table.pm\n",
- "t/$table.t\n";
-close MANIFEST;
-
diff --git a/bin/print-schema b/bin/print-schema
deleted file mode 100755
index 886e3250b..000000000
--- a/bin/print-schema
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/usr/bin/perl
-
-use DBIx::DBSchema;
-
-$l = load DBIx::DBSchema "/usr/local/etc/freeside/dbdef.DBI:Pg:dbname=freeside";
-
-print $l->pretty_print, "\n";
generated by cgit v1.2.1 (git 2.18.0) at 2025-06-14 19:16:31 +0000