# $File: //depot/OurNet-BBSAgent/BBSAgent/pku.bbs $ $Author: autrijus $
# $Revision: #5 $ $Change: 2829 $ $DateTime: 2002/01/10 14:54:36 $
# Contributed by Chia-liang Kao <clkao@clkao.org>
# zh_TW.Big5: ¥_¨Ê¤j¾Ç

Beijing University
bbs.pku.edu.cn

load firebird2.board

setv headl \x0d?
setv headr :\x20(.+?)(?:,\x20.?.?«H°Ï:\x20.+)?$
setv headi µo«H¤H,¼Ð\x20\x20ÃD,µo«H¯¸

setv statustail ±b¸¹[

=login
wait new
send $[username].\n # for big5 display
send $[password]\n
send nq\nq\nq\nq\nq\nq
goto main

=board
call main
send s\n
wait °Ï¦W
send $[board]\n\n\x20
till $[statustail]

=board_list_last
call board $[board]
send 1\n\x24
wait \x0d>
till \x20
exit

=board_article_fetch_first
call board $[board]
send $[article]\n\n
wait \e[J
till \e[1;44;31m[¾\Ū¤å³¹]
  or \e[1;44;32m¤U­±ÁÙ¦³³á
till µ²§ô
wait m/\^X\x20?©Î\x20?p\x20\e\[m/
  or ¢x\x20\x20\x20\x20\x20\e[m
exit

=board_article_fetch_next
send \x20
till \e[1;44;31m[¾\Ū¤å³¹]
  or \e[1;44;32m¤U­±ÁÙ¦³³á
till µ²§ô
wait m/\^X\x20?©Î\x20?p\x20\e\[m/
  or ¢x\x20\x20\x20\x20\x20\e[m
exit

=board_article_fetch_last
send q
wait $[statustail]
exit

=article_post_raw
call board $[board]
send \x10
wait ¼ÐÃD:
send $[title]\n
wait ±µ¨ü:
send \n
wait ¨D±Ï
send $[body]
send \eg
wait ²Ä´X¦æ
send 1\n
send \x19\x19\x19\x19
send \x18
wait µoªí
send \n
wait $[statustail]
exit