#52 Get multiple groups with '-G'

[James E. Pace]

Currently, '-G' will process only one group. I would
like it if you could specify multiple groups with -G.

For example, ubh -G alt.foo:comp.editors:rec.arts.movies

Below is a diff to implement this against version 2.6b1:

1649c1649
< -G <group> Process this one group.
---
> -G <group>[:<group>...] Process these groups.
3265,3273c3265,3275
< # Just process the one group they specified
on the command line.
< if (!$newsrc->exists($opt{'G'})) {
< print "WARNING: $opt{'G'} not in
".$server->newsrcname."\n";
< }
< elsif (!$newsrc->subscribed($opt{'G'})) {
< print "WARNING: $opt{'G'} is not
subscribed in ".$server->newsrcname."\n";
< }
< else {
< push @groups, $opt{'G'};
---
> # Just process the groups specified on the
command line.
> @groups = split /:/, $opt{'G'};
> foreach (@groups)
> {
> if (!$newsrc->exists($_)) {
> print "WARNING: $_ not in
".$server->newsrcname."\n";
> }
> elsif (!$newsrc->subscribed($_)) {
> print "WARNING: $_ is not subscribed
in " .
> $server->newsrcname."\n";
> }