#!/usr/bin/perl
# check_packages checks debian packages, and is released
# under the terms of the GPL version 2, or any later version, at your
# option. See the file README and COPYING for more information.
# Copyright 2007 by Don Armstrong <don@donarmstrong.com>.

use warnings;
use strict;

use Getopt::Long;
use Pod::Usage;

=head1 NAME

check_packages - Checks packages

=head1 SYNOPSIS

 [options]

 Options:
  --verbose, -v verbose level (Default 0)
  --debug, -d debugging level (Default 0)
  --help, -h display this help
  --man, -m display manual

=head1 OPTIONS

=over

=item B<--verbose,-v>

Verbosity (Default 0)

=item B<--debug, -d>

Debug verbosity. (Default 0)

=item B<--help, -h>

Display brief useage information.

=item B<--man, -m>

Display this manual.

=back

=cut


use vars qw($DEBUG);

my %options = (debug           => 0,
	       help            => 0,
	       man             => 0,
	       );

GetOptions(\%options,'verbose|v+','debug|d+','help|h|?','man|m');

pod2usage() if $options{help};
pod2usage({verbose=>2}) if $options{man};

$DEBUG = $options{debug};


use File::Basename qw(basename);

for my $file (glob($ENV{HOME}.'/deb_pkgs/*')) {
     chomp $file;
     my $base = basename($file);
     next unless -d "$ENV{HOME}/deb_pkgs/$base/$base/.svn" and -x "$ENV{HOME}/deb_pkgs/$base/$base/debian/rules";
     print "Checking $base\n" if $options{verbose};
     my $olddir = chdir("$ENV{HOME}/deb_pkgs/$base/");
     system('uscan',$base);
     chdir($olddir);
}

__END__