From a381fd0dcc0b1b11ddbca47f236bb50477d564a1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 26 Jan 2010 16:48:41 +0000 Subject: (is_it_2008_0) share it --- mdkonline.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'mdkonline.pm') diff --git a/mdkonline.pm b/mdkonline.pm index c9667554..564a4e8e 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -39,6 +39,7 @@ our @EXPORT = qw(find_current_distro get_product_id get_release get_stale_upgrade_filename + is_it_2008_0 is_enterprise_media_supported is_restricted_media_supported translate_product @@ -68,6 +69,10 @@ sub get_release() { ($r); } +sub is_it_2008_0() { + $product_id->{version} eq '2008.0'; +} + sub is_enterprise_media_supported() { to_bool($product_id->{type} eq 'Enterprise' && $product_id->{product} eq 'Server'); } -- cgit v1.2.1