|
Lines 158-164
Link Here
|
| 158 |
# config file to get all the defaults. |
158 |
# config file to get all the defaults. |
| 159 |
# |
159 |
# |
| 160 |
my $ConfigPath = ""; |
160 |
my $ConfigPath = ""; |
| 161 |
my $ConfigFileOK = 1; |
161 |
my $ConfigFileOK = 0; |
| 162 |
while ( 1 ) { |
162 |
while ( 1 ) { |
| 163 |
if ( $ConfigFileOK && -f "/etc/BackupPC/config.pl" ) { |
163 |
if ( $ConfigFileOK && -f "/etc/BackupPC/config.pl" ) { |
| 164 |
$ConfigPath = "/etc/BackupPC/config.pl"; |
164 |
$ConfigPath = "/etc/BackupPC/config.pl"; |
|
Lines 213-219
Link Here
|
| 213 |
$bpc->{LogDir} = $Conf{LogDir} = "$Conf{TopDir}/log" |
213 |
$bpc->{LogDir} = $Conf{LogDir} = "$Conf{TopDir}/log" |
| 214 |
if ( $Conf{LogDir} eq '' ); |
214 |
if ( $Conf{LogDir} eq '' ); |
| 215 |
} |
215 |
} |
| 216 |
$bpc->{ConfDir} = $Conf{ConfDir} = $confDir; |
216 |
# Disable this as it's not really neccessary for this ebuild |
|
|
217 |
# $bpc->{ConfDir} = $Conf{ConfDir} = $confDir; |
| 217 |
my $err = $bpc->ServerConnect($Conf{ServerHost}, $Conf{ServerPort}, 1); |
218 |
my $err = $bpc->ServerConnect($Conf{ServerHost}, $Conf{ServerPort}, 1); |
| 218 |
if ( $err eq "" ) { |
219 |
if ( $err eq "" ) { |
| 219 |
print <<EOF; |
220 |
print <<EOF; |
|
Lines 726-732
Link Here
|
| 726 |
if ( $Conf{CgiDir} =~ m{cgi-bin(/.*)} ) { |
727 |
if ( $Conf{CgiDir} =~ m{cgi-bin(/.*)} ) { |
| 727 |
$Conf{CgiURL} = "'http://$Conf{ServerHost}/cgi-bin$1/BackupPC_Admin'"; |
728 |
$Conf{CgiURL} = "'http://$Conf{ServerHost}/cgi-bin$1/BackupPC_Admin'"; |
| 728 |
} else { |
729 |
} else { |
| 729 |
$Conf{CgiURL} = "'http://$Conf{ServerHost}/cgi-bin/BackupPC_Admin'"; |
730 |
$Conf{CgiURL} = "'http://$Conf{ServerHost}/BackupPC_Admin'"; |
| 730 |
} |
731 |
} |
| 731 |
} |
732 |
} |
| 732 |
|
733 |
|
