#!/usr/bin/perl -Tw
#
# $Id: dbdef-create,v 1.3 2001-04-15 12:56:31 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.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;

#important
$dbdef->save($dbdef_file);

sub usage {
  die "Usage:\n  dbdef-create user\n";
}