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