Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2:PowerPC
rubygem-webyast-ldap
LDAP.pm
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File LDAP.pm of Package rubygem-webyast-ldap
#-- # Copyright (c) 2009-2010 Novell, Inc. # # All Rights Reserved. # # This program is free software; you can redistribute it and/or modify it # under the terms of version 2 of the GNU General Public License # as published by the Free Software Foundation. # # 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 should have received a copy of the GNU General Public License # along with this program; if not, contact Novell, Inc. # # To contact Novell about this file by physical or electronic mail, # you may find current contact information at www.novell.com #++ package YaPI::LDAP; use strict; use YaST::YCP qw(:LOGGING); use YaPI; use Data::Dumper; # ------------------- imported modules YaST::YCP::Import ("Ldap"); YaST::YCP::Import ("Progress"); # ------------------------------------- our $VERSION = '1.0.0'; our @CAPABILITIES = ('SLES11'); our %TYPEINFO; =item * C<$hash Read ();> Returns the LDAP client configuration =cut BEGIN{$TYPEINFO{Read} = ["function", [ "map", "string", "any" ]]; } sub Read { my $self = shift; Progress->set (0); Ldap->Read (); #FIXME path to pam-config not known? my $export = Ldap->Export (); return $export; } =item * C<$string Write ($argument_hash);> Write LDAP configuration Returns error code, 0 is success =cut BEGIN{$TYPEINFO{Write} = ["function", "integer", [ "map", "string", "any" ]]; } sub Write { my $self = shift; my $args = shift; my $ret = 0; Progress->set (0); Ldap->Read (); # transform integers to real booleans if (defined $args->{"start_ldap"}) { Ldap->start (YaST::YCP::Boolean ($args->{"start_ldap"})); } if (defined $args->{"ldap_tls"}) { Ldap->ldap_tls (YaST::YCP::Boolean ($args->{"ldap_tls"})); } Ldap->server ($args->{"ldap_server"}) if defined $args->{"ldap_server"}; if (defined $args->{"ldap_domain"}) { my $base_dn = $args->{"ldap_domain"} || ""; Ldap->SetBaseDN ($base_dn); Ldap->nss_base_passwd ($base_dn); Ldap->nss_base_shadow ($base_dn); Ldap->nss_base_group ($base_dn); } Ldap->modified (1); Ldap->openldap_modified (1); Ldap->Write (undef); return $ret; }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor