diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-06-27 14:11:15 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-06-27 14:11:15 +0000 |
| commit | 0b71c7b783fb17e162708e21bcd7fbbbc0fb8f47 (patch) | |
| tree | a074daa8eea2967e35ec341292d8e1a5aaed99b2 | |
| parent | 6ce7b326cbd2524c1f3113f26035eceb411173ce (diff) | |
| download | drakx-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/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/common.pm | 6 |
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); |