1# $File: //depot/libOurNet/BBS/lib/OurNet/BBS/Firebird3/Article.pm $ $Author: autrijus $
2# $Revision: #5 $ $Change: 3815 $ $DateTime: 2003/01/25 00:54:33 $
3
4package OurNet::BBS::Firebird3::Article;
5
6use if $OurNet::BBS::Encoding, 'encoding' => 'big5', STDIN => undef, STDOUT => undef;
7
8use strict;
9no warnings 'deprecated';
10use base qw/OurNet::BBS::MAPLE2::Article/;
11use fields qw/_ego _hash/;
12use OurNet::BBS::Base (
13    '$HEAD_REGEX' => qr/�o�H�H: ([^ \(]+)\s?(?:\((.+?)\) )?[^\015\012]*\015?\012��  �D: (.*?)\015?\012�o�H��: [^(]+\((.+?)\)[^\015\012]*\015?\012.*\015?\012/,
14);
15
16sub writeok { 0 };
17sub readok { 1 };
18
191;
20