1 files changed, 0 insertions, 32 deletions
diff --git a/bin/japan.pl b/bin/japan.pl
deleted file mode 100755
index 14e44e4..0000000
--- a/bin/japan.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use FS::UID qw( adminsuidsetup );
-use FS::Record qw( qsearch );
-use FS::cust_main_county;
-
-adminsuidsetup shift;
-
-my $country = 'JP';
-
-foreach my $cust_main_county (
-  qsearch('cust_main_county', { 'country' => $country } )
-) {
-
-  if ( $cust_main_county->state =~ /\[([\w ]+)\]\s*$/ ) {
-    $cust_main_county->state($1);
-    my $error = $cust_main_county->replace;
-    die $error if $error;
-  }
-
-}
-
-
-#use Locale::SubCountry;
-#
-##my $state = 'Tôkyô [Tokyo]';
-#my $state = 'Tottori';
-#
-#my $lsc = new Locale::SubCountry 'JP';
-#
-#print $lsc->code($state)."\n";
-