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>

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.