1# $File: //depot/libOurNet/BBS/lib/OurNet/BBS/NNTP/BoardGroup.pm $ $Author: autrijus $
2# $Revision: #2 $ $Change: 3792 $ $DateTime: 2003/01/24 19:34:06 $
3
4package OurNet::BBS::NNTP::BoardGroup;
5
6use strict;
7no warnings 'deprecated';
8use fields qw/bbsroot nntp _ego _hash/;
9use OurNet::BBS::Base;
10
11use Net::NNTP;
12
13sub refresh_meta {
14    my ($self, $key) = @_;
15
16    $self->{nntp} ||= Net::NNTP->new(
17	$self->{bbsroot},
18	Debug => $OurNet::BBS::DEBUG,
19    ) or die $!;
20
21    my @keys = (defined $key ? $key : keys(%{$self->{nntp}->list}));
22
23    foreach $key (@keys) {
24	$self->{_hash}{$key} ||= $self->module('Board')->new({
25	    nntp  => $self->{nntp},
26	    board => $key,
27	});
28    }
29
30    return 1;
31}
32
331;
34