bin/dbdef-create

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: dbdef-create,v 1.3 2001-04-15 12:56:31 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.3  2001-04-15 12:56:31  ivan
  12 # s/dbdef/DBIx::DBSchema/
  13 #
  14 # Revision 1.2  1998/11/19 11:17:44  ivan
  15 # adminsuidsetup requires argument
  16 #
  17
  18 use strict;
  19 use DBI;
  20 use DBIx::DBSchema;
  21 use FS::UID qw(adminsuidsetup datasrc driver_name);
  22
  23 my $user = shift or die &usage;
  24
  25 my($dbh)=adminsuidsetup $user;
  26
  27 #needs to match FS::Record
  28 my($dbdef_file) = "/usr/local/etc/freeside/dbdef.". datasrc;
  29
  30 my $dbdef = new_native DBIx::DBSchema $dbh;
  31
  32 #important
  33 $dbdef->save($dbdef_file);
  34
  35 sub usage {
  36   die "Usage:\n  dbdef-create user\n";
  37 }