|
|
|
@ -302,7 +302,7 @@ sub ServerConnect |
|
|
|
|
return if ( $bpc->ServerOK() ); |
|
|
|
|
$bpc->ServerDisconnect(); |
|
|
|
|
if ( my $err = $bpc->ServerConnect($Conf{ServerHost}, $Conf{ServerPort}) ) { |
|
|
|
|
if ( CheckPermission() |
|
|
|
|
if ( CheckPermission() |
|
|
|
|
&& -f $Conf{ServerInitdPath} |
|
|
|
|
&& $Conf{ServerInitdStartCmd} ne "" ) { |
|
|
|
|
my $content = eval("qq{$Lang->{Admin_Start_Server}}"); |
|
|
|
@ -458,6 +458,8 @@ sub Header |
|
|
|
|
priv => 1}, |
|
|
|
|
{ link => "?action=check", name => 'Check', |
|
|
|
|
priv => 1}, |
|
|
|
|
{ link => "?action=viewcheck", name => 'ViewCheck', |
|
|
|
|
priv => 1}, |
|
|
|
|
@{$Conf{CgiNavBarLinks} || []}, |
|
|
|
|
); |
|
|
|
|
my $host = $In{host}; |
|
|
|
|