[Pkg-octave-commit] r1301 - itp

[Rafael Laboissiere]

Author: rafael
Date: 2008-02-27 15:44:27 +0000 (Wed, 27 Feb 2008)
New Revision: 1301

Added:
   itp/Makefile
   itp/gen-bug-reports.pl
   itp/itp.tmpl
Log:
Script for automating the ITPs for octave-forge pkgs

Added: itp/Makefile
===================================================================
--- itp/Makefile	                        (rev 0)
+++ itp/Makefile	2008-02-27 15:44:27 UTC (rev 1301)
@@ -0,0 +1,9 @@
+postponed: packages.html gen-bug-reports.pl itp.tmpl
+	./gen-bug-reports.pl < packages.html > postponed
+
+packages.html:
+	wget http://octave.sourceforge.net/packages.html
+
+.PHONY: clean
+clean:
+	rm -f packages.html postponed

Added: itp/gen-bug-reports.pl
===================================================================
--- itp/gen-bug-reports.pl	                        (rev 0)
+++ itp/gen-bug-reports.pl	2008-02-27 15:44:27 UTC (rev 1301)
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+
+use Text::Template;
+
+my $template = Text::Template->new (SOURCE => 'itp.tmpl');
+
+my $url;
+my $pkg;
+
+my %exclusions = (
+    "octave-forge-bundle" => 1,
+    "pt_br" => 1,
+    "windows" => 1,
+    "arpack" => 1,
+    "spline-gcvspl" => 1
+  );
+
+while (<>) {
+    if (m {href="(http://downloads.sourceforge.net/octave/(.*\.tar\.gz)\?download)"}) {
+	my $url = $1;
+	my $tar = $2;
+	(my $pkgver = $tar) =~ s/\.tar\.gz//;
+	(my $pkg = $pkgver) =~ s/-[\d.]+//;
+	(my $ver = $pkgver) =~ s/.*-//;
+	next if exists $exclusions {$pkg};
+	print STDERR "$pkg... ";
+	while (1) {
+	    last if system (qq {curl --location --silent --output $tar "$url"}) == 0;
+	}
+	system ("tar xfz $tar");
+	open (DESC, "< $pkg-$ver/DESCRIPTION");
+	my %vars = (Package => $pkg);
+	while (<DESC>) {
+	    $vars {$1} = $2 if /([^:]+): (.*)/;
+	}
+	$vars {Description} =~ s/\.$//;	
+	print $template->fill_in (HASH => \%vars);
+	system ("rm -rf $pkg-$ver $tar");
+	print STDERR "done\n";
+    }
+}


Property changes on: itp/gen-bug-reports.pl
___________________________________________________________________
Name: svn:executable
   + *

Added: itp/itp.tmpl
===================================================================
--- itp/itp.tmpl	                        (rev 0)
+++ itp/itp.tmpl	2008-02-27 15:44:27 UTC (rev 1301)
@@ -0,0 +1,47 @@
+From rafael at debian.org Wed Feb 27 11:31:18 2008
+From: Rafael Laboissiere <rafael at debian.org>
+To: Debian Bug Tracking System <submit at bugs.debian.org>
+Bcc: Rafael Laboissiere <rafael>
+Subject: ITP: octave-{$Package} -- {$Description}
+MIME-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+X-Reportbug-Version: 3.33
+X-Debbugs-Cc: debian-devel at lists.debian.org, pkg-octave-devel at lists.alioth.debian.org
+Organization: Debian Project
+X-Mutt-Fcc: 
+Status: RO
+Content-Length: 1184
+Lines: 31
+
+Package: wnpp
+Severity: wishlist
+Owner: Rafael Laboissiere <rafael at debian.org>
+
+
+* Package name    : octave-{$Package}
+  Version         : {$Version}
+  Upstream Author : {$Author}
+* URL             : http://octave.sourceforge.net/{$Package}/index.html
+* License         : {$License}
+  Programming Lang: C++, Octave
+  Description     : {$Description}
+
+This is one of the packages distributed by the octave-forge project using
+the pkg.m system introduced in version 3 of Octave. Although users can use
+directly the pkg() command for installing the octave-forge pkgs, the Debian
+Octave Group [1] will provide them as Debian packages. Preliminary versions
+of the packages can be found in the DOG SVN repository [2].  The final
+versions of the packages will be built using the octave-pkg-dev
+insfrastructure [3].
+
+The full list of octave-forge pkgs can be found at the SF project website [4].  
+
+[1] http://pkg-octave.alioth.debian.org/
+[2] http://svn.debian.org/wsvn/pkg-octave/octave-forge-pkgs/?rev=0&sc=0
+[3] http://svn.debian.org/wsvn/pkg-octave/octave-pkg-dev/?rev=0&sc=0
+[4] http://octave.sourceforge.net/packages.html
+
+-- 
+Rafael Laboissiere, in the behalf of the DOG
+