bin/dbdef-create

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: dbdef-create,v 1.4 2001-08-17 10:57:40 ivan Exp $
   4 #
   5 # create dbdef file for existing mySQL database (needs SHOW|DESCRIBE command
   6 # not in Pg) based on fs-setup
   7 #
   8 # ivan@sisd.com 98-jun-2
   9 #
  10 # $Log: dbdef-create,v $
  11 # Revision 1.4  2001-08-17 10:57:40  ivan
  12 # gah
  13 #
  14 # Revision 1.3  2001/04/15 12:56:31  ivan
  15 # s/dbdef/DBIx::DBSchema/
  16 #
  17 # Revision 1.2  1998/11/19 11:17:44  ivan
  18 # adminsuidsetup requires argument
  19 #
  20
  21 use strict;
  22 use DBI;
  23 use DBIx::DBSchema;
  24 use FS::UID qw(adminsuidsetup datasrc driver_name);
  25
  26 my $user = shift or die &usage;
  27
  28 my($dbh)=adminsuidsetup $user;
  29
  30 #needs to match FS::Record
  31 my($dbdef_file) = "/usr/local/etc/freeside/dbdef.". datasrc;
  32
  33 my $dbdef = new_native DBIx::DBSchema $dbh;
  34
  35 #print $dbdef->pretty_print;
  36
  37 #important
  38 $dbdef->save($dbdef_file);
  39
  40 sub usage {
  41   die "Usage:\n  dbdef-create user\n";
  42 }