#!/usr/bin/perl
# Author: Andreas Rönnquist

$num_args = $#ARGV + 1;

$filename = $ARGV[0];

if ($num_args != 1) {
	print "\nUsage: count_packages DIST\n";
	print "where DIST can be oldstable, stable, testng, or unstable, or the\n";
	print "corresponding names - squeeze, wheezy, jessie, sid.\n\n";
	exit;
}

$dist = $ARGV[0];

$full_filename = "ftp://ftp.debian.org/debian/dists/$dist/main/binary-i386/Packages.gz";

system "wget -o/dev/null ftp://ftp.debian.org/debian/dists/$dist/main/binary-i386/Packages.gz";

system "gunzip Packages.gz > /dev/null";

system "grep ^Package: Packages | wc -l";

# system "rm Packages.gz";
system "rm Packages";