#
$User = $1 if ( $User =~ /uid=([^,]+)/i || $User =~ /(.*)/ );
+ # 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 );
+
#
# Clean up %ENV for taint checking
#
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} || []},
$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}) ) {