From: ivan Date: Fri, 10 Aug 2007 23:50:04 +0000 (+0000) Subject: rename dbdef-create to freeside-dbdef-create and move it to FS/bin, so it gets %... X-Git-Tag: TRIXBOX_2_6~410 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ea9d9366c3e2688818aba71c335c3d2e0283b4f9 rename dbdef-create to freeside-dbdef-create and move it to FS/bin, so it gets %%%FREESIDE_CONF%%% substituted --- diff --git a/FS/bin/freeside-dbdef-create b/FS/bin/freeside-dbdef-create new file mode 100755 index 000000000..5063a3ce9 --- /dev/null +++ b/FS/bin/freeside-dbdef-create @@ -0,0 +1,27 @@ +#!/usr/bin/perl -Tw + +use strict; +use DBI; +use DBIx::DBSchema 0.26; +use FS::UID qw(adminsuidsetup datasrc driver_name); +use FS::Schema; + +my $user = shift or die &usage; + +$FS::Schema::setup_hack = 1; +$FS::CurrentUser::upgrade_hack = 1; +my($dbh)=adminsuidsetup $user; + +#needs to match FS::Record +my($dbdef_file) = "%%%FREESIDE_CONF%%%/dbdef.". datasrc; + +my $dbdef = new_native DBIx::DBSchema $dbh; + +#print $dbdef->pretty_print; + +#important +$dbdef->save($dbdef_file); + +sub usage { + die "Usage:\n dbdef-create user\n"; +} diff --git a/bin/dbdef-create b/bin/dbdef-create deleted file mode 100755 index 5063a3ce9..000000000 --- a/bin/dbdef-create +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/perl -Tw - -use strict; -use DBI; -use DBIx::DBSchema 0.26; -use FS::UID qw(adminsuidsetup datasrc driver_name); -use FS::Schema; - -my $user = shift or die &usage; - -$FS::Schema::setup_hack = 1; -$FS::CurrentUser::upgrade_hack = 1; -my($dbh)=adminsuidsetup $user; - -#needs to match FS::Record -my($dbdef_file) = "%%%FREESIDE_CONF%%%/dbdef.". datasrc; - -my $dbdef = new_native DBIx::DBSchema $dbh; - -#print $dbdef->pretty_print; - -#important -$dbdef->save($dbdef_file); - -sub usage { - die "Usage:\n dbdef-create user\n"; -}