summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-06-27 14:11:15 +0000
committerThierry Vignaud <tv@mandriva.org>2007-06-27 14:11:15 +0000
commit0b71c7b783fb17e162708e21bcd7fbbbc0fb8f47 (patch)
treea074daa8eea2967e35ec341292d8e1a5aaed99b2
parent6ce7b326cbd2524c1f3113f26035eceb411173ce (diff)
downloaddrakx-0b71c7b783fb17e162708e21bcd7fbbbc0fb8f47.tar
drakx-0b71c7b783fb17e162708e21bcd7fbbbc0fb8f47.tar.gz
drakx-0b71c7b783fb17e162708e21bcd7fbbbc0fb8f47.tar.bz2
drakx-0b71c7b783fb17e162708e21bcd7fbbbc0fb8f47.tar.xz
drakx-0b71c7b783fb17e162708e21bcd7fbbbc0fb8f47.zip
(mandrake_release_info) introduce it in order to have full release info (eg: for #31223)
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/common.pm6
2 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index d1e51eab4..7f746f108 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- add mandrake_release_info() function
+
Version 10.4.138 - 21 June 2007, by Thierry Vignaud
- add support for snd-cmi8788 driver
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 0f2154244..10d762272 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -10,7 +10,7 @@ use run_program;
use Exporter;
our @ISA = qw(Exporter);
-our @EXPORT = qw($SECTORSIZE N P N_ check_for_xserver files_exist formatTime formatXiB makedev mandrake_release removeXiBSuffix require_root_capability setVirtual set_alternative set_l10n_sort set_permissions translate unmakedev);
+our @EXPORT = qw($SECTORSIZE N P N_ check_for_xserver files_exist formatTime formatXiB makedev mandrake_release mandrake_release_info removeXiBSuffix require_root_capability setVirtual set_alternative set_l10n_sort set_permissions translate unmakedev);
# perl_checker: RE-EXPORT-ALL
push @EXPORT, @MDK::Common::EXPORT;
@@ -278,6 +278,10 @@ sub release_file {
);
}
+sub mandrake_release_info() {
+ parse_LDAP_namespace_structure(cat_('/etc/product.id'));
+}
+
sub parse_LDAP_namespace_structure {
my ($s) = @_;
my %h = map { if_(/(.*?)=(.*)/, $1 => $2) } split(',', $s);