Add ViewCheck

master
Heuzef 5 years ago
parent d4c7bf3e5f
commit d7cced99ea
  1. 4
      Lib.pm

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

Loading…
Cancel
Save