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 On Tue, Jan 6, 2009 at 9:29 AM, Cameron Shorter <[email protected]> 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 <[email protected]> > # > # 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:[email protected]";>Francesco P. > Lovergine</a> for DebianGis use.</small></p> > </body> > </htmL> > > EOF > > -- Cameron Shorter Geospatial Systems Architect Tel: +61 (0)2 8570 5050 Mob: +61 (0)419 142 254 Think Globally, Fix Locally Commercial Support for Geospatial Open Source Solutions http://www.lisasoft.com/LISAsoft/SupportedProducts.html _______________________________________________ Mailing list: https://launchpad.net/~ubuntugis Post to : [email protected] Unsubscribe : https://launchpad.net/~ubuntugis More help : https://help.launchpad.net/ListHelp
