Changeset 983 in ProjectBuilder for devel/rpmbootstrap/bin/rpmbootstrap

Timestamp:

Feb 20, 2010, 2:22:11 AM (14 years ago)

Author:

Bruno Cornec

Message:

• rpmbootstrap good up to package name identification
• fedora-12 package list updated

File:

• devel/rpmbootstrap/bin/rpmbootstrap (modified) (3 diffs)

devel/rpmbootstrap/bin/rpmbootstrap

@@ -133 +133 @@
 my ($projectbuilderver,$projectbuilderrev) = pb_version_init();
 my $appname = "rpmbootstrap";
+$ENV{'PBPROJ'} = $appname;
 
 # Initialize the syntax string
@@ -241 +242 @@
     die "Unable to download packages from $mirror for $ddir-$dver-$darch";
 }
-pb_log(3,"Mirror $mirror gave answer: $response->dump(maxlength => 0)\n");
-
-# Just print packages names if asked so. 
-if ($opts{'p'}) {
-    pb_log(0,"Should process package list: $pkgs\n");
-    exit(0);
-}
+pb_log(3,"Mirror $mirror gave answer: ".Dumper($response->dump(maxlength => 0))."\n");
+
+# Manages architectures specificities
+my $parch = $darch;
+$parch = "i?86" if ($darch eq "i386");
+
+# Get the list of packages and their URL in this hash
+my %url;
+foreach my $l (split(/\n/,$response->as_string())) {
+    # Find a href ref
+    if ($l =~ /<a href="(.*)">(.*)<\/a>/i) {
+        my $url = $1;
+        my $pkg = $1;
+        my $desc = $2;
+        pb_log(3,"Found desc URL $desc: ");
+        # find an rpm package ref name-ver-tag.arch.rpm
+        if ($pkg =~ /(.+)-([^-]+)-([^-]+)\.(noarch|$parch)\.rpm$/) {
+            pb_log(3,"package ($1 + $2 + $3 + $4)\n");
+            $url{$1} = "$mirror/$url";
+        } else {
+            pb_log(3,"not a package\n");
+        }
+    }
+}
+
 
 # For each package to process, get it, put it in the cache dir 
@@ -253 +272 @@
 # Just download if asked so. 
 
+my $warning = 0;
+my $lwpkg ="";
 foreach my $p (split(/,/,$pkgs)) {
-    pb_log(1,"Processing package $p ...\n") 
+    pb_log(1,"Processing package $p ...\n");
+    # Just print packages names if asked so. 
+    if ($opts{'p'}) {
+        if (defined $url{$p}) {
+            pb_log(0,"$url{$p}\n");
+        } else {
+            pb_log(0,"WARNING: unable to find URL for $p\n");
+            $warning++;
+            $lwpkg .= " $p";
+        }
+        next;
     }
+}
+
+if ($warning ge 1) {
+    pb_log(0,"$warning WARNINGS found.\nMaybe you should review your package list for $ddir-$dver-$darch\nand remove$lwpkg\n");
+}
+
+# We Just printed packages names so now end
+if ($opts{'p'}) {
+    exit(0);
+}