blob: e71eb36b495b4399b7df9faf14b954e516ddbd98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/perl -Tw
#
# $Id: dbdef-create,v 1.4 2001-08-17 10:57:40 ivan Exp $
#
# create dbdef file for existing mySQL database (needs SHOW|DESCRIBE command
# not in Pg) based on fs-setup
#
# ivan@sisd.com 98-jun-2
#
# $Log: dbdef-create,v $
# Revision 1.4 2001-08-17 10:57:40 ivan
# gah
#
# Revision 1.3 2001/04/15 12:56:31 ivan
# s/dbdef/DBIx::DBSchema/
#
# Revision 1.2 1998/11/19 11:17:44 ivan
# adminsuidsetup requires argument
#
use strict;
use DBI;
use DBIx::DBSchema;
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";
}
|
