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";
  +             }
        }
   }
   
  
  
  

_______________________________________________
Pkg-grass-devel mailing list
Pkg-grass-devel@lists.alioth.debian.org
http://lists.alioth.debian.org/mailman/listinfo/pkg-grass-devel

Reply via email to