1#!/usr/bin/perl
2use warnings;
3use strict;
4use utf8;
5#use lib '/home/src/perl/_modules/BBS-Client/lib/';
6#use lib '../lib/';
7
8BEGIN {
9	unshift @INC , '../lib/';
10}
11
12use BBS::Client;
13
14my $o;
15$o = BBS::Client->new( {
16		host => 'bs2.to',
17		sys =>  'bs2' ,  # system type ( ptt , maple )
18		});
19
20print "user:";
21#my $user = <STDIN>;
22my $user = 'kornelius';
23print "pass:";
24my $pass = <STDIN>;
25chomp ($user,$pass);
26
27print "login...";
28if( $o->login($user,$pass) ) {
29	print "done\n";
30
31	print "enter board...";
32	$o->enter_board("P_kornelius");
33	print "done\n";
34	print "listening...\n";
35	$o->enter_userlist();
36	$o->listen_userlist();
37} else {
38	print "failed..\n";
39}
40