#!/usr/bin/perl -w
=pod

=head is_newsgroup

     is_newsgroup 'comp.lang.perl.*'

=head1 DESCRIPTION

  B<is_newsgroup> contacts your newsserver and prints all newsgroups
  whose names match the pattern specified, along with the number of
  messages in each group.

=head1 AUTHOR

   Gossamer <gossamer@tertius.net.au>

=head1 PREREQUISITES
Net::NNTP
=head1 SCRIPT CATEGORIES
News
=cut
#

use strict;
use Net::NNTP;

my $VERSION = "1.0";

my $newsserver = "news.glasswings.com.au";

#
# Main
#

my $pattern = $ARGV[0];

print "Searching for '$pattern' ...\n";
my $nntp = Net::NNTP->new($newsserver);

my %groups = %{ $nntp->active($pattern) };
if (%groups) {
   foreach (sort keys %groups) {
      my $highmsg = $groups{$_}[0];
      my $lowmsg = $groups{$_}[1];
      my $diff = $highmsg - $lowmsg;

      print "$_ ($diff messages)\n";
   }
} else {
   print "(none found)\n";
}

$nntp->quit;

exit;
#
# End.
#