OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Michael van Elst
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-re Date: 19-Nov-2002 23:35:27
Branch: HEAD Handle: 2002111922352700
Modified files:
openpkg-re openpkg-index
Log:
guess release phrase or allow explicit release phrase as second
parameter.
Summary:
Revision Changes Path
1.13 +14 -7 openpkg-re/openpkg-index
____________________________________________________________________________
Index: openpkg-re/openpkg-index
============================================================
$ cvs diff -u -r1.12 -r1.13 openpkg-index
--- openpkg-re/openpkg-index 18 Nov 2002 14:35:37 -0000 1.12
+++ openpkg-re/openpkg-index 19 Nov 2002 22:35:27 -0000 1.13
@@ -296,13 +296,13 @@
#
# start of XML file
#
-sub xml_head ($) {
- my($fh) = @_;
+sub xml_head ($$) {
+ my($fh,$rel) = @_;
print $fh <<EOFEOF;
<?xml version="1.0" encoding="iso-8859-1"?>
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#";
xmlns="http://www.openpkg.org/xml-rdf-index/0.9";>
- <Repository rdf:resource="OpenPKG-CURRENT/Source/">
+ <Repository rdf:resource="OpenPKG-$rel/Source/">
EOFEOF
}
@@ -488,20 +488,27 @@
#####################################################################
-my($prefix,$dh,$d,$s,$a,$specpath);
+my($prefix,$release,$dh,$d,$s,$a,$specpath);
-if ($#ARGV != 0) {
- print "usage: $0 [openpkg-src]\n";
+if ($#ARGV < 0) {
+ print "usage: $0 [openpkg-src [release]]\n";
die "\n";
}
$prefix = $ARGV[0];
die "FATAL: '$prefix' is not a directory\n" unless -d $prefix;
+if (defined $ARGV[1]) {
+ $release = $ARGV[1];
+} else {
+ ($release) = $prefix =~ /.*(\d+\.\d+)/;
+}
+$release = 'CURRENT' if $release eq '';
+
$dh = new DirHandle($prefix)
or die $!;
-xml_head(\*STDOUT);
+xml_head(\*STDOUT, $release);
while ($d = $dh->read) {
next if $d =~ /^\./;
$specpath = "$prefix/$d/$d.spec";
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
