--- loncom/lcuserdel	2002/10/07 01:41:31	1.13
+++ loncom/lcuserdel	2007/08/22 19:53:22	1.16
@@ -2,13 +2,11 @@
 #
 # lcuserdel
 #
-# Scott Harrison
-# SH: October 27, 2000
-# SH: October 28, 2000
-# SH: October 29, 2000
 
 use strict;
 
+# $Id: lcuserdel,v 1.16 2007/08/22 19:53:22 albertel Exp $
+
 # This script is a setuid script (chmod 6755) that should
 # be run by user 'www'.  It DOES NOT delete directories.
 # All it does is remove a user's entries from
@@ -125,6 +123,7 @@ system('/usr/sbin/groupdel',$safeusernam
 if (-e '/usr/bin/smbpasswd') {
   ($>,$<) = (0,0);		# fool smbpasswd to think this is not setuid.
   system('/usr/bin/smbpasswd -x '.$safeusername);
+  $< = $wwwid;
 }