WMDE
/
LDAPAccountManager
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactoring

This commit is contained in:
Roland Gruber 2009-06-14 11:36:38 +00:00
parent 0d986e228d
commit 99b258545d
1 changed files with 174 additions and 172 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
lam/lib/lamdaemon.pl
View File

@ -4,7 +4,7 @@
#
# This code is part of LDAP Account Manager (http://www.sourceforge.net/projects/lam)
# Copyright (C) 2003 - 2006 Tilo Lutz
# Copyright (C) 2006 - 2007 Roland Gruber
# Copyright (C) 2006 - 2009 Roland Gruber
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -93,8 +93,15 @@ sub get_fs { # Load mountpoints from mtab if enabled quotas
}
# ***************** Check values
if ($< == 0 ) { # we are root
# Drop root Previleges
# check if script runs as root
if ($< != 0 ) {
print "ERROR,Lamdaemon ($hostname),Not called as root!\n";
logMessage(LOG_ERR, "Not called as root!");
exit 1;
}
# Drop root privileges
($<, $>) = ($>, $<);
# loop for every transmitted user
while (1) {
@ -119,36 +126,35 @@ if ($< == 0 ) { # we are root
# Get user information
if (($vals[3] eq 'user') || ($vals[1] eq 'home')) { @user = getpwnam($vals[0]); }
else { @user = getgrnam($vals[0]); }
$vals[1] eq 'home' && do {
switch2: {
$vals[2] eq 'add' && do {
if ($vals[1] eq 'home') {
if ($vals[2] eq 'add') {
# split homedir to set all directories below the last dir. to 0755
my $path = $user[7];
my $homedir = $user[7];
my $path = $homedir;
$path =~ s,/(?:[^/]*)$,,;
($<, $>) = ($>, $<); # Get root privileges
if (! -e $path) {
system 'mkdir', '-m', '0755', '-p', $path; # Create paths to homedir
}
if (! -e $user[7]) {
system 'mkdir', '-m', $vals[3], $user[7]; # Create homedir itself
system ("(cd /etc/skel && tar cf - .) | (cd $user[7] && tar xmf -)"); # Copy /etc/sekl into homedir
system 'chown', '-hR', "$user[2]:$user[3]" , $user[7]; # Change owner to new user
if (! -e $homedir) {
system 'mkdir', '-m', $vals[3], $homedir; # Create homedir itself
system ("(cd /etc/skel && tar cf - .) | (cd $homedir && tar xmf -)"); # Copy /etc/sekl into homedir
system 'chown', '-hR', "$user[2]:$user[3]" , $homedir; # Change owner to new user
if (-e '/usr/sbin/useradd.local') {
system '/usr/sbin/useradd.local', $user[0]; # run useradd-script
system 'chmod', '-R', $vals[3], $user[7]; # Edit chmod rights
system 'chmod', '-R', $vals[3], $homedir; # Edit chmod rights
}
system 'chmod', $vals[3], $user[7]; # Edit chmod rights
$return = "INFO,Lamdaemon ($hostname),Home directory created (" . $user[7] . ").";
logMessage(LOG_INFO, "Home directory created (" . $user[7] . ")");
system 'chmod', $vals[3], $homedir; # Edit chmod rights
$return = "INFO,Lamdaemon ($hostname),Home directory created (" . $homedir . ").";
logMessage(LOG_INFO, "Home directory created (" . $homedir . ")");
}
else {
$return = "ERROR,Lamdaemon ($hostname),Home directory already exists (" . $user[7] . ").";
logMessage(LOG_INFO, "Home directory already exists (" . $user[7] . ")");
$return = "ERROR,Lamdaemon ($hostname),Home directory already exists (" . $homedir . ").";
logMessage(LOG_INFO, "Home directory already exists (" . $homedir . ")");
}
($<, $>) = ($>, $<); # Give up root previleges
last switch2;
};
$vals[2] eq 'rem' && do {
}
elsif ($vals[2] eq 'rem') {
($<, $>) = ($>, $<); # Get root previliges
if (-d $user[7] && $user[7] ne '/') {
if ((stat($user[7]))[4] eq $user[2]) {
@ -168,15 +174,15 @@ if ($< == 0 ) { # we are root
$return = "INFO,Lamdaemon ($hostname),The directory which should be deleted was not found (skipped).";
}
($<, $>) = ($>, $<); # Give up root previleges
last switch2;
};
# Show error if undfined command is used
}
else {
# Show error if undefined command is used
$return = "ERROR,Lamdaemon ($hostname),Unknown command $vals[2].";
logMessage(LOG_ERR, "Unknown command $vals[2]");
}
last switch;
};
$vals[1] eq 'quota' && do {
if ($vals[1] eq 'quota') {
require Quota; # Needed to get and set quotas
get_fs(); # Load list of devices with enabled quotas
# Store quota information in array
@ -261,11 +267,6 @@ if ($< == 0 ) { # we are root
};
print "$return\n";
}
}
else {
print "ERROR,Lamdaemon ($hostname),Not called as root!\n";
logMessage(LOG_ERR, "Not called as root!");
}
#
# Logs a message to the syslog.
@ -282,3 +283,4 @@ sub logMessage {
syslog($level, $message);
closelog;
}