Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:11.4
webyast-kerberos-ws
KERBEROS.pm
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File KERBEROS.pm of Package webyast-kerberos-ws
#-- # 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::KERBEROS; use strict; use YaST::YCP qw(:LOGGING); use YaPI; use Data::Dumper; # ------------------- imported modules YaST::YCP::Import ("Kerberos"); YaST::YCP::Import ("Progress"); # ------------------------------------- our $VERSION = '1.0.0'; our @CAPABILITIES = ('SLES11'); our %TYPEINFO; =item * C<$hash Read ();> Returns the Kerberos client configuration =cut BEGIN{$TYPEINFO{Read} = ["function", [ "map", "string", "any" ], [ "map", "string", "any" ]]; } sub Read { my $self = shift; my $args = shift; Progress->set (0); Kerberos->Read (); my $export = Kerberos->Export (); if ($args->{"full_export"}) { return $export; } return { "default_realm" => $export->{"kerberos_client"}{"default_realm"} || "", "default_domain"=> $export->{"kerberos_client"}{"default_domain"} || "", "kdc" => $export->{"kerberos_client"}{"kdc_server"} || "", "use_kerberos" => $export->{"pam_login"}{"use_kerberos"}, "dns_used" => Kerberos->dns_used () }; } =item * C<$string Write ($argument_hash);> Write Kerberos 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); Kerberos->Read (); if (defined $args->{"use_kerberos"}) { Kerberos->use_pam_krb ($args->{"use_kerberos"}); Kerberos->pam_modified (1); } if (defined $args->{"dns_used"}) { Kerberos->dns_used ($args->{"dns_used"}); } Kerberos->default_domain ($args->{"default_domain"} || "") if defined $args->{"default_domain"}; Kerberos->default_realm ($args->{"default_realm"} || "") if defined $args->{"default_realm"}; Kerberos->kdc ($args->{"kdc"} || "") if defined $args->{"kdc"}; Kerberos->modified (1); Kerberos->Write (); 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