summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-16 08:20:43 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-05-16 08:20:43 +0000
commit59ec72561a844ab1c461dad34426e54cdef34578 (patch)
treed9d52b5b6974972c92ccaf9e2eeb4777c407dfe9
parent1c1b19d82aa443cf1b2ac559c632e5ca4d767e39 (diff)
downloadurpmi-59ec72561a844ab1c461dad34426e54cdef34578.tar
urpmi-59ec72561a844ab1c461dad34426e54cdef34578.tar.gz
urpmi-59ec72561a844ab1c461dad34426e54cdef34578.tar.bz2
urpmi-59ec72561a844ab1c461dad34426e54cdef34578.tar.xz
urpmi-59ec72561a844ab1c461dad34426e54cdef34578.zip
perl_checker and other fixes
-rw-r--r--urpm/ldap.pm141
1 files changed, 67 insertions, 74 deletions
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);
}