my $dom = $parser->parse_file($restore_file);
foreach my $node ($dom->findnodes('//pref')) {
- my $variable = sql_str($node->findvalue('./variable'));
- my $value = sql_str($node->findvalue('./value'));
+ my $variable = domain_shift(sql_str($node->findvalue('./variable')));
+ my $value = domain_shift(sql_str($node->findvalue('./value')));
my $query = "UPDATE systempreferences SET value = $value WHERE variable = $variable";
my $sth = $dbh->prepare($query);
$sth->execute();
return;
}
+sub domain_shift {
+ my $str = shift;
+ $str =~ s/-test.kohacatalog.com/.kohacatalog.com/g;
+ $str =~ s/-test-staff.kohacatalog.com/-staff.kohacatalog.com/g;
+ return $str;
+}
+
sub sql_str {
my $str = shift;
if (!defined $str or $str eq '') { return 'NULL'; }