OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-tools Date: 21-Jun-2006 17:17:29
Branch: HEAD Handle: 2006062116172800
Modified files:
openpkg-tools/cmd build.pl
Log:
allow the 'openpkg build' command to use the forthcoming 'openpkg
release' command
Summary:
Revision Changes Path
1.16 +16 -11 openpkg-tools/cmd/build.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-tools/cmd/build.pl
============================================================================
$ cvs diff -u -r1.15 -r1.16 build.pl
--- openpkg-tools/cmd/build.pl 1 Jan 2006 14:04:48 -0000 1.15
+++ openpkg-tools/cmd/build.pl 21 Jun 2006 15:17:28 -0000 1.16
@@ -163,6 +163,7 @@
"$l_prefix/bin/openpkg rpm" : "$l_prefix/bin/rpm");
$RPM = (`which $RPM` =~ m{^(/.*)})[0] if ($RPM !~ m|^/|);
my $MKP = "$l_prefix/bin/openpkg makeproxy";
+my $REL = "$l_prefix/bin/openpkg release";
die "FATAL: cannot locate rpm in path\n" unless $RPM =~ m{^/};
# augment command line parameters
@@ -287,18 +288,22 @@
sub get_release () {
my($rel,$url);
- ($rel) = run("$RPM -qi openpkg") =~ /Version:\s*(\S+)/m;
- if ($rel =~ /^\d+$/) {
- print "# $PROG current($rel)\n";
- $url = "ftp://ftp.openpkg.org/current/";;
- } elsif ($rel =~ /^(\d+\.\d+)/) {
- $rel = $1;
- print "# $PROG release($rel)\n";
- $url = "ftp://ftp.openpkg.org/release/$rel/";;
- } else {
- die "FATAL: don't know how to handle this release\n";
+ $url = run("($REL --fmt='%u') 2>/dev/null || true") || "";
+ $url =~ s/^\s+//s;
+ $url =~ s/\s+$//s;
+ if ($url !~ m/^(?:file|ftp|http?):\/\//) {
+ ($rel) = run("$RPM -qi openpkg") =~ /Version:\s*(\S+)/m;
+ if ($rel =~ /^\d+$/) {
+ print "# $PROG current($rel)\n";
+ $url = "ftp://ftp.openpkg.org/current/";;
+ } elsif ($rel =~ /^(\d+\.\d+)/) {
+ $rel = $1;
+ print "# $PROG release($rel)\n";
+ $url = "ftp://ftp.openpkg.org/release/$rel/";;
+ } else {
+ die "FATAL: don't know how to handle this release\n";
+ }
}
-
return $url;
}
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
