richard: server/perl-kolab/Kolab Kolab.pm.in, NONE, 1.1 Makefile.PL, 1.1, NONE
cvs at intevation.de
cvs at intevation.de
Sat Dec 17 22:45:34 CET 2005
- Previous message: richard: server/perl-kolab AUTHORS, NONE, 1.1 ChangeLog, NONE, 1.1 NEWS, NONE, 1.1 bootstrap, NONE, 1.1 configure.ac, NONE, 1.1 Makefile.am, 1.6, 1.7 Makefile.cvs, 1.2, 1.3 perl-kolab.spec.in, 1.27, 1.28
- Next message: richard: server/perl-kolab/Kolab-LDAP LDAP.pm.in, NONE, 1.1 Makefile.PL, 1.1, NONE
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Author: richard
Update of /kolabrepository/server/perl-kolab/Kolab
In directory doto:/tmp/cvs-serv16585/Kolab
Added Files:
Kolab.pm.in
Removed Files:
Makefile.PL
Log Message:
perl-kolab is now autoconfiscated using the regular autoconf
and automake machinery. Discarded autoperl machinery.
Much work has been done by Marcus Huwe.
--- NEW FILE: Kolab.pm.in ---
package Kolab;
##
## Copyright (c) 2003 Code Fusion cc
##
## Writen by Stuart Bingë <s.binge at codefusion.co.za>
##
## 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 the Free Software Foundation; either version 2, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You can view the GNU General Public License, online, at the GNU
## Project's homepage; see <http://www.gnu.org/licenses/gpl.html>.
##
use 5.008;
use strict;
use warnings;
use Sys::Syslog;
use URI;
use Net::LDAP;
use Kolab::Util;
#use Kolab::LDAP;
use vars qw(%config %haschanged $reloadOk);
require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = (
'all' => [ qw(
%config
$reloadOk
&reloadConfig
&reload
&log
) ]
);
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(
&KOLAB_SILENT
&KOLAB_ERROR
&KOLAB_WARN
&KOLAB_INFO
&KOLAB_DEBUG
);
our $VERSION = '0.9';
sub KOLAB_SILENT() { 0 }
sub KOLAB_ERROR() { 1 }
sub KOLAB_WARN() { 2 }
sub KOLAB_INFO() { 3 }
sub KOLAB_DEBUG() { 4 }
sub reloadConfig
{
my $tempval;
my $ldap;
my $error = 0;
# `log_level' specifies what severity of messages we want to see in the logs.
# Possible values are:
# 0 - Silent
# 1 - Errors
# 2 - Warnings & Errors
# 3 - Info, Warnings & Errors (DEFAULT)
# 4 - Debug (i.e. everything)
# Determine the root of the kolab installation, and read `kolab.globals'
# Notice that the location of the files is handled by dist_conf,
# so we don't use $tempval for anything other than storing it in
# $config{'prefix'}. Once prefix is not in use anywhere, we can remove
# this code. /steffen
if (!($tempval = (getpwnam('kolab'))[7])) {
$config{'log_level'} = KOLAB_WARN;
&log('C', 'Unable to determine the kolab root directory', KOLAB_ERROR);
$error = 1;
} else {
%config = readConfig(%config, "@sysconfdir@/kolab/kolab.globals");
$config{'prefix'} = $tempval;
}
# Now read `kolab.conf', overwriting values read from `kolab.globals'
%config = readConfig(\%config, "@sysconfdir@/kolab/kolab.conf");
# $config{'log_level'} = KOLAB_WARN if (!exists $config{'log_level'});
&log('C', 'Reloading configuration');
# Get the UID/GID of the `kolab' user
if (!($config{'kolab_uid'} = (getpwnam('kolab'))[2])) {
&log('C', "Unable to determine the uid of user `kolab'", KOLAB_ERROR);
$error = 1;
}
if (!($config{'kolab_gid'} = (getgrnam('kolab'))[2])) {
&log('C', "Unable to determine the gid of user `kolab'", KOLAB_ERROR);
$error = 1;
}
if (!($config{'kolab_n_uid'} = (getpwnam('kolab-n'))[2])) {
&log('C', "Unable to determine the uid of user `kolab-n'", KOLAB_ERROR);
$error = 1;
}
if (!($config{'kolab_n_gid'} = (getgrnam('kolab-n'))[2])) {
&log('C', "Unable to determine the gid of user `kolab-n'", KOLAB_ERROR);
$error = 1;
}
if (!($config{'kolab_r_uid'} = (getpwnam('kolab-r'))[2])) {
&log('C', "Unable to determine the uid of user `kolab-r'", KOLAB_ERROR);
$error = 1;
}
if (!($config{'kolab_r_gid'} = (getgrnam('kolab-r'))[2])) {
&log('C', "Unable to determine the gid of user `kolab-r'", KOLAB_ERROR);
$error = 1;
}
# Make sure the critical variables we need were defined in kolab.conf
if (!exists $config{'bind_dn'} || !exists $config{'bind_pw'} || !exists $config{'ldap_uri'} || !exists $config{'base_dn'}) {
&log('C', "One or more required configuration variables (`bind_dn', `bind_pw', `ldap_uri' and/or `base_dn') are missing in `kolab.conf'", KOLAB_ERROR);
$error = 1;
}
# Make a hash of the bind password available too
if( !exists $config{'bind_pw_hash'} ) {
my $hashcmd = "@sbindir@/slappasswd -s '".$config{'bind_pw'}."'";
$config{'bind_pw_hash'} = `$hashcmd`;
chomp($config{'bind_pw_hash'});
}
# Retrieve the LDAP values of the main kolab object to complete our config hash
if (!($tempval = URI->new($config{'ldap_uri'}))) {
&log('C', "Unable to parse ldap_uri `" . $config{'ldap_uri'} . "'", KOLAB_ERROR);
$error = 1;
} else {
$config{'ldap_ip'} = $tempval->host;
$config{'ldap_port'} = $tempval->port;
}
# `kolab_dn' points to the main kolab object in LDAP
# Defaults to `k=kolab,$base_dn' if not specified (for backwards compatibility)
$config{'kolab_dn'} = "k=kolab," . $config{'base_dn'} if (!exists $config{'kolab_dn'});
if ($config{'kolab_dn'} eq '') {
&log('C', "`kolab_dn' is empty; skipping LDAP read");
} else {
my $mesg;
my $ldapobject;
if (!($ldap = Net::LDAP->new($config{'ldap_uri'}, verify => 'none' ))) {
&log('C', "Unable to connect to LDAP server `" . $config{'ldap_ip'} . ":" . $config{'ldap_port'} . "'", KOLAB_ERROR);
$error = 1;
}
$mesg = $ldap->bind($config{'bind_dn'}, password => $config{'bind_pw'}) if $ldap;
if ($ldap && $mesg->code) {
&log('C', "Unable to bind to DN `" . $config{'bind_dn'} . "'", KOLAB_ERROR);
$error = 1;
}
#$ldap = Kolab::LDAP::create(
# $config{'ldap_ip'},
# $config{'ldap_port'},
# $config{'bind_dn'},
# $config{'bind_pw'},
# 1
#);
if ($ldap) {
$mesg = $ldap->search(
base => $config{'kolab_dn'},
scope => 'base',
filter => '(objectclass=*)'
);
if (!$mesg->code) {
$ldapobject = $mesg->pop_entry;
foreach $tempval ($ldapobject->attributes) {
my $vals = $ldapobject->get_value($tempval, asref => 1 );
if( !ref($vals) ) {
# Not a ref at all???
&log('C', "Attribute $tempval does not exist", KOLAB_WARN );
} elsif( @{$vals} == 1 ) {
$config{lc($tempval)} = $vals->[0];
} else {
$config{lc($tempval)} = $vals;
}
}
} else {
&log('C', "Unable to find kolab object `" . $config{'kolab_dn'} . "'", KOLAB_ERROR);
# exit(1);
$error = 1;
}
} else {
&log('C', "Unable to read configuration data from LDAP", KOLAB_WARN);
}
}
# At this point we have read in all user-specified configuration variables.
# We now need to go through the list of all possible configuration variables
# and set the default values of those that were not overridden.
# ProFTPd password
if (exists $config{'proftpd-userPassword'}) {
my $salt = substr($config{'proftpd-userPassword'}, 0, 2);
$config{'proftpd-userPassword'} = crypt($config{'proftpd-userPassword'}, $salt);
} else {
$config{'proftpd-userPassword'} = '';
}
$config{'fqdn'} = trim(`hostname`);
# Cyrus admin account
$tempval = $config{'cyrus-admins'} || 'manager';
(my $cmanager, my $dummy) = split(/ /, $tempval, 2);
$config{'cyrus_admin'} = $cmanager if (!exists $config{'cyrus_admin'});
$config{'cyrus_admin_pw'} = $config{'bind_pw'} if (!exists $config{'cyrus_admin_pw'});
# `directory_mode' specifies what backend to use (for the main kolab
# object - for the other objects see their respective XXX_directory_mode).
# Defaults to `slurpd'
#
# NOTE: A plugin scheme is used for this; the backend module loaded
# is `Kolab::LDAP::$config{'directory_mode'}, so anyone is able to slot
# in a new Kolab::LDAP:: module, change `directory_mode' and have the new
# module used as a backend (as long as it conforms to the correct
# interface, that is).
#
# Currently supported backends:
# `ad' - Active Directory
$config{'directory_mode'} = 'slurpd' if (!exists $config{'directory_mode'});
# `conn_refresh_period' specifies how many minutes to wait before forceably
# tearing down the change listener connection, re-syncing, and re-connecting.
# Used by the AD backend.
# Defaults to one hour.
# $config{'conn_refresh_period'} = 60 if (!exists $config{'conn_refresh_period'});
# `slurpd_port' specifies what port the kolab slurpd replication daemon listens on
# Defaults to 9999 for backwards compatibility
# $config{'slurpd_port'} = 9999 if (!exists $config{'slurpd_port'});
# `user_ldap_uri', `user_bind_dn', `user_bind_pw' and `user_dn_list' are
# used to specify the DNs where user objects are located. They default to
# `ldap_uri', `bind_dn', `bind_pw' and `base_dn', respectively.
#
# NOTE: `user_dn_list' is a semi-colon separated list of DNs, as opposed
# to a single DN (such as `kolab_dn').
#
# TODO: Expand this to allow all separate entities (kolab object, users,
# shared folders, etc) to exist in user-specified locations
#
# TODO: Check Postfix LDAP aliasing when user_dn_list contains more than
# one DN.
$config{'user_ldap_uri'} = $config{'ldap_uri'} if (!exists $config{'user_ldap_uri'});
if (!($tempval = URI->new($config{'user_ldap_uri'}))) {
&log('C', "Unable to parse user_ldap_uri `" . $config{'user_ldap_uri'} . "'", KOLAB_ERROR);
# exit(1);
$error = 1;
} else {
$config{'user_ldap_ip'} = $tempval->host;
$config{'user_ldap_port'} = $tempval->port;
}
$config{'user_bind_dn'} = $config{'bind_dn'} if (!exists $config{'user_bind_dn'});
$config{'user_bind_pw'} = $config{'bind_pw'} if (!exists $config{'user_bind_pw'});
$config{'user_dn_list'} = $config{'base_dn'} if (!exists $config{'user_dn_list'});
$config{'user_directory_mode'} = $config{'directory_mode'} if (!exists $config{'user_directory_mode'});
# `user_object_class' denotes what object class to search for when locating users.
# Defaults to `inetOrgPerson'
$config{'user_object_class'} = 'inetOrgPerson' if (!exists $config{'user_object_class'});
# This part sets various backend-specific LDAP fields (if they have not been
# overridden) based on `directory_mode'.
#
# `user_delete_flag' is used to test whether a user object has been deleted
# `user_field_modified' is used to test whether a user object has been modified
# `user_field_guid' indicates a field that can be considered globally unique to the object
# `user_field_quota' indicates a field that stores the cyrus quota for the user
if ($config{'user_directory_mode'} eq 'ad') {
# AD
$config{'user_field_deleted'} = 'isDeleted' if (!exists $config{'user_field_deleted'});
$config{'user_field_modified'} = 'whenChanged' if (!exists $config{'user_field_modified'});
$config{'user_field_guid'} = 'objectGUID' if (!exists $config{'user_field_guid'});
$config{'user_field_quota'} = 'userquota' if (!exists $config{'user_field_quota'});
} else {
# slurd/default
$config{'user_field_deleted'} = 'kolabdeleteflag' if (!exists $config{'user_field_deleted'});
$config{'user_field_modified'} = 'modifytimestamp' if (!exists $config{'user_field_modified'});
$config{'user_field_guid'} = 'entryUUID' if (!exists $config{'user_field_guid'});
$config{'user_field_quota'} = 'cyrus-userquota' if (!exists $config{'user_field_quota'});
}
# The `sf_XXX' variables are the shared folder equivalents of the `user_XXX' variables
$config{'sf_ldap_uri'} = $config{'ldap_uri'} if (!exists $config{'sf_ldap_uri'});
if (!($tempval = URI->new($config{'sf_ldap_uri'}))) {
&log('C', "Unable to parse sf_ldap_uri `" . $config{'sf_ldap_uri'} . "'", KOLAB_ERROR);
# exit(1);
$error = 1;
} else {
$config{'sf_ldap_ip'} = $tempval->host;
$config{'sf_ldap_port'} = $tempval->port;
}
$config{'sf_bind_dn'} = $config{'bind_dn'} if (!exists $config{'sf_bind_dn'});
$config{'sf_bind_pw'} = $config{'bind_pw'} if (!exists $config{'sf_bind_pw'});
$config{'sf_dn_list'} = $config{'base_dn'} if (!exists $config{'sf_dn_list'});
$config{'sf_directory_mode'} = $config{'directory_mode'} if (!exists $config{'sf_directory_mode'});
$config{'sf_object_class'} = 'kolabsharedfolder' if (!exists $config{'sf_object_class'});
if ($config{'sf_directory_mode'} eq 'ad') {
# AD
$config{'sf_field_deleted'} = 'isDeleted' if (!exists $config{'sf_field_deleted'});
$config{'sf_field_modified'} = 'whenChanged' if (!exists $config{'sf_field_modified'});
$config{'sf_field_guid'} = 'entryUUID' if (!exists $config{'sf_field_guid'});
$config{'sf_field_quota'} = 'userquota' if (!exists $config{'sf_field_quota'});
} else {
# slurd/default
$config{'sf_field_deleted'} = 'kolabdeleteflag' if (!exists $config{'sf_field_deleted'});
$config{'sf_field_modified'} = 'modifytimestamp' if (!exists $config{'sf_field_modified'});
$config{'sf_field_guid'} = 'entryUUID' if (!exists $config{'sf_field_guid'});
$config{'sf_field_quota'} = 'cyrus-userquota' if (!exists $config{'sf_field_quota'});
}
# The `group_XXX' variables are the distribution list/groups
# equivalents of the `user_XXX' variables
$config{'group_ldap_uri'} = $config{'ldap_uri'} if (!exists $config{'group_ldap_uri'});
if (!($tempval = URI->new($config{'group_ldap_uri'}))) {
&log('C', "Unable to parse group_ldap_uri `" . $config{'group_ldap_uri'} . "'", KOLAB_ERROR);
# exit(1);
$error = 1;
} else {
$config{'group_ldap_ip'} = $tempval->host;
$config{'group_ldap_port'} = $tempval->port;
}
$config{'group_bind_dn'} = $config{'bind_dn'} if (!exists $config{'group_bind_dn'});
$config{'group_bind_pw'} = $config{'bind_pw'} if (!exists $config{'group_bind_pw'});
$config{'group_dn_list'} = $config{'base_dn'} if (!exists $config{'group_dn_list'});
$config{'group_directory_mode'} = $config{'directory_mode'} if (!exists $config{'group_directory_mode'});
$config{'group_object_class'} = 'kolabgroupofnames' if (!exists $config{'group_object_class'});
if ($config{'group_directory_mode'} eq 'ad') {
# AD
$config{'group_field_deleted'} = 'isDeleted' if (!exists $config{'group_field_deleted'});
$config{'group_field_modified'} = 'whenChanged' if (!exists $config{'group_field_modified'});
$config{'group_field_guid'} = 'entryUUID' if (!exists $config{'group_field_guid'});
} else {
# slurd/default
$config{'group_field_deleted'} = 'kolabdeleteflag' if (!exists $config{'group_field_deleted'});
$config{'group_field_modified'} = 'modifytimestamp' if (!exists $config{'group_field_modified'});
$config{'group_field_guid'} = 'entryUUID' if (!exists $config{'group_field_guid'});
}
# `gyard_deletion_period' specifies how many minutes to leave lost users in
# the graveyard before deleting them.
# Defaults to seven days.
# $config{'gyard_deletion_period'} = 7 * 24 * 60 if (!exists $config{'gyard_deletion_period'});
$config{'dirserv_home_server'} = $config{'fqdn'} if (!exists $config{'dirserv_home_server'});
# That's it! We now have our config hash.
#Kolab::LDAP::destroy($ldap);
if (defined($ldap) && $ldap->isa('Net::LDAP')) {
$ldap->unbind;
$ldap->disconnect;
}
&log('C', 'Finished reloading configuration');
$reloadOk = !$error;
}
sub reload
{
if ($haschanged{'slapd'}) {
&log('K', 'Restarting OpenLDAP...');
system("@bindir@/openpkg rc openldap restart &");
}
if ($haschanged{'saslauthd'}) {
&log('K', 'Restarting SASLAuthd...');
system("@bindir@/openpkg rc sasl stop; sleep 1; @sbindir@/saslauthd -a ldap -n 5");
}
if ($haschanged{'apache'}) {
&log('K', 'Reloading Apache...');
system("@sbindir@/apachectl graceful");
}
if ($haschanged{'postfix'}) {
&log('K', 'Reloading Postfix...');
system("@sbindir@/postfix reload");
}
if ($haschanged{'imapd'}) {
&log('K', 'Restarting imapd...');
# Would it be enough with a reload here? /steffen
system("@bindir@/openpkg rc imapd restart");
}
if ($haschanged{'amavisd'}) {
&log('K', 'Restarting amavisd...');
system("@bindir@/openpkg rc amavisd restart");
}
if ($haschanged{'clamav'}) {
&log('K', 'Restarting clamav...');
system("@bindir@/openpkg rc clamav restart");
}
if ($config{'proftpd-ftp'} =~ /true/i) {
Kolab::log('K', 'Starting ProFTPd if not running');
system("@bindir@/openpkg rc proftpd start");
if ($haschanged{'proftpd'}) {
&log('K', 'Reloading ProFTPd...');
kill('SIGHUP', `cat @ftpserver_pidfile@`);
}
} else {
&log('K', 'Stopping ProFTPd, if running...');
system("@bindir@/openpkg rc proftpd stop");
}
%Kolab::Conf::haschanged = ();
&log('K', 'Reload finished');
}
sub log
{
my $prefix = shift;
my $text = shift;
my $priority = shift || KOLAB_INFO;
my $level = $config{'log_level'};
if ($level >= $priority) {
if ($priority == KOLAB_ERROR) {
$text = $prefix . ' Error: ' . $text;
} elsif ($priority == KOLAB_WARN) {
$text = $prefix . ' Warning: ' . $text;
} elsif ($priority == KOLAB_DEBUG) {
$text = $prefix . ' Debug: ' . $text;
} else {
$text = $prefix . ': ' . $text;
}
#print STDERR "$text\n";
syslog('info', "$text");
}
}
reloadConfig();
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Kolab - Perl extension for general Kolab settings.
=head1 ABSTRACT
Kolab contains code used for loading the configuration values from
kolab.conf and LDAP, as well as functions for logging.
=head1 AUTHOR
Stuart Bingë¬ E<lt>s.binge at codefusion.co.zaE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2003 Code Fusion cc
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 the Free Software Foundation; either version 2, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You can view the GNU General Public License, online, at the GNU
Project's homepage; see <http://www.gnu.org/licenses/gpl.html>.
=cut
--- Makefile.PL DELETED ---
- Previous message: richard: server/perl-kolab AUTHORS, NONE, 1.1 ChangeLog, NONE, 1.1 NEWS, NONE, 1.1 bootstrap, NONE, 1.1 configure.ac, NONE, 1.1 Makefile.am, 1.6, 1.7 Makefile.cvs, 1.2, 1.3 perl-kolab.spec.in, 1.27, 1.28
- Next message: richard: server/perl-kolab/Kolab-LDAP LDAP.pm.in, NONE, 1.1 Makefile.PL, 1.1, NONE
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the commits
mailing list