[DebianGIS-dev] CVS Update: scripts dgis-status.pl

Mon Feb 27 16:09:34 UTC 2006

  User: frankie 
  Date: 06/02/27 16:09:34

  Modified:    .        dgis-status.pl
  Log:
  Style revised.
  Added packages.qa pointers.

  Revision  Changes    Path
  1.4       +31 -12    scripts/dgis-status.pl

  CVSWEB Options: -------------------

  CVSWeb: Annotate this file:            http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/pkg-grass/scripts/dgis-status.pl?annotate=1.4&cvsroot=

  CVSWeb: View this file:             http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/pkg-grass/scripts/dgis-status.pl?rev=1.4&content-type=text/x-cvsweb-markup&cvsroot=

  CVSWeb: Diff to previous version:   http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/pkg-grass/scripts/dgis-status.pl.diff?r1=1.4&r2=1.3&cvsroot=

  -----------------------------------

  Index: dgis-status.pl
  ===================================================================
  RCS file: /cvsroot/pkg-grass/scripts/dgis-status.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- dgis-status.pl	14 Sep 2005 09:55:45 -0000	1.3
  +++ dgis-status.pl	27 Feb 2006 16:09:34 -0000	1.4
  @@ -4,7 +4,7 @@
   #
   #	$Id$
   #	
  -#	Copyright 2005 (C) Francesco P. Lovergine <frankie at debian.org>
  +#	Copyright 2005-2006 (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
  @@ -104,7 +104,22 @@
   <html>
    <style type="text/css">
   <!--
  -     a: img { border-style: none }
  +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;
  +}
   -->
   </style>
      <head>
  @@ -112,9 +127,9 @@
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      </head>
   <body>
  -<table border="1" bgcolor="#ffffcc">
  -<caption bgcolo="#ffffaa"><h3>DebianGis Source Packages</h3></caption>
  -<tr>
  +<table class='pkg'>
  +<caption><h3>DebianGis Source Packages</h3></caption>
  +<tr class='title'>
   <TH />Package
   <TH />Stable
   <TH />Unstable
  @@ -129,13 +144,17 @@
   	for my $s ( keys %paths ) {
   		$dgishash{$p}->{$s} = "none" unless $dgishash{$p}->{$s};
   	}
  +	my $p_url = $p;
  +	if ( $dgishash{$p}->{stable} ne "none" || $dgishash{$p}->{unstable} ne "none" ) {
  +		$p_url = "<a href='http://packages.qa.debian.org/common/index.html?src=$p'>$p</a>";
  +	}
   	print <<EOF;
  -<tr>
  -<td>$p</td> 
  -<td>$dgishash{$p}->{stable}</td> 
  -<td>$dgishash{$p}->{unstable}</td> 
  -<td>$dgishash{$p}->{'dgis-stable'}</td> 
  -<td>$dgishash{$p}->{'dgis-unstable'}</td>
  +<tr >
  +<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>
   </tr>
   EOF
   }