Changeset 1071 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Distribution.pm

Timestamp:

Jul 12, 2010, 7:59:19 PM (14 years ago)

Author:

Bruno Cornec

Message:

r3947@sge91-1-82-234-15-218: bruno | 2010-07-10 18:40:35 +0200

• Adds function pb_distro_getlsb and make pbdistrocheck fully lsb_release compatible

File:

• devel/pb-modules/lib/ProjectBuilder/Distribution.pm (modified) (2 diffs)

devel/pb-modules/lib/ProjectBuilder/Distribution.pm

@@ -23 +23 @@
  
 our @ISA = qw(Exporter);
-our @EXPORT = qw(pb_distro_conffile pb_distro_init pb_distro_get pb_distro_installdeps pb_distro_getdeps pb_distro_only_deps_needed pb_distro_setuprepo pb_distro_get_param);
+our @EXPORT = qw(pb_distro_conffile pb_distro_init pb_distro_get pb_distro_getlsb pb_distro_installdeps pb_distro_getdeps pb_distro_only_deps_needed pb_distro_setuprepo pb_distro_get_param);
 
 =pod
@@ -226 +226 @@
 }
 
+=item B<pb_distro_getlsb>
+
+This function returns the 5 lsb values LSB version, distribution ID, Description, release and codename.
+As entry it takes an optional parameter to specify whether the output is short or not.
+
+=cut
+
+sub pb_distro_getlsb {
+
+my $s = shift;
+pb_log(3,"Entering pb_distro_getlsb\n");
+
+my ($ambiguous_rel_files) = pb_conf_get("osrelambfile");
+my $lsbf = $ambiguous_rel_files->{"lsb"};
+
+# LSB has not been configured.
+if (not defined $lsbf) {
+    print STDERR "no lsb entry defined for osrelambfile\n";
+    die "You modified upstream delivery and lost !\n";
+}
+
+if (-r $lsbf) {
+    my $rep = pb_get_content($lsbf);
+    # Create elementary fields
+    my ($c, $r, $d, $i, $l) = ("", "", "", "", "");
+    for my $f (split(/\n/,$rep)) {
+        pb_log(3,"Reading file part ***$f***\n");
+        $c = $f if ($f =~ /^DISTRIB_CODENAME/);
+        $c =~ s/DISTRIB_CODENAME=/Codename:\t/;
+        $r = $f if ($f =~ /^DISTRIB_RELEASE/);
+        $r =~ s/DISTRIB_RELEASE=/Release:\t/;
+        $d = $f if ($f =~ /^DISTRIB_DESCRIPTION/);
+        $d =~ s/DISTRIB_DESCRIPTION=/Description:\t/;
+        $d =~ s/"//g;
+        $i = $f if ($f =~ /^DISTRIB_ID/);
+        $i =~ s/DISTRIB_ID=/Distributor ID:\t/;
+        $l = $f if ($f =~ /^LSB_VERSION/);
+        $l =~ s/LSB_VERSION=/LSB Version:\t/;
+    }
+    $c =~ s/^[A-z ]*:[\t ]*// if (defined $s);
+    $r =~ s/^[A-z ]*:[\t ]*// if (defined $s);
+    $d =~ s/^[A-z ]*:[\t ]*// if (defined $s);
+    $i =~ s/^[A-z ]*:[\t ]*// if (defined $s);
+    $l =~ s/^[A-z ]*:[\t ]*// if (defined $s);
+    return($l, $i, $d, $r, $c);
+} else {
+    print STDERR "Unable to read $lsbf file\n";
+    die "Please report to the maintainer bruno_at_project-builder.org\n";
+}
+}
 
 =item B<pb_distro_installdeps>