From 59ec72561a844ab1c461dad34426e54cdef34578 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 16 May 2005 08:20:43 +0000 Subject: perl_checker and other fixes --- urpm/ldap.pm | 141 ++++++++++++++++++++++++++++------------------------------- 1 file changed, 67 insertions(+), 74 deletions(-) (limited to 'urpm/ldap.pm') diff --git a/urpm/ldap.pm b/urpm/ldap.pm index 21e19eaf..b3f80a15 100644 --- a/urpm/ldap.pm +++ b/urpm/ldap.pm @@ -7,22 +7,22 @@ use urpm::msg 'N'; use Net::LDAP; use MDK::Common; -my $LDAP_CONFIG_FILE = '/etc/openldap/ldap.conf'; -# FIXME duplication +my $LDAP_CONFIG_FILE = '/etc/openldap/ldap.conf'; +# FIXME duplication my @per_media_opt = qw( - downloader + downloader hdlist ignore key-ids list - md5sum + md5sum noreconfigure priority priority-upgrade removable synthesis update - verify-rpm + verify-rpm virtual with_hdlist ); @@ -31,7 +31,6 @@ my @per_media_opt = qw( # use srv dns record ? # complete the doc - =head1 NAME urpm::ldap - routines to handle configuration with ldap @@ -45,7 +44,7 @@ urpm::ldap - routines to handle configuration with ldap =item write_ldap_cache($urpm,$medium) Write the value fetched from ldap, in case of failure of server -This should not be used to reduce the load of ldap server, as +This should not be used to reduce the load of ldap server, as fetching is still needed, and therefore, caching is useless if server is up =item check_ldap_medium($medium) @@ -77,14 +76,14 @@ sub write_ldap_cache($$) { my $ldap_cache = "$urpm->{cachedir}/ldap"; # FIXME what perm for cache ? mkdir_p($ldap_cache); - open(my $cache, ">$ldap_cache/$medium->{name}") or die N("Cannot write cache file for ldap\n"); + open my $cache, ">", "$ldap_cache/$medium->{name}" + or die N("Cannot write cache file for ldap\n"); print $cache "# internal cache file for disconnect ldap operation, do not edit\n"; - foreach (keys %$medium) - { + foreach (keys %$medium) { defined $medium->{$_} or next; print $cache "$_ = $medium->{$_}\n"; } - close($cache); + close $cache; } sub check_ldap_medium($) { @@ -94,19 +93,18 @@ sub check_ldap_medium($) { sub read_ldap_cache($%) { my ($urpm, %options) = @_; - foreach (glob("$urpm->{cachedir}/ldap/*")) - { - ! -f $_ and next; - my %medium = getVarsFromSh($_); - next if ! check_ldap_medium(\%medium); - $urpm->probe_medium(\%medium, %options) and push @{$urpm->{media}}, \%medium; + foreach (glob("$urpm->{cachedir}/ldap/*")) { + ! -f $_ and next; + my %medium = getVarsFromSh($_); + next if !check_ldap_medium(\%medium); + $urpm->probe_medium(\%medium, %options) and push @{$urpm->{media}}, \%medium; } } #- clean the cache, before writing a new one sub clean_ldap_cache($) { my ($urpm) = @_; - unlink($_) foreach glob("$urpm->{cachedir}/ldap/*"); + unlink glob("$urpm->{cachedir}/ldap/*"); } sub get_ldap_config { @@ -116,99 +114,94 @@ sub get_ldap_config { sub get_ldap_config_file($) { my ($file) = @_; my %config; - # TODO more verbose error ? - open(my $CONFIG, $file) or return; - while(<$CONFIG>) { - s/#.*//; - s/^\s*//; - s/\s*$//; - s/\s{2}/ /g; - /^$/ and next; - /^(\S*)\s*(\S*)/; - ! $2 and next; - $config{$1} = $2; + # TODO more verbose error ? + open my $conffh, $file or return; + while (<$conffh>) { + s/#.*//; + s/^\s*//; + s/\s*$//; + s/\s{2}/ /g; + /^$/ and next; + /^(\S*)\s*(\S*)/ && $2 or next; + $config{$1} = $2; } - close($CONFIG); + close($conffh); return \%config; } sub get_ldap_config_dns { - # TODO + # TODO die "not implemented now"; } +my %ldap_changed_attributes = ( + 'source-name' => 'name', + url => 'clear_url', + 'with-hdlist' => 'with_hdlist', +); sub load_ldap_media($%) { - my ($urpm,%options) = @_; - - my $config = get_ldap_config() or return ; - + my ($urpm, %options) = @_; + + my $config = get_ldap_config() or return; + # try first urpmi_foo and then foo - for my $opt ('base', 'uri', 'filter', 'host', 'ssl', 'port', 'binddn', 'passwd', 'scope' ) - { - if ( !defined $config->{"$opt"} && defined $config->{"urpmi_$opt"}) - { - $config->{"$opt"} = $config->{"urpmi_$opt"}; + foreach my $opt (qw(base uri filter host ssl port binddn passwd scope)) { + if (!defined $config->{$opt} && defined $config->{"urpmi_$opt"}) { + $config->{$opt} = $config->{"urpmi_$opt"}; } } - die N("No server defined, missing uri or host") if ! ( defined $config->{'uri'} || defined $config->{'host'} ); - die N("No base defined") if ! defined $config->{'base'}; - - if (! defined $config->{'uri'}) { - $config->{'uri'} = "ldap" . ( $config->{'ssl'} eq 'on' ? "s" : "" ) . "://" . - $config->{'host'} . ( $config->{'port'} ? ":" . $config->{'port'} : "" ) . "/" ; - } + die N("No server defined, missing uri or host") if !(defined $config->{uri} || defined $config->{host}); + die N("No base defined") if !defined $config->{base}; + if (! defined $config->{uri}) { + $config->{uri} = "ldap" . ($config->{ssl} eq 'on' ? "s" : "") . "://" . + $config->{host} . ($config->{port} ? ":" . $config->{port} : "") . "/"; + } eval { - my $ldap = Net::LDAP->new($config->{'uri'}) - or die N("Cannot connect to ldap uri :"), $config->{'uri'}; + my $ldap = Net::LDAP->new($config->{uri}) + or die N("Cannot connect to ldap uri :"), $config->{uri}; - $ldap->bind($config->{'binddn'}, $config->{'password'}) - or die N("Cannot connect to ldap uri :"), $config->{'uri'}; + $ldap->bind($config->{binddn}, $config->{password}) + or die N("Cannot connect to ldap uri :"), $config->{uri}; #- base is mandatory - my $result = $ldap->search( - base => $config->{'base'} , - filter => $config->{'filter'} || '(objectClass=urpmiRepository)', - scope => $config->{'scope'} || 'sub' + my $result = $ldap->search( + base => $config->{base}, + filter => $config->{filter} || '(objectClass=urpmiRepository)', + scope => $config->{scope} || 'sub', ); - + $result->code and die $result->error; # FIXME more than one server ? clean_ldap_cache($urpm); - + foreach my $entry ($result->all_entries) { my $medium = {}; - my %ldap_changed_attributes = ( - 'source-name' => 'name', - 'url' => 'clear_url', - 'with-hdlist' => 'with_hdlist' - ); - foreach my $opt (@per_media_opt, keys %ldap_changed_attributes) { - defined $entry->get_value($opt) and $medium->{$opt} = $entry->get_value($opt); - } + foreach my $opt (@per_media_opt, keys %ldap_changed_attributes) { + my $v = $entry->get_value($opt); + defined $v and $medium->{$opt} = $v; + } #- name is not valid for the schema ( already in top ) #- and _ are forbidden in attributes names - foreach ( keys ( %ldap_changed_attributes ) ) - { + foreach (keys %ldap_changed_attributes) { $medium->{$ldap_changed_attributes{$_}} = $medium->{$_}; delete $medium->{$_}; } #- add ldap_ to reduce collision #- TODO check if name already defined ? - $medium->{'name'} = "ldap" . "_" . $medium->{'name'}; - $medium->{'ldap'} = 1; - next if ! check_ldap_medium($medium); + $medium->{name} = "ldap_" . $medium->{name}; + $medium->{ldap} = 1; + next if !check_ldap_medium($medium); $urpm->probe_medium($medium, %options) and push @{$urpm->{media}}, $medium; - $urpm->write_ldap_cache($medium) or $urpm->{log}(N("Could not write ldap cache : ") . $_ ); - } + $urpm->write_ldap_cache($medium) or $urpm->{log}(N("Could not write ldap cache : %s", $_)); + } }; - if ($@) - { + if ($@) { $urpm->{log}($@); read_ldap_cache($urpm,%options); } -- cgit v1.2.1