schpati000.pl

AndyChat 是一种用Perl 来编写的多协议的控制台聊天程序。它的目的在于提供一种共同的控制台界面

# -  (5.08pm) Added some missing handlers for IRC server info code
# - (12.19am) Some fixes for leftwindow changing updates
#
# Build 0406 - 6th of April, 2000
# - (12.55am) /PLAYFILE doesn't go icky now
# -  (1.01am) Various /PLAYFILE fixes
# -  (1.04am) Increase default /PLAYFILE delay to 2 seconds
# -  (1.13am) More /PLAYFILE bits
# -  (1.17am) Even more /PLAYFILE bits
# -  (1.22am) Fixed nick completion on tab not causing a refresh
# -  (5.44pm) Changed $me{} to $config{}
# -  (5.47pm) $paging is now $config{paging}; $cdstoponexit, $config{cdstoponexit}
# -  (5.51pm) Changed various $*path's to $config{*paths}
# -  (5.55pm) /INV command sets mode +i/-i for IRC
# -  (9.56pm) Began Query support (so I could talk to st`ph better)
# - (10.14pm) Added /QUERY [name]
# - (10.29pm) Fixed some /ME bugs which never occurred
# - (10.36pm) Fixed bug to do with left/right into windows with 'nothing'
# - (10.39pm) Fixed more left/right/window bugs into mysterious windows
# - (11.06pm) Added already in channel checking support
#
# Build 0405 - 5th of April, 2000
# - (12.40am) /JOIN now copies $my to newly created window
#
# Build 0404 - 4th of April, 2000
# -  (8.29pm) Fixed nick change error not showing colours properly
# -  ( ---- ) Added /PLAYFILE <file>
# -  ( ---- ) added /STOPFILE
# -  (9.36pm) /TOPIC implemented (IRC)
# -  (9.44pm) Fixed some /TOPIC <channel> <topic> issues
# -  (9.50pm) Fixed /TOPIC bug
#
# Build 0328 - 28th of March, 2000
# -  (2.24am) Added window parameter to AddLine's
# -  ( ---- ) Added /WINDOW NEW, worth a mention I guess :P
# -  (3.05am) Added proper parameters to newWindowInit
# -  (3.13am) Added /WINDOW NEXT
# -  (3.22am) Added left-arrow, right-arrow -> /window prev, /window next
# -  (3.24am) Added /WINDOW PREV
# -  (3.27am) Fixed no update bug, gotta learn Perl methinks :)
# -  (3.50am) No longer uses ClearAliasWindow, RedrawNicks instead due to bizarrity
# -  (4.01am) ReTitle fixes in /WINDOW NEW, NEXT, PREV
# -  (4.46am) Increased backtype buffer from 10 to 32
# -  (5.11am) Made funky /JOIN code to create new window on same server
# -  (5.14am) Implemented irc__join instead of $window[bla]{control}->join
# -  (5.18am) Added /WINDOW KILL (destroys -current- window if > 1 :P)
# -  (5.21am) Don't clear Window 1 even
# -  (5.40am) Control connection on new join channel window things works
# -  (5.44am) Corrected protocol mode for created windows
# -  (6.01am) ALT-1 .. ALT-9 go to window's 1-9
# -  (6.08am) ALT = 27, not 0
# -  (4.00pm) [wrong file] Patched Net-IRC module to do cunknown
#
# Build 0325 - 25th of March, 2000
# - (12.15am) Implemented $thisword into GetLLine (for nick completion, etc)
# -  (1.13am) Added nick completion.  Works only when -no- duplicates.
# -  (1.51pm) Added handlers for vworld/help on Austnet
# -  (3.43pm) Tab completion now works for first word entered
# -  (3.54pm) Nick completion and : highlighting for personal messages
# -  (4.18pm) Does above when no spaces in input now
#
# Build 0324 - 24th of March, 2000
# - (12.23am) Added | to / conversion in Pizza names
# -  (1.08am) Added cpizza handler and it works *laughs*
# -  (3.17am) /SELLPIZZA works :)
# -  (3.45am) /NICK implemented (IRC)
# -  (4.05am) /NICK fixes for forbidden nicks + language fixes
# -  (1.35pm) /AWAY implemented (IRC)
# -  (2.16pm) Included a_screen.pl
# -  (6.44pm) Return correct lang() error for nick too long
# - (11.10pm) /PART implemented (IRC)
# - (11.50pm) /QUIT implemented (IRC)
#
# Build 0323 - 23rd of March, 2000
# -  (5.34pm) Don't strip whitespace from left of input unless it's a command
# -  (5.48pm) Fixed time update bug (every second, urgh!)
# -  (5.52pm) Fixed time/date update cursor replacement whilst typing bug
# -  (6.00pm) Fixed time/date update position x = y, y = x?  What was I thinking.
# -  (6.05pm) No longer adds things to the bottom of the keyboard back buffer if
#             they are the same as the last thing you typed/copied.
# -  (7.00pm) Added /PIZZA
# -  (7.12pm) Added /CTCP
# -  (7.16pm) Fixed the keyboard up/down stuff I kinda broke before
# -  (7.39pm) Converted $my{} to $my[$window]{}, and globals/defaults are now $me{}
# -  (7.52pm) Removing obsolete code is sometimes a bad idea :P  Messages are now
#             being sent again :)
# -  (8.30pm) /INV kinda implemented .. kinda
# -  (8.48pm) /QUIT kinda implemented (if ! IRC; exit)
# -  (8.48pm) /X implemented (exit)
# -  (9.11pm) Included a_help.pl
# -  (9.13pm) /HELP implemented
# - (10.03pm) /CANCEL half implemented (for cancelling pizza orders)
# - (10.13pm) /BUYPIZZA half implemented
# - (11.26pm) /SELLPIZZA half implemented
# - (11.34pm) /KILLPIZZA half implemented
# - (11.44pm) /CLS (aka: /CLEAR) implemented
#
# Build 0322 - 22nd of March, 2000
# - (12.13am) Changed IRC polls to test a theory
# - (12.48am) Restored IRC poll time
# -  ( ---- ) Fixed keyboard buffer scrollback
# -  (1.10am) Doubled line limit
# -  (1.17am) Moved /IRC JOIN to /JOIN
# -  ( ---- ) Made /J to /JOIN alias
# -  (2.38am) Tried to add up/down buffer support - failed
# -  (2.42am) Fixed up/down keyboard support
# -  (2.42am) Removed bogus keyboard arrow stuffz
# -  (2.44am) Fixed up/down keyboard count error
# -  (2.45am) Fixed up/down keyboard undefined var error
# -  (2.48am) Added "command not found" error
# -  (2.49am) Added "command not found" error - for IRC too
# -  (8.42pm) Once again porting SaveSpace bits
# -  (9.09pm) /NICK kinda implemented .. kinda
# -  (9.11pm) /QUOTE kinda implemented
#
# Build 0321 - 21st of March, 2000
# -  (1.00am) Continued work on stuffz
# -  (1.25am) Ported up-arrow back function thing incorrectly
# -  ( ---- ) Added DoIdleLoop
# -  ( ---- ) Added /me command (action).  Works for IRC.
# -  ( ---- ) Added /msg command (private message).  Works for IRC.
# -  ( ---- ) Added more IRC handlers
# -  (7.15pm) Tried to fix character bungling
# -  (8.08pm) Fixed character weirdness (backspace at beginning of line, ^_ stuffz)
# -  (8.18pm) Fixed bug thing
# - (10.10pm) Added port parameter to /irc connect
# - (10.56pm) Andrew can't count :)  /WHOIS = 6+1=7
# - (10.57pm) Andrew can't count :)  1 parameter = 1 parameter
# - (11.10pm) Made Build 0321 distribution
#
# Build 0217 - 17th of February, 2000
# -  (2.18pm) Fixed displaying of space after [xxx] room number if no topic
# -  (4.52pm) Porting more of end of code stuff
# -  (5.17pm) Porting more text entry nonsense
# -  (9.35pm) Began porting the basics of SaveSpace
#
# Build 0212 - 12th of February, 2000 (why do I bother with the date? :P)
# -  (1.08am) Resumed Work
# -  (1.xxam) Finished main sub (in a way)
# -  (1.56am) Finished Work for now
# -  (4.20pm) Integrated Language bits
#
# Build 0210 - 10th of February, 2000
# - (11.xxam) Continued stuffz
# -  (4.01pm) Fixed disappearing time bug
# -  (9.10pm) Started GetLLine
# - (10.25pm) Fixed yellow/magenta colour mistake
# - (10.30pm) GetLLine now properly recognises Backspace in XTerm and Console (?)
#
# Build 0209 - 9th of February, 2000
# - (11.xxpm) Initial Development
#
use Socket;
use Curses 1.06;
use Time::HiRes qw ( time alarm sleep );
use Term::ReadKey;
use Net::IRC 0.70;
#use POE::Component::IRC;

# For Web Chats
use LWP::UserAgent;
use URI::URL;
use HTML::TreeBuilder;
use HTTP::Request;
use HTTP::Request::Common;
use HTTP::Request::Form;

do 'andy-ext.pl';
do 'curses2andy.pl';

do 'andy-txt.pl';

do 'a_lang.pl';
do 'a_common.pl';
do 'a_logo.pl';
do 'a_protocols.pl';
do 'a_help.pl';
do 'a_screen.pl';

$kbuff = "";	# You can't understand how dodgy this is :(((  And it's gone! :)
$Version = "3.00