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