Add ViewCheck

5 years ago · d7cced99ea
parent d4c7bf3e5f
commit d7cced99ea
1 changed files with 3 additions and 1 deletions
--- a/Lib.pm
+++ b/Lib.pm
@ -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};