index : www	master
	The Main www.mageia.org Website	git

aboutsummaryrefslogtreecommitdiffstats

log msg author committer range

path: root/langs/cs/about.po

	Commit message (Expand)	Author	Age	Files	Lines
*	Update Czech translation from Tx	Yuri Chornoivan	2019-07-03	1	-18/+40
*	Rebuild gettext catalog	Manuel Hiebel	2019-06-30	1	-38/+16
*	Update Czech translation	Yuri Chornoivan	2019-04-12	1	-6/+6
*	Update Czech translation	Yuri Chornoivan	2019-03-16	1	-3/+3
*	Update Czech translation	Yuri Chornoivan	2018-10-04	1	-7/+8
*	Update Czech translation	Yuri Chornoivan	2018-10-02	1	-2/+2
*	Update Czech translation	Yuri Chornoivan	2017-07-24	1	-17/+39
*	synch about, map and timeline translations	filip	2017-07-17	1	-37/+16
*	Update Czech translation	Yuri Chornoivan	2017-03-29	1	-20/+41
*	Improving a sentence according to report on ML	filip	2017-03-26	1	-57/+36
*	Update Czech translation	Yuri Chornoivan	2015-06-20	1	-18/+39
*	about page updated for mga5 + l10n files refreshed	filip	2015-06-20	1	-37/+16
*	Update Czech translation	Yuri Chornoivan	2015-04-05	1	-24/+47
*	fix for bug 15469	filip	2015-03-19	1	-3/+19
*	wiki link translatable for about page	filip	2015-02-21	1	-37/+19
*	Revert "Updated Estonian translation"	Thomas Backlund	2014-10-12	1	-0/+121
*	Updated Estonian translation	Marek Laane	2014-10-12	1	-121/+0
*	Update Čeština translation as instructed by Pavel	filip	2014-08-04	1	-2/+3
*	Update Czech translations from Transifex	Yuri Chornoivan	2014-04-17	1	-24/+52
*	small fix for about page + Slovenian translation updated	Filip Komar	2014-03-22	1	-2/+2
*	convert about to gettext and add MGA4 release	Manuel Hiebel	2014-03-22	1	-0/+92

generated by cgit v1.2.1 (git 2.21.0) at 2024-06-24 07:58:22 +0000

package authentication; # $Id$

use common;
use any;

sub kinds() { 
    ('local', 'LDAP', 'NIS', 'winbind', 'AD', 'SMBKRB');
}

sub kind2name {
    my ($kind) = @_;
    # Keep the following strings in sync with kind2description ones!!!
    ${{ local => N("Local file"), 
    LDAP => N("LDAP"), 
    NIS => N("NIS"), 
    winbind => N("Windows Domain"), 
    AD => N("Active Directory with SFU"),
    SMBKRB => N("Active Directory with Winbind") }}{$kind};
}

sub kind2description() {
    join('', 
         map {
             qq($_->[0]\n$_->[1]\n\n)
         }
         (
          [ N("Local file:"), N("Use local for all authentication and information user tell in local file"), ],
          [ N("LDAP:"), N("Tells your computer to use LDAP for some or all authentication. LDAP consolidates certain types of information within your organization."), ],
          [ N("NIS:"), N("Allows you to run a group of computers in the same Network Information Service domain with a common password and group file."), ],
          [ N("Windows Domain:"), N("Winbind allows the system to retrieve information and authenticate users in a Windows domain."), ],
          [ N("Active Directory with SFU:"), N("Kerberos is a secure system for providing network authentication services."), ],
          [ N("Active Directory with Winbind:"), N("Kerberos is a secure system for providing network authentication services.")  ],
         )
        );
}
sub to_kind {
    my ($authentication) = @_;
    (find { exists $authentication->{$_} } kinds()) || 'local';
}

sub domain_to_ldap_domain {
    my ($domain) = @_;
    join(',', map { "dc=$_" } split /\./, $domain);
}

sub ask_parameters {
    my ($in, $netc, $authentication, $kind) = @_;

    #- keep only this authentication kind
    foreach (kinds()) {
	delete $authentication->{$_} if $_ ne $kind;
    }

    if ($kind eq 'LDAP') {
	$authentication->{LDAP_server} ||= 'ldap.' . $netc->{DOMAINNAME};
	$netc->{LDAPDOMAIN} ||= domain_to_ldap_domain($netc->{DOMAINNAME});
	$in->ask_from('',
		     N("Authentication LDAP"),
		     [ { label => N("LDAP Base dn"), val => \$netc->{LDAPDOMAIN} },
		       { label => N("LDAP Server"), val => \$authentication->{LDAP_server} },
		     ]) or return;
    } elsif ($kind eq 'AD') {
	
	$authentication->{AD_domain} ||= $netc->{DOMAINNAME};
	$authentication->{AD_users_db} ||= 'cn=users,' . domain_to_ldap_domain($authentication->{AD_domain});

	$in->do_pkgs->install(qw(perl-Net-DNS));

	my @srvs = query_srv_names($authentication->{AD_domain});
	$authentication->{AD_server} ||= $srvs[0] if @srvs;

	my %sub_kinds = my @sub_kinds = (
	    simple => N("simple"), 
	    tls => N("TLS"),
	    ssl => N("SSL"),
	    kerberos => N("security layout (SASL/Kerberos)"),
	);

	my $AD_user = $authentication->{AD_user} =~ /(.*)\@\Q$authentication->{AD_domain}\E$/ ? $1 : $authentication->{AD_user};
	my $anonymous = $AD_user;

	$in->ask_from('',
		     N("Authentication Active Directory"),
		     [ { label => N("Domain"), val => \$authentication->{AD_domain} },
		     #{ label => N("Server"), val => \$authentication->{AD_server} },
		       { label => N("Server"), type => 'combo', val => \$authentication->{AD_server}, list => \@srvs , not_edit => 0 },
		       { label => N("LDAP users database"), val => \$authentication->{AD_users_db} },
		       { label => N("Use Anonymous BIND "), val => \$anonymous, type => 'bool' },
		       { label => N("LDAP user allowed to browse the Active Directory"), val => \$AD_user, disabled => sub { $anonymous } },
		       { label => N("Password for user"), val => \$authentication->{AD_password}, disabled => sub { $anonymous } },
		       { label => N("Encryption"), val => \$authentication->{sub_kind}, list => [ map { $_->[0] } group_by2(@sub_kinds) ], format => sub { $sub_kinds{$_[0]} } },
		     ]) or return;
	$authentication->{AD_user} = !$AD_user || $authentication->{sub_kind} eq 'anonymous' ? '' : 
	                             $AD_user =~ /@/ ? $AD_user : "$AD_user\@$authentication->{AD_domain}";
	$authentication->{AD_password} = '' if !$authentication->{AD_user};


    } elsif ($kind eq 'NIS') { 
	$authentication->{NIS_server} ||= 'broadcast';