[freeside-commits] freeside/bin generate-table-module,1.7,1.8

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv16983

Modified Files:
	generate-table-module 
Log Message:
restore black magic

Index: generate-table-module
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/generate-table-module,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -d -r1.7 -r1.8
--- generate-table-module	20 Aug 2009 09:26:18 -0000	1.7
+++ generate-table-module	8 Sep 2010 21:33:44 -0000	1.8
@@ -1,7 +1,11 @@
 #!/usr/bin/perl
 
+use strict;
+use vars qw( $opt_n );
 use FS::Schema qw( dbdef_dist );
+use Getopt::Std;
 
+getopts('n');
 my $table = shift;
 
 ###
@@ -69,12 +73,9 @@
 # add to FS/FS/Mason.pm
 ###
 
-# it needs to be:
-# 1. disablable (have an option to turn it off)
-# 2. documented in the schema change docs
-#
-#my $magic = '# Sammath Naur';
-#system("perl -pi -e 's/$magic/use FS::$table;\n  $magic/' FS/FS/Mason.pm");
+my $magic = '# Sammath Naur';
+system("perl -pi -e 's/$magic/use FS::$table;\n  $magic/' FS/FS/Mason.pm")
+  unless $opt_n;
 
 ###
 # add FS/t/table.t