#!/usr/bin/perl

use strict;
use File::Path;
use File::Copy;

my $root = "/export/dat/www/software/debian-graeff";

chdir( $root ) or die "cannot chdir to root $root";

foreach my $dist ( "dists/stable/main/binary-i386", "dists/unstable/main/binary-i386" ) {
	system( "dpkg-scanpackages $dist /dev/null > $dist/Packages" )
	  and die "scanpackages failed";
	system( "gzip", "-f", "$dist/Packages" )
	  and die "gzip failed";
}

