--- loncom/lcuserdel	2000/10/28 18:25:47	1.3
+++ loncom/lcuserdel	2000/10/28 19:22:19	1.4
@@ -3,8 +3,8 @@
 # lcuserdel
 #
 # Scott Harrison
-# October 27, 2000
-# October 28, 2000
+# SH: October 27, 2000
+# SH: October 28, 2000
 
 use strict;
 
@@ -81,6 +81,23 @@ else {
     map {chop} @input;
 }
 
+my ($username)=@input;
+$username=~/^(\w+)$/;
+my $safeusername=$1;
+
+# By using the system userdel command:
+# Remove entry from /etc/passwd if it exists
+# Remove entry from /etc/groups if it exists
+system('/usr/sbin/userdel',$safeusername);
+
+# Remove entry from /etc/smbpasswd if it exists
+
+# Move directory from /home/username to /home/username.1
+
+# Change ownership on directory from username:username to www:www
+# This prevents subsequently added users from having access.
+
+
 &disable_root_capability;
 unlink("/tmp/lock_lcpasswd");
 exit 0;