NNTPSwitch

#!/usr/bin/perl -w

use strict;

use News::NNTPClient;

my $f = "groups.conf";

my $a = "active";

my $n = "newsgroups";

my $ActiveTimesFromLastServer = 1;

my $debug = 0;

my %groups;

my %descrs;

my %times;

sub getgroups {

    my ($pat, $server) = @_;

    my $c = new News::NNTPClient($server);

    die "Could not connect\n" if ! $c;

    foreach ( $c->list('active',$pat) ) {

	chop;

	print $c->code .' '. $c->message if $c->code !~ /2../ && $debug; 

	my ($group,undef) = split;

	next if $groups{$group};

	$groups{$group} = "$_ $server";

    }

    foreach ( $c->list('newsgroups',$pat) ) {

	chop;

	print $c->code .' '. $c->message if $c->code !~ /2../ && $debug; 

	my ($group,undef) = split;

	next if $descrs{$group};

	$descrs{$group} = $_;

    }

    if ( ! $ActiveTimesFromLastServer ) {

	foreach ( $c->list('active.times') ) {

	    chop;

	    print $c->code .' '. $c->message if $c->code !~ /2../ && $debug; 

	    my ($group,$time,undef) = split;

	    $times{$group} = $time;

	}

    }

    $c->quit();

}

my $lastserver = "";

# read groups.conf and load each entry

open(F,$f) || die "open $f $!\n";

while(<F>){

    next if ( m/^$/g || m/^#/g || m/^;/g );

    my ($pat,$server) = split;

    getgroups($pat,$server);

    $lastserver = $server;

}

close F;

if ( $ActiveTimesFromLastServer ) {

    my $c = new News::NNTPClient($lastserver);

    die "Could not connect\n" if ! $c;

    foreach ( $c->list('active.times') ) {

	chop;

	print $c->code .' '. $c->message if $c->code !~ /2../ && $debug; 

	my ($group,$time,undef) = split;

	$times{$group} = $time;

    }

    $c->quit();

}

# write semi-active file

open(F,">$a") || die "open $a $!\n";

foreach ( keys %groups ) {

    $times{$_} = 0 if ! defined $times{$_};

    print F $groups{$_} ." ". $times{$_} ."\n";

}

close F;

# write newsgroups file

open(F,">$n") || die "open $n $!\n";

foreach ( keys %descrs ) {

    print F $descrs{$_} ."\n";

}

close F;