projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* When there is an existing partial, a new partials is only saved
[BackupPC.git]
/
lib
/
BackupPC
/
CGI
/
EditConfig.pm
diff --git
a/lib/BackupPC/CGI/EditConfig.pm
b/lib/BackupPC/CGI/EditConfig.pm
index
fbf97f9
..
0be716a
100644
(file)
--- a/
lib/BackupPC/CGI/EditConfig.pm
+++ b/
lib/BackupPC/CGI/EditConfig.pm
@@
-10,7
+10,7
@@
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2005 Craig Barratt
+# Copyright (C) 2005
-2007
Craig Barratt
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@
-725,9
+725,14
@@
EOF
($mesg, my $hostChange) = hostsDiffMesg($hostsNew);
$bpc->HostInfoWrite($hostsNew) if ( $hostChange );
foreach my $host ( keys(%$copyConf) ) {
($mesg, my $hostChange) = hostsDiffMesg($hostsNew);
$bpc->HostInfoWrite($hostsNew) if ( $hostChange );
foreach my $host ( keys(%$copyConf) ) {
- my $confData = $bpc->ConfigDataRead($copyConf->{$host});
+ #
+ # Currently host names are forced to lc when they
+ # are read from the hosts file. Therefore we need
+ # to force the from and to hosts to lc.
+ #
+ my $confData = $bpc->ConfigDataRead(lc($copyConf->{$host}));
my $fromHost = $copyConf->{$host};
my $fromHost = $copyConf->{$host};
- $err .= $bpc->ConfigDataWrite(
$host
, $confData);
+ $err .= $bpc->ConfigDataWrite(
lc($host)
, $confData);
$mesg .= eval("qq($Lang->{CfgEdit_Log_Copy_host_config})");
}
$mesg .= eval("qq($Lang->{CfgEdit_Log_Copy_host_config})");
}