4 files changed, 0 insertions, 136 deletions
diff --git a/bin/cust_main-find_bogus_geocode b/bin/cust_main-find_bogus_geocode
deleted file mode 100755
index 04a38a9c4..000000000
--- a/bin/cust_main-find_bogus_geocode
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw( qsearch );
-use FS::cust_main;
-
-my $user = shift or die "usage: cust_main-find_bogus_geocode username\n";
-adminsuidsetup $user;
-
-my @cust_main = qsearch({
-  'table' => 'cust_main',
-  'extra_sql' => 'WHERE geocode IS NOT NULL',
-});
-
-foreach my $cust_main ( @cust_main ) {
-
-  my $db_geocode = $cust_main->geocode;
-
-  $cust_main->set('geocode', '');
-
-  my $calc_geocode = $cust_main->geocode('cch');
-
-  next unless $calc_geocode;
-
-  my $cust = $cust_main->custnum.': '. $cust_main->name. "\n";
-
-  if ( $db_geocode eq $calc_geocode ) {
-    warn "unnecessary geocode override for $cust";
-  } else {
-    warn "bogus geocode override $db_geocode overrides $calc_geocode for $cust";
-  }
-
-}
-
-1;
diff --git a/bin/freeside-backup b/bin/freeside-backup
deleted file mode 100644
index 97a4899e6..000000000
--- a/bin/freeside-backup
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Getopt::Std;
-use FS::UID qw(adminsuidsetup);
-use FS::Conf;
-
-my $user = shift or die &usage;
-adminsuidsetup $user;
-
-#you can skip this just by not having the config
-use FS::Cron::backup qw(backup_scp);
-backup_scp();
-
-sub usage {
-  die "Usage:\n\n  freeside-backup user\n";
-}
-
-###
-# documentation
-###
-
-=head1 NAME
-
-freeside-backup - Runs a backup
-
-=head1 SYNOPSIS
-
-  freeside-backup user
-
-=head1 DESCRIPTION
-
-Runs a backup.  See the dump-scpdest configuration option.
-
-=head1 BUGS
-
-=head1 SEE ALSO
-
-=cut
-
-1;
-
diff --git a/bin/merge-referrals b/bin/merge-referrals
deleted file mode 100644
index ba07a81c6..000000000
--- a/bin/merge-referrals
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearchs);
-use FS::cust_main;
-
-my $user = shift or die "usage: merge-customers username custnum\n";
-adminsuidsetup $user;
-
-my $custnum = shift or die "usage: merge-customers username custnum\n";
-
-foreach my $cust_main (
-  qsearch('cust_main', { 'referral_custnum' => $custnum })
-) {
-  my $error = $cust_main->merge($custnum);
-  die $error if $error;
-}
-
-1;
diff --git a/bin/rt-trim-whitespace b/bin/rt-trim-whitespace
deleted file mode 100755
index 503d9cff7..000000000
--- a/bin/rt-trim-whitespace
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use FS::Record;
-use FS::UID qw(adminsuidsetup dbh driver_name);
-
-# Remove trailing whitespace from custom field option lists and values.
-
-my $dbh = adminsuidsetup(shift) or die "Usage: rt-trim-whitespace username\n";
-die "rt-trim-whitespace only works on Pg databases" if driver_name ne 'Pg';
-
-my @updates = (
-  customfieldvalues       => 'name',
-  objectcustomfieldvalues => 'content',
-);
-
-while(@updates) {
-  my $table = shift @updates;
-  my $field = shift @updates;
-  my $select = 
-"SELECT $field FROM $table WHERE $field != substring($field from ".
-  q!E'^(.*\\\\S)\\\\s*$'! . ')';
-  
-  print "$select\n";
-  my $rows = $dbh->do($select);
-  print "$rows rows found.\n";
-  
-  if($rows) {
-    my $update =
-"UPDATE $table SET $field = substring($field from ".q!E'^(.*\\\\S)\\\\s*$'!.')'.
-" WHERE $field != substring($field from ".q!E'^(.*\\\\S)\\\\s*$'!.')';
-    print "$update\n";
-    my $rows = $dbh->do($update);
-    print "$rows updated.\n";
-  }
-}
-$dbh->commit or die $dbh->errstr;