BBS::UserInfo::SOB - Get user information of SOB-style BBS
use BBS::UserInfo::SOB; my $foo = BBS::UserInfo::SOB->new( 'debug' => 1, 'port' => 23, 'server' => 'birdnest.twbbs.org', 'telnet' => '/usr/bin/telnet', 'timeout' => 10 ); # connect to the server $bot->connect() or die('Unable to connect BBS'); my $userdata = $bot->query('username'); # print some data print($userdata->{'logintimes'});
Create a BBS::UserInfo::SOB object, there are some parameters that you can define:
server => 'birdnest.twbbs.org' # Necessary, server name port => 23 # Optional, server port telnet => 'telnet' # Optional, telnet program timeout => 10 # Optional, Expect timeout debug => 1 # Optional, print debug information
Connect to the BBS server.
Query user information and return a hash reference with:
nickname
logintimes
posttimes
lastlogintime
lastloginip
Gea-Suan Lin, <gslin at gslin.org>
<gslin at gslin.org>
Copyright 2006 Gea-Suan Lin, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install BBS::UserInfo::SOB, copy and paste the appropriate command in to your terminal.
cpanm
cpanm BBS::UserInfo::SOB
CPAN shell
perl -MCPAN -e shell install BBS::UserInfo::SOB
For more information on module installation, please visit the detailed CPAN module installation guide.