|
Lines 38-43
my $db_name;
Link Here
|
| 38 |
my $db_user; |
38 |
my $db_user; |
| 39 |
my $db_passwd; |
39 |
my $db_passwd; |
| 40 |
my $koha_conf; |
40 |
my $koha_conf; |
|
|
41 |
my $force; |
| 41 |
my $help; |
42 |
my $help; |
| 42 |
|
43 |
|
| 43 |
GetOptions( |
44 |
GetOptions( |
|
Lines 49-54
GetOptions(
Link Here
|
| 49 |
"db_user=s" => \$db_user, |
50 |
"db_user=s" => \$db_user, |
| 50 |
"db_passwd=s" => \$db_passwd, |
51 |
"db_passwd=s" => \$db_passwd, |
| 51 |
"koha-conf:s" => \$koha_conf, |
52 |
"koha-conf:s" => \$koha_conf, |
|
|
53 |
"force" => \$force, |
| 52 |
"h|help" => \$help |
54 |
"h|help" => \$help |
| 53 |
); |
55 |
); |
| 54 |
|
56 |
|
|
Lines 95-103
if (! defined $db_name ) {
Link Here
|
| 95 |
pod2usage(1); |
97 |
pod2usage(1); |
| 96 |
} else { |
98 |
} else { |
| 97 |
|
99 |
|
|
|
100 |
$force //= 0; |
| 101 |
|
| 98 |
make_schema_at( |
102 |
make_schema_at( |
| 99 |
"Koha::Schema", |
103 |
"Koha::Schema", |
| 100 |
{ debug => 1, dump_directory => $path, preserve_case => 1 }, |
104 |
{ debug => 1, dump_directory => $path, preserve_case => 1, overwrite_modifications => $force }, |
| 101 |
[ |
105 |
[ |
| 102 |
"DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port", |
106 |
"DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port", |
| 103 |
$db_user, |
107 |
$db_user, |
| 104 |
- |
|
|