diff options
Diffstat (limited to 'bin/dbdef-create')
-rwxr-xr-x | bin/dbdef-create | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/bin/dbdef-create b/bin/dbdef-create new file mode 100755 index 000000000..a449d67cc --- /dev/null +++ b/bin/dbdef-create @@ -0,0 +1,24 @@ +#!/usr/bin/perl -Tw + +use strict; +use DBI; +use DBIx::DBSchema 0.22; +use FS::UID qw(adminsuidsetup datasrc driver_name); + +my $user = shift or die &usage; + +my($dbh)=adminsuidsetup $user; + +#needs to match FS::Record +my($dbdef_file) = "/usr/local/etc/freeside/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"; +} |