ubuntugis team mailing list archive
-
ubuntugis team
-
Mailing list archive
-
Message #00009
Re: UbuntuGIS Thermometer script
On Sun, Jan 11, 2009 at 07:40:14AM +1100, Cameron Shorter wrote:
> Francesco,
> I've stalled a bit on this email thread.
> Do you mind if I commit my changes to your debian-gis script as an
> updated version of your script? (My preference)
> The alternative is for me to branch the script.
>
> I don't have a good location to store the generated package
> thermometer html page. Do you mind copying it to:
> http://pkg-grass.alioth.debian.org/debiangis-status.html
>
I would arrange to generate an ubuntugis-status.html using a different branch
of the script, if you agree. it's quite easy running the same script
in dual mode on the basis of a suitable command line arg for instance.
> On Tue, Jan 6, 2009 at 9:29 AM, Cameron Shorter
> <cameron.shorter@xxxxxxxxx> wrote:
> > Francesco,
> > I've extended your dgis-status.pl script to return the Ubuntu status too.
> > (Nice script, thanks for writing it).
> > The extended script and output are attached.
> >
> > I'm interested to hear your thoughts on what we should do with future
> > versions of the script and status page.
> >
> > I think it would be good if we only have the one script and status page for
> > both projects so that improvements added to one script will apply to the
> > other too.
> >
> >
> > --
> > Cameron Shorter
> > Geospatial Systems Architect
> > Tel: +61 (0)2 8570 5050
> > Mob: +61 (0)419 142 254
> >
> > Think Globally, Fix Locally
> > Geospatial Solutions enhanced with Open Standards and Open Source
> > http://www.lisasoft.com
> >
> >
> > UbuntuGIS home page.
> >
> > DebianGIS/UbuntuGIS Package Thermometer
> >
> > Package stabletestingunstablebpojauntyintrepidhardygutsydapper
> > avce00 (PTS,UP) 1.3.0-22.0.0-22.0.0-2 2.0.0-22.0.0-22.0.0-12.0.0-11.3.0-2
> > batik (PTS,UP)
> > 1.6-31.6-41.6-4 1.7.dfsg-0ubuntu11.7.dfsg-0ubuntu11.6-31.6-31.6-2
> > beam (UP)
> > beat (UP)
> > buoy (PTS,UP) 1.6-21.9-11.9-1 1.9-11.9-11.8-11.6-2
> > cartoweb (UP)
> > cgal (PTS,UP)
> > 3.2.1-23.3.1-43.3.1-4 3.3.1-2ubuntu13.3.1-2ubuntu13.3.1-2ubuntu13.3-2
> > chameleon-gis (UP)
> > deegree (UP)
> > demeter (UP)
> > drawmap (PTS,UP) 2.5-22.5-32.5-3 2.5-32.5-32.5-32.5-32.5-1.1
> > e00compr (PTS,UP) 1.0.0-61.0.0-71.0.0-7 1.0.0-71.0.0-71.0.0-61.0.0-61.0.0-2
> > earth3d (PTS,UP)
> > 1.0.5-11.0.5-1.11.0.5-1.1 1.0.5-1.11.0.5-1.11.0.5-11.0.5-11.0.4-1
> > efoto (UP)
> > fdo (UP)
> > garmin-utils (UP)
> > gdal (PTS,TODO,UP)
> > 1.3.2-41.5.2-31.5.2-31.5.2-3~bpo40+11.5.2-31.5.2-21.4.4-1ubuntu31.4.1-6build11.2.6-1.3build1
> > geoinformatica (UP)
> > geoip (PTS,UP)
> > 1.3.17-1.11.4.4.dfsg-31.4.4.dfsg-31.4.4.dfsg-1~bpo40+11.4.4.dfsg-31.4.4.dfsg-21.4.4.dfsg-11.3.17-1.11.3.14-2
> > geojasper (UP)
> > geopy (UP)
> > geos (PTS,UP) 2.2.3-33.0.0-53.0.0-5 3.0.0-53.0.0-52.2.3-42.2.3-32.1.4-2
> > geotools (UP)
> > gmap (UP)
> > gmt (PTS,UP)
> > 4.1.2-1.14.3.1-34.3.1-3 4.3.1-34.3.1-34.2.0-1build14.1.4-0ubuntu14.0-2build1
> > gosmore (PTS,UP)
> > 0.0.0.20080704-10.0.0.20080704-1 0.0.0.20080704-10.0.0.20070901-30.0.0.20070901-2.1build1
> > gpsbabel (PTS,UP)
> > 1.3.2-21.3.5-1.11.3.5-1.1 1.3.5-1.11.3.5-0ubuntu11.3.3-21.3.3-21.2.7-1
> > gpsd (PTS,UP)
> > 2.33-4etch12.37-62.37-72.37-6~bpo40+12.37-62.37-42.36-22.33-52.30-1ubuntu3
> > gpsdrive (PTS,TODO,UP)
> > 2.09-2.12.10~pre4-6.dfsg-12.10~pre4-6.dfsg-1 2.10~pre4-6.dfsg-1ubuntu12.10~pre4-32.10~pre4-12.09-2.22.09-2ubuntu1
> > gpsman (PTS,UP) 6.3.1-16.3.2-16.4-1 6.3.2-16.3.2-16.3.2-16.3.2-16.2.1-1
> > gpstrans (PTS,UP) 0.41-10.41-1 0.41-10.40-3.10.40-3.10.40-20.39-3
> > gpx2shp (PTS,UP) 0.69-20.69-30.69-3 0.69-30.69-30.69-30.69-20.69-1
> > grace (PTS,UP)
> > 1:5.1.20-51:5.1.22-11:5.1.22-1 1:5.1.22-11:5.1.22-11:5.1.21-1build11:5.1.21-11:5.1.18-4ubuntu1
> > grace6 (PTS,UP)
> > 5.99.1+dev4-35.99.1+dev4-5.15.99.1+dev4-5.1 5.99.1+dev4-5.15.99.1+dev4-5.15.99.1+dev4-4build15.99.1+dev4-35.99.0+final-9ubuntu3
> > grass (PTS,TODO,UP)
> > 6.0.2-66.2.3-2.16.2.3-2.16.2.3-2.1~bpo40+16.2.3-2.16.2.3-2.16.2.2-2ubuntu16.2.2-1ubuntu16.0.1-1ubuntu2
> > gts (PTS,UP)
> > 0.7.6-1.10.7.6+darcs080704-20.7.6+darcs080704-2 0.7.6+darcs080704-20.7.6-1.10.7.6-1.10.7.6-1.10.7.3-2
> > gvsig (UP)
> > h5utils (PTS,UP)
> > 1.10-51.10-71.10-7 1.10-7ubuntu21.10-7ubuntu21.10-7ubuntu11.10-71.10-3
> > hdf5 (PTS,UP)
> > 1.6.5-31.6.6-41.6.6-4 1.6.6-4ubuntu11.6.6-4ubuntu11.6.5-5.2build11.6.5-51.6.4-4
> > ircmarkers (PTS,UP) 0.12-10.14-10.14-1 0.14-10.14-10.13-10.12-10.8-1
> > jama (PTS,UP) 1.0.2-21.0.2-21.0.2-2 1.0.2-21.0.2-21.0.2-21.0.2-21.0.2-2
> > jgrass (UP)
> > josm (PTS,UP)
> > 0.0.0.20080713-10.0.0.20080713-1 0.0.0.20080713-1ubuntu10.0.0.20080713-1ubuntu10.0.0.20080330-1
> > josm-plugins (PTS,UP)
> > 0.0.0.20080413-20.0.0.20080413-2 0.0.0.20080413-20.0.0.20080413-2
> > jts (PTS,UP) 1.6-21.7-11.7-1 1.7-11.7-11.7-11.7-11.6-2
> > jump (UP)
> > kflog (PTS,UP) 2.1.1-3.1 2.1.1-3.12.1.1-3ubuntu2
> > libgdal-grass (PTS,UP)
> > 1.3.2-11.5.2-11.5.2-11.5.2-1~bpo40+11.5.2-11.5.2-11.4.4-11.4.1-1ubuntu11.2.6-1build1
> > libgeotiff-dfsg (PTS,UP) 1.2.4-31.2.4-3 1.2.4-31.2.4-31.2.4-3
> > libgeotiff-epsg (PTS,UP) 1.2.4-31.2.4-3 1.2.4-31.2.4-31.2.4-3
> > libhdf4 (PTS,UP)
> > 4.1r4-18.14.1r4-224.1r4-22 4.1r4-224.1r4-224.1r4-214.1r4-214.1r4-18.1ubuntu1
> > libjogl-java (PTS,UP)
> > 1.1.1-11.1.1+dak1-4 1.1.1+dak1-1ubuntu21.1.1-2ubuntu1
> > libkml (UP)
> > liblas (UP)
> > libterralib (PTS,UP) 3.0.3b2-3.1 3.0.3b2-3.1build13.0.3b2-3
> > mapbender (UP)
> > mapguide (UP)
> > mapit (WNPP,UP)
> > mapnik (PTS,UP)
> > 0.5.1-30.5.1-30.5.1-1~bpo40+10.5.1-3ubuntu10.5.1-2ubuntu10.4.0-20.4.0-2
> > mapserver (PTS,UP)
> > 4.10.0-5.1+etch25.0.3-35.0.3-3 5.0.3-35.0.3-25.0.0-34.10.3-14.6.1-6ubuntu2
> > marble (PTS,UP)
> > 0.6+svn837399-20.6+svn837399-20.4.3-2~bpo40+1 0.4.3-20.4.3-1build1
> > mkgmap (PTS,UP) 0.0.0+svn630-10.0.0+svn630-1 0.0.0+svn630-1
> > musmap (WNPP,UP)
> > netcdf (PTS,UP)
> > 3.6.1-11:3.6.2-3.11:3.6.2-3.1 1:3.6.2-3.11:3.6.2-3.11:3.6.2-23.6.1-13.6.0+3.6.1-beta3-0ubuntu1
> > netcdf-perl (PTS,UP) 1.2.1-8 1.2.3-11.2.1-7ubuntu1
> > ogdi-dfsg (PTS,UP)
> > 3.2.0~beta1-3.13.2.0~beta1-3.13.2.0~beta1-3~bpo.13.2.0~beta1-3.13.2.0~beta1-3.13.2.0~beta1-3ubuntu13.2.0~beta1-3ubuntu1
> > opencv (PTS,UP)
> > 0.9.7-41.0.0-6.11.0.0-6.1 1.0.0-6.1build11.0.0-6.11.0.0-4ubuntu11.0.0-3ubuntu30.9.6-4.1build1
> > openev (WNPP,UP)
> > openjump (PTS,UP) 1.0-21.0-31.0-3 1.0-31.0-31.0-31.0-2
> > openscenegraph (PTS,UP)
> > 1.2.0-22.4.0-1.12.4.0-1.1 2.4.0-1.12.4.0-1.12.2.0-2ubuntu21.2.0-4build10.9.9-7ubuntu5
> > opticks (UP)
> > orfeo (UP)
> > osm2pgsql (PTS,UP)
> > 0.52.20080408-20.52.20080408-20.52.20080408-2~bpo40+10.52.20080408-2build10.52.20080408-2build10.08.20071007-1
> > ossim (UP)
> > paraview (PTS,UP) 3.2.2-13.2.3-4 3.2.3-4ubuntu13.2.2-1
> > postgis (PTS,UP) 1.1.6-21.3.3-31.3.3-3 1.3.3-31.3.3-31.3.3-11.2.1-21.0.0-1
> > primagis (UP)
> > proj (PTS,TODO,UP)
> > 4.4.9d-24.6.0-24.6.0-24.6.0-1~bpo40+14.6.0-24.6.0-14.6.0-14.5.0-24.4.9d-2
> > pygps (UP)
> > python-pcl (UP)
> > python-scientific (PTS,UP)
> > 2.4.11-12.4.11-22.4.11-2 2.4.11-22.4.11-1.22.4.11-1ubuntu32.4.11-1ubuntu12.4.9-3ubuntu2
> > qgis (PTS,UP) 0.7.4-5 0.8.0-5ubuntu20.7.4-2ubuntu1
> > roadmap (WNPP,UP)
> > roadnav (WNPP,UP)
> > roadster (UP)
> > savi (WNPP,UP)
> > shapelib (PTS,UP)
> > 1.2.10-31.2.10-4.11.2.10-4.1 1.2.10-4.11.2.10-41.2.10-31.2.10-31.2.10-3
> > thuban (PTS,UP)
> > 1.0.1-1.21.2.0-2.11.2.0-2.1 1.2.0-2.1ubuntu11.2.0-2.1ubuntu11.2.0-2.1ubuntu11.2.0-21.0.0-1ubuntu5
> > udig (UP)
> > viking (PTS,UP) 0.9.6-20.9.6-20.9.4-1~bpo40+10.9.6-20.9.6-20.9.3-2build1
> > worldwind (PTS,UP) 0.5.0-10.5.0-6 0.5.0-60.5.0-1
> > worldwind2d (WNPP,UP)
> >
> > Color legend
> >
> >
> > Ubuntu version >= Debian
> >
> > Ubuntu behind Debian unstable
> >
> > Not packaged
> >
> > Obsolete
> >
> > Status at: Mon Jan 5 20:27:47 2009
> >
> > See also the .
> >
> > Generated by a derivative of this GPL licensed perl script
> >
> > written by: Francesco P. Lovergine for DebianGis use.
> >
> > #!/usr/bin/perl
> > #
> > # dgis-status.pl - UbuntuGIS/DebianGis packages status script
> > #
> > # $Id: dgis-status.pl 1145 2007-10-01 11:45:09Z frankie $
> > #
> > # Copyright 2005-2007 (C) Francesco P. Lovergine <frankie@xxxxxxxxxx>
> > #
> > # This program is free software; you can redistribute it and/or modify
> > # it under the terms of the GNU General Public License as published by
> > # the Free Software Foundation; either version 2 of the License, or
> > # (at your option) any later version.
> > #
> > # This program is distributed in the hope that it will be useful,
> > # but WITHOUT ANY WARRANTY; without even the implied warranty of
> > # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> > # GNU General Public License for more details.
> > #
> > # You should have received a copy of the GNU General Public License
> > # along with this program; if not, write to the Free Software
> > # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
> > USA
> > #
> > # On Debian GNU/Linux GPL is available under
> > /usr/share/common-licenses
> > #
> > # Installation:
> > # On a Debian based system,
> > # apt-get install libsvn-perl libcache-apt-perl
> > #
> > # Authors:
> > # Francesco P. Lovergine (original author of dgis-status.pl)
> > # Cameron Shorter (extended to Ubuntu)
> > #
> >
> > use strict 'vars';
> >
> > use Getopt::Std;
> > use FileHandle;
> > use SVN::Client;
> >
> > use AptPkg::Config '$_config';
> > use AptPkg::System '$_system';
> > use AptPkg::Version;
> >
> > getopts('odhvf:'); # -o option: only do difference (no wget)
> > our ( $opt_o, $opt_h, $opt_v, $opt_b, $opt_c, $opt_d, $opt_f );
> >
> > #push @INC, $ENV{'HOME'}."/pkg-grass/scripts";
> > push @INC, $ENV{'HOME'} . "work/ubuntugis/pkg-grass/scripts";
> >
> > my $_stable = "fred";
> > my $_unstable = "fred";
> > my $_ubuntu = "fred";
> > my $_testing = "fred";
> > my $svn_repo = "svn://svn.debian.org/pkg-grass";
> > my $web_repo = "http://svn.debian.org/wsvn/pkg-grass";;
> >
> > require "dgis-packages.inc";
> >
> > my %wget = (
> > 'quiet' => 'wget --passive-ftp --quiet -O ',
> > 'verbose' => 'wget --passive-ftp -O '
> > );
> > my %gunzip =
> > ( 'quiet' => 'gunzip --force --quiet ', 'verbose' => 'gunzip --force' );
> > my %paths = (
> > 'stable' => [
> > "http://ftp.nl.debian.org/debian/dists/stable/main/source/";,
> > "http://ftp.nl.debian.org/debian/dists/stable/non-free/source/";,
> > "http://ftp.it.debian.org/debian/dists/stable/contrib/source/";
> > ],
> > 'testing' => [
> > "http://ftp.nl.debian.org/debian/dists/testing/main/source/";,
> > "http://ftp.nl.debian.org/debian/dists/testing/non-free/source/";,
> > "http://ftp.it.debian.org/debian/dists/testing/contrib/source/";
> > ],
> > 'unstable' => [
> > "http://ftp.nl.debian.org/debian/dists/unstable/main/source/";,
> > "http://ftp.nl.debian.org/debian/dists/unstable/non-free/source/";,
> > "http://ftp.it.debian.org/debian/dists/unstable/contrib/source/";
> > ],
> > 'bpo' => [
> > "http://www.backports.org/debian/dists/etch-backports/main/source/";,
> > "http://www.backports.org/debian/dists/etch-backports/non-free/source/";,
> > "http://www.backports.org/debian/dists/etch-backports/contrib/source/";
> > ],
> > 'jaunty' => [
> > "http://archive.ubuntu.com/ubuntu/dists/jaunty/main/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/jaunty/multiverse/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/jaunty/restricted/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/jaunty/universe/source/";
> > ],
> > 'intrepid' => [
> > "http://archive.ubuntu.com/ubuntu/dists/intrepid/main/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/intrepid/multiverse/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/intrepid/restricted/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/intrepid/universe/source/";
> > ],
> > 'hardy' => [
> > "http://archive.ubuntu.com/ubuntu/dists/hardy/main/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/hardy/multiverse/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/hardy/restricted/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/hardy/universe/source/";
> > ],
> > 'gutsy' => [
> > "http://archive.ubuntu.com/ubuntu/dists/gutsy/main/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/gutsy/multiverse/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/gutsy/restricted/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/gutsy/universe/source/";
> > ],
> > 'dapper' => [
> > "http://archive.ubuntu.com/ubuntu/dists/dapper/main/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/dapper/multiverse/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/dapper/restricted/source/";,
> > "http://archive.ubuntu.com/ubuntu/dists/dapper/universe/source/";
> > ],
> > );
> > my @versions = (
> > "stable", "testing", "unstable", "bpo", "jaunty", "intrepid",
> > "hardy", "gutsy", "dapper"
> > );
> > my $ubuntuVer = "jaunty";
> > my $sources = "Sources";
> > my $sourcesgz = "$sources.gz";
> > my $verbose = 0;
> >
> > my $debug = $opt_d;
> > my $verbose = $opt_v ? 'verbose' : 'quiet';
> >
> > if ($opt_h) {
> > print STDERR <<EOT;
> > usage: $0 [-odvh]
> > options:
> > -h this help...
> > -o ONLY calculate differences on local files (don't wget Sources.gz)
> > -d debug
> > -v verbose
> > EOT
> > exit;
> > }
> >
> > sub GetSvnUrl {
> > my ( $source_package, $file_name ) = @_;
> >
> > eval {
> > my $client =
> > SVN::Client->new( auth => [ SVN::Client::get_simple_provider() ] );
> > my $dirent =
> > $client->ls(
> > "$svn_repo/packages/$source_package/trunk/debian/$file_name",
> > 'HEAD', 1 );
> > };
> > return undef if $@;
> > return
> > "$web_repo/packages/$source_package/trunk/debian/$file_name?op=file&rev=0&sc=0";
> > }
> >
> > unless ($opt_o) { # Skip wget if -o option "only difference"
> > for my $s ( keys %paths ) {
> > unlink "$s.$sources" if -f "$s.$sources";
> > for my $i ( 0 .. $#{ $paths{$s} } ) {
> > system("$wget{$verbose} $s.$sourcesgz $paths{$s}->[$i]/$sourcesgz");
> > system("$gunzip{$verbose} -c $s.$sourcesgz >> $s.$sources")
> > if -f "$s.$sourcesgz";
> > unlink "$s.$sourcesgz" if -f "$s.$sourcesgz";
> > }
> > }
> > }
> >
> > #system("$wget{$verbose} bugs.txt
> > http://merkel.debian.org/~hertzog/pts/bugs.txt";);
> >
> > my %files = undef;
> > my %dgishash = undef;
> > my %tot_pkgs = undef;
> >
> > for my $s ( keys %paths ) {
> > $files{$s} = new FileHandle "<$s.$sources";
> > die "Cannot open $s: $!\n" if !defined $files{$s};
> > IO::Handle->input_record_separator("\n\n");
> > binmode $files{$s}, ":unix"
> > if $] > 5.007; # To avoid UTF-8 interpretation as in perl 5.8...
> > }
> >
> > for my $p ( keys %main::dgislist ) { $dgishash{$p} = {}; }
> >
> > for my $s ( keys %paths ) {
> > $tot_pkgs{$s} = 0;
> > my $F = $files{$s};
> > while (<$F>) {
> > if (/Package:\s(\S+).*\nVersion:\s(\S+)/s) {
> > my $package = $1;
> > my $version = $2;
> > if ( defined $dgishash{$package} ) {
> > $dgishash{$package}->{$s} = "$version";
> > }
> > }
> > $tot_pkgs{$s}++;
> > }
> > }
> >
> > print <<EOF;
> > <!doctype html public "-//w3c//dtd html 4.01//en"
> > "http://www.w3.org/tr/html4/strict.dtd";>
> > <html>
> > <style type="text/css">
> > <!--
> > table.pkg {
> > border-collapse: collapse;
> > }
> > .pkg th, .pkg td {
> > text-align: left;
> > border: 1px solid black;
> > padding: 0.2em;
> > }
> > .pkg thead {
> > background-color: silver;
> > color: #000000;
> > }
> > table.pkg tr.title {
> > color: #ffffff;
> > background-color: #df0451;
> > }
> >
> > /* orange */
> > table.pkg tr.ubuntuOutOfDate {
> > color: #000000;
> > background-color: #f09005;
> > }
> >
> > /* white */
> > table.pkg tr.unpackaged {
> > color: #000000;
> > background-color: #ffffff;
> > }
> >
> > /* yellow */
> > table.pkg tr.debianOutOfDate {
> > color: #000000;
> > background-color: #f0f005;
> > }
> >
> > /* green */
> > table.pkg tr.upToDate {
> > color: #000000;
> > background-color: #a0f005;
> > }
> >
> > /* red */
> > table.pkg tr.obsolete {
> > color: #000000;
> > background-color: #f03000;
> > }
> > table.pkg tr.othered {
> > color: #000000;
> > background-color: #dc5858;
> > }
> > -->
> > </style>
> > <head>
> > <title>DebianGIS/UbuntuGIS Package Thermometer</title>
> > <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> > </head>
> > <body>
> > <p><a href="https://wiki.ubuntu.com/UbuntuGIS";>UbuntuGIS home page</a>.</p>
> > <table border=0 cellspacing=10 cellpadding=5>
> > <tr><td valign=top>
> >
> > <table class='pkg'>
> > <caption><h3>DebianGIS/UbuntuGIS Package Thermometer</h3></caption>
> > <tr class='title'>
> > <TH>Package</TH>
> > EOF
> >
> > for my $v (@versions) {
> > print("<TH>$v</TH>");
> > }
> > print("</tr>");
> >
> > $_config->init;
> > $_system = $_config->system;
> >
> > my $vs = $_system->versioning;
> >
> > for my $p ( sort keys %dgishash ) {
> > next unless $p;
> > for my $s ( keys %paths ) {
> > $dgishash{$p}->{$s} = " " unless $dgishash{$p}->{$s};
> > }
> > my $p_url = "<strong>$p</strong>";
> > my $tr_class = "class='upToDate'";
> > my $pkg_url = $main::dgislist{$p}->{url};
> > my $todo_url = &GetSvnUrl( $p, 'TODO' );
> > if ($dgishash{$p}->{stable} ne " "
> > || $dgishash{$p}->{unstable} ne " " )
> > {
> > $p_url .= " (<a href='http://packages.qa.debian.org/$p'>PTS</a>,";
> > }
> > else {
> > $p_url .= " (" if $pkg_url;
> > my $pkg_wnpp = $main::dgislist{$p}->{wnpp};
> > $p_url .= "<a href='http://bugs.debian.org/$pkg_wnpp'>WNPP</a>,"
> > if $pkg_wnpp;
> > }
> > $p_url .= "<a href='$todo_url'>TODO</a>," if $todo_url;
> > $p_url .= "<a href='$pkg_url'>UP</a>)" if $pkg_url;
> >
> > # Set row color based on version status
> >
> > $_stable = $dgishash{$p}->{stable};
> > $_unstable = $dgishash{$p}->{unstable};
> > $_testing = $dgishash{$p}->{testing};
> > $_ubuntu = $dgishash{$p}->{$ubuntuVer};
> >
> > $tr_class = "class='unpackaged'";
> >
> > # UpToDate
> > if ($dgishash{$p}->{$ubuntuVer} ne " "
> > && $dgishash{$p}->{$ubuntuVer} ge $dgishash{$p}->{unstable} )
> > {
> > $tr_class = "class='upToDate'";
> > }
> >
> > # debianOutOfDate
> > #if (
> > # $dgishash{$p}->{unstable} ne " "
> > # && $dgishash{$p}->{unstable} ne $dgishash{$p}->{stable}
> > #) {
> > # $tr_class = "class='debianOutOfDate'";
> > #}
> >
> > # ubuntuOutOfDate
> > if (
> > $dgishash{$p}->{unstable} ne " "
> > && ($dgishash{$p}->{$ubuntuVer} lt $dgishash{$p}->{unstable}
> > || $dgishash{$p}->{ubuntuVer} eq " " )
> > )
> > {
> > $tr_class = "class='ubuntuOutOfDate'";
> > }
> >
> > # obsolete
> > if ($dgishash{$p}->{unstable} eq " "
> > && $dgishash{$p}->{stable} ne " " )
> > {
> > $tr_class = "class='obsolete'";
> > }
> >
> > # unpackaged
> > if ($dgishash{$p}->{stable} eq " "
> > && $dgishash{$p}->{unstable} eq " "
> > && $dgishash{$p}->{testing} eq " "
> > && $dgishash{$p}->{$ubuntuVer} eq " " )
> > {
> > $tr_class = "class='unpackaged'";
> > }
> >
> > # # UpToDate
> > # if (
> > # $dgishash{$p}->{stable} ne " "
> > # &&
> > $vs->compare($dgishash{$p}->{stable},$dgishash{$p}->{unstable}) > 0
> > # && $vs->compare($dgishash{$p}->{stable},$dgishash{$p}->{testing})
> >> 0
> > # &&
> > $vs->compare($dgishash{$p}->{stable},$dgishash{$p}->{$ubuntuVer}) > 0
> > # ) {
> > # $tr_class = "class='upToDate'";
> > # }
> > #
> > # # debianOutOfDate
> > # if (
> > # $dgishash{$p}->{unstable} ne " "
> > # &&
> > $vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{stable}) > 1
> > # ) {
> > # $tr_class = "class='debianOutOfDate'";
> > # }
> > #
> > # # ubuntuOutOfDate
> > # if (
> > # $dgishash{$p}->{unstable} ne " "
> > # &&
> > $vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{$ubuntuVer}) > 1
> > # ) {
> > # $tr_class = "class='ubuntuOutOfDate'";
> > # }
> > #
> > # # obsolete
> > # if (
> > # $dgishash{$p}->{unstable} eq " "
> > # && $dgishash{$p}->{stable} ne " "
> > # ) {
> > # $tr_class = "class='obsolete'";
> > # }
> > #
> > # # unpackaged
> > # if (
> > # $dgishash{$p}->{stable} eq " "
> > # && $dgishash{$p}->{unstable} eq " "
> > # && $dgishash{$p}->{test} eq " "
> > # && $dgishash{$p}->{$ubuntuVer} eq " "
> > # ) {
> > # $tr_class = "class='unpackaged'";
> > # }
> >
> > # if ( $dgishash{$p}->{unstable} ne " " &&
> > $dgishash{$p}->{stable} eq " " ) {
> > # $tr_class = "class='upToDate'";
> > # }
> > # if ( $dgishash{$p}->{unstable} eq " " &&
> > $dgishash{$p}->{stable} eq " " ) {
> > # $tr_class = "class='debianOutOfDate'";
> > # }
> > # if ( $dgishash{$p}->{unstable} ne " " &&
> > $dgishash{$p}->{stable} ne " " &&
> > # $vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{stable})
> >> 0 ) {
> > # $tr_class = "class='ubuntuOutOfDate'";
> > # }
> > # if ( $dgishash{$p}->{unstable} ne " " &&
> > $dgishash{$p}->{testing} ne " " &&
> > #
> > $vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{testing}) > 0 ) {
> > # $tr_class = "class='obsolete'";
> > # }
> > # if ( $dgishash{$p}->{unstable} ne " " &&
> > $dgishash{$p}->{testing} eq " " ) {
> > # $tr_class = "class='obsolete'";
> > # }
> > print <<EOF;
> > <tr $tr_class>
> > <td >$p_url</td>
> > EOF
> > for my $v (@versions) {
> > print("<td >$dgishash{$p}->{$v}</td>");
> > }
> > print("</tr>");
> > }
> >
> > my $now = gmtime;
> >
> > print <<EOF;
> > </table>
> > </td>
> >
> > <td valign=top>
> > </table>
> > <table border=0>
> > <caption><h3>Color legend</h3></caption>
> >
> > <tr>
> > <td>
> > <table class='pkg'>
> > <tr class='upToDate'>
> > <td> </td>
> > </tr>
> > </table>
> > </td>
> > <td>
> > <small>Ubuntu version >= Debian</small>
> > </td>
> > </tr>
> >
> > <tr>
> > <td>
> > <table class='pkg'>
> > <tr class='ubuntuOutOfDate'>
> > <td> </td>
> > </tr>
> > </table>
> > </td>
> > <td>
> > <small>Ubuntu behind Debian unstable</small>
> > </td>
> > </tr>
> >
> > <tr>
> > <td>
> > <table class='pkg'>
> > <tr class='unpackaged'>
> > <td> </td>
> > </tr>
> > </table>
> > </td>
> > <td>
> > <small>Not packaged</small>
> > </td>
> > </tr>
> >
> > <tr>
> > <td>
> > <table class='pkg'>
> > <tr class='obsolete'>
> > <td> </td>
> > </tr>
> > </table>
> > </td>
> > <td>
> > <small>Obsolete</small>
> > </td>
> > </tr>
> >
> > </td>
> > </tr>
> > </table>
> > <p>Status at: $now</p>
> > <p>See also the <a
> > href="http://pkg-grass.alioth.debian.org/debiangis-status.html"DebianGis
> > packages thermometer</a>.</p>
> > <p><small>Generated by a derivative of <a
> > href="http://svn.debian.org/wsvn/pkg-grass/scripts/dgis-status.pl?op=file&rev=0&sc=0";>this
> > GPL licensed perl script</a> </p>
> > <p>written by: <a href="mailto:frankie\@debian.org";>Francesco P.
> > Lovergine</a> for DebianGis use.</small></p>
> > </body>
> > </htmL>
> >
> > EOF
> >
> >
>
>
>
--
Francesco P. Lovergine
Follow ups
References
