/usr/local/CPAN/OurNet-BBS/OurNet/BBS/NNTP/Board.pm

• package OurNet::BBS::NNTP::Board
  • refresh_articles
  • refresh_archives
  • refresh_id
  • refresh_title
  • refresh_meta
• EOF

# $File: //depot/libOurNet/BBS/lib/OurNet/BBS/NNTP/Board.pm $ $Author: autrijus $
# $Revision: #2 $ $Change: 3792 $ $DateTime: 2003/01/24 19:34:06 $

package OurNet::BBS::NNTP::Board;

use strict;
no warnings 'deprecated';
use fields qw/nntp board _ego _hash/;
use OurNet::BBS::Base;

sub refresh_articles {
    my $self = shift;

    return $self->{_hash}{articles} ||= $self->module('ArticleGroup')->new({
	nntp  => $self->{nntp},
	board => $self->{board},
    });
}

sub refresh_archives {
    die 'no refresh_archives';
}

sub refresh_id {
    my $self = shift;

    $self->{_hash}{id} = $self->{board};
    return 1;
}

sub refresh_title {
    my $self  = shift;
    my $board = $self->{board};

    $self->{_hash}{title} = $self->{nntp}->newsgroups($board)->{$board};
    return 1;
}

sub refresh_meta { 1 } # XXX: no meta-data yet

1;