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 |
- |
|
|