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

added Syslog logging for lamdaemon

This commit is contained in:
Roland Gruber 2008-07-21 20:06:11 +00:00
parent 48949b42c7
commit a0ac8f504e
2 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lam/HISTORY
View File

@ -1,5 +1,7 @@
August 2008 2.4.0 August 2008 2.4.0
- save last selected server profile from login page - save last selected server profile from login page
- lamdaemon: allow to specify SSH port
- lamdaemon: added Syslog logging
30.04.2008 2.3.0 30.04.2008 2.3.0

35
lam/lib/lamdaemon.pl
View File

@ -23,6 +23,8 @@
# #
# LDAP Account Manager daemon to create and delete homedirecotries and quotas # LDAP Account Manager daemon to create and delete homedirecotries and quotas
use Sys::Syslog;
# set a known path # set a known path
my $path = ""; my $path = "";
if (-d "/sbin") { if (-d "/sbin") {
@ -137,9 +139,11 @@ if ($< == 0 ) { # we are root
} }
system 'chmod', $vals[3], $user[7]; # Edit chmod rights system 'chmod', $vals[3], $user[7]; # Edit chmod rights
$return = "INFO,Lamdaemon ($hostname),Home directory created (" . $user[7] . ")."; $return = "INFO,Lamdaemon ($hostname),Home directory created (" . $user[7] . ").";
logMessage(LOG_INFO, "Home directory created (" . $user[7] . ")");
} }
else { else {
$return = "ERROR,Lamdaemon ($hostname),Home directory already exists (" . $user[7] . ")."; $return = "ERROR,Lamdaemon ($hostname),Home directory already exists (" . $user[7] . ").";
logMessage(LOG_INFO, "Home directory already exists (" . $user[7] . ")");
} }
($<, $>) = ($>, $<); # Give up root previleges ($<, $>) = ($>, $<); # Give up root previleges
last switch2; last switch2;
@ -153,19 +157,22 @@ if ($< == 0 ) { # we are root
system '/usr/sbin/userdel.local', $user[0]; system '/usr/sbin/userdel.local', $user[0];
} }
$return = "Ok"; $return = "Ok";
logMessage(LOG_INFO, "Home directory removed (" . $user[7] . ")");
} }
else { else {
$return = "ERROR,Lamdaemon ($hostname),Home directory not owned by $user[2]."; $return = "ERROR,Lamdaemon ($hostname),Home directory not owned by $user[2].";
logMessage(LOG_ERR, "Home directory owned by wrong user (" . $user[7] . ")");
} }
} }
else { else {
$return = "INFO,Lamdaemon ($hostname),The directory which should be deleted was not found (skipped)."; $return = "INFO,Lamdaemon ($hostname),The directory which should be deleted was not found (skipped).";
} }
($<, $>) = ($>, $<); # Give up root previleges ($<, $>) = ($>, $<); # Give up root previleges
last switch2; last switch2;
}; };
# Show error if undfined command is used # Show error if undfined command is used
$return = "ERROR,Lamdaemon ($hostname),Unknown command $vals[2]."; $return = "ERROR,Lamdaemon ($hostname),Unknown command $vals[2].";
logMessage(LOG_ERR, "Unknown command $vals[2]");
} }
last switch; last switch;
}; };
@ -210,6 +217,10 @@ if ($< == 0 ) { # we are root
$return = Quota::setqlim($dev,$user[2],$quota[$i][1],$quota[$i][2],$quota[$i][3],$quota[$i][4],1,$group); $return = Quota::setqlim($dev,$user[2],$quota[$i][1],$quota[$i][2],$quota[$i][3],$quota[$i][4],1,$group);
if ($return == -1) { if ($return == -1) {
$return = "ERROR,Lamdaemon ($hostname),Unable to set quota!"; $return = "ERROR,Lamdaemon ($hostname),Unable to set quota!";
logMessage(LOG_ERR, "Unable to set quota for $user[0].");
}
else {
logMessage(LOG_INFO, "Set quota for $user[0].");
} }
$i++; $i++;
} }
@ -226,6 +237,7 @@ if ($< == 0 ) { # we are root
if ($temp[0]ne'') { if ($temp[0]ne'') {
if ($temp == -1) { if ($temp == -1) {
$return = "ERROR,Lamdaemon ($hostname),Unable to read quota!"; $return = "ERROR,Lamdaemon ($hostname),Unable to read quota!";
logMessage(LOG_ERR, "Unable to read quota for $user[0].");
} }
else { else {
$return = "$quota_usr[$i][1],$temp[0],$temp[1],$temp[2],$temp[3],$temp[4],$temp[5],$temp[6],$temp[7]:$return"; $return = "$quota_usr[$i][1],$temp[0],$temp[1],$temp[2],$temp[3],$temp[4],$temp[5],$temp[6],$temp[7]:$return";
@ -240,14 +252,33 @@ if ($< == 0 ) { # we are root
last switch2; last switch2;
}; };
$return = "ERROR,Lamdaemon ($hostname),Unknown command $vals[2]."; $return = "ERROR,Lamdaemon ($hostname),Unknown command $vals[2].";
logMessage(LOG_ERR, "Unknown command $vals[2].");
} }
}; };
last switch; last switch;
$return = "ERROR,Lamdaemon ($hostname),Unknown command $vals[1]."; $return = "ERROR,Lamdaemon ($hostname),Unknown command $vals[1].";
logMessage(LOG_ERR, "Unknown command $vals[1].");
}; };
print "$return\n"; print "$return\n";
} }
} }
else { else {
print "ERROR,Lamdaemon ($hostname),Not called as root!\n"; print "ERROR,Lamdaemon ($hostname),Not called as root!\n";
logMessage(LOG_ERR, "Not called as root!");
} }
#
# Logs a message to the syslog.
#
# Parameters: level message
#
# level: error level
# message: message text
#
sub logMessage {
my $level = $_[0];
my $message = $_[1];
openlog('LAM - lamdaemon','','user');
syslog($level, $message);
closelog;
}