search requires admin priviledge

[BackupPC.git] / lib / BackupPC / CGI / Lib.pm
diff --git a/lib/BackupPC/CGI/Lib.pm b/lib/BackupPC/CGI/Lib.pm

index a1abccf..e97e38c 100644 (file)
--- a/lib/BackupPC/CGI/Lib.pm
+++ b/lib/BackupPC/CGI/Lib.pm
@@ -136,8 +136,8 @@ sub NewRequest
  
      # strip Active directory domain in front of user
      $User   = $1 if ( $User =~ /\w+\\(\w+)/ );
-use Data::Dump qw(dump);
-warn "XX User: $User",dump( \%ENV );
+#use Data::Dump qw(dump);
+#warn "XX User: $User",dump( \%ENV );
  
      #
      # Clean up %ENV for taint checking
@@ -448,7 +448,7 @@ sub Header
                                             priv => 1},
         # XXX additional search extensions
          { link => "?action=search",        name => $Lang->{Search_archive},
-                                           priv => 0},
+                                           priv => 1},
          { link => "?action=burn",          name => $Lang->{Burn_media},
                                             priv => 1},
          @{$Conf{CgiNavBarLinks} || []},
@@ -466,7 +466,10 @@ sub Header
  $Conf{CgiHeaders}
  <script src="$Conf{CgiImageDirURL}/sorttable.js"></script>
  </head><body onLoad="document.getElementById('NavMenu').style.height=document.body.scrollHeight">
+<!--
  <a href="http://backuppc.sourceforge.net"><img src="$Conf{CgiImageDirURL}/logo.gif" hspace="5" vspace="7" border="0"></a><br>
+-->
+<img src="/asa-150x50.png" hspace="5" vspace="7">
  EOF
  
      if ( defined($Hosts) && defined($host) && defined($Hosts->{$host}) ) {