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 > <[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 > > > > > > > -- Francesco P. Lovergine _______________________________________________ Mailing list: https://launchpad.net/~ubuntugis Post to : [email protected] Unsubscribe : https://launchpad.net/~ubuntugis More help : https://help.launchpad.net/ListHelp
