From 658d6bfb7d219302723fec8aeb41c9e52b91c635 Mon Sep 17 00:00:00 2001 From: Alexander Wirt Date: Sun, 20 May 2007 22:37:17 +0200 Subject: [PATCH] Add get_version tool --- Makefile | 5 ++- source-report/grml-64-0.1/grml-64.yaml | 2 +- tools/get_version | 74 ++++++++++++++++++++++++++++++++++ 3 files changed, 78 insertions(+), 3 deletions(-) create mode 100644 tools/get_version diff --git a/Makefile b/Makefile index 7179b92..f32020d 100644 --- a/Makefile +++ b/Makefile @@ -2,14 +2,15 @@ all: doc_html doc_html: html-stamp -html-stamp: setup repo-cookbook +html-stamp: setup repo-cookbook ml-mmj asciidoc -a toc -a numbered setup asciidoc -a toc -a numbered repo-cookbook + asciidoc -a toc -a numbered ml-mmj touch html-stamp clean: rm -rf html-stamp setup.html \ - repo-cookbook.html + repo-cookbook.html ml-mmj.html online: doc_html scp setup.html grml:/var/www/grml/infrastructure/index.html diff --git a/source-report/grml-64-0.1/grml-64.yaml b/source-report/grml-64-0.1/grml-64.yaml index 10aef4b..bc3f492 100644 --- a/source-report/grml-64-0.1/grml-64.yaml +++ b/source-report/grml-64-0.1/grml-64.yaml @@ -1,4 +1,4 @@ -title: GRML64 rc1 +title: GRML64 0.1 statusfile: /home/sources/source-report/grml-64-0.1/grep-status.grml64 sourceslist: /home/sources/source-report/grml-64-0.1/sources.list reportdir: /home/sources/reports/grml-64-0.1/ diff --git a/tools/get_version b/tools/get_version new file mode 100644 index 0000000..21848da --- /dev/null +++ b/tools/get_version @@ -0,0 +1,74 @@ +#!/usr/bin/perl + +=head1 NAME + +get_version - get released upstream versions + +=cut + +use strict; +use warnings; + +use Pod::Usage; +use LWP::Simple; +use Compress::Zlib; +use Getopt::Long; + +=head1 SYNOPSIS + +get_version [OPTIONS] + +=head1 OPTIONS + +=item B<--release>=VERSION + +Releaseversion where you are looking for (e.g. 1.0, grml-testing would also +work). + +=back EXAMPLES + + get_version --release 1.0 zsh-lovers + + get_version --release grml-testing grml2hd + +=cut + +my ($grml_release, $package); + +GetOptions( + "release=s" => \$grml_release, + "help" => sub { pod2usage(-exitval => 0, -verbose => 2); }, +); + +pod2usage("$0: Please provide a releasename.\n") unless $grml_release; +pod2usage("$0: Need a packagename to process.\n") unless @ARGV; + +if ($grml_release =~ /[0-9]/) { + $grml_release = "grml-$grml_release"; +} + +my $sources_file = + get("http://deb.grml.org/dists/$grml_release/main/source/Sources.gz") + or die "Could not open Sources.gz: $!"; + +$sources_file = Compress::Zlib::memGunzip($sources_file); + +foreach my $package (@ARGV) { + my ($found_version,$found); + + foreach my $line (split("\n", $sources_file)) { + if ($line =~ /^Package: $package/) { + $found = 1; + } + if ($line =~ /^Version: (.*)/ && $found) { + $found_version = $1; + last; + } + } + + if ($found) { + print "$package: $found_version\n"; + } else { + print "$package not found in GRML $grml_release\n"; + } +} -- 2.1.4