diff options
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); |