|
Lines 32-37
my $db_port = '3306';
Link Here
|
| 32 |
my $db_name; |
32 |
my $db_name; |
| 33 |
my $db_user; |
33 |
my $db_user; |
| 34 |
my $db_passwd; |
34 |
my $db_passwd; |
|
|
35 |
my $tablename; |
| 35 |
my $help; |
36 |
my $help; |
| 36 |
|
37 |
|
| 37 |
GetOptions( |
38 |
GetOptions( |
|
Lines 42-47
GetOptions(
Link Here
|
| 42 |
"db_name=s" => \$db_name, |
43 |
"db_name=s" => \$db_name, |
| 43 |
"db_user=s" => \$db_user, |
44 |
"db_user=s" => \$db_user, |
| 44 |
"db_passwd=s" => \$db_passwd, |
45 |
"db_passwd=s" => \$db_passwd, |
|
|
46 |
"tablename=s" => \$tablename, |
| 45 |
"h|help" => \$help |
47 |
"h|help" => \$help |
| 46 |
); |
48 |
); |
| 47 |
|
49 |
|
|
Lines 52-61
if (! defined $db_name ) {
Link Here
|
| 52 |
print "Error: \'db_name\' parameter is mandatory.\n"; |
54 |
print "Error: \'db_name\' parameter is mandatory.\n"; |
| 53 |
pod2usage(1); |
55 |
pod2usage(1); |
| 54 |
} else { |
56 |
} else { |
|
|
57 |
my $options = { debug => 1, dump_directory => $path, preserve_case => 1 }; |
| 58 |
if ($tablename) { |
| 59 |
$options->{constraint} = qr/\A$tablename\z/ |
| 60 |
} |
| 55 |
|
61 |
|
| 56 |
make_schema_at( |
62 |
make_schema_at( |
| 57 |
"Koha::Schema", |
63 |
"Koha::Schema", |
| 58 |
{ debug => 1, dump_directory => $path, preserve_case => 1 }, |
64 |
$options, |
| 59 |
["DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",$db_user, $db_passwd ] |
65 |
["DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",$db_user, $db_passwd ] |
| 60 |
); |
66 |
); |
| 61 |
} |
67 |
} |
| 62 |
- |
|
|