Active Directory DOMAIN\login removal

diff --git a/lib/BackupPC/CGI/Lib.pm b/lib/BackupPC/CGI/Lib.pm
index a1d06aa..a1abccf 100644 (file)
--- a/lib/BackupPC/CGI/Lib.pm
+++ b/lib/BackupPC/CGI/Lib.pm
@@ -134,6 +134,11 @@ sub NewRequest
     #
     $User   = $1 if ( $User =~ /uid=([^,]+)/i || $User =~ /(.*)/ );
 
     #
     $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
     #
     #
     # Clean up %ENV for taint checking
     #