From 6ab297f4abadc168b5afafc3d7f0b533af4b8141 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 26 Jan 2011 11:42:14 +0000
Subject: [PATCH] Active Directory DOMAIN\login removal

---
 lib/BackupPC/CGI/Lib.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/BackupPC/CGI/Lib.pm b/lib/BackupPC/CGI/Lib.pm
index a1d06aa..a1abccf 100644
--- 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 =~ /(.*)/ );
 
+    # 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
     #
-- 
2.20.1