[DebianGIS-dev] r926 - scripts
frankie at alioth.debian.org
frankie at alioth.debian.org
Wed Jun 27 09:38:23 UTC 2007
Author: frankie
Date: 2007-06-27 09:38:23 +0000 (Wed, 27 Jun 2007)
New Revision: 926
Modified:
scripts/dgis-status.pl
Log:
- Updated to check against stable/testing/unstable only.
- Added non-free
- Changed color semantics
Modified: scripts/dgis-status.pl
===================================================================
--- scripts/dgis-status.pl 2007-06-24 10:27:22 UTC (rev 925)
+++ scripts/dgis-status.pl 2007-06-27 09:38:23 UTC (rev 926)
@@ -4,7 +4,7 @@
#
# $Id$
#
-# Copyright 2005-2006 (C) Francesco P. Lovergine <frankie at debian.org>
+# Copyright 2005-2007 (C) Francesco P. Lovergine <frankie at debian.org>
#
# 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
@@ -42,10 +42,9 @@
my %wget = ( 'quiet' => 'wget --passive-ftp --quiet -O ','verbose' => 'wget --passive-ftp -O ' );
my %gunzip = ( 'quiet' => 'gunzip --force --quiet ', 'verbose' => 'gunzip --force' );
my %paths = (
- 'dgis-stable' => ["http://pkg-grass.alioth.debian.org/debian-gis/dists/stable/main/source/","http://pkg-grass.alioth.debian.org/debian-gis/dists/stable/contrib/source/"],
- 'dgis-unstable' => ["http://pkg-grass.alioth.debian.org/debian-gis/dists/unstable/main/source/","http://pkg-grass.alioth.debian.org/debian-gis/dists/unstable/contrib/source/"],
- 'stable' => ["http://merkel.debian.org/debian/dists/stable/main/source/","http://merkel.debian.org/debian/dists/stable/contrib/source/"],
- 'unstable' => ["http://merkel.debian.org/debian/dists/unstable/main/source/","http://merkel.debian.org/debian/dists/unstable/contrib/source/"],
+ 'stable' => ["http://merkel.debian.org/debian/dists/stable/main/source/","http://merkel.debian.org/debian/dists/stable/non-free/source/","http://merkel.debian.org/debian/dists/stable/contrib/source/"],
+ 'testing' => ["http://merkel.debian.org/debian/dists/stable/main/source/","http://merkel.debian.org/debian/dists/stable/non-free/source/","http://merkel.debian.org/debian/dists/stable/contrib/source/"],
+ 'unstable' => ["http://merkel.debian.org/debian/dists/unstable/main/source/","http://merkel.debian.org/debian/dists/unstable/non-free/source/","http://merkel.debian.org/debian/dists/unstable/contrib/source/"],
);
my $sources = "Sources";
@@ -166,9 +165,8 @@
<tr class='title'>
<TH />Package
<TH />Stable
+<TH />Testing
<TH />Unstable
-<TH />DebianGis stable
-<TH />DebianGis unstable
</tr>
EOF
@@ -197,32 +195,26 @@
if ( $dgishash{$p}->{unstable} ne " " && $dgishash{$p}->{stable} eq " " ) {
$tr_class = "class='green'";
}
- if ( $dgishash{$p}->{unstable} eq " " && $dgishash{$p}->{stable} eq " " &&
- $dgishash{$p}->{'dgis-unstable'} eq " " && $dgishash{$p}->{'dgis-stable'} ) {
+ if ( $dgishash{$p}->{unstable} eq " " && $dgishash{$p}->{stable} eq " " ) {
$tr_class = "class='yellow'";
}
if ( $dgishash{$p}->{unstable} ne " " && $dgishash{$p}->{stable} ne " " &&
$vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{stable}) > 0 ) {
- $tr_class = "class='green'";
+ $tr_class = "class='orange'";
}
- if ( $dgishash{$p}->{unstable} ne " " && $dgishash{$p}->{'dgis-unstable'} ne " " &&
- $vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{'dgis-unstable'}) > 0 ) {
- $tr_class = "class='othered'";
+ if ( $dgishash{$p}->{unstable} ne " " && $dgishash{$p}->{testing} ne " " &&
+ $vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{testing}) > 0 ) {
+ $tr_class = "class='red'";
}
- if ( $dgishash{$p}->{unstable} ne " " && $dgishash{$p}->{'dgis-unstable'} ne " " &&
- $vs->compare($dgishash{$p}->{unstable},$dgishash{$p}->{'dgis-unstable'}) < 0 ) {
+ if ( $dgishash{$p}->{unstable} ne " " && $dgishash{$p}->{testing} eq " " ) {
$tr_class = "class='red'";
}
- if ( $dgishash{$p}->{unstable} eq " " && $dgishash{$p}->{'dgis-unstable'} ne " " ) {
- $tr_class = "class='orange'";
- }
print <<EOF;
<tr $tr_class>
<td >$p_url</td>
<td >$dgishash{$p}->{stable}</td>
-<td >$dgishash{$p}->{unstable}</td>
-<td >$dgishash{$p}->{'dgis-stable'}</td>
-<td >$dgishash{$p}->{'dgis-unstable'}</td>
+<td >$dgishash{$p}->{testing}</td>
+<td >$dgishash{$p}->{unstable}</td>
</tr>
EOF
}
@@ -236,29 +228,30 @@
<td valign=top>
<table border=0>
<caption><h3>Color legend</h3></caption>
+
<tr>
<td>
<table class='pkg'>
-<tr class='orange'>
+<tr class='green'>
<td> </td>
</tr>
</table>
</td>
<td>
-<small>Available in DebianGis, not yet in sid</small>
+<small>Same version in unstable/testing/stable</small>
</td>
</tr>
<tr>
<td>
<table class='pkg'>
-<tr class='green'>
+<tr class='orange'>
<td> </td>
</tr>
</table>
</td>
<td>
-<small>Available in Sid, not in stable</small>
+<small>Obsolete or not in stable</small>
</td>
</tr>
@@ -284,33 +277,20 @@
</table>
</td>
<td>
-<small>New in DebianGis, obsolete in sid</small>
+<small>Obsolete or not in testing</small>
</td>
</tr>
-<tr>
-<td>
-<table class='pkg'>
-<tr class='othered'>
-<td> </td>
-</tr>
-</table>
</td>
-<td>
-<small>Obsolete in DebianGis, up-to-date in sid</small>
-</td>
</tr>
-
-</td>
-</tr>
</table>
</table>
<p />Status at: $now
- <br />Total of Stable/Unstable/DebianGisStable/DebianGisUnstable packages: $tot_pkgs{stable}/$tot_pkgs{unstable}/$tot_pkgs{'dgis-stable'}/$tot_pkgs{'dgis-unstable'}
+ <br />Total of Stable/Testing/Unstable packages: $tot_pkgs{stable}/$tot_pkgs{testing}/$tot_pkgs{unstable}
<p /><small>Generated by <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>
written by: <a href="mailto:frankie\@debian.org">Francesco P. Lovergine</a> for DebianGis use.</small>
<p />
- <p /><em>Go to <a href="http://pkg-grass.alioth.debian.org/">DebianGis Wiki</a></em>
+ <p /><em>Go to <a href="http://wiki.debian.org/DebianGis">DebianGis Wiki</a></em>
</body>
</htmL>
More information about the Pkg-grass-devel
mailing list