From 458d423d01de9bfc87696c8351ec06805e3b7807 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Fri, 8 Sep 2006 15:15:24 +0000
Subject: - add productid management

---
 lib/MDV/Distribconf/Build.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'lib/MDV/Distribconf/Build.pm')

diff --git a/lib/MDV/Distribconf/Build.pm b/lib/MDV/Distribconf/Build.pm
index 756ddb8..7983ca3 100644
--- a/lib/MDV/Distribconf/Build.pm
+++ b/lib/MDV/Distribconf/Build.pm
@@ -308,6 +308,30 @@ sub write_version {
     return 1;
 }
 
+=item $distrib->write_productid($productid)
+
+Write the productid file. Returns 0 on error, 1 on success.
+
+=cut
+
+sub write_productid {
+    my ($distrib, $productid) = @_;
+    my $h_productid;
+    if (ref($productid) eq 'GLOB') {
+        $h_productid = $productid;
+    } else {
+        $productid ||= $distrib->getfullpath(undef, 'product.id');
+        open($h_productid, ">", $productid) or return 0;
+    }
+
+    print $h_productid $distrib->getvalue(undef, 'productid') . "\n";
+
+    if (ref($productid) ne 'GLOB') {
+        close($h_productid);
+    }
+
+    return 1;
+}
 
 1;
 
-- 
cgit v1.2.1