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

[frankie at haydn.debian.org]

  User: frankie 
  Date: 06/03/11 18:33:15

  Modified:    .        dgis-status.pl
  Log:
  Now manages contrib and other distro subdir correctly.
  
  Revision  Changes    Path
  1.11      +11 -9     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.11&cvsroot=
  
  CVSWeb: View this file:             http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/pkg-grass/scripts/dgis-status.pl?rev=1.11&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.11&r2=1.10&cvsroot=
  
  -----------------------------------
  
  Index: dgis-status.pl
  ===================================================================
  RCS file: /cvsroot/pkg-grass/scripts/dgis-status.pl,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- dgis-status.pl	11 Mar 2006 17:41:52 -0000	1.10
  +++ dgis-status.pl	11 Mar 2006 18:33:15 -0000	1.11
  @@ -42,12 +42,10 @@
   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/",
  -	'dgis-unstable' => "http://pkg-grass.alioth.debian.org/debian-gis/dists/unstable/main/source/",
  -        'stable'        => "http://merkel.debian.org/debian/dists/stable/main/source/",
  -        'stable-contrib'=> "http://merkel.debian.org/debian/dists/stable/contrib/source/",
  -        'unstable'      => "http://merkel.debian.org/debian/dists/unstable/main/source/",
  -        'unstable-contrib'=> "http://merkel.debian.org/debian/dists/unstable/contrib/source/",
  +	'dgis-stable'   => ["http://pkg-grass.alioth.debian.org/debian-gis/dists/stable/main/source/"],
  +	'dgis-unstable' => ["http://pkg-grass.alioth.debian.org/debian-gis/dists/unstable/main/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/"],
   );
   
   my $sources   = "Sources";
  @@ -71,8 +69,12 @@
   
   unless ($opt_o) {	# Skip wget if -o option "only difference"
   	for my $s ( keys %paths ) {
  -		system ("$wget{$verbose} $s.$sourcesgz $paths{$s}/$sourcesgz");
  -		system ("$gunzip{$verbose} $s.$sourcesgz") if -f "$s.$sourcesgz";
  +		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";
  +		}
   	}
   }