From 0c525f3ba7b2b6730b8939b950e4d76dd16802a9 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Thu, 5 Jan 2006 09:34:30 +0000
Subject: This commit was manufactured by cvs2svn to create tag
 'SQL_LEDGER_2_4_4'.

---
 bin/generate-table-module | 89 -----------------------------------------------
 1 file changed, 89 deletions(-)
 delete mode 100755 bin/generate-table-module

(limited to 'bin/generate-table-module')

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;
-
-- 
cgit v1.2.1