Diff for /loncom/lcuserdel between versions 1.12 and 1.15

version 1.12, 2000/10/30 03:37:51 version 1.15, 2003/02/03 18:03:52
Line 2 Line 2
 #  #
 # lcuserdel  # lcuserdel
 #  #
 # Scott Harrison  
 # SH: October 27, 2000  
 # SH: October 28, 2000  
 # SH: October 29, 2000  
   
 use strict;  use strict;
   
Line 119  system('/usr/sbin/userdel',$safeusername Line 115  system('/usr/sbin/userdel',$safeusername
 system('/usr/sbin/groupdel',$safeusername); # ignore error message  system('/usr/sbin/groupdel',$safeusername); # ignore error message
   
 # Remove entry from /etc/smbpasswd if it exists  # Remove entry from /etc/smbpasswd if it exists
 my $oldsmbpasswd=`/bin/cat /etc/smbpasswd`;  #  the safest way to do this is with smbpasswd -x
 my $newsmbpasswd=`/bin/grep -v '^${safeusername}:' /etc/smbpasswd`;  #  as that's independent of location of the smbpasswd file.
   #
 if ($oldsmbpasswd ne $newsmbpasswd) {  if (-e '/usr/bin/smbpasswd') {
     open OUT,">/etc/smbpasswd";    ($>,$<) = (0,0); # fool smbpasswd to think this is not setuid.
     print OUT $newsmbpasswd;    system('/usr/bin/smbpasswd -x '.$safeusername);
     close OUT;    $< = $wwwid;
 }  }
   
   
 # Change ownership on directory from username:username to www:www  # Change ownership on directory from username:username to www:www
 # This prevents subsequently added users from having access.  # This prevents subsequently added users from having access.
   

Removed from v.1.12  
changed lines
  Added in v.1.15


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>