diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-11-26 15:45:50 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-11-26 15:45:50 +0000 |
| commit | b7351c14d316ead469e646ae1063a7ad236364ed (patch) | |
| tree | 7107f267cf766a25e2e04ab15a3c19285fcbfa09 /mdkonline.pm | |
| parent | 9cc4fcc496845603d5db911ee274783f427c257c (diff) | |
| download | mgaonline-b7351c14d316ead469e646ae1063a7ad236364ed.tar mgaonline-b7351c14d316ead469e646ae1063a7ad236364ed.tar.gz mgaonline-b7351c14d316ead469e646ae1063a7ad236364ed.tar.bz2 mgaonline-b7351c14d316ead469e646ae1063a7ad236364ed.tar.xz mgaonline-b7351c14d316ead469e646ae1063a7ad236364ed.zip | |
move get_product_id() into shared module
(needed for next commits)
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index 48b9fb4d..88b5c63b 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -30,8 +30,10 @@ use common; use ugtk2; our @ISA = qw(Exporter); -our @EXPORT = qw(fork_exec get_banner get_stale_upgrade_filename xml2perl); +our @EXPORT = qw(fork_exec get_banner get_product_id get_stale_upgrade_filename xml2perl + $product_id $root); +our ($product_id, $root); our $version = 2.67; use log; @@ -43,6 +45,10 @@ sub get_stale_upgrade_filename() { '/var/lib/urpmi/stale_upgrade_in_progress'; } +sub get_product_id() { + $product_id = common::parse_LDAP_namespace_structure(cat_("$root/etc/product.id")); +} + sub get_release() { my ($r) = cat_($release_file) =~ /release\s+(\S+)/; ($r); |