# Update various config parameters
#
+#
+# Guess $Conf{CgiURL}
+#
+if ( !defined($Conf{CgiURL}) ) {
+ if ( $Conf{CgiDir} =~ m{cgi-bin(/.*)} ) {
+ $Conf{CgiURL} = "'http://$Conf{ServerHost}/cgi-bin$1/BackupPC_Admin'";
+ } else {
+ $Conf{CgiURL} = "'http://$Conf{ServerHost}/cgi-bin/BackupPC_Admin'";
+ }
+}
+
#
# IncrFill should now be off
#
my $comment = 1;
my $allVars = {};
while ( <C> ) {
- if ( /^\s*#/ ) {
+ if ( /^#/ ) {
if ( $comment ) {
$out .= $_;
} else {