From cc2964bd528da6bf92ae85e9591e92fe7ad85be2 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 3 Nov 2005 14:57:51 +0000 Subject: Fix syntax error, add more docs --- urpm/ldap.pm | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'urpm') diff --git a/urpm/ldap.pm b/urpm/ldap.pm index 510107ea..77b110e4 100644 --- a/urpm/ldap.pm +++ b/urpm/ldap.pm @@ -35,7 +35,7 @@ therefore, caching is useless if server is up. Checks if the ldap medium has all required attributes. -=item read_ldap_cache($urpm,%options) +=item read_ldap_cache($urpm, %options) Reads the cache created by the C function. Should be called if the ldap server doesn't answer (upgrade, network problem, mobile user, etc.) @@ -44,13 +44,17 @@ if the ldap server doesn't answer (upgrade, network problem, mobile user, etc.) Cleans the ldap cache, removes all files in the directory. -=item load_ldap_media($urpm,%options) +=item load_ldap_media($urpm, %options) + +Loads urpmi media configuration from ldap. =item get_ldap_config() =item get_ldap_config_file($file) -=item get_ldap_config_dns +=item get_ldap_config_dns() + +Not implemented yet. =back @@ -84,7 +88,7 @@ sub get_vars_from_sh { open my $fh, $filename or return (); local $_; while (<$fh>) { - s/#.*//; s/^\s*//; s/\s*$// + s/#.*//; s/^\s*//; s/\s*$//; my ($key, $val) = /^(\w+)=(.*)/ or next; $val =~ s/^(["'])(.*)\1$/$2/; $l{$key} = $val; @@ -132,7 +136,7 @@ sub get_ldap_config_file($) { sub get_ldap_config_dns { # TODO - die "not implemented now"; + die "not implemented yet\n"; } my %ldap_changed_attributes = ( @@ -208,7 +212,7 @@ sub load_ldap_media($%) { }; if ($@) { $urpm->{log}($@); - read_ldap_cache($urpm,%options); + read_ldap_cache($urpm, %options); } } -- cgit v1.2.1