513 files changed, 88589 insertions, 0 deletions

diff --git a/README.branch b/README.branch
new file mode 100644
index 00000000..ef654cab
--- /dev/null
+++ b/README.branch
@@ -0,0 +1,4 @@
+以往在精華區裡面判定某一項是目錄或檔案時,
+是直接透過 dash.()來做 (底層使用 stat() )
+將改成直接記在 .DIR 裡面,
+可以省掉大量的 system call &速度快.
diff --git a/pttbbs/LICENSE b/pttbbs/LICENSE
new file mode 100644
index 00000000..d60c31a9
--- /dev/null
+++ b/pttbbs/LICENSE
@@ -0,0 +1,340 @@
+		    GNU GENERAL PUBLIC LICENSE
+		       Version 2, June 1991
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+			    Preamble
+
+  The licenses for most software are designed to take away your
+freedom to share and change it.  By contrast, the GNU General Public
+License is intended to guarantee your freedom to share and change free
+software--to make sure the software is free for all its users.  This
+General Public License applies to most of the Free Software
+Foundation's software and to any other program whose authors commit to
+using it.  (Some other Free Software Foundation software is covered by
+the GNU Library General Public License instead.)  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+this service if you wish), that you receive source code or can get it
+if you want it, that you can change the software or use pieces of it
+in new free programs; and that you know you can do these things.
+
+  To protect your rights, we need to make restrictions that forbid
+anyone to deny you these rights or to ask you to surrender the rights.
+These restrictions translate to certain responsibilities for you if you
+distribute copies of the software, or if you modify it.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must give the recipients all the rights that
+you have.  You must make sure that they, too, receive or can get the
+source code.  And you must show them these terms so they know their
+rights.
+
+  We protect your rights with two steps: (1) copyright the software, and
+(2) offer you this license which gives you legal permission to copy,
+distribute and/or modify the software.
+
+  Also, for each author's protection and ours, we want to make certain
+that everyone understands that there is no warranty for this free
+software.  If the software is modified by someone else and passed on, we
+want its recipients to know that what they have is not the original, so
+that any problems introduced by others will not reflect on the original
+authors' reputations.
+
+  Finally, any free program is threatened constantly by software
+patents.  We wish to avoid the danger that redistributors of a free
+program will individually obtain patent licenses, in effect making the
+program proprietary.  To prevent this, we have made it clear that any
+patent must be licensed for everyone's free use or not licensed at all.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+		    GNU GENERAL PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. This License applies to any program or other work which contains
+a notice placed by the copyright holder saying it may be distributed
+under the terms of this General Public License.  The "Program", below,
+refers to any such program or work, and a "work based on the Program"
+means either the Program or any derivative work under copyright law:
+that is to say, a work containing the Program or a portion of it,
+either verbatim or with modifications and/or translated into another
+language.  (Hereinafter, translation is included without limitation in
+the term "modification".)  Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope.  The act of
+running the Program is not restricted, and the output from the Program
+is covered only if its contents constitute a work based on the
+Program (independent of having been made by running the Program).
+Whether that is true depends on what the Program does.
+
+  1. You may copy and distribute verbatim copies of the Program's
+source code as you receive it, in any medium, provided that you
+conspicuously and appropriately publish on each copy an appropriate
+copyright notice and disclaimer of warranty; keep intact all the
+notices that refer to this License and to the absence of any warranty;
+and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and
+you may at your option offer warranty protection in exchange for a fee.
+
+  2. You may modify your copy or copies of the Program or any portion
+of it, thus forming a work based on the Program, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+    a) You must cause the modified files to carry prominent notices
+    stating that you changed the files and the date of any change.
+
+    b) You must cause any work that you distribute or publish, that in
+    whole or in part contains or is derived from the Program or any
+    part thereof, to be licensed as a whole at no charge to all third
+    parties under the terms of this License.
+
+    c) If the modified program normally reads commands interactively
+    when run, you must cause it, when started running for such
+    interactive use in the most ordinary way, to print or display an
+    announcement including an appropriate copyright notice and a
+    notice that there is no warranty (or else, saying that you provide
+    a warranty) and that users may redistribute the program under
+    these conditions, and telling the user how to view a copy of this
+    License.  (Exception: if the Program itself is interactive but
+    does not normally print such an announcement, your work based on
+    the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole.  If
+identifiable sections of that work are not derived from the Program,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works.  But when you
+distribute the same sections as part of a whole which is a work based
+on the Program, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program
+with the Program (or with a work based on the Program) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+  3. You may copy and distribute the Program (or a work based on it,
+under Section 2) in object code or executable form under the terms of
+Sections 1 and 2 above provided that you also do one of the following:
+
+    a) Accompany it with the complete corresponding machine-readable
+    source code, which must be distributed under the terms of Sections
+    1 and 2 above on a medium customarily used for software interchange; or,
+
+    b) Accompany it with a written offer, valid for at least three
+    years, to give any third party, for a charge no more than your
+    cost of physically performing source distribution, a complete
+    machine-readable copy of the corresponding source code, to be
+    distributed under the terms of Sections 1 and 2 above on a medium
+    customarily used for software interchange; or,
+
+    c) Accompany it with the information you received as to the offer
+    to distribute corresponding source code.  (This alternative is
+    allowed only for noncommercial distribution and only if you
+    received the program in object code or executable form with such
+    an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for
+making modifications to it.  For an executable work, complete source
+code means all the source code for all modules it contains, plus any
+associated interface definition files, plus the scripts used to
+control compilation and installation of the executable.  However, as a
+special exception, the source code distributed need not include
+anything that is normally distributed (in either source or binary
+form) with the major components (compiler, kernel, and so on) of the
+operating system on which the executable runs, unless that component
+itself accompanies the executable.
+
+If distribution of executable or object code is made by offering
+access to copy from a designated place, then offering equivalent
+access to copy the source code from the same place counts as
+distribution of the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+  4. You may not copy, modify, sublicense, or distribute the Program
+except as expressly provided under this License.  Any attempt
+otherwise to copy, modify, sublicense or distribute the Program is
+void, and will automatically terminate your rights under this License.
+However, parties who have received copies, or rights, from you under
+this License will not have their licenses terminated so long as such
+parties remain in full compliance.
+
+  5. You are not required to accept this License, since you have not
+signed it.  However, nothing else grants you permission to modify or
+distribute the Program or its derivative works.  These actions are
+prohibited by law if you do not accept this License.  Therefore, by
+modifying or distributing the Program (or any work based on the
+Program), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Program or works based on it.
+
+  6. Each time you redistribute the Program (or any work based on the
+Program), the recipient automatically receives a license from the
+original licensor to copy, distribute or modify the Program subject to
+these terms and conditions.  You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties to
+this License.
+
+  7. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Program at all.  For example, if a patent
+license would not permit royalty-free redistribution of the Program by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Program.
+
+If any portion of this section is held invalid or unenforceable under
+any particular circumstance, the balance of the section is intended to
+apply and the section as a whole is intended to apply in other
+circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system, which is
+implemented by public license practices.  Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+  8. If the distribution and/or use of the Program is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Program under this License
+may add an explicit geographical distribution limitation excluding
+those countries, so that distribution is permitted only in or among
+countries not thus excluded.  In such case, this License incorporates
+the limitation as if written in the body of this License.
+
+  9. The Free Software Foundation may publish revised and/or new versions
+of the General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+Each version is given a distinguishing version number.  If the Program
+specifies a version number of this License which applies to it and "any
+later version", you have the option of following the terms and conditions
+either of that version or of any later version published by the Free
+Software Foundation.  If the Program does not specify a version number of
+this License, you may choose any version ever published by the Free Software
+Foundation.
+
+  10. If you wish to incorporate parts of the Program into other free
+programs whose distribution conditions are different, write to the author
+to ask for permission.  For software which is copyrighted by the Free
+Software Foundation, write to the Free Software Foundation; we sometimes
+make exceptions for this.  Our decision will be guided by the two goals
+of preserving the free status of all derivatives of our free software and
+of promoting the sharing and reuse of software generally.
+
+			    NO WARRANTY
+
+  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+		     END OF TERMS AND CONDITIONS
+
+	    How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+
+Also add information on how to contact you by electronic and paper mail.
+
+If the program is interactive, make it output a short notice like this
+when it starts in an interactive mode:
+
+    Gnomovision version 69, Copyright (C) year  name of author
+    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, the commands you use may
+be called something other than `show w' and `show c'; they could even be
+mouse-clicks or menu items--whatever suits your program.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the program, if
+necessary.  Here is a sample; alter the names:
+
+  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
+  `Gnomovision' (which makes passes at compilers) written by James Hacker.
+
+  <signature of Ty Coon>, 1 April 1989
+  Ty Coon, President of Vice
+
+This General Public License does not permit incorporating your program into
+proprietary programs.  If your program is a subroutine library, you may
+consider it more useful to permit linking proprietary applications with the
+library.  If this is what you want to do, use the GNU Library General
+Public License instead of this License.
diff --git a/pttbbs/Makefile b/pttbbs/Makefile
new file mode 100644
index 00000000..e94a522e
--- /dev/null
+++ b/pttbbs/Makefile
@@ -0,0 +1,10 @@
+SUBDIR=	mbbsd util innbbsd
+BBSHOME?=$(HOME)
+OSTYPE!=uname
+
+all install clean:
+	@for i in $(SUBDIR); do\
+		cd $$i;\
+		$(MAKE) BBSHOME=$(BBSHOME) $@;\
+		cd ..;\
+	done
diff --git a/pttbbs/README b/pttbbs/README
new file mode 100644
index 00000000..7825c087
--- /dev/null
+++ b/pttbbs/README
@@ -0,0 +1,29 @@
+$Id: README,v 1.3 2003/06/03 09:25:12 in2 Exp $
+
+快速安裝請參考 docs/INSTALL 以及 docs/FAQ
+詳細文件請見 docs/
+
+若有任何問請, 請到批踢踢實業坊 telnet://ptt.csie.ntu.edu.tw
+的 PttCurrent 看板詢問
+
+目錄結構:
+	LICENSE			本軟體的授權方式
+	
+	docs/			文件
+
+		ADVANCE		進階功能
+		ANCESTOR	沿承歷史
+		DONATE		贊助方式
+		FAQ		常見的問題, sendmail.cf的設定方法等等
+		INSTALL		快速安裝方式
+		z6ibbs.[12].txt	in2 隨筆
+
+	sample/			範例
+		crontab		提供 bbs執行時須透過 crontab 定時跑的設定
+
+	blog/			PttBLOG
+	include/		include 檔
+	innbbsd/		轉信
+	mbbsd/			bbs 主程式
+	mbbsd.icc/		提供使用 icc來編譯所須要的 Makefile
+	pttpi/			Ptt Programming Interface
diff --git a/pttbbs/UPDATING b/pttbbs/UPDATING
new file mode 100644
index 00000000..8b22e3b8
--- /dev/null
+++ b/pttbbs/UPDATING
@@ -0,0 +1,12 @@
+Fri Jun  7 05:44:54 CST 2002
+	only one shared memory
+
+Tue Jun  4 13:07:12 UTC 2002
+	global variable move to var.c
+
+Sun May 26 04:49:03 CST 2002
+	new userlist.
+
+Mon Apr 29 03:33:38 CST 2002:
+	change getdata() constant to sizeof()
+
diff --git a/pttbbs/blog/INSTALL b/pttbbs/blog/INSTALL
new file mode 100644
index 00000000..29f1e566
--- /dev/null
+++ b/pttbbs/blog/INSTALL
@@ -0,0 +1,69 @@
+這篇文章在描述怎麼架設 PttBlog, 最後一次修正的時間為:
+$Id: INSTALL,v 1.4 2003/07/06 03:58:43 in2 Exp $
+
+請注意,  PttBlog本來主要是設計給 Ptt2 站台使用, 目前正在開發階段,
+並未接受嚴密的測試, 可能還缺少很多功能, 以及可能有許多的 bug.
+
+您可以按照下列的步驟安裝好 PttBlog.
+1.安裝好下列的東西, 我們並同時列上 FreeBSD ports內的目錄:
+	apache		/usr/ports/www/apache13/
+	perl		/usr/ports/lang/perl5.8/
+	mod_perl	/usr/ports/www/mod_perl/
+	mysql		/usr/ports/databases/mysql323-server/
+
+  以及下列的 module
+	Template	/usr/ports/www/p5-Template-Toolkit/
+	Date::Calc	/usr/ports/devel/p5-Date-Calc/
+	DBI		/usr/ports/databases/p5-DBI/
+	DBD::mysql	/usr/ports/databases/p5-DBD-mysql/
+
+2.設定 apache 可以直接透過 mod_perl 來跑 perl script .
+  在您的 apache.conf (or httpd.conf)中, 應該會有:
+	LoadModule perl_module        libexec/apache/libperl.so
+	AddModule mod_perl.c
+  在<IfModule mod_mime.c></IfModule>中間, 加上這兩行:
+	AddHandler perl-script .pl
+	PerlHandler Apache::Registry
+
+3.設定好 blog 的 web目錄. 裡面至少要有 index.pl, blog.pl, LocalVars.pm
+   (其中 LocalVars.pm 建議用 symbolic link 到 /home/bbs/bin/的那一份)
+  其中 *.pl 的權限要是可以執行的 (ex: chmod 755 *.pl)
+
+4.設定 apache 指到 blog 的目錄. 並將該目錄開始 ExecCGI的 option.
+  例如使用 Virtual Host :
+	NameVirtualHost *
+	<VirtualHost *>
+		ServerName	blog.ptt2.cc
+		DocumentRoot	/home/bbs/blog/web
+		<Directory "/home/bbs/blog/web">
+			Options ExecCGI
+		</Directory>
+	</VirtualHost>
+
+5.將 builddb.pl, BBSFileHeader.pm 拷貝進 ~bbs/bin
+  您可以嘗試用 perl -c ~bbs/bin/builddb.pl  測試看看能不能過.
+  若不行的話, 通常是 LocalVars.pm 裡面少東西,
+  請參考 pttbbs/sample/LocalVars.pm 的 blog 區.
+
+6.參考 pttbbs/sample/pttbbs.conf中, 在您的 pttbbs.conf中加入
+  BLOGDB_HOST, BLOGDB_USER, BLOGDB_PASSWD, BLOGDB_DB, BLOGDB_PORT, BLOGDB_SOCK
+  並且重新 compile mbbsd, 在 make 時加入 WITH_BLOG=yes .
+  然後 install 並且 restart
+
+7.關於 Mysql共須要下面兩個 table (可以直接複製過去跑)
+	CREATE TABLE `comment` (
+	  `brdname` varchar(13) NOT NULL default '',
+	  `artid` int(11) NOT NULL default '0',
+	  `name` varchar(32) NOT NULL default '',
+	  `mail` varchar(64) NOT NULL default '',
+	  `content` text NOT NULL,
+	  `mtime` int(11) NOT NULL default '0',
+	  `hash` varchar(32) NOT NULL default ''
+	) TYPE=MyISAM;
+
+	CREATE TABLE `counter` (
+	  `k` char(32) NOT NULL default '',
+	  `v` int(11) NOT NULL default '0',
+	  `mtime` int(11) NOT NULL default '0',
+	  PRIMARY KEY  (`k`)
+	) TYPE=MyISAM;
diff --git a/pttbbs/blog/blog.pl b/pttbbs/blog/blog.pl
new file mode 100755
index 00000000..db9c4c9d
--- /dev/null
+++ b/pttbbs/blog/blog.pl
@@ -0,0 +1,437 @@
+#!/usr/bin/perl
+# $Id$
+use CGI qw/:standard/;
+use lib qw/./;
+use LocalVars;
+use DB_File;
+use strict;
+use Data::Dumper;
+use Date::Calc qw(:all);
+use Template;
+use OurNet::FuzzyIndex;
+use DBI;
+use DBD::mysql;
+use POSIX;
+use MD5;
+use Mail::Sender;
+
+use vars qw/@emonth @cnumber %config %attr %article %th $dbh $brdname/;
+
+sub main
+{
+    my($fn, $y, $m, $d, $ofn);
+    my($tmpl);
+
+    $dbh = undef;
+    @emonth = ('', 'January', 'February', 'March', 'April', 'May',
+	       'June', 'July', 'August', 'September', 'October',
+	       'November', 'December');
+    @cnumber = ('零', '一', '二', '三', '四', '五', '六',
+		'七', '八', '九', '十', '十一', '十二');
+    
+    if( $brdname = param('searchboard') ){
+        dodbi(sub {
+            my($dbh) = @_;
+            my($sth);
+            $sth = $dbh->prepare("select k from counter where k='$brdname'");
+            $sth->execute();
+            $brdname  = $sth->fetchrow_hashref()->{k};
+        });
+        return redirect("/blog.pl/$brdname/");
+    }
+    
+    if( !$ENV{PATH_INFO} ){
+        print header(-status => 400);
+        return;
+    }
+    if( !(($brdname, $ofn) = $ENV{PATH_INFO} =~ m|^/([\w\-]+?)/([\.,\w]*)$|) ||
+	!( ($fn, $y, $m, $d) = parsefn($ofn) )                            ||
+	!(-e "$BLOGDATA/$brdname/$fn")                                    ||
+	!(tie %config, 'DB_File',
+	  "$BLOGDATA/$brdname/config.db", O_RDONLY, 0666, $DB_HASH)       ||
+	!(tie %attr, 'DB_File',
+	  "$BLOGDATA/$brdname/attr.db", O_RDONLY, 0666, $DB_HASH)      ){
+	return redirect("/blog.pl/$1/")
+	    if( $ENV{PATH_INFO} =~ m|^/([\w\-]+?)$| );
+	print header(-status => 404);
+	return;
+    }
+
+    charset('');
+    print header(-type => GetType($fn));
+    $fn ||= 'index.html';
+
+    # first, import all settings in %config
+    %th = %config;
+    $th{BOARDNAME} = $brdname;
+    $th{key} = $y * 10000 + $m * 100 + $d;
+
+    # loadBlog ---------------------------------------------------------------
+    tie %article, 'DB_File', "$BLOGDATA/$brdname.db", O_RDONLY, 0666, $DB_HASH;
+    if( $attr{"$fn.loadBlog"} =~ /article/i ){
+	AddArticle('blog', $attr{"$fn.loadBlogFields"}, packdate($y, $m, $d));
+    }
+    elsif( $attr{"$fn.loadBlog"} =~ /monthly/i ){
+	my($s, $y1, $m1, $d1);
+	for( ($y1, $m1, $d1) = ($y, $m, 32) ; $d1 > 0 ; --$d1 ){
+	    AddArticle('blog', $attr{"$fn.loadBlogFields"},
+		       packdate($y1, $m1, $d1));
+	}
+    }
+    elsif( $attr{"$fn.loadBlog"} =~ /^last(\d+)/i ){
+	my($ptr, $i);
+	for( $ptr = $article{last}, $i = 0 ;
+	     $ptr && $i < $1               ;
+	     $ptr = $article{"$ptr.prev"}, ++$i    ){
+	    AddArticle('blog', $attr{"$fn.loadBlogFields"},
+		       $ptr);
+	}
+    }
+    elsif( $attr{"$fn.loadBlog"} =~ /FuzzySearch/i ){
+	my $idx = OurNet::FuzzyIndex->new("$BLOGDATA/$brdname.idx");
+	my %result = $idx->query($th{SearchKey} = param('SearchKey'),
+				 MATCH_FUZZY);
+	foreach my $t (sort { $result{$b} <=> $result{$a} } keys(%result)) {
+	    AddArticle('blog', $attr{"$fn.loadBlogFields"},
+		       $idx->getkey($t), sprintf("%5.1f", $result{$t} / 10));
+	}
+    }
+
+    if( $attr{"$fn.loadBlogPrevNext"} ){
+	my $s = packdate($y, $m, $d);
+	AddArticle('next', $attr{"$fn.loadBlogPrevNext"},
+		   $article{"$s.next"});
+	AddArticle('prev', $attr{"$fn.loadBlogPrevNext"},
+		   $article{"$s.prev"});
+    }
+
+    # loadArchives -----------------------------------------------------------
+    if( $attr{"$fn.loadArchives"} =~ /^monthly/i ){
+	# 找尋 +-1 year 內有資料的月份
+	my($c, $y1, $m1);
+	for( $c = 0, ($y1, $m1) = ($y + 1, $m) ;
+	     $c < 48                           ;
+	     ++$c, --$m1                         ) {
+
+	    if( $m1 == 0 ){ $m1 = 12; --$y1; }
+	    if( $article{ sprintf('%04d%02d', $y1, $m1) } ){
+		push @{$th{Archives}}, {year   => $y1, month  => $m1,
+					emonth => $emonth[$m1],
+					cmonth => $cnumber[$m1],
+					key    => packdate($y1, $m1, 1)};
+	    }
+	}
+    }
+
+    # loadRecentEntries ------------------------------------------------------
+    if( $attr{"$fn.loadRecentEntries"} ){
+	my($i, $ptr, $y, $m, $d);
+	print $attr{"$fn.loadRecentEntries:"};
+	for( $i = 0, $ptr = $article{'last'}             ;
+	     $ptr && $i < $attr{"$fn.loadRecentEntries"} ;
+	     ++$i, $ptr = $article{"$ptr.prev"}            ){
+	    ($y, $m, $d) = unpackdate($ptr);
+	    push @{$th{RecentEntries}}, {year => $y, month => $m,
+					 emonth => $emonth[$m],
+					 cmonth => $cnumber[$m],
+					 title  => $article{"$ptr.title"},
+					 key => $ptr};
+	}
+    }
+
+    # topBlogs
+    my($t);
+    foreach $t ( ['loadTopBlogs', 'v', 'topBlogs'],
+		 ['loadRandomBlogs', 'RAND()', 'randomBlogs'] ){
+	if( $attr{"$fn.$t->[0]"} ){
+	    dodbi(sub {
+		my($dbh) = @_;
+		my($sth);
+		$sth = $dbh->prepare("select k, v from counter ".
+				     "order by $t->[1] desc ".
+				     ($attr{"$fn.$t->[0]"} eq 'all' ? '' :
+				      'limit 0,'. $attr{"$fn.$t->[0]"}));
+		$sth->execute();
+		while( $_  = $sth->fetchrow_hashref() ){
+		    push @{$th{$t->[2]}}, {brdname => $_->{k},
+					   counter => $_->{v}};
+		}
+	    });
+	}
+    }
+
+    # Counter ----------------------------------------------------------------
+    if( $attr{"$fn.loadCounter"} ){
+	$th{counter} = dodbi(sub {
+	    my($dbh) = @_;
+	    my($sth, $t, $time);
+	    $time = time();
+	    $dbh->do("update counter set v = v + 1, mtime = $time ".
+		     "where k = '$brdname' && mtime < ". ($time - 2));
+	    $sth = $dbh->prepare("select v from counter where k='$brdname'");
+	    $sth->execute();
+	    $t = $sth->fetchrow_hashref();
+	    return $t->{v} if( $t->{v} );
+
+	    $dbh->do("insert into counter (k, v) ".
+		     "values ('$brdname', 1)");
+	    return 1;
+	});
+    }
+
+    # Calendar ---------------------------------------------------------------
+    if( $attr{"$fn.loadCalendar"} ){
+	# 沒有合適的 module , 自己寫一個 |||b
+	my($c, $week, $day, $t, $link, $newtr);
+	$c = ("<table border=\"0\" cellspacing=\"4\" cellpadding=\"0\">\n".
+	      "<caption class=\"calendarhead\">$emonth[$m] $y</caption>\n".
+	      "<tr>\n");
+	$c .= ("<th abbr=\"$_->[0]\" align=\"center\">".
+	       "<span class=\"calendar\">$_->[1]</span></th>\n")
+	    foreach( ['Sunday', 'Sun'], ['Monday', 'Mon'],
+		     ['Tuesday', 'Tue'], ['Wednesday', 'Wed'],
+		     ['Thursday', 'Thu'], ['Friday', 'Fri'],
+		     ['Saturday', 'Sat'] );
+
+	$week = Day_of_Week($y, $m, 1);
+	$c .= "</tr>\n<tr>\n";
+
+	if( $week == 7 ){
+	    $week = 0;
+	}
+	else{
+	    $c .= ("<th abbr=\"null\" align=\"center\"><span class=\"calendar\">".
+		   "&nbsp;</span></th>\n")
+		foreach( 1..$week );
+	}
+	foreach( 1..31 ){
+	    last if( !check_date($y, $m, $_) );
+	    $c .= "<tr>\n" if( $newtr );
+	    $c .= "<th abbr=\"$_\" align=\"center\"><span class=\"calendar\">";
+
+	    $t = packdate($y, $m, $_);
+	    if( !$article{"$t.title"} ){
+		$c .= "$_";
+	    }
+	    else{
+		my $link = $attr{"$fn.loadCalendar"};
+		$link =~ s/\[\% key \%\]/$t/g;
+		$c .= "<a href=\"$link\">$_</a>";
+	    }
+		   
+	    $c .= "</span></th>\n";
+	    if( ++$week == 7 ){
+		$c .= "</tr>\n\n";
+		$week = 0;
+		$newtr = 1;
+	    }
+	    else{
+		$newtr = 0;
+	    }
+	}
+
+	$c .= "</tr>\n" if( !$newtr );
+	$c .= "</table>\n";
+	$th{calendar} = $c;
+    }
+
+    # Comments ---------------------------------------------------------------
+    if( $attr{"$fn.loadRecentComments"} ){
+	dodbi(sub {
+	    my($dbh) = @_;
+	    my($sth, $t);
+	    $sth = $dbh->prepare("select artid,name,mail,mtime ".
+				 "from comment ".
+				 "where brdname='$brdname' ".
+				 "order by mtime desc ".
+				 "LIMIT 0,". $attr{"$fn.loadRecentComments"});
+	    $sth->execute();
+	    while( $t = $sth->fetchrow_hashref() ){
+		$t->{title} = $article{"$t->{artid}.title"};
+		$t->{key} = $t->{artid};
+		$t->{time} = POSIX::strftime('%D', localtime($t->{mtime}));
+		push @{$th{RecentComments}}, $t;
+	    }
+	});
+    }
+
+    if( $attr{"$fn.loadComments"} ){
+	my($name, $mail, $comment) = (param('name'),
+				      param('mail'), param('comment'));
+
+	if( $name && $comment ){
+	    if( $attr{"$fn.loadComments"} =~ /\@/ ){
+		my $sr = new Mail::Sender{smtp => 'localhost'};
+		$sr->MailMsg({from    => '批踢踢部落格 <blog@ptt.cc>',
+			      to      => $attr{"$fn.loadComments"},
+			      subject => "您的部落格收到 $name 給您的迴響",
+			      charset => 'big5',
+			      msg     =>  "
+您的部落格 http://blog.ptt2.cc/blog.pl/$brdname/$ofn
+剛才收到來自 $name <$mail> 給您的迴響
+--------------------------------------------------------------------
+$comment
+--------------------------------------------------------------------
+ (這封信件是由程式自動發出, 請不要直接回複這封信^^)
+",
+			  });
+	    }
+	    dodbi(sub {
+		my($dbh) = @_;
+		my($t, $hash);
+		$t = time();
+		$name = $dbh->quote($name);
+		$mail = $dbh->quote($mail);
+		$comment = $dbh->quote($comment);
+		$hash = MD5->hexhash("$t$th{key}$name$mail$comment");
+		$dbh->do('insert into comment '.
+			 '(brdname, artid, name, mail, content, mtime, hash) '.
+			 "values ('$brdname', '$th{key}', $name, $mail, ".
+			 "$comment, '$t', '$hash')");
+	    });
+	}
+
+	dodbi(sub {
+	    my($dbh) = @_;
+	    my($sth, $t);
+	    $sth = $dbh->prepare("select mtime,name,mail,content,hash ".
+				 "from comment ".
+				 "where brdname='$brdname'&&artid='$th{key}' ".
+				 "order by mtime desc");
+	    $sth->execute();
+	    while( $t = $sth->fetchrow_hashref() ){
+		$t->{time} = POSIX::ctime($t->{mtime});
+		$t->{content} = applyfilter($t->{content},
+					    $config{outputfilter});
+		push @{$th{comment}}, $t;
+	    }
+	});
+    }
+
+    # 用 Template Toolkit 輸出
+    mkdir "$BLOGCACHE/$brdname";
+    $tmpl = Template->new({INCLUDE_PATH => '.',
+			   ABSOLUTE => 0,
+			   RELATIVE => 0,
+			   RECURSION => 0,
+			   EVAL_PERL => 0,
+			   COMPILE_EXT => '.pl',
+			   COMPILE_DIR => "$BLOGCACHE/$brdname/",
+		       });
+    chdir "$BLOGDATA/$brdname/";
+    $tmpl->process($fn, \%th) ||
+	print "<pre>template error: ". $tmpl->error();
+    $dbh->disconnect() if( $dbh );
+}
+
+sub AddArticle($$$;$)
+{
+    my($cl, $fields, $s, $score) = @_;
+    my($content, $short, $nComments) = ();
+    $content = applyfilter($article{"$s.content"}, $config{outputfilter})
+	if( $fields =~ /content/i );
+
+    $short = applyfilter($article{"$s.short"}, $config{outputfilter})
+	if( $fields =~ /short/i );
+
+    if( $fields =~ /nComments/i ){
+	$nComments = dodbi(sub {
+	    my($dbh) = @_;
+	    my $sth = $dbh->prepare("select count(*) from comment ".
+				    "where brdname='$brdname'&&artid='$s'");
+	    $sth->execute();
+	    return $sth->fetchrow_hashref()->{'count(*)'};
+	}) || 0;
+    }
+
+    my($y, $m, $d) = unpackdate($s);
+    push @{$th{$cl}}, {year   => $y,
+		       month  => $m,
+		       emonth => $emonth[$m],
+		       cmonth => $cnumber[$m],
+		       day    => $d,
+		       key    => $s,
+		       title  => (($fields !~ /title/i) ? '' :
+				  $article{"$s.title"}),
+		       content=> $content,
+		       author => (($fields !~ /author/i) ? '' :
+				  $article{"$s.author"}),
+		       short  => $short,
+		       score  => $score,
+		       nComments => $nComments,
+		   }
+        if( $article{"$s.title"} );
+}
+
+sub applyfilter($$)
+{
+    my($c, $filter) = @_;
+    foreach( split(',', $filter) ){
+	if( /^generic$/i ){
+	    $c =~ s/\n/<br \/>\n/gs;
+	}
+	elsif( /^strict$/i ){
+	    $c =~ s/\</&lt;/gs;
+	    $c =~ s/\>/&gt;/gs;
+	    $c =~ s/\"/&quot;/gs;
+	    $c =~ s/\'/&apos;/gs;
+	    $c =~ s/ /&nbsp;/gs;
+	}
+	elsif( /^ubb$/i ){
+	    $c =~ s|\[url\](.*?)\[/url\]|<a href="$1">$1</a>|gsi;
+	    $c =~ s|\[url=(.*?)\](.*?)\[/url\]|<a href="$1">$2</a>|gsi;
+	    $c =~ s|\[email\](.*?)\[/email\]|<a href="mailto:$1">$1</a>|gsi;
+	    $c =~ s|\[b\](.*?)\[/b\]|<b>$1</b>|gsi;
+	    $c =~ s|\[i\](.*?)\[/i\]|<i>$1</i>|gsi;
+	    $c =~ s|\[img\](.*?)\[/img\]|<img src="$1" alt="(null)" style="border:0;" />|gsi;
+	}
+    }
+    return $c;
+}
+
+sub parsefn($)
+{
+    my($fs) = @_;
+    return ("$1.$3", unpackdate($2))
+	if( $fs =~ /^(.*),(\w+)\.(.*)$/ );
+    return ($fs, Today());
+}
+
+sub GetType($)
+{
+    my($f) = @_;
+    return 'text/css' if( $f =~ /.css$/i );
+    return 'text/html';
+}
+
+sub packdate($$$)
+{
+    return $_[0] * 10000 + $_[1] * 100 + $_[2];
+}
+
+sub unpackdate($)
+{
+    return (int($_[0] / 10000),
+	    (int($_[0] / 100)) % 100,
+	    $_[0] % 100);
+}
+
+sub dodbi
+{
+    my($func) = @_;
+    my($ret);
+    my $dbh = DBI->connect("DBI:mysql:database=$BLOGdbname;".
+			   "host=$BLOGdbhost",
+			   $BLOGdbuser, $BLOGdbpasswd,
+			   {'RaiseError' => 1})
+	if( !$dbh );
+    eval {
+	$ret = &{$func}($dbh);
+    };
+    print "SQL: $@\n" if( $@ );
+    return $ret;
+}
+
+main();
+1;
+
diff --git a/pttbbs/blog/builddb.pl b/pttbbs/blog/builddb.pl
new file mode 100755
index 00000000..17c681fe
--- /dev/null
+++ b/pttbbs/blog/builddb.pl
@@ -0,0 +1,203 @@
+#!/usr/bin/perl
+use lib '/home/bbs/bin/';
+use strict;
+use Getopt::Std;
+use LocalVars;
+use IO::Handle;
+use Data::Dumper;
+use BBSFileHeader;
+use DB_File;
+use OurNet::FuzzyIndex;
+
+sub main
+{
+    my($fh);
+    die usage() unless( getopts('cdaofn:') );
+    die usage() if( !@ARGV );
+    builddb($_) foreach( @ARGV );
+}
+
+sub usage
+{
+    return ("$0 [-acdfo] [-n NUMBER] [board ...]\n".
+	    "\t-a\t\trebuild all files\n".
+	    "\t-c\t\tbuild configure\n".
+	    "\t-d\t\tprint debug message\n".
+	    "\t-f\t\tforce build\n".
+	    "\t-o\t\tonly build content(not building link)\n".
+	    "\t-n NUMBER\tonly build \#NUMBER article\n");
+}
+
+sub debugmsg($)
+{
+    print "$_\n" if( $Getopt::Std::opt_d );
+}
+
+sub builddb($)
+{
+    my($board) = @_;
+    my(%bh, %ch);
+
+    debugmsg("building $board");
+    return if( !getdir("$BBSHOME/man/boards/".substr($board,0,1)."/$board",
+		       \%bh, \%ch) );
+    buildconfigure($board, \%ch)
+	if( $Getopt::Std::opt_c || $Getopt::Std::opt_a );
+    builddata($board, \%bh,
+	      $Getopt::Std::opt_a,
+	      $Getopt::Std::opt_o,
+	      $Getopt::Std::opt_n,
+	      $Getopt::Std::opt_f,);
+}
+
+sub buildconfigure($$)
+{
+    my($board, $rch) = @_;
+    my($outdir, $fn, $flag, %config, %attr);
+
+    $outdir = "$BLOGROOT/$board";
+    `/bin/rm -rf $outdir; /bin/mkdir -p $outdir`;
+
+    tie(%config, 'DB_File', "$outdir/config.db",
+	O_CREAT | O_RDWR, 0666, $DB_HASH);
+    tie(%attr, 'DB_File', "$outdir/attr.db",
+	O_CREAT | O_RDWR, 0666, $DB_HASH);
+
+    for ( 0..($rch->{num} - 1) ){
+	debugmsg("\texporting ".$rch->{"$_.title"});
+	if( $rch->{"$_.title"} =~ /^config$/i ){
+	    foreach( split("\n", $rch->{"$_.content"}) ){
+		$config{$1} = $2 if( !/^\#/ && /(.*?):\s*(.*)/ );
+	    }
+	}
+	else{
+	    my(@ls, $c, $a, $fn);
+	    
+	    $fn = $rch->{"$_.title"};
+	    if( $fn !~ /\.(css|htm|html|js)$/i ){
+		print "not supported filetype ". $rch->{"$_.title"}. "\n";
+		next;
+	    }
+	    
+	    $c = $rch->{"$_.content"};
+	    $c =~ s/<meta http-equiv=\"refresh\".*?\n//g;
+	    open FH, ">$outdir/$fn";
+	    
+	    if( $c =~ m|<attribute>(.*?)\n\s*</attribute>\s*\n(.*)|s ){
+		($a, $c) = ($1, $2);
+		$a =~ s/^\s*\#.*?\n//gm;
+		foreach( split("\n", $a) ){
+		    $attr{"$fn.$1"} = $2 if( /^\s*(\w+):\s+(.*)/ );
+		}
+	    }
+	    print FH $c;
+	}
+    }
+    debugmsg(Dumper(\%config));
+    debugmsg(Dumper(\%attr));
+}
+
+sub builddata($$$$$$)
+{
+    my($board, $rbh, $rebuild, $contentonly, $number, $force) = @_;
+    my(%dat, $dbfn, $idxfn, $y, $m, $d, $t, $currid, $idx);
+
+    $dbfn = "$BLOGROOT/$board.db";
+    $idxfn = "$BLOGROOT/$board.idx";
+    if( $rebuild ){
+	unlink $dbfn;
+	unlink $idxfn;
+    }
+
+    tie %dat, 'DB_File', $dbfn, O_CREAT | O_RDWR, 0666, $DB_HASH;
+    $idx = OurNet::FuzzyIndex->new($idxfn);
+    foreach( $number ? $number : (1..($rbh->{num} - 1)) ){
+	if( !(($y, $m, $d, $t) =
+	      $rbh->{"$_.title"} =~ /(\d+)\.(\d+).(\d+),(.*)/) ){
+	    debugmsg("\terror parsing $_: ".$rbh->{"$_.title"});
+	}
+	else{
+	    $currid = sprintf('%04d%02d%02d', $y, $m, $d);
+	    if( $dat{$currid} && !$force ){
+		debugmsg("\t$currid is already in db");
+		next;
+	    }
+
+	    debugmsg("\tbuilding $currid content");
+	    $dat{ sprintf('%04d%02d', $y, $m) } = 1;
+	    $dat{"$currid.title"} = $t;
+	    $dat{"$currid.author"} = $rbh->{"$_.owner"};
+	    # $dat{"$currid.content"} = $rbh->{"$_.content"};
+	    # ugly code for making short
+	    my @c = split("\n",
+			  $dat{"$currid.content"} = $rbh->{"$_.content"});
+	    $dat{"$currid.short"} = ("$c[0]\n$c[1]\n$c[2]\n$c[3]\n");
+
+	    $idx->delete($currid) if( $idx->findkey($currid) );
+	    $idx->insert($currid, ($dat{"$currid.title"}. "\n".
+				   $rbh->{"$_.content"}));
+
+	    if( !$contentonly ){
+		debugmsg("\tbuilding $currid linking... ");
+		if( $dat{$currid} ){
+		    debugmsg("\t\talready linked");
+		}
+		elsif( !$dat{head} ){ # first article
+		    $dat{head} = $currid;
+		    $dat{last} = $currid;
+		}
+		elsif( $currid < $dat{head} ){ # before head ?
+		    $dat{"$currid.next"} = $dat{head};
+		    $dat{"$dat{head}.prev"} = $currid;
+		    $dat{head} = $currid;
+		}
+		elsif( $currid > $dat{last} ){ # after last ?
+		    $dat{"$currid.prev"} = $dat{last};
+		    $dat{"$dat{last}.next"} = $currid;
+		    $dat{last} = $currid;
+		}
+		else{ # inside ? @_@;;;
+		    my($p, $c);
+		    for( $p = $dat{last} ; $p>$currid ; $p = $dat{"$p.prev"} ){
+			;
+		    }
+		    $c = $dat{"$p.next"};
+		    
+		    $dat{"$currid.next"} = $c;
+		    $dat{"$currid.prev"} = $p;
+		    $dat{"$p.next"} = $currid;
+		    $dat{"$c.prev"} = $currid;
+		}
+		$dat{$currid} = 1;
+	    }
+	}
+    }
+    untie %dat;
+    $idx->sync();
+    undef $idx;
+    chmod 0666, $idxfn;
+}
+
+sub getdir($$$$$)
+{
+    my($bdir, $rh_bh, $rh_ch) = @_;
+    my(%h);
+    tie %h, 'BBSFileHeader', "$bdir/";
+    if( $h{"-1.title"} !~ /blog/i || !$h{"-1.isdir"} ){
+	debugmsg("blogdir not found");
+	return;
+    }
+
+    tie %{$rh_bh}, 'BBSFileHeader', "$bdir/". $h{'-1.filename'}.'/';
+    if( $rh_bh->{'0.title'} !~ /config/i ||
+	!$rh_bh->{'0.isdir'} ){
+	debugmsg("configure not found");
+	return;
+    }
+
+    tie %{$rh_ch}, 'BBSFileHeader', $rh_bh->{dir}. '/'. $rh_bh->{'0.filename'};
+    return 1;
+}
+
+main();
+1;
diff --git a/pttbbs/blog/index.pl b/pttbbs/blog/index.pl
new file mode 100755
index 00000000..9b2e6dc1
--- /dev/null
+++ b/pttbbs/blog/index.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+# $Id$
+use CGI qw/:standard/;
+use lib qw/./;
+
+sub main
+{
+    print redirect("/blog.pl/$1/")
+	if( $ENV{REDIRECT_REQUEST_URI} =~ m|/\?(.*)| );
+
+    return redirect("/blog.pl/$BLOGdefault/");
+}
+
+main();
+1;
+
diff --git a/pttbbs/docs/ADVANCE b/pttbbs/docs/ADVANCE
new file mode 100644
index 00000000..6c40d53a
--- /dev/null
+++ b/pttbbs/docs/ADVANCE
@@ -0,0 +1,66 @@
+我們在這個版本裡面加入了一些好玩的東西,
+最主要是希望可以偷懶做一些事情.
+
+bbsctl
+------
+bbsctl是一個很特別的程式, 安裝有點複雜.
+	1.先用 bbsadm 的權限在 util/下 make bbsctl
+	2.改成 root 的權限在 util/下 make installbbsctl
+如此會把 bbsctl 安裝到 $(BBSHOME)/bin/bbsctl下.
+我們會建議您將 bbsctl 所在目錄加進您的 path 裡面,
+或是建立 symbolic link把 bbsctl 放到一個有設 path 的目錄
+ (像是 /usr/local/bin 將是一個符合 FreeBSD程式置放路徑的目錄)
+您可以用 ln -s $(BBSHOME)/bbs/bbsctl /usr/local/bin/bbsctl
+ (其中 $(BBSHOME) 請用您所設的 bbs路徑代替, 如 /home/bbs)
+如此您將可以在任何一個目錄下使用 bbsctl
+
+
+!!請注意,  bbsctl 是有 root setuid的, 這可能會有安全上的問題!!
+
+
+其中 bbsctl 設計是只有該帳號有加入 bbsadm 這個 group的人才能使用.
+ (關於如何設定 group請見 FAQ)
+您應該至少要將 bbs和 bbsadm 這兩個帳號加入 bbsadm 這個 group
+
+
+您可以直接打 bbsctl 來看有什麼功能.
+主要的功能說明如下:
+1.bbsctl start
+  用於啟動 mbbsd (須先跑 shmctl init)
+  以往因為要 bind port 23 須要 root 所以要手動 su ,
+  不過現在有 bbsctl with setuid ,
+  請直接使用 bbsctl start , 即可將 mbbsd跑起來.
+2.bbsctl stop
+  會將所有正在 listen 的 mbbsd都砍掉
+3.bbsctl restart
+  即 bbsctl stop; bbsctl start
+  主要是如果程式更新的話, 可以透過這個來直接重跑.
+4.bbsctl bbsadm
+  若該使用者有加入 bbsadm 群組, 則同於直接 su 成 bbsadm
+   (不須密碼)
+  如此您可以將某些有管理權限的使用者,
+  透過 /etc/group 放進 bbsadm 的群組,
+  讓她們在 login後可以直接用 bbsctl bbsadm來換成 bbsadm 的權限.
+
+
+
+shmctl
+------
+這隻程式主要是外部用來輔助 shared-memory正常運作的.
+1.shmctl utmpfix
+  將 shared-memory中 utmp 不正確的 record 清掉.
+  建議至少每小時跑一次.
+  另外可以用這個來外部設定 idle 多久後就踢人.
+
+Makefile of mbbsd/
+------------------
+1.make all
+  自動加上 -O 的最佳化參數
+2.make DEBUG=1
+  一般用來 debug的情況下會用到,
+  會開啟一些 DEBUG的程式碼,
+   gcc不用 -O 而改加上 -g ,
+   menu title 顯示目前的 pid,
+  以方便用 gdb來 attach.
+3.make NO_FORK=1
+  這通常都是很特別的情況才會用到.
\ No newline at end of file
diff --git a/pttbbs/docs/ANCESTOR b/pttbbs/docs/ANCESTOR
new file mode 100644
index 00000000..1683c8fb
--- /dev/null
+++ b/pttbbs/docs/ANCESTOR
@@ -0,0 +1,24 @@
+Pirate Bulletin Board System		Version: 1.00
+Copyright (C) 1990			Edward A. Luke
+
+Eagles Bulletin Board System		Version: 2.00-3.00
+Copyright (C) 1992, 1993, 1994		Raymond R. Rocker, Dominic B. Tynes
+					Guy T. Vega
+
+Phoenix Bulletin Board System		Version: 3.00-4.0
+Copyright (C) 1993, 1994		Ming-Feng Chen, Ji-Tzay Yang
+					Tsun-Yi Wen 
+
+秘密情人資訊站				Version: 3.1-4.0
+Copyright (C) 1994			簡顯鑑, 劉佳峰
+
+MapleBridge Bulletin Board System	Version: 2.36
+Copyright (C) 1994-1995			Jeng-Hermes Lin, Hung-Pin Chen 
+					SoC, Xshadow
+
+SunOfBeach Bulletin Board System        Version: 0.22
+Copyleft  ($) 1996                      Kaede, woju
+
+Ptt Bulletin Board System		Ptt, Jaky, Action, Heat, Dunk,
+批踢踢實業坊				CharlieL, DickG, DavidYu, 
+					in2, kcwu, victor
\ No newline at end of file
diff --git a/pttbbs/docs/CHANGE b/pttbbs/docs/CHANGE
new file mode 100644
index 00000000..2ddb6869
--- /dev/null
+++ b/pttbbs/docs/CHANGE
@@ -0,0 +1,76 @@
+Version 1.0.2	2001/07/17
+
+* 新增 util/merge_passwd
+* 新增 util/merge_board
+* 修正 load fromcache 超過 300 行會 segfault 的 bug
+* 修正來源字串在 FreeBSD 下會有亂碼的問題
+* 修正 mbbsd 中 select() 不好的用法
+* 修正 more.c 中的安全問題 (by kcwu)
+
+--------------------------------------------------
+Version 1.0.1	2001/04/26
+
+* 將文件搬至 docs 目錄下
+* 修改 config.h 中的 MAX_ACTIVE, MAX_CPULOAD
+  並加入 FORCE_PROCESS_REGISTER_FORM 的選項
+* 新增修復遺失看板的功能 (press 'R')
+* 修正訊息的錯誤
+* 修正幽靈水球
+* 移除在使用者名單按'N'修改暱稱的功能, 該功能可能有bug存在
+* 新增 util/shmsweep
+
+--------------------------------------------------
+Version 1.0.0	2000/09/16
+
+* 修正 Select 看板的 bug
+* 新增 Reaper, 刪除過期帳號
+* 新增 chickens 到 sample 中
+* 新增 initbbs 的功能: 初始化動態看板, 範本精靈
+* 新增 FAQ
+
+--------------------------------------------------
+Version 0.9.7	2000/08/31
+
+* 新增 tunepasswd
+* 修正 innbbsd 的 bug
+* xchatd 運作正常
+* 整合 buildir
+* 修正 Makefile 在某些 Linux 上無法正常工作的 bug
+* 在 sample 的目錄下打 make install 即可自動安裝 sample 設定檔
+
+--------------------------------------------------
+Version 0.9.6	2000/06/28
+
+* 修正使用暫存檔會當掉的 bug
+* 整合 FreeBSD 和 Linux 的 Makefile, 不需要再手動修改
+* 把 pttbbs.conf 從 include 搬到 pttsrc 下
+* 新增 outmail 取代 bmda
+* 整合 xchatd  (未測試)
+* 整合 innbbsd (未測試)
+
+--------------------------------------------------
+Version 0.9.5	2000/06/07
+
+* 修正在 Linux 無法 talk 的 bug
+* 如果看板列表是空的的話, 自動進入開板功能
+* 新增 initbbs 工具程式
+* 新增 BBSHOME environment variable 的使用 (見 INSTALL)
+* 搬移部份設定到 include/pttbbs.conf
+* 修正在FreeBSD上無法取得 swapinfo 的 bug
+
+--------------------------------------------------
+Version 0.9.4	2000/06/03
+
+* 把程式中有用到 ncurses 的地方移除, 不再需要 -ltermcap, -lncurses
+* 修正一個造成無窮迴圈的 Bug
+* 移除以使用者名稱搜尋全站文章的功能
+
+--------------------------------------------------
+Version 0.9.3	2000/05/23
+
+* 修正在 Linux 上 Makefile 的問題
+
+--------------------------------------------------
+Version 0.9.2	2000/05/20
+
+* port 到 Linux 上
diff --git a/pttbbs/docs/DONATE b/pttbbs/docs/DONATE
new file mode 100644
index 00000000..7b572441
--- /dev/null
+++ b/pttbbs/docs/DONATE
@@ -0,0 +1,27 @@
+這篇文章描述關於贊助 PttBBS . 最後一次修正的時間在:
+$Id: DONATE,v 1.1 2003/06/03 08:51:25 in2 Exp $
+
+Donate to PttBBS!
+ PttBBS 是免費自由軟體, 我們透過這套系統(正如您手上這一份), 在台大
+資訊系裡面架起了批踢踢實業坊以及批踢踢兔, 直到今日 Ptt及 Ptt2 引起
+不錯的回響, 而 Ptt更在日前站上了同時服務一萬人的里程碑, 而這份服務
+也是完全不收取任何費用的.
+我們希望所有的使用者, 不論您是直接連上 Ptt/Ptt2 , 或是透過本系統自
+行架設站台, 都可以享受在其中; 事實上, 我們花了許多時間, 精力, 甚至
+金錢, 用在研發改善, 以及提供服務. 而這一份系統就含有超過三萬行的程
+式碼, 為了要讓 Ptt/Ptt2 可以營運, 就用掉超過十顆 SCSI 硬碟, 再加上
+無數人的心血.
+
+對於我們的貢獻, 或許有人願意向我們說聲感謝, 而這邊有一個方便的方式
+, 可以讓您表達對我們的謝意.
+
+我們歡迎您提供贊助給我們, 不論是提供金錢上的贊助, 或是設備上的贊助
+ (我們建議是贊助設備, 因為錢總是帶來麻煩的事情 :( ) . 而您的贊助我
+們將全數使用在 Ptt/Ptt2 上面.
+我們主要須要多數的硬碟以提供存放使用者資料, 由於 SCSI 的硬碟得以同
+時讀寫, 越多顆硬碟可以分散原來的負荷. 我們須要的規格是, 
+Ultra SCSI 160 (或 320) , 68 pins , 4MB 或以上的 cache,  10000rpm 
+或以上, 容量 18GB 或以上. 或者是我們希望可以整個更新機器, 須要
+ cpu Xeon 2.0G以上 1~2  , 記憶體 6GB或以上.
+
+詳細的情況, 請和當時的系統站長聯絡^^
diff --git a/pttbbs/docs/FAQ b/pttbbs/docs/FAQ
new file mode 100644
index 00000000..41b5aae1
--- /dev/null
+++ b/pttbbs/docs/FAQ
@@ -0,0 +1,119 @@
+PttBBS FAQ:
+
+ 1. PttBBS的討論區
+ 2. 在 Linux底下出現 Makefile 錯誤.
+ 3. 加大 shared-memory
+ 4. 設定 group
+ 5. 五子棋盤沒有出現
+ 6. sendmail.cf要改的地方(參考用) (by DavidYu)
+ 7. /usr/libexec/elf/ld: cannot find -liconv
+   或 iconv.h: No such file or directory
+------------------------------------------------------------------------------
+1.PttBBS的討論區
+位於批踢踢實業坊 (telnet://ptt.csie.ntu.edu.tw) 的 PttCurrent 看板.
+
+------------------------------------------------------------------------------
+2.在 Linux底下出現 Makefile 錯誤.
+
+使用 Linux, 在 compile的時候出如 Makefile:20: *** missing separator.  Stop.
+請安裝 pmake, 並將 make alias 成 pmake .
+如:	apt-get install pmake
+	alias make pmake
+
+------------------------------------------------------------------------------
+3.加大 shared-memory
+in FreeBSD:
+請在 /etc/sysctl.conf 裡面加入
+kern.ipc.shmmax=104857600
+kern.ipc.shmall=25600
+這兩個數值可視須要調整,
+在重新開機後會生效.
+
+in Linux:
+法一: 用 sysctl 改 kernel.shmmax
+法二: 在 kernel source找出 (可用 grep -R )
+       #define SHMMAX 將其加大
+      重新 make kernel並且 reboot
+
+------------------------------------------------------------------------------
+4.設定 group
+以 FreeBSD為例, 您須要更動 /etc/group 這個檔案,
+ /etc/group 的語法是:
+	group:passwd:gid:member
+
+	 group是該 group的名字,
+	passwd一般情況下不設, 以 *代替,
+	 gid  為一個十進位的數字, 最好不要和其他的重複,
+	member為哪些人有在該群組內, 以逗號 (,)隔開.
+詳細用法請見group(5)
+例如您要將 aaa, bbb 加入 bbsadm 這個 group, 您可能會用:
+	bbsadm:*:9876:aaa,bbb
+在設定完成後, 原來已經登入的使用者須要重新登入,
+才會重新載入至新設的 group內.
+您可以參考 group(5)
+
+------------------------------------------------------------------------------
+5.五子棋盤沒有出現
+請將 sample/etc/@five 拷貝到 ~bbs/etc/ 即可.
+
+------------------------------------------------------------------------------
+6. sendmail.cf要改的地方(參考用) (by DavidYu)
+
+要注意,tab和space不能混用
+
+######################################
+###   Ruleset 0 -- Parse Address   ###
+######################################
+S0
+
+R$*                     $: $>Parse0 $1          initial parsing
+R<@>                    $#local $: <@>          special case error msgs
+R$*                     $: $>98 $1              handle local hacks
+R$+.bbs < @ $=w .>      $#bbsmail $: $1         bbs mail gateway
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+R$*                     $: $>Parse1 $1          final parsing
+
+......
+
+# handle locally delivered names
+R$+.bbs                 $#bbsmail $:$1                  bbs mail gateway
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+R$=L                    $#local $: @ $1                 special local names
+R$+                     $#local $: $1                   regular local names
+
+###########################################################################
+###   Ruleset 5 -- special rewriting after aliases have been expanded   ###
+###########################################################################
+
+......
+
+##################################################
+###   Local and Program Mailer specification   ###
+##################################################
+
+#####  @(#)local.m4     8.30 (Berkeley) 6/30/1998  #####
+
+Mlocal,         P=/usr/libexec/mail.local, F=lsDFMAw5:/|@qSXfmnz9P, S=10/30, R= 
+                T=DNS/RFC822/X-Unix,
+                A=mail.local -l
+Mprog,          P=/bin/sh, F=lsDFMoqeu9, S=10/30, R=20/40, D=$z:/,
+                T=X-Unix,
+                A=sh -c $u
+Mbbsmail,       P=/home/bbs/bin/bbsmail, F=lsSDFMhPu, U=bbs, S=10,R=20/40,
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+                A=bbsmail $u
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+------------------------------------------------------------------------------
+7./usr/libexec/elf/ld: cannot find -liconv
+  或 iconv.h: No such file or directory
+因為新的 innbbsd中加入了 RFC 2045 support, 須要 libiconv .
+您須先要有安裝 libiconv (/usr/ports/converters/libiconv/ in FreeBSD)
+再重新 make 即可
+
+若您已經安裝了 libiconv 不過還是找不到,
+請將該 lib所在的 path (/usr/local/lib in FreeBSD)
+加到 innbbsd/Makefile 的 LDFLAGS中, ex:
+	LDFLAGS+= -liconv
+改成:
+	LDFLAGS+= -liconv -L/usr/local/lib
diff --git a/pttbbs/docs/FAQ.old b/pttbbs/docs/FAQ.old
new file mode 100755
index 00000000..bc2904a0
--- /dev/null
+++ b/pttbbs/docs/FAQ.old
@@ -0,0 +1,146 @@
+ 作者  DavidYu (^^Y)                                        看板  PttSrc
+ 標題  Re: 安裝完連線時.....
+ 時間  Thu May 18 15:08:04 2000
+───────────────────────────────────────
+
+※ 引述《JamesCheng (網球比排球好玩啦！)》之銘言：
+: 我在安裝完之後 用root執行 mbbsd 23
+: 連線看出現
+: Escape character is '^]'.
+: 【物治樂園】◎ 物治第二站 ◎(pt.mc.ntu.edu.tw)
+:   調幅(140.112.122.44)  系統負荷  0.00 0.01 0.00
+: Connection closed by foreign host.
+: 然後系統出現下列訊息
+: [shmget error] key = 8ab
+: errno = 12: Cannot allocate memory
+: 這是何原因呢？
+shared memory要加大
+在kernel config file中加一行
+options         SHMMAXPGS=4100
+重新make kernel
+
+--
+※ 發信站: 批踢踢實業坊(ptt.twbbs.org)
+◆ From: oio.m6.ntu.edu.t
+
+ 作者  DavidYu (Do it YOURSELF!)                            看板  PttSrc
+ 標題  Re: 請問一下...
+ 時間  Sat May 27 18:41:39 2000
+───────────────────────────────────────
+
+※ 引述《clifflu ( 煩呀煩呀煩~~~)》之銘言：
+: ※ 引述《hscat (復站了！)》之銘言：
+: :         不過我有一個小小的問題
+: :         能不能指導一下...想要開新的版應該從哪邊開呢？
+: 主選單下的 (0)Admin ??
+: :         因為我實在找不到怎麼開新看板...:~~~~...
+不不不..
+開板要從分類看板的地方開,這部份有點小小的複雜,
+和以往的版本不一樣,我來簡單說明一下:
+
+首先介紹看板.
+看板有兩種, 一般看板和群組看板. 如果用檔案系統的架構來看的話,
+一般看板如同 file, 而群組看板就是 directory
+(在所有看板列表的地方只會出現一般看板)
+
+一個看板有UID及GID這兩個屬性. UID是unique的,從1開始分配,系統在開板時會�
+菾佧llocate一個. 而GID是指定這個看板在哪一個群組看板之下(看板是樹狀架構的)
+所以如果有一個群組看板的UID是x, 則GID為x的看板都會擺在該群組看板之下
+而如果看板GID為0(保留的UID)的話,該看板就會出現在一開始從主選單進CLASS的
+那個地方
+
+至於開板的方法.
+首先從CLASS進到你想要開新板的類別下,然後按大B設定
+如此新開的板就會自動assign GID 到那個類別下
+
+如果要般動一個已經開好的板到其他類別的話
+先找出那個類別(群組看板)的UID, 按大E可以看到
+然後把要搬動的板的GID設成那個UID及可
+
+值得注意的是, 如果把某個使用者設成某群組看板的板主的話
+則當他從CLASS進到那個群組時會獲得小組長的權限(可以開板,設定看板等等)
+要特別小心
+
+比較麻煩的地方:
+一個新開的群組裡面並沒有任何看板,所以無法從選單進去裡面開板
+這時候就需要在可開板的地方先開個板,然後再把那個板的GID設過去即可
+(這也是為什麼需要一個initial的.BOARDS的原因 :p)
+
+--
+※ 發信站: 批踢踢實業坊(ptt.twbbs.org)
+◆ From: meow.cc.ntu.edu.
+
+ 作者  DavidYu (軱~~~~~~~~~~)                               看板  PttSrc
+ 標題  sendmail.cf要改的地方(參考用)
+ 時間  Sun Jul  9 09:39:53 2000
+───────────────────────────────────────
+
+有顏色的是要加上去的
+要注意,tab和space不能混用
+
+######################################
+###   Ruleset 0 -- Parse Address   ###
+######################################
+S0
+
+R$*                     $: $>Parse0 $1          initial parsing
+R<@>                    $#local $: <@>          special case error msgs
+R$*                     $: $>98 $1              handle local hacks
+R$+.bbs < @ $=w .>      $#bbsmail $: $1         bbs mail gateway
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+R$*                     $: $>Parse1 $1          final parsing
+
+......
+
+# handle locally delivered names
+R$+.bbs                 $#bbsmail $:$1                  bbs mail gateway
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+R$=L                    $#local $: @ $1                 special local names
+R$+                     $#local $: $1                   regular local names
+
+###########################################################################
+###   Ruleset 5 -- special rewriting after aliases have been expanded   ###
+###########################################################################
+
+......
+
+##################################################
+###   Local and Program Mailer specification   ###
+##################################################
+
+#####  @(#)local.m4     8.30 (Berkeley) 6/30/1998  #####
+
+Mlocal,         P=/usr/libexec/mail.local, F=lsDFMAw5:/|@qSXfmnz9P, S=10/30, R= 
+                T=DNS/RFC822/X-Unix,
+                A=mail.local -l
+Mprog,          P=/bin/sh, F=lsDFMoqeu9, S=10/30, R=20/40, D=$z:/,
+                T=X-Unix,
+                A=sh -c $u
+Mbbsmail,       P=/home/bbs/bin/bbsmail, F=lsSDFMhPu, U=bbs, S=10,R=20/40,
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+                A=bbsmail $u
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+--
+※ 發信站: 批踢踢實業坊(ptt.twbbs.org)
+◆ From: oio.m6.ntu.edu.t
+
+ 作者  DavidYu (鴰~~~~~~~~~~~~~~)                           看板  PttSrc
+ 標題  [anno] tunepasswd
+ 時間  Sat Jul 29 09:18:06 2000
+───────────────────────────────────────
+
+新增了一個 tunepasswd 的程式
+
+如果你在 .PASSWD 建立後又改過了 MAX_USERS
+
+你必須要執行 tunepasswd 一次來修改 .PASSWD 檔的大小
+
+執行的時候不可以有任何BBS的程式在執行
+
+shared memory 也應該要清除, 否則會有不預期的錯誤發生
+
+執行 tunepasswd 會產生一個原來的備份檔 .PASSWD~
+
+--
+※ 發信站: 批踢踢實業坊(ptt.twbbs.org)
+◆ From: oio.m6.ntu.edu.t   
diff --git a/pttbbs/docs/INSTALL b/pttbbs/docs/INSTALL
new file mode 100644
index 00000000..4311cc70
--- /dev/null
+++ b/pttbbs/docs/INSTALL
@@ -0,0 +1,101 @@
+底下是快速安裝的方法
+
+==============
+以 root 的權限
+==============
+
+ 1. 打 vipw, 加入底下兩行
+
+    bbs:*:9999:99::0:0:Ptt BBS:/home/bbs:/home/bbs/bin/bbsrf
+    bbsadm::9999:99::0:0:Ptt BBS:/home/bbs:/bin/csh
+
+ 2. 執行 passwd bbsadm 設 bbsadm的密碼
+ 3. 在 /etc/group 中加入一行
+
+    bbs:*:99:
+
+ 4. 執行 mkdir /home/bbs
+ 5. 執行 chown bbs.bbs /home/bbs
+ 6. 執行 chmod 700 /home/bbs
+
+====================
+以下用 bbsadm 的身份
+====================
+
+ 7. 先切到所要放置源碼的目錄下 (一般在 /home/bbs) ,
+    您可以透過下列任一方式取得 pttbbs 的源碼:
+
+    1)至 ftp://ptt2.csie.ntu.edu.tw 抓得每日自動製作的 snapshot ,
+      通常檔名長的會像是 pttbbs-DATE-SNAP.tar.gz
+
+    2)透過 subversion 直接 checkout 一份當前最新的源碼 (強烈建議)
+      您必須先安裝 subversion
+       (in FreeBSD, `cd /usr/ports/devel/subversion/; make all install clean` )
+
+      再執行 svn checkout svn://ptt2.csie.ntu.edu.tw/trunk/pttbbs 即可.
+
+    其中不論您以方式 1或 2取得源碼, 您都可以在該目錄下直接透過 svn update
+    更新至 pttbbs 最新的源碼. 如:
+	cd /home/bbs/pttbbs; svn update
+
+ 8. 執行 cd ~bbs/pttbbs
+ 9. 如果之前沒有設定過 pttbbs.conf 的話, 請 cp sample/pttbbs.conf pttbbs.conf
+ 10.修改 pttbbs.conf
+    * 如果您是用 Linux系統, 請先安裝 pmake, 然後將 make alias 成 pmake *
+ 11.執行 make BBSHOME=/home/bbs all install
+     (如果出現 iconv.h找不到的話, 請見 FAQ 7 )
+ 12.如果是新架起來的站, 請執行 cd sample; make install
+ 13.執行 cd /home/bbs; bin/initbbs
+
+假如一切都很順利的話,這樣子大概就安裝完了
+接下來是啟動 bbs 的部份
+
+ 14.執行 bin/shmctl init (*註1, *註2)
+ 16.用 root 執行 bin/mbbsd 23 (註2)
+
+ 17.測試整個系統是否完成:
+    telnet localhost 23 看看
+    new 一個帳號叫SYSOP, 然後 logout再 login, 這樣子就會擁有站長權限囉~
+    再 new一個帳號叫 guest , 這樣子別人就可以用 guest 參觀你的站了
+    開板, 開群組, 以及搬動群組的方法請看 PttSrc 板的文摘
+ 18.新功能請參考 ADVANCE
+ 19.為了讓開機的時候會自己把 bbs (以及所須要的程式) 跑起來,
+    若您使用 FreeBSD, 您可以將 sample/pttbbs.sh 拷貝到 /usr/local/etc/rc.d/
+    之後您可以重新開機試試看是不是在重開後可以正常運作 :)
+ 20. pttbbs 須要定時執行一些小 tool 來維持系統正常運作,
+    reload cache, 備份, 特殊外部程式等等.
+    請用 bbs的權限, 執行 crontab -e , 內容請參照 sample/crontab
+     (在大部份的情況下, 直接將 sample/crontab 內容拷備進去即可)
+ 21.在某些情況下, pttbbs會須要一些其他的程式來輔助.
+    下面列出所須要的程式, 預設的路徑, 以及在 FreeBSD ports內對映的路徑
+	tar	/usr/bin/tar		FreeBSD default install
+	gzip	/usr/bin/gzip		FreeBSD default install
+	rm	/bin/rm			FreeBSD default install
+	perl	/usr/bin/perl		/usr/ports/lang/perl5.8/
+	mutt	/usr/local/bin/mutt	/usr/ports/mail/mutt/
+	lynx	/usr/local/bin/lynx	/usr/ports/www/lynx/
+
+    我們大部份的 perl script會用到 LocalVars.pm , 該檔案內負責定義
+    各別機器的設定 (如外部程式的路徑) . 請將該檔拷份一份至 ~/bin/
+    下, 並修正該檔以符合貴環境的設定.
+
+    另外列出我們 perl script會用到的 perl module, 以 FreeBSD ports相對目錄.
+	Mail::Sender	/usr/ports/mail/p5-Mail-Sender/
+
+註:
+1. 這個程式是在 initial shared memory 用的, 只有開機後第一次執行, 或是
+   你手動清除 shm 後才需要執行
+
+2. 如果您跑了 shmctl init 或 uhash_loader 並沒有看到
+      total XXXXX names loaded.
+   而是看到其他的錯誤訊息
+    (例如 [shmget error] key = 4cc, errno = 22: Invalid argument)
+   可能是您作業系統 shared-memory 上限不足,
+   請參考 FAQ中加大 shared-memory 部份的說明.
+
+3. bin/mbbsd 23 是指定要 bind 23 port, 依照 UNIX 規定, 1024 以下的 port
+   須要有 root 權限, 所以如果要 bind 23 port 的話就要用 root 去執行,
+   3000 port 則不需要.
+   請參考 docs/ADVANCE , 安裝好 bbsctl ,
+   之後您就可以透過 bbsctl 直接在其他權限下 (如 bbsadm )
+   來啟動可以 bind port 23 的 mbbsd.
diff --git a/pttbbs/docs/brc.txt b/pttbbs/docs/brc.txt
new file mode 100644
index 00000000..366b5ed0
--- /dev/null
+++ b/pttbbs/docs/brc.txt
@@ -0,0 +1,154 @@
+ 
+        BRC documentation by scw      08/05/2003
+ 
+源起：
+     這篇文章主要是介紹 brc_* 的函式，這組函式是 pttbbs 用來紀錄文章已讀/未讀
+ 的工具，但因為內部的儲存方式十分 tricky 連帶使的內容相當難懂。為了重現及修正
+ 其中的一個 bug，筆者有幸弄清了其中運作方式，並為其撰寫說明，希望對管理者有幫
+ 助。
+ 
+什麼人該看這篇文章？
+     1. pttbbs 的系統管理者。如果您要對這部份進行修改或抓蟲，希望這篇文章能對
+        您有所助益。
+     2. 想要研究這種用極少空間記下極大資訊的方法的人。
+ 
+BRC 是什麼？如何運作？
+     brc_* 是定義在 pttbbs/mbbsd/board.c 中的一組函式，負責紀錄文章已讀/未讀，
+ 它的特點是用的空間極少。可以在 2.4k 以內的空間記下一個人在全站的文章已讀/
+ 未讀。當然，這樣的方法不可能真正完美，但是對於使用上已經足夠了。為什麼說是不
+ 完美呢？這跟紀錄的儲存方式有關。
+     紀錄檔在 home/[first charactor of id]/[id]/.boardrc。檔案格式如下：
+ 
+ FILE     := RECORDS ;
+ RECORDS  := RECORDS RECORD | ;
+ RECORD   := BOARD_NAME BRC_DATA ;
+ BRC_DATA := BRC_NUM BRC_LIST ;
+ BRC_LIST := NUM NUM ... NUM ;  (共 BRC_NUM 個 NUM)
+ BOARD_NAME 是 15 bytes 的板名 (#define BRC_STRLEN 15)
+ BRC_NUM    是對這個板的儲存量，1 byte 以 binary 方式儲存，其值 <= MAX_NUM (80)
+ BRC_LIST   是對這個板的紀錄，剛好有 BRC_NUM 個 4 bytes integers。
+ 另外在 24576 bytes (#define BRC_MAXSIZE 24576) 之外的資料不會被用到。
+ 
+     在下面會看到，BOARD_NAME 不用另外儲存（已經放在user的全域資料裡了），其他
+ 兩項, BRC_NUM 跟 BRC_LIST 都會放在相應的全域變數中, brc_num & brc_list 。
+     判定一個檔案是否已經讀過的方法是在 brc_list 中搜尋檔案建立的時間，也就是
+ 檔名 M.xxxxxxxxxx.A.yyy 中 xxxxxxxxx 的那個數字。如果這個數字有在 brc_list 中
+ 出現就是已讀，要不如果 brc_list 中所有的數字都比這個檔案的建立時間大（也就是
+ 這個檔案的建立時間在所有 brc_list 中的時間點之前）也是已讀，最後為了節省空間
+ 還有一個判定（其實這個判定是第一個做的），如果檔案建立時間在 login 時間的一年
+ 之前，一律是已讀。
+     這樣可以看出為什麼這個方法不是真正完美但是已經足夠。不完美的原因有三個：
+ 首先， brc_num <= 80 也就是 brc_list 最多存八十個數，這表示除了很久以前的文章
+ 外，只會有八十篇是已讀的。第二就是所有一年前的文章都會被判為已讀。最後，如果一
+ 個人看的板太多，讓 .boardrc 大小超過 BRC_MAXSIZE 有些板的紀錄就會不見（ 24576
+ bytes 最少可以存 73 個板的資料，這還是用全部板 brc_num 都是 80 計算的）。但這
+ 三個小缺點影響應該不大吧？
+ 
+BRC 實作
+ 
+ interface: (in proto.h)
+ 
+  int brc_unread(char *fname, int bnum, int *blist);
+      判斷一篇文章是否已讀。
+      傳入值：文章檔名 (fname) 以及 brc_num (bnum) 和 brc_list (blist)。
+      傳回值：如果由 bnum 和 blist 判斷本篇文章未讀傳回 1。
+              否則傳回 0。
+      額外效果：無。
+  
+  int brc_initial(char *boardname);
+      初始化在一個板的已讀未讀狀態。
+      傳入值：要初始化的板名。
+      傳回值：若找到之前的紀錄傳回新的 brc_num，否則傳回 0。
+      額外效果：如果傳入的看板就是目前看板會直接傳回 brc_num, 不做別的事。否則
+      本函式會先將目前的 brc data 寫入 .boardrc 中，更改 currboard ，取得
+      currbid 和 currbrdattr 後再讀取並更新 brc_num 及 brc_list。如果在使用者
+      的 .boardrc 中沒有關於這個板的紀錄，會設定 brc_num = 1，brc_list[0] = 1
+      並傳回 0。
+  
+  void brc_update();
+      將目前的 brc data 寫入 .boardrc 中。
+      額外效果：如果 brc data 未被更改或使用者權限不足則不會有動作。
+  
+  void brc_addlist(char *fname);
+      將文章標示為未讀。
+      傳入值：要標示為未讀的文章檔名。
+  
+ global variables: (in var.c)
+  
+  int    brc_num;
+      brc_list 中的有效數字個數。
+
+  int    brc_list[BRC_MAXNUM];
+      已讀文章的存檔時間。
+  
+  (in var.h)
+  extern int             brc_num;
+  extern int             brc_list[BRC_MAXNUM];
+  
+ constant definition: (in board.c)
+  
+  #define BRC_STRLEN 15           /* Length of board name */
+      板名最大長度。
+  
+  #define BRC_MAXSIZE     24576
+      .boardrc 的有效大小。
+  
+  #define BRC_ITEMSIZE    (BRC_STRLEN + 1 + BRC_MAXNUM * sizeof( int ))
+      每個 record 的最大大小。
+  
+  #define BRC_MAXNUM      80
+      brc_num 的最大值。
+  
+ private variables: (in board.c)
+  
+  static time_t brc_expire_time;
+      brc_list 中值的下限，時間在此之前的一律當作已讀。會在 init_brdbuf 中被設
+      定為 login_start_time - 365 * 86400。
+  
+  static int    brc_changed = 0;
+      從上次讀取 .boardrc 到當時為止，brc_num 與 brc_list 是否改變過（為減少寫
+      檔的次數）。
+  
+  static char   brc_buf[BRC_MAXSIZE];
+      呼叫 read_brc_buf 後 .boardrc 的前 BRC_MAXSIZE bytes 會被置入這個 buffer
+      中。
+
+  static int    brc_size;
+      呼叫 read_brc_buf 後 brc_buf 中的有效字元數。
+
+  static char   brc_name[BRC_STRLEN];
+      目前 brc data 的板名。 （不知道可否用 currboard 代替？ by scw）
+
+  static char * fn_boardrc = ".boardrc";
+      brc 設定檔名。
+
+  char        * brc_buf_addr=brc_buf;
+      unused variable
+  
+ private funcions: (in board.c)
+  
+  static void read_brc_buf();
+      從 .boardrc 中讀取最多 BRC_MAXSIZE bytes 並存入 brc_buf 中，將存入的字元
+      數存在 brc_size 中。
+
+  static char * brc_getrecord(char *ptr, char *name, int *pnum, int *list);
+      從 buffer 中讀取一項紀錄。 （通常在 read_brc_bufi() 之後使用）
+      傳入值：ptr 為要讀取的 buffer， name, pnum, 和 list 分別寫入讀到的資料。
+      傳回值：指向讀出的 record 下一個字元的指標。
+      額外效果：name 會被存入最多 BRC_MAXLEN 個字元，為讀到的 record 的板名。
+      pnum 會被存入讀到的 brc_num，list 會被寫入 *pnum 的整數，為 brc_list
+      的資料。
+
+  static char * brc_putrecord(char *ptr, char *name, int num, int *list);
+      與 brc_getrecord() 的作用正好相反，將資料寫入 puffer 中。
+      傳入值：ptr 只向要寫入的 buffer，name, num, list 分別是要寫入的資料。
+      傳回值：指向寫入的 record 下一個字元的指標。
+      額外效果：若資料是合法的 (num > 0 && list[0] > brc_expire_time) ptr 會被
+      寫入 BRC_ITEMSIZE bytes 的資料。在 list 中比 brc_expire_time 的數字不會
+      被寫入（所以寫入的 brc_num 可能比 num 小）。
+
+  static int brc_unread_time(time_t ftime, int bnum, int *blist);
+      跟 brc_unread() 類似，只是傳入的是檔案建立的時間。
+      傳入值：文章的建立時間 (ftime) 及 brc_num (bnum) 和 brc_list (blist)。
+      傳回值：如果由 bnum 和 blist 判斷本篇文章未讀傳回 1。
+              否則傳回 0。
diff --git a/pttbbs/docs/z6ibbs.1.txt b/pttbbs/docs/z6ibbs.1.txt
new file mode 100644
index 00000000..6ff5f0d6
--- /dev/null
+++ b/pttbbs/docs/z6ibbs.1.txt
@@ -0,0 +1,122 @@
+作者: in2 (中秋玉兔 *^^*) 看板: in2
+標題: [隨意] 關於架設一個 z6ibbs (硬體篇)
+時間: Mon Oct 21 14:17:31 2002
+
+唔, 只是隨手寫寫東西,
+如果下面有提到任何價格那都是僅供參考,
+並不代表妳可以用這個價格買到東西
+ (當然妳可能買到比較便宜就是了 A_AY )
+所有的價格以 k為單位, 即中文的 仟 .
+
+也許我會拿 Ptt/Ptt2 來做些例子 ;p
+當然我並不會告訴妳現在到底是用什麼 :P
+不過也許我會偷偷告訴妳一些好玩的東西 ;p
+
+第一個先說到 CPU.
+就一般的情況來說, 只要程式寫的有一點好
+ (尤其是 userlist 不要惡搞的話)
+通常不會要到很高,
+一般的 PIII-class 等級應該就是可以動了,
+當然妳可以考慮用 Xeon幾顆, 再打開 hyper-threading....
+ Xeon 的價格差不多是 10k  (2.4G, socket 603)
+據說醬子跑 setiathome 相當快 A_AY
+事實上我並不會告訴妳 Ptt是用什麼樣的 CPU,
+不過我可以偷偷告訴妳,
+我們不過用了 PIII-class 某某兩顆,
+ clock並沒有很快, 據不知道可不可靠的消息,
+她們是不到 1G Hz的 :X
+
+說到 memory 的話, 就是大家心中的痛了 Q_Q
+就我所知道目前沒有在怕記憶體的,
+只有小旭旭長輩的 天火BBS  .
+就我手邊的兩台機器, 都幾乎是卡死在 ram不夠.
+並且, 一般的 motherboard都不能支援到很高的 ram,
+或是她雖然可以支援到很高, 可是她的 bank 數並不夠.
+像有些 motherboard雖然可以插到 4G ,
+但是只有 4 banks. 也就是妳須要一條 1G 的 ram x 4才能達到.
+再者, 到夠高級的 motherboard通常要求 ram要是 registered 的.
+有 registered 的 ram比一般用的 non-registered 還要貴的多.
+前陣子問到的是 512MB 5~7k , 1GB 一條要 13k.
+這真的是:
+        平平是 ram, 成份不同, 效果也不同 XD
+以我們自己估算的話,
+差不多 1G 可以撐到 2k+人 (同時在線上)
+當然實際值比這個還要再多一點,
+我覺得再上去都已經是讓系統死命的在跑,
+我自然是不會告訴妳現在 Ptt是用多少記憶體在跑,
+不過可以偷偷告訴妳, 事實上和妳偷猜的應該差不多, 或者是少點多點.
+
+大概考慮了 cpu和 ram後, 就可以來找一塊合適的 motherboard了.
+個人滿喜歡 tyan 的 (http://www.tyan.com)
+ (呃, 好像有點打廣告 ^^")
+ tyan 有生產不少高級板子 (請往 Thunder系列走)
+像是可以插至少兩顆 processor(s), dual-LAN, SCSI onboard,
+價格差不多都是至少 15k, 一般所用的 chipset應該 FreeBSD都有 support .
+當然, 妳最好在刷卡前確認好價錢以及是不是有支援.
+請去買一張樂透以及把板子拿去換另一個型號或退貨,
+如果妳運氣好到買的那張剛剛好是 FreeBSD沒有支援的.
+ tyan 的高級板, 像是這一張:
+        http://www.tyan.com/products/html/thundergche.html
+Intel Xeon MP x 4, MAX 24GB DDR ram, dual LAN, SCSI onboard ....
+motherboard 算 20k, CPU 一顆算 10k, 再加 24GB DDR算 13k/GB
+差不多 400k 左右就可以買的到全套,
+這應該是叫她送一個好機殼外加一大堆風扇, power supply(s).
+買了這張之後, 一打 top看到的前 8個 process(es) 應該都是 setiathome A_AY
+當然, 我並打算要告訴妳我們現在用哪一張,
+也不會偷偷告訴妳我們現在用哪一張 -_-!#
+
+硬碟算是 bbs滿主要的一個地方.
+這個時候就要套 D某, 某K 大大的一句話:
+        IDE 硬碟是什麼? 沒聽過... 拿去丟掉吧 -_-
+是的,  SCSI 硬碟是最佳的選擇,
+ SCSI 硬碟沒有幾家有在做, 所以也不用急 ;p
+價格差不多是 9G 6k, 18G 8k, 32G 16k 左右.
+就我自己的經驗, 硬碟通常不用很大, 不過越多越好~ ;p
+因為 SCSI 硬碟基本上各顆間可以平行存取,
+所以越多顆理論上可以越快一點,
+而一般來說 bbs都會卡在 io 速度不夠快.
+IDE 硬碟則是拿來開機和備份的好東西,
+便宜又大碗, 反正壞了就丟, 也不怎麼貴 -_-!#
+或許有人會很有錢的用 hardware-raid A_AY,
+又或是用 vinum把她整個弄成一大塊 ;p
+不過個人還是習慣切很多塊自己搞 ;x
+ (事實上是因為沒錢買硬碟 raid :X )
+ vinum好像又出過一些小問題, 所以就自己惡搞了 ;o
+另外一般情況, 市面上只能買到可以接四個 SCSI 裝置的排線.
+雖然一個 SCSI bus 理論上可以接 15  (還是 16 ? ) 個 SCSI 裝置,
+不過超過四個的話就要訂做了.
+如果有人去訂一條可以插十五個裝置線的話, 麻煩借我看一下 A_AY
+我自然也不會告訴妳 Ptt現在有幾顆硬碟在上面,
+不過可以偷偷告訴妳, 在今年內, 最少有四顆, 最多有九顆硬碟同時在上面.
+
+其他剩下的就是很次要的了,
+像是要準備很大的殼子以塞進這麼多硬碟 @_@;;;
+另外裝置一多的時候, 一個小小的 power可能會不夠力,
+於是也許妳要用兩個 (以上) 的 power supply .
+幸運的,  tyan 有不少 motherboard都可以插兩個 power supply上去.
+另外還要注意散熱, 事實上當買完上面那些東西,
+風扇大概都可以直接叫她送了~ ;p
+比較要緊的是也許要為硬碟加個風扇 ;d
+以免像某大一樣把硬碟測到燒掉 ;ppp
+另外, 有不少 motherboard都是直接音效和顯示內建的.
+自然我還是不打算告訴妳我們現在用的 onboard 音效和顯示卡到底是哪個 chip.
+不過我可以偷偷告訴妳,
+ 也許我哪天心情好的時候, 實驗室裡的人會聽到 ptt正在放 mp3 -__-!#
+
+我自然不會告訴妳現在 ptt or ptt2到底花掉了多少錢 @_@;;;
+不過我可以偷偷告訴妳:
+
+                我好窮喔 >O<
+
+--
+      ▂▅▇▇▅    �裺嘵���○ �摃丐丐片�                        ▃   ◢◢  
+    ▊     ／       �摃片裐朅� �遉丐丐片��歈� �歈稙裐遉丐片�  ◢ ▃   ██   
+    ▎  ◤◢█◤    �裺稙潁矙� �聝丐丐片���/�裐歈朅裐���═��  ◥◤▌◢◢◢    
+    ▌  ▎◣  ◢▎  �矙矙矙矙� ══�煍片�／ �矙僓朅禊歈屣片�    ◢      ◣    
+      ◣            ���潁����� ��═�嘵嘵� �矙矙裺朅潁裺屣丑�    _ '_ ' _     
+    ◢█＼  ‾◤                          �裺潁�������������    ◥ ▼  \◤  
+
+--
+※ 發信站: 新批踢踢(ptt2.cc)
+◆ From: 140.112.30.143
+→ windsheep:好好笑喔...借我偷回家放..@_@s             推140.112.182.151 10/21
diff --git a/pttbbs/docs/z6ibbs.2.txt b/pttbbs/docs/z6ibbs.2.txt
new file mode 100644
index 00000000..1a704c6d
--- /dev/null
+++ b/pttbbs/docs/z6ibbs.2.txt
@@ -0,0 +1,159 @@
+作者: in2 (中秋玉兔 *^^*) 看板: in2
+標題: [隨意] 關於架設一個 z6ibbs (隨筆篇)
+時間: Tue Oct 22 21:59:12 2002
+
+只是剛剛好想到一些事情, 隨手寫了下來 ;d
+不過我想某些東西, 也許可以提供大家在某些地方上面用.
+
+我們先來說整個系統的架構.
+尤其像是 bbs這種不是很容易分散到多台機器跑的系統,
+ (也就是要用一台強力的機器硬撐的)
+最好要再多準備一台電腦,
+幫忙把一些其餘的服務分掉.
+像是郵件 (尤其加上擋信) , 轉信,  make world 以及一些後面會描述到的東西.
+我們姑且將這台機器稱為後援機好了,
+他主要的目的只是想要幫前端機分掉一點事情,
+8像是郵件, 就由後援機去對外收 (並進行擋信) 以及替前端機發信.
+好處是, 信件並不是太須要即時 (妳大概不會要求按下 send 後 100ms內要送到)
+可是有的時候可能會花掉大量的資源,
+像是要擋信, 或是和對方網路上的問題一直重送,
+又或是 queue一大堆信件在硬碟裡面, 每過一些時候又一直要 retry一次.
+又或是妳大概不會想要在一台 load > 30的機器上 make world or ports
+於是我們在前端機旁加一台後援, 讓這種煩人的事情由後援機去做,
+於是前端機就可以更 focus在他的服務上.
+像這種情況, 兩台機器最好串在很近的地方,
+像是同一個 switch 上, 又或是直接用 cross-over 線互聯.
+
+要怎麼來備份一個足夠龐大又會不斷亂長的系統?
+我想應該不會有人想要把 bbs丟到 cvs裡面, 雖然 cvs很好用 :X
+bbs 一般可以考慮直接把她整個 tar + gz 起來,
+就算爆炸了要還原應該也不會算是什麼大困難.
+好像有某長輩是用 dump 的 @_@;;;;
+備份最好兩地備份,
+當然妳可以考慮直接備份在妳的後援機上,
+這決對會比妳備份在前端機要好的太多了.
+當然若妳可以再備份到另外一地 (像是備份到美國)
+醬子會大大增加爆炸時的損失.
+
+一般應該是會把 bbs架在 i386 上,
+自然用的是 FreeBSD或是 Solaris(i386)
+我當然不會告訴妳我們用的是什麼,
+不過據說我們頗崇尚 berkeley A_AY
+另外我還可以偷偷的告訴妳一些小道消息,
+像是據說某間很大的動物園, 她們好像也是用 FreeBSD ,
+某個喀喀城市, 用的也是 FreeBSD,
+另外有一個神祕據說叫做天火的 bbs, 用的是 Solaris(i386)
+曾經有位 I零  大大, 說他都直接跟客戶說:
+        Linux, no tech support
+因為他不會用 Linux, 然後如果人家硬要用的話,
+他就會拿 RedHat 光碟把他 install all :PP
+ (要用什麼是個人信仰, 請不要找我來吵架 ;p )
+
+在 FreeBSD分成三個主要的 branch(es): stable, release, current,
+除非妳心臟很夠力或很年輕或是夠大,
+一般情況下並不會拿 current的版本在正式的 server 上玩.
+雖然 current有些強力的功能, 不過正如 handbook 說的:
+21.2.1.3 What Is FreeBSD-CURRENT Not?
+1. A fast-track to getting pre-release bits because you heard there
+   is some cool new feature in there and you want to be the first on
+   your block to have it. Being the first on the block to get the new
+   feature means that you're the first on the block to get the new bugs.
+2. A quick way of getting bug fixes. Any given version of FreeBSD-CURRENT
+   is just as likely to introduce new bugs as to fix existing ones.
+ (引自 http://www.freebsd.org/doc/en_US.ISO8859-1/
+       books/handbook/current-stable.html          )
+不過不管你用哪一個, 記得時時要注意一下,
+看看有沒有什麼 security hole又被爆破.
+通常 follow release 是比較保險的做法,
+不過這項事情好像在最近並不成立.
+我自然不會告訴妳我到底是不是偷偷昇級到 current了 A"A
+
+關於 security 上的問題,
+一般的通訊顯然應該要走 ssh一類的通道,
+而至於 telnetd, rsh 等等, 請直接拿去馬桶沖掉 @_@;;;;
+另外建議設簡單的 firewall ,
+在發生火災的時候會有比較高的存活率~ ;d
+通常至少會有
+        allow ip from any to any via lo0
+        deny ip from any to 127.0.0.0/8
+        deny ip from 127.0.0.0/8 to any
+就正常的情況下來說, 127.0.0.0/8 應該是不可能會從非 lo0來.
+而對於 < 1024 的 resvered port ,
+通常會只 allow幾個有開 service的 port , 其他全擋.
+像是:
+        allow tcp from any to me 22,23,25 in
+        deny tcp from any to me 1-1023 in
+若機器並不須要提供大家 ssh的 login
+ (像是妳的 bbs只開放 port 23, 並沒有開放由 ssh轉到 bbs)
+事實上可以考慮直接把 port 22 (ssh)設死在只有某個 ip 可以連進來,
+像是上面改成:
+        allow tcp from 140.112.30.142 to me 22 in
+                                        # 只給 140.112.30.142 連到本機 port 22
+        allow tcp from any to me 23,25 in
+                                        # 大家都可以連本機 port 23,25
+        deny tcp from any to me 1-1023 in
+                                        # 其他每個 port 的 tcp都不給連
+醬子就算 ssh暴出 security hole ,
+只要唯一(s) 可以連到的幾台機器都沒有被攻破,
+或是跟本就沒有人知道只有那一(s) 台電腦可以連到該台的 port 22 ,
+至少又比大家都可以連到妳的 ssh安全許多.
+
+我相信在一般情況下,
+或多或少妳都會碰到那種非到 console解決的事情不可,
+像是 fsck 失敗了,  console提示要妳打入 root's passsword ,
+然後問妳 shell, 要妳手動 fsck ,
+通常發生這種 (或其他) 的情況的時候,
+網路並還沒有起來, 妳並是 ping 不到, 更別說要 ssh進去了.
+如果這個時候妳妳人就在機器旁的話自然還好,
+不過如果妳人不在機器旁 (ex妳在北京, 機器在台灣) 呢?
+我建議如果妳有這種考量 or 吃過大苦頭 or 不想吃大苦頭的,
+最好使用 serial console.
+ serial console 差不多是把 console的訊息,
+透過 serial (也就是 com port) 導到另外一台機器上 (假設接到後援機)
+啟動 serial console 是在相當早的,
+在 BIOS 等等開機程序完成把 loader 載進來後,
+就會把所有的 console訊息導到 serial 上
+ (這部份我並不是很確定, 若有錯誤請指正 ^^" )
+也就是,  serial console 可以看到完整的開機畫面,
+就算是 kernel panic , 也可以在 serial console 進 kdb.
+於是, 一旦前端機 crash掉, 連網路都 ping 不到的時候,
+只要這個時候後援機還活著, 就可以透過網路連進後援機,
+透過 serial console 看看前端機目前的情況,
+在大多數的情況下, 透過 serial console 都可以把問題解決掉.
+ (當然, 如果像是硬碟爆炸,  CPU燒掉的話, 顯然就沒辦法了 ^^" )
+我會建議在後援機開隻 screen 把前端機的 console ALWAYS attach.
+如此一旦出問題的話, 妳可以看到最後到底發生什麼事情.
+
+自然也許有朋友會有疑問, 如果後援機 crash的話怎麼辦 @"@
+唔, 我們當然只會在後援機上找外星人和做一些簡單的事情,
+一般的情況下醬子要把機器搞爆應該不是很容易的.
+當然妳可以把後援機的 console接到前端機上,
+醬如果後援機 crash而前端機沒有的話就可以用的到.....
+雖然這應該是很奇怪的事情 -____-!#
+
+如果 serial console 還是不能解決妳的問題的話,
+也許妳可以考慮接一個遠端 reboot 的裝置.
+我說的是妳可以下指令給後援機,
+當她去 short前端機 motherboard上的 reset pin(s)
+醬子當然是很暴力的做法,
+不過在某些情況下確實有醬子惡搞的必要就是了~ ;p
+我當然不會告訴妳我們到底有沒有遠端 reboot 的系統,
+不過我可以偷偷告訴妳, 我們有用 serial console.
+
+唔 @"@
+我當然不會把這篇寫的很好笑或是一點都一正經,
+不過我可以偷偷告訴妳,
+竟然有人說我上次寫的那篇很好玩 -_______________-!#
+
+--
+      ▂▅▇▇▅    �裺嘵���○ �摃丐丐片�                        ▃   ◢◢  
+    ▊     ／       �摃片裐朅� �遉丐丐片��歈� �歈稙裐遉丐片�  ◢ ▃   ██   
+    ▎  ◤◢█◤    �裺稙潁矙� �聝丐丐片���/�裐歈朅裐���═��  ◥◤▌◢◢◢    
+    ▌  ▎◣  ◢▎  �矙矙矙矙� ══�煍片�／ �矙僓朅禊歈屣片�    ◢      ◣    
+      ◣            ���潁����� ��═�嘵嘵� �矙矙裺朅潁裺屣丑�    _ '_ ' _     
+    ◢█＼  ‾◤                          �裺潁�������������    ◥ ▼  \◤  
+
+--
+※ 發信站: 新批踢踢(ptt2.cc) 
+◆ From: 140.112.30.143
+→ windsheep:看到最後才發現好像比第一篇還好笑..^^      推140.112.182.151 10/22
diff --git a/pttbbs/include/bbs.h b/pttbbs/include/bbs.h
new file mode 100644
index 00000000..71a3332f
--- /dev/null
+++ b/pttbbs/include/bbs.h
@@ -0,0 +1,74 @@
+/* $id$ */
+#ifndef INCLUDE_BBS_H
+#define INCLUDE_BBS_H
+
+#include <stdio.h>
+#include <string.h>
+#include <assert.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <setjmp.h>
+#include <signal.h>
+#include <unistd.h>
+#include <fcntl.h>
+#include <syslog.h>
+#include <errno.h>
+#include <netdb.h>
+#include <time.h>
+#include <ctype.h>
+#include <termios.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/wait.h>
+#include <sys/socket.h>
+#include <sys/time.h>
+#include <sys/resource.h>
+#include <netinet/in.h>
+#include <arpa/inet.h>
+#include <arpa/telnet.h>
+#include <sys/types.h>
+#include <dirent.h>
+#include <sys/mman.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/sem.h>
+#include <sys/msg.h>
+
+/* os dependant include file, define */
+#ifdef __FreeBSD__
+    #if __FreeBSD__ >=5
+        #include <sys/limits.h>
+    #else
+        #include <machine/limits.h>
+    #endif
+    #include <machine/param.h>
+#endif
+#ifdef __linux__
+    #include <sys/param.h>
+    #include <limits.h>
+    #include <sys/file.h>      // for flock()
+    size_t
+    strlcpy(char *dst, const char *src, size_t size);
+
+    size_t
+    strlcat(char *dst, const char *src, size_t size);
+#endif
+
+/* our header */
+#include "config.h"
+#include "pttstruct.h"
+#include "common.h"
+#include "perm.h"
+#include "modes.h"
+#include "proto.h"
+#include "gomo.h"
+
+#ifdef _UTIL_C_
+    #include "util.h"
+#endif
+
+#ifndef INCLUDE_VAR_H
+    #include "var.h"
+#endif
+
+#endif /* INCLUDE_BBS_H */
diff --git a/pttbbs/include/common.h b/pttbbs/include/common.h
new file mode 100644
index 00000000..c82bcd32
--- /dev/null
+++ b/pttbbs/include/common.h
@@ -0,0 +1,188 @@
+/* $Id$ */
+#ifndef INCLUDE_COMMON_H
+#define INCLUDE_COMMON_H
+
+#define STR_GUEST                 "guest"
+#define DEFAULT_BOARD   str_sysop
+
+#define FN_PASSWD       BBSHOME "/.PASSWDS"      /* User records */
+#define FN_USSONG       "ussong"        /* 點歌統計 */
+#define FN_POST_NOTE    "post.note"     /* po文章備忘錄 */
+#define FN_APPLICATION  "application"
+#define FN_MONEY        "etc/money"
+#define FN_OVERRIDES    "overrides"
+#define FN_REJECT       "reject"
+#define FN_WATER        "water"
+#define FN_CANVOTE      "can_vote"
+#define FN_VISABLE      "visable"
+#define FN_USIES        "usies"         /* BBS log */
+#define FN_BOARD        ".BRD"       /* board list */
+#define FN_USEBOARD     "usboard"       /* 看板統計 */
+#define FN_NOTE_ANS     "note.ans"
+#define FN_TOPSONG      "etc/topsong"
+#define FN_OVERRIDES    "overrides"
+#define FN_TICKET       "ticket"
+#define FN_TICKET_END   "ticket.end"
+#define FN_TICKET_LOCK  "ticket.end.lock"
+#define FN_TICKET_ITEMS "ticket.items"
+#define FN_TICKET_RECORD "ticket.data"
+#define FN_TICKET_USER    "ticket.user"  
+#define FN_TICKET_OUTCOME "ticket.outcome"
+#define FN_TICKET_BRDLIST "boardlist"
+
+#define MSG_DEL_CANCEL  "取消刪除"
+#define MSG_SELECT_BOARD          "\033[7m【 選擇看板 】\033[m\n" \
+                                  "請輸入看板名稱(按空白鍵自動搜尋)："
+#define MSG_CLOAKED     "哈哈！我隱形了！看不到勒... :P"
+#define MSG_UNCLOAK     "我要重現江湖了...."
+#define MSG_BIG_BOY     "我是大帥哥! ^o^Y"
+#define MSG_BIG_GIRL    "世紀大美女 *^-^*"
+#define MSG_LITTLE_BOY  "我是底迪啦... =)"
+#define MSG_LITTLE_GIRL "最可愛的美眉! :>"
+#define MSG_MAN         "麥當勞叔叔 (^O^)"
+#define MSG_WOMAN       "叫我小阿姨!! /:>"
+#define MSG_PLANT       "植物也有性別喔.."
+#define MSG_MIME        "礦物總沒性別了吧"
+#define MSG_PASSWD      "請輸入您的密碼: "
+#define MSG_POSTER      "\033[34;46m 文章選讀 "\
+                        "\033[31;47m (y)\033[30m回信 "\
+			"\033[31m(=[]<>)\033[30m相關主題 "\
+			"\033[31m(/?)\033[30m搜尋標題 "\
+			"\033[31m(aA)\033[30m搜尋作者 "\
+			"\033[31m(x)\033[30m轉錄 "\
+			"\033[31m(V)\033[30m投票 \033[m"
+#define MSG_SEPERATOR   "\
+───────────────────────────────────────"
+
+#define MSG_CLOAKED     "哈哈！我隱形了！看不到勒... :P"
+#define MSG_UNCLOAK     "我要重現江湖了...."
+
+#define MSG_WORKING     "處理中，請稍候..."
+
+#define MSG_CANCEL      "取消。"
+#define MSG_USR_LEFT    "User 已經離開了"
+#define MSG_NOBODY      "目前無人上線"
+
+#define MSG_DEL_OK      "刪除完畢"
+#define MSG_DEL_CANCEL  "取消刪除"
+#define MSG_DEL_ERROR   "刪除錯誤"
+#define MSG_DEL_NY      "請確定刪除(Y/N)?[N] "
+
+#define MSG_FWD_OK      "文章轉寄完成!"
+#define MSG_FWD_ERR1    "轉寄失誤: system error"
+#define MSG_FWD_ERR2    "轉寄失誤: address error"
+
+#define MSG_SURE_NY     "請您確定(Y/N)？[N] "
+#define MSG_SURE_YN     "請您確定(Y/N)？[Y] "
+
+#define MSG_BID         "請輸入看板名稱："
+#define MSG_UID         "請輸入使用者代號："
+#define MSG_PASSWD      "請輸入您的密碼: "
+
+#define MSG_BIG_BOY     "我是大帥哥! ^o^Y"
+#define MSG_BIG_GIRL    "世紀大美女 *^-^*"
+#define MSG_LITTLE_BOY  "我是底迪啦... =)"
+#define MSG_LITTLE_GIRL "最可愛的美眉! :>"
+#define MSG_MAN         "麥當勞叔叔 (^O^)"
+#define MSG_WOMAN       "叫我小阿姨!! /:>"
+#define MSG_PLANT       "植物也有性別喔.."
+#define MSG_MIME        "礦物總沒性別了吧"
+
+#define ERR_BOARD_OPEN  ".BOARD 開啟錯誤"
+#define ERR_BOARD_UPDATE        ".BOARD 更新有誤"
+#define ERR_PASSWD_OPEN ".PASSWDS 開啟錯誤"
+
+#define ERR_BID         "你搞錯了啦！沒有這個板喔！"
+#define ERR_UID         "這裡沒有這個人啦！"
+#define ERR_PASSWD      "密碼不對喔！你有沒有冒用人家的名字啊？"
+#define ERR_FILENAME    "檔名不合法！"
+#define MSG_MAILER      \
+"\033[34;46m 鴻雁往返 \033[31;47m(R)\033[30m回信\033[31m(x)\033[30m轉達\
+\033[31m(y)\033[30m群組回信\033[31m(D)\033[30m刪除\
+\033[31m(c)\033[30m收入信件夾\033[31m(z)\033[30m信件夾 \033[31m[G]\033[30m繼續?\033[0m"
+#define MSG_SHORTULIST  "\033[7m\
+使用者代號    目前狀態   │使用者代號    目前狀態   │使用者代號    目前狀態  \033[0m"
+
+
+#define STR_AUTHOR1     "作者:"
+#define STR_AUTHOR2     "發信人:"
+#define STR_POST1       "看板:"
+#define STR_POST2       "站內:"
+
+/* Flags to getdata input function */
+#define NOECHO       0
+#define DOECHO       1
+#define LCECHO       2
+
+#define YEA  1		       /* Booleans  (Yep, for true and false) */
+#define NA   0
+
+/* 好友關係 */
+#define IRH 1   /* I reject him.             */
+#define HRM 2   /* He reject me.             */
+#define IBH 4   /* I am board friend of him. */
+#define IFH 8   /* I am friend of him.       */
+#define HFM 16  /* He is friend of me.       */
+#define ST_FRIEND  (IBH | IFH | HFM)
+#define ST_REJECT  (IRH | HRM)       
+
+/* 鍵盤設定 */
+#define KEY_TAB         9
+#define KEY_ESC         27
+#define KEY_UP          0x0101
+#define KEY_DOWN        0x0102
+#define KEY_RIGHT       0x0103
+#define KEY_LEFT        0x0104
+#define KEY_HOME        0x0201
+#define KEY_INS         0x0202
+#define KEY_DEL         0x0203
+#define KEY_END         0x0204
+#define KEY_PGUP        0x0205
+#define KEY_PGDN        0x0206
+
+#define QCAST           int (*)(const void *, const void *)
+#define Ctrl(c)         (c & 037)
+#define chartoupper(c)  ((c >= 'a' && c <= 'z') ? c+'A'-'a' : c)
+
+#define LEN_AUTHOR1     5
+#define LEN_AUTHOR2     7
+
+/* ----------------------------------------------------- */
+/* 群組名單模式   Ptt                                    */
+/* ----------------------------------------------------- */
+#define FRIEND_OVERRIDE 0
+#define FRIEND_REJECT   1
+#define FRIEND_ALOHA    2
+#define FRIEND_POST     3         
+#define FRIEND_SPECIAL  4
+#define FRIEND_CANVOTE  5
+#define BOARD_WATER     6
+#define BOARD_VISABLE   7 
+
+#define LOCK_THIS   1    // lock這線不能重複玩
+#define LOCK_MULTI  2    // lock所有線不能重複玩   
+
+#define I_TIMEOUT   (-2)       /* Used for the getchar routine select call */
+#define I_OTHERDATA (-333)     /* interface, (-3) will conflict with chinese */
+
+#define CHE_O(c)          ((c) >> 3)
+#define CHE_P(c)          ((c) & 7)
+#define RTL(x)            (((x) - 3) >> 1)
+#define dim(x)          (sizeof(x) / sizeof(x[0]))
+#define LTR(x)            ((x) * 2 + 3)
+#define CHE(a, b)         ((a) | ((b) << 3))
+
+#define MAX_MODES 127
+
+#ifndef MIN
+#define	MIN(a,b)	((a<b)?a:b)
+#endif
+#ifndef MAX
+#define	MAX(a,b)	((a>b)?a:b)
+#endif
+
+#define char_lower(c)  ((c >= 'A' && c <= 'Z') ? c|32 : c)
+
+#define STR_CURSOR      "●"
+#define STR_UNCUR       "  "
+#endif
diff --git a/pttbbs/include/config.h b/pttbbs/include/config.h
new file mode 100644
index 00000000..d5645b0f
--- /dev/null
+++ b/pttbbs/include/config.h
@@ -0,0 +1,226 @@
+/* $Id$ */
+#ifndef INCLUDE_CONFIG_H
+#define INCLUDE_CONFIG_H
+
+#include <syslog.h>
+#include "../pttbbs.conf"
+
+#define BBSPROG         BBSHOME "/bin/mbbsd"         /* 主程式 */
+#define BAN_FILE        "BAN"                        /* 關站通告檔 */
+#define LOAD_FILE       "/proc/loadavg"              /* for Linux */
+
+#ifndef RELAY_SERVER_IP                     /* 寄站外信的 mail server */
+#define RELAY_SERVER_IP    "127.0.0.1"
+#endif
+
+#ifndef MAX_USERS                           /* 最高註冊人數 */
+#define MAX_USERS          (150000)
+#endif
+
+#ifndef MAX_ACTIVE
+#define MAX_ACTIVE        (1024)         /* 最多同時上站人數 */
+#endif
+
+#ifndef MAX_CPULOAD
+#define MAX_CPULOAD       (70)           /* CPU 最高load */
+#endif
+
+#ifndef MAX_POST_MONEY                      /* 發表文章稿費的上限 */
+#define MAX_POST_MONEY     100
+#endif
+
+#ifndef MAX_CHICKEN_MONEY                   /* 養雞場穫利上限 */
+#define MAX_CHICKEN_MONEY  100
+#endif
+
+#ifndef MAX_GUEST_LIFE                      /* 最長未認證使用者保留時間(秒) */
+#define MAX_GUEST_LIFE     (3 * 24 * 60 * 60)
+#endif
+
+#ifndef MAX_LIFE                            /* 最長使用者保留時間(秒) */
+#define MAX_LIFE           (120 * 24 * 60 * 60)
+#endif
+
+#ifndef MAX_FROM
+#define MAX_FROM           (300)            /* 最多故鄉數 */
+#endif
+
+#ifndef HAVE_JCEE                           /* 大學聯考查榜系統 */
+#define HAVE_JCEE          1
+#endif
+
+#ifndef FOREIGN_REG_DAY                     /* 外籍使用者試用日期上限 */
+#define FOREIGN_REG_DAY   30
+#endif
+
+#ifndef HAVE_FREECLOAK
+#define HAVE_FREECLOAK     0
+#endif
+
+#ifndef FORCE_PROCESS_REGISTER_FORM
+#define FORCE_PROCESS_REGISTER_FORM 0
+#endif
+
+#ifndef TITLE_COLOR
+#define TITLE_COLOR       "\033[0;1;37;46m"
+#endif
+
+#ifndef SYSLOG_FACILITY
+#define SYSLOG_FACILITY   LOG_LOCAL0
+#endif
+
+#ifndef TAR_PATH
+#define TAR_PATH "tar"
+#endif
+
+#ifndef MUTT_PATH
+#define MUTT_PATH "mutt"
+#endif
+
+#ifndef HBFLexpire
+#define HBFLexpire        (432000)       /* 5 days */
+#endif
+
+#ifndef MAXPATHLEN
+#define MAXPATHLEN        (256)
+#endif
+
+#ifndef MAX_BOARD
+#define MAX_BOARD         (8192)         /* 最大開板個數 */
+#endif
+
+#ifndef MAX_EXKEEPMAIL
+#define MAX_EXKEEPMAIL    (1000)         /* 最多信箱加大多少封 */
+#endif
+
+/* 以下還未整理 */
+#define DIRCACHESIZE      (40)           /* cache 文章列表中最後40篇 */
+#define MAX_FRIEND        (256)          /* 載入 cache 之最多朋友數目 */
+#define MAX_REJECT        (32)           /* 載入 cache 之最多壞人數目 */
+#define MAX_MSGS          (10)           /* 水球(熱訊)忍耐上限 */
+#define MAX_MOVIE         (999)          /* 最多動態看板數 */
+#define MAX_MOVIE_SECTION (10)		 /* 最多動態看板類別 */
+#define MAX_ITEMS         (1000)         /* 一個目錄最多有幾項 */
+#define MAX_HISTORY       (12)           /* 動態看板保持 12 筆歷史記錄 */
+#define MAX_CROSSNUM      (9) 	         /* 最多crosspost次數 */
+#define MAX_QUERYLINES    (16)           /* 顯示 Query/Plan 訊息最大行數 */
+#define MAX_LOGIN_INFO    (128)          /* 最多上線通知人數 */
+#define MAX_POST_INFO     (32)           /* 最多新文章通知人數 */
+#define MAX_NAMELIST      (128)          /* 最多其他特別名單人數 */
+#define MAX_PAGES         (999)          /* more.c 中文章頁數上限(lines/22) */
+#define MAX_KEEPMAIL      (200)          /* 最多保留幾封 MAIL？ */
+#define MAX_NOTE          (20)           /* 最多保留幾篇留言？ */
+#define MAX_SIGLINES      (6)            /* 簽名檔引入最大行數 */
+#define MAX_CROSSNUM      (9) 	         /* 最多crosspost次數 */
+#define MAX_REVIEW        (7)		 /* 最多水球回顧 */
+#define NUMVIEWFILE       (14)           /* 進站畫面最多數 */
+#define MAX_SWAPUSED      (0.7)          /* SWAP最高使用率 */
+#define LOGINATTEMPTS     (3)            /* 最大進站失誤次數 */
+#define WHERE                            /* 是否有故鄉功能 */
+#undef  LOG_BOARD  			 /* 看板是否log */
+#undef SUPPORT_GB      			 /* 是否支援gb */
+
+
+#define DEFAULTBOARD   "SYSOP"  /* 預設看板 */
+#define LOGINASNEW              /* 採用上站申請帳號制度 */
+#define NO_WATER_POST           /* 防止BlahBlah式灌水 */
+#define USE_BSMTP               /* 使用opus的BSMTP 寄收信? */
+#define HAVE_ANONYMOUS          /* 提供 Anonymous 板 */
+#undef  POSTNOTIFY              /* 新文章通知功能 */
+#define INTERNET_EMAIL          /* 支援 InterNet Email 功能(含 Forward) */
+#define HAVE_ORIGIN             /* 顯示 author 來自何處 */
+#undef  HAVE_MAILCLEAN          /* 清理所有使用者個人信箱 */
+#undef  HAVE_SUICIDE            /* 提供使用者自殺功能 */
+#undef  HAVE_REPORT             /* 系統追蹤報告 */
+#undef  HAVE_INFO               /* 顯示程式板本說明 */
+#undef  HAVE_LICENSE            /* 顯示 GNU 板權畫面 */
+#undef  HAVE_TIN                /* 提供 news reader */
+#undef  HAVE_GOPHER             /* 提供 gopher */
+#undef  HAVE_WWW                /* 提供 www browser */
+#define FAST_LOGIN		/* Login 不檢查遠端使用者 */
+#define HAVE_CAL                /* 提功計算機 */
+#undef  HAVE_ARCHIE             /* have arche */
+#undef  POSTBUG                 /* board/mail post 沒有 bug 了 */
+#undef  HAVE_REPORT             /* 系統追蹤報告 */
+#undef  EMAIL_JUSTIFY           /* 發出 InterNet Email 身份認證信函 */
+#undef  NEWUSER_LIMIT           /* 新手上路的三天限制 */
+#undef  HAVE_X_BOARDS
+
+#define USE_LYNX   	        /* 使用外部lynx dump ? */
+#undef  USE_PROXY
+#ifdef  USE_PROXY
+#define PROXYSERVER "140.112.28.165"
+#define PROXYPORT   3128
+#endif
+#define LOCAL_PROXY             /* 是否開啟local 的proxy */
+#ifdef  LOCAL_PROXY
+#define HPROXYDAY   1           /* local的proxy refresh天數 */
+#endif
+
+#define SHOWMIND                /* 看見心情 */
+#define SHOWUID                 /* 看見使用者 UID */
+#define SHOWBOARD               /* 看見使用者看板 */
+#define SHOWPID                 /* 看見使用者 PID */
+
+#define REALINFO                /* 真實姓名 */
+#ifdef  REALINFO
+#undef  ACTS_REALNAMES          /* 主目錄的 (U)ser 顯示真實姓名 */
+#undef  POST_REALNAMES          /* 貼文件時附上真實姓名 */
+#undef  MAIL_REALNAMES          /* 寄站內信件時附上真實姓名 */
+#endif
+
+#define DOTIMEOUT
+#ifdef  DOTIMEOUT
+#define IDLE_TIMEOUT    (43200) /* 一般情況之 timeout (12hr) */
+#define MONITOR_TIMEOUT (20*60) /* monitor 時之 timeout */
+#define SHOW_IDLE_TIME          /* 顯示閒置時間 */
+#endif
+
+#define SEM_ENTER      -1      /* enter semaphore */
+#define SEM_LEAVE      1       /* leave semaphore */
+#define SEM_RESET      0       /* reset semaphore */
+
+#define MAGIC_KEY       1234    /* 身分認證信函編碼 */
+
+#define SHM_KEY         1228
+#if 0
+#define BRDSHM_KEY      1208
+#define UHASH_KEY       1218	/* userid->uid hash */
+#define UTMPSHM_KEY     2221
+#define PTTSHM_KEY      1220    /* 動態看板 , 節日 */
+#define FROMSHM_KEY     1223    /* whereis, 最多使用者 */
+#endif
+
+#define BRDSEM_KEY      2005    /* semaphore key */
+#define PTTSEM_KEY      2000    /* semaphore key */
+#define FROMSEM_KEY     2003    /* semaphore key */
+#define PASSWDSEM_KEY   2010
+
+#define NEW_CHATPORT    3838
+#define CHATPORT        5722
+
+#define MAX_ROOM         16              /* 最多有幾間包廂？ */
+
+#define EXIT_LOGOUT     0
+#define EXIT_LOSTCONN   -1
+#define EXIT_CLIERROR   -2
+#define EXIT_TIMEDOUT   -3
+#define EXIT_KICK       -4
+
+#define CHAT_LOGIN_OK       "OK"
+#define CHAT_LOGIN_EXISTS   "EX"
+#define CHAT_LOGIN_INVALID  "IN"
+#define CHAT_LOGIN_BOGUS    "BG"
+#define BADCIDCHARS " *"        /* Chat Room 中禁用於 nick 的字元 */
+
+#define ALLPOST "ALLPOST"
+
+#define MAXTAGS	256
+#define BRC_STRLEN 15             /* Length of board name */
+#define BRC_MAXSIZE     24576
+#define BRC_ITEMSIZE    (BRC_STRLEN + 1 + BRC_MAXNUM * sizeof( int ))
+#define BRC_MAXNUM      80
+
+#define WRAPMARGIN (511)
+
+#endif
diff --git a/pttbbs/include/gomo.h b/pttbbs/include/gomo.h
new file mode 100644
index 00000000..30556aa9
--- /dev/null
+++ b/pttbbs/include/gomo.h
@@ -0,0 +1,1973 @@
+/* $Id$ */
+
+#ifndef _INCLUDE_GOMO_H
+#define _INCLUDE_GOMO_H
+
+#define BBLANK (0)  /* 空白 */
+#define BBLACK (1)  /* 黑子, 先手 */
+#define BWHITE (2)  /* 白子, 後手 */
+#define MAX_TIME (300) /*最長idle秒數*/
+#ifndef BRDSIZ
+#define BRDSIZ (15) /* 棋盤單邊大小 */
+#endif
+
+#define BGOTO(x, y) move( 16 - y , x * 2 + 3)
+#define BGOTOCUR(x, y)  move(16 - y, x * 2 + 4)        
+
+/*
+	   0  0  0 = #@#         : len= 3 : NO 00 NO
+	   1  1  0 = #_@#        : len= 4 : NO 00 NO
+	   2  1  1 = #_@_#       : len= 5 : NO 00 NO
+	   3  2  0 = #O@#        : len= 4 : NO 00 NO
+	   4  2  1 = #O@_#       : len= 5 : NO 00 NO
+	   5  2  2 = #O@O#       : len= 5 : NO 00 NO
+	   6  3  0 = #__@#       : len= 5 : NO 00 NO
+	   7  3  1 = #__@_#      : len= 6 : NO 00 NO
+	   8  3  2 = #__@O#      : len= 6 : NO 00 NO
+	   9  3  3 = #__@__#     : len= 7 : NO 00 NO
+	  10  4  0 = #_O@#       : len= 5 : NO 00 NO
+	  11  4  1 = #_O@_#      : len= 6 : NO 00 NO
+	  12  4  2 = #_O@O#      : len= 6 : NO 00 NO
+	  13  4  3 = #_O@__#     : len= 7 : NO 00 NO
+	  14  4  4 = #_O@O_#     : len= 7 : NO 00 NO
+	  15  5  0 = #O_@#       : len= 5 : NO 00 NO
+	  16  5  1 = #O_@_#      : len= 6 : NO 00 NO
+	  17  5  2 = #O_@O#      : len= 6 : NO 00 NO
+	  18  5  3 = #O_@__#     : len= 7 : NO 00 NO
+	  19  5  4 = #O_@O_#     : len= 7 : NO 00 NO
+	  20  5  5 = #O_@_O#     : len= 7 : NO 00 NO
+	  21  6  0 = #OO@#       : len= 5 : NO 00 NO
+	  22  6  1 = #OO@_#      : len= 6 : NO 00 NO
+	  23  6  2 = #OO@O#      : len= 6 : NO 00 NO
+	  24  6  3 = #OO@__#     : len= 7 : NO 00 NO
+	  25  6  4 = #OO@O_#     : len= 7 : S4 00 S4
+	  26  6  5 = #OO@_O#     : len= 7 : D4 00 D4
+	  27  6  6 = #OO@OO#     : len= 7 : L5 00 L5
+	  28  7  0 = #___@#      : len= 6 : NO 00 NO
+	  29  7  1 = #___@_#     : len= 7 : NO 00 NO
+	  30  7  2 = #___@O#     : len= 7 : NO 00 NO
+	  31  7  3 = #___@__#    : len= 8 : NO 00 NO
+	  32  7  4 = #___@O_#    : len= 8 : NO 00 NO
+	  33  7  5 = #___@_O#    : len= 8 : NO 00 NO
+	  34  7  6 = #___@OO#    : len= 8 : NO 00 NO
+	  35  7  7 = #___@___#   : len= 9 : NO 00 NO
+	  36  8  0 = #__O@#      : len= 6 : NO 00 NO
+	  37  8  1 = #__O@_#     : len= 7 : NO 00 NO
+	  38  8  2 = #__O@O#     : len= 7 : NO 00 NO
+	  39  8  3 = #__O@__#    : len= 8 : NO 00 NO
+	  40  8  4 = #__O@O_#    : len= 8 : H3 22 H3
+	  41  8  5 = #__O@_O#    : len= 8 : NO 00 NO
+	  42  8  6 = #__O@OO#    : len= 8 : S4 00 S4
+	  43  8  7 = #__O@___#   : len= 9 : NO 00 NO
+	  44  8  8 = #__O@O__#   : len= 9 : H3 22 H3
+	  45  9  0 = #_O_@#      : len= 6 : NO 00 NO
+	  46  9  1 = #_O_@_#     : len= 7 : NO 00 NO
+	  47  9  2 = #_O_@O#     : len= 7 : NO 00 NO
+	  48  9  3 = #_O_@__#    : len= 8 : NO 00 NO
+	  49  9  4 = #_O_@O_#    : len= 8 : D3 10 D3
+	  50  9  5 = #_O_@_O#    : len= 8 : NO 00 NO
+	  51  9  6 = #_O_@OO#    : len= 8 : D4 00 D4
+	  52  9  7 = #_O_@___#   : len= 9 : NO 00 NO
+	  53  9  8 = #_O_@O__#   : len= 9 : D3 10 D3
+	  54  9  9 = #_O_@_O_#   : len= 9 : NO 00 NO
+	  55 10  0 = #_OO@#      : len= 6 : NO 00 NO
+	  56 10  1 = #_OO@_#     : len= 7 : NO 00 NO
+	  57 10  2 = #_OO@O#     : len= 7 : S4 00 S4
+	  58 10  3 = #_OO@__#    : len= 8 : H3 31 H3
+	  59 10  4 = #_OO@O_#    : len= 8 : H4 00 H4
+	  60 10  5 = #_OO@_O#    : len= 8 : D4 00 D4
+	  61 10  6 = #_OO@OO#    : len= 8 : L5 00 L5
+	  62 10  7 = #_OO@___#   : len= 9 : H3 31 H3
+	  63 10  8 = #_OO@O__#   : len= 9 : H4 00 H4
+	  64 10  9 = #_OO@_O_#   : len= 9 : D4 00 D4
+	  65 10 10 = #_OO@OO_#   : len= 9 : L5 00 L5
+	  66 11  0 = #O__@#      : len= 6 : NO 00 NO
+	  67 11  1 = #O__@_#     : len= 7 : NO 00 NO
+	  68 11  2 = #O__@O#     : len= 7 : NO 00 NO
+	  69 11  3 = #O__@__#    : len= 8 : NO 00 NO
+	  70 11  4 = #O__@O_#    : len= 8 : NO 00 NO
+	  71 11  5 = #O__@_O#    : len= 8 : NO 00 NO
+	  72 11  6 = #O__@OO#    : len= 8 : NO 00 NO
+	  73 11  7 = #O__@___#   : len= 9 : NO 00 NO
+	  74 11  8 = #O__@O__#   : len= 9 : NO 00 NO
+	  75 11  9 = #O__@_O_#   : len= 9 : NO 00 NO
+	  76 11 10 = #O__@OO_#   : len= 9 : NO 00 H3
+	  77 11 11 = #O__@__O#   : len= 9 : NO 00 NO
+	  78 12  0 = #O_O@#      : len= 6 : NO 00 NO
+	  79 12  1 = #O_O@_#     : len= 7 : NO 00 NO
+	  80 12  2 = #O_O@O#     : len= 7 : D4 00 D4
+	  81 12  3 = #O_O@__#    : len= 8 : NO 00 NO
+	  82 12  4 = #O_O@O_#    : len= 8 : D4 00 D4
+	  83 12  5 = #O_O@_O#    : len= 8 : NO 00 NO
+	  84 12  6 = #O_O@OO#    : len= 8 : NO 00 D4
+	  85 12  7 = #O_O@___#   : len= 9 : NO 00 NO
+	  86 12  8 = #O_O@O__#   : len= 9 : D4 00 D4
+	  87 12  9 = #O_O@_O_#   : len= 9 : NO 00 D3
+	  88 12 10 = #O_O@OO_#   : len= 9 : S4 00 H4
+	  89 12 11 = #O_O@__O#   : len= 9 : NO 00 NO
+	  90 12 12 = #O_O@O_O#   : len= 9 : X4 00 X4
+	  91 13  0 = #OO_@#      : len= 6 : NO 00 NO
+	  92 13  1 = #OO_@_#     : len= 7 : NO 00 NO
+	  93 13  2 = #OO_@O#     : len= 7 : D4 00 D4
+	  94 13  3 = #OO_@__#    : len= 8 : NO 00 NO
+	  95 13  4 = #OO_@O_#    : len= 8 : D4 00 D4
+	  96 13  5 = #OO_@_O#    : len= 8 : NO 00 NO
+	  97 13  6 = #OO_@OO#    : len= 8 : NO 00 D4
+	  98 13  7 = #OO_@___#   : len= 9 : NO 00 NO
+	  99 13  8 = #OO_@O__#   : len= 9 : D4 00 D4
+	 100 13  9 = #OO_@_O_#   : len= 9 : NO 00 NO
+	 101 13 10 = #OO_@OO_#   : len= 9 : NO 00 D4
+	 102 13 11 = #OO_@__O#   : len= 9 : NO 00 NO
+	 103 13 12 = #OO_@O_O#   : len= 9 : D4 00 D4
+	 104 13 13 = #OO_@_OO#   : len= 9 : NO 00 NO
+	 105 14  0 = #OOO@#      : len= 6 : NO 00 NO
+	 106 14  1 = #OOO@_#     : len= 7 : S4 00 S4
+	 107 14  2 = #OOO@O#     : len= 7 : L5 00 L5
+	 108 14  3 = #OOO@__#    : len= 8 : S4 00 S4
+	 109 14  4 = #OOO@O_#    : len= 8 : L5 00 L5
+	 110 14  5 = #OOO@_O#    : len= 8 : NO 00 D4
+	 111 14  6 = #OOO@OO#    : len= 8 : L6 00 L6
+	 112 14  7 = #OOO@___#   : len= 9 : S4 00 S4
+	 113 14  8 = #OOO@O__#   : len= 9 : L5 00 L5
+	 114 14  9 = #OOO@_O_#   : len= 9 : NO 00 D4
+	 115 14 10 = #OOO@OO_#   : len= 9 : L6 00 L6
+	 116 14 11 = #OOO@__O#   : len= 9 : S4 00 S4
+	 117 14 12 = #OOO@O_O#   : len= 9 : L5 00 L5
+	 118 14 13 = #OOO@_OO#   : len= 9 : NO 00 D4
+	 119 14 14 = #OOO@OOO#   : len= 9 : L6 00 L6
+	 120 15  0 = #____@#     : len= 7 : NO 00 NO
+	 121 15  1 = #____@_#    : len= 8 : NO 00 NO
+	 122 15  2 = #____@O#    : len= 8 : NO 00 NO
+	 123 15  3 = #____@__#   : len= 9 : NO 00 NO
+	 124 15  4 = #____@O_#   : len= 9 : NO 00 NO
+	 125 15  5 = #____@_O#   : len= 9 : NO 00 NO
+	 126 15  6 = #____@OO#   : len= 9 : NO 00 NO
+	 127 15  7 = #____@___#  : len=10 : NO 00 NO
+	 128 15  8 = #____@O__#  : len=10 : NO 00 NO
+	 129 15  9 = #____@_O_#  : len=10 : NO 00 NO
+	 130 15 10 = #____@OO_#  : len=10 : H3 13 H3
+	 131 15 11 = #____@__O#  : len=10 : NO 00 NO
+	 132 15 12 = #____@O_O#  : len=10 : NO 00 NO
+	 133 15 13 = #____@_OO#  : len=10 : NO 00 NO
+	 134 15 14 = #____@OOO#  : len=10 : S4 00 S4
+	 135 15 15 = #____@____# : len=11 : NO 00 NO
+	 136 16  0 = #___O@#     : len= 7 : NO 00 NO
+	 137 16  1 = #___O@_#    : len= 8 : NO 00 NO
+	 138 16  2 = #___O@O#    : len= 8 : NO 00 NO
+	 139 16  3 = #___O@__#   : len= 9 : NO 00 NO
+	 140 16  4 = #___O@O_#   : len= 9 : H3 22 H3
+	 141 16  5 = #___O@_O#   : len= 9 : NO 00 NO
+	 142 16  6 = #___O@OO#   : len= 9 : S4 00 S4
+	 143 16  7 = #___O@___#  : len=10 : NO 00 NO
+	 144 16  8 = #___O@O__#  : len=10 : H3 22 H3
+	 145 16  9 = #___O@_O_#  : len=10 : D3 01 D3
+	 146 16 10 = #___O@OO_#  : len=10 : H4 00 H4
+	 147 16 11 = #___O@__O#  : len=10 : NO 00 NO
+	 148 16 12 = #___O@O_O#  : len=10 : D4 00 D4
+	 149 16 13 = #___O@_OO#  : len=10 : D4 00 D4
+	 150 16 14 = #___O@OOO#  : len=10 : L5 00 L5
+	 151 16 15 = #___O@____# : len=11 : NO 00 NO
+	 152 16 16 = #___O@O___# : len=11 : H3 22 H3
+	 153 17  0 = #__O_@#     : len= 7 : NO 00 NO
+	 154 17  1 = #__O_@_#    : len= 8 : NO 00 NO
+	 155 17  2 = #__O_@O#    : len= 8 : NO 00 NO
+	 156 17  3 = #__O_@__#   : len= 9 : NO 00 NO
+	 157 17  4 = #__O_@O_#   : len= 9 : D3 10 D3
+	 158 17  5 = #__O_@_O#   : len= 9 : NO 00 NO
+	 159 17  6 = #__O_@OO#   : len= 9 : D4 00 D4
+	 160 17  7 = #__O_@___#  : len=10 : NO 00 NO
+	 161 17  8 = #__O_@O__#  : len=10 : D3 10 D3
+	 162 17  9 = #__O_@_O_#  : len=10 : NO 00 NO
+	 163 17 10 = #__O_@OO_#  : len=10 : D4 00 D4
+	 164 17 11 = #__O_@__O#  : len=10 : NO 00 NO
+	 165 17 12 = #__O_@O_O#  : len=10 : NO 00 D3
+	 166 17 13 = #__O_@_OO#  : len=10 : NO 00 NO
+	 167 17 14 = #__O_@OOO#  : len=10 : NO 00 D4
+	 168 17 15 = #__O_@____# : len=11 : NO 00 NO
+	 169 17 16 = #__O_@O___# : len=11 : D3 10 D3
+	 170 17 17 = #__O_@_O__# : len=11 : NO 00 NO
+	 171 18  0 = #__OO@#     : len= 7 : NO 00 NO
+	 172 18  1 = #__OO@_#    : len= 8 : H3 31 H3
+	 173 18  2 = #__OO@O#    : len= 8 : S4 00 S4
+	 174 18  3 = #__OO@__#   : len= 9 : H3 31 H3
+	 175 18  4 = #__OO@O_#   : len= 9 : H4 00 H4
+	 176 18  5 = #__OO@_O#   : len= 9 : D4 00 D4
+	 177 18  6 = #__OO@OO#   : len= 9 : L5 00 L5
+	 178 18  7 = #__OO@___#  : len=10 : H3 31 H3
+	 179 18  8 = #__OO@O__#  : len=10 : H4 00 H4
+	 180 18  9 = #__OO@_O_#  : len=10 : D4 00 D4
+	 181 18 10 = #__OO@OO_#  : len=10 : L5 00 L5
+	 182 18 11 = #__OO@__O#  : len=10 : H3 31 H3
+	 183 18 12 = #__OO@O_O#  : len=10 : S4 00 H4
+	 184 18 13 = #__OO@_OO#  : len=10 : NO 00 D4
+	 185 18 14 = #__OO@OOO#  : len=10 : L6 00 L6
+	 186 18 15 = #__OO@____# : len=11 : H3 31 H3
+	 187 18 16 = #__OO@O___# : len=11 : H4 00 H4
+	 188 18 17 = #__OO@_O__# : len=11 : D4 00 D4
+	 189 18 18 = #__OO@OO__# : len=11 : L5 00 L5
+	 190 19  0 = #_O__@#     : len= 7 : NO 00 NO
+	 191 19  1 = #_O__@_#    : len= 8 : NO 00 NO
+	 192 19  2 = #_O__@O#    : len= 8 : NO 00 NO
+	 193 19  3 = #_O__@__#   : len= 9 : NO 00 NO
+	 194 19  4 = #_O__@O_#   : len= 9 : NO 00 NO
+	 195 19  5 = #_O__@_O#   : len= 9 : NO 00 NO
+	 196 19  6 = #_O__@OO#   : len= 9 : NO 00 NO
+	 197 19  7 = #_O__@___#  : len=10 : NO 00 NO
+	 198 19  8 = #_O__@O__#  : len=10 : NO 00 NO
+	 199 19  9 = #_O__@_O_#  : len=10 : NO 00 NO
+	 200 19 10 = #_O__@OO_#  : len=10 : NO 00 H3
+	 201 19 11 = #_O__@__O#  : len=10 : NO 00 NO
+	 202 19 12 = #_O__@O_O#  : len=10 : NO 00 NO
+	 203 19 13 = #_O__@_OO#  : len=10 : NO 00 NO
+	 204 19 14 = #_O__@OOO#  : len=10 : S4 00 S4
+	 205 19 15 = #_O__@____# : len=11 : NO 00 NO
+	 206 19 16 = #_O__@O___# : len=11 : NO 00 NO
+	 207 19 17 = #_O__@_O__# : len=11 : NO 00 NO
+	 208 19 18 = #_O__@OO__# : len=11 : H3 13 H3
+	 209 19 19 = #_O__@__O_# : len=11 : NO 00 NO
+	 210 20  0 = #_O_O@#     : len= 7 : NO 00 NO
+	 211 20  1 = #_O_O@_#    : len= 8 : D3 20 D3
+	 212 20  2 = #_O_O@O#    : len= 8 : D4 00 D4
+	 213 20  3 = #_O_O@__#   : len= 9 : D3 20 D3
+	 214 20  4 = #_O_O@O_#   : len= 9 : D4 00 D4
+	 215 20  5 = #_O_O@_O#   : len= 9 : NO 00 D3
+	 216 20  6 = #_O_O@OO#   : len= 9 : NO 00 D4
+	 217 20  7 = #_O_O@___#  : len=10 : D3 20 D3
+	 218 20  8 = #_O_O@O__#  : len=10 : D4 00 D4
+	 219 20  9 = #_O_O@_O_#  : len=10 : NO 00 D3
+	 220 20 10 = #_O_O@OO_#  : len=10 : S4 00 H4
+	 221 20 11 = #_O_O@__O#  : len=10 : D3 20 D3
+	 222 20 12 = #_O_O@O_O#  : len=10 : X4 00 X4
+	 223 20 13 = #_O_O@_OO#  : len=10 : D4 00 D4
+	 224 20 14 = #_O_O@OOO#  : len=10 : L5 00 L5
+	 225 20 15 = #_O_O@____# : len=11 : D3 20 D3
+	 226 20 16 = #_O_O@O___# : len=11 : D4 00 D4
+	 227 20 17 = #_O_O@_O__# : len=11 : NO 00 D3
+	 228 20 18 = #_O_O@OO__# : len=11 : S4 00 H4
+	 229 20 19 = #_O_O@__O_# : len=11 : D3 20 D3
+	 230 20 20 = #_O_O@O_O_# : len=11 : X4 00 X4
+	 231 21  0 = #_OO_@#     : len= 7 : NO 00 NO
+	 232 21  1 = #_OO_@_#    : len= 8 : D3 10 D3
+	 233 21  2 = #_OO_@O#    : len= 8 : D4 00 D4
+	 234 21  3 = #_OO_@__#   : len= 9 : D3 10 D3
+	 235 21  4 = #_OO_@O_#   : len= 9 : D4 00 D4
+	 236 21  5 = #_OO_@_O#   : len= 9 : NO 00 D3
+	 237 21  6 = #_OO_@OO#   : len= 9 : NO 00 D4
+	 238 21  7 = #_OO_@___#  : len=10 : D3 10 D3
+	 239 21  8 = #_OO_@O__#  : len=10 : D4 00 D4
+	 240 21  9 = #_OO_@_O_#  : len=10 : NO 00 D3
+	 241 21 10 = #_OO_@OO_#  : len=10 : NO 00 D4
+	 242 21 11 = #_OO_@__O#  : len=10 : D3 10 D3
+	 243 21 12 = #_OO_@O_O#  : len=10 : D4 00 D4
+	 244 21 13 = #_OO_@_OO#  : len=10 : NO 00 D3
+	 245 21 14 = #_OO_@OOO#  : len=10 : NO 00 D4
+	 246 21 15 = #_OO_@____# : len=11 : D3 10 D3
+	 247 21 16 = #_OO_@O___# : len=11 : D4 00 D4
+	 248 21 17 = #_OO_@_O__# : len=11 : NO 00 D3
+	 249 21 18 = #_OO_@OO__# : len=11 : NO 00 D4
+	 250 21 19 = #_OO_@__O_# : len=11 : D3 10 D3
+	 251 21 20 = #_OO_@O_O_# : len=11 : D4 00 D4
+	 252 21 21 = #_OO_@_OO_# : len=11 : NO 00 D3
+	 253 22  0 = #_OOO@#     : len= 7 : S4 00 S4
+	 254 22  1 = #_OOO@_#    : len= 8 : H4 00 H4
+	 255 22  2 = #_OOO@O#    : len= 8 : L5 00 L5
+	 256 22  3 = #_OOO@__#   : len= 9 : H4 00 H4
+	 257 22  4 = #_OOO@O_#   : len= 9 : L5 00 L5
+	 258 22  5 = #_OOO@_O#   : len= 9 : S4 00 H4
+	 259 22  6 = #_OOO@OO#   : len= 9 : L6 00 L6
+	 260 22  7 = #_OOO@___#  : len=10 : H4 00 H4
+	 261 22  8 = #_OOO@O__#  : len=10 : L5 00 L5
+	 262 22  9 = #_OOO@_O_#  : len=10 : S4 00 H4
+	 263 22 10 = #_OOO@OO_#  : len=10 : L6 00 L6
+	 264 22 11 = #_OOO@__O#  : len=10 : H4 00 H4
+	 265 22 12 = #_OOO@O_O#  : len=10 : L5 00 L5
+	 266 22 13 = #_OOO@_OO#  : len=10 : S4 00 H4
+	 267 22 14 = #_OOO@OOO#  : len=10 : L6 00 L6
+	 268 22 15 = #_OOO@____# : len=11 : H4 00 H4
+	 269 22 16 = #_OOO@O___# : len=11 : L5 00 L5
+	 270 22 17 = #_OOO@_O__# : len=11 : S4 00 H4
+	 271 22 18 = #_OOO@OO__# : len=11 : L6 00 L6
+	 272 22 19 = #_OOO@__O_# : len=11 : H4 00 H4
+	 273 22 20 = #_OOO@O_O_# : len=11 : L5 00 L5
+	 274 22 21 = #_OOO@_OO_# : len=11 : S4 00 H4
+	 275 22 22 = #_OOO@OOO_# : len=11 : L6 00 L6
+	 276 23  0 = #O___@#     : len= 7 : NO 00 NO
+	 277 23  1 = #O___@_#    : len= 8 : NO 00 NO
+	 278 23  2 = #O___@O#    : len= 8 : NO 00 NO
+	 279 23  3 = #O___@__#   : len= 9 : NO 00 NO
+	 280 23  4 = #O___@O_#   : len= 9 : NO 00 NO
+	 281 23  5 = #O___@_O#   : len= 9 : NO 00 NO
+	 282 23  6 = #O___@OO#   : len= 9 : NO 00 NO
+	 283 23  7 = #O___@___#  : len=10 : NO 00 NO
+	 284 23  8 = #O___@O__#  : len=10 : NO 00 NO
+	 285 23  9 = #O___@_O_#  : len=10 : NO 00 NO
+	 286 23 10 = #O___@OO_#  : len=10 : H3 13 H3
+	 287 23 11 = #O___@__O#  : len=10 : NO 00 NO
+	 288 23 12 = #O___@O_O#  : len=10 : NO 00 NO
+	 289 23 13 = #O___@_OO#  : len=10 : NO 00 NO
+	 290 23 14 = #O___@OOO#  : len=10 : S4 00 S4
+	 291 23 15 = #O___@____# : len=11 : NO 00 NO
+	 292 23 16 = #O___@O___# : len=11 : NO 00 NO
+	 293 23 17 = #O___@_O__# : len=11 : NO 00 NO
+	 294 23 18 = #O___@OO__# : len=11 : H3 13 H3
+	 295 23 19 = #O___@__O_# : len=11 : NO 00 NO
+	 296 23 20 = #O___@O_O_# : len=11 : D3 02 D3
+	 297 23 21 = #O___@_OO_# : len=11 : D3 01 D3
+	 298 23 22 = #O___@OOO_# : len=11 : H4 00 H4
+	 299 23 23 = #O___@___O# : len=11 : NO 00 NO
+	 300 24  0 = #O__O@#     : len= 7 : NO 00 NO
+	 301 24  1 = #O__O@_#    : len= 8 : NO 00 NO
+	 302 24  2 = #O__O@O#    : len= 8 : NO 00 NO
+	 303 24  3 = #O__O@__#   : len= 9 : NO 00 NO
+	 304 24  4 = #O__O@O_#   : len= 9 : NO 00 H3
+	 305 24  5 = #O__O@_O#   : len= 9 : NO 00 NO
+	 306 24  6 = #O__O@OO#   : len= 9 : S4 00 S4
+	 307 24  7 = #O__O@___#  : len=10 : NO 00 NO
+	 308 24  8 = #O__O@O__#  : len=10 : H3 22 H3
+	 309 24  9 = #O__O@_O_#  : len=10 : D3 01 D3
+	 310 24 10 = #O__O@OO_#  : len=10 : H4 00 H4
+	 311 24 11 = #O__O@__O#  : len=10 : NO 00 NO
+	 312 24 12 = #O__O@O_O#  : len=10 : D4 00 D4
+	 313 24 13 = #O__O@_OO#  : len=10 : D4 00 D4
+	 314 24 14 = #O__O@OOO#  : len=10 : L5 00 L5
+	 315 24 15 = #O__O@____# : len=11 : NO 00 NO
+	 316 24 16 = #O__O@O___# : len=11 : H3 22 H3
+	 317 24 17 = #O__O@_O__# : len=11 : D3 01 D3
+	 318 24 18 = #O__O@OO__# : len=11 : H4 00 H4
+	 319 24 19 = #O__O@__O_# : len=11 : NO 00 NO
+	 320 24 20 = #O__O@O_O_# : len=11 : D4 00 D4
+	 321 24 21 = #O__O@_OO_# : len=11 : D4 00 D4
+	 322 24 22 = #O__O@OOO_# : len=11 : L5 00 L5
+	 323 24 23 = #O__O@___O# : len=11 : NO 00 NO
+	 324 24 24 = #O__O@O__O# : len=11 : NO 00 H3
+	 325 25  0 = #O_O_@#     : len= 7 : NO 00 NO
+	 326 25  1 = #O_O_@_#    : len= 8 : NO 00 NO
+	 327 25  2 = #O_O_@O#    : len= 8 : NO 00 NO
+	 328 25  3 = #O_O_@__#   : len= 9 : NO 00 NO
+	 329 25  4 = #O_O_@O_#   : len= 9 : NO 00 D3
+	 330 25  5 = #O_O_@_O#   : len= 9 : NO 00 NO
+	 331 25  6 = #O_O_@OO#   : len= 9 : D4 00 D4
+	 332 25  7 = #O_O_@___#  : len=10 : NO 00 NO
+	 333 25  8 = #O_O_@O__#  : len=10 : NO 00 D3
+	 334 25  9 = #O_O_@_O_#  : len=10 : NO 00 NO
+	 335 25 10 = #O_O_@OO_#  : len=10 : D4 00 D4
+	 336 25 11 = #O_O_@__O#  : len=10 : NO 00 NO
+	 337 25 12 = #O_O_@O_O#  : len=10 : NO 00 D3
+	 338 25 13 = #O_O_@_OO#  : len=10 : NO 00 NO
+	 339 25 14 = #O_O_@OOO#  : len=10 : NO 00 D4
+	 340 25 15 = #O_O_@____# : len=11 : NO 00 NO
+	 341 25 16 = #O_O_@O___# : len=11 : NO 00 D3
+	 342 25 17 = #O_O_@_O__# : len=11 : NO 00 NO
+	 343 25 18 = #O_O_@OO__# : len=11 : D4 00 D4
+	 344 25 19 = #O_O_@__O_# : len=11 : NO 00 NO
+	 345 25 20 = #O_O_@O_O_# : len=11 : NO 00 D3
+	 346 25 21 = #O_O_@_OO_# : len=11 : NO 00 D3
+	 347 25 22 = #O_O_@OOO_# : len=11 : S4 00 H4
+	 348 25 23 = #O_O_@___O# : len=11 : NO 00 NO
+	 349 25 24 = #O_O_@O__O# : len=11 : NO 00 D3
+	 350 25 25 = #O_O_@_O_O# : len=11 : NO 00 NO
+	 351 26  0 = #O_OO@#     : len= 7 : D4 00 D4
+	 352 26  1 = #O_OO@_#    : len= 8 : D4 00 D4
+	 353 26  2 = #O_OO@O#    : len= 8 : NO 00 D4
+	 354 26  3 = #O_OO@__#   : len= 9 : D4 00 D4
+	 355 26  4 = #O_OO@O_#   : len= 9 : S4 00 H4
+	 356 26  5 = #O_OO@_O#   : len= 9 : X4 00 X4
+	 357 26  6 = #O_OO@OO#   : len= 9 : L5 00 L5
+	 358 26  7 = #O_OO@___#  : len=10 : D4 00 D4
+	 359 26  8 = #O_OO@O__#  : len=10 : S4 00 H4
+	 360 26  9 = #O_OO@_O_#  : len=10 : X4 00 X4
+	 361 26 10 = #O_OO@OO_#  : len=10 : L5 00 L5
+	 362 26 11 = #O_OO@__O#  : len=10 : D4 00 D4
+	 363 26 12 = #O_OO@O_O#  : len=10 : NO 00 H4
+	 364 26 13 = #O_OO@_OO#  : len=10 : D4 00 X4
+	 365 26 14 = #O_OO@OOO#  : len=10 : L6 00 L6
+	 366 26 15 = #O_OO@____# : len=11 : D4 00 D4
+	 367 26 16 = #O_OO@O___# : len=11 : S4 00 H4
+	 368 26 17 = #O_OO@_O__# : len=11 : X4 00 X4
+	 369 26 18 = #O_OO@OO__# : len=11 : L5 00 L5
+	 370 26 19 = #O_OO@__O_# : len=11 : D4 00 D4
+	 371 26 20 = #O_OO@O_O_# : len=11 : NO 00 H4
+	 372 26 21 = #O_OO@_OO_# : len=11 : D4 00 X4
+	 373 26 22 = #O_OO@OOO_# : len=11 : L6 00 L6
+	 374 26 23 = #O_OO@___O# : len=11 : D4 00 D4
+	 375 26 24 = #O_OO@O__O# : len=11 : S4 00 H4
+	 376 26 25 = #O_OO@_O_O# : len=11 : X4 00 X4
+	 377 26 26 = #O_OO@OO_O# : len=11 : L5 00 L5
+	 378 27  0 = #OO__@#     : len= 7 : NO 00 NO
+	 379 27  1 = #OO__@_#    : len= 8 : NO 00 NO
+	 380 27  2 = #OO__@O#    : len= 8 : NO 00 NO
+	 381 27  3 = #OO__@__#   : len= 9 : NO 00 NO
+	 382 27  4 = #OO__@O_#   : len= 9 : NO 00 NO
+	 383 27  5 = #OO__@_O#   : len= 9 : NO 00 NO
+	 384 27  6 = #OO__@OO#   : len= 9 : NO 00 NO
+	 385 27  7 = #OO__@___#  : len=10 : NO 00 NO
+	 386 27  8 = #OO__@O__#  : len=10 : NO 00 NO
+	 387 27  9 = #OO__@_O_#  : len=10 : NO 00 NO
+	 388 27 10 = #OO__@OO_#  : len=10 : NO 00 H3
+	 389 27 11 = #OO__@__O#  : len=10 : NO 00 NO
+	 390 27 12 = #OO__@O_O#  : len=10 : NO 00 NO
+	 391 27 13 = #OO__@_OO#  : len=10 : NO 00 NO
+	 392 27 14 = #OO__@OOO#  : len=10 : S4 00 S4
+	 393 27 15 = #OO__@____# : len=11 : NO 00 NO
+	 394 27 16 = #OO__@O___# : len=11 : NO 00 NO
+	 395 27 17 = #OO__@_O__# : len=11 : NO 00 NO
+	 396 27 18 = #OO__@OO__# : len=11 : H3 13 H3
+	 397 27 19 = #OO__@__O_# : len=11 : NO 00 NO
+	 398 27 20 = #OO__@O_O_# : len=11 : D3 02 D3
+	 399 27 21 = #OO__@_OO_# : len=11 : D3 01 D3
+	 400 27 22 = #OO__@OOO_# : len=11 : H4 00 H4
+	 401 27 23 = #OO__@___O# : len=11 : NO 00 NO
+	 402 27 24 = #OO__@O__O# : len=11 : NO 00 NO
+	 403 27 25 = #OO__@_O_O# : len=11 : NO 00 NO
+	 404 27 26 = #OO__@OO_O# : len=11 : D4 00 D4
+	 405 27 27 = #OO__@__OO# : len=11 : NO 00 NO
+	 406 28  0 = #OO_O@#     : len= 7 : D4 00 D4
+	 407 28  1 = #OO_O@_#    : len= 8 : D4 00 D4
+	 408 28  2 = #OO_O@O#    : len= 8 : NO 00 D4
+	 409 28  3 = #OO_O@__#   : len= 9 : D4 00 D4
+	 410 28  4 = #OO_O@O_#   : len= 9 : NO 00 D4
+	 411 28  5 = #OO_O@_O#   : len= 9 : D4 00 D4
+	 412 28  6 = #OO_O@OO#   : len= 9 : NO 00 D4
+	 413 28  7 = #OO_O@___#  : len=10 : D4 00 D4
+	 414 28  8 = #OO_O@O__#  : len=10 : NO 00 D4
+	 415 28  9 = #OO_O@_O_#  : len=10 : D4 00 D4
+	 416 28 10 = #OO_O@OO_#  : len=10 : S4 00 H4
+	 417 28 11 = #OO_O@__O#  : len=10 : D4 00 D4
+	 418 28 12 = #OO_O@O_O#  : len=10 : D4 00 X4
+	 419 28 13 = #OO_O@_OO#  : len=10 : X4 00 X4
+	 420 28 14 = #OO_O@OOO#  : len=10 : L5 00 L5
+	 421 28 15 = #OO_O@____# : len=11 : D4 00 D4
+	 422 28 16 = #OO_O@O___# : len=11 : NO 00 D4
+	 423 28 17 = #OO_O@_O__# : len=11 : D4 00 D4
+	 424 28 18 = #OO_O@OO__# : len=11 : S4 00 H4
+	 425 28 19 = #OO_O@__O_# : len=11 : D4 00 D4
+	 426 28 20 = #OO_O@O_O_# : len=11 : D4 00 X4
+	 427 28 21 = #OO_O@_OO_# : len=11 : X4 00 X4
+	 428 28 22 = #OO_O@OOO_# : len=11 : L5 00 L5
+	 429 28 23 = #OO_O@___O# : len=11 : D4 00 D4
+	 430 28 24 = #OO_O@O__O# : len=11 : NO 00 D4
+	 431 28 25 = #OO_O@_O_O# : len=11 : D4 00 D4
+	 432 28 26 = #OO_O@OO_O# : len=11 : NO 00 H4
+	 433 28 27 = #OO_O@__OO# : len=11 : D4 00 D4
+	 434 28 28 = #OO_O@O_OO# : len=11 : NO 00 X4
+	 435 29  0 = #OOO_@#     : len= 7 : D4 00 D4
+	 436 29  1 = #OOO_@_#    : len= 8 : D4 00 D4
+	 437 29  2 = #OOO_@O#    : len= 8 : NO 00 D4
+	 438 29  3 = #OOO_@__#   : len= 9 : D4 00 D4
+	 439 29  4 = #OOO_@O_#   : len= 9 : NO 00 D4
+	 440 29  5 = #OOO_@_O#   : len= 9 : D4 00 D4
+	 441 29  6 = #OOO_@OO#   : len= 9 : NO 00 D4
+	 442 29  7 = #OOO_@___#  : len=10 : D4 00 D4
+	 443 29  8 = #OOO_@O__#  : len=10 : NO 00 D4
+	 444 29  9 = #OOO_@_O_#  : len=10 : D4 00 D4
+	 445 29 10 = #OOO_@OO_#  : len=10 : NO 00 D4
+	 446 29 11 = #OOO_@__O#  : len=10 : D4 00 D4
+	 447 29 12 = #OOO_@O_O#  : len=10 : NO 00 D4
+	 448 29 13 = #OOO_@_OO#  : len=10 : D4 00 D4
+	 449 29 14 = #OOO_@OOO#  : len=10 : NO 00 D4
+	 450 29 15 = #OOO_@____# : len=11 : D4 00 D4
+	 451 29 16 = #OOO_@O___# : len=11 : NO 00 D4
+	 452 29 17 = #OOO_@_O__# : len=11 : D4 00 D4
+	 453 29 18 = #OOO_@OO__# : len=11 : NO 00 D4
+	 454 29 19 = #OOO_@__O_# : len=11 : D4 00 D4
+	 455 29 20 = #OOO_@O_O_# : len=11 : NO 00 D4
+	 456 29 21 = #OOO_@_OO_# : len=11 : D4 00 D4
+	 457 29 22 = #OOO_@OOO_# : len=11 : S4 00 H4
+	 458 29 23 = #OOO_@___O# : len=11 : D4 00 D4
+	 459 29 24 = #OOO_@O__O# : len=11 : NO 00 D4
+	 460 29 25 = #OOO_@_O_O# : len=11 : D4 00 D4
+	 461 29 26 = #OOO_@OO_O# : len=11 : D4 00 X4
+	 462 29 27 = #OOO_@__OO# : len=11 : D4 00 D4
+	 463 29 28 = #OOO_@O_OO# : len=11 : D4 00 X4
+	 464 29 29 = #OOO_@_OOO# : len=11 : X4 00 X4
+	 465 30  0 = #OOOO@#     : len= 7 : L5 00 L5
+	 466 30  1 = #OOOO@_#    : len= 8 : L5 00 L5
+	 467 30  2 = #OOOO@O#    : len= 8 : L6 00 L6
+	 468 30  3 = #OOOO@__#   : len= 9 : L5 00 L5
+	 469 30  4 = #OOOO@O_#   : len= 9 : L6 00 L6
+	 470 30  5 = #OOOO@_O#   : len= 9 : L5 00 L5
+	 471 30  6 = #OOOO@OO#   : len= 9 : L6 00 L6
+	 472 30  7 = #OOOO@___#  : len=10 : L5 00 L5
+	 473 30  8 = #OOOO@O__#  : len=10 : L6 00 L6
+	 474 30  9 = #OOOO@_O_#  : len=10 : L5 00 L5
+	 475 30 10 = #OOOO@OO_#  : len=10 : L6 00 L6
+	 476 30 11 = #OOOO@__O#  : len=10 : L5 00 L5
+	 477 30 12 = #OOOO@O_O#  : len=10 : L6 00 L6
+	 478 30 13 = #OOOO@_OO#  : len=10 : L5 00 L5
+	 479 30 14 = #OOOO@OOO#  : len=10 : L6 00 L6
+	 480 30 15 = #OOOO@____# : len=11 : L5 00 L5
+	 481 30 16 = #OOOO@O___# : len=11 : L6 00 L6
+	 482 30 17 = #OOOO@_O__# : len=11 : L5 00 L5
+	 483 30 18 = #OOOO@OO__# : len=11 : L6 00 L6
+	 484 30 19 = #OOOO@__O_# : len=11 : L5 00 L5
+	 485 30 20 = #OOOO@O_O_# : len=11 : L6 00 L6
+	 486 30 21 = #OOOO@_OO_# : len=11 : L5 00 L5
+	 487 30 22 = #OOOO@OOO_# : len=11 : L6 00 L6
+	 488 30 23 = #OOOO@___O# : len=11 : L5 00 L5
+	 489 30 24 = #OOOO@O__O# : len=11 : L6 00 L6
+	 490 30 25 = #OOOO@_O_O# : len=11 : L5 00 L5
+	 491 30 26 = #OOOO@OO_O# : len=11 : L6 00 L6
+	 492 30 27 = #OOOO@__OO# : len=11 : L5 00 L5
+	 493 30 28 = #OOOO@O_OO# : len=11 : L6 00 L6
+	 494 30 29 = #OOOO@_OOO# : len=11 : L5 00 L5
+	 495 30 30 = #OOOO@OOOO# : len=11 : L6 00 L6
+	 496 31  0 = _____@#     : len= 7 : NO 00 NO
+	 497 31  1 = _____@_#    : len= 8 : NO 00 NO
+	 498 31  2 = _____@O#    : len= 8 : NO 00 NO
+	 499 31  3 = _____@__#   : len= 9 : NO 00 NO
+	 500 31  4 = _____@O_#   : len= 9 : NO 00 NO
+	 501 31  5 = _____@_O#   : len= 9 : NO 00 NO
+	 502 31  6 = _____@OO#   : len= 9 : NO 00 NO
+	 503 31  7 = _____@___#  : len=10 : NO 00 NO
+	 504 31  8 = _____@O__#  : len=10 : NO 00 NO
+	 505 31  9 = _____@_O_#  : len=10 : NO 00 NO
+	 506 31 10 = _____@OO_#  : len=10 : H3 13 H3
+	 507 31 11 = _____@__O#  : len=10 : NO 00 NO
+	 508 31 12 = _____@O_O#  : len=10 : NO 00 NO
+	 509 31 13 = _____@_OO#  : len=10 : NO 00 NO
+	 510 31 14 = _____@OOO#  : len=10 : S4 00 S4
+	 511 31 15 = _____@____# : len=11 : NO 00 NO
+	 512 31 16 = _____@O___# : len=11 : NO 00 NO
+	 513 31 17 = _____@_O__# : len=11 : NO 00 NO
+	 514 31 18 = _____@OO__# : len=11 : H3 13 H3
+	 515 31 19 = _____@__O_# : len=11 : NO 00 NO
+	 516 31 20 = _____@O_O_# : len=11 : D3 02 D3
+	 517 31 21 = _____@_OO_# : len=11 : D3 01 D3
+	 518 31 22 = _____@OOO_# : len=11 : H4 00 H4
+	 519 31 23 = _____@___O# : len=11 : NO 00 NO
+	 520 31 24 = _____@O__O# : len=11 : NO 00 NO
+	 521 31 25 = _____@_O_O# : len=11 : NO 00 NO
+	 522 31 26 = _____@OO_O# : len=11 : D4 00 D4
+	 523 31 27 = _____@__OO# : len=11 : NO 00 NO
+	 524 31 28 = _____@O_OO# : len=11 : D4 00 D4
+	 525 31 29 = _____@_OOO# : len=11 : D4 00 D4
+	 526 31 30 = _____@OOOO# : len=11 : L5 00 L5
+	 527 31 31 = _____@_____ : len=11 : NO 00 NO
+	 528 32  0 = ____O@#     : len= 7 : NO 00 NO
+	 529 32  1 = ____O@_#    : len= 8 : NO 00 NO
+	 530 32  2 = ____O@O#    : len= 8 : NO 00 NO
+	 531 32  3 = ____O@__#   : len= 9 : NO 00 NO
+	 532 32  4 = ____O@O_#   : len= 9 : H3 22 H3
+	 533 32  5 = ____O@_O#   : len= 9 : NO 00 NO
+	 534 32  6 = ____O@OO#   : len= 9 : S4 00 S4
+	 535 32  7 = ____O@___#  : len=10 : NO 00 NO
+	 536 32  8 = ____O@O__#  : len=10 : H3 22 H3
+	 537 32  9 = ____O@_O_#  : len=10 : D3 01 D3
+	 538 32 10 = ____O@OO_#  : len=10 : H4 00 H4
+	 539 32 11 = ____O@__O#  : len=10 : NO 00 NO
+	 540 32 12 = ____O@O_O#  : len=10 : D4 00 D4
+	 541 32 13 = ____O@_OO#  : len=10 : D4 00 D4
+	 542 32 14 = ____O@OOO#  : len=10 : L5 00 L5
+	 543 32 15 = ____O@____# : len=11 : NO 00 NO
+	 544 32 16 = ____O@O___# : len=11 : H3 22 H3
+	 545 32 17 = ____O@_O__# : len=11 : D3 01 D3
+	 546 32 18 = ____O@OO__# : len=11 : H4 00 H4
+	 547 32 19 = ____O@__O_# : len=11 : NO 00 NO
+	 548 32 20 = ____O@O_O_# : len=11 : D4 00 D4
+	 549 32 21 = ____O@_OO_# : len=11 : D4 00 D4
+	 550 32 22 = ____O@OOO_# : len=11 : L5 00 L5
+	 551 32 23 = ____O@___O# : len=11 : NO 00 NO
+	 552 32 24 = ____O@O__O# : len=11 : H3 22 H3
+	 553 32 25 = ____O@_O_O# : len=11 : NO 00 D3
+	 554 32 26 = ____O@OO_O# : len=11 : S4 00 H4
+	 555 32 27 = ____O@__OO# : len=11 : NO 00 NO
+	 556 32 28 = ____O@O_OO# : len=11 : NO 00 D4
+	 557 32 29 = ____O@_OOO# : len=11 : NO 00 D4
+	 558 32 30 = ____O@OOOO# : len=11 : L6 00 L6
+	 559 32 31 = ____O@_____ : len=11 : NO 00 NO
+	 560 32 32 = ____O@O____ : len=11 : H3 22 H3
+	 561 33  0 = ___O_@#     : len= 7 : NO 00 NO
+	 562 33  1 = ___O_@_#    : len= 8 : NO 00 NO
+	 563 33  2 = ___O_@O#    : len= 8 : NO 00 NO
+	 564 33  3 = ___O_@__#   : len= 9 : NO 00 NO
+	 565 33  4 = ___O_@O_#   : len= 9 : D3 10 D3
+	 566 33  5 = ___O_@_O#   : len= 9 : NO 00 NO
+	 567 33  6 = ___O_@OO#   : len= 9 : D4 00 D4
+	 568 33  7 = ___O_@___#  : len=10 : NO 00 NO
+	 569 33  8 = ___O_@O__#  : len=10 : D3 10 D3
+	 570 33  9 = ___O_@_O_#  : len=10 : NO 00 NO
+	 571 33 10 = ___O_@OO_#  : len=10 : D4 00 D4
+	 572 33 11 = ___O_@__O#  : len=10 : NO 00 NO
+	 573 33 12 = ___O_@O_O#  : len=10 : NO 00 D3
+	 574 33 13 = ___O_@_OO#  : len=10 : NO 00 NO
+	 575 33 14 = ___O_@OOO#  : len=10 : NO 00 D4
+	 576 33 15 = ___O_@____# : len=11 : NO 00 NO
+	 577 33 16 = ___O_@O___# : len=11 : D3 10 D3
+	 578 33 17 = ___O_@_O__# : len=11 : NO 00 NO
+	 579 33 18 = ___O_@OO__# : len=11 : D4 00 D4
+	 580 33 19 = ___O_@__O_# : len=11 : NO 00 NO
+	 581 33 20 = ___O_@O_O_# : len=11 : NO 00 D3
+	 582 33 21 = ___O_@_OO_# : len=11 : NO 00 D3
+	 583 33 22 = ___O_@OOO_# : len=11 : S4 00 H4
+	 584 33 23 = ___O_@___O# : len=11 : NO 00 NO
+	 585 33 24 = ___O_@O__O# : len=11 : D3 10 D3
+	 586 33 25 = ___O_@_O_O# : len=11 : NO 00 NO
+	 587 33 26 = ___O_@OO_O# : len=11 : X4 00 X4
+	 588 33 27 = ___O_@__OO# : len=11 : NO 00 NO
+	 589 33 28 = ___O_@O_OO# : len=11 : D4 00 D4
+	 590 33 29 = ___O_@_OOO# : len=11 : D4 00 D4
+	 591 33 30 = ___O_@OOOO# : len=11 : L5 00 L5
+	 592 33 31 = ___O_@_____ : len=11 : NO 00 NO
+	 593 33 32 = ___O_@O____ : len=11 : D3 10 D3
+	 594 33 33 = ___O_@_O___ : len=11 : NO 00 NO
+	 595 34  0 = ___OO@#     : len= 7 : NO 00 NO
+	 596 34  1 = ___OO@_#    : len= 8 : H3 31 H3
+	 597 34  2 = ___OO@O#    : len= 8 : S4 00 S4
+	 598 34  3 = ___OO@__#   : len= 9 : H3 31 H3
+	 599 34  4 = ___OO@O_#   : len= 9 : H4 00 H4
+	 600 34  5 = ___OO@_O#   : len= 9 : D4 00 D4
+	 601 34  6 = ___OO@OO#   : len= 9 : L5 00 L5
+	 602 34  7 = ___OO@___#  : len=10 : H3 31 H3
+	 603 34  8 = ___OO@O__#  : len=10 : H4 00 H4
+	 604 34  9 = ___OO@_O_#  : len=10 : D4 00 D4
+	 605 34 10 = ___OO@OO_#  : len=10 : L5 00 L5
+	 606 34 11 = ___OO@__O#  : len=10 : H3 31 H3
+	 607 34 12 = ___OO@O_O#  : len=10 : S4 00 H4
+	 608 34 13 = ___OO@_OO#  : len=10 : NO 00 D4
+	 609 34 14 = ___OO@OOO#  : len=10 : L6 00 L6
+	 610 34 15 = ___OO@____# : len=11 : H3 31 H3
+	 611 34 16 = ___OO@O___# : len=11 : H4 00 H4
+	 612 34 17 = ___OO@_O__# : len=11 : D4 00 D4
+	 613 34 18 = ___OO@OO__# : len=11 : L5 00 L5
+	 614 34 19 = ___OO@__O_# : len=11 : H3 31 H3
+	 615 34 20 = ___OO@O_O_# : len=11 : S4 00 H4
+	 616 34 21 = ___OO@_OO_# : len=11 : NO 00 D4
+	 617 34 22 = ___OO@OOO_# : len=11 : L6 00 L6
+	 618 34 23 = ___OO@___O# : len=11 : H3 31 H3
+	 619 34 24 = ___OO@O__O# : len=11 : H4 00 H4
+	 620 34 25 = ___OO@_O_O# : len=11 : D4 00 D4
+	 621 34 26 = ___OO@OO_O# : len=11 : L5 00 L5
+	 622 34 27 = ___OO@__OO# : len=11 : H3 31 H3
+	 623 34 28 = ___OO@O_OO# : len=11 : S4 00 H4
+	 624 34 29 = ___OO@_OOO# : len=11 : NO 00 D4
+	 625 34 30 = ___OO@OOOO# : len=11 : L6 00 L6
+	 626 34 31 = ___OO@_____ : len=11 : H3 31 H3
+	 627 34 32 = ___OO@O____ : len=11 : H4 00 H4
+	 628 34 33 = ___OO@_O___ : len=11 : D4 00 D4
+	 629 34 34 = ___OO@OO___ : len=11 : L5 00 L5
+	 630 35  0 = __O__@#     : len= 7 : NO 00 NO
+	 631 35  1 = __O__@_#    : len= 8 : NO 00 NO
+	 632 35  2 = __O__@O#    : len= 8 : NO 00 NO
+	 633 35  3 = __O__@__#   : len= 9 : NO 00 NO
+	 634 35  4 = __O__@O_#   : len= 9 : NO 00 NO
+	 635 35  5 = __O__@_O#   : len= 9 : NO 00 NO
+	 636 35  6 = __O__@OO#   : len= 9 : NO 00 NO
+	 637 35  7 = __O__@___#  : len=10 : NO 00 NO
+	 638 35  8 = __O__@O__#  : len=10 : NO 00 NO
+	 639 35  9 = __O__@_O_#  : len=10 : NO 00 NO
+	 640 35 10 = __O__@OO_#  : len=10 : NO 00 H3
+	 641 35 11 = __O__@__O#  : len=10 : NO 00 NO
+	 642 35 12 = __O__@O_O#  : len=10 : NO 00 NO
+	 643 35 13 = __O__@_OO#  : len=10 : NO 00 NO
+	 644 35 14 = __O__@OOO#  : len=10 : S4 00 S4
+	 645 35 15 = __O__@____# : len=11 : NO 00 NO
+	 646 35 16 = __O__@O___# : len=11 : NO 00 NO
+	 647 35 17 = __O__@_O__# : len=11 : NO 00 NO
+	 648 35 18 = __O__@OO__# : len=11 : H3 13 H3
+	 649 35 19 = __O__@__O_# : len=11 : NO 00 NO
+	 650 35 20 = __O__@O_O_# : len=11 : D3 02 D3
+	 651 35 21 = __O__@_OO_# : len=11 : D3 01 D3
+	 652 35 22 = __O__@OOO_# : len=11 : H4 00 H4
+	 653 35 23 = __O__@___O# : len=11 : NO 00 NO
+	 654 35 24 = __O__@O__O# : len=11 : NO 00 NO
+	 655 35 25 = __O__@_O_O# : len=11 : NO 00 NO
+	 656 35 26 = __O__@OO_O# : len=11 : D4 00 D4
+	 657 35 27 = __O__@__OO# : len=11 : NO 00 NO
+	 658 35 28 = __O__@O_OO# : len=11 : D4 00 D4
+	 659 35 29 = __O__@_OOO# : len=11 : D4 00 D4
+	 660 35 30 = __O__@OOOO# : len=11 : L5 00 L5
+	 661 35 31 = __O__@_____ : len=11 : NO 00 NO
+	 662 35 32 = __O__@O____ : len=11 : NO 00 NO
+	 663 35 33 = __O__@_O___ : len=11 : NO 00 NO
+	 664 35 34 = __O__@OO___ : len=11 : H3 13 H3
+	 665 35 35 = __O__@__O__ : len=11 : NO 00 NO
+	 666 36  0 = __O_O@#     : len= 7 : NO 00 NO
+	 667 36  1 = __O_O@_#    : len= 8 : D3 20 D3
+	 668 36  2 = __O_O@O#    : len= 8 : D4 00 D4
+	 669 36  3 = __O_O@__#   : len= 9 : D3 20 D3
+	 670 36  4 = __O_O@O_#   : len= 9 : D4 00 D4
+	 671 36  5 = __O_O@_O#   : len= 9 : NO 00 D3
+	 672 36  6 = __O_O@OO#   : len= 9 : NO 00 D4
+	 673 36  7 = __O_O@___#  : len=10 : D3 20 D3
+	 674 36  8 = __O_O@O__#  : len=10 : D4 00 D4
+	 675 36  9 = __O_O@_O_#  : len=10 : NO 00 D3
+	 676 36 10 = __O_O@OO_#  : len=10 : S4 00 H4
+	 677 36 11 = __O_O@__O#  : len=10 : D3 20 D3
+	 678 36 12 = __O_O@O_O#  : len=10 : X4 00 X4
+	 679 36 13 = __O_O@_OO#  : len=10 : D4 00 D4
+	 680 36 14 = __O_O@OOO#  : len=10 : L5 00 L5
+	 681 36 15 = __O_O@____# : len=11 : D3 20 D3
+	 682 36 16 = __O_O@O___# : len=11 : D4 00 D4
+	 683 36 17 = __O_O@_O__# : len=11 : NO 00 D3
+	 684 36 18 = __O_O@OO__# : len=11 : S4 00 H4
+	 685 36 19 = __O_O@__O_# : len=11 : D3 20 D3
+	 686 36 20 = __O_O@O_O_# : len=11 : X4 00 X4
+	 687 36 21 = __O_O@_OO_# : len=11 : D4 00 D4
+	 688 36 22 = __O_O@OOO_# : len=11 : L5 00 L5
+	 689 36 23 = __O_O@___O# : len=11 : D3 20 D3
+	 690 36 24 = __O_O@O__O# : len=11 : D4 00 D4
+	 691 36 25 = __O_O@_O_O# : len=11 : NO 00 D3
+	 692 36 26 = __O_O@OO_O# : len=11 : NO 00 H4
+	 693 36 27 = __O_O@__OO# : len=11 : D3 20 D3
+	 694 36 28 = __O_O@O_OO# : len=11 : D4 00 X4
+	 695 36 29 = __O_O@_OOO# : len=11 : NO 00 D4
+	 696 36 30 = __O_O@OOOO# : len=11 : L6 00 L6
+	 697 36 31 = __O_O@_____ : len=11 : D3 20 D3
+	 698 36 32 = __O_O@O____ : len=11 : D4 00 D4
+	 699 36 33 = __O_O@_O___ : len=11 : NO 00 D3
+	 700 36 34 = __O_O@OO___ : len=11 : S4 00 H4
+	 701 36 35 = __O_O@__O__ : len=11 : D3 20 D3
+	 702 36 36 = __O_O@O_O__ : len=11 : X4 00 X4
+	 703 37  0 = __OO_@#     : len= 7 : NO 00 NO
+	 704 37  1 = __OO_@_#    : len= 8 : D3 10 D3
+	 705 37  2 = __OO_@O#    : len= 8 : D4 00 D4
+	 706 37  3 = __OO_@__#   : len= 9 : D3 10 D3
+	 707 37  4 = __OO_@O_#   : len= 9 : D4 00 D4
+	 708 37  5 = __OO_@_O#   : len= 9 : NO 00 D3
+	 709 37  6 = __OO_@OO#   : len= 9 : NO 00 D4
+	 710 37  7 = __OO_@___#  : len=10 : D3 10 D3
+	 711 37  8 = __OO_@O__#  : len=10 : D4 00 D4
+	 712 37  9 = __OO_@_O_#  : len=10 : NO 00 D3
+	 713 37 10 = __OO_@OO_#  : len=10 : NO 00 D4
+	 714 37 11 = __OO_@__O#  : len=10 : D3 10 D3
+	 715 37 12 = __OO_@O_O#  : len=10 : D4 00 D4
+	 716 37 13 = __OO_@_OO#  : len=10 : NO 00 D3
+	 717 37 14 = __OO_@OOO#  : len=10 : NO 00 D4
+	 718 37 15 = __OO_@____# : len=11 : D3 10 D3
+	 719 37 16 = __OO_@O___# : len=11 : D4 00 D4
+	 720 37 17 = __OO_@_O__# : len=11 : NO 00 D3
+	 721 37 18 = __OO_@OO__# : len=11 : NO 00 D4
+	 722 37 19 = __OO_@__O_# : len=11 : D3 10 D3
+	 723 37 20 = __OO_@O_O_# : len=11 : D4 00 D4
+	 724 37 21 = __OO_@_OO_# : len=11 : NO 00 D3
+	 725 37 22 = __OO_@OOO_# : len=11 : S4 00 H4
+	 726 37 23 = __OO_@___O# : len=11 : D3 10 D3
+	 727 37 24 = __OO_@O__O# : len=11 : D4 00 D4
+	 728 37 25 = __OO_@_O_O# : len=11 : NO 00 D3
+	 729 37 26 = __OO_@OO_O# : len=11 : D4 00 X4
+	 730 37 27 = __OO_@__OO# : len=11 : D3 10 D3
+	 731 37 28 = __OO_@O_OO# : len=11 : X4 00 X4
+	 732 37 29 = __OO_@_OOO# : len=11 : D4 00 D4
+	 733 37 30 = __OO_@OOOO# : len=11 : L5 00 L5
+	 734 37 31 = __OO_@_____ : len=11 : D3 10 D3
+	 735 37 32 = __OO_@O____ : len=11 : D4 00 D4
+	 736 37 33 = __OO_@_O___ : len=11 : NO 00 D3
+	 737 37 34 = __OO_@OO___ : len=11 : NO 00 D4
+	 738 37 35 = __OO_@__O__ : len=11 : D3 10 D3
+	 739 37 36 = __OO_@O_O__ : len=11 : D4 00 D4
+	 740 37 37 = __OO_@_OO__ : len=11 : NO 00 D3
+	 741 38  0 = __OOO@#     : len= 7 : S4 00 S4
+	 742 38  1 = __OOO@_#    : len= 8 : H4 00 H4
+	 743 38  2 = __OOO@O#    : len= 8 : L5 00 L5
+	 744 38  3 = __OOO@__#   : len= 9 : H4 00 H4
+	 745 38  4 = __OOO@O_#   : len= 9 : L5 00 L5
+	 746 38  5 = __OOO@_O#   : len= 9 : S4 00 H4
+	 747 38  6 = __OOO@OO#   : len= 9 : L6 00 L6
+	 748 38  7 = __OOO@___#  : len=10 : H4 00 H4
+	 749 38  8 = __OOO@O__#  : len=10 : L5 00 L5
+	 750 38  9 = __OOO@_O_#  : len=10 : S4 00 H4
+	 751 38 10 = __OOO@OO_#  : len=10 : L6 00 L6
+	 752 38 11 = __OOO@__O#  : len=10 : H4 00 H4
+	 753 38 12 = __OOO@O_O#  : len=10 : L5 00 L5
+	 754 38 13 = __OOO@_OO#  : len=10 : S4 00 H4
+	 755 38 14 = __OOO@OOO#  : len=10 : L6 00 L6
+	 756 38 15 = __OOO@____# : len=11 : H4 00 H4
+	 757 38 16 = __OOO@O___# : len=11 : L5 00 L5
+	 758 38 17 = __OOO@_O__# : len=11 : S4 00 H4
+	 759 38 18 = __OOO@OO__# : len=11 : L6 00 L6
+	 760 38 19 = __OOO@__O_# : len=11 : H4 00 H4
+	 761 38 20 = __OOO@O_O_# : len=11 : L5 00 L5
+	 762 38 21 = __OOO@_OO_# : len=11 : S4 00 H4
+	 763 38 22 = __OOO@OOO_# : len=11 : L6 00 L6
+	 764 38 23 = __OOO@___O# : len=11 : H4 00 H4
+	 765 38 24 = __OOO@O__O# : len=11 : L5 00 L5
+	 766 38 25 = __OOO@_O_O# : len=11 : S4 00 H4
+	 767 38 26 = __OOO@OO_O# : len=11 : L6 00 L6
+	 768 38 27 = __OOO@__OO# : len=11 : H4 00 H4
+	 769 38 28 = __OOO@O_OO# : len=11 : L5 00 L5
+	 770 38 29 = __OOO@_OOO# : len=11 : S4 00 H4
+	 771 38 30 = __OOO@OOOO# : len=11 : L6 00 L6
+	 772 38 31 = __OOO@_____ : len=11 : H4 00 H4
+	 773 38 32 = __OOO@O____ : len=11 : L5 00 L5
+	 774 38 33 = __OOO@_O___ : len=11 : S4 00 H4
+	 775 38 34 = __OOO@OO___ : len=11 : L6 00 L6
+	 776 38 35 = __OOO@__O__ : len=11 : H4 00 H4
+	 777 38 36 = __OOO@O_O__ : len=11 : L5 00 L5
+	 778 38 37 = __OOO@_OO__ : len=11 : S4 00 H4
+	 779 38 38 = __OOO@OOO__ : len=11 : L6 00 L6
+	 780 39  0 = _O___@#     : len= 7 : NO 00 NO
+	 781 39  1 = _O___@_#    : len= 8 : NO 00 NO
+	 782 39  2 = _O___@O#    : len= 8 : NO 00 NO
+	 783 39  3 = _O___@__#   : len= 9 : NO 00 NO
+	 784 39  4 = _O___@O_#   : len= 9 : NO 00 NO
+	 785 39  5 = _O___@_O#   : len= 9 : NO 00 NO
+	 786 39  6 = _O___@OO#   : len= 9 : NO 00 NO
+	 787 39  7 = _O___@___#  : len=10 : NO 00 NO
+	 788 39  8 = _O___@O__#  : len=10 : NO 00 NO
+	 789 39  9 = _O___@_O_#  : len=10 : NO 00 NO
+	 790 39 10 = _O___@OO_#  : len=10 : H3 13 H3
+	 791 39 11 = _O___@__O#  : len=10 : NO 00 NO
+	 792 39 12 = _O___@O_O#  : len=10 : NO 00 NO
+	 793 39 13 = _O___@_OO#  : len=10 : NO 00 NO
+	 794 39 14 = _O___@OOO#  : len=10 : S4 00 S4
+	 795 39 15 = _O___@____# : len=11 : NO 00 NO
+	 796 39 16 = _O___@O___# : len=11 : NO 00 NO
+	 797 39 17 = _O___@_O__# : len=11 : NO 00 NO
+	 798 39 18 = _O___@OO__# : len=11 : H3 13 H3
+	 799 39 19 = _O___@__O_# : len=11 : NO 00 NO
+	 800 39 20 = _O___@O_O_# : len=11 : D3 02 D3
+	 801 39 21 = _O___@_OO_# : len=11 : D3 01 D3
+	 802 39 22 = _O___@OOO_# : len=11 : H4 00 H4
+	 803 39 23 = _O___@___O# : len=11 : NO 00 NO
+	 804 39 24 = _O___@O__O# : len=11 : NO 00 NO
+	 805 39 25 = _O___@_O_O# : len=11 : NO 00 NO
+	 806 39 26 = _O___@OO_O# : len=11 : D4 00 D4
+	 807 39 27 = _O___@__OO# : len=11 : NO 00 NO
+	 808 39 28 = _O___@O_OO# : len=11 : D4 00 D4
+	 809 39 29 = _O___@_OOO# : len=11 : D4 00 D4
+	 810 39 30 = _O___@OOOO# : len=11 : L5 00 L5
+	 811 39 31 = _O___@_____ : len=11 : NO 00 NO
+	 812 39 32 = _O___@O____ : len=11 : NO 00 NO
+	 813 39 33 = _O___@_O___ : len=11 : NO 00 NO
+	 814 39 34 = _O___@OO___ : len=11 : H3 13 H3
+	 815 39 35 = _O___@__O__ : len=11 : NO 00 NO
+	 816 39 36 = _O___@O_O__ : len=11 : D3 02 D3
+	 817 39 37 = _O___@_OO__ : len=11 : D3 01 D3
+	 818 39 38 = _O___@OOO__ : len=11 : H4 00 H4
+	 819 39 39 = _O___@___O_ : len=11 : NO 00 NO
+	 820 40  0 = _O__O@#     : len= 7 : NO 00 NO
+	 821 40  1 = _O__O@_#    : len= 8 : NO 00 NO
+	 822 40  2 = _O__O@O#    : len= 8 : NO 00 NO
+	 823 40  3 = _O__O@__#   : len= 9 : NO 00 NO
+	 824 40  4 = _O__O@O_#   : len= 9 : NO 00 H3
+	 825 40  5 = _O__O@_O#   : len= 9 : NO 00 NO
+	 826 40  6 = _O__O@OO#   : len= 9 : S4 00 S4
+	 827 40  7 = _O__O@___#  : len=10 : NO 00 NO
+	 828 40  8 = _O__O@O__#  : len=10 : H3 22 H3
+	 829 40  9 = _O__O@_O_#  : len=10 : D3 01 D3
+	 830 40 10 = _O__O@OO_#  : len=10 : H4 00 H4
+	 831 40 11 = _O__O@__O#  : len=10 : NO 00 NO
+	 832 40 12 = _O__O@O_O#  : len=10 : D4 00 D4
+	 833 40 13 = _O__O@_OO#  : len=10 : D4 00 D4
+	 834 40 14 = _O__O@OOO#  : len=10 : L5 00 L5
+	 835 40 15 = _O__O@____# : len=11 : NO 00 NO
+	 836 40 16 = _O__O@O___# : len=11 : H3 22 H3
+	 837 40 17 = _O__O@_O__# : len=11 : D3 01 D3
+	 838 40 18 = _O__O@OO__# : len=11 : H4 00 H4
+	 839 40 19 = _O__O@__O_# : len=11 : NO 00 NO
+	 840 40 20 = _O__O@O_O_# : len=11 : D4 00 D4
+	 841 40 21 = _O__O@_OO_# : len=11 : D4 00 D4
+	 842 40 22 = _O__O@OOO_# : len=11 : L5 00 L5
+	 843 40 23 = _O__O@___O# : len=11 : NO 00 NO
+	 844 40 24 = _O__O@O__O# : len=11 : NO 00 H3
+	 845 40 25 = _O__O@_O_O# : len=11 : NO 00 D3
+	 846 40 26 = _O__O@OO_O# : len=11 : S4 00 H4
+	 847 40 27 = _O__O@__OO# : len=11 : NO 00 NO
+	 848 40 28 = _O__O@O_OO# : len=11 : NO 00 D4
+	 849 40 29 = _O__O@_OOO# : len=11 : NO 00 D4
+	 850 40 30 = _O__O@OOOO# : len=11 : L6 00 L6
+	 851 40 31 = _O__O@_____ : len=11 : NO 00 NO
+	 852 40 32 = _O__O@O____ : len=11 : H3 22 H3
+	 853 40 33 = _O__O@_O___ : len=11 : D3 01 D3
+	 854 40 34 = _O__O@OO___ : len=11 : H4 00 H4
+	 855 40 35 = _O__O@__O__ : len=11 : NO 00 NO
+	 856 40 36 = _O__O@O_O__ : len=11 : D4 00 D4
+	 857 40 37 = _O__O@_OO__ : len=11 : D4 00 D4
+	 858 40 38 = _O__O@OOO__ : len=11 : L5 00 L5
+	 859 40 39 = _O__O@___O_ : len=11 : NO 00 NO
+	 860 40 40 = _O__O@O__O_ : len=11 : NO 00 H3
+	 861 41  0 = _O_O_@#     : len= 7 : NO 00 NO
+	 862 41  1 = _O_O_@_#    : len= 8 : NO 00 NO
+	 863 41  2 = _O_O_@O#    : len= 8 : NO 00 NO
+	 864 41  3 = _O_O_@__#   : len= 9 : NO 00 NO
+	 865 41  4 = _O_O_@O_#   : len= 9 : NO 00 D3
+	 866 41  5 = _O_O_@_O#   : len= 9 : NO 00 NO
+	 867 41  6 = _O_O_@OO#   : len= 9 : D4 00 D4
+	 868 41  7 = _O_O_@___#  : len=10 : NO 00 NO
+	 869 41  8 = _O_O_@O__#  : len=10 : NO 00 D3
+	 870 41  9 = _O_O_@_O_#  : len=10 : NO 00 NO
+	 871 41 10 = _O_O_@OO_#  : len=10 : D4 00 D4
+	 872 41 11 = _O_O_@__O#  : len=10 : NO 00 NO
+	 873 41 12 = _O_O_@O_O#  : len=10 : NO 00 D3
+	 874 41 13 = _O_O_@_OO#  : len=10 : NO 00 NO
+	 875 41 14 = _O_O_@OOO#  : len=10 : NO 00 D4
+	 876 41 15 = _O_O_@____# : len=11 : NO 00 NO
+	 877 41 16 = _O_O_@O___# : len=11 : NO 00 D3
+	 878 41 17 = _O_O_@_O__# : len=11 : NO 00 NO
+	 879 41 18 = _O_O_@OO__# : len=11 : D4 00 D4
+	 880 41 19 = _O_O_@__O_# : len=11 : NO 00 NO
+	 881 41 20 = _O_O_@O_O_# : len=11 : NO 00 D3
+	 882 41 21 = _O_O_@_OO_# : len=11 : NO 00 D3
+	 883 41 22 = _O_O_@OOO_# : len=11 : S4 00 H4
+	 884 41 23 = _O_O_@___O# : len=11 : NO 00 NO
+	 885 41 24 = _O_O_@O__O# : len=11 : NO 00 D3
+	 886 41 25 = _O_O_@_O_O# : len=11 : NO 00 NO
+	 887 41 26 = _O_O_@OO_O# : len=11 : X4 00 X4
+	 888 41 27 = _O_O_@__OO# : len=11 : NO 00 NO
+	 889 41 28 = _O_O_@O_OO# : len=11 : D4 00 D4
+	 890 41 29 = _O_O_@_OOO# : len=11 : D4 00 D4
+	 891 41 30 = _O_O_@OOOO# : len=11 : L5 00 L5
+	 892 41 31 = _O_O_@_____ : len=11 : NO 00 NO
+	 893 41 32 = _O_O_@O____ : len=11 : NO 00 D3
+	 894 41 33 = _O_O_@_O___ : len=11 : NO 00 NO
+	 895 41 34 = _O_O_@OO___ : len=11 : D4 00 D4
+	 896 41 35 = _O_O_@__O__ : len=11 : NO 00 NO
+	 897 41 36 = _O_O_@O_O__ : len=11 : NO 00 D3
+	 898 41 37 = _O_O_@_OO__ : len=11 : NO 00 D3
+	 899 41 38 = _O_O_@OOO__ : len=11 : S4 00 H4
+	 900 41 39 = _O_O_@___O_ : len=11 : NO 00 NO
+	 901 41 40 = _O_O_@O__O_ : len=11 : NO 00 D3
+	 902 41 41 = _O_O_@_O_O_ : len=11 : NO 00 NO
+	 903 42  0 = _O_OO@#     : len= 7 : D4 00 D4
+	 904 42  1 = _O_OO@_#    : len= 8 : D4 00 D4
+	 905 42  2 = _O_OO@O#    : len= 8 : NO 00 D4
+	 906 42  3 = _O_OO@__#   : len= 9 : D4 00 D4
+	 907 42  4 = _O_OO@O_#   : len= 9 : S4 00 H4
+	 908 42  5 = _O_OO@_O#   : len= 9 : X4 00 X4
+	 909 42  6 = _O_OO@OO#   : len= 9 : L5 00 L5
+	 910 42  7 = _O_OO@___#  : len=10 : D4 00 D4
+	 911 42  8 = _O_OO@O__#  : len=10 : S4 00 H4
+	 912 42  9 = _O_OO@_O_#  : len=10 : X4 00 X4
+	 913 42 10 = _O_OO@OO_#  : len=10 : L5 00 L5
+	 914 42 11 = _O_OO@__O#  : len=10 : D4 00 D4
+	 915 42 12 = _O_OO@O_O#  : len=10 : NO 00 H4
+	 916 42 13 = _O_OO@_OO#  : len=10 : D4 00 X4
+	 917 42 14 = _O_OO@OOO#  : len=10 : L6 00 L6
+	 918 42 15 = _O_OO@____# : len=11 : D4 00 D4
+	 919 42 16 = _O_OO@O___# : len=11 : S4 00 H4
+	 920 42 17 = _O_OO@_O__# : len=11 : X4 00 X4
+	 921 42 18 = _O_OO@OO__# : len=11 : L5 00 L5
+	 922 42 19 = _O_OO@__O_# : len=11 : D4 00 D4
+	 923 42 20 = _O_OO@O_O_# : len=11 : NO 00 H4
+	 924 42 21 = _O_OO@_OO_# : len=11 : D4 00 X4
+	 925 42 22 = _O_OO@OOO_# : len=11 : L6 00 L6
+	 926 42 23 = _O_OO@___O# : len=11 : D4 00 D4
+	 927 42 24 = _O_OO@O__O# : len=11 : S4 00 H4
+	 928 42 25 = _O_OO@_O_O# : len=11 : X4 00 X4
+	 929 42 26 = _O_OO@OO_O# : len=11 : L5 00 L5
+	 930 42 27 = _O_OO@__OO# : len=11 : D4 00 D4
+	 931 42 28 = _O_OO@O_OO# : len=11 : NO 00 H4
+	 932 42 29 = _O_OO@_OOO# : len=11 : D4 00 X4
+	 933 42 30 = _O_OO@OOOO# : len=11 : L6 00 L6
+	 934 42 31 = _O_OO@_____ : len=11 : D4 00 D4
+	 935 42 32 = _O_OO@O____ : len=11 : S4 00 H4
+	 936 42 33 = _O_OO@_O___ : len=11 : X4 00 X4
+	 937 42 34 = _O_OO@OO___ : len=11 : L5 00 L5
+	 938 42 35 = _O_OO@__O__ : len=11 : D4 00 D4
+	 939 42 36 = _O_OO@O_O__ : len=11 : NO 00 H4
+	 940 42 37 = _O_OO@_OO__ : len=11 : D4 00 X4
+	 941 42 38 = _O_OO@OOO__ : len=11 : L6 00 L6
+	 942 42 39 = _O_OO@___O_ : len=11 : D4 00 D4
+	 943 42 40 = _O_OO@O__O_ : len=11 : S4 00 H4
+	 944 42 41 = _O_OO@_O_O_ : len=11 : X4 00 X4
+	 945 42 42 = _O_OO@OO_O_ : len=11 : L5 00 L5
+	 946 43  0 = _OO__@#     : len= 7 : NO 00 NO
+	 947 43  1 = _OO__@_#    : len= 8 : NO 00 NO
+	 948 43  2 = _OO__@O#    : len= 8 : NO 00 NO
+	 949 43  3 = _OO__@__#   : len= 9 : NO 00 NO
+	 950 43  4 = _OO__@O_#   : len= 9 : NO 00 NO
+	 951 43  5 = _OO__@_O#   : len= 9 : NO 00 NO
+	 952 43  6 = _OO__@OO#   : len= 9 : NO 00 NO
+	 953 43  7 = _OO__@___#  : len=10 : NO 00 NO
+	 954 43  8 = _OO__@O__#  : len=10 : NO 00 NO
+	 955 43  9 = _OO__@_O_#  : len=10 : NO 00 NO
+	 956 43 10 = _OO__@OO_#  : len=10 : NO 00 H3
+	 957 43 11 = _OO__@__O#  : len=10 : NO 00 NO
+	 958 43 12 = _OO__@O_O#  : len=10 : NO 00 NO
+	 959 43 13 = _OO__@_OO#  : len=10 : NO 00 NO
+	 960 43 14 = _OO__@OOO#  : len=10 : S4 00 S4
+	 961 43 15 = _OO__@____# : len=11 : NO 00 NO
+	 962 43 16 = _OO__@O___# : len=11 : NO 00 NO
+	 963 43 17 = _OO__@_O__# : len=11 : NO 00 NO
+	 964 43 18 = _OO__@OO__# : len=11 : H3 13 H3
+	 965 43 19 = _OO__@__O_# : len=11 : NO 00 NO
+	 966 43 20 = _OO__@O_O_# : len=11 : D3 02 D3
+	 967 43 21 = _OO__@_OO_# : len=11 : D3 01 D3
+	 968 43 22 = _OO__@OOO_# : len=11 : H4 00 H4
+	 969 43 23 = _OO__@___O# : len=11 : NO 00 NO
+	 970 43 24 = _OO__@O__O# : len=11 : NO 00 NO
+	 971 43 25 = _OO__@_O_O# : len=11 : NO 00 NO
+	 972 43 26 = _OO__@OO_O# : len=11 : D4 00 D4
+	 973 43 27 = _OO__@__OO# : len=11 : NO 00 NO
+	 974 43 28 = _OO__@O_OO# : len=11 : D4 00 D4
+	 975 43 29 = _OO__@_OOO# : len=11 : D4 00 D4
+	 976 43 30 = _OO__@OOOO# : len=11 : L5 00 L5
+	 977 43 31 = _OO__@_____ : len=11 : NO 00 NO
+	 978 43 32 = _OO__@O____ : len=11 : NO 00 NO
+	 979 43 33 = _OO__@_O___ : len=11 : NO 00 NO
+	 980 43 34 = _OO__@OO___ : len=11 : H3 13 H3
+	 981 43 35 = _OO__@__O__ : len=11 : NO 00 NO
+	 982 43 36 = _OO__@O_O__ : len=11 : D3 02 D3
+	 983 43 37 = _OO__@_OO__ : len=11 : D3 01 D3
+	 984 43 38 = _OO__@OOO__ : len=11 : H4 00 H4
+	 985 43 39 = _OO__@___O_ : len=11 : NO 00 NO
+	 986 43 40 = _OO__@O__O_ : len=11 : NO 00 NO
+	 987 43 41 = _OO__@_O_O_ : len=11 : NO 00 NO
+	 988 43 42 = _OO__@OO_O_ : len=11 : D4 00 D4
+	 989 43 43 = _OO__@__OO_ : len=11 : NO 00 NO
+	 990 44  0 = _OO_O@#     : len= 7 : D4 00 D4
+	 991 44  1 = _OO_O@_#    : len= 8 : D4 00 D4
+	 992 44  2 = _OO_O@O#    : len= 8 : NO 00 D4
+	 993 44  3 = _OO_O@__#   : len= 9 : D4 00 D4
+	 994 44  4 = _OO_O@O_#   : len= 9 : NO 00 D4
+	 995 44  5 = _OO_O@_O#   : len= 9 : D4 00 D4
+	 996 44  6 = _OO_O@OO#   : len= 9 : NO 00 D4
+	 997 44  7 = _OO_O@___#  : len=10 : D4 00 D4
+	 998 44  8 = _OO_O@O__#  : len=10 : NO 00 D4
+	 999 44  9 = _OO_O@_O_#  : len=10 : D4 00 D4
+	1000 44 10 = _OO_O@OO_#  : len=10 : S4 00 H4
+	1001 44 11 = _OO_O@__O#  : len=10 : D4 00 D4
+	1002 44 12 = _OO_O@O_O#  : len=10 : D4 00 X4
+	1003 44 13 = _OO_O@_OO#  : len=10 : X4 00 X4
+	1004 44 14 = _OO_O@OOO#  : len=10 : L5 00 L5
+	1005 44 15 = _OO_O@____# : len=11 : D4 00 D4
+	1006 44 16 = _OO_O@O___# : len=11 : NO 00 D4
+	1007 44 17 = _OO_O@_O__# : len=11 : D4 00 D4
+	1008 44 18 = _OO_O@OO__# : len=11 : S4 00 H4
+	1009 44 19 = _OO_O@__O_# : len=11 : D4 00 D4
+	1010 44 20 = _OO_O@O_O_# : len=11 : D4 00 X4
+	1011 44 21 = _OO_O@_OO_# : len=11 : X4 00 X4
+	1012 44 22 = _OO_O@OOO_# : len=11 : L5 00 L5
+	1013 44 23 = _OO_O@___O# : len=11 : D4 00 D4
+	1014 44 24 = _OO_O@O__O# : len=11 : NO 00 D4
+	1015 44 25 = _OO_O@_O_O# : len=11 : D4 00 D4
+	1016 44 26 = _OO_O@OO_O# : len=11 : NO 00 H4
+	1017 44 27 = _OO_O@__OO# : len=11 : D4 00 D4
+	1018 44 28 = _OO_O@O_OO# : len=11 : NO 00 X4
+	1019 44 29 = _OO_O@_OOO# : len=11 : D4 00 X4
+	1020 44 30 = _OO_O@OOOO# : len=11 : L6 00 L6
+	1021 44 31 = _OO_O@_____ : len=11 : D4 00 D4
+	1022 44 32 = _OO_O@O____ : len=11 : NO 00 D4
+	1023 44 33 = _OO_O@_O___ : len=11 : D4 00 D4
+	1024 44 34 = _OO_O@OO___ : len=11 : S4 00 H4
+	1025 44 35 = _OO_O@__O__ : len=11 : D4 00 D4
+	1026 44 36 = _OO_O@O_O__ : len=11 : D4 00 X4
+	1027 44 37 = _OO_O@_OO__ : len=11 : X4 00 X4
+	1028 44 38 = _OO_O@OOO__ : len=11 : L5 00 L5
+	1029 44 39 = _OO_O@___O_ : len=11 : D4 00 D4
+	1030 44 40 = _OO_O@O__O_ : len=11 : NO 00 D4
+	1031 44 41 = _OO_O@_O_O_ : len=11 : D4 00 D4
+	1032 44 42 = _OO_O@OO_O_ : len=11 : NO 00 H4
+	1033 44 43 = _OO_O@__OO_ : len=11 : D4 00 D4
+	1034 44 44 = _OO_O@O_OO_ : len=11 : NO 00 X4
+	1035 45  0 = _OOO_@#     : len= 7 : D4 00 D4
+	1036 45  1 = _OOO_@_#    : len= 8 : D4 00 D4
+	1037 45  2 = _OOO_@O#    : len= 8 : NO 00 D4
+	1038 45  3 = _OOO_@__#   : len= 9 : D4 00 D4
+	1039 45  4 = _OOO_@O_#   : len= 9 : NO 00 D4
+	1040 45  5 = _OOO_@_O#   : len= 9 : D4 00 D4
+	1041 45  6 = _OOO_@OO#   : len= 9 : NO 00 D4
+	1042 45  7 = _OOO_@___#  : len=10 : D4 00 D4
+	1043 45  8 = _OOO_@O__#  : len=10 : NO 00 D4
+	1044 45  9 = _OOO_@_O_#  : len=10 : D4 00 D4
+	1045 45 10 = _OOO_@OO_#  : len=10 : NO 00 D4
+	1046 45 11 = _OOO_@__O#  : len=10 : D4 00 D4
+	1047 45 12 = _OOO_@O_O#  : len=10 : NO 00 D4
+	1048 45 13 = _OOO_@_OO#  : len=10 : D4 00 D4
+	1049 45 14 = _OOO_@OOO#  : len=10 : NO 00 D4
+	1050 45 15 = _OOO_@____# : len=11 : D4 00 D4
+	1051 45 16 = _OOO_@O___# : len=11 : NO 00 D4
+	1052 45 17 = _OOO_@_O__# : len=11 : D4 00 D4
+	1053 45 18 = _OOO_@OO__# : len=11 : NO 00 D4
+	1054 45 19 = _OOO_@__O_# : len=11 : D4 00 D4
+	1055 45 20 = _OOO_@O_O_# : len=11 : NO 00 D4
+	1056 45 21 = _OOO_@_OO_# : len=11 : D4 00 D4
+	1057 45 22 = _OOO_@OOO_# : len=11 : S4 00 H4
+	1058 45 23 = _OOO_@___O# : len=11 : D4 00 D4
+	1059 45 24 = _OOO_@O__O# : len=11 : NO 00 D4
+	1060 45 25 = _OOO_@_O_O# : len=11 : D4 00 D4
+	1061 45 26 = _OOO_@OO_O# : len=11 : D4 00 X4
+	1062 45 27 = _OOO_@__OO# : len=11 : D4 00 D4
+	1063 45 28 = _OOO_@O_OO# : len=11 : D4 00 X4
+	1064 45 29 = _OOO_@_OOO# : len=11 : X4 00 X4
+	1065 45 30 = _OOO_@OOOO# : len=11 : L5 00 L5
+	1066 45 31 = _OOO_@_____ : len=11 : D4 00 D4
+	1067 45 32 = _OOO_@O____ : len=11 : NO 00 D4
+	1068 45 33 = _OOO_@_O___ : len=11 : D4 00 D4
+	1069 45 34 = _OOO_@OO___ : len=11 : NO 00 D4
+	1070 45 35 = _OOO_@__O__ : len=11 : D4 00 D4
+	1071 45 36 = _OOO_@O_O__ : len=11 : NO 00 D4
+	1072 45 37 = _OOO_@_OO__ : len=11 : D4 00 D4
+	1073 45 38 = _OOO_@OOO__ : len=11 : S4 00 H4
+	1074 45 39 = _OOO_@___O_ : len=11 : D4 00 D4
+	1075 45 40 = _OOO_@O__O_ : len=11 : NO 00 D4
+	1076 45 41 = _OOO_@_O_O_ : len=11 : D4 00 D4
+	1077 45 42 = _OOO_@OO_O_ : len=11 : D4 00 X4
+	1078 45 43 = _OOO_@__OO_ : len=11 : D4 00 D4
+	1079 45 44 = _OOO_@O_OO_ : len=11 : D4 00 X4
+	1080 45 45 = _OOO_@_OOO_ : len=11 : X4 00 X4
+	1081 46  0 = _OOOO@#     : len= 7 : L5 00 L5
+	1082 46  1 = _OOOO@_#    : len= 8 : L5 00 L5
+	1083 46  2 = _OOOO@O#    : len= 8 : L6 00 L6
+	1084 46  3 = _OOOO@__#   : len= 9 : L5 00 L5
+	1085 46  4 = _OOOO@O_#   : len= 9 : L6 00 L6
+	1086 46  5 = _OOOO@_O#   : len= 9 : L5 00 L5
+	1087 46  6 = _OOOO@OO#   : len= 9 : L6 00 L6
+	1088 46  7 = _OOOO@___#  : len=10 : L5 00 L5
+	1089 46  8 = _OOOO@O__#  : len=10 : L6 00 L6
+	1090 46  9 = _OOOO@_O_#  : len=10 : L5 00 L5
+	1091 46 10 = _OOOO@OO_#  : len=10 : L6 00 L6
+	1092 46 11 = _OOOO@__O#  : len=10 : L5 00 L5
+	1093 46 12 = _OOOO@O_O#  : len=10 : L6 00 L6
+	1094 46 13 = _OOOO@_OO#  : len=10 : L5 00 L5
+	1095 46 14 = _OOOO@OOO#  : len=10 : L6 00 L6
+	1096 46 15 = _OOOO@____# : len=11 : L5 00 L5
+	1097 46 16 = _OOOO@O___# : len=11 : L6 00 L6
+	1098 46 17 = _OOOO@_O__# : len=11 : L5 00 L5
+	1099 46 18 = _OOOO@OO__# : len=11 : L6 00 L6
+	1100 46 19 = _OOOO@__O_# : len=11 : L5 00 L5
+	1101 46 20 = _OOOO@O_O_# : len=11 : L6 00 L6
+	1102 46 21 = _OOOO@_OO_# : len=11 : L5 00 L5
+	1103 46 22 = _OOOO@OOO_# : len=11 : L6 00 L6
+	1104 46 23 = _OOOO@___O# : len=11 : L5 00 L5
+	1105 46 24 = _OOOO@O__O# : len=11 : L6 00 L6
+	1106 46 25 = _OOOO@_O_O# : len=11 : L5 00 L5
+	1107 46 26 = _OOOO@OO_O# : len=11 : L6 00 L6
+	1108 46 27 = _OOOO@__OO# : len=11 : L5 00 L5
+	1109 46 28 = _OOOO@O_OO# : len=11 : L6 00 L6
+	1110 46 29 = _OOOO@_OOO# : len=11 : L5 00 L5
+	1111 46 30 = _OOOO@OOOO# : len=11 : L6 00 L6
+	1112 46 31 = _OOOO@_____ : len=11 : L5 00 L5
+	1113 46 32 = _OOOO@O____ : len=11 : L6 00 L6
+	1114 46 33 = _OOOO@_O___ : len=11 : L5 00 L5
+	1115 46 34 = _OOOO@OO___ : len=11 : L6 00 L6
+	1116 46 35 = _OOOO@__O__ : len=11 : L5 00 L5
+	1117 46 36 = _OOOO@O_O__ : len=11 : L6 00 L6
+	1118 46 37 = _OOOO@_OO__ : len=11 : L5 00 L5
+	1119 46 38 = _OOOO@OOO__ : len=11 : L6 00 L6
+	1120 46 39 = _OOOO@___O_ : len=11 : L5 00 L5
+	1121 46 40 = _OOOO@O__O_ : len=11 : L6 00 L6
+	1122 46 41 = _OOOO@_O_O_ : len=11 : L5 00 L5
+	1123 46 42 = _OOOO@OO_O_ : len=11 : L6 00 L6
+	1124 46 43 = _OOOO@__OO_ : len=11 : L5 00 L5
+	1125 46 44 = _OOOO@O_OO_ : len=11 : L6 00 L6
+	1126 46 45 = _OOOO@_OOO_ : len=11 : L5 00 L5
+	1127 46 46 = _OOOO@OOOO_ : len=11 : L6 00 L6
+	1128 47  0 = O____@#     : len= 7 : NO 00 NO
+	1129 47  1 = O____@_#    : len= 8 : NO 00 NO
+	1130 47  2 = O____@O#    : len= 8 : NO 00 NO
+	1131 47  3 = O____@__#   : len= 9 : NO 00 NO
+	1132 47  4 = O____@O_#   : len= 9 : NO 00 NO
+	1133 47  5 = O____@_O#   : len= 9 : NO 00 NO
+	1134 47  6 = O____@OO#   : len= 9 : NO 00 NO
+	1135 47  7 = O____@___#  : len=10 : NO 00 NO
+	1136 47  8 = O____@O__#  : len=10 : NO 00 NO
+	1137 47  9 = O____@_O_#  : len=10 : NO 00 NO
+	1138 47 10 = O____@OO_#  : len=10 : H3 13 H3
+	1139 47 11 = O____@__O#  : len=10 : NO 00 NO
+	1140 47 12 = O____@O_O#  : len=10 : NO 00 NO
+	1141 47 13 = O____@_OO#  : len=10 : NO 00 NO
+	1142 47 14 = O____@OOO#  : len=10 : S4 00 S4
+	1143 47 15 = O____@____# : len=11 : NO 00 NO
+	1144 47 16 = O____@O___# : len=11 : NO 00 NO
+	1145 47 17 = O____@_O__# : len=11 : NO 00 NO
+	1146 47 18 = O____@OO__# : len=11 : H3 13 H3
+	1147 47 19 = O____@__O_# : len=11 : NO 00 NO
+	1148 47 20 = O____@O_O_# : len=11 : D3 02 D3
+	1149 47 21 = O____@_OO_# : len=11 : D3 01 D3
+	1150 47 22 = O____@OOO_# : len=11 : H4 00 H4
+	1151 47 23 = O____@___O# : len=11 : NO 00 NO
+	1152 47 24 = O____@O__O# : len=11 : NO 00 NO
+	1153 47 25 = O____@_O_O# : len=11 : NO 00 NO
+	1154 47 26 = O____@OO_O# : len=11 : D4 00 D4
+	1155 47 27 = O____@__OO# : len=11 : NO 00 NO
+	1156 47 28 = O____@O_OO# : len=11 : D4 00 D4
+	1157 47 29 = O____@_OOO# : len=11 : D4 00 D4
+	1158 47 30 = O____@OOOO# : len=11 : L5 00 L5
+	1159 47 31 = O____@_____ : len=11 : NO 00 NO
+	1160 47 32 = O____@O____ : len=11 : NO 00 NO
+	1161 47 33 = O____@_O___ : len=11 : NO 00 NO
+	1162 47 34 = O____@OO___ : len=11 : H3 13 H3
+	1163 47 35 = O____@__O__ : len=11 : NO 00 NO
+	1164 47 36 = O____@O_O__ : len=11 : D3 02 D3
+	1165 47 37 = O____@_OO__ : len=11 : D3 01 D3
+	1166 47 38 = O____@OOO__ : len=11 : H4 00 H4
+	1167 47 39 = O____@___O_ : len=11 : NO 00 NO
+	1168 47 40 = O____@O__O_ : len=11 : NO 00 NO
+	1169 47 41 = O____@_O_O_ : len=11 : NO 00 NO
+	1170 47 42 = O____@OO_O_ : len=11 : D4 00 D4
+	1171 47 43 = O____@__OO_ : len=11 : NO 00 NO
+	1172 47 44 = O____@O_OO_ : len=11 : D4 00 D4
+	1173 47 45 = O____@_OOO_ : len=11 : D4 00 D4
+	1174 47 46 = O____@OOOO_ : len=11 : L5 00 L5
+	1175 47 47 = O____@____O : len=11 : NO 00 NO
+	1176 48  0 = O___O@#     : len= 7 : NO 00 NO
+	1177 48  1 = O___O@_#    : len= 8 : NO 00 NO
+	1178 48  2 = O___O@O#    : len= 8 : NO 00 NO
+	1179 48  3 = O___O@__#   : len= 9 : NO 00 NO
+	1180 48  4 = O___O@O_#   : len= 9 : H3 22 H3
+	1181 48  5 = O___O@_O#   : len= 9 : NO 00 NO
+	1182 48  6 = O___O@OO#   : len= 9 : S4 00 S4
+	1183 48  7 = O___O@___#  : len=10 : NO 00 NO
+	1184 48  8 = O___O@O__#  : len=10 : H3 22 H3
+	1185 48  9 = O___O@_O_#  : len=10 : D3 01 D3
+	1186 48 10 = O___O@OO_#  : len=10 : H4 00 H4
+	1187 48 11 = O___O@__O#  : len=10 : NO 00 NO
+	1188 48 12 = O___O@O_O#  : len=10 : D4 00 D4
+	1189 48 13 = O___O@_OO#  : len=10 : D4 00 D4
+	1190 48 14 = O___O@OOO#  : len=10 : L5 00 L5
+	1191 48 15 = O___O@____# : len=11 : NO 00 NO
+	1192 48 16 = O___O@O___# : len=11 : H3 22 H3
+	1193 48 17 = O___O@_O__# : len=11 : D3 01 D3
+	1194 48 18 = O___O@OO__# : len=11 : H4 00 H4
+	1195 48 19 = O___O@__O_# : len=11 : NO 00 NO
+	1196 48 20 = O___O@O_O_# : len=11 : D4 00 D4
+	1197 48 21 = O___O@_OO_# : len=11 : D4 00 D4
+	1198 48 22 = O___O@OOO_# : len=11 : L5 00 L5
+	1199 48 23 = O___O@___O# : len=11 : NO 00 NO
+	1200 48 24 = O___O@O__O# : len=11 : H3 22 H3
+	1201 48 25 = O___O@_O_O# : len=11 : NO 00 D3
+	1202 48 26 = O___O@OO_O# : len=11 : S4 00 H4
+	1203 48 27 = O___O@__OO# : len=11 : NO 00 NO
+	1204 48 28 = O___O@O_OO# : len=11 : NO 00 D4
+	1205 48 29 = O___O@_OOO# : len=11 : NO 00 D4
+	1206 48 30 = O___O@OOOO# : len=11 : L6 00 L6
+	1207 48 31 = O___O@_____ : len=11 : NO 00 NO
+	1208 48 32 = O___O@O____ : len=11 : H3 22 H3
+	1209 48 33 = O___O@_O___ : len=11 : D3 01 D3
+	1210 48 34 = O___O@OO___ : len=11 : H4 00 H4
+	1211 48 35 = O___O@__O__ : len=11 : NO 00 NO
+	1212 48 36 = O___O@O_O__ : len=11 : D4 00 D4
+	1213 48 37 = O___O@_OO__ : len=11 : D4 00 D4
+	1214 48 38 = O___O@OOO__ : len=11 : L5 00 L5
+	1215 48 39 = O___O@___O_ : len=11 : NO 00 NO
+	1216 48 40 = O___O@O__O_ : len=11 : H3 22 H3
+	1217 48 41 = O___O@_O_O_ : len=11 : NO 00 D3
+	1218 48 42 = O___O@OO_O_ : len=11 : S4 00 H4
+	1219 48 43 = O___O@__OO_ : len=11 : NO 00 NO
+	1220 48 44 = O___O@O_OO_ : len=11 : NO 00 D4
+	1221 48 45 = O___O@_OOO_ : len=11 : NO 00 D4
+	1222 48 46 = O___O@OOOO_ : len=11 : L6 00 L6
+	1223 48 47 = O___O@____O : len=11 : NO 00 NO
+	1224 48 48 = O___O@O___O : len=11 : H3 22 H3
+	1225 49  0 = O__O_@#     : len= 7 : NO 00 NO
+	1226 49  1 = O__O_@_#    : len= 8 : NO 00 NO
+	1227 49  2 = O__O_@O#    : len= 8 : NO 00 NO
+	1228 49  3 = O__O_@__#   : len= 9 : NO 00 NO
+	1229 49  4 = O__O_@O_#   : len= 9 : D3 10 D3
+	1230 49  5 = O__O_@_O#   : len= 9 : NO 00 NO
+	1231 49  6 = O__O_@OO#   : len= 9 : D4 00 D4
+	1232 49  7 = O__O_@___#  : len=10 : NO 00 NO
+	1233 49  8 = O__O_@O__#  : len=10 : D3 10 D3
+	1234 49  9 = O__O_@_O_#  : len=10 : NO 00 NO
+	1235 49 10 = O__O_@OO_#  : len=10 : D4 00 D4
+	1236 49 11 = O__O_@__O#  : len=10 : NO 00 NO
+	1237 49 12 = O__O_@O_O#  : len=10 : NO 00 D3
+	1238 49 13 = O__O_@_OO#  : len=10 : NO 00 NO
+	1239 49 14 = O__O_@OOO#  : len=10 : NO 00 D4
+	1240 49 15 = O__O_@____# : len=11 : NO 00 NO
+	1241 49 16 = O__O_@O___# : len=11 : D3 10 D3
+	1242 49 17 = O__O_@_O__# : len=11 : NO 00 NO
+	1243 49 18 = O__O_@OO__# : len=11 : D4 00 D4
+	1244 49 19 = O__O_@__O_# : len=11 : NO 00 NO
+	1245 49 20 = O__O_@O_O_# : len=11 : NO 00 D3
+	1246 49 21 = O__O_@_OO_# : len=11 : NO 00 D3
+	1247 49 22 = O__O_@OOO_# : len=11 : S4 00 H4
+	1248 49 23 = O__O_@___O# : len=11 : NO 00 NO
+	1249 49 24 = O__O_@O__O# : len=11 : D3 10 D3
+	1250 49 25 = O__O_@_O_O# : len=11 : NO 00 NO
+	1251 49 26 = O__O_@OO_O# : len=11 : X4 00 X4
+	1252 49 27 = O__O_@__OO# : len=11 : NO 00 NO
+	1253 49 28 = O__O_@O_OO# : len=11 : D4 00 D4
+	1254 49 29 = O__O_@_OOO# : len=11 : D4 00 D4
+	1255 49 30 = O__O_@OOOO# : len=11 : L5 00 L5
+	1256 49 31 = O__O_@_____ : len=11 : NO 00 NO
+	1257 49 32 = O__O_@O____ : len=11 : D3 10 D3
+	1258 49 33 = O__O_@_O___ : len=11 : NO 00 NO
+	1259 49 34 = O__O_@OO___ : len=11 : D4 00 D4
+	1260 49 35 = O__O_@__O__ : len=11 : NO 00 NO
+	1261 49 36 = O__O_@O_O__ : len=11 : NO 00 D3
+	1262 49 37 = O__O_@_OO__ : len=11 : NO 00 D3
+	1263 49 38 = O__O_@OOO__ : len=11 : S4 00 H4
+	1264 49 39 = O__O_@___O_ : len=11 : NO 00 NO
+	1265 49 40 = O__O_@O__O_ : len=11 : D3 10 D3
+	1266 49 41 = O__O_@_O_O_ : len=11 : NO 00 NO
+	1267 49 42 = O__O_@OO_O_ : len=11 : X4 00 X4
+	1268 49 43 = O__O_@__OO_ : len=11 : NO 00 NO
+	1269 49 44 = O__O_@O_OO_ : len=11 : D4 00 D4
+	1270 49 45 = O__O_@_OOO_ : len=11 : D4 00 D4
+	1271 49 46 = O__O_@OOOO_ : len=11 : L5 00 L5
+	1272 49 47 = O__O_@____O : len=11 : NO 00 NO
+	1273 49 48 = O__O_@O___O : len=11 : D3 10 D3
+	1274 49 49 = O__O_@_O__O : len=11 : NO 00 NO
+	1275 50  0 = O__OO@#     : len= 7 : NO 00 NO
+	1276 50  1 = O__OO@_#    : len= 8 : NO 00 H3
+	1277 50  2 = O__OO@O#    : len= 8 : S4 00 S4
+	1278 50  3 = O__OO@__#   : len= 9 : H3 31 H3
+	1279 50  4 = O__OO@O_#   : len= 9 : H4 00 H4
+	1280 50  5 = O__OO@_O#   : len= 9 : D4 00 D4
+	1281 50  6 = O__OO@OO#   : len= 9 : L5 00 L5
+	1282 50  7 = O__OO@___#  : len=10 : H3 31 H3
+	1283 50  8 = O__OO@O__#  : len=10 : H4 00 H4
+	1284 50  9 = O__OO@_O_#  : len=10 : D4 00 D4
+	1285 50 10 = O__OO@OO_#  : len=10 : L5 00 L5
+	1286 50 11 = O__OO@__O#  : len=10 : NO 00 H3
+	1287 50 12 = O__OO@O_O#  : len=10 : S4 00 H4
+	1288 50 13 = O__OO@_OO#  : len=10 : NO 00 D4
+	1289 50 14 = O__OO@OOO#  : len=10 : L6 00 L6
+	1290 50 15 = O__OO@____# : len=11 : H3 31 H3
+	1291 50 16 = O__OO@O___# : len=11 : H4 00 H4
+	1292 50 17 = O__OO@_O__# : len=11 : D4 00 D4
+	1293 50 18 = O__OO@OO__# : len=11 : L5 00 L5
+	1294 50 19 = O__OO@__O_# : len=11 : NO 00 H3
+	1295 50 20 = O__OO@O_O_# : len=11 : S4 00 H4
+	1296 50 21 = O__OO@_OO_# : len=11 : NO 00 D4
+	1297 50 22 = O__OO@OOO_# : len=11 : L6 00 L6
+	1298 50 23 = O__OO@___O# : len=11 : H3 31 H3
+	1299 50 24 = O__OO@O__O# : len=11 : H4 00 H4
+	1300 50 25 = O__OO@_O_O# : len=11 : D4 00 D4
+	1301 50 26 = O__OO@OO_O# : len=11 : L5 00 L5
+	1302 50 27 = O__OO@__OO# : len=11 : NO 00 H3
+	1303 50 28 = O__OO@O_OO# : len=11 : S4 00 H4
+	1304 50 29 = O__OO@_OOO# : len=11 : NO 00 D4
+	1305 50 30 = O__OO@OOOO# : len=11 : L6 00 L6
+	1306 50 31 = O__OO@_____ : len=11 : H3 31 H3
+	1307 50 32 = O__OO@O____ : len=11 : H4 00 H4
+	1308 50 33 = O__OO@_O___ : len=11 : D4 00 D4
+	1309 50 34 = O__OO@OO___ : len=11 : L5 00 L5
+	1310 50 35 = O__OO@__O__ : len=11 : NO 00 H3
+	1311 50 36 = O__OO@O_O__ : len=11 : S4 00 H4
+	1312 50 37 = O__OO@_OO__ : len=11 : NO 00 D4
+	1313 50 38 = O__OO@OOO__ : len=11 : L6 00 L6
+	1314 50 39 = O__OO@___O_ : len=11 : H3 31 H3
+	1315 50 40 = O__OO@O__O_ : len=11 : H4 00 H4
+	1316 50 41 = O__OO@_O_O_ : len=11 : D4 00 D4
+	1317 50 42 = O__OO@OO_O_ : len=11 : L5 00 L5
+	1318 50 43 = O__OO@__OO_ : len=11 : NO 00 H3
+	1319 50 44 = O__OO@O_OO_ : len=11 : S4 00 H4
+	1320 50 45 = O__OO@_OOO_ : len=11 : NO 00 D4
+	1321 50 46 = O__OO@OOOO_ : len=11 : L6 00 L6
+	1322 50 47 = O__OO@____O : len=11 : H3 31 H3
+	1323 50 48 = O__OO@O___O : len=11 : H4 00 H4
+	1324 50 49 = O__OO@_O__O : len=11 : D4 00 D4
+	1325 50 50 = O__OO@OO__O : len=11 : L5 00 L5
+	1326 51  0 = O_O__@#     : len= 7 : NO 00 NO
+	1327 51  1 = O_O__@_#    : len= 8 : NO 00 NO
+	1328 51  2 = O_O__@O#    : len= 8 : NO 00 NO
+	1329 51  3 = O_O__@__#   : len= 9 : NO 00 NO
+	1330 51  4 = O_O__@O_#   : len= 9 : NO 00 NO
+	1331 51  5 = O_O__@_O#   : len= 9 : NO 00 NO
+	1332 51  6 = O_O__@OO#   : len= 9 : NO 00 NO
+	1333 51  7 = O_O__@___#  : len=10 : NO 00 NO
+	1334 51  8 = O_O__@O__#  : len=10 : NO 00 NO
+	1335 51  9 = O_O__@_O_#  : len=10 : NO 00 NO
+	1336 51 10 = O_O__@OO_#  : len=10 : NO 00 H3
+	1337 51 11 = O_O__@__O#  : len=10 : NO 00 NO
+	1338 51 12 = O_O__@O_O#  : len=10 : NO 00 NO
+	1339 51 13 = O_O__@_OO#  : len=10 : NO 00 NO
+	1340 51 14 = O_O__@OOO#  : len=10 : S4 00 S4
+	1341 51 15 = O_O__@____# : len=11 : NO 00 NO
+	1342 51 16 = O_O__@O___# : len=11 : NO 00 NO
+	1343 51 17 = O_O__@_O__# : len=11 : NO 00 NO
+	1344 51 18 = O_O__@OO__# : len=11 : H3 13 H3
+	1345 51 19 = O_O__@__O_# : len=11 : NO 00 NO
+	1346 51 20 = O_O__@O_O_# : len=11 : D3 02 D3
+	1347 51 21 = O_O__@_OO_# : len=11 : D3 01 D3
+	1348 51 22 = O_O__@OOO_# : len=11 : H4 00 H4
+	1349 51 23 = O_O__@___O# : len=11 : NO 00 NO
+	1350 51 24 = O_O__@O__O# : len=11 : NO 00 NO
+	1351 51 25 = O_O__@_O_O# : len=11 : NO 00 NO
+	1352 51 26 = O_O__@OO_O# : len=11 : D4 00 D4
+	1353 51 27 = O_O__@__OO# : len=11 : NO 00 NO
+	1354 51 28 = O_O__@O_OO# : len=11 : D4 00 D4
+	1355 51 29 = O_O__@_OOO# : len=11 : D4 00 D4
+	1356 51 30 = O_O__@OOOO# : len=11 : L5 00 L5
+	1357 51 31 = O_O__@_____ : len=11 : NO 00 NO
+	1358 51 32 = O_O__@O____ : len=11 : NO 00 NO
+	1359 51 33 = O_O__@_O___ : len=11 : NO 00 NO
+	1360 51 34 = O_O__@OO___ : len=11 : H3 13 H3
+	1361 51 35 = O_O__@__O__ : len=11 : NO 00 NO
+	1362 51 36 = O_O__@O_O__ : len=11 : D3 02 D3
+	1363 51 37 = O_O__@_OO__ : len=11 : D3 01 D3
+	1364 51 38 = O_O__@OOO__ : len=11 : H4 00 H4
+	1365 51 39 = O_O__@___O_ : len=11 : NO 00 NO
+	1366 51 40 = O_O__@O__O_ : len=11 : NO 00 NO
+	1367 51 41 = O_O__@_O_O_ : len=11 : NO 00 NO
+	1368 51 42 = O_O__@OO_O_ : len=11 : D4 00 D4
+	1369 51 43 = O_O__@__OO_ : len=11 : NO 00 NO
+	1370 51 44 = O_O__@O_OO_ : len=11 : D4 00 D4
+	1371 51 45 = O_O__@_OOO_ : len=11 : D4 00 D4
+	1372 51 46 = O_O__@OOOO_ : len=11 : L5 00 L5
+	1373 51 47 = O_O__@____O : len=11 : NO 00 NO
+	1374 51 48 = O_O__@O___O : len=11 : NO 00 NO
+	1375 51 49 = O_O__@_O__O : len=11 : NO 00 NO
+	1376 51 50 = O_O__@OO__O : len=11 : NO 00 H3
+	1377 51 51 = O_O__@__O_O : len=11 : NO 00 NO
+	1378 52  0 = O_O_O@#     : len= 7 : NO 00 NO
+	1379 52  1 = O_O_O@_#    : len= 8 : NO 00 D3
+	1380 52  2 = O_O_O@O#    : len= 8 : D4 00 D4
+	1381 52  3 = O_O_O@__#   : len= 9 : NO 00 D3
+	1382 52  4 = O_O_O@O_#   : len= 9 : D4 00 D4
+	1383 52  5 = O_O_O@_O#   : len= 9 : NO 00 D3
+	1384 52  6 = O_O_O@OO#   : len= 9 : NO 00 D4
+	1385 52  7 = O_O_O@___#  : len=10 : NO 00 D3
+	1386 52  8 = O_O_O@O__#  : len=10 : D4 00 D4
+	1387 52  9 = O_O_O@_O_#  : len=10 : NO 00 D3
+	1388 52 10 = O_O_O@OO_#  : len=10 : S4 00 H4
+	1389 52 11 = O_O_O@__O#  : len=10 : NO 00 D3
+	1390 52 12 = O_O_O@O_O#  : len=10 : X4 00 X4
+	1391 52 13 = O_O_O@_OO#  : len=10 : D4 00 D4
+	1392 52 14 = O_O_O@OOO#  : len=10 : L5 00 L5
+	1393 52 15 = O_O_O@____# : len=11 : NO 00 D3
+	1394 52 16 = O_O_O@O___# : len=11 : D4 00 D4
+	1395 52 17 = O_O_O@_O__# : len=11 : NO 00 D3
+	1396 52 18 = O_O_O@OO__# : len=11 : S4 00 H4
+	1397 52 19 = O_O_O@__O_# : len=11 : NO 00 D3
+	1398 52 20 = O_O_O@O_O_# : len=11 : X4 00 X4
+	1399 52 21 = O_O_O@_OO_# : len=11 : D4 00 D4
+	1400 52 22 = O_O_O@OOO_# : len=11 : L5 00 L5
+	1401 52 23 = O_O_O@___O# : len=11 : NO 00 D3
+	1402 52 24 = O_O_O@O__O# : len=11 : D4 00 D4
+	1403 52 25 = O_O_O@_O_O# : len=11 : NO 00 D3
+	1404 52 26 = O_O_O@OO_O# : len=11 : NO 00 H4
+	1405 52 27 = O_O_O@__OO# : len=11 : NO 00 D3
+	1406 52 28 = O_O_O@O_OO# : len=11 : D4 00 X4
+	1407 52 29 = O_O_O@_OOO# : len=11 : NO 00 D4
+	1408 52 30 = O_O_O@OOOO# : len=11 : L6 00 L6
+	1409 52 31 = O_O_O@_____ : len=11 : NO 00 D3
+	1410 52 32 = O_O_O@O____ : len=11 : D4 00 D4
+	1411 52 33 = O_O_O@_O___ : len=11 : NO 00 D3
+	1412 52 34 = O_O_O@OO___ : len=11 : S4 00 H4
+	1413 52 35 = O_O_O@__O__ : len=11 : NO 00 D3
+	1414 52 36 = O_O_O@O_O__ : len=11 : X4 00 X4
+	1415 52 37 = O_O_O@_OO__ : len=11 : D4 00 D4
+	1416 52 38 = O_O_O@OOO__ : len=11 : L5 00 L5
+	1417 52 39 = O_O_O@___O_ : len=11 : NO 00 D3
+	1418 52 40 = O_O_O@O__O_ : len=11 : D4 00 D4
+	1419 52 41 = O_O_O@_O_O_ : len=11 : NO 00 D3
+	1420 52 42 = O_O_O@OO_O_ : len=11 : NO 00 H4
+	1421 52 43 = O_O_O@__OO_ : len=11 : NO 00 D3
+	1422 52 44 = O_O_O@O_OO_ : len=11 : D4 00 X4
+	1423 52 45 = O_O_O@_OOO_ : len=11 : NO 00 D4
+	1424 52 46 = O_O_O@OOOO_ : len=11 : L6 00 L6
+	1425 52 47 = O_O_O@____O : len=11 : NO 00 D3
+	1426 52 48 = O_O_O@O___O : len=11 : D4 00 D4
+	1427 52 49 = O_O_O@_O__O : len=11 : NO 00 D3
+	1428 52 50 = O_O_O@OO__O : len=11 : S4 00 H4
+	1429 52 51 = O_O_O@__O_O : len=11 : NO 00 D3
+	1430 52 52 = O_O_O@O_O_O : len=11 : X4 00 X4
+	1431 53  0 = O_OO_@#     : len= 7 : NO 00 NO
+	1432 53  1 = O_OO_@_#    : len= 8 : NO 00 D3
+	1433 53  2 = O_OO_@O#    : len= 8 : D4 00 D4
+	1434 53  3 = O_OO_@__#   : len= 9 : NO 00 D3
+	1435 53  4 = O_OO_@O_#   : len= 9 : D4 00 D4
+	1436 53  5 = O_OO_@_O#   : len= 9 : NO 00 D3
+	1437 53  6 = O_OO_@OO#   : len= 9 : NO 00 D4
+	1438 53  7 = O_OO_@___#  : len=10 : NO 00 D3
+	1439 53  8 = O_OO_@O__#  : len=10 : D4 00 D4
+	1440 53  9 = O_OO_@_O_#  : len=10 : NO 00 D3
+	1441 53 10 = O_OO_@OO_#  : len=10 : NO 00 D4
+	1442 53 11 = O_OO_@__O#  : len=10 : NO 00 D3
+	1443 53 12 = O_OO_@O_O#  : len=10 : D4 00 D4
+	1444 53 13 = O_OO_@_OO#  : len=10 : NO 00 D3
+	1445 53 14 = O_OO_@OOO#  : len=10 : NO 00 D4
+	1446 53 15 = O_OO_@____# : len=11 : NO 00 D3
+	1447 53 16 = O_OO_@O___# : len=11 : D4 00 D4
+	1448 53 17 = O_OO_@_O__# : len=11 : NO 00 D3
+	1449 53 18 = O_OO_@OO__# : len=11 : NO 00 D4
+	1450 53 19 = O_OO_@__O_# : len=11 : NO 00 D3
+	1451 53 20 = O_OO_@O_O_# : len=11 : D4 00 D4
+	1452 53 21 = O_OO_@_OO_# : len=11 : NO 00 D3
+	1453 53 22 = O_OO_@OOO_# : len=11 : S4 00 H4
+	1454 53 23 = O_OO_@___O# : len=11 : NO 00 D3
+	1455 53 24 = O_OO_@O__O# : len=11 : D4 00 D4
+	1456 53 25 = O_OO_@_O_O# : len=11 : NO 00 D3
+	1457 53 26 = O_OO_@OO_O# : len=11 : D4 00 X4
+	1458 53 27 = O_OO_@__OO# : len=11 : NO 00 D3
+	1459 53 28 = O_OO_@O_OO# : len=11 : X4 00 X4
+	1460 53 29 = O_OO_@_OOO# : len=11 : D4 00 D4
+	1461 53 30 = O_OO_@OOOO# : len=11 : L5 00 L5
+	1462 53 31 = O_OO_@_____ : len=11 : NO 00 D3
+	1463 53 32 = O_OO_@O____ : len=11 : D4 00 D4
+	1464 53 33 = O_OO_@_O___ : len=11 : NO 00 D3
+	1465 53 34 = O_OO_@OO___ : len=11 : NO 00 D4
+	1466 53 35 = O_OO_@__O__ : len=11 : NO 00 D3
+	1467 53 36 = O_OO_@O_O__ : len=11 : D4 00 D4
+	1468 53 37 = O_OO_@_OO__ : len=11 : NO 00 D3
+	1469 53 38 = O_OO_@OOO__ : len=11 : S4 00 H4
+	1470 53 39 = O_OO_@___O_ : len=11 : NO 00 D3
+	1471 53 40 = O_OO_@O__O_ : len=11 : D4 00 D4
+	1472 53 41 = O_OO_@_O_O_ : len=11 : NO 00 D3
+	1473 53 42 = O_OO_@OO_O_ : len=11 : D4 00 X4
+	1474 53 43 = O_OO_@__OO_ : len=11 : NO 00 D3
+	1475 53 44 = O_OO_@O_OO_ : len=11 : X4 00 X4
+	1476 53 45 = O_OO_@_OOO_ : len=11 : D4 00 D4
+	1477 53 46 = O_OO_@OOOO_ : len=11 : L5 00 L5
+	1478 53 47 = O_OO_@____O : len=11 : NO 00 D3
+	1479 53 48 = O_OO_@O___O : len=11 : D4 00 D4
+	1480 53 49 = O_OO_@_O__O : len=11 : NO 00 D3
+	1481 53 50 = O_OO_@OO__O : len=11 : NO 00 D4
+	1482 53 51 = O_OO_@__O_O : len=11 : NO 00 D3
+	1483 53 52 = O_OO_@O_O_O : len=11 : D4 00 D4
+	1484 53 53 = O_OO_@_OO_O : len=11 : NO 00 D3
+	1485 54  0 = O_OOO@#     : len= 7 : NO 00 D4
+	1486 54  1 = O_OOO@_#    : len= 8 : S4 00 H4
+	1487 54  2 = O_OOO@O#    : len= 8 : L5 00 L5
+	1488 54  3 = O_OOO@__#   : len= 9 : S4 00 H4
+	1489 54  4 = O_OOO@O_#   : len= 9 : L5 00 L5
+	1490 54  5 = O_OOO@_O#   : len= 9 : NO 00 H4
+	1491 54  6 = O_OOO@OO#   : len= 9 : L6 00 L6
+	1492 54  7 = O_OOO@___#  : len=10 : S4 00 H4
+	1493 54  8 = O_OOO@O__#  : len=10 : L5 00 L5
+	1494 54  9 = O_OOO@_O_#  : len=10 : NO 00 H4
+	1495 54 10 = O_OOO@OO_#  : len=10 : L6 00 L6
+	1496 54 11 = O_OOO@__O#  : len=10 : S4 00 H4
+	1497 54 12 = O_OOO@O_O#  : len=10 : L5 00 L5
+	1498 54 13 = O_OOO@_OO#  : len=10 : NO 00 H4
+	1499 54 14 = O_OOO@OOO#  : len=10 : L6 00 L6
+	1500 54 15 = O_OOO@____# : len=11 : S4 00 H4
+	1501 54 16 = O_OOO@O___# : len=11 : L5 00 L5
+	1502 54 17 = O_OOO@_O__# : len=11 : NO 00 H4
+	1503 54 18 = O_OOO@OO__# : len=11 : L6 00 L6
+	1504 54 19 = O_OOO@__O_# : len=11 : S4 00 H4
+	1505 54 20 = O_OOO@O_O_# : len=11 : L5 00 L5
+	1506 54 21 = O_OOO@_OO_# : len=11 : NO 00 H4
+	1507 54 22 = O_OOO@OOO_# : len=11 : L6 00 L6
+	1508 54 23 = O_OOO@___O# : len=11 : S4 00 H4
+	1509 54 24 = O_OOO@O__O# : len=11 : L5 00 L5
+	1510 54 25 = O_OOO@_O_O# : len=11 : NO 00 H4
+	1511 54 26 = O_OOO@OO_O# : len=11 : L6 00 L6
+	1512 54 27 = O_OOO@__OO# : len=11 : S4 00 H4
+	1513 54 28 = O_OOO@O_OO# : len=11 : L5 00 L5
+	1514 54 29 = O_OOO@_OOO# : len=11 : NO 00 H4
+	1515 54 30 = O_OOO@OOOO# : len=11 : L6 00 L6
+	1516 54 31 = O_OOO@_____ : len=11 : S4 00 H4
+	1517 54 32 = O_OOO@O____ : len=11 : L5 00 L5
+	1518 54 33 = O_OOO@_O___ : len=11 : NO 00 H4
+	1519 54 34 = O_OOO@OO___ : len=11 : L6 00 L6
+	1520 54 35 = O_OOO@__O__ : len=11 : S4 00 H4
+	1521 54 36 = O_OOO@O_O__ : len=11 : L5 00 L5
+	1522 54 37 = O_OOO@_OO__ : len=11 : NO 00 H4
+	1523 54 38 = O_OOO@OOO__ : len=11 : L6 00 L6
+	1524 54 39 = O_OOO@___O_ : len=11 : S4 00 H4
+	1525 54 40 = O_OOO@O__O_ : len=11 : L5 00 L5
+	1526 54 41 = O_OOO@_O_O_ : len=11 : NO 00 H4
+	1527 54 42 = O_OOO@OO_O_ : len=11 : L6 00 L6
+	1528 54 43 = O_OOO@__OO_ : len=11 : S4 00 H4
+	1529 54 44 = O_OOO@O_OO_ : len=11 : L5 00 L5
+	1530 54 45 = O_OOO@_OOO_ : len=11 : NO 00 H4
+	1531 54 46 = O_OOO@OOOO_ : len=11 : L6 00 L6
+	1532 54 47 = O_OOO@____O : len=11 : S4 00 H4
+	1533 54 48 = O_OOO@O___O : len=11 : L5 00 L5
+	1534 54 49 = O_OOO@_O__O : len=11 : NO 00 H4
+	1535 54 50 = O_OOO@OO__O : len=11 : L6 00 L6
+	1536 54 51 = O_OOO@__O_O : len=11 : S4 00 H4
+	1537 54 52 = O_OOO@O_O_O : len=11 : L5 00 L5
+	1538 54 53 = O_OOO@_OO_O : len=11 : NO 00 H4
+	1539 54 54 = O_OOO@OOO_O : len=11 : L6 00 L6
+	1540 55  0 = OO___@#     : len= 7 : NO 00 NO
+	1541 55  1 = OO___@_#    : len= 8 : NO 00 NO
+	1542 55  2 = OO___@O#    : len= 8 : NO 00 NO
+	1543 55  3 = OO___@__#   : len= 9 : NO 00 NO
+	1544 55  4 = OO___@O_#   : len= 9 : NO 00 NO
+	1545 55  5 = OO___@_O#   : len= 9 : NO 00 NO
+	1546 55  6 = OO___@OO#   : len= 9 : NO 00 NO
+	1547 55  7 = OO___@___#  : len=10 : NO 00 NO
+	1548 55  8 = OO___@O__#  : len=10 : NO 00 NO
+	1549 55  9 = OO___@_O_#  : len=10 : NO 00 NO
+	1550 55 10 = OO___@OO_#  : len=10 : H3 13 H3
+	1551 55 11 = OO___@__O#  : len=10 : NO 00 NO
+	1552 55 12 = OO___@O_O#  : len=10 : NO 00 NO
+	1553 55 13 = OO___@_OO#  : len=10 : NO 00 NO
+	1554 55 14 = OO___@OOO#  : len=10 : S4 00 S4
+	1555 55 15 = OO___@____# : len=11 : NO 00 NO
+	1556 55 16 = OO___@O___# : len=11 : NO 00 NO
+	1557 55 17 = OO___@_O__# : len=11 : NO 00 NO
+	1558 55 18 = OO___@OO__# : len=11 : H3 13 H3
+	1559 55 19 = OO___@__O_# : len=11 : NO 00 NO
+	1560 55 20 = OO___@O_O_# : len=11 : D3 02 D3
+	1561 55 21 = OO___@_OO_# : len=11 : D3 01 D3
+	1562 55 22 = OO___@OOO_# : len=11 : H4 00 H4
+	1563 55 23 = OO___@___O# : len=11 : NO 00 NO
+	1564 55 24 = OO___@O__O# : len=11 : NO 00 NO
+	1565 55 25 = OO___@_O_O# : len=11 : NO 00 NO
+	1566 55 26 = OO___@OO_O# : len=11 : D4 00 D4
+	1567 55 27 = OO___@__OO# : len=11 : NO 00 NO
+	1568 55 28 = OO___@O_OO# : len=11 : D4 00 D4
+	1569 55 29 = OO___@_OOO# : len=11 : D4 00 D4
+	1570 55 30 = OO___@OOOO# : len=11 : L5 00 L5
+	1571 55 31 = OO___@_____ : len=11 : NO 00 NO
+	1572 55 32 = OO___@O____ : len=11 : NO 00 NO
+	1573 55 33 = OO___@_O___ : len=11 : NO 00 NO
+	1574 55 34 = OO___@OO___ : len=11 : H3 13 H3
+	1575 55 35 = OO___@__O__ : len=11 : NO 00 NO
+	1576 55 36 = OO___@O_O__ : len=11 : D3 02 D3
+	1577 55 37 = OO___@_OO__ : len=11 : D3 01 D3
+	1578 55 38 = OO___@OOO__ : len=11 : H4 00 H4
+	1579 55 39 = OO___@___O_ : len=11 : NO 00 NO
+	1580 55 40 = OO___@O__O_ : len=11 : NO 00 NO
+	1581 55 41 = OO___@_O_O_ : len=11 : NO 00 NO
+	1582 55 42 = OO___@OO_O_ : len=11 : D4 00 D4
+	1583 55 43 = OO___@__OO_ : len=11 : NO 00 NO
+	1584 55 44 = OO___@O_OO_ : len=11 : D4 00 D4
+	1585 55 45 = OO___@_OOO_ : len=11 : D4 00 D4
+	1586 55 46 = OO___@OOOO_ : len=11 : L5 00 L5
+	1587 55 47 = OO___@____O : len=11 : NO 00 NO
+	1588 55 48 = OO___@O___O : len=11 : NO 00 NO
+	1589 55 49 = OO___@_O__O : len=11 : NO 00 NO
+	1590 55 50 = OO___@OO__O : len=11 : H3 13 H3
+	1591 55 51 = OO___@__O_O : len=11 : NO 00 NO
+	1592 55 52 = OO___@O_O_O : len=11 : NO 00 D3
+	1593 55 53 = OO___@_OO_O : len=11 : NO 00 D3
+	1594 55 54 = OO___@OOO_O : len=11 : S4 00 H4
+	1595 55 55 = OO___@___OO : len=11 : NO 00 NO
+	1596 56  0 = OO__O@#     : len= 7 : NO 00 NO
+	1597 56  1 = OO__O@_#    : len= 8 : NO 00 NO
+	1598 56  2 = OO__O@O#    : len= 8 : NO 00 NO
+	1599 56  3 = OO__O@__#   : len= 9 : NO 00 NO
+	1600 56  4 = OO__O@O_#   : len= 9 : NO 00 H3
+	1601 56  5 = OO__O@_O#   : len= 9 : NO 00 NO
+	1602 56  6 = OO__O@OO#   : len= 9 : S4 00 S4
+	1603 56  7 = OO__O@___#  : len=10 : NO 00 NO
+	1604 56  8 = OO__O@O__#  : len=10 : H3 22 H3
+	1605 56  9 = OO__O@_O_#  : len=10 : D3 01 D3
+	1606 56 10 = OO__O@OO_#  : len=10 : H4 00 H4
+	1607 56 11 = OO__O@__O#  : len=10 : NO 00 NO
+	1608 56 12 = OO__O@O_O#  : len=10 : D4 00 D4
+	1609 56 13 = OO__O@_OO#  : len=10 : D4 00 D4
+	1610 56 14 = OO__O@OOO#  : len=10 : L5 00 L5
+	1611 56 15 = OO__O@____# : len=11 : NO 00 NO
+	1612 56 16 = OO__O@O___# : len=11 : H3 22 H3
+	1613 56 17 = OO__O@_O__# : len=11 : D3 01 D3
+	1614 56 18 = OO__O@OO__# : len=11 : H4 00 H4
+	1615 56 19 = OO__O@__O_# : len=11 : NO 00 NO
+	1616 56 20 = OO__O@O_O_# : len=11 : D4 00 D4
+	1617 56 21 = OO__O@_OO_# : len=11 : D4 00 D4
+	1618 56 22 = OO__O@OOO_# : len=11 : L5 00 L5
+	1619 56 23 = OO__O@___O# : len=11 : NO 00 NO
+	1620 56 24 = OO__O@O__O# : len=11 : NO 00 H3
+	1621 56 25 = OO__O@_O_O# : len=11 : NO 00 D3
+	1622 56 26 = OO__O@OO_O# : len=11 : S4 00 H4
+	1623 56 27 = OO__O@__OO# : len=11 : NO 00 NO
+	1624 56 28 = OO__O@O_OO# : len=11 : NO 00 D4
+	1625 56 29 = OO__O@_OOO# : len=11 : NO 00 D4
+	1626 56 30 = OO__O@OOOO# : len=11 : L6 00 L6
+	1627 56 31 = OO__O@_____ : len=11 : NO 00 NO
+	1628 56 32 = OO__O@O____ : len=11 : H3 22 H3
+	1629 56 33 = OO__O@_O___ : len=11 : D3 01 D3
+	1630 56 34 = OO__O@OO___ : len=11 : H4 00 H4
+	1631 56 35 = OO__O@__O__ : len=11 : NO 00 NO
+	1632 56 36 = OO__O@O_O__ : len=11 : D4 00 D4
+	1633 56 37 = OO__O@_OO__ : len=11 : D4 00 D4
+	1634 56 38 = OO__O@OOO__ : len=11 : L5 00 L5
+	1635 56 39 = OO__O@___O_ : len=11 : NO 00 NO
+	1636 56 40 = OO__O@O__O_ : len=11 : NO 00 H3
+	1637 56 41 = OO__O@_O_O_ : len=11 : NO 00 D3
+	1638 56 42 = OO__O@OO_O_ : len=11 : S4 00 H4
+	1639 56 43 = OO__O@__OO_ : len=11 : NO 00 NO
+	1640 56 44 = OO__O@O_OO_ : len=11 : NO 00 D4
+	1641 56 45 = OO__O@_OOO_ : len=11 : NO 00 D4
+	1642 56 46 = OO__O@OOOO_ : len=11 : L6 00 L6
+	1643 56 47 = OO__O@____O : len=11 : NO 00 NO
+	1644 56 48 = OO__O@O___O : len=11 : H3 22 H3
+	1645 56 49 = OO__O@_O__O : len=11 : D3 01 D3
+	1646 56 50 = OO__O@OO__O : len=11 : H4 00 H4
+	1647 56 51 = OO__O@__O_O : len=11 : NO 00 NO
+	1648 56 52 = OO__O@O_O_O : len=11 : D4 00 D4
+	1649 56 53 = OO__O@_OO_O : len=11 : D4 00 D4
+	1650 56 54 = OO__O@OOO_O : len=11 : L5 00 L5
+	1651 56 55 = OO__O@___OO : len=11 : NO 00 NO
+	1652 56 56 = OO__O@O__OO : len=11 : NO 00 H3
+	1653 57  0 = OO_O_@#     : len= 7 : NO 00 NO
+	1654 57  1 = OO_O_@_#    : len= 8 : NO 00 NO
+	1655 57  2 = OO_O_@O#    : len= 8 : NO 00 NO
+	1656 57  3 = OO_O_@__#   : len= 9 : NO 00 NO
+	1657 57  4 = OO_O_@O_#   : len= 9 : NO 00 D3
+	1658 57  5 = OO_O_@_O#   : len= 9 : NO 00 NO
+	1659 57  6 = OO_O_@OO#   : len= 9 : D4 00 D4
+	1660 57  7 = OO_O_@___#  : len=10 : NO 00 NO
+	1661 57  8 = OO_O_@O__#  : len=10 : NO 00 D3
+	1662 57  9 = OO_O_@_O_#  : len=10 : NO 00 NO
+	1663 57 10 = OO_O_@OO_#  : len=10 : D4 00 D4
+	1664 57 11 = OO_O_@__O#  : len=10 : NO 00 NO
+	1665 57 12 = OO_O_@O_O#  : len=10 : NO 00 D3
+	1666 57 13 = OO_O_@_OO#  : len=10 : NO 00 NO
+	1667 57 14 = OO_O_@OOO#  : len=10 : NO 00 D4
+	1668 57 15 = OO_O_@____# : len=11 : NO 00 NO
+	1669 57 16 = OO_O_@O___# : len=11 : NO 00 D3
+	1670 57 17 = OO_O_@_O__# : len=11 : NO 00 NO
+	1671 57 18 = OO_O_@OO__# : len=11 : D4 00 D4
+	1672 57 19 = OO_O_@__O_# : len=11 : NO 00 NO
+	1673 57 20 = OO_O_@O_O_# : len=11 : NO 00 D3
+	1674 57 21 = OO_O_@_OO_# : len=11 : NO 00 D3
+	1675 57 22 = OO_O_@OOO_# : len=11 : S4 00 H4
+	1676 57 23 = OO_O_@___O# : len=11 : NO 00 NO
+	1677 57 24 = OO_O_@O__O# : len=11 : NO 00 D3
+	1678 57 25 = OO_O_@_O_O# : len=11 : NO 00 NO
+	1679 57 26 = OO_O_@OO_O# : len=11 : X4 00 X4
+	1680 57 27 = OO_O_@__OO# : len=11 : NO 00 NO
+	1681 57 28 = OO_O_@O_OO# : len=11 : D4 00 D4
+	1682 57 29 = OO_O_@_OOO# : len=11 : D4 00 D4
+	1683 57 30 = OO_O_@OOOO# : len=11 : L5 00 L5
+	1684 57 31 = OO_O_@_____ : len=11 : NO 00 NO
+	1685 57 32 = OO_O_@O____ : len=11 : NO 00 D3
+	1686 57 33 = OO_O_@_O___ : len=11 : NO 00 NO
+	1687 57 34 = OO_O_@OO___ : len=11 : D4 00 D4
+	1688 57 35 = OO_O_@__O__ : len=11 : NO 00 NO
+	1689 57 36 = OO_O_@O_O__ : len=11 : NO 00 D3
+	1690 57 37 = OO_O_@_OO__ : len=11 : NO 00 D3
+	1691 57 38 = OO_O_@OOO__ : len=11 : S4 00 H4
+	1692 57 39 = OO_O_@___O_ : len=11 : NO 00 NO
+	1693 57 40 = OO_O_@O__O_ : len=11 : NO 00 D3
+	1694 57 41 = OO_O_@_O_O_ : len=11 : NO 00 NO
+	1695 57 42 = OO_O_@OO_O_ : len=11 : X4 00 X4
+	1696 57 43 = OO_O_@__OO_ : len=11 : NO 00 NO
+	1697 57 44 = OO_O_@O_OO_ : len=11 : D4 00 D4
+	1698 57 45 = OO_O_@_OOO_ : len=11 : D4 00 D4
+	1699 57 46 = OO_O_@OOOO_ : len=11 : L5 00 L5
+	1700 57 47 = OO_O_@____O : len=11 : NO 00 NO
+	1701 57 48 = OO_O_@O___O : len=11 : NO 00 D3
+	1702 57 49 = OO_O_@_O__O : len=11 : NO 00 NO
+	1703 57 50 = OO_O_@OO__O : len=11 : D4 00 D4
+	1704 57 51 = OO_O_@__O_O : len=11 : NO 00 NO
+	1705 57 52 = OO_O_@O_O_O : len=11 : NO 00 D3
+	1706 57 53 = OO_O_@_OO_O : len=11 : NO 00 D3
+	1707 57 54 = OO_O_@OOO_O : len=11 : NO 00 H4
+	1708 57 55 = OO_O_@___OO : len=11 : NO 00 NO
+	1709 57 56 = OO_O_@O__OO : len=11 : NO 00 D3
+	1710 57 57 = OO_O_@_O_OO : len=11 : NO 00 NO
+	1711 58  0 = OO_OO@#     : len= 7 : NO 00 D4
+	1712 58  1 = OO_OO@_#    : len= 8 : NO 00 D4
+	1713 58  2 = OO_OO@O#    : len= 8 : NO 00 D4
+	1714 58  3 = OO_OO@__#   : len= 9 : NO 00 D4
+	1715 58  4 = OO_OO@O_#   : len= 9 : S4 00 H4
+	1716 58  5 = OO_OO@_O#   : len= 9 : D4 00 X4
+	1717 58  6 = OO_OO@OO#   : len= 9 : L5 00 L5
+	1718 58  7 = OO_OO@___#  : len=10 : NO 00 D4
+	1719 58  8 = OO_OO@O__#  : len=10 : S4 00 H4
+	1720 58  9 = OO_OO@_O_#  : len=10 : D4 00 X4
+	1721 58 10 = OO_OO@OO_#  : len=10 : L5 00 L5
+	1722 58 11 = OO_OO@__O#  : len=10 : NO 00 D4
+	1723 58 12 = OO_OO@O_O#  : len=10 : NO 00 H4
+	1724 58 13 = OO_OO@_OO#  : len=10 : NO 00 X4
+	1725 58 14 = OO_OO@OOO#  : len=10 : L6 00 L6
+	1726 58 15 = OO_OO@____# : len=11 : NO 00 D4
+	1727 58 16 = OO_OO@O___# : len=11 : S4 00 H4
+	1728 58 17 = OO_OO@_O__# : len=11 : D4 00 X4
+	1729 58 18 = OO_OO@OO__# : len=11 : L5 00 L5
+	1730 58 19 = OO_OO@__O_# : len=11 : NO 00 D4
+	1731 58 20 = OO_OO@O_O_# : len=11 : NO 00 H4
+	1732 58 21 = OO_OO@_OO_# : len=11 : NO 00 X4
+	1733 58 22 = OO_OO@OOO_# : len=11 : L6 00 L6
+	1734 58 23 = OO_OO@___O# : len=11 : NO 00 D4
+	1735 58 24 = OO_OO@O__O# : len=11 : S4 00 H4
+	1736 58 25 = OO_OO@_O_O# : len=11 : D4 00 X4
+	1737 58 26 = OO_OO@OO_O# : len=11 : L5 00 L5
+	1738 58 27 = OO_OO@__OO# : len=11 : NO 00 D4
+	1739 58 28 = OO_OO@O_OO# : len=11 : NO 00 H4
+	1740 58 29 = OO_OO@_OOO# : len=11 : NO 00 X4
+	1741 58 30 = OO_OO@OOOO# : len=11 : L6 00 L6
+	1742 58 31 = OO_OO@_____ : len=11 : NO 00 D4
+	1743 58 32 = OO_OO@O____ : len=11 : S4 00 H4
+	1744 58 33 = OO_OO@_O___ : len=11 : D4 00 X4
+	1745 58 34 = OO_OO@OO___ : len=11 : L5 00 L5
+	1746 58 35 = OO_OO@__O__ : len=11 : NO 00 D4
+	1747 58 36 = OO_OO@O_O__ : len=11 : NO 00 H4
+	1748 58 37 = OO_OO@_OO__ : len=11 : NO 00 X4
+	1749 58 38 = OO_OO@OOO__ : len=11 : L6 00 L6
+	1750 58 39 = OO_OO@___O_ : len=11 : NO 00 D4
+	1751 58 40 = OO_OO@O__O_ : len=11 : S4 00 H4
+	1752 58 41 = OO_OO@_O_O_ : len=11 : D4 00 X4
+	1753 58 42 = OO_OO@OO_O_ : len=11 : L5 00 L5
+	1754 58 43 = OO_OO@__OO_ : len=11 : NO 00 D4
+	1755 58 44 = OO_OO@O_OO_ : len=11 : NO 00 H4
+	1756 58 45 = OO_OO@_OOO_ : len=11 : NO 00 X4
+	1757 58 46 = OO_OO@OOOO_ : len=11 : L6 00 L6
+	1758 58 47 = OO_OO@____O : len=11 : NO 00 D4
+	1759 58 48 = OO_OO@O___O : len=11 : S4 00 H4
+	1760 58 49 = OO_OO@_O__O : len=11 : D4 00 X4
+	1761 58 50 = OO_OO@OO__O : len=11 : L5 00 L5
+	1762 58 51 = OO_OO@__O_O : len=11 : NO 00 D4
+	1763 58 52 = OO_OO@O_O_O : len=11 : NO 00 H4
+	1764 58 53 = OO_OO@_OO_O : len=11 : NO 00 X4
+	1765 58 54 = OO_OO@OOO_O : len=11 : L6 00 L6
+	1766 58 55 = OO_OO@___OO : len=11 : NO 00 D4
+	1767 58 56 = OO_OO@O__OO : len=11 : S4 00 H4
+	1768 58 57 = OO_OO@_O_OO : len=11 : D4 00 X4
+	1769 58 58 = OO_OO@OO_OO : len=11 : L5 00 L5
+	1770 59  0 = OOO__@#     : len= 7 : NO 00 NO
+	1771 59  1 = OOO__@_#    : len= 8 : NO 00 NO
+	1772 59  2 = OOO__@O#    : len= 8 : NO 00 NO
+	1773 59  3 = OOO__@__#   : len= 9 : NO 00 NO
+	1774 59  4 = OOO__@O_#   : len= 9 : NO 00 NO
+	1775 59  5 = OOO__@_O#   : len= 9 : NO 00 NO
+	1776 59  6 = OOO__@OO#   : len= 9 : NO 00 NO
+	1777 59  7 = OOO__@___#  : len=10 : NO 00 NO
+	1778 59  8 = OOO__@O__#  : len=10 : NO 00 NO
+	1779 59  9 = OOO__@_O_#  : len=10 : NO 00 NO
+	1780 59 10 = OOO__@OO_#  : len=10 : NO 00 H3
+	1781 59 11 = OOO__@__O#  : len=10 : NO 00 NO
+	1782 59 12 = OOO__@O_O#  : len=10 : NO 00 NO
+	1783 59 13 = OOO__@_OO#  : len=10 : NO 00 NO
+	1784 59 14 = OOO__@OOO#  : len=10 : S4 00 S4
+	1785 59 15 = OOO__@____# : len=11 : NO 00 NO
+	1786 59 16 = OOO__@O___# : len=11 : NO 00 NO
+	1787 59 17 = OOO__@_O__# : len=11 : NO 00 NO
+	1788 59 18 = OOO__@OO__# : len=11 : H3 13 H3
+	1789 59 19 = OOO__@__O_# : len=11 : NO 00 NO
+	1790 59 20 = OOO__@O_O_# : len=11 : D3 02 D3
+	1791 59 21 = OOO__@_OO_# : len=11 : D3 01 D3
+	1792 59 22 = OOO__@OOO_# : len=11 : H4 00 H4
+	1793 59 23 = OOO__@___O# : len=11 : NO 00 NO
+	1794 59 24 = OOO__@O__O# : len=11 : NO 00 NO
+	1795 59 25 = OOO__@_O_O# : len=11 : NO 00 NO
+	1796 59 26 = OOO__@OO_O# : len=11 : D4 00 D4
+	1797 59 27 = OOO__@__OO# : len=11 : NO 00 NO
+	1798 59 28 = OOO__@O_OO# : len=11 : D4 00 D4
+	1799 59 29 = OOO__@_OOO# : len=11 : D4 00 D4
+	1800 59 30 = OOO__@OOOO# : len=11 : L5 00 L5
+	1801 59 31 = OOO__@_____ : len=11 : NO 00 NO
+	1802 59 32 = OOO__@O____ : len=11 : NO 00 NO
+	1803 59 33 = OOO__@_O___ : len=11 : NO 00 NO
+	1804 59 34 = OOO__@OO___ : len=11 : H3 13 H3
+	1805 59 35 = OOO__@__O__ : len=11 : NO 00 NO
+	1806 59 36 = OOO__@O_O__ : len=11 : D3 02 D3
+	1807 59 37 = OOO__@_OO__ : len=11 : D3 01 D3
+	1808 59 38 = OOO__@OOO__ : len=11 : H4 00 H4
+	1809 59 39 = OOO__@___O_ : len=11 : NO 00 NO
+	1810 59 40 = OOO__@O__O_ : len=11 : NO 00 NO
+	1811 59 41 = OOO__@_O_O_ : len=11 : NO 00 NO
+	1812 59 42 = OOO__@OO_O_ : len=11 : D4 00 D4
+	1813 59 43 = OOO__@__OO_ : len=11 : NO 00 NO
+	1814 59 44 = OOO__@O_OO_ : len=11 : D4 00 D4
+	1815 59 45 = OOO__@_OOO_ : len=11 : D4 00 D4
+	1816 59 46 = OOO__@OOOO_ : len=11 : L5 00 L5
+	1817 59 47 = OOO__@____O : len=11 : NO 00 NO
+	1818 59 48 = OOO__@O___O : len=11 : NO 00 NO
+	1819 59 49 = OOO__@_O__O : len=11 : NO 00 NO
+	1820 59 50 = OOO__@OO__O : len=11 : NO 00 H3
+	1821 59 51 = OOO__@__O_O : len=11 : NO 00 NO
+	1822 59 52 = OOO__@O_O_O : len=11 : NO 00 D3
+	1823 59 53 = OOO__@_OO_O : len=11 : NO 00 D3
+	1824 59 54 = OOO__@OOO_O : len=11 : S4 00 H4
+	1825 59 55 = OOO__@___OO : len=11 : NO 00 NO
+	1826 59 56 = OOO__@O__OO : len=11 : NO 00 NO
+	1827 59 57 = OOO__@_O_OO : len=11 : NO 00 NO
+	1828 59 58 = OOO__@OO_OO : len=11 : NO 00 D4
+	1829 59 59 = OOO__@__OOO : len=11 : NO 00 NO
+	1830 60  0 = OOO_O@#     : len= 7 : NO 00 D4
+	1831 60  1 = OOO_O@_#    : len= 8 : NO 00 D4
+	1832 60  2 = OOO_O@O#    : len= 8 : NO 00 D4
+	1833 60  3 = OOO_O@__#   : len= 9 : NO 00 D4
+	1834 60  4 = OOO_O@O_#   : len= 9 : NO 00 D4
+	1835 60  5 = OOO_O@_O#   : len= 9 : NO 00 D4
+	1836 60  6 = OOO_O@OO#   : len= 9 : NO 00 D4
+	1837 60  7 = OOO_O@___#  : len=10 : NO 00 D4
+	1838 60  8 = OOO_O@O__#  : len=10 : NO 00 D4
+	1839 60  9 = OOO_O@_O_#  : len=10 : NO 00 D4
+	1840 60 10 = OOO_O@OO_#  : len=10 : S4 00 H4
+	1841 60 11 = OOO_O@__O#  : len=10 : NO 00 D4
+	1842 60 12 = OOO_O@O_O#  : len=10 : D4 00 X4
+	1843 60 13 = OOO_O@_OO#  : len=10 : D4 00 X4
+	1844 60 14 = OOO_O@OOO#  : len=10 : L5 00 L5
+	1845 60 15 = OOO_O@____# : len=11 : NO 00 D4
+	1846 60 16 = OOO_O@O___# : len=11 : NO 00 D4
+	1847 60 17 = OOO_O@_O__# : len=11 : NO 00 D4
+	1848 60 18 = OOO_O@OO__# : len=11 : S4 00 H4
+	1849 60 19 = OOO_O@__O_# : len=11 : NO 00 D4
+	1850 60 20 = OOO_O@O_O_# : len=11 : D4 00 X4
+	1851 60 21 = OOO_O@_OO_# : len=11 : D4 00 X4
+	1852 60 22 = OOO_O@OOO_# : len=11 : L5 00 L5
+	1853 60 23 = OOO_O@___O# : len=11 : NO 00 D4
+	1854 60 24 = OOO_O@O__O# : len=11 : NO 00 D4
+	1855 60 25 = OOO_O@_O_O# : len=11 : NO 00 D4
+	1856 60 26 = OOO_O@OO_O# : len=11 : NO 00 H4
+	1857 60 27 = OOO_O@__OO# : len=11 : NO 00 D4
+	1858 60 28 = OOO_O@O_OO# : len=11 : NO 00 X4
+	1859 60 29 = OOO_O@_OOO# : len=11 : NO 00 X4
+	1860 60 30 = OOO_O@OOOO# : len=11 : L6 00 L6
+	1861 60 31 = OOO_O@_____ : len=11 : NO 00 D4
+	1862 60 32 = OOO_O@O____ : len=11 : NO 00 D4
+	1863 60 33 = OOO_O@_O___ : len=11 : NO 00 D4
+	1864 60 34 = OOO_O@OO___ : len=11 : S4 00 H4
+	1865 60 35 = OOO_O@__O__ : len=11 : NO 00 D4
+	1866 60 36 = OOO_O@O_O__ : len=11 : D4 00 X4
+	1867 60 37 = OOO_O@_OO__ : len=11 : D4 00 X4
+	1868 60 38 = OOO_O@OOO__ : len=11 : L5 00 L5
+	1869 60 39 = OOO_O@___O_ : len=11 : NO 00 D4
+	1870 60 40 = OOO_O@O__O_ : len=11 : NO 00 D4
+	1871 60 41 = OOO_O@_O_O_ : len=11 : NO 00 D4
+	1872 60 42 = OOO_O@OO_O_ : len=11 : NO 00 H4
+	1873 60 43 = OOO_O@__OO_ : len=11 : NO 00 D4
+	1874 60 44 = OOO_O@O_OO_ : len=11 : NO 00 X4
+	1875 60 45 = OOO_O@_OOO_ : len=11 : NO 00 X4
+	1876 60 46 = OOO_O@OOOO_ : len=11 : L6 00 L6
+	1877 60 47 = OOO_O@____O : len=11 : NO 00 D4
+	1878 60 48 = OOO_O@O___O : len=11 : NO 00 D4
+	1879 60 49 = OOO_O@_O__O : len=11 : NO 00 D4
+	1880 60 50 = OOO_O@OO__O : len=11 : S4 00 H4
+	1881 60 51 = OOO_O@__O_O : len=11 : NO 00 D4
+	1882 60 52 = OOO_O@O_O_O : len=11 : D4 00 X4
+	1883 60 53 = OOO_O@_OO_O : len=11 : D4 00 X4
+	1884 60 54 = OOO_O@OOO_O : len=11 : L5 00 L5
+	1885 60 55 = OOO_O@___OO : len=11 : NO 00 D4
+	1886 60 56 = OOO_O@O__OO : len=11 : NO 00 D4
+	1887 60 57 = OOO_O@_O_OO : len=11 : NO 00 D4
+	1888 60 58 = OOO_O@OO_OO : len=11 : NO 00 H4
+	1889 60 59 = OOO_O@__OOO : len=11 : NO 00 D4
+	1890 60 60 = OOO_O@O_OOO : len=11 : NO 00 X4
+	1891 61  0 = OOOO_@#     : len= 7 : NO 00 D4
+	1892 61  1 = OOOO_@_#    : len= 8 : NO 00 D4
+	1893 61  2 = OOOO_@O#    : len= 8 : NO 00 D4
+	1894 61  3 = OOOO_@__#   : len= 9 : NO 00 D4
+	1895 61  4 = OOOO_@O_#   : len= 9 : NO 00 D4
+	1896 61  5 = OOOO_@_O#   : len= 9 : NO 00 D4
+	1897 61  6 = OOOO_@OO#   : len= 9 : NO 00 D4
+	1898 61  7 = OOOO_@___#  : len=10 : NO 00 D4
+	1899 61  8 = OOOO_@O__#  : len=10 : NO 00 D4
+	1900 61  9 = OOOO_@_O_#  : len=10 : NO 00 D4
+	1901 61 10 = OOOO_@OO_#  : len=10 : NO 00 D4
+	1902 61 11 = OOOO_@__O#  : len=10 : NO 00 D4
+	1903 61 12 = OOOO_@O_O#  : len=10 : NO 00 D4
+	1904 61 13 = OOOO_@_OO#  : len=10 : NO 00 D4
+	1905 61 14 = OOOO_@OOO#  : len=10 : NO 00 D4
+	1906 61 15 = OOOO_@____# : len=11 : NO 00 D4
+	1907 61 16 = OOOO_@O___# : len=11 : NO 00 D4
+	1908 61 17 = OOOO_@_O__# : len=11 : NO 00 D4
+	1909 61 18 = OOOO_@OO__# : len=11 : NO 00 D4
+	1910 61 19 = OOOO_@__O_# : len=11 : NO 00 D4
+	1911 61 20 = OOOO_@O_O_# : len=11 : NO 00 D4
+	1912 61 21 = OOOO_@_OO_# : len=11 : NO 00 D4
+	1913 61 22 = OOOO_@OOO_# : len=11 : S4 00 H4
+	1914 61 23 = OOOO_@___O# : len=11 : NO 00 D4
+	1915 61 24 = OOOO_@O__O# : len=11 : NO 00 D4
+	1916 61 25 = OOOO_@_O_O# : len=11 : NO 00 D4
+	1917 61 26 = OOOO_@OO_O# : len=11 : D4 00 X4
+	1918 61 27 = OOOO_@__OO# : len=11 : NO 00 D4
+	1919 61 28 = OOOO_@O_OO# : len=11 : D4 00 X4
+	1920 61 29 = OOOO_@_OOO# : len=11 : D4 00 X4
+	1921 61 30 = OOOO_@OOOO# : len=11 : L5 00 L5
+	1922 61 31 = OOOO_@_____ : len=11 : NO 00 D4
+	1923 61 32 = OOOO_@O____ : len=11 : NO 00 D4
+	1924 61 33 = OOOO_@_O___ : len=11 : NO 00 D4
+	1925 61 34 = OOOO_@OO___ : len=11 : NO 00 D4
+	1926 61 35 = OOOO_@__O__ : len=11 : NO 00 D4
+	1927 61 36 = OOOO_@O_O__ : len=11 : NO 00 D4
+	1928 61 37 = OOOO_@_OO__ : len=11 : NO 00 D4
+	1929 61 38 = OOOO_@OOO__ : len=11 : S4 00 H4
+	1930 61 39 = OOOO_@___O_ : len=11 : NO 00 D4
+	1931 61 40 = OOOO_@O__O_ : len=11 : NO 00 D4
+	1932 61 41 = OOOO_@_O_O_ : len=11 : NO 00 D4
+	1933 61 42 = OOOO_@OO_O_ : len=11 : D4 00 X4
+	1934 61 43 = OOOO_@__OO_ : len=11 : NO 00 D4
+	1935 61 44 = OOOO_@O_OO_ : len=11 : D4 00 X4
+	1936 61 45 = OOOO_@_OOO_ : len=11 : D4 00 X4
+	1937 61 46 = OOOO_@OOOO_ : len=11 : L5 00 L5
+	1938 61 47 = OOOO_@____O : len=11 : NO 00 D4
+	1939 61 48 = OOOO_@O___O : len=11 : NO 00 D4
+	1940 61 49 = OOOO_@_O__O : len=11 : NO 00 D4
+	1941 61 50 = OOOO_@OO__O : len=11 : NO 00 D4
+	1942 61 51 = OOOO_@__O_O : len=11 : NO 00 D4
+	1943 61 52 = OOOO_@O_O_O : len=11 : NO 00 D4
+	1944 61 53 = OOOO_@_OO_O : len=11 : NO 00 D4
+	1945 61 54 = OOOO_@OOO_O : len=11 : NO 00 H4
+	1946 61 55 = OOOO_@___OO : len=11 : NO 00 D4
+	1947 61 56 = OOOO_@O__OO : len=11 : NO 00 D4
+	1948 61 57 = OOOO_@_O_OO : len=11 : NO 00 D4
+	1949 61 58 = OOOO_@OO_OO : len=11 : NO 00 X4
+	1950 61 59 = OOOO_@__OOO : len=11 : NO 00 D4
+	1951 61 60 = OOOO_@O_OOO : len=11 : NO 00 X4
+	1952 61 61 = OOOO_@_OOOO : len=11 : NO 00 X4
+*/
+
+#endif
diff --git a/pttbbs/include/modes.h b/pttbbs/include/modes.h
new file mode 100644
index 00000000..8321fc8b
--- /dev/null
+++ b/pttbbs/include/modes.h
@@ -0,0 +1,153 @@
+/* $Id$ */
+#ifndef INCLUDE_MODES_H
+#define INCLUDE_MODES_H
+
+#define DONOTHING       0       /* Read menu command return states */
+#define FULLUPDATE      1       /* Entire screen was destroyed in this oper */
+#define PARTUPDATE      2       /* Only the top three lines were destroyed */
+#define DOQUIT          3       /* Exit read menu was executed */
+#define NEWDIRECT       4       /* Directory has changed, re-read files */
+#define READ_NEXT       5       /* Direct read next file */
+#define READ_PREV       6       /* Direct read prev file */
+#define DIRCHANGED      8       /* Index file was changed */
+#define READ_REDRAW     9
+#define PART_REDRAW     10
+#define POS_NEXT        101     /* cursor_pos(locmem, locmem->crs_ln + 1, 1);*/
+
+/* user 操作狀態與模式 */
+#define IDLE            0
+#define MMENU           1       /* menu mode */
+#define ADMIN           2
+#define MAIL            3
+#define TMENU           4
+#define UMENU           5
+#define XMENU           6
+#define CLASS           7
+#define PMENU           8
+#define NMENU           9
+#define PSALE           10
+#define POSTING         11      /* boards & class */
+#define READBRD         12
+#define READING         13
+#define READNEW         14
+#define SELECT          15
+#define RMAIL           16      /* mail menu */
+#define SMAIL           17
+#define CHATING         18      /* talk menu */
+#define XMODE           19
+#define FRIEND          20
+#define LAUSERS         21
+#define LUSERS          22
+#define MONITOR         23
+#define PAGE            24
+#define TQUERY          25
+#define TALK            26
+#define EDITPLAN        27      /* user menu */
+#define EDITSIG         28
+#define VOTING          29
+#define XINFO           30
+#define MSYSOP          31
+#define WWW             32
+#define BIG2            33
+#define REPLY           34
+#define HIT             35
+#define DBACK           36
+#define NOTE            37
+#define EDITING         38
+#define MAILALL         39
+#define MJ              40
+#define P_FRIEND        41
+#define LOGIN           42      /* main menu *//* 所有其他選單動態須在此之前 */
+#define DICT            43
+#define BRIDGE          44
+#define ARCHIE          45
+#define GOPHER          46
+#define NEWS            47
+#define LOVE            48
+#define EDITEXP         49
+#define IPREG           50
+#define NADM            51
+#define DRINK           52
+#define CAL             53
+#define PROVERB         54
+#define ANNOUNCE        55      /* announce */
+#define EDNOTE          56 
+#define CDICT           57
+#define LOBJ            58
+#define OSONG           59
+#define CHICKEN         60
+#define TICKET 	    	61
+#define GUESSNUM        62
+#define AMUSE           63
+#define OTHELLO		64
+#define DICE            65
+#define VICE            66
+#define BBCALL          67
+#define VIOLATELAW      68
+#define M_FIVE          69
+#define JACK_CARD       70
+#define TENHALF         71
+#define CARD_99         72
+#define RAIL_WAY        73
+#define SREG            74
+#define CHC             75      /* Chinese chess */
+#define DARK            76      /* 中國暗琪 */
+#define TMPJACK         77
+#define JCEE		78
+#define REEDIT		79
+#define BLOGGING        80
+
+/* menu.c 中的模式 */
+#define QUIT    0x666           /* Return value to abort recursive functions */
+#define XEASY   0x333           /* Return value to un-redraw screen */
+
+/* for currmode */
+#define MODE_STARTED    1       /* 是否已經進入系統 */
+#define MODE_POST       2       /* 是否可以在 currboard 發表文章 */
+#define MODE_BOARD      4       /* 是否可以在 currboard 刪除、mark文章 */
+#define MODE_MENU       8       /* 是否可以在 MENU      開板 */
+#define MODE_DIGEST     0x10    /* 是否為 digest mode */
+#define MODE_ETC        0x20    /* 是否為 etc mode */
+#define MODE_SELECT     0x40    /* 搜尋使用者標題 */
+#define MODE_DIRTY      0x80    /* 是否更動過 userflag */
+
+/* for curredit */
+#define EDIT_MAIL       1       /* 目前是 mail/board ? */
+#define EDIT_LIST       2       /* 是否為 mail list ? */
+#define EDIT_BOTH       4       /* both reply to author/board ? */
+#define EDIT_ITEM       8       /* ITEM ? */
+
+/* read.c 中的模式 */
+#define TAG_NIN         0       /* 不屬於 TagList */
+#define TAG_TOGGLE      1       /* 切換 Taglist */
+#define TAG_INSERT      2       /* 加入 TagList */
+
+
+#define RS_FORWARD      0x01    /* backward */
+#define RS_TITLE        0x02    /* author/title */
+#define RS_RELATED      0x04
+#define RS_FIRST        0x08    /* find first article */
+#define RS_CURRENT      0x10    /* match current read article */
+#define RS_THREAD       0x20    /* search the first article */
+#define RS_AUTHOR       0x40    /* search author's article */
+#define RS_NEWPOST	0x80	/* search new posts */
+
+#define CURSOR_FIRST    (RS_RELATED | RS_TITLE | RS_FIRST)
+#define CURSOR_NEXT     (RS_RELATED | RS_TITLE | RS_FORWARD)
+#define CURSOR_PREV     (RS_RELATED | RS_TITLE)
+#define RELATE_FIRST    (RS_RELATED | RS_TITLE | RS_FIRST | RS_CURRENT)
+#define RELATE_NEXT     (RS_RELATED | RS_TITLE | RS_FORWARD | RS_CURRENT)
+#define RELATE_PREV     (RS_RELATED | RS_TITLE | RS_CURRENT)
+#define THREAD_NEXT     (RS_THREAD | RS_FORWARD)
+#define THREAD_PREV     (RS_THREAD)
+
+enum {STRIP_ALL = 0, ONLY_COLOR, NO_RELOAD};
+
+#define SIG_PK          0
+#define SIG_TALK        1
+#define SIG_BROADCAST   2
+#define SIG_GOMO        3
+#define SIG_CHC         4
+#define SIG_DARK        5
+
+#endif
diff --git a/pttbbs/include/perm.h b/pttbbs/include/perm.h
new file mode 100644
index 00000000..d2e31ddd
--- /dev/null
+++ b/pttbbs/include/perm.h
@@ -0,0 +1,56 @@
+/* $Id$ */
+#ifndef INCLUDE_PERM_H
+#define INCLUDE_PERM_H
+
+#define PERM_BASIC        000000000001 /* 基本權力       */
+#define PERM_CHAT         000000000002 /* 進入聊天室     */
+#define PERM_PAGE         000000000004 /* 找人聊天       */
+#define PERM_POST         000000000010 /* 發表文章       */
+#define PERM_LOGINOK      000000000020 /* 註冊程序認證   */
+#define PERM_MAILLIMIT    000000000040 /* 信件無上限     */
+#define PERM_CLOAK        000000000100 /* 目前隱形中     */
+#define PERM_SEECLOAK     000000000200 /* 看見忍者       */
+#define PERM_XEMPT        000000000400 /* 永久保留帳號   */
+#define PERM_DENYPOST     000000001000 /* 站長隱身術     */
+#define PERM_BM           000000002000 /* 板主           */
+#define PERM_ACCOUNTS     000000004000 /* 帳號總管       */
+#define PERM_CHATROOM     000000010000 /* 聊天室總管     */
+#define PERM_BOARD        000000020000 /* 看板總管       */
+#define PERM_SYSOP        000000040000 /* 站長           */
+#define PERM_BBSADM       000000100000 /* BBSADM         */
+#define PERM_NOTOP        000000200000 /* 不列入排行榜   */
+#define PERM_VIOLATELAW   000000400000 /* 違法通緝中     */
+#define PERM_NOOUTMAIL    000001000000 /* 不接受站外的信 */
+#define PERM_20           000002000000 /* 沒想到         */
+#define PERM_VIEWSYSOP    000004000000 /* 視覺站長       */
+#define PERM_LOGUSER      000010000000 /* 觀察使用者行蹤 */
+#define PERM_ANNOUNCE     000020000000 /* 精華區總整理權 */
+#define PERM_RELATION     000040000000 /* 公關組         */
+#define PERM_SMG          000100000000 /* 特務組         */
+#define PERM_PRG          000200000000 /* 程式組         */
+#define PERM_ACTION       000400000000 /* 活動組         */
+#define PERM_PAINT        001000000000 /* 美工組         */
+#define PERM_LAW          002000000000 /* 立法組         */
+#define PERM_SYSSUBOP     004000000000 /* 小組長         */
+#define PERM_MSYSOP       010000000000 /* 一級主管       */
+#define PERM_PTT          020000000000 /* Ｐｔｔ         */
+
+#define NUMPERMS        32
+
+#define PERM_DEFAULT    (PERM_BASIC | PERM_CHAT | PERM_PAGE )
+#define PERM_MANAGER    (PERM_RELATION | PERM_SMG | PERM_ACTION | PERM_PAINT | PERM_LAW)
+#define PERM_ADMIN      (PERM_ACCOUNTS | PERM_SYSOP | PERM_SYSSUBOP | PERM_MANAGER | PERM_BM)
+#define PERM_ALLBOARD   (PERM_SYSOP | PERM_BOARD)
+#define PERM_LOGINCLOAK (PERM_SYSOP | PERM_ACCOUNTS)
+#define PERM_SEEULEVELS (PERM_SYSOP)
+#define PERM_SEEBLEVELS (PERM_SYSOP | PERM_BM)
+#define PERM_NOTIMEOUT  (PERM_SYSOP)
+#define PERM_READMAIL   (PERM_BASIC)
+#define PERM_FORWARD    (PERM_BASIC)    /* to do the forwarding */
+#define PERM_INTERNET   (PERM_LOGINOK)  /* 身份認證過關的才能寄信到 Internet */
+
+#define HAS_PERM(x)     ((x) ? cuser.userlevel & (x) : 1)
+#define HAVE_PERM(x)    (cuser.userlevel&(x))
+#define PERM_HIDE(u)    ((u)->userlevel & PERM_SYSOP && \
+			 (u)->userlevel & PERM_DENYPOST)
+#endif
diff --git a/pttbbs/include/proto.h b/pttbbs/include/proto.h
new file mode 100644
index 00000000..5e902289
--- /dev/null
+++ b/pttbbs/include/proto.h
@@ -0,0 +1,603 @@
+/* $Id$ */
+#ifndef INCLUDE_PROTO_H
+#define INCLUDE_PROTO_H
+
+#ifdef __GNUC__
+#define GCC_CHECK_FORMAT(a,b) __attribute__ ((format (printf, a, b)))
+#else
+#define GCC_CHECK_FORMAT(a,b)
+#endif
+
+/* admin */
+int m_mod_board(char *bname);
+int m_newbrd(int recover);
+int scan_register_form(char *regfile, int automode, int neednum);
+int m_user();
+int search_user_bypwd();
+int search_user_bybakpwd();
+int m_board();
+int m_register();
+int cat_register();
+unsigned int setperms(unsigned int pbits, char *pstring[]);
+void setup_man(boardheader_t * board);
+
+/* announce */
+int a_menu(char *maintitle, char *path, int lastlevel);
+void a_copyitem(char* fpath, char* title, char* owner, int mode);
+int Announce();
+void gem(char* maintitle, item_t* path, int update);
+#ifdef BLOG
+void BlogMain(int);
+#endif
+
+/* args */
+void initsetproctitle(int argc, char **argv, char **envp);
+void setproctitle(const char* format, ...) GCC_CHECK_FORMAT(1,2);
+
+/* bbcall */
+int main_bbcall();
+
+/* bbs */
+void make_blist();
+int invalid_brdname(char *brd);
+int del_range(int ent, fileheader_t *fhdr, char *direct);
+int cmpfowner(fileheader_t *fhdr);
+int b_note_edit_bname(int bid);
+int Read();
+void anticrosspost();
+int Select();
+void do_reply_title(int row, char *title);
+int cmpfmode(fileheader_t *fhdr);
+int cmpfilename(fileheader_t *fhdr);
+int getindex(char *fpath, char *fname, int size);
+void outgo_post(fileheader_t *fh, char *board);
+int edit_title(int ent, fileheader_t *fhdr, char *direct);
+int whereami(int ent, fileheader_t *fhdr, char *direct);
+void set_board();
+int do_post();
+void ReadSelect();
+int save_violatelaw();
+int board_select();
+int board_etc();
+int board_digest();
+
+/* board */
+#define setutmpbid(bid) currutmp->brc_id=bid;
+int brc_unread(const char *fname, int bnum, const int *blist);
+int brc_initial(const char *boardname);
+void brc_update();
+int Ben_Perm(boardheader_t *bptr);
+int New();
+int Boards();
+int root_board();
+void save_brdbuf(void);
+void init_brdbuf(void);
+#ifdef CRITICAL_MEMORY
+void sigfree(int);
+#endif
+
+/* cache */
+int moneyof(int uid);
+int getuser(char *userid);
+void setuserid(int num, char *userid);
+int searchuser(char *userid);
+int getbnum(char *bname);
+void reset_board(int bid);
+void touch_boards();
+void addbrd_touchcache();
+void setapath(char *buf, char *boardname);
+void setutmpmode(unsigned int mode);
+void setadir(char *buf, char *path);
+boardheader_t *getbcache(int bid);
+int apply_boards(int (*func)(boardheader_t *));
+int haspostperm(char *bname);
+void inbtotal(int bid, int add);
+void brc_addlist(const char *fname);
+void setbtotal(int bid);
+unsigned int safe_sleep(unsigned int seconds);
+int apply_ulist(int (*fptr)(userinfo_t *));
+userinfo_t *search_ulistn(int uid, int unum);
+void purge_utmp(userinfo_t *uentp);
+userinfo_t *search_ulist(int uid);
+int count_multi();
+void resolve_utmp();
+void attach_uhash();
+void getnewutmpent(userinfo_t *up);
+void resolve_garbage();
+void resolve_boards();
+void resolve_fcache();
+void sem_init(int semkey,int *semid);
+void sem_lock(int op,int semid);
+int count_ulist();
+char *u_namearray(char buf[][IDLEN + 1], int *pnum, char *tag);
+char *getuserid(int num);
+int searchnewuser(int mode);
+int count_logins(int uid, int show);
+void remove_from_uhash(int n);
+void add_to_uhash(int n, char *id);
+int setumoney(int uid, int money);
+int getbtotal(int bid);
+userinfo_t *search_ulist_pid(int pid);
+userinfo_t *search_ulist_userid(char *userid);
+int moneyof(int uid);
+void hbflreload(int bid);
+int hbflcheck(int bid, int uid);
+int updatemdcache(const char *cpath, const char *fpath);
+char *cachepath(const char *fpath);
+int mdcacheopen(char *fpath);
+void touchdircache(int bid);
+int get_fileheader_cache(int bid, char *direct, fileheader_t *headers, 
+			 int recbase, int nlines);
+void *attach_shm(int shmkey, int shmsize);
+void attach_SHM(void);
+void sort_utmp(void);
+int is_BM_cache(int);
+void buildBMcache(int);
+void reload_bcache(void);
+
+/* cal */
+int give_tax(int money);
+int vice(int money, char* item);
+int inumoney(char *tuser, int money);
+int cal();
+#define reload_money()  cuser.money=moneyof(usernum)
+int demoney(int money);
+int deumoney(int uid, int money);
+int lockutmpmode(int unmode, int state);
+int unlockutmpmode();
+int p_touch_boards();
+int x_file();
+int give_money();
+int p_sysinfo();
+int p_give();
+int p_cloak();
+int p_from();
+int ordersong();
+int p_exmail();
+void mail_redenvelop(char* from, char* to, int money, char mode);
+
+/* card */
+int g_card_jack();
+int g_ten_helf();
+int card_99();
+
+/* chat */
+int t_chat();
+
+/* chc_draw */
+void chc_drawline(board_t board, int line);
+void chc_movecur(int r, int c);
+void chc_redraw(board_t board);
+
+/* chc_net */
+void chc_sendmove(int s);
+int chc_recvmove(int s);
+
+/* chc_play */
+void chc(int s);
+
+/* chc_rule */
+void chc_movechess(board_t board);
+int chc_canmove(board_t board, rc_t from, rc_t to);
+int chc_iskfk(board_t board);
+int chc_ischeck(board_t board, int turn);
+void chc_init_board(board_t board);
+
+/* chicken */
+int show_file(char *filename, int y, int lines, int mode);
+void ch_buyitem(int money, char *picture, int *item, int haveticket);
+int chicken_main();
+int chickenpk(int fd);
+void time_diff(chicken_t *thechicken);
+int isdeadth(chicken_t *thechicken);
+void show_chicken_data(chicken_t *thechicken, chicken_t *pkchicken);
+int reload_chicken();
+
+/* dark */
+int main_dark(int fd,userinfo_t *uin);
+
+/* dice */
+int IsSNum(char *a);
+int dice_main();
+int IsNum(char *a, int n);
+
+/* edit */
+int vedit(char *fpath, int saveheader, int *islocal);
+void write_header(FILE *fp);
+void addsignature(FILE *fp, int ifuseanony);
+void auto_backup();
+void restore_backup();
+char *ask_tmpbuf(int y);
+char *strcasestr(const char* big, const char* little);
+void editlock(char *fpath);
+void editunlock(char *fpath);
+int iseditlocking(char *fpath, char *action);
+
+/* friend */
+void friend_edit(int type);
+void friend_load();
+int t_override();
+int t_reject();
+void friend_add(char *uident, int type, char *des);
+void friend_delete(char *uident, int type);
+void friend_special(void);
+void setfriendfile(char *fpath, int type);
+
+/* gamble */
+int ticket_main();
+int openticket(int bid);
+int ticket(int bid);
+
+/* gomo */
+int gomoku(int fd);
+
+/* gomo1 */
+int getstyle(int x, int y, int color, int limit);
+int chkwin(int style, int limit);
+
+/* guess */
+int guess_main();
+
+/* indict */
+int x_dict();
+int use_dict();
+
+/* io */
+int getdata(int line, int col, char *prompt, char *buf, int len, int echo);
+int igetch();
+int getdata_str(int line, int col, char *prompt, char *buf, int len, int echo, char *defaultstr);
+int getdata_buf(int line, int col, char *prompt, char *buf, int len, int echo);
+int i_get_key();
+void add_io(int fd, int timeout);
+int igetkey();
+void oflush();
+int oldgetdata(int line, int col, char *prompt, char *buf, int len, int echo);
+void output(char *s, int len);
+void init_alarm();
+int num_in_buf();
+int ochar(int c);
+int rget(int x,char *prompt);
+char getans(char *prompt);
+
+/* kaede */
+int Rename(char* src, char* dst);
+int Link(char* src, char* dst);
+char *Ptt_prints(char *str, int mode);
+char *my_ctime(const time_t *t, char *ans, int len);
+
+/* lovepaper */
+int x_love();
+
+/* mail */
+int load_mailalert(char *userid);
+int mail_muser(userec_t muser, char *title, char *filename);
+int mail_id(char* id, char *title, char *filename, char *owner);
+int m_read();
+int doforward(char *direct, fileheader_t *fh, int mode);
+int mail_reply(int ent, fileheader_t *fhdr, char *direct);
+int bsmtp(char *fpath, char *title, char *rcpt, int method);
+void hold_mail(char *fpath, char *receiver);
+int chkmail(int rechk);
+void m_init();
+int chkmailbox();
+int mail_man();
+int m_new();
+int m_send();
+int mail_list();
+int setforward();
+int m_internet();
+int mail_mbox();
+int built_mail_index();
+int mail_all();
+int invalidaddr(char *addr);
+int do_send(char *userid, char *title);
+void my_send(char *uident);
+
+/* mbbsd */
+void show_call_in(int save, int which);
+void write_request (int sig);
+void log_usies(char *mode, char *mesg);
+void log_user(char *msg);
+void system_abort();
+void abort_bbs(int sig);
+void del_distinct(char *fname, char *line);
+void add_distinct(char *fname, char *line);
+void show_last_call_in(int save);
+int dosearchuser(char *userid);
+void u_exit(char *mode);
+
+/* menu */
+void showtitle(char *title, char *mid);
+int egetch();
+void movie(int i);
+void domenu(int cmdmode, char *cmdtitle, int cmd, commands_t cmdtable[]);
+int admin(void);
+int Mail(void);
+int Talk(void);
+int User(void);
+int Xyz(void);
+int Play_Play(void);
+int Name_Menu(void);
+
+/* more */
+int more(char *fpath, int promptend);
+
+/* name */
+void usercomplete(char *prompt, char *data);
+void namecomplete(char *prompt, char *data);
+void AddNameList(char *name);
+void FreeNameList();
+void CreateNameList();
+int chkstr(char *otag, char *tag, char *name);
+int InNameList(char *name);
+void ShowNameList(int row, int column, char *prompt);
+int RemoveNameList(char *name);
+void ToggleNameList(int *reciper, char *listfile, char *msg);
+void allboardcomplete(char *prompt, char *data, int len);
+int generalnamecomplete(char *prompt, char *data, int len, size_t nmemb,
+		       int (*compar)(int, char *, int),
+		       int (*permission)(int), char* (*getname)(int));
+int completeboard_compar(int where, char *str, int len);
+int completeboard_permission(int where);
+char *completeboard_getname(int where);
+int completeutmp_compar(int where, char *str, int len);
+int completeutmp_permission(int where);
+char *completeutmp_getname(int where);
+
+/* osdep */
+int cpuload(char *str);
+double swapused(long *total, long *used);
+
+/* othello */
+int othello_main();
+
+/* page */
+int main_railway();
+
+/* read */
+void z_download(char *fpath);
+void i_read(int cmdmode, char *direct, void (*dotitle)(), void (*doentry)(), onekey_t *rcmdlist, int bidcache);
+void fixkeep(char *s, int first);
+keeploc_t *getkeep(char *s, int def_topline, int def_cursline);
+int Tagger(time_t chrono, int recno, int mode);
+void EnumTagFhdr(fileheader_t *fhdr, char *direct, int locus);
+void UnTagger (int locus);
+/* record */
+int substitute_record(char *fpath, void *rptr, int size, int id);
+int lock_substitute_record(char *fpath, void *rptr, int size, int id, int);
+int get_record(char *fpath, void *rptr, int size, int id);
+void prints(char *fmt, ...) GCC_CHECK_FORMAT(1,2);
+int append_record(char *fpath, fileheader_t *record, int size);
+int stampfile(char *fpath, fileheader_t *fh);
+void stampdir(char *fpath, fileheader_t *fh);
+int get_num_records(char *fpath, int size);
+int get_records(char *fpath, void *rptr, int size, int id, int number);
+void stamplink(char *fpath, fileheader_t *fh);
+int delete_record(char fpath[], int size, int id);
+int delete_files(char* dirname, int (*filecheck)(), int record);
+int delete_file(char *dirname, int size, int ent, int (*filecheck)());
+int delete_range(char *fpath, int id1, int id2);
+int apply_record(char *fpath, int (*fptr)(), int size);
+int search_rec(char* dirname, int (*filecheck)());
+int do_append(char *fpath, fileheader_t *record, int size);
+int get_sum_records(char* fpath, int size);
+
+/* register */
+int getnewuserid();
+int bad_user_id(char *userid);
+void new_register();
+int checkpasswd(char *passwd, char *test);
+void check_register();
+char *genpasswd(char *pw);
+
+/* screen */
+void move(int y, int x);
+void outs(char *str);
+void clrtoeol();
+void clear();
+void refresh();
+void clrtobot();
+void mprints(int y, int x, char *str);
+void outmsg(char *msg);
+void region_scroll_up(int top, int bottom);
+void outc(unsigned char ch);
+void redoscr();
+void clrtoline(int line);
+void standout();
+void standend();
+int edit_outs(char *text);
+void outch(unsigned char c);
+void rscroll();
+void scroll();
+void getyx(int *y, int *x);
+void initscr();
+void Jaky_outs(char *str, int line);
+
+/* stuff */
+time_t gettime(int line, time_t dt);
+void setcalfile(char *buf, char *userid);
+void stand_title(char *title);
+void pressanykey();
+int  vmsg (const char *fmt,...) GCC_CHECK_FORMAT(1,2);
+void trim(char *buf);
+void bell();
+void setbpath(char *buf, char *boardname);
+int dashf(char *fname);
+void sethomepath(char *buf, char *userid);
+void sethomedir(char *buf, char *userid);
+char *Cdate(time_t *clock);
+void sethomefile(char *buf, char *userid, char *fname);
+int log_file(char *filename,char *buf);
+void str_lower(char *t, char *s);
+int strstr_lower(char *str, char *tag);
+int cursor_key(int row, int column);
+int search_num(int ch, int max);
+void setuserfile(char *buf, char *fname);
+int is_BM(char *list);
+long dasht(char *fname);
+int dashd(char *fname);
+int invalid_pname(char *str);
+void setbdir(char *buf, char *boardname);
+void setbfile(char *buf, char *boardname, char *fname);
+int dashl(char *fname);
+char *subject(char *title);
+int not_alnum(char ch);
+void setdirpath(char *buf, char *direct, char *fname);
+int str_checksum(char *str);
+void show_help(char *helptext[]);
+int belong(char *filelist, char *key);
+char *Cdatedate(time_t *clock);
+int isprint2(char ch);
+void sethomeman(char *buf, char *userid);
+off_t dashs(char *fname);
+void cursor_clear(int row, int column);
+void cursor_show(int row, int column);
+void printdash(char *mesg);
+char *Cdatelite(time_t *clock);
+int not_alpha(char ch);
+int valid_ident(char *ident);
+int userid_is_BM(char *userid, char *list);
+int is_uBM(char *list, char *id);
+#ifndef CRITICAL_MEMORY
+    #define MALLOC(p)  malloc(p)
+    #define FREE(p)    free(p)
+#else
+    void *MALLOC(int size);
+    void FREE(void *ptr);
+#endif
+
+/* syspost */
+int post_msg(char* bname, char* title, char *msg, char* author);
+int post_file(char *bname, char *title, char *filename, char *author);
+void post_newboard(char *bgroup, char *bname, char *bms);
+void post_violatelaw(char *crime, char *police, char *reason, char *result);
+void post_change_perm(int oldperm, int newperm, char *sysopid, char *userid);
+void give_money_post(char *userid, int money); 
+
+/* talk */
+#define iswritable(uentp)    \
+        (iswritable_stat(uentp, friend_stat(currutmp, uentp)))
+#define isvisible(me, uentp) \
+        (isvisible_stat(currutmp, uentp, friend_stat(me, uentp)))
+     
+int iswritable_stat(userinfo_t *uentp, int fri_stat);
+int isvisible_stat(userinfo_t * me, userinfo_t * uentp, int fri_stat);
+int cmpwatermtime(const void *a, const void *b);
+//void water_scr(water_t *tw, int which, char type);
+void my_write2(void);
+int t_idle();
+char *modestring(userinfo_t * uentp, int simple);
+int t_users();
+int cmpuids(int uid, userinfo_t * urec);
+int my_write(pid_t pid, char *hint, char *id, int flag, userinfo_t *);
+void t_display_new();
+void talkreply();
+int t_monitor();
+int t_pager();
+int t_query();
+int t_qchicken();
+int t_talk();
+int t_display();
+int my_query(char *uident);
+int logout_friend_online();
+int login_friend_online();
+int isvisible_uid(int tuid);
+int friend_stat(userinfo_t *me, userinfo_t * ui);
+int call_in(userinfo_t *uentp, int fri_stat);
+
+/* tmpjack */
+int reg_barbq();
+int p_ticket_main();
+int j_ticket_main();
+
+/* term */
+void init_tty();
+int term_init();
+void save_cursor();
+void restore_cursor();
+void do_move(int destcol, int destline);
+void scroll_forward();
+void change_scroll_range(int top, int bottom);
+
+/* topsong */
+void sortsong();
+int topsong();
+
+/* user */
+int u_editcalendar();
+void user_display(userec_t *u, int real);
+void uinfo_query(userec_t *u, int real, int unum);
+int showsignature(char *fname, int *j);
+void mail_violatelaw(char* crime, char* police, char* reason, char* result);
+void showplans(char *uid);
+int u_info();
+int u_loginview();
+int u_ansi();
+int u_editplan();
+int u_editsig();
+int u_switchproverb();
+int u_editproverb();
+int u_cloak();
+int u_register();
+int u_list();
+
+/* vote */
+int strip_ansi(char *buf, char *str, int mode);
+void b_suckinfile(FILE *fp, char *fname);
+int b_results();
+int b_vote();
+int b_vote_maintain();
+int b_closepolls();
+
+/* vice */
+int vice_main();
+
+/* voteboard */
+int do_voteboard();
+void do_voteboardreply(fileheader_t *fhdr);
+
+/* xyz */
+int m_sysop();
+int x_boardman();
+int x_note();
+int x_login();
+int x_week();
+int x_issue();
+int x_today();
+int x_yesterday();
+int x_user100();
+int x_birth();
+int x_90();
+int x_89();
+int x_88();
+int x_87();
+int x_86();
+int x_history();
+int x_weather();
+int x_stock();
+int x_mrtmap();
+int note();
+int Goodbye();
+
+/* toolkit */
+unsigned StringHash(unsigned char *s);
+
+/* passwd */
+int passwd_init();
+int passwd_update(int num, userec_t *buf);
+int passwd_query(int num, userec_t *buf);
+int passwd_apply(int (*fptr)(userec_t *));
+void passwd_lock();
+void passwd_unlock();
+int passwd_update_money(int num);
+
+/* calendar */
+int calendar();
+
+/* util */
+void touchbtotal(int bid);
+
+/* util_cache.c */
+void reload_pttcache(void);
+
+#endif
diff --git a/pttbbs/include/pttbbs.conf b/pttbbs/include/pttbbs.conf
new file mode 100644
index 00000000..9bd4722d
--- /dev/null
+++ b/pttbbs/include/pttbbs.conf
@@ -0,0 +1,17 @@
+/* 定義 BBS 站名位址 */
+#define BBSNAME         "批踢踢實業坊"                 /* 中文站名 */
+#define MYHOSTNAME      "ptt.csie.ntu.edu.tw"          /* 網路位址 */
+#define MYIP            "140.112.30.142"               /* IP位址 */
+#define BBSUSER         "bbs"
+#define BBSUID          9999
+#define BBSGID          99
+
+#define MAX_USERS 150000
+#define MAX_ACTIVE 4096
+#define MAX_CPULOAD 50
+#define MAX_FROM 512
+#define RELAY_SERVER_IP "140.112.30.143"
+#define MAX_POST_MONEY 1000
+#define MAX_CHICKEN_MONEY 10000
+#define HAVE_JCEE 0
+#define TITLE_COLOR "\33[0;1;37;44m"
diff --git a/pttbbs/include/pttstruct.h b/pttbbs/include/pttstruct.h
new file mode 100644
index 00000000..d598eab9
--- /dev/null
+++ b/pttbbs/include/pttstruct.h
@@ -0,0 +1,428 @@
+/* $Id$ */
+#ifndef INCLUDE_STRUCT_H
+#define INCLUDE_STRUCT_H
+
+/* 小雞的資料 */
+typedef struct chicken_t {
+    char    name[20];
+    char    type;             /* 物種 */
+    unsigned char   tech[16]; /* 技能 */
+    time_t  birthday;         /* 生日 */
+    time_t  lastvisit;        /* 上次照顧時間 */
+    int     oo;               /* 補品 */
+    int     food;             /* 食物 */
+    int     medicine;         /* 藥品 */
+    int     weight;           /* 體重 */
+    int     clean;            /* 乾淨 */
+    int     run;              /* 敏捷度 */
+    int     attack;           /* 攻擊力 */
+    int     book;             /* 知識 */
+    int     happy;            /* 快樂 */
+    int     satis;            /* 滿意度 */
+    int     temperament;      /* 氣質 */
+    int     tiredstrong;      /* 疲勞度 */
+    int     sick;             /* 病氣指數 */
+    int     hp;               /* 血量 */
+    int     hp_max;           /* 滿血量 */
+    int     mm;               /* 法力 */
+    int     mm_max;           /* 滿法力 */
+    time_t  cbirth;           /* 實際計算用的生日 */
+    int     pad[2];           /* 留著以後用 */
+} chicken_t;
+
+#define IDLEN      12             /* Length of bid/uid */
+#define PASSLEN    14             /* Length of encrypted passwd field */
+#define REGLEN     38             /* Length of registration data */
+
+typedef struct userec_t {
+    char    userid[IDLEN + 1];
+    char    realname[20];
+    char    username[24];
+    char    passwd[PASSLEN];
+    unsigned char   uflag;
+    unsigned int    userlevel;
+    unsigned short  numlogins;
+    unsigned short  numposts;
+    time_t  firstlogin;
+    time_t  lastlogin;
+    char    lasthost[16];
+    int     money;
+    char    remoteuser[3];           /* 保留 目前沒用到的 */
+    char    proverb;
+    char    email[50];
+    char    address[50];
+    char    justify[REGLEN + 1];
+    unsigned char   month;
+    unsigned char   day;
+    unsigned char   year;
+    unsigned char   sex;
+    unsigned char   state;
+    unsigned char   pager;
+    unsigned char   invisible;
+    unsigned int    exmailbox;
+    chicken_t       mychicken;
+    time_t  lastsong;
+    unsigned int    loginview;
+    unsigned char   channel;      /* 動態看板 */
+    unsigned short  vl_count;     /* ViolateLaw counter */
+    unsigned short  five_win;
+    unsigned short  five_lose;
+    unsigned short  five_tie;
+    unsigned short  chc_win;
+    unsigned short  chc_lose;
+    unsigned short  chc_tie;
+    int     mobile;
+    char    mind[4];
+    char    ident[11];
+    unsigned int    uflag2;
+    unsigned char   signature;
+    char    pad[71];
+} userec_t;
+/* these are flags in userec_t.uflag */
+#define PAGER_FLAG      0x4     /* true if pager was OFF last session */
+#define CLOAK_FLAG      0x8     /* true if cloak was ON last session */
+#define FRIEND_FLAG     0x10    /* true if show friends only */
+#define BRDSORT_FLAG    0x20    /* true if the boards sorted alphabetical */
+#define MOVIE_FLAG      0x40    /* true if show movie */
+#define COLOR_FLAG      0x80    /* true if the color mode open */
+#define MIND_FLAG       0x100   /* true if mind search mode open <-Heat*/
+/* these are flags in userec_t.uflag2 */
+#define WATER_MASK      000003  /* water mask */
+#define WATER_ORIG      0x0
+#define WATER_NEW       0x1
+#define WATER_OFO       0x2
+#define WATERMODE(mode) ((cuser.uflag2 & WATER_MASK) == mode)
+#define FAVNOHILIGHT    0x10   /* false if hilight favorite */
+#define FAVNEW_FLAG     0x20   /* true if add new board into one's fav */
+#define FOREIGN         0x100  /* true if a foreign */
+#define LIVERIGHT       0x200  /* true if get "liveright" already */
+
+#define BTLEN      48             /* Length of board title */
+
+typedef struct boardheader_t {
+    char    brdname[IDLEN + 1];          /* bid */
+    char    title[BTLEN + 1];
+    char    BM[IDLEN * 3 + 3];           /* BMs' userid, token '/' */
+    unsigned int    brdattr;             /* board的屬性 */
+    char    pad[3];                      /* 沒用到的 */
+    time_t  bupdate;                     /* note update time */
+    char    pad2[3];                     /* 沒用到的 */
+    unsigned char   bvote;               /* Vote flags */
+    time_t  vtime;                       /* Vote close time */
+    unsigned int    level;               /* 可以看此板的權限 */
+    int     unused;                      /* 還沒用到 */
+    int     gid;                         /* 看板所屬的類別 ID */
+    void    *next[2];	                 /* 在同一個gid下一個看板 動態產生*/
+    void    *firstchild[2];	         /* 屬於這個看板的第一個子看板 */
+    void    *parent;
+    int     childcount;                  /* 有多少個child */
+    int     nuser;                       /* 多少人在這板 */
+    char    pad5[4];                     /* original void *u */
+    time_t  endgamble;
+    char    pad3[84];
+} boardheader_t;
+
+#define BRD_NOZAP       000000001         /* 不可zap  */
+#define BRD_NOCOUNT     000000002         /* 不列入統計 */
+#define BRD_NOTRAN      000000004         /* 不轉信 */
+#define BRD_GROUPBOARD  000000010         /* 群組板 */
+#define BRD_HIDE        000000020         /* 隱藏板 (看板好友才可看) */
+#define BRD_POSTMASK    000000040         /* 限制發表或閱讀 */
+#define BRD_ANONYMOUS   000000100         /* 匿名板 */
+#define BRD_DEFAULTANONYMOUS 000000200    /* 預設匿名板 */
+#define BRD_BAD		000000400         /* 違法改進中看板 */
+#define BRD_VOTEBOARD   000001000         /* 連署機看板 */
+#define BRD_WARNEL      000002000         /* 連署機看板 */
+#define BRD_TOP         000004000         /* 熱門看板群組 */
+#define BRD_NORECOMMEND 000010000         /* 不可推薦 */
+#define BRD_BLOG        000020000         /* BLOG */
+
+#define TTLEN      64             /* Length of title */
+#define FNLEN      33             /* Length of filename  */
+
+#define FHR_REFERENCE	(1<<31)
+
+typedef struct fileheader_t {
+    char    filename[FNLEN];         /* M.9876543210.A */
+    char    recommend;               /* important level */
+    char    owner[IDLEN + 2];        /* uid[.] */
+    char    date[6];                 /* [02/02] or space(5) */
+    char    title[TTLEN + 1];
+    int     money;	             /* rocker: if bit32 on ==> reference */
+    unsigned char   filemode;        /* must be last field @ boards.c */
+} fileheader_t;
+
+#define FILE_LOCAL      0x1     /* local saved */
+#define FILE_READ       0x1     /* already read : mail only */
+#define FILE_MARKED     0x2     /* opus: 0x8 */
+#define FILE_DIGEST     0x4     /* digest */
+#define FILE_HOLD       0x8     /* holdmail for mail */
+#define FILE_SOLVED	0x10	/* problem solved, sysop only */
+#define FILE_HIDE       0x20    /* hild */
+#define FILE_BM         0x40    /* BM only */
+#define FILE_BOTH       0x80    /* both replay for mail and board */
+#define FILE_MULTI      0x100   /* multi send for mail */
+
+#define STRLEN     80             /* Length of most string data */
+
+
+/* uhash is a userid->uid hash table -- jochang */
+
+#define HASH_BITS 16
+
+union xitem_t {
+    struct {                    /* bbs_item */
+	char    fdate[9];       /* [mm/dd/yy] */
+	char    editor[13];      /* user ID */
+	char    fname[31];
+    } B;
+    struct {                    /* gopher_item */
+	char    path[81];
+	char    server[48];
+	int     port;
+    } G;
+};
+
+typedef struct {
+    char    title[63];
+    union   xitem_t X;
+} item_t;
+
+typedef struct {
+    item_t  *item[MAX_ITEMS];
+    char    mtitle[STRLEN];
+    char    *path;
+    int     num, page, now, level;
+} gmenu_t;
+
+#define FAVMAX   1024		  /* Max boards of Myfavorite */
+#define FAVGMAX    32             /* Max groups of Myfavorite */
+#define FAVGSLEN    8		  /* Max Length of Description String */
+
+typedef struct msgque_t {
+    pid_t   pid;
+    char    userid[IDLEN + 1];
+    char    last_call_in[80];
+} msgque_t;
+
+typedef struct userinfo_t {
+    int     uid;                  /* Used to find user name in passwd file */
+    pid_t   pid;                  /* kill() to notify user of talk request */
+    int     sockaddr;             /* ... */
+    int     destuid;              /* talk uses this to identify who called */
+    int     destuip;              /* dest index in utmpshm->uinfo[] */
+    unsigned char   active;         /* When allocated this field is true */
+    unsigned char   invisible;      /* Used by cloaking function in Xyz menu */
+    unsigned char   sockactive;     /* Used to coordinate talk requests */
+    unsigned int    userlevel;
+    unsigned char   mode;           /* UL/DL, Talk Mode, Chat Mode, ... */
+    unsigned char   pager;          /* pager toggle, YEA, or NA */
+    unsigned char   in_chat;        /* for in_chat commands   */
+    unsigned char   sig;            /* signal type */
+    char    userid[IDLEN + 1];
+    char    chatid[11];             /* chat id, if in chat mode */
+    char    username[24];
+    char    from[27];               /* machine name the user called in from */
+    int     from_alias;
+    char    birth;                   /* 是否是生日 Ptt*/
+    char    tty[11];                 /* tty port */
+    int     friend[MAX_FRIEND];
+    int     friend_online[MAX_FRIEND];/* point到線上好友 utmpshm的位置 */
+			          /* 好友比較的cache 前兩個bit是狀態 */
+    int     reject[MAX_REJECT];
+    int     idoffset;                 /* shm id上的 offset */
+    int     lock;
+    int     friendtotal;              /* 好友比較的cache 大小 */ 
+    unsigned char   msgcount;
+    msgque_t        msgs[MAX_MSGS];
+    time_t  uptime;
+    time_t  lastact;               /* 上次使用者動的時間 */
+    unsigned int    brc_id;
+    unsigned char   lockmode;       /* 不准 multi_login 玩的東西 */
+    char    turn;                    /* for gomo */
+    char    mateid[IDLEN + 1];       /* for gomo */
+    unsigned short  int     five_win;
+    unsigned short  int     five_lose;
+    unsigned short  int     five_tie;
+    unsigned short  int     chc_win;
+    unsigned short  int     chc_lose;
+    unsigned short  int     chc_tie;
+    char    mailalert;
+    char    sex;
+    char    color;
+    char    mind[4];
+} userinfo_t;
+
+typedef struct water_t {
+    pid_t   pid;
+    char    userid[IDLEN + 1];
+    int     top, count;
+    msgque_t        msg[MAX_REVIEW];
+    userinfo_t      *uin;     // Ptt:這可以取代alive
+} water_t;
+
+typedef struct {
+    fileheader_t    *header;
+    char    mtitle[STRLEN];
+    char    *path;
+    int     num, page, now, level;
+} menu_t;
+
+typedef struct onekey_t {     /* Used to pass commands to the readmenu */
+    int     key;
+    int     (*fptr)();
+} onekey_t;
+
+#define ANSILINELEN (511)                /* Maximum Screen width in chars */
+
+/* anti_crosspost */
+typedef struct crosspost_t {
+    int     checksum[4]; /* 0 -> 'X' cross post  1-3 -> 簡查文章行 */
+    int     times;       /* 第幾次 */
+} crosspost_t;
+
+#define SORT_BY_ID    0
+#define SORT_BY_CLASS 1
+#define SORT_BY_STAT  1
+#define SORT_BY_IDLE  2
+#define SORT_BY_FROM  3
+#define SORT_BY_FIVE  4
+#define SORT_BY_SEX   5
+
+typedef struct keeploc_t {
+    char    *key;
+    int     top_ln;
+    int     crs_ln;
+    struct  keeploc_t       *next;
+} keeploc_t;
+
+#define USHM_SIZE       (MAX_ACTIVE + 4)  /* why+4? */
+
+/* MAX_BMs is dirty hardcode 4 in mbbsd/cache.c:is_BM_cache() */
+#define MAX_BMs         4                 /* for BMcache, 一個看板最多幾板主 */
+
+typedef struct {
+    /* uhash */
+    char    userid[MAX_USERS][IDLEN + 1];
+    int     next_in_hash[MAX_USERS];
+    int     money[MAX_USERS];
+    int     hash_head[1 << HASH_BITS];
+    int     number;				/* # of users total */
+    int     loaded;				/* .PASSWD has been loaded? */
+
+    /* utmpshm */
+    userinfo_t      uinfo[USHM_SIZE];
+    userinfo_t      *sorted[2][8][USHM_SIZE];
+                    /* 第一維double buffer 由currsorted指向目前使用的
+		       第二維sort type */
+    int     currsorted;
+    time_t  UTMPuptime;
+    int     UTMPnumber;
+    char    UTMPneedsort;
+    char    UTMPbusystate;
+
+    /* brdshm */
+    int     BMcache[MAX_BOARD][MAX_BMs];
+    boardheader_t   bcache[MAX_BOARD];
+    boardheader_t   *bsorted[2][MAX_BOARD]; /* 0: by name 1: by class */
+    fileheader_t    dircache[MAX_BOARD][DIRCACHESIZE];
+    time_t  busystate_b[MAX_BOARD];
+    int     total[MAX_BOARD];
+    int     hbfl[MAX_BOARD][MAX_FRIEND + 1];
+    time_t  lastposttime[MAX_BOARD];
+    time_t  Buptime;
+    time_t  Btouchtime;
+    int     Bnumber;
+    int     Bbusystate;
+    time_t  close_vote_time;
+
+    /* pttcache */
+    char    notes[MAX_MOVIE][200*11];
+    char    today_is[20];
+    int     n_notes[MAX_MOVIE_SECTION];      /* 一節中有幾個 看板 */
+    int     next_refresh[MAX_MOVIE_SECTION]; /* 下一次要refresh的 看板 */
+    int     max_film;
+    int     max_history;
+    time_t  Puptime;
+    time_t  Ptouchtime;
+    int     Pbusystate;
+
+    int     GLOBALVAR[10];                   /*  mbbsd間的 global variable
+						 用以做統計等資料 (非常態)  */
+
+    union {
+	int     v[256];
+	struct {
+	    int     dymaxactive;  /* 動態設定最大人數上限     */
+	    int     toomanyusers; /* 超過人數上限不給進的個數 */
+	    int     noonlineuser; /* 站上使用者不高亮度顯示   */
+#ifdef OUTTA_TIMER
+	    time_t  now;
+#endif
+	    int     nWelcomes;
+	} e;
+    } GV2;
+
+    /* fromcache */
+    char    domain[MAX_FROM][50];
+    char    replace[MAX_FROM][50];
+    int     top;
+    int     max_user;
+    time_t  max_time;
+    time_t  Fuptime;
+    time_t  Ftouchtime;
+    int     Fbusystate;
+} SHM_t;
+
+typedef struct {
+    unsigned char oldlen;                /* previous line length */
+    unsigned char len;                   /* current length of line */
+    unsigned char mode;                  /* status of line, as far as update */
+    unsigned char smod;                  /* start of modified data */
+    unsigned char emod;                  /* end of modified data */
+    unsigned char sso;                   /* start stand out */
+    unsigned char eso;                   /* end stand out */
+    unsigned char data[ANSILINELEN + 1];
+} screenline_t;
+
+typedef struct {
+    int r, c;
+} rc_t;
+
+#define BRD_ROW           10
+#define BRD_COL           9
+
+typedef int board_t[BRD_ROW][BRD_COL];
+
+/* name.c 中運用的資料結構 */
+typedef struct word_t {
+    char    *word;
+    struct  word_t  *next;
+} word_t;
+
+typedef struct commands_t {
+    int     (*cmdfunc)();
+    int     level;
+    char    *desc;                   /* next/key/description */
+} commands_t;
+
+typedef struct MailQueue {
+    char    filepath[FNLEN];
+    char    subject[STRLEN];
+    time_t  mailtime;
+    char    sender[IDLEN + 1];
+    char    username[24];
+    char    rcpt[50];
+    int     method;
+    char    *niamod;
+} MailQueue;
+
+enum  {MQ_TEXT, MQ_UUENCODE, MQ_JUSTIFY};
+
+typedef struct
+{ 
+    time_t  chrono;
+    int     recno;
+} TagItem;
+
+#endif
diff --git a/pttbbs/include/pttstruct.h.save b/pttbbs/include/pttstruct.h.save
new file mode 100644
index 00000000..f73f6413
--- /dev/null
+++ b/pttbbs/include/pttstruct.h.save
@@ -0,0 +1,363 @@
+/* $Id: pttstruct.h.save,v 1.1 2002/03/07 15:13:48 in2 Exp $ */
+~#ifndef INCLUDE_STRUCT_H
+#define INCLUDE_STRUCT_H
+
+/* 小雞的資料 */
+typedef struct chicken_t {
+    char name[20];
+    char type;              /* 物種 */
+    unsigned char tech[16]; /* 技能 */
+    time_t birthday;        /* 生日 */
+    time_t lastvisit;       /* 上次照顧時間 */
+    int oo;                 /* 補品 */
+    int food;               /* 食物 */
+    int medicine;           /* 藥品 */
+    int weight;             /* 體重 */
+    int clean;              /* 乾淨 */
+    int run;                /* 敏捷度 */
+    int attack;             /* 攻擊力 */
+    int book;               /* 知識 */
+    int happy;              /* 快樂 */
+    int satis;              /* 滿意度 */
+    int temperament;        /* 氣質 */
+    int tiredstrong;        /* 疲勞度 */
+    int sick;               /* 病氣指數 */
+    int hp;                 /* 血量 */
+    int hp_max;             /* 滿血量 */
+    int mm;                 /* 法力 */
+    int mm_max;             /* 滿法力 */
+    time_t cbirth;          /* 實際計算用的生日 */
+    int pad[2];             /* 留著以後用 */
+} chicken_t;
+
+#define IDLEN      12             /* Length of bid/uid */
+#define PASSLEN    14             /* Length of encrypted passwd field */
+#define REGLEN     38             /* Length of registration data */
+
+typedef struct userec_t {
+    char userid[IDLEN + 1];
+    char realname[20];
+    char username[24];
+    char passwd[PASSLEN];
+    unsigned char uflag;
+    unsigned int userlevel;
+    unsigned short numlogins;
+    unsigned short numposts;
+    time_t firstlogin;
+    time_t lastlogin;
+    char lasthost[16];
+    int  money;
+    char remoteuser[3];           /* 保留 目前沒用到的 */
+    char proverb;
+    char email[50];
+    char address[50];
+    char justify[REGLEN + 1];
+    unsigned char month;
+    unsigned char day;
+    unsigned char year;
+    unsigned char sex;
+    unsigned char state;
+    unsigned char pager;
+    unsigned char invisible;
+    unsigned int  exmailbox;
+    chicken_t mychicken;
+    time_t lastsong;
+    unsigned int  loginview;
+    unsigned char channel;        /* 動態看板 */
+    unsigned short vl_count;      /* ViolateLaw counter */
+    unsigned short five_win;
+    unsigned short five_lose;
+    unsigned short five_tie;
+    unsigned short chc_win;
+    unsigned short chc_lose;
+    unsigned short chc_tie;
+    char pad[95];
+} userec_t;
+/* these are flags in userec_t.uflag */
+#define SIG_FLAG        0x3     /* signature number, 2 bits */
+#define PAGER_FLAG      0x4     /* true if pager was OFF last session */
+#define CLOAK_FLAG      0x8     /* true if cloak was ON last session */
+#define FRIEND_FLAG     0x10    /* true if show friends only */
+#define BRDSORT_FLAG    0x20    /* true if the boards sorted alphabetical */
+#define MOVIE_FLAG      0x40    /* true if show movie */
+#define COLOR_FLAG      0x80    /* true if the color mode open */
+#define MIND_FLAG       0x100   /* true if mind search mode open <-Heat*/
+
+#define BTLEN      48             /* Length of board title */
+
+typedef struct boardheader_t {
+    char brdname[IDLEN + 1];             /* bid */
+    char title[BTLEN + 1];
+    char BM[IDLEN * 3 + 3];              /* BMs' uid, token '/' */
+    unsigned int brdattr;                /* board的屬性 */
+    char pad[3];                         /* 沒用到的 */
+    time_t bupdate;                      /* note update time */
+    char pad2[3];                        /* 沒用到的 */
+    unsigned char bvote;                 /* Vote flags */
+    time_t vtime;                        /* Vote close time */
+    unsigned int level;                  /* 可以看此板的權限 */
+    int uid;                             /* 看板的類別 ID */
+    int gid;                             /* 看板所屬的類別 ID */
+    void *next[2];	         /* 在同一個gid下一個看板 動態產生*/
+    void *firstchild[2];	 /* 屬於這個看板的第一個子看板 */
+    void *parent;
+    char pad3[100];
+} boardheader_t;
+
+#define BRD_NOZAP             00001         /* 不可zap  */
+#define BRD_NOCOUNT           00002         /* 不列入統計 */
+#define BRD_NOTRAN            00004         /* 不轉信 */
+#define BRD_GROUPBOARD        00010         /* 群組板 */
+#define BRD_HIDE              00020         /* 隱藏板 (看板好友才可看) */
+#define BRD_POSTMASK          00040         /* 限制發表或閱讀 */
+#define BRD_ANONYMOUS         00100         /* 匿名板? */
+#define BRD_DEFAULTANONYMOUS  00200         /* 預設匿名板 */
+#define BRD_BAD		      00400         /* 違法改進中看板 */
+#define BRD_VOTEBOARD         01000	    /* 連署機看板 */
+
+#define TTLEN      64             /* Length of title */
+#define FNLEN      33             /* Length of filename  */
+
+#define FHR_REFERENCE	(1<<31)
+
+typedef struct fileheader_t {
+    char filename[FNLEN];         /* M.9876543210.A */
+    char savemode;                /* file save mode */
+    char owner[IDLEN + 2];        /* uid[.] */
+    char date[6];                 /* [02/02] or space(5) */
+    char title[TTLEN + 1];
+    int  money;	                  /* rocker: if bit32 on ==> reference */
+    unsigned char filemode;       /* must be last field @ boards.c */
+} fileheader_t;
+
+#define FILE_LOCAL      0x1     /* local saved */
+#define FILE_READ       0x1     /* already read : mail only */
+#define FILE_MARKED     0x2     /* opus: 0x8 */
+#define FILE_DIGEST     0x4     /* digest */
+#define FILE_TAGED      0x8     /* taged */
+#define FILE_SOLVED	0x10	/* problem solved, sysop only */
+
+#define STRLEN     80             /* Length of most string data */
+
+
+/* uhash is a userid->uid hash table -- jochang */
+
+#define HASH_BITS 16
+typedef struct uhash_t {
+    char userid[MAX_USERS][IDLEN + 1];
+    int money[MAX_USERS];
+    int next_in_hash[MAX_USERS];
+    int hash_head[1 << HASH_BITS];
+    int number;				/* # of users total */
+    int loaded;				/* .PASSWD has been loaded? */
+} uhash_t;
+
+union xitem_t {
+    struct {                    /* bbs_item */
+	char fdate[9];          /* [mm/dd/yy] */
+	char editor[13];        /* user ID */
+	char fname[31];
+    } B;
+    struct {                    /* gopher_item */
+	char path[81];
+	char server[48];
+	int port;
+    } G;
+};
+
+typedef struct {
+    char title[63];
+    union xitem_t X;
+} item_t;
+
+typedef struct {
+    item_t *item[MAX_ITEMS];
+    char mtitle[STRLEN];
+    char *path;
+    int num, page, now, level;
+} gmenu_t;
+
+typedef struct msgque_t {
+    pid_t last_pid;
+    char last_userid[IDLEN + 1];
+    char last_call_in[80];
+} msgque_t;
+
+#define FAVMAX     74		  /* Max boards of Myfavorite */
+#define FAVGMAX    16             /* Max groups of Myfavorite */
+#define FAVGSLEN    8		  /* Max Length of Description String */
+
+typedef struct userinfo_t {
+    int uid;                      /* Used to find user name in passwd file */
+    pid_t pid;                    /* kill() to notify user of talk request */
+    int sockaddr;                 /* ... */
+    int destuid;                  /* talk uses this to identify who called */
+    int destuip;                  /* dest index in utmpshm->uinfo[] */
+    unsigned char active;         /* When allocated this field is true */
+    unsigned char invisible;      /* Used by cloaking function in Xyz menu */
+    unsigned char sockactive;     /* Used to coordinate talk requests */
+    unsigned int userlevel;
+    unsigned char mode;           /* UL/DL, Talk Mode, Chat Mode, ... */
+    unsigned char pager;          /* pager toggle, YEA, or NA */
+    unsigned char in_chat;        /* for in_chat commands   */
+    unsigned char sig;            /* signal type */
+    char userid[IDLEN + 1];
+    char chatid[11];              /* chat id, if in chat mode */
+    char realname[20];
+    char username[24];
+    char from[27];                /* machine name the user called in from */
+    int from_alias;
+    char birth;                   /* 是否是生日 Ptt*/
+    char tty[11];                 /* tty port */
+    int friend[MAX_FRIEND];
+    void *friend_online[MAX_FRIEND];  /* point到線上好友 */
+    int friend_state[MAX_FRIEND];     /* 對應到friend_online的狀態 */
+    int reject[MAX_REJECT];
+    unsigned char msgcount;
+    msgque_t msgs[MAX_MSGS];
+    time_t uptime;
+    time_t lastact;               /* 上次使用者動的時間 */
+    unsigned int  brc_id;
+    unsigned char lockmode;       /* 不准 multi_login 玩的東西 */
+    char turn;                    /* for gomo */
+    char mateid[IDLEN + 1];       /* for gomo */
+    unsigned short int five_win;
+    unsigned short int five_lose;
+    unsigned short int five_tie;
+    int myfavorite[FAVMAX];
+    char gfavorite[FAVGMAX][FAVGSLEN+1];
+    int ninGroup[FAVGMAX];
+    int nGroup;
+    int ninRoot;
+    int mailalert;
+    int sex;
+    char color;
+    int mind;
+} userinfo_t;
+
+typedef struct {
+    fileheader_t *header;
+    char mtitle[STRLEN];
+    char *path;
+    int num, page, now, level;
+} menu_t;
+
+typedef struct onekey_t {     /* Used to pass commands to the readmenu */
+    int key;
+    int (*fptr)();
+} onekey_t;
+
+#define ANSILINELEN (511)                /* Maximum Screen width in chars */
+
+/* anti_crosspost */
+typedef struct crosspost_t {
+    int checksum[4]; /* 0 -> 'X' cross post  1-3 -> 簡查文章行 */
+    int times;       /* 第幾次 */
+} crosspost_t;
+
+#define SORT_BY_ID    0
+#define SORT_BY_CLASS 1
+#define SORT_BY_STAT  1
+#define SORT_BY_IDLE  2
+#define SORT_BY_FROM  3
+#define SORT_BY_FIVE  4
+#define SORT_BY_SEX   5
+
+typedef struct bcache_t {
+    boardheader_t bcache[MAX_BOARD];
+    boardheader_t *sorted[2][MAX_BOARD]; /* 0: by name 1: by class */
+    fileheader_t dircache[MAX_BOARD][DIRCACHESIZE];
+    unsigned int total[MAX_BOARD];
+    time_t lastposttime[MAX_BOARD];
+    time_t uptime;
+    time_t touchtime;
+    int number;
+    int busystate;
+} bcache_t;
+
+typedef struct keeploc_t {
+    char *key;
+    int top_ln;
+    int crs_ln;
+    struct keeploc_t *next;
+} keeploc_t;
+
+#define USHM_SIZE       (MAX_ACTIVE + 4)  /* why+4? */
+
+struct utmpfile_t {
+    userinfo_t uinfo[USHM_SIZE];
+    userinfo_t *sorted[8][USHM_SIZE];
+    time_t uptime;
+    int number;
+    int busystate;
+};
+
+struct pttcache_t {
+    char notes[MAX_MOVIE][200*11];
+    char today_is[20];
+    int n_notes[MAX_MOVIE_SECTION];          /* 一節中有幾個 看板 */
+    int next_refresh[MAX_MOVIE_SECTION];     /* 下一次要refresh的 看板 */
+    int max_film;
+    int max_history;
+    time_t uptime;
+    time_t touchtime;
+    int busystate;
+};
+
+typedef struct fromcache_t {
+    char domain[MAX_FROM][50];
+    char replace[MAX_FROM][50];
+    int top;
+    int max_user;
+    time_t max_time;
+    time_t uptime;
+    time_t touchtime;
+    int busystate;
+} fromcache_t;
+
+typedef struct {
+    unsigned char oldlen;                /* previous line length */
+    unsigned char len;                   /* current length of line */
+    unsigned char mode;                  /* status of line, as far as update */
+    unsigned char smod;                  /* start of modified data */
+    unsigned char emod;                  /* end of modified data */
+    unsigned char sso;                   /* start stand out */
+    unsigned char eso;                   /* end stand out */
+    unsigned char data[ANSILINELEN + 1];
+} screenline_t;
+
+typedef struct {
+    int r, c;
+} rc_t;
+
+#define BRD_ROW           10
+#define BRD_COL           9
+
+typedef int board_t[BRD_ROW][BRD_COL];
+
+/* name.c 中運用的資料結構 */
+typedef struct word_t {
+    char *word;
+    struct word_t *next;
+} word_t;
+
+typedef struct commands_t {
+    int (*cmdfunc)();
+    int level;
+    char *desc;                   /* next/key/description */
+} commands_t;
+
+typedef struct MailQueue {
+    char filepath[FNLEN];
+    char subject[STRLEN];
+    time_t mailtime;
+    char sender[IDLEN + 1];
+    char username[24];
+    char rcpt[50];
+    int method;
+    char * niamod;
+} MailQueue;
+
+enum  {MQ_TEXT, MQ_UUENCODE, MQ_JUSTIFY};
+
+#endif
diff --git a/pttbbs/include/util.h b/pttbbs/include/util.h
new file mode 100644
index 00000000..d19944cc
--- /dev/null
+++ b/pttbbs/include/util.h
@@ -0,0 +1,7 @@
+#ifndef INCLUDE_UTIL_H
+#define INCLUDE_UTIL_H
+int passwd_mmap(void);
+int passwd_apply(int (*fptr)(userec_t *));
+int passwd_apply2(int (*fptr)(int, userec_t *));
+
+#endif // INCLUDE_UTIL_H
diff --git a/pttbbs/innbbsd/.cvsignore b/pttbbs/innbbsd/.cvsignore
new file mode 100644
index 00000000..91b3d99d
--- /dev/null
+++ b/pttbbs/innbbsd/.cvsignore
@@ -0,0 +1,6 @@
+bbslink
+bbsnnrp
+ctlinnbbsd
+innbbsd
+mkhistory
+*.o
diff --git a/pttbbs/innbbsd/Makefile b/pttbbs/innbbsd/Makefile
new file mode 100644
index 00000000..1422ec65
--- /dev/null
+++ b/pttbbs/innbbsd/Makefile
@@ -0,0 +1,211 @@
+# ------------------------------------------------------- #
+#  innbbsd/Makefile	( NTHU CS MapleBBS Ver 2.36 )     #
+# ------------------------------------------------------- #
+#  target : Makefile for 轉信程式 innbbsd by skhuang      #
+#  create : 95/03/29                                      #
+#  update : 95/12/15                                      #
+# ------------------------------------------------------- #
+# stdarg.h patch for pttbbs by in2 03/05/05               #
+
+OSTYPE!=uname
+####################################################
+# this is a bbs <--> news gateway
+#####################################################
+VERSION=0.51
+LASTVERSION=0.50beta-4
+ADMINUSER?= root@your.domain.name
+BBSHOME?=$(HOME)
+BBS_SRC = ..
+TARGET  = $(INNBBSD) $(BBSNNRP) $(BBSLINK)
+####################################################
+CC=gcc
+INSTALL=cp
+#
+OPT= -O -s -pipe -fomit-frame-pointer
+
+BBS_DEP = MapleBBS 
+BBS_UTIL = $(BBS_SRC)/util
+BBS_REC = $(BBS_UTIL)/util_record.o $(BBS_UTIL)/util_cache.o $(BBS_UTIL)/util_passwd.o $(BBS_UTIL)/util_stuff.o $(BBS_UTIL)/util_var.o
+
+#########################
+#
+###############
+DEBUGOBJ = /usr/lib/debug/mallocmap.o
+CFLAGS+= -c -I. -I$(BBS_SRC)/include -I$(BBS_SRC)/mbbsd -D$(BBS_DEP) \
+-I/usr/local/include -L/usr/local/lib \
+$(EXTRAFLAGS) -DDBZDEBUG -DBBSHOME='"$(BBSHOME)"' \
+-D_PATH_BBSHOME=\"$(BBSHOME)\" \
+-DVERSION=\"$(VERSION)\" -DADMINUSER=\"$(ADMINUSER)\" 
+LDFLAGS+= -liconv
+#
+####################################################
+
+OBJS = inndchannel.o innbbsd.o connectsock.o rfc931.o \
+       daemon.o file.o pmain.o his.o dbz.o \
+       closeonexec.o dbztool.o inntobbs.o receive_article.o \
+       echobbslib.o str_decode.o $(BBS_REC)
+       # $(BBS_REC)
+SRCS = inndchannel.c innbbsd.c connectsock.c rfc931.c \
+       daemon.c file.c pmain.c parsdate.y his.c dbz.c \
+       closeonexec.c dbztool.c inntobbs.c bbslib.c receive_article.c \
+       port.c str_decode.c
+
+MOBJS    = makedbz.o bbslib.o file.o dbz.o closeonexec.o 
+HOBJS    = mkhistory.o bbslib.o file.o his.o dbz.o port.o closeonexec.o
+DBZOBJS  = dbzserver.o dbzinnbbsd.o pmain.o connectsock.o bbslib.o his.o \
+	   daemon.o file.o dbz.o dbztool.o rfc931.o port.o closeonexec.o \
+           morelog.o
+NNRPOBJS = bbsnnrp.o pmain.o bbslib.o connectsock.o file.o 
+LINKOBJS = bbslink.o pmain.o inntobbs.o echobbslib.o connectsock.o file.o port.o\
+           str_decode.o
+LINKOBJS2 = bbslink2.o pmain.o inntobbs.o echobbslib.o connectsock.o file.o port.o
+CTLOBJS  = ctlinnbbsd.o pmain.o bbslib.o connectsock.o file.o 
+INNBBSD  = innbbsd mkhistory bbsnnrp ctlinnbbsd $(BBSLINK)
+BBSNNRP  = bbsnnrp
+BBSLINK  = bbslink
+BBSLINK2  = bbslink2
+EXES     = $(TARGET)
+
+.c.o:
+	$(CC) $(OPT) $(CFLAGS) $*.c
+
+
+all: $(OSTYPE)
+
+sun: 
+	@$(MAKE) EXTRAFLAGS="-DMMAP -DGETRUSAGE -DMALLOCMAP" LDFLAGS="$(DEBUGOBJ)" target
+
+
+aix: 
+	@$(MAKE) CC=cc EXTRAFLAGS="-DMMAP -DGETRUSAGE -DAIX -DSYSV" target
+
+linux: 
+	@$(MAKE) EXTRAFLAGS="-DLINUX -DGETRUSAGE" target
+
+hpux: 
+	@$(MAKE) OPT= EXTRAFLAGS="-DMMAP -DHPUX -DSYSV" target
+
+irix: 
+	@$(MAKE) EXTRAFLAGS="-DMMAP -DIRIX -DSYSV" target
+
+solaris:
+	@$(MAKE) EXTRAFLAGS="-DMMAP -DSOLARIS -DSYSV" LDFLAGS="-lsocket -lnsl" YACC="bison -y" target
+
+FreeBSD:
+	@$(MAKE) CC=cc EXTRAFLAGS="-DBSD44 -DMMAP -DGETRUSAGE" LIBCRYPT=-lcrypt  target
+
+bsd:
+	@$(MAKE) CC=cc EXTRAFLAGS="-DMMAP -DGETRUSAGE" target
+
+alpha:
+	@$(MAKE) CC=cc EXTRAFLAGS="-DMMAP -DDEC_ALPHA -DGETRUSAGE" target
+
+sysv: 
+	@$(MAKE) OPT= EXTRAFLAGS="-DMMAP -DSYSV" target
+
+target: $(EXES)
+
+r_port.o: r_port.c
+	$(CC) $(OPT) $(CFLAGS) -DWITH_RECORD_O r_port.c 
+
+echobbslib.o: echobbslib.c
+	$(CC) $(OPT) $(CFLAGS) -DWITH_ECHOMAIL echobbslib.c
+
+tar: 
+	test -d innbbsd-$(VERSION) || mkdir innbbsd-$(VERSION)
+	cp *.c *.h Makefile innbbsd-$(VERSION)
+	tar zcf innbbsd-$(VERSION).tar.gz innbbsd-$(VERSION)
+	cp innbbsd-$(VERSION).tar.gz /net/ftphome/CSIE/innbbsd
+
+patch:
+	rm -rf /tmp/innbbsd-$(LASTVERSION)
+	zcat /net/ftphome/ftp-data/bbs/misc/innbbsd/innbbsd-$(LASTVERSION).tar.gz | (cd /tmp; tar xf -)	
+	(cd /tmp/innbbsd-$(VERSION); make clean; rm -f r_port.c dbzserver.c dbzinnbbsd.c  echobbslib.c )
+	(cd /tmp/innbbsd-$(LASTVERSION); make clean; rm -f r_port.c dbzserver.c dbzinnbbsd.c  echobbslib.c )
+	(cd /tmp; diff -rcs innbbsd-$(LASTVERSION) innbbsd-$(VERSION) > /tmp/innbbsd-patch.$(LASTVERSION)-$(VERSION); echo "diff -rcs")
+	(cd /tmp/innbbsd-$(VERSION); ln -s port.c r_port.c)
+	(cd /tmp/innbbsd-$(VERSION); ln -s inndchannel.c dbzserver.c)
+	(cd /tmp/innbbsd-$(VERSION); ln -s innbbsd.c dbzinnbbsd.c)
+	(cd /tmp/innbbsd-$(VERSION); ln -s bbslib.c echobbslib.c)
+
+
+distribution:
+	rm -rf  /tmp/innbbsd-$(VERSION)
+	test -d /tmp/innbbsd-$(VERSION) || mkdir /tmp/innbbsd-$(VERSION)
+	test -d /tmp/innbbsd-$(VERSION)/innd || mkdir /tmp/innbbsd-$(VERSION)/innd
+	rm -f r_port.c
+	rm -f dbzserver.c
+	rm -f dbzinnbbsd.c
+	rm -f echobbslib.c
+	cp -r doc hisconvert FEATURES CHANGES README* TODO *.c *.h *.y Makefile boards /tmp/innbbsd-$(VERSION)
+	(cd /tmp/innbbsd-$(VERSION); ln -s port.c r_port.c)
+	(cd /tmp/innbbsd-$(VERSION); ln -s inndchannel.c dbzserver.c)
+	(cd /tmp/innbbsd-$(VERSION); ln -s innbbsd.c dbzinnbbsd.c)
+	(cd /tmp/innbbsd-$(VERSION); ln -s bbslib.c echobbslib.c)
+	(cd innd ; cp -r Makefile README innbbs.conf in.bntpd mailpost *.pl bntplink bntplink.palmbbs *.active* *.c *.y *.bbs src /tmp/innbbsd-$(VERSION)/innd)
+	(cd /tmp/innbbsd-$(VERSION); make clean)
+	(cd /tmp; tar zcf innbbsd-$(VERSION).tar.gz innbbsd-$(VERSION) ) 
+	ln -s port.c r_port.c
+	ln -s inndchannel.c dbzserver.c
+	ln -s innbbsd.c dbzinnbbsd.c
+	ln -s bbslib.c echobbslib.c
+
+remotetest: distribution
+	/usr/local/krb4/rcp /tmp/innbbsd-$(VERSION).tar.gz bbs_src.tar.gz skhuang:/tmp
+	/usr/local/krb4/rcp /tmp/innbbsd-$(VERSION).tar.gz bbs_src.tar.gz linux:/tmp
+	mv /u/staff/skhuang/.tcshrc /u/staff/skhuang/skhuang.tcshrc
+	rcp /tmp/innbbsd-$(VERSION).tar.gz bbs_src.tar.gz ccsun36:/tmp
+	rcp /tmp/innbbsd-$(VERSION).tar.gz bbs_src.tar.gz ccibm1:/tmp
+	mv /u/staff/skhuang/skhuang.tcshrc /u/staff/skhuang/.tcshrc
+	rcp /tmp/innbbsd-$(VERSION).tar.gz bbs_src.tar.gz cciris3:/tmp
+
+ftp: distribution patch
+	rsh ccsun42 mv /home8/ftp/pub/bbs/misc/innbbsd/innbbsd-$(VERSION).tar.gz /home8/ftp/pub/bbs/misc/innbbsd/.innbbsd-$(VERSION).tar.gz
+	rcp /tmp/innbbsd-$(VERSION).tar.gz ccsun42:/home8/ftp/pub/bbs/misc/innbbsd
+	rcp README* ccsun42:/home8/ftp/pub/bbs/misc/innbbsd
+	rcp /tmp/innbbsd-patch.$(LASTVERSION)-$(VERSION) ccsun42:/home8/ftp/pub/bbs/misc/innbbsd
+
+innbbspost.o: innbbspost.c
+	$(CC) $(CFLAGS) -I$(BBS_SRC) -c innbbspost.c 
+
+makedbz: $(MOBJS)
+	$(CC) $(OPT) -o makedbz $(MOBJS) $(LDFLAGS)
+
+dbzserver.o: dbzserver.c
+	$(CC) $(CFLAGS) -DDBZSERVER -I$(BBS_SRC) -c dbzserver.c   
+
+dbzinnbbsd.o: dbzinnbbsd.c
+	$(CC) $(CFLAGS) -DDBZSERVER -I$(BBS_SRC) -c dbzinnbbsd.c   
+
+dbzserver: $(DBZOBJS)
+	$(CC) $(OPT) -o dbzserver $(DBZOBJS) $(LDFLAGS)
+
+bbsnnrp: $(NNRPOBJS)
+	$(CC) -o bbsnnrp $(NNRPOBJS) $(OPT) $(LDFLAGS)
+
+bbslink: $(LINKOBJS)
+	$(CC) -o bbslink $(LINKOBJS) $(OPT) $(LDFLAGS)
+
+bbslink2: $(LINKOBJS2)
+	$(CC) -o bbslink2 $(LINKOBJS2) $(OPT) $(LDFLAGS)
+
+ctlinnbbsd: $(CTLOBJS)
+	$(CC) $(OPT) -o ctlinnbbsd $(CTLOBJS) $(LDFLAGS)
+
+mkhistory: $(HOBJS)
+	$(CC) $(OPT) -o mkhistory $(HOBJS) $(LDFLAGS)
+
+dbz_query_sample: dbz_query_sample.o
+	$(CC) $(OPT) -o dbz_query_sample dbz_query_sample.o $(LDFLAGS)
+
+
+innbbsd: $(OBJS)
+#	mv tnrpd.exe tnrpd.exe.old
+	$(CC) -o innbbsd $(OBJS) $(OPT) $(LDFLAGS)
+
+install: $(EXES)
+	install -d $(BBSHOME)/innd/
+	install -c -m 755 $(EXES) $(BBSHOME)/innd/
+
+clean:
+	rm -f *.o $(EXES) core innd/src/*.o
diff --git a/pttbbs/innbbsd/antisplam.h b/pttbbs/innbbsd/antisplam.h
new file mode 100644
index 00000000..f72f5348
--- /dev/null
+++ b/pttbbs/innbbsd/antisplam.h
@@ -0,0 +1,24 @@
+#define char_lower(c)  ((c >= 'A' && c <= 'Z') ? c|32 : c)
+
+#if 0 /* string.h , libc */
+int
+strcasestr(str, tag)
+  char *str, *tag;              /* tag : lower-case string */
+{
+  char buf[256];
+
+  str_lower(buf, str);
+  return (int) strstr(buf, tag);
+}
+#endif
+
+int
+bad_subject(char *subject)
+{
+   char *badkey[] = {"無碼","avcd","mp3",NULL};
+   int i;
+   for(i=0; badkey[i]; i++)
+     if(strcasestr(subject, badkey[i])) return 1;
+   return 0;
+}           
+
diff --git a/pttbbs/innbbsd/bbslib.c b/pttbbs/innbbsd/bbslib.c
new file mode 100644
index 00000000..c0177e87
--- /dev/null
+++ b/pttbbs/innbbsd/bbslib.c
@@ -0,0 +1,712 @@
+#if defined( LINUX )
+# include "innbbsconf.h"
+# include "bbslib.h"
+# include <stdarg.h>
+#else
+# include <stdarg.h>
+# include "innbbsconf.h"
+# include "bbslib.h"
+#endif
+
+char INNBBSCONF[MAXPATHLEN];
+char INNDHOME[MAXPATHLEN];
+char HISTORY[MAXPATHLEN];
+char LOGFILE[MAXPATHLEN];
+char MYBBSID[MAXPATHLEN];
+char ECHOMAIL[MAXPATHLEN];
+char BBSFEEDS[MAXPATHLEN];
+char LOCALDAEMON[MAXPATHLEN];
+
+int His_Maint_Min= HIS_MAINT_MIN;
+int His_Maint_Hour= HIS_MAINT_HOUR;
+int Expiredays  = EXPIREDAYS;
+
+nodelist_t *NODELIST=NULL, **NODELIST_BYNODE=NULL;
+newsfeeds_t *NEWSFEEDS=NULL, **NEWSFEEDS_BYBOARD=NULL;
+static char *NODELIST_BUF, *NEWSFEEDS_BUF;
+int NFCOUNT, NLCOUNT;
+int LOCALNODELIST=0, NONENEWSFEEDS=0;
+
+#ifndef _PATH_BBSHOME
+# define _PATH_BBSHOME "/u/staff/bbsroot/csie_util/bntpd/home"
+#endif
+
+static FILE *bbslogfp;
+
+static int 
+verboseFlag=0;
+
+static char*
+verboseFilename=NULL;
+static char verbosename[MAXPATHLEN];
+
+verboseon(filename)
+char *filename;
+{
+  verboseFlag = 1;
+  if ( filename != NULL ) {
+    if (strchr(filename,'/') == NULL) {
+       sprintf(verbosename,"%s/innd/%s",BBSHOME,filename);
+       filename = verbosename;
+    } 
+  } 
+  verboseFilename = filename;
+}
+verboseoff()
+{
+  verboseFlag = 0;
+}
+
+setverboseon()
+{
+   verboseFlag = 1;
+}
+
+isverboselog()
+{
+  return verboseFlag;
+}
+
+setverboseoff()
+{
+  verboseoff();
+  if (bbslogfp != NULL) {
+    fclose(bbslogfp);
+    bbslogfp = NULL;
+  }
+}
+
+verboselog(char *fmt, ...)
+{
+	va_list ap;
+	char datebuf[40];
+	time_t now;
+
+	if (verboseFlag == 0) return;
+
+	va_start(ap, fmt);
+
+	time(&now);
+	strftime(datebuf, sizeof(datebuf), "%b %d %X ", localtime(&now));
+
+	if (bbslogfp == NULL) {
+	   if (verboseFilename != NULL)
+	     bbslogfp = fopen(verboseFilename, "a");
+	   else
+	     bbslogfp = fdopen(1, "a");
+	}
+	if (bbslogfp == NULL) {
+	    va_end(ap);
+	    return;
+	}
+	fprintf(bbslogfp,"%s[%d] ",datebuf, getpid());
+	vfprintf(bbslogfp, fmt, ap);
+	fflush(bbslogfp);
+	va_end(ap);
+}
+
+#ifdef PalmBBS
+xbbslog(char *fmt, ...)
+#else
+bbslog(char *fmt, ...)
+#endif
+{
+	va_list ap;
+	char datebuf[40];
+	time_t now;
+
+	va_start(ap, fmt);
+
+	time(&now);
+	strftime(datebuf, sizeof(datebuf), "%b %d %X ", localtime(&now));
+
+	if (bbslogfp == NULL) {
+	   bbslogfp = fopen(LOGFILE, "a");
+	}
+	if (bbslogfp == NULL) {
+	    va_end(ap);
+	    return;
+	}
+	fprintf(bbslogfp,"%s[%d] ",datebuf,getpid());
+	vfprintf(bbslogfp, fmt, ap);
+	fflush(bbslogfp);
+	va_end(ap);
+}
+
+initial_bbs(outgoing)
+char *outgoing;
+{
+   FILE* FN;
+   struct stat st;
+   int fd, i;
+   char *bbsnameptr=NULL; 
+
+/* reopen bbslog */
+   if (bbslogfp != NULL) {
+     fclose(bbslogfp);
+     bbslogfp = NULL;
+   }
+
+#ifdef WITH_ECHOMAIL
+   init_echomailfp();
+   init_bbsfeedsfp();
+#endif
+
+   LOCALNODELIST=0, NONENEWSFEEDS =0;
+   sprintf(INNDHOME,"%s/innd",BBSHOME);
+   sprintf(HISTORY, "%s/history",INNDHOME);
+   sprintf(LOGFILE, "%s/bbslog",INNDHOME);
+   sprintf(ECHOMAIL,"%s/echomail.log",BBSHOME);
+   sprintf(LOCALDAEMON,"%s/.innbbsd",INNDHOME);
+   sprintf(INNBBSCONF,"%s/innbbs.conf",INNDHOME);
+   sprintf(BBSFEEDS,"%s/bbsfeeds.log",INNDHOME);
+
+   if (isfile(INNBBSCONF)) {
+     FILE *conf;
+     char buffer[MAXPATHLEN];
+     conf = fopen(INNBBSCONF,"r");
+     if (conf != NULL) {
+       while (fgets( buffer, sizeof buffer, conf) != NULL) {
+	 char *ptr, *front=NULL, *value=NULL, *value2=NULL, *value3=NULL;
+	 if ( buffer[0] == '#' || buffer[0] == '\n') continue;
+	 for ( front = buffer; *front && isspace(*front); front++);
+	 for ( ptr = front; *ptr && !isspace(*ptr) ; ptr++) ;
+	 if (*ptr == '\0') continue;
+	 *ptr++ = '\0';
+	 for ( ; *ptr && isspace(*ptr) ; ptr++) ;
+	 if (*ptr == '\0') continue;
+	 value = ptr++;
+	 for ( ; *ptr && !isspace(*ptr) ; ptr++) ;
+	 if (*ptr) {
+	   *ptr++ = '\0';
+	   for ( ; *ptr && isspace(*ptr) ; ptr++) ;
+	   value2 = ptr++;
+	   for ( ; *ptr && !isspace(*ptr) ; ptr++) ;
+	   if (*ptr) {
+	     *ptr++ = '\0';
+	     for ( ; *ptr && isspace(*ptr) ; ptr++) ;
+	     value3 = ptr++;
+	     for ( ; *ptr && !isspace(*ptr) ; ptr++) ;
+	     if (*ptr) {
+	       *ptr++ = '\0';
+	     }
+	   }
+	 }
+	 if ( strcasecmp(front,"expiredays") == 0) {
+		Expiredays = atoi(value);
+		if (Expiredays < 0) {
+		   Expiredays = EXPIREDAYS;
+		}
+	 } else if ( strcasecmp(front,"expiretime") == 0) {
+		ptr = strchr(value,':');
+		if (ptr == NULL) {
+		   fprintf(stderr, "Syntax error in innbbs.conf\n");
+		} else {
+		   *ptr++ = '\0';
+		   His_Maint_Hour = atoi(value);
+		   His_Maint_Min  = atoi(ptr);
+		   if (His_Maint_Hour < 0)
+		      His_Maint_Hour = HIS_MAINT_HOUR;
+		   if (His_Maint_Min < 0)
+		      His_Maint_Min = HIS_MAINT_MIN;
+		}
+	 } else if ( strcasecmp(front,"newsfeeds") == 0) {
+	   if (strcmp(value,"none")==0) 
+	      NONENEWSFEEDS = 1;
+	 } else if ( strcasecmp(front,"nodelist") == 0) {
+	   if (strcmp(value,"local")==0)
+	      LOCALNODELIST = 1;
+	 } /*else if ( strcasecmp(front,"newsfeeds") == 0) {
+	       printf("newsfeeds %s\n", value); 
+	 } else if ( strcasecmp(front,"nodelist") == 0) {
+	       printf("nodelist %s\n", value); 
+	 } else if ( strcasecmp(front,"bbsname") == 0) {
+	       printf("bbsname %s\n", value); 
+	 } */
+       }
+       fclose(conf);
+     }
+   }
+
+#ifdef WITH_ECHOMAIL
+   bbsnameptr = (char*) fileglue("%s/bbsname.bbs",INNDHOME);
+   if ((FN = fopen( bbsnameptr ,"r" ))==NULL) {
+     fprintf(stderr,"can't open file %s\n", bbsnameptr);
+     return 0;
+   }
+   while ( fscanf(FN,"%s", MYBBSID) != EOF);
+   fclose(FN);
+   if( ! isdir(fileglue("%s/out.going",BBSHOME)) ) {
+      mkdir( (char*)fileglue("%s/out.going",BBSHOME), 0750 );
+   }
+   if (NONENEWSFEEDS == 0)
+     readnffile(INNDHOME);
+   if (LOCALNODELIST == 0) {
+     if (readnlfile(INNDHOME, outgoing) != 0) return 0;
+   }
+
+#endif
+   return 1;
+}
+
+static int 
+nf_byboardcmp(a,b)
+newsfeeds_t **a, **b;
+{
+/*
+   if (!a || !*a || !(*a)->board) return -1;
+   if (!b || !*b || !(*b)->board) return 1;
+*/
+   return strcasecmp((*a)->board, (*b)->board);
+}
+
+static int 
+nfcmp(a,b)
+newsfeeds_t *a, *b;
+{
+/*
+   if (!a || !a->newsgroups) return -1;
+   if (!b || !b->newsgroups) return 1;
+*/
+   return strcasecmp(a->newsgroups, b->newsgroups);
+}
+
+static int 
+nlcmp(a,b)
+nodelist_t *a, *b;
+{
+/*
+   if (!a || !a->host) return -1;
+   if (!b || !b->host) return 1;
+*/
+   return strcasecmp(a->host, b->host);
+}
+
+static int 
+nl_bynodecmp(a,b)
+nodelist_t **a, **b;
+{
+/*
+   if (!a || !*a || !(*a)->node) return -1;
+   if (!b || !*b || !(*b)->node) return 1;
+*/
+   return strcasecmp((*a)->node, (*b)->node);
+}
+
+/* read in newsfeeds.bbs and nodelist.bbs */
+readnlfile(inndhome, outgoing)
+char *inndhome;
+char *outgoing;
+{
+    FILE *fp;
+    char buff[1024];
+    struct stat st;
+    int i, count, j; 
+    char *ptr, *nodelistptr;
+    static lastcount=0;
+
+    sprintf(buff,"%s/nodelist.bbs", inndhome);
+    fp = fopen(buff,"r");
+    if (fp == NULL) {
+       fprintf(stderr,"open fail %s",buff);
+       return -1;
+    }
+    if (fstat(fileno(fp),&st) != 0) {
+	fprintf(stderr,"stat fail %s", buff);
+        return -1;
+    }
+    if (NODELIST_BUF == NULL) {
+	NODELIST_BUF = (char*) mymalloc( st.st_size +1);
+    } else {
+	NODELIST_BUF = (char*) myrealloc( NODELIST_BUF, st.st_size +1);
+    }
+    i = 0, count =0;
+    while (fgets(buff, sizeof buff, fp) != NULL) {
+       if (buff[0] == '#') continue;
+       if (buff[0] == '\n') continue;
+       strcpy(NODELIST_BUF+i, buff);
+       i += strlen(buff);
+       count ++;
+    }
+    fclose(fp);
+    if (NODELIST == NULL) {
+       NODELIST = (nodelist_t*) mymalloc(sizeof(nodelist_t) * (count+1));
+       NODELIST_BYNODE = (nodelist_t**) mymalloc(sizeof(nodelist_t*) * (count+1));
+    } else {
+       NODELIST = (nodelist_t*) myrealloc(NODELIST, sizeof(nodelist_t) * (count+1));
+       NODELIST_BYNODE = (nodelist_t**) myrealloc(NODELIST_BYNODE, sizeof(nodelist_t*) * (count+1));
+    }
+    for (i=lastcount; i< count; i++) {
+	  NODELIST[i].feedfp = NULL;
+    }
+    lastcount = count;
+    NLCOUNT = 0;
+    for (ptr = NODELIST_BUF; (nodelistptr = (char*)strchr(ptr,'\n')) != NULL; ptr = nodelistptr +1, NLCOUNT++) {
+	char *nptr , *bptr, *pptr, *tptr;
+	*nodelistptr = '\0';
+	NODELIST[NLCOUNT].host = "";
+	NODELIST[NLCOUNT].exclusion = "";
+	NODELIST[NLCOUNT].node = "";
+	NODELIST[NLCOUNT].protocol = "IHAVE(119)";
+	NODELIST[NLCOUNT].comments = "";
+	NODELIST_BYNODE[NLCOUNT] = NODELIST+NLCOUNT;
+        for (nptr= ptr ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') {
+	  bbslog("nodelist.bbs %d entry read error\n", NLCOUNT);
+	  return -1;
+        }
+        /*NODELIST[NLCOUNT].id = nptr;*/
+        NODELIST[NLCOUNT].node = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') {
+	  bbslog("nodelist.bbs node %d entry read error\n", NLCOUNT);
+	  return -1;
+        }
+        *nptr = '\0';
+        if ((tptr = strchr(NODELIST[NLCOUNT].node,'/'))) {
+	   *tptr = '\0';
+	   NODELIST[NLCOUNT].exclusion = tptr + 1;
+	} else {
+	   NODELIST[NLCOUNT].exclusion = "";
+	}
+        for (nptr++ ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+	if (*nptr=='+' || *nptr=='-') {
+	   NODELIST[NLCOUNT].feedtype = *nptr;
+	   if (NODELIST[NLCOUNT].feedfp != NULL) {
+	     fclose(NODELIST[NLCOUNT].feedfp);
+	   }
+	   if ( NODELIST[NLCOUNT].feedtype == '+')
+	     if (outgoing != NULL) {
+	     NODELIST[NLCOUNT].feedfp = fopen((char*)fileglue("%s/out.going/%s.%s",BBSHOME, NODELIST[NLCOUNT].node, outgoing),"a");
+	     }
+	   nptr++;
+	} else {
+	   NODELIST[NLCOUNT].feedtype = ' ';
+	}
+        NODELIST[NLCOUNT].host = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') {
+	   continue;
+        }
+        *nptr = '\0';
+        for (nptr++;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NODELIST[NLCOUNT].protocol = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        *nptr = '\0';
+        for (nptr++;*nptr && strchr(" \t\r\n",*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NODELIST[NLCOUNT].comments = nptr;
+    }
+    qsort(NODELIST, NLCOUNT, sizeof(nodelist_t), nlcmp);
+    qsort(NODELIST_BYNODE, NLCOUNT, sizeof(nodelist_t*), nl_bynodecmp);
+    return 0;
+}
+
+readnffile(inndhome)
+char *inndhome;
+{
+    FILE *fp;
+    char buff[1024];
+    struct stat st;
+    int i, count; 
+    char *ptr, *newsfeedsptr;
+
+    sprintf(buff,"%s/newsfeeds.bbs", inndhome);
+    fp = fopen(buff,"r");
+    if (fp == NULL) {
+       fprintf(stderr,"open fail %s",buff);
+       return -1;
+    }
+    if (fstat(fileno(fp),&st) != 0) {
+	fprintf(stderr,"stat fail %s", buff);
+        return -1;
+    }
+    if (NEWSFEEDS_BUF == NULL) {
+	NEWSFEEDS_BUF = (char*) mymalloc( st.st_size +1);
+    } else {
+	NEWSFEEDS_BUF = (char*) myrealloc( NEWSFEEDS_BUF, st.st_size +1);
+    }
+    i = 0, count =0;
+    while (fgets(buff, sizeof buff, fp) != NULL) {
+       if (buff[0] == '#') continue;
+       if (buff[0] == '\n') continue;
+       strcpy(NEWSFEEDS_BUF+i, buff);
+       i += strlen(buff);
+       count ++;
+    }
+    fclose(fp);
+    if (NEWSFEEDS == NULL) {
+       NEWSFEEDS = (newsfeeds_t*) mymalloc(sizeof(newsfeeds_t) * (count+1));
+       NEWSFEEDS_BYBOARD = (newsfeeds_t**) mymalloc(sizeof(newsfeeds_t*) * (count+1));
+    } else {
+       NEWSFEEDS = (newsfeeds_t*) myrealloc(NEWSFEEDS, sizeof(newsfeeds_t) * (count+1));
+       NEWSFEEDS_BYBOARD = (newsfeeds_t**) myrealloc(NEWSFEEDS_BYBOARD, sizeof(newsfeeds_t*) * (count+1));
+    }
+    NFCOUNT = 0; 
+    for (ptr = NEWSFEEDS_BUF; (newsfeedsptr = (char*)strchr(ptr,'\n')) != NULL; ptr = newsfeedsptr +1, NFCOUNT++) {
+	char *nptr , *bptr, *pptr;
+	*newsfeedsptr = '\0';
+	NEWSFEEDS[NFCOUNT].newsgroups = "";
+	NEWSFEEDS[NFCOUNT].board = "";
+	NEWSFEEDS[NFCOUNT].path = NULL;
+	NEWSFEEDS_BYBOARD[NFCOUNT] = NEWSFEEDS+NFCOUNT;
+        for (nptr= ptr ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NEWSFEEDS[NFCOUNT].newsgroups = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        *nptr = '\0';
+        for (nptr++ ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NEWSFEEDS[NFCOUNT].board = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        *nptr = '\0';
+        for (nptr++;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NEWSFEEDS[NFCOUNT].path = nptr;
+	for (nptr++; *nptr && !strchr("\r\n",*nptr); ) nptr++;
+        *nptr = '\0';
+    }
+    qsort(NEWSFEEDS, NFCOUNT, sizeof(newsfeeds_t), nfcmp);
+    qsort(NEWSFEEDS_BYBOARD, NFCOUNT, sizeof(newsfeeds_t*), nf_byboardcmp);
+}
+
+newsfeeds_t *search_board(board)
+char *board;
+{
+   newsfeeds_t nft, *nftptr, **find;
+   if (NONENEWSFEEDS) return NULL;
+   nft.board = board;
+   nftptr = &nft;
+   find = (newsfeeds_t**)bsearch((char*)&nftptr, NEWSFEEDS_BYBOARD, NFCOUNT, sizeof(newsfeeds_t*), nf_byboardcmp);
+   if (find != NULL) return *find;
+   return NULL;
+}
+
+nodelist_t *search_nodelist_bynode(node)
+char *node;
+{
+   nodelist_t nlt, *nltptr, **find;
+   if (LOCALNODELIST) return NULL;
+   nlt.node = node;
+   nltptr = &nlt;
+   find = (nodelist_t**)bsearch((char*)&nltptr, NODELIST_BYNODE, NLCOUNT, sizeof(nodelist_t*), nl_bynodecmp);
+   if (find != NULL) return *find;
+   return NULL;
+}
+
+
+nodelist_t *search_nodelist(site, identuser)
+char *site;
+char *identuser;
+{
+   nodelist_t nlt, *find;
+   char buffer[1024];
+   if (LOCALNODELIST) return NULL;
+   nlt.host = site;
+   find = (nodelist_t*)bsearch((char*)&nlt, NODELIST, NLCOUNT, sizeof(nodelist_t), nlcmp);
+   if (find == NULL && identuser != NULL) {
+     sprintf(buffer,"%s@%s", identuser, site);
+     nlt.host = buffer;
+     find = (nodelist_t*)bsearch((char*)&nlt, NODELIST, NLCOUNT, sizeof(nodelist_t), nlcmp);
+   }
+   return find;
+}
+
+newsfeeds_t *search_group(newsgroup)
+char *newsgroup;
+{
+   newsfeeds_t nft, *find;
+   if (NONENEWSFEEDS) return NULL;
+   nft.newsgroups = newsgroup;
+   find = (newsfeeds_t*)bsearch((char*)&nft, NEWSFEEDS, NFCOUNT, sizeof(newsfeeds_t), nfcmp);
+   return find;
+}
+
+char *ascii_date(now)
+time_t now;
+{
+   static char datebuf[40];
+   /*time_t now;
+   time(&now);*/
+   strftime(datebuf, sizeof(datebuf), "%d %b %Y %X GMT", gmtime(&now));
+   return datebuf;
+}
+
+char *
+restrdup(ptr, string)
+char *ptr;
+char *string;
+{
+   int len ;
+   if (string == NULL) {
+      if (ptr != NULL) *ptr = '\0';
+      return ptr;
+   }
+   len = strlen(string) + 1;
+   if (ptr != NULL) {
+      ptr = (char*)myrealloc(ptr, len);
+   } else
+   ptr = (char*)mymalloc(len);
+   strcpy(ptr, string);
+   return ptr;
+}
+
+
+
+void *
+mymalloc(size)
+int size;
+{
+    char *ptr = (char*)malloc(size);
+    if (ptr == NULL) {
+       fprintf(stderr, "cant allocate memory\n");
+       syslog(LOG_ERR, "cant allocate memory %m");
+       exit(1);
+    }
+    return ptr;
+}
+
+void *
+myrealloc(optr, size)
+void *optr;
+int size;
+{
+    char *ptr = (char*)realloc(optr, size);
+    if (ptr == NULL) {
+       fprintf(stderr, "cant allocate memory\n");
+       syslog(LOG_ERR, "cant allocate memory %m");
+       exit(1);
+    }
+    return ptr;
+}
+
+testandmkdir(dir)
+char *dir;
+{
+        if (!isdir(dir)) {
+               char path[MAXPATHLEN+12];
+               sprintf(path,"mkdir -p %s",dir);
+               system(path);
+        }
+}
+                                                
+static char splitbuf[2048]; 
+static char joinbuf[1024]; 
+#define MAXTOK 50 
+static char* Splitptr[MAXTOK];
+char **split(line,pat)
+char *line,*pat;
+{
+	char *p;
+	int i;
+
+	for (i=0;i<MAXTOK;++i) Splitptr[i] = NULL;
+	strncpy(splitbuf,line,sizeof splitbuf - 1 );
+	/*printf("%d %d\n",strlen(line),strlen(splitbuf));*/
+	splitbuf[sizeof splitbuf - 1] = '\0';
+	for (i=0,p=splitbuf;*p && i< MAXTOK -1 ;){
+	   for (Splitptr[i++]=p;*p && !strchr(pat,*p);p++);
+	   if (*p=='\0') break;
+	   for (*p++='\0'; *p && strchr(pat,*p);p++);
+	}
+	return Splitptr;
+}
+
+char **BNGsplit(line) 
+char *line;
+{
+   char **ptr = split(line,",");
+   newsfeeds_t *nf1, *nf2;
+   char *n11, *n12, *n21, *n22;
+   int i,j;
+   for (i=0; ptr[i] != NULL; i++) {
+      nf1 = (newsfeeds_t*)search_group(ptr[i]);
+      for (j=i+1; ptr[j] != NULL; j++) {
+	 if (strcmp(ptr[i],ptr[j])==0) {
+	    *ptr[j] = '\0';    
+	    continue;
+         }
+	 nf2 = (newsfeeds_t*)search_group(ptr[j]);
+	 if (nf1 && nf2) {
+	   if (strcmp(nf1->board,nf2->board)==0) {
+	      *ptr[j] = '\0';    
+	      continue;
+	   }
+	   for (n11 = nf1->board, n12 = (char*)strchr(n11,',');
+		n11 && *n11 ; n12 = (char*) strchr(n11,',')) {
+		if (n12) *n12 = '\0';
+	       for (n21 = nf2->board, n22 = (char*)strchr(n21,',');
+	  	    n21 && *n21 ; n22 = (char*) strchr(n21,',')) {
+		    if (n22) *n22 = '\0';
+	            if (strcmp(n11,n21)==0) {
+		      *n21 = '\t';
+                    }
+		    if (n22) {
+		      *n22 = ',';
+		      n21 = n22 + 1;
+                    } else  
+		      break;
+                }
+		if (n12) {
+		      *n12 = ',';
+		      n11 = n12 +1;
+                } else  
+		  break;
+	   }
+	 }
+      }
+   }
+   return ptr;
+}
+
+char **ssplit(line,pat)
+char *line,*pat;
+{
+	char *p;
+	int i;
+	for (i=0;i<MAXTOK;++i) Splitptr[i] = NULL;
+	strncpy(splitbuf,line,1024);
+	for (i=0,p=splitbuf;*p && i< MAXTOK;){
+	   for (Splitptr[i++]=p;*p && !strchr(pat,*p);p++);
+	   if (*p=='\0') break;
+	   *p=0;p++;
+/*	   for (*p='\0'; strchr(pat,*p);p++);*/
+	}
+	return Splitptr;
+}
+
+char *join(lineptr,pat,num)
+char **lineptr,*pat;
+int num;
+{
+	int i;
+	joinbuf[0] = '\0';
+	if (lineptr[0] != NULL)
+		strncpy(joinbuf,lineptr[0],1024);
+	else  {
+		joinbuf[0]='\0';
+		return joinbuf; 
+	}
+	for (i=1;i<num;i++) {
+		strcat(joinbuf,pat);
+		if (lineptr[i] != NULL)
+		   strcat(joinbuf,lineptr[i]);
+		else 
+		   break; 
+	}
+	return joinbuf;
+}
+
+#ifdef BBSLIB
+main()
+{
+   initial_bbs("feed");
+   printf("%s\n",ascii_date());
+}
+#endif
+
diff --git a/pttbbs/innbbsd/bbslib.h b/pttbbs/innbbsd/bbslib.h
new file mode 100644
index 00000000..a03a1d67
--- /dev/null
+++ b/pttbbs/innbbsd/bbslib.h
@@ -0,0 +1,62 @@
+#ifndef BBSLIB_H
+#define BBSLIB_H
+
+typedef struct nodelist_t {
+  char *node;
+  char *exclusion;
+  char *host;
+  char *protocol;
+  char *comments;
+  int feedtype;
+  FILE *feedfp;
+} nodelist_t;
+
+typedef struct newsfeeds_t {
+  char *newsgroups;
+  char *board;
+  char *path;
+} newsfeeds_t;
+
+typedef struct overview_t {
+  char *board, *filename, *group; 
+  time_t mtime; 
+  char *from, *subject;
+} overview_t;
+
+extern char MYBBSID[];
+extern char ECHOMAIL[];
+extern char BBSFEEDS[];
+extern char LOCALDAEMON[];
+extern char INNDHOME[];
+extern char HISTORY[];
+extern char LOGFILE[];
+extern char INNBBSCONF[];
+extern nodelist_t *NODELIST;
+extern nodelist_t **NODELIST_BYNODE;
+extern newsfeeds_t *NEWSFEEDS, **NEWSFEEDS_BYBOARD;
+extern int NFCOUNT, NLCOUNT;
+extern int Expiredays, His_Maint_Min, His_Maint_Hour;
+extern int LOCALNODELIST, NONENEWSFEEDS;
+extern int Maxclient;
+
+# ifndef ARG
+#  ifdef __STDC__
+#   define ARG(x) x 
+#  else
+#   define ARG(x) () 
+#  endif
+# endif
+
+int initial_bbs ARG((char* ));
+char *restrdup ARG((char *, char *));
+nodelist_t *search_nodelist ARG((char *, char *));
+newsfeeds_t *search_group ARG((char *));
+int bbslog(char *fmt, ...);
+void *mymalloc ARG((int));
+void *myrealloc ARG((void *, int));
+
+#ifdef PalmBBS
+#define bbslog xbbslog
+#endif
+
+#endif
diff --git a/pttbbs/innbbsd/bbslink.c b/pttbbs/innbbsd/bbslink.c
new file mode 100644
index 00000000..b7ca2f9d
--- /dev/null
+++ b/pttbbs/innbbsd/bbslink.c
@@ -0,0 +1,2022 @@
+#if defined( LINUX )
+# include "innbbsconf.h"
+# include "bbslib.h"
+# include <stdarg.h>
+#else
+# include <stdarg.h>
+# include "innbbsconf.h"
+# include "bbslib.h"
+#endif
+#include  "antisplam.h"
+
+#include <sys/mman.h>
+
+#ifndef AIX
+#  include <sys/fcntl.h>
+#endif
+
+#if defined(PalmBBS)
+#include <utime.h>
+#endif
+
+
+#include "daemon.h"
+#include "nntp.h"
+#include "externs.h"
+
+/*
+ * TODO 1. read newsfeeds.bbs, read nodelist.bbs, read bbsname.bbs 2. scan
+ * new posts and append to .link 3. rename .link to .send (must lock) 4.
+ * start to send .send out and append not sent to .link
+ *
+ * 5. node.LOCK (with pid) 6. log articles sent
+ */
+
+
+#ifndef MAXBUFLEN
+#define MAXBUFLEN 256
+#endif
+
+#define MAX_OUTGO_POST  100     /* bbslink 一次處理的轉出最大文章數量 */
+
+typedef struct my_out_bntp
+{
+  char *board, *filename, *userid, *nickname, *subject;
+} my_out_bntp;
+struct my_out_bntp out_bntp[MAX_OUTGO_POST];
+
+int outgo_post=0;
+
+typedef struct Over_t
+{
+  time_t mtime;
+  char date[MAXBUFLEN];
+  char nickname[MAXBUFLEN];
+  char subject[MAXBUFLEN];
+  char from[MAXBUFLEN];
+  char msgid[MAXBUFLEN];
+  char site[MAXBUFLEN];
+  char board[MAXBUFLEN];
+}      linkoverview_t;
+
+typedef struct SendOver_t
+{
+  char *board, *filename, *group, *from, *subject;
+  char *outgoingtype, *msgid, *path;
+  char *date, *control;
+  time_t mtime;
+}          soverview_t;
+
+typedef struct Stat_t
+{
+  int localsendout;
+  int localfailed;
+  int remotesendout;
+  int remotefailed;
+}      stat_t;
+
+static stat_t *BBSLINK_STAT;
+
+static int NoAction = 0;
+static int Verbose = 0;
+static int VisitOnly = 0;
+static int NoVisit = 0;
+static char *DefaultFeedSite = "";
+static int KillFormerBBSLINK = 0;
+
+extern char *SITE;
+extern char *GROUPS;
+
+char NICKNAME[MAXBUFLEN];
+
+char DATE_BUF[MAXBUFLEN];
+extern char *DATE;
+
+char FROM_BUF[MAXBUFLEN];
+extern char *FROM;
+
+#ifndef MapleBBS
+char POSTER_BUF[MAXBUFLEN];
+char *POSTER;
+#endif
+
+char MYADDR[MAXBUFLEN];
+char MYSITE[MAXBUFLEN];
+
+char SUBJECT_BUF[MAXBUFLEN];
+extern char *SUBJECT;
+
+char MSGID_BUF[MAXBUFLEN];
+extern char *MSGID;
+
+char LINKPROTOCOL[MAXBUFLEN];
+int LINKPORT;
+char ORGANIZATION[MAXBUFLEN];
+char NEWSCONTROL[MAXBUFLEN];
+char NEWSAPPROVED[MAXBUFLEN];
+char NNTPHOST_BUF[MAXBUFLEN];
+extern char *NNTPHOST;
+char PATH_BUF[MAXBUFLEN];
+extern char *PATH;
+
+char CONTROL_BUF[MAXBUFLEN];
+extern char *CONTROL;
+
+char *BODY, *HEAD;
+
+int USEIHAVE = 1;
+int USEPOST = 0;
+int USEDATA = 0;
+int FEEDTYPE = ' ';
+
+int NNTP = -1;
+FILE *NNTPrfp = NULL;
+FILE *NNTPwfp = NULL;
+char NNTPbuffer[1024];
+static char *NEWSFEED;
+static char *REMOTE = "REMOTE";
+static char *LOCAL = "LOCAL";
+
+static int FD, FD_SIZE;
+static char *FD_BUF;
+static char *FD_END;
+
+static char *COMMENT = "\n";
+/*"[Ptt 送出]\n";*/
+
+char *fileglue();
+int
+is_outgo_post(board, filename, userid, nickname, subject)
+  char *board, *filename, *userid, *nickname, *subject;
+{
+  int mypost;
+
+  for (mypost = 0; mypost < outgo_post; mypost++)
+  {
+    if (!strcmp(out_bntp[mypost].filename, filename))
+       if (!strcmp(out_bntp[mypost].userid, userid))
+          if (!strcmp(out_bntp[mypost].board, board))
+             if (!strcmp(out_bntp[mypost].nickname, nickname))
+                if (!strcmp(out_bntp[mypost].subject, subject)){
+    if (Verbose)
+        printf("bad_cancel: %s, %s(%s), %s, %s\n",
+        board, userid, nickname, subject, filename);
+    bbslog("bad_cancel: %s, %s(%s), %s, %s\n",
+        board, userid, nickname, subject, filename);
+    return 1;
+    }
+  }
+  return 0;
+}
+/*
+woju
+Cross-fs rename()
+*/
+
+Rename(char* src, char* dst)
+{
+   char cmd[200];
+
+   if (rename(src, dst) == 0)
+      return 0;
+
+   sprintf(cmd, "/bin/mv %s %s", src, dst);
+   return system(cmd);
+
+}
+
+
+bbslink_un_lock(file)
+  char *file;
+{
+  char *lockfile = fileglue("%s.LOCK", file);
+
+  if (isfile(lockfile))
+    unlink(lockfile);
+}
+
+bbslink_get_lock(file)
+  char *file;
+{
+  int lockfd;
+  char LockFile[MAXPATHLEN];
+
+  strncpy(LockFile, (char *) fileglue("%s.LOCK", file), sizeof LockFile);
+  if ((lockfd = open(LockFile, O_RDONLY)) >= 0)
+  {
+    char buf[10];
+    int pid;
+
+    if (read(lockfd, buf, sizeof buf) > 0 &&
+      (pid = atoi(buf)) > 0 && kill(pid, 0) == 0)
+    {
+      if (KillFormerBBSLINK)
+      {
+        kill(pid, SIGTERM);
+        unlink(LockFile);
+      }
+      else
+      {
+        fprintf(stderr, "another process [%d] running\n", pid);
+        return 0;
+      }
+    }
+    else
+    {
+      fprintf(stderr, "no process [%d] running, but lock file existed, unlinked\n", pid);
+      unlink(LockFile);
+    }
+    close(lockfd);
+  }
+
+  if ((lockfd = open(LockFile, O_RDWR | O_CREAT | O_EXCL, 0644)) < 0)
+  {
+    fprintf(stderr, "lock %s error: another bbslink process running\n", LockFile);
+    return 0;
+  }
+  else
+  {
+    char buf[10];
+    int pid;
+
+    sprintf(buf, "%-.8d\n", getpid());
+    write(lockfd, buf, strlen(buf));
+    close(lockfd);
+    return 1;
+  }
+}
+
+
+int
+tcpcommand(char *fmt, ...)
+{
+  va_list ap;
+  char *ptr;
+
+  va_start(ap, fmt);
+  vfprintf(NNTPwfp, fmt, ap);
+  fprintf(NNTPwfp, "\r\n");
+  fflush(NNTPwfp);
+
+  fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+  ptr = strchr(NNTPbuffer, '\r');
+  if (ptr)
+    *ptr = '\0';
+  ptr = strchr(NNTPbuffer, '\n');
+  if (ptr)
+    *ptr = '\0';
+  va_end(ap);
+  return atoi(NNTPbuffer);
+}
+
+char *
+tcpmessage()
+{
+  char *ptr;
+
+  ptr = strchr(NNTPbuffer, ' ');
+  if (ptr)
+    return ptr;
+  return NNTPbuffer;
+}
+
+read_article(lover, filename, userid)
+  linkoverview_t *lover;
+  char *filename, *userid;
+{
+  FILE *fp;
+  int fd;
+  struct stat st;
+  time_t mtime;
+  char *buffer;
+  char *artptr, *artend, *artback;
+
+  if (stat(filename, &st) != 0)
+    return 0;
+  lover->mtime = st.st_mtime;
+  fd = open(filename, O_RDONLY);
+  if (fd < 0)
+  {
+    bbslog("<bbslink> Err: can't open %s\n", filename);
+    return 0;
+  }
+
+  if (FD_BUF == NULL)
+  {
+    FD_BUF = mymalloc(st.st_size + 1 + strlen(COMMENT));
+  }
+  else
+  {
+    FD_BUF = myrealloc(FD_BUF, st.st_size + 1 + strlen(COMMENT));
+  }
+  FD_BUF[st.st_size] = '\0';
+  read(fd, FD_BUF, st.st_size);
+  sprintf(FD_BUF + st.st_size, "%s", COMMENT);
+  st.st_size += strlen(COMMENT);
+  FD_SIZE = st.st_size;
+  for (buffer = FD_BUF, artend = FD_BUF + st.st_size,
+    artback = strchr(buffer, '\n');
+    buffer && buffer < artend && *buffer;
+    artback = strchr(buffer, '\n')
+    )
+  {
+    /* while( fgets(buffer, sizeof buffer, fp) != NULL) { */
+    char *m, *n;
+    char *ptr;
+
+    if (artback != NULL)
+      *artback = '\0';
+    if (*buffer == '\0')
+      break;
+
+#ifndef MapleBBS
+    if (strstr(buffer, userid) != NULL)
+    {
+      m = strchr(buffer, '(');
+      n = strrchr(buffer, ')');
+      if (m != NULL && n != NULL)
+      {
+        strncpy(lover->nickname, m + 1, n - m - 1);
+        lover->nickname[n - m - 1] = '\0';
+      }
+      else
+      {
+        *lover->nickname = '\0';
+      }
+    }
+    else if (strncmp(buffer, "Date:      ", 11) == 0)
+    {
+      strcpy(lover->date, buffer + 11);
+    }
+    else if (strncmp(buffer, "發信站: ", 8) == 0)
+    {
+      m = strchr(buffer, '(');
+      n = strrchr(buffer, ')');
+      strncpy(lover->date, m + 1, n - m - 1);
+      lover->date[n - m - 1] = '\0';
+    }
+#endif
+
+    if (artback != NULL)
+    {
+      *artback = '\n';
+      buffer = artback + 1;
+    }
+    else
+    {
+      break;
+    }
+  }
+  if (artback != NULL)
+    BODY = artback + 1;
+  else
+    BODY = "";
+  close(fd);
+  return 1;
+}
+
+save_outgoing(sover, filename, userid, poster, mtime)
+  soverview_t *sover, *filename, *userid, *poster;
+  time_t mtime;
+{
+  newsfeeds_t *nf;
+  char *group, *server, *serveraddr;
+  char *subject, *path;
+  char *board;
+  char *ptr1, *ptr2;
+
+  board = sover->board;
+
+  PATH = MYBBSID;
+  nf = (newsfeeds_t *) search_board(board);
+  if (nf == NULL)
+  {
+    bbslog("<bbslink> save_outgoing: No such board %s\n", board);
+    return;
+  }
+  else
+  {
+    group = nf->newsgroups;
+    server = nf->path;
+  }
+  if (!server || !*server)
+  {
+    sprintf(PATH_BUF, "%.*s (local)", sizeof PATH_BUF - 9, MYBBSID);
+    PATH = PATH_BUF;
+    serveraddr = "";
+    sover->path = PATH;
+  }
+  for (ptr1 = server; ptr1 && *ptr1;)
+  {
+    nodelist_t *nl;
+    char savech;
+
+    for (; *ptr1 && isspace(*ptr1); ptr1++);
+    if (!*ptr1)
+      break;
+    for (ptr2 = ptr1; *ptr2 && !isspace(*ptr2); ptr2++);
+    savech = *ptr2;
+    *ptr2 = '\0';
+    nl = (nodelist_t *) search_nodelist_bynode(ptr1);
+    *ptr2 = savech;
+    ptr1 = ptr2++;
+    if (nl == NULL)
+      continue;
+    /* if (nl->feedfp == NULL) continue; */
+
+    if (nl->host && *nl->host)
+    {
+      if (nl->feedfp == NULL)
+      {
+        nl->feedfp = fopen(fileglue("%s/%s.link", INNDHOME, nl->node), "a");
+        if (nl->feedfp == NULL)
+        {
+          bbslog("<save outgoing> append failed for %s/%s.link", INNDHOME, nl->node);
+        }
+      }
+      if (nl->feedfp != NULL)
+      {
+        flock(fileno(nl->feedfp), LOCK_EX);
+        fprintf(nl->feedfp, "%s\t%s\t%s\t%ld\t%s\t%s\n", sover->board, filename, group, mtime, FROM, sover->subject);
+        fflush(nl->feedfp);
+        flock(fileno(nl->feedfp), LOCK_UN);
+      }
+    }
+    if (savech == '\0')
+      break;
+  }
+}
+
+
+#ifndef MapleBBS
+save_article(board, filename, sover)
+  char *board, *filename;
+  soverview_t *sover;
+{
+  FILE *FN;
+
+  if (Verbose)
+    printf("<save_article> %s %s\n", board, filename);
+  FN = fopen(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), "w");
+  if (FN == NULL)
+  {
+    bbslog("<save_article> err: %s %s\n", board, filename);
+    if (Verbose)
+      printf("<save_article> err: %s %s\n", board, filename);
+    return 0;
+  }
+  flock(fileno(FN), LOCK_EX);
+  fprintf(FN, "發信人: %s, 信區: %s\n", POSTER, sover->board);
+  fprintf(FN, "標  題: %s\n", sover->subject);
+  fprintf(FN, "發信站: %s (%s)\n", MYSITE, sover->date);
+  fprintf(FN, "轉信站: %s\n", sover->path);
+  fprintf(FN, "\n");
+  fputs(BODY, FN);
+  flock(fileno(FN), LOCK_UN);
+  fclose(FN);
+
+#if defined(PalmBBS)
+  {
+    struct utimbuf times;
+
+    times.actime = sover->mtime;
+    times.modtime = sover->mtime;
+    utime(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), &times);
+    utime(fileglue("%s/.bcache/%s", BBSHOME, board), NULL);
+  }
+#endif
+}
+#endif
+
+/* process_article() read_article() save_outgoing() save_article() */
+
+process_article(board, filename, userid, nickname, subject)
+  char *board, *filename, *userid, *nickname, *subject;
+{
+  char *n, *filepath;
+  char poster[MAXBUFLEN];
+  soverview_t sover;
+
+  if (!*userid)
+  {
+    return;
+  }
+  else if (!subject || !*subject)
+  {
+    subject = "無題";
+  }
+  filepath = fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename);
+  if (isfile(filepath))
+  {
+    linkoverview_t lover;
+
+    if (read_article(&lover, filepath, userid))
+    {
+
+#ifndef MapleBBS
+      strncpy(POSTER_BUF, fileglue("%s@%s (%s)", userid, MYBBSID, nickname), sizeof POSTER_BUF);
+      POSTER = POSTER_BUF;
+#endif
+
+      strncpy(FROM_BUF, fileglue("%s.bbs@%s (%s)", userid, MYADDR, nickname), sizeof FROM_BUF);
+      FROM = FROM_BUF;
+      sover.from = FROM;
+      sover.board = board;
+      sover.subject = subject;
+      PATH = MYBBSID;
+      sover.path = MYBBSID;
+      sover.date = lover.date;
+      sover.mtime = lover.mtime;
+      if (!VisitOnly)
+      {
+        save_outgoing(&sover, filename, userid, poster, lover.mtime);
+
+#ifndef MapleBBS
+        save_article(board, filename, &sover);
+#endif
+      }
+    }
+  }
+}
+
+
+char *
+baseN(val, base, len)
+  int val, base, len;
+{
+  int n, ans;
+  static char str[MAXBUFLEN];
+  char *pstr = str;
+  int index;
+
+  for (index = len - 1; index >= 0; index--)
+  {
+    n = val % base;
+    val /= base;
+    if (n < 10)
+    {
+      n += '0';
+    }
+    else if (n < 36)
+    {
+      n += 'A' - 10;
+    }
+    else if (n < 62)
+    {
+      n += 'a' - 36;
+    }
+    else
+    {
+      n = '_';
+    }
+    str[index] = n;
+  }
+  str[len] = '\0';
+  return str;
+}
+
+char *
+hash_value(str)
+  char *str;
+{
+  int val, n;
+  char *ptr;
+
+  if (*str)
+    ptr = str + strlen(str) - 1;
+  else
+    ptr = str;
+  val = 0;
+  while (ptr >= str)
+  {
+    n = *ptr;
+    val = (val + n * 0x100) ^ n;
+    ptr--;
+  }
+  return baseN(val, 64, 3);
+}
+
+/* process_cancel() save_outgoing() hash_value(); baseN(); ascii_date(); */
+
+
+read_outgoing(sover)
+  soverview_t *sover;
+{
+  char *board, *filename, *group, *from, *subject, *outgoingtype, *msgid, *path;
+  char *buffer, *bufferp;
+  FILE *ECHOMAIL, *FN;
+  char *hash;
+  char times[MAXBUFLEN];
+  time_t mtime;
+
+  board = sover->board;
+  filename = sover->filename;
+  group = sover->group;
+  mtime = sover->mtime;
+  from = sover->from;
+  subject = sover->subject;
+  outgoingtype = sover->outgoingtype;
+  msgid = sover->msgid;
+  path = sover->path;
+  if (Verbose)
+  {
+    printf("<read_outgoing> %s:%s:%s\n", board, filename, group);
+    printf("  => %ld:%s\n", mtime, from);
+    printf("  => %s\n", subject);
+    printf("  => %s:%s\n", outgoingtype, msgid);
+    printf("  => %s\n", path);
+  }
+  if (NEWSFEED == LOCAL)
+  {
+    char *end = strrchr(filename, '.');
+
+    if (end)
+      *end = '\0';
+    strncpy(times, baseN(atol(filename + 2), 48, 6), sizeof times);
+    if (end)
+      *end = '.';
+    hash = hash_value(fileglue("%s.%s", filename, board));
+    sprintf(MSGID_BUF, "%s$%s@%s", times, hash, MYADDR);
+  }
+  else
+  {
+    strncpy(MSGID_BUF, msgid, sizeof MSGID_BUF);
+  }
+  sover->msgid = MSGID;
+  if (mtime == -1)
+  {
+    static char BODY_BUF[MAXBUFLEN];
+
+    strncpy(BODY_BUF, fileglue("%s\r\n", subject), sizeof BODY_BUF);
+    BODY = BODY_BUF;
+    sprintf(SUBJECT_BUF, "cmsg cancel <%s>", MSGID);
+    SUBJECT = SUBJECT_BUF;
+    sprintf(CONTROL_BUF, "cancel <%s>", MSGID);
+    CONTROL = CONTROL_BUF;
+    strncpy(MSGID_BUF, fileglue("%d.%s", getpid(), MSGID_BUF), sizeof MSGID_BUF);
+    sprintf(DATE_BUF, "%s", ascii_date(time(NULL)));
+    DATE = DATE_BUF;
+    sover->subject = SUBJECT;
+    sover->control = CONTROL;
+    sover->msgid = MSGID;
+    sover->date = DATE;
+  }
+  else
+  {
+    sover->control = CONTROL;
+    sover->date = DATE_BUF;
+    DATE = DATE_BUF;
+    *CONTROL = '\0';
+    sprintf(DATE, "%s", ascii_date((mtime)));
+    if (NEWSFEED == LOCAL && !NoAction)
+    {
+      SITE = MYSITE;
+      PATH = MYBBSID;
+      GROUPS = group;
+
+#ifndef MapleBBS
+      echomaillog();
+#endif
+    }
+    BODY = "";
+    FD = open(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), O_RDONLY);
+    if (FD < 0)
+    {
+      if (Verbose)
+	  printf(" !! can't open %s/boards/%c/%s/%s\n", BBSHOME, board[0], board, filename);
+      else
+        fprintf(stderr, "can't open %s/boards/%c/%s/%s\n", BBSHOME, board[0], board, filename);
+      return -1;
+    }
+
+    FD_SIZE = filesize(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename));
+    if (FD_BUF == NULL)
+    {
+      FD_BUF = (char *) mymalloc(FD_SIZE + 1 + strlen(COMMENT));
+    }
+    else
+    {
+      FD_BUF = (char *) myrealloc(FD_BUF, FD_SIZE + 1 + strlen(COMMENT));
+    }
+    FD_END = FD_BUF + FD_SIZE;
+    *FD_END = '\0';
+    read(FD, FD_BUF, FD_SIZE);
+    sprintf(FD_END, "%s", COMMENT);
+    FD_SIZE += strlen(COMMENT);
+    FD_END += strlen(COMMENT);
+    if (Verbose)
+    {
+	printf("<read in> %s/boards/%c/%s/%s\n", BBSHOME, board[0], board, filename);
+    }
+
+    *ORGANIZATION = '\0';
+    *NEWSCONTROL = '\0';
+    *NEWSAPPROVED = '\0';
+    *NNTPHOST_BUF = '\0';
+    NNTPHOST = NULL;
+
+    for (buffer = FD_BUF, bufferp = strchr(buffer, '\n');
+      buffer && *buffer; bufferp = strchr(buffer, '\n'))
+    {
+      if (bufferp)
+        *bufferp = '\0';
+      if (*buffer == '\0')
+      {
+        break;
+      }
+      /* printf("get buffer %s\n", buffer); */
+      if (NEWSFEED == REMOTE)
+      {
+        if (strncmp(buffer, "Date:      ", 11) == 0)
+        {
+          strcpy(DATE_BUF, buffer + 11);
+          DATE = DATE_BUF;
+        }
+        else if (strncmp(buffer, "發信站: ", 8) == 0)
+        {
+          char *m, *n;
+
+          m = strchr(buffer, '(');
+          n = strrchr(buffer, ')');
+          if (m && n)
+          {
+            strncpy(DATE_BUF, m + 1, n - m - 1);
+            DATE_BUF[n - m - 1] = '\0';
+            DATE = DATE_BUF;
+            strncpy(ORGANIZATION, buffer + 8, m - 8 - buffer - 1);
+            ORGANIZATION[m - 8 - buffer - 1] = '\0';
+          }
+        }
+        else if (strncmp(buffer, "Control: ", 9) == 0)
+        {
+          strcpy(NEWSCONTROL, buffer + 9);
+        }
+        else if (strncmp(buffer, "Approved: ", 10) == 0)
+        {
+          strcpy(NEWSAPPROVED, buffer + 10);
+        }
+        else if (strncmp(buffer, "Origin: ", 8) == 0)
+        {
+          strcpy(NNTPHOST_BUF, buffer + 8);
+          NNTPHOST = NNTPHOST_BUF;
+        }
+      }
+      if (bufferp)
+      {
+        *bufferp = '\n';
+        buffer = bufferp + 1;
+      }
+      else
+      {
+        break;
+      }
+    }
+    if (bufferp)
+    {
+      BODY = bufferp + 1;
+    }
+    else
+      BODY = "";
+    if (bufferp)
+      for (buffer = bufferp + 1, bufferp = strchr(buffer, '\n');
+        buffer && *buffer; bufferp = strchr(buffer, '\n'))
+      {
+        if (bufferp)
+          *bufferp = '\0';
+        /* printf("get line (%s)\n", buffer); */
+        /* if( strcmp(buffer,".")==0 ) { buffer[1]='.'; buffer[2]='\0'; } */
+        if (NEWSFEED == REMOTE &&
+          strncmp(NEWSCONTROL, "cancel", 5) == 0 &&
+          strncmp(buffer, "------------------", 18) == 0)
+        {
+          break;
+        }
+        else if (strncmp(buffer, "◆ From: ", 9) == 0)
+        {
+          strcpy(NNTPHOST_BUF, buffer + 9);
+          NNTPHOST = NNTPHOST_BUF;
+        }
+        /* $BODY[ @BODY ] = "$_\r\n"; */
+        if (bufferp)
+        {
+          *bufferp = '\n';
+          buffer = bufferp + 1;
+        }
+        else
+        {
+          break;
+        }
+      }
+    /* #       fprintf("BODY @BODY\n"; */
+    close(FD);
+  }
+  return 0;
+}
+
+#ifdef TEST
+#endif
+
+openfeed(node)
+  nodelist_t *node;
+{
+  if (node->feedfp == NULL)
+  {
+    node->feedfp = fopen(fileglue("%s/%s.link", INNDHOME, node->node), "a");
+  }
+}
+
+queuefeed(node, textline)
+  nodelist_t *node;
+  char *textline;
+{
+  openfeed(node);
+  if (node->feedfp != NULL)
+  {
+    flock(fileno(node->feedfp), LOCK_EX);
+    fprintf(node->feedfp, "%s", textline);
+    fflush(node->feedfp);
+    flock(fileno(node->feedfp), LOCK_UN);
+  }
+}
+
+post_article(node, site, sover, textline)
+  nodelist_t *node;
+  char *site;
+  soverview_t *sover;
+  char *textline;
+{
+  int status;
+  char *filename = sover->filename;
+  char *msgid = sover->msgid;
+  char *board = sover->board;
+  char *bodyp, *body;
+  
+  if (Verbose)
+    fprintf(stdout, "<post_article> %s %s %s\n", site, filename, msgid);
+  if (NoAction && Verbose)
+  {
+    printf("  ==>%s\n", sover->path);
+    printf("  ==>%s:%s\n", sover->from, sover->group);
+    printf("  ==>%s:%s\n", sover->subject, sover->date);
+    body = BODY;
+    bodyp = strchr(body, '\n');
+    if (bodyp)
+      *bodyp = '\0';
+    printf("  ==>%s\n", body);
+    if (bodyp)
+      *bodyp = '\n';
+    if (bodyp)
+    {
+      body = bodyp + 1;
+      bodyp = strchr(body, '\n');
+      if (bodyp)
+        *bodyp = '\0';
+      printf("  ==>%s\n", body);
+      if (bodyp)
+        *bodyp = '\n';
+    }
+  }
+  if (NoAction)
+    return 1;
+  if (NEWSFEED == REMOTE)
+  {
+    fprintf(NNTPwfp, "Path: %s\r\n", sover->path);
+    fprintf(NNTPwfp, "From: %s\r\n", sover->from);
+    fprintf(NNTPwfp, "Newsgroups: %s\r\n", sover->group);
+    fprintf(NNTPwfp, "Subject: %s\r\n", sover->subject);
+    /* #       fprintf( NNTPwfp,"Post with subject ($subject)\n"); */
+    fprintf(NNTPwfp, "Date: %s\r\n", sover->date);
+    if (*ORGANIZATION)
+      fprintf(NNTPwfp, "Organization: %s\r\n", ORGANIZATION);
+    fprintf(NNTPwfp, "Message-ID: <%s>\r\n", sover->msgid);
+    if (*NEWSCONTROL)
+      fprintf(NNTPwfp, "Control: %s\r\n", NEWSCONTROL);
+    if (*NEWSAPPROVED)
+      fprintf(NNTPwfp, "Approved: %s\r\n", NEWSAPPROVED);
+  }
+  else
+  {
+    fprintf(NNTPwfp, "Path: %s\r\n", MYBBSID);
+    fprintf(NNTPwfp, "From: %s\r\n", sover->from);
+    fprintf(NNTPwfp, "Newsgroups: %s\r\n", sover->group);
+    fprintf(NNTPwfp, "Subject: %s\r\n", sover->subject);
+    fprintf(NNTPwfp, "Date: %s\r\n", sover->date);
+    fprintf(NNTPwfp, "Organization: %s\r\n", MYSITE);
+    fprintf(NNTPwfp, "Message-ID: <%s>\r\n", sover->msgid);
+    fprintf(NNTPwfp, "Mime-Version: 1.0\r\n");
+    fprintf(NNTPwfp, "Content-Type: text/plain; charset=Big5\r\n");
+    fprintf(NNTPwfp, "Content-Transfer-Encoding: 8bit\r\n");
+    fprintf(NNTPwfp, "X-Filename: %s/%s\r\n", sover->board, sover->filename);
+  }
+  if (NNTPHOST && *NNTPHOST && USEIHAVE)
+    fprintf(NNTPwfp, "NNTP-Posting-Host: %s\r\n", NNTPHOST);
+  else if (NNTPHOST && *NNTPHOST)
+    fprintf(NNTPwfp, "X-Auth-From: %s\r\n", NNTPHOST);
+  if (*CONTROL)
+  {
+    fprintf(NNTPwfp, "Control: %s\r\n", CONTROL);
+  }
+  fputs("\r\n", NNTPwfp);
+  for (body = BODY, bodyp = strchr(body, '\n');
+    body && *body; bodyp = strchr(body, '\n'))
+  {
+    if (bodyp)
+      *bodyp = '\0';
+
+    fputs(body, NNTPwfp);
+    if (body[0] == '.' && body[1] == '\0')
+      fputs(".", NNTPwfp);
+    fputs("\r\n", NNTPwfp);
+    if (bodyp)
+    {
+      *bodyp = '\n';
+      body = bodyp + 1;
+    }
+    else
+    {
+      break;
+    }
+  }
+  /* print "send out @BODY\n"; */
+  status = tcpcommand(".");
+  /* 435 duplicated article 437 invalid header */
+
+  if (USEIHAVE)
+  {
+    if (status == 235)
+    {
+      if (NEWSFEED == LOCAL)
+      {
+        bbslog("Sendout <%s> from %s/%s\n", msgid, board, filename);
+      }
+    }
+    else if (status == 437 || status == 435)
+    {
+      bbslog("<bbslink> :Warn: %d %s <%s>\n", status, (char *) tcpmessage(), msgid);
+      if (Verbose)
+        printf(":Warn: %d %s <%s>\n", status, (char *) tcpmessage(), msgid);
+      return 0;
+    }
+    else
+    {
+      bbslog("<bbslink> :Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+      if (Verbose)
+        printf(":Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (!strstr(tcpmessage(), "Article not posted"))
+          queuefeed(node, textline);
+      return 0;
+    }
+  }
+  else if (USEPOST)
+  {
+    if (status == 240)
+    {
+      bbslog("Sendout <%s> from %s/%s\n", msgid, board, filename);
+    }
+    else if (status == 437 || status == 435)
+    {
+      bbslog("<bbslink> :Warn: %d %s <%s>\n", status, (char *) tcpmessage(), msgid);
+      if (Verbose)
+        printf(":Warn: %d %s <%s>\n", status, (char *) tcpmessage(), msgid);
+      return 0;
+    }
+    else
+    {
+      bbslog("<bbslink> :Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (!strstr(tcpmessage(), "Article not posted"))
+          queuefeed(node, textline);
+      return 0;
+    }
+  }
+  else
+  {
+    if (status == 250)
+    {
+      bbslog("<bbslink> DATA Sendout <%s> from %s/%s\n", msgid, board, filename);
+      if (Verbose)
+        printf("<DATA Sendout> <%s> from %s/%s\n", msgid, board, filename);
+    }
+    else
+    {
+      bbslog("<bbslink> :Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+      if (Verbose)
+        printf(":Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (!strstr(tcpmessage(), "Article not posted"))
+          queuefeed(node, textline);
+      return 0;
+    }
+  }
+  return 1;
+}
+
+process_cancel(board, filename, userid, nickname, subject)
+  char *board, *filename, *userid, *nickname, *subject;
+{
+  time_t mtime;
+  soverview_t sover;
+
+  if (!userid || !*userid)
+  {
+    return;
+  }
+  mtime = -1;
+  strncpy(FROM_BUF, fileglue("%s.bbs@%s (%s)", userid, MYADDR, nickname), sizeof FROM_BUF);
+  FROM = FROM_BUF;
+  sover.from = FROM;
+  sover.board = board;
+  sover.subject = subject;
+  PATH = MYBBSID;
+  sover.path = MYBBSID;
+  /* save_outgoing(&sover, filename, userid, poster, -1); */
+  save_outgoing(&sover, filename, userid, userid, -1);
+}
+
+open_link(hostname, hostprot, hostport)
+  char *hostname, *hostprot, *hostport;
+{
+  USEIHAVE = 1;
+  USEPOST = 0;
+  USEDATA = 0;
+  FEEDTYPE = ' ';
+  if (Verbose)
+    printf("<OPEN_link> %s %s %s\n", hostname, hostprot, hostport);
+  if (strncasecmp(hostprot, "IHAVE", 5) != 0)
+  {
+    USEIHAVE = 0;
+    USEPOST = 1;
+    if (strncasecmp(hostprot, "POST", 4) == 0)
+    {
+      USEPOST = 1;
+    }
+    else if (strncasecmp(hostprot, "DATA", 4) == 0)
+    {
+      USEPOST = 0;
+      USEDATA = 1;
+    }
+  }
+
+  FEEDTYPE = hostname[0];
+  if (!USEDATA)
+  {
+    char *atsign;
+
+    if (FEEDTYPE == '-' || FEEDTYPE == '+')
+    {
+      hostname = hostname + 1;
+    }
+    atsign = strchr(hostname, '@');
+    if (atsign != NULL)
+    {
+      hostname = atsign + 1;
+    }
+    if (!NoAction)
+    {
+      if (Verbose)
+        printf("<inetclient> %s %s\n", hostname, hostport);
+      if ((NNTP = inetclient(hostname, hostport, "tcp")) < 0)
+      {
+        bbslog("<bbslink> :Err: server %s %s error: cant connect\n", hostname, hostport);
+        if (Verbose)
+          printf(":Err: server %s %s error: cant connect\n", hostname, hostport);
+        return 0;
+        /* exit( 0 ); */
+        /* return; */
+      }
+      NNTPrfp = fdopen(NNTP, "r");
+      NNTPwfp = fdopen(NNTP, "w");
+      fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+      if (atoi(NNTPbuffer) != 200)
+      {
+        bbslog("<bbslink> :Err: server error: %s", NNTPbuffer);
+        if (Verbose)
+          printf(":Err: server error: %s", NNTPbuffer);
+        return 0;
+        /* exit( 0 ); */
+      }
+    }
+    else
+    {
+      if (Verbose)
+        printf("<inetclient> %s %s\n", hostname, hostport);
+    }
+  }
+  else
+  {
+    if (!NoAction)
+    {
+      if (Verbose)
+        printf("<inetclient> localhost %s\n", hostport);
+      if ((NNTP = inetclient("localhost", hostport, "tcp")) < 0)
+      {
+        bbslog("<bbslink> :Err: server %s port %s error: cant connect\n", hostname, hostport);
+        if (Verbose)
+          printf(":Err: server error: cant connect");
+        return 0;
+        /* exit( 0 ); */
+        /* return; */
+      }
+      NNTPrfp = fdopen(NNTP, "r");
+      NNTPwfp = fdopen(NNTP, "w");
+      fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+      if (strncmp(NNTPbuffer, "220", 3) != 0)
+      {
+        bbslog("<bbslink> :Err: server error: %s", NNTPbuffer);
+        if (Verbose)
+          printf(":Err: server error: %s", NNTPbuffer);
+        return 0;
+        /* exit( 0 ); */
+      }
+      if (strncmp(NNTPbuffer, "220-", 4) == 0)
+      {
+        fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+      }
+    }
+    else
+    {
+      if (Verbose)
+        printf("<inetclient> %s %s\n", hostname, hostport);
+    }
+  }
+  return 1;
+}
+
+send_outgoing(node, site, hostname, sover, textline)
+  nodelist_t *node;
+  soverview_t *sover;
+  char *hostname, *site;
+  char *textline;
+{
+  int status;
+  char *board, *filepath, *msgid;
+  int returnstatus = 0;
+
+  board = sover->board;
+  filepath = sover->filename;
+  msgid = sover->msgid;
+
+  if (Verbose)
+    printf("<send_outgoing> %s:%s:%s:%s\n", site, board, filepath, msgid);
+  if (BODY != NULL && !NoAction)
+  {
+    if (USEIHAVE)
+    {
+/*      status = tcpcommand("IHAVE <%s>", msgid);*/
+     char buf[80];
+     sprintf(buf, "IHAVE <%s>", msgid);
+     status = tcpcommand(buf);
+      if (status == 335)
+      {
+        returnstatus = post_article(node, site, sover, textline);
+      }
+      else if (status == 435)
+      {
+        bbslog("<bbslink> :Warn: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Warn: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        returnstatus = 0;
+      }
+      else
+      {
+        bbslog("<bbslink> :Err: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Err: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (!strstr(tcpmessage(), "Article not posted"))
+          queuefeed(node, textline);
+        returnstatus = 0;
+      }
+    }
+    else if (USEPOST)
+    {
+      tcpcommand("MODE READER");
+      status = tcpcommand("POST");
+      if (status == 340)
+      {
+        returnstatus = post_article(node, site, sover, textline);
+      }
+      else if (status == 441)
+      {
+        bbslog("<bbslink> :Warn: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Warn: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        returnstatus = 0;
+      }
+      else
+      {
+        bbslog("<bbslink> :Err: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Err: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (!strstr(tcpmessage(), "Article not posted"))
+          queuefeed(node, textline);
+        returnstatus = 0;
+      }
+    }
+    else
+    {
+      tcpcommand("HELO");
+      tcpcommand("MAIL FROM: bbs");
+      tcpcommand("RCPT TO: %s", hostname);
+      status = tcpcommand("DATA");
+      if (status == 354)
+      {
+        returnstatus = post_article(node, site, sover, textline);
+      }
+      else
+      {
+        bbslog("<bbslink> :Err: %d %s, DATA <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Err: %d %s, DATA <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (!strstr(tcpmessage(), "Article not posted"))
+          queuefeed(node, textline);
+        returnstatus = 0;
+      }
+    }
+  }
+  else if (NoAction)
+  {
+    returnstatus = post_article(node, site, sover, textline);
+  }
+  return returnstatus;
+}
+
+save_nntplink(node, overview)
+  nodelist_t *node;
+  char *overview;
+{
+  FILE *POSTS;
+  char buffer[1024];
+
+  openfeed(node);
+  POSTS = fopen(overview, "r");
+  if (POSTS == NULL)
+    return 0;
+  openfeed(node);
+  /* if (node->feedfp == NULL) return 0; */
+  flock(fileno(node->feedfp), LOCK_EX);
+  while (fgets(buffer, sizeof buffer, POSTS) != NULL)
+  {
+    fputs(buffer, node->feedfp);
+    fflush(node->feedfp);
+  }
+  flock(fileno(node->feedfp), LOCK_UN);
+  fclose(POSTS);
+  if (Verbose)
+    printf("<Unlinking> %s\n", overview);
+  if (!NoAction)
+    unlink(overview);
+  return 1;
+}
+
+
+char *
+get_tmpfile(tmpfile)
+  char *tmpfile;
+{
+  FILE *FN;
+  static char result[256];
+
+  FN = fopen(tmpfile, "r");
+  fgets(result, sizeof result, FN);
+  fclose(FN);
+  unlink(tmpfile);
+  return (result);
+}
+
+/* cancel moderating posts */
+
+cancel_outgoing(board, filename, from, subject)
+  char *board, *filename, *from, *subject;
+{
+  char *base, filepath[MAXPATHLEN];
+  FILE *FN;
+  char *result;
+  char TMPFILE[MAXPATHLEN];
+
+  if (Verbose)
+  {
+    printf("<cancel_outgoing> %s %s %s %s\n", board, filename, from, subject);
+  }
+
+  sprintf(TMPFILE, "/tmp/cancel_outgoing.%d.%d", getuid(), getpid());
+
+  bbslog("<cancel_outgoing> Try to move moderated post from %s to deleted\n", board);
+  if (Verbose)
+    printf("Try to move moderated post from %s to deleted\n", board);
+  FN = popen(fileglue("%s/bbspost post %s/boards/d/deleted > %s",
+      INNDHOME, BBSHOME, TMPFILE), "w");
+  if (FN == NULL)
+  {
+    bbslog("<cancel_outgoing> can't run %s/bbspost\n", INNDHOME);
+    if (Verbose)
+      printf("<cancel_outgoing> can't run %s/bbspost\n", INNDHOME);
+    return 0;
+  }
+  fprintf(FN, "%s\n", from);
+  fprintf(FN, "%s\n", subject);
+  fprintf(FN, "發信人: %s, 信區: %s\n", from, board);
+  fprintf(FN, "標  題: %s\n", subject);
+  fprintf(FN, "發信站: %s (%s)\n", MYSITE, DATE);
+  fprintf(FN, "轉信站: %s\n", MYBBSID);
+  fputs("\n", FN);
+  fputs(BODY, FN);
+  pclose(FN);
+  result = (char *) get_tmpfile(TMPFILE);
+  if (strncmp(result, "post to ", 8) == 0)
+  {
+    /* try to remove it */
+    strncpy(filepath, fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), sizeof filepath);
+    if (isfile(filepath))
+    {
+      Rename(filepath, fileglue("%s.cancel", filepath));
+    }
+    FN = fopen(filepath, "w");
+
+    fprintf(FN, "發信人: %s, 信區: %s\n", from, board);
+    fprintf(FN, "標  題: <article cancelled and mailed to the moderator\n");
+    fprintf(FN, "發信站: %s (%s)\n", MYSITE, DATE);
+    fprintf(FN, "轉信站: %s\n", MYBBSID);
+    fprintf(FN, "\n");
+    fputs("\n", FN);
+    fprintf(FN, "你的文章 \"%s\" 已經送往審核中. 請等待回覆.\n", subject);
+    fputs("\n", FN);
+    fputs("Your post has been sent to the moderator and move\n", FN);
+    fputs("into the deleted board. If the post accepted by the moderator,\n", FN);
+    fputs("it will be posted in this board again. Please wait.\n", FN);
+
+  }
+  else
+  {
+    bbslog("%s", result);
+  }
+
+  bbslog("%s/bbspost cancel %s %s %s moderate\n", INNDHOME, BBSHOME, board, filename);
+  if (Verbose)
+    printf("%s/bbspost cancel %s %s %s moderate\n", INNDHOME, BBSHOME, board, filename);
+  system(fileglue("%s/bbspost cancel %s %s %s moderate",
+      INNDHOME, BBSHOME, board, filename));
+  return 1;
+}
+
+/*
+ * send_nntplink open_link read_outgoing send_outgoing post_article
+ * cancel_outgoing
+ */
+send_nntplink(node, site, hostname, hostprot, hostport, overview, nlcount)
+  nodelist_t *node;
+  char *site, *hostname, *hostprot, *hostport, *overview;
+  int nlcount;
+{
+  FILE *POSTS;
+  char textline[1024];
+  char baktextline[1024];
+  char *filepath;
+  int status;
+
+  if (Verbose)
+  {
+    printf("<send nntplink> %s %s %s %s\n", site, hostname, hostprot, hostport);
+    printf("    ==> %s\n", overview);
+  }
+  if (!open_link(hostname, hostprot, hostport))
+  {
+    save_nntplink(node, overview);
+    return 0;
+  }
+  POSTS = fopen(overview, "r");
+  if (POSTS == NULL)
+  {
+    if (Verbose)
+      printf("open %s failed\n", overview);
+    return 0;
+  }
+  while (fgets(textline, sizeof textline, POSTS) != NULL)
+  {
+    char *linebreak = strchr(textline, '\n');
+    char *ptr;
+    char *board, *filename, *subject, *group, *mtime, *from;
+    char *outgoingtype;
+    char *msgid, *path;
+    soverview_t soverview;
+
+    strcpy(baktextline, textline);
+    if (linebreak)
+      *linebreak = '\0';
+
+    board = "", filename = "", mtime = "", group = "", from = "", subject = "";
+    outgoingtype = "", msgid = "", path = "";
+    /* get board field */
+    board = textline;
+    ptr = strchr(textline, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* filename field */
+    filename = ptr;
+
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+
+    *ptr++ = '\0';
+
+    /* group field */
+    group = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* mtime field */
+    mtime = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* from field */
+    from = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* subject */
+    subject = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+    *ptr++ = '\0';
+
+    /* outgoing type field */
+    outgoingtype = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+    *ptr++ = '\0';
+
+    /* msgid */
+    msgid = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+    *ptr++ = '\0';
+
+    /* path */
+    path = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+
+try_read_outgoing:
+
+    NEWSFEED = LOCAL;
+    if (outgoingtype && msgid && path && *outgoingtype && *msgid && *path)
+    {
+      char *left, *right;
+
+      NEWSFEED = REMOTE;
+      left = strchr(msgid, '<');
+      right = strrchr(msgid, '>');
+      if (left)
+        msgid = left + 1;
+      if (right)
+        *right = '\0';
+    }
+    soverview.board = board;
+    soverview.filename = filename;
+    soverview.group = group;
+    soverview.mtime = atol(mtime);
+    soverview.from = from;
+    str_decode_M3(subject);
+    soverview.subject = subject;
+    soverview.outgoingtype = outgoingtype;
+    soverview.msgid = msgid;
+    soverview.path = path;
+    if (read_outgoing(&soverview) == 0)
+    {
+      int sendresult = send_outgoing(node, site, hostname, &soverview, baktextline);
+      int sendfailed = 1 - sendresult;
+
+      if (NEWSFEED == REMOTE)
+      {
+        BBSLINK_STAT[nlcount].remotesendout += sendresult;
+        BBSLINK_STAT[nlcount].remotefailed += sendfailed;
+      }
+      else
+      {
+        BBSLINK_STAT[nlcount].localsendout += sendresult;
+        BBSLINK_STAT[nlcount].localfailed += sendfailed;
+      }
+      if (node->feedtype == '-')
+      {
+        if (!NoAction && sendresult)
+          cancel_outgoing(board, filename, from, subject);
+      }
+    }
+  }
+  fclose(POSTS);
+  close_link();
+  if (Verbose)
+    printf("<Unlinking> %s\n", overview);
+  if (!NoAction)
+    unlink(overview);
+}
+
+close_link()
+{
+  int status;
+
+  if (Verbose)
+    printf("<close_link>\n");
+  if (NoAction)
+    return;
+  status = tcpcommand("QUIT");
+  if (status != 205 && status != 221)
+  {
+    bbslog("<bbslink> :Err: Cannot quit message '%d %s'\n", status, (char *) tcpmessage());
+    if (Verbose)
+      printf(":Err: Cannot quit message '%d %s'\n", status, (char *) tcpmessage());
+  }
+  fclose(NNTPwfp);
+  fclose(NNTPrfp);
+  close(NNTP);
+}
+
+
+/*
+ * send_article() send_nntplink() read_outgoing()
+ *
+ */
+
+send_article()
+{
+  char *site, *addr, *protocol, *port, *op;
+  char *nntphost;
+  int nlcount;
+
+  chdir(INNDHOME);
+
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    nodelist_t *node;
+    char linkfile[MAXPATHLEN];
+    char sendfile[MAXPATHLEN];
+    char feedfile[MAXPATHLEN];
+    char feedingfile[MAXPATHLEN];
+    char protocol[MAXBUFLEN], port[MAXBUFLEN];
+
+    node = NODELIST + nlcount;
+    site = node->node;
+    nntphost = node->host;
+    op = node->protocol;
+
+    if (DefaultFeedSite && *DefaultFeedSite)
+    {
+      if (strcmp(node->node, DefaultFeedSite) != 0)
+        continue;
+    }
+
+    if (op && (strncasecmp(op, "ihave", 5) == 0 ||
+        strncasecmp(op, "post", 4) == 0 ||
+        strncasecmp(op, "data", 4) == 0))
+    {
+      char *left, *right;
+
+      left = strchr(op, '('), right = strrchr(op, ')');
+      if (left && right)
+      {
+        *left = '\0';
+        *right = '\0';
+        strncpy(protocol, op, sizeof protocol);
+        strncpy(port, left + 1, sizeof port);
+        *left = '(';
+        *right = ')';
+      }
+      else
+      {
+        strncpy(protocol, op, sizeof protocol);
+        strncpy(port, "nntp", sizeof port);
+      }
+    }
+    else
+    {
+      strcpy(protocol, "IHAVE");
+      strcpy(port, "nntp");
+    }
+    sprintf(linkfile, "%s.link", site);
+    sprintf(sendfile, "%s.sending", site);
+    sprintf(feedfile, "%s.feed", site);
+    sprintf(feedingfile, "%s.feeding", site);
+    if (isfile(sendfile) && !iszerofile(sendfile))
+    {
+      if (bbslink_get_lock(sendfile))
+      {
+        send_nntplink(node, site, nntphost, protocol, port, sendfile, nlcount);
+        bbslink_un_lock(sendfile);
+      }
+    }
+    if (isfile(linkfile) && !iszerofile(linkfile))
+    {
+      if (!NoAction)
+      {
+        if (bbslink_get_lock(sendfile) && bbslink_get_lock(linkfile) &&
+          bbslink_get_lock(feedingfile))
+        {
+          if (isfile(sendfile) && !iszerofile(sendfile))
+          {
+            save_nntplink(node, sendfile);
+          }
+          if (node->feedfp)
+          {
+            fclose(node->feedfp);
+            node->feedfp = NULL;
+          }
+          Rename(linkfile, sendfile);
+          send_nntplink(node, site, nntphost, protocol, port, sendfile, nlcount);
+          bbslink_un_lock(linkfile);
+          bbslink_un_lock(sendfile);
+          bbslink_un_lock(feedingfile);
+        }
+      }
+      else
+      {
+        send_nntplink(node, site, nntphost, protocol, port, linkfile, nlcount);
+      }
+    }
+    if (isfile(feedingfile) && !iszerofile(feedingfile))
+    {
+      if (bbslink_get_lock(feedingfile))
+      {
+        send_nntplink(node, site, nntphost, protocol, port, feedingfile, nlcount);
+        bbslink_un_lock(feedingfile);
+      }
+    }
+    if (isfile(feedfile) && !iszerofile(feedfile))
+    {
+      if (!NoAction)
+      {
+        if (bbslink_get_lock(feedfile) && bbslink_get_lock(feedingfile))
+        {
+          if (isfile(feedingfile) && !iszerofile(feedingfile))
+          {
+            save_nntplink(node, feedingfile);
+            if (node->feedfp)
+            {
+              fclose(node->feedfp);
+              node->feedfp = NULL;
+            }
+          }
+          Rename(feedfile, feedingfile);
+          system(fileglue("%s/ctlinnbbsd reload > /dev/null", INNDHOME));
+          send_nntplink(node, site, nntphost, protocol, port, feedingfile, nlcount);
+          bbslink_un_lock(feedfile);
+          bbslink_un_lock(feedingfile);
+        }
+      }
+      else
+      {
+        send_nntplink(node, site, nntphost, protocol, port, feedfile, nlcount);
+      }
+    }
+  }
+}
+
+/* bntplink() bbspost() process_article() process_cancel() send_article() */
+
+
+show_usage(argv)
+  char *argv;
+{
+  fprintf(stderr, "%s initialization failed or improper options !!\n", argv);
+  fprintf(stderr, "Usage: %s [options] bbs_home\n", argv);
+  fprintf(stderr, "       -v (show transmission status)\n");
+  fprintf(stderr, "       -n (dont send out articles and leave queue untouched)\n");
+  fprintf(stderr, "       -s site (only process articles sent to site)\n");
+  fprintf(stderr, "       -V (visit only: bbspost visit)\n");
+  fprintf(stderr, "       -N (no visit, and only process batch queue)\n");
+  fprintf(stderr, "       -k (kill the former bbslink process before started)\n\n");
+  fprintf(stderr, "本程式要正常執行必須將以下檔案置於 %s/innd 下:\n", BBSHOME);
+  fprintf(stderr, "bbsname.bbs   設定貴站的 BBS ID (請儘量簡短)\n");
+  fprintf(stderr, "nodelist.bbs  設定網路各 BBS 站的 ID, Address 和 fullname\n");
+  fprintf(stderr, "newsfeeds.bbs 設定網路信件的 newsgroup board nodelist ...\n");
+}
+
+
+bntplink(argc, argv)
+  int argc;
+  char **argv;
+{
+  static char *OUTING = ".outing";
+  nodelist_t *nl;
+  int linkport;
+  char result[4096];
+  char cancelfile[MAXPATHLEN], cancelpost[MAXPATHLEN];
+  char bbslink_lockfile[MAXPATHLEN];
+  FILE *NEWPOST;
+  char *left, *right;
+  int nlcount;
+
+//  strcpy(BBSHOME, argv[0]);
+  if (initial_bbs("link") == 0)
+  {
+    return -1;
+  }
+
+  BBSLINK_STAT = (stat_t *) malloc(sizeof(stat_t) * (NLCOUNT + 1));
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    BBSLINK_STAT[nlcount].localsendout = 0;
+    BBSLINK_STAT[nlcount].remotesendout = 0;
+    BBSLINK_STAT[nlcount].localfailed = 0;
+    BBSLINK_STAT[nlcount].remotefailed = 0;
+  }
+
+  nl = (nodelist_t *) search_nodelist_bynode(MYBBSID);
+  if (nl == NULL)
+  {
+    *MYADDR = '\0';
+    *MYSITE = '\0';
+    *LINKPROTOCOL = '\0';
+  }
+  else
+  {
+    strncpy(MYADDR, nl->host, sizeof MYADDR);
+    strncpy(LINKPROTOCOL, nl->protocol, sizeof LINKPROTOCOL);
+    strncpy(MYSITE, nl->comments, sizeof MYSITE);
+  }
+  if (Verbose)
+  {
+    printf("MYADDR: %s\n", MYADDR);
+    printf("MYSITE: %s\n", MYSITE);
+  }
+  left = strchr(nl->protocol, '(');
+  right = strrchr(nl->protocol, ')');
+  if (left && right)
+  {
+    *right = '\0';
+    strncpy(LINKPROTOCOL, nl->protocol, sizeof LINKPROTOCOL);
+    LINKPORT = atoi(left + 1);
+    *right = ')';
+  }
+
+  if (!NoVisit)
+  {
+    sprintf(bbslink_lockfile, "%s/.bbslink.visit", INNDHOME);
+    if (!Rename(fileglue("%s/out.bntp", INNDHOME), OUTING) && bbslink_get_lock(bbslink_lockfile))
+    {
+      /* When try to visit new post, try to lock it */
+      NEWPOST = fopen(OUTING, "r");
+      if (NEWPOST == NULL)
+      {
+        bbslog("<bbslink> Err: can't open %s\n", OUTING);
+        bbslink_un_lock(bbslink_lockfile);
+        return -1;
+      }
+      while (fgets(result, sizeof result, NEWPOST))
+      {
+        /* chop( $_ ); */
+        char *board, *filename, *userid, *nickname, *subject;
+        char *ptr;
+
+        ptr = strchr(result, '\n');
+        if (ptr)
+          *ptr = '\0';
+
+        board = filename = userid = nickname = subject = NULL;
+        /* board field */
+        board = result;
+        ptr = strchr(result, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* filename field */
+        filename = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* userid field */
+        userid = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* nickname field */
+        nickname = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* subject field */
+        subject = ptr;
+        /* ptr = strchr(ptr, '\t'); if (ptr == NULL) continue; ptr++ = '\0'; */
+
+       if(bad_subject(subject)) continue;
+
+       if(outgo_post < MAX_OUTGO_POST){
+         out_bntp[outgo_post].board = board;
+         out_bntp[outgo_post].filename = filename;
+         out_bntp[outgo_post].userid = userid;
+         out_bntp[outgo_post].nickname = nickname;
+         out_bntp[outgo_post].subject = subject;
+         outgo_post++;
+         }
+
+        process_article(board, filename, userid, nickname, subject);
+      }
+      fclose(NEWPOST);
+      unlink(OUTING);
+      bbslink_un_lock(bbslink_lockfile);
+    }                           /* getlock */
+  }                             /* if NoVisit is false */
+
+  sprintf(cancelpost, "%s/cancel.bntp", INNDHOME);
+  if (isfile(cancelpost))
+  {
+    FILE *CANCELFILE;
+
+    if (bbslink_get_lock(cancelpost) && bbslink_get_lock(cancelfile))
+    {
+      sprintf(cancelfile, "%s.%d", cancelpost, getpid());
+      Rename(cancelpost, cancelfile);
+      CANCELFILE = fopen(cancelfile, "r");
+      while (fgets(result, sizeof result, CANCELFILE) != NULL)
+      {
+        /* chop( $_ ); */
+        char *board, *filename, *userid, *nickname, *subject;
+        char *ptr, **sptr;
+
+        ptr = strchr(result, '\n');
+        if (ptr)
+          *ptr = '\0';
+        board = filename = userid = nickname = subject = NULL;
+
+        /* board field */
+        board = result;
+        ptr = strchr(result, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* filename field */
+        filename = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* userid field */
+        userid = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* nickname field */
+        nickname = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* subject field */
+        subject = ptr;
+        /* ptr = strchr(ptr, '\t'); if (ptr == NULL) continue; ptr++ = '\0'; */
+       if(!is_outgo_post(board, filename, userid, nickname, subject))
+         process_cancel(board, filename, userid, nickname, subject);
+      }
+      fclose(CANCELFILE);
+      if (Verbose)
+        printf("Unlinking %s\n", cancelfile);
+      if (!NoAction)
+        unlink(cancelfile);
+      bbslink_un_lock(cancelfile);
+      bbslink_un_lock(cancelpost);
+    }
+  }
+
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    if (NODELIST[nlcount].feedfp != NULL)
+    {
+      fclose(NODELIST[nlcount].feedfp);
+      NODELIST[nlcount].feedfp = NULL;
+    }
+  }
+
+  send_article();
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    int localsendout, remotesendout, localfailed, remotefailed;
+
+    localsendout = BBSLINK_STAT[nlcount].localsendout;
+    remotesendout = BBSLINK_STAT[nlcount].remotesendout;
+    localfailed = BBSLINK_STAT[nlcount].localfailed;
+    remotefailed = BBSLINK_STAT[nlcount].remotefailed;
+    if (localsendout || remotesendout || localfailed || remotefailed)
+      bbslog("<bbslink> [%s]%s lsend:%d rsend:%d lfail:%d rfail:%d\n",
+        NODELIST[nlcount].node, NoAction ? "NoAction" : "", localsendout, remotesendout,
+        localfailed, remotefailed);
+    if (NODELIST[nlcount].feedfp != NULL)
+    {
+      fclose(NODELIST[nlcount].feedfp);
+      NODELIST[nlcount].feedfp = NULL;
+    }
+  }
+  if (BBSLINK_STAT);
+  free(BBSLINK_STAT);
+  return 0;
+}
+/*
+termbbslink(sig)
+  int sig;
+{
+  bbslog("kill signal received %d, terminated\n", sig);
+  if (Verbose)
+    printf("kill signal received %d, terminated\n", sig);
+  exit(0);
+}
+*/
+void
+termbbslink()
+{
+  bbslog("kill signal received ??, terminated\n");
+  if (Verbose)
+    printf("kill signal received ??, terminated\n");
+  exit(0);
+}
+
+char *REMOTEUSERNAME = "";
+char *REMOTEHOSTNAME = "";
+
+extern char *optarg;
+extern int opterr, optind;
+
+main(argc, argv)
+  int argc;
+  char **argv;
+{
+  int c, errflag = 0;
+
+  CONTROL = CONTROL_BUF;
+  MSGID = MSGID_BUF;
+
+  /* For debug Only */
+#define DEBUGBBSLINK
+
+#ifdef DEBUGBBSLINK
+  NoAction = 0;
+  Verbose = 0;
+  VisitOnly = 0;
+  NoVisit = 0;
+  DefaultFeedSite = "";
+#endif
+
+  while ((c = getopt(argc, argv, "s:hnvVNk")) != -1)
+    switch (c)
+    {
+    case 's':
+      DefaultFeedSite = optarg;
+      break;
+    case 'n':
+      NoAction = 1;
+      break;
+    case 'v':
+      Verbose = 1;
+      break;
+    case 'V':
+      VisitOnly = 1;
+      break;
+    case 'N':
+      NoVisit = 1;
+      break;
+    case 'k':
+      KillFormerBBSLINK = 1;
+      break;
+    case 'h':
+    default:
+      errflag++;
+      break;
+    }
+  if (errflag > 0)
+  {
+    show_usage(argv[0]);
+    return (1);
+  }
+  if (argc - optind < 1)
+  {
+    show_usage(argv[0]);
+    exit(1);
+  }
+  signal(SIGTERM, termbbslink);
+  if (bntplink(argc - optind, argv + optind) != 0)
+  {
+    show_usage(argv[0]);
+    exit(1);
+  }
+  return 0;
+}
diff --git a/pttbbs/innbbsd/bbslink2.c b/pttbbs/innbbsd/bbslink2.c
new file mode 100644
index 00000000..7a6834b3
--- /dev/null
+++ b/pttbbs/innbbsd/bbslink2.c
@@ -0,0 +1,2016 @@
+#if defined( LINUX )
+# include "innbbsconf.h"
+# include "bbslib.h"
+# include <varargs.h>
+#else
+# include <varargs.h>
+# include "innbbsconf.h"
+# include "bbslib.h"
+#endif
+
+#include <sys/mman.h>
+
+#ifndef AIX
+#  include <sys/fcntl.h>
+#endif
+
+#if defined(PalmBBS)
+#include <utime.h>
+#endif
+
+
+#include "daemon.h"
+#include "nntp.h"
+#include "externs.h"
+
+/*
+ * TODO 1. read newsfeeds.bbs, read nodelist.bbs, read bbsname.bbs 2. scan
+ * new posts and append to .link 3. rename .link to .send (must lock) 4.
+ * start to send .send out and append not sent to .link
+ *
+ * 5. node.LOCK (with pid) 6. log articles sent
+ */
+
+
+#ifndef MAXBUFLEN
+#define MAXBUFLEN 256
+#endif
+
+typedef struct Over_t
+{
+  time_t mtime;
+  char date[MAXBUFLEN];
+  char nickname[MAXBUFLEN];
+  char subject[MAXBUFLEN];
+  char from[MAXBUFLEN];
+  char msgid[MAXBUFLEN];
+  char site[MAXBUFLEN];
+  char board[MAXBUFLEN];
+}      linkoverview_t;
+
+typedef struct SendOver_t
+{
+  char *board, *filename, *group, *from, *subject;
+  char *outgoingtype, *msgid, *path;
+  char *date, *control;
+  time_t mtime;
+}          soverview_t;
+
+typedef struct Stat_t
+{
+  int localsendout;
+  int localfailed;
+  int remotesendout;
+  int remotefailed;
+}      stat_t;
+
+static stat_t *BBSLINK_STAT;
+
+static int NoAction = 0;
+static int Verbose = 0;
+static int VisitOnly = 0;
+static int NoVisit = 0;
+static char *DefaultFeedSite = "";
+static int KillFormerBBSLINK = 0;
+
+extern char *SITE;
+extern char *GROUPS;
+
+char NICKNAME[MAXBUFLEN];
+
+char DATE_BUF[MAXBUFLEN];
+extern char *DATE;
+
+char FROM_BUF[MAXBUFLEN];
+extern char *FROM;
+
+#ifndef MapleBBS
+char POSTER_BUF[MAXBUFLEN];
+char *POSTER;
+#endif
+
+char MYADDR[MAXBUFLEN];
+char MYSITE[MAXBUFLEN];
+
+char SUBJECT_BUF[MAXBUFLEN];
+extern char *SUBJECT;
+
+char MSGID_BUF[MAXBUFLEN];
+extern char *MSGID;
+
+char LINKPROTOCOL[MAXBUFLEN];
+int LINKPORT;
+char ORGANIZATION[MAXBUFLEN];
+char NEWSCONTROL[MAXBUFLEN];
+char NEWSAPPROVED[MAXBUFLEN];
+char NNTPHOST_BUF[MAXBUFLEN];
+extern char *NNTPHOST;
+char PATH_BUF[MAXBUFLEN];
+extern char *PATH;
+
+char CONTROL_BUF[MAXBUFLEN];
+extern char *CONTROL;
+
+char *BODY, *HEAD;
+
+int USEIHAVE = 1;
+int USEPOST = 0;
+int USEDATA = 0;
+int FEEDTYPE = ' ';
+
+int NNTP = -1;
+FILE *NNTPrfp = NULL;
+FILE *NNTPwfp = NULL;
+char NNTPbuffer[1024];
+static char *NEWSFEED;
+static char *REMOTE = "REMOTE";
+static char *LOCAL = "LOCAL";
+
+static int FD, FD_SIZE;
+static char *FD_BUF;
+static char *FD_END;
+
+static char *COMMENT =
+"[Ptt 送出]\n";
+
+char *fileglue();
+
+/*
+woju
+Cross-fs rename()
+*/
+
+Rename(char* src, char* dst)
+{
+   char cmd[200];
+
+   if (rename(src, dst) == 0)
+      return 0;
+
+   sprintf(cmd, "/bin/mv %s %s", src, dst);
+   return system(cmd);
+
+}
+
+
+bbslink_un_lock(file)
+  char *file;
+{
+  char *lockfile = fileglue("%s.LOCK", file);
+
+  if (isfile(lockfile))
+    unlink(lockfile);
+}
+
+bbslink_get_lock(file)
+  char *file;
+{
+  int lockfd;
+  char LockFile[MAXPATHLEN];
+
+  strncpy(LockFile, (char *) fileglue("%s.LOCK", file), sizeof LockFile);
+  if ((lockfd = open(LockFile, O_RDONLY)) >= 0)
+  {
+    char buf[10];
+    int pid;
+
+    if (read(lockfd, buf, sizeof buf) > 0 &&
+      (pid = atoi(buf)) > 0 && kill(pid, 0) == 0)
+    {
+      if (KillFormerBBSLINK)
+      {
+        kill(pid, SIGTERM);
+        unlink(LockFile);
+      }
+      else
+      {
+        fprintf(stderr, "another process [%d] running\n", pid);
+        return 0;
+      }
+    }
+    else
+    {
+      fprintf(stderr, "no process [%d] running, but lock file existed, unlinked\n", pid);
+      unlink(LockFile);
+    }
+    close(lockfd);
+  }
+
+  if ((lockfd = open(LockFile, O_RDWR | O_CREAT | O_EXCL, 0644)) < 0)
+  {
+    fprintf(stderr, "lock %s error: another bbslink process running\n", LockFile);
+    return 0;
+  }
+  else
+  {
+    char buf[10];
+    int pid;
+
+    sprintf(buf, "%-.8d\n", getpid());
+    write(lockfd, buf, strlen(buf));
+    close(lockfd);
+    return 1;
+  }
+}
+
+
+int
+tcpcommand(va_alist)
+va_dcl
+{
+  va_list ap;
+  register char *fmt;
+  char *ptr;
+
+  va_start(ap);
+  vfprintf(NNTPwfp, fmt, ap);
+  fprintf(NNTPwfp, "\r\n");
+  fflush(NNTPwfp);
+
+  fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+  ptr = strchr(NNTPbuffer, '\r');
+  if (ptr)
+    *ptr = '\0';
+  ptr = strchr(NNTPbuffer, '\n');
+  if (ptr)
+    *ptr = '\0';
+  va_end(ap);
+  return atoi(NNTPbuffer);
+}
+
+char *
+tcpmessage()
+{
+  char *ptr;
+
+  ptr = strchr(NNTPbuffer, ' ');
+  if (ptr)
+    return ptr;
+  return NNTPbuffer;
+}
+
+read_article(lover, filename, userid)
+  linkoverview_t *lover;
+  char *filename, *userid;
+{
+  FILE *fp;
+  int fd;
+  struct stat st;
+  time_t mtime;
+  char *buffer;
+  char *artptr, *artend, *artback;
+
+  if (stat(filename, &st) != 0)
+    return 0;
+  lover->mtime = st.st_mtime;
+  fd = open(filename, O_RDONLY);
+  if (fd < 0)
+  {
+    bbslog("<bbslink> Err: can't open %s\n", filename);
+    return 0;
+  }
+
+  if (FD_BUF == NULL)
+  {
+    FD_BUF = mymalloc(st.st_size + 1 + strlen(COMMENT));
+  }
+  else
+  {
+    FD_BUF = myrealloc(FD_BUF, st.st_size + 1 + strlen(COMMENT));
+  }
+  FD_BUF[st.st_size] = '\0';
+  read(fd, FD_BUF, st.st_size);
+  sprintf(FD_BUF + st.st_size, "%s", COMMENT);
+  st.st_size += strlen(COMMENT);
+  FD_SIZE = st.st_size;
+  for (buffer = FD_BUF, artend = FD_BUF + st.st_size,
+    artback = strchr(buffer, '\n');
+    buffer && buffer < artend && *buffer;
+    artback = strchr(buffer, '\n')
+    )
+  {
+    /* while( fgets(buffer, sizeof buffer, fp) != NULL) { */
+    char *m, *n;
+    char *ptr;
+
+    if (artback != NULL)
+      *artback = '\0';
+    if (*buffer == '\0')
+      break;
+
+#ifndef MapleBBS
+    if (strstr(buffer, userid) != NULL)
+    {
+      m = strchr(buffer, '(');
+      n = strrchr(buffer, ')');
+      if (m != NULL && n != NULL)
+      {
+        strncpy(lover->nickname, m + 1, n - m - 1);
+        lover->nickname[n - m - 1] = '\0';
+      }
+      else
+      {
+        *lover->nickname = '\0';
+      }
+    }
+    else if (strncmp(buffer, "Date:      ", 11) == 0)
+    {
+      strcpy(lover->date, buffer + 11);
+    }
+    else if (strncmp(buffer, "發信站: ", 8) == 0)
+    {
+      m = strchr(buffer, '(');
+      n = strrchr(buffer, ')');
+      strncpy(lover->date, m + 1, n - m - 1);
+      lover->date[n - m - 1] = '\0';
+    }
+#endif
+
+    if (artback != NULL)
+    {
+      *artback = '\n';
+      buffer = artback + 1;
+    }
+    else
+    {
+      break;
+    }
+  }
+  if (artback != NULL)
+    BODY = artback + 1;
+  else
+    BODY = "";
+  close(fd);
+  return 1;
+}
+
+save_outgoing(sover, filename, userid, poster, mtime)
+  soverview_t *sover, *filename, *userid, *poster;
+  time_t mtime;
+{
+  newsfeeds_t *nf;
+  char *group, *server, *serveraddr;
+  char *subject, *path;
+  char *board;
+  char *ptr1, *ptr2;
+
+  board = sover->board;
+
+  PATH = MYBBSID;
+  nf = (newsfeeds_t *) search_board(board);
+  if (nf == NULL)
+  {
+    bbslog("<bbslink> save_outgoing: No such board %s\n", board);
+    return;
+  }
+  else
+  {
+    group = nf->newsgroups;
+    server = nf->path;
+  }
+  if (!server || !*server)
+  {
+    sprintf(PATH_BUF, "%.*s (local)", sizeof PATH_BUF - 9, MYBBSID);
+    PATH = PATH_BUF;
+    serveraddr = "";
+    sover->path = PATH;
+  }
+  for (ptr1 = server; ptr1 && *ptr1;)
+  {
+    nodelist_t *nl;
+    char savech;
+
+    for (; *ptr1 && isspace(*ptr1); ptr1++);
+    if (!*ptr1)
+      break;
+    for (ptr2 = ptr1; *ptr2 && !isspace(*ptr2); ptr2++);
+    savech = *ptr2;
+    *ptr2 = '\0';
+    nl = (nodelist_t *) search_nodelist_bynode(ptr1);
+    *ptr2 = savech;
+    ptr1 = ptr2++;
+    if (nl == NULL)
+      continue;
+    /* if (nl->feedfp == NULL) continue; */
+
+    if (nl->host && *nl->host)
+    {
+      if (nl->feedfp == NULL)
+      {
+        nl->feedfp = fopen(fileglue("%s/%s.link", INNDHOME, nl->node), "a");
+        if (nl->feedfp == NULL)
+        {
+          bbslog("<save outgoing> append failed for %s/%s.link", INNDHOME, nl->node);
+        }
+      }
+      if (nl->feedfp != NULL)
+      {
+        flock(fileno(nl->feedfp), LOCK_EX);
+        fprintf(nl->feedfp, "%s\t%s\t%s\t%ld\t%s\t%s\n", sover->board, filename, group, mtime, FROM, sover->subject);
+        fflush(nl->feedfp);
+        flock(fileno(nl->feedfp), LOCK_UN);
+      }
+    }
+    if (savech == '\0')
+      break;
+  }
+}
+
+
+#ifndef MapleBBS
+save_article(board, filename, sover)
+  char *board, *filename;
+  soverview_t *sover;
+{
+  FILE *FN;
+
+  if (Verbose)
+    printf("<save_article> %s %s\n", board, filename);
+  FN = fopen(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), "w");
+  if (FN == NULL)
+  {
+    bbslog("<save_article> err: %s %s\n", board, filename);
+    if (Verbose)
+      printf("<save_article> err: %s %s\n", board, filename);
+    return 0;
+  }
+  flock(fileno(FN), LOCK_EX);
+  fprintf(FN, "發信人: %s, 信區: %s\n", POSTER, sover->board);
+  fprintf(FN, "標  題: %s\n", sover->subject);
+  fprintf(FN, "發信站: %s (%s)\n", MYSITE, sover->date);
+  fprintf(FN, "轉信站: %s\n", sover->path);
+  fprintf(FN, "\n");
+  fputs(BODY, FN);
+  flock(fileno(FN), LOCK_UN);
+  fclose(FN);
+
+#if defined(PalmBBS)
+  {
+    struct utimbuf times;
+
+    times.actime = sover->mtime;
+    times.modtime = sover->mtime;
+    utime(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), &times);
+    utime(fileglue("%s/.bcache/%s", BBSHOME, board), NULL);
+  }
+#endif
+}
+#endif
+
+/* process_article() read_article() save_outgoing() save_article() */
+
+process_article(board, filename, userid, nickname, subject)
+  char *board, *filename, *userid, *nickname, *subject;
+{
+  char *n, *filepath;
+  char poster[MAXBUFLEN];
+  soverview_t sover;
+
+  if (!*userid)
+  {
+    return;
+  }
+  else if (!subject || !*subject)
+  {
+    subject = "無題";
+  }
+  filepath = fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename);
+  if (isfile(filepath))
+  {
+    linkoverview_t lover;
+
+    if (read_article(&lover, filepath, userid))
+    {
+
+#ifndef MapleBBS
+      strncpy(POSTER_BUF, fileglue("%s@%s (%s)", userid, MYBBSID, nickname), sizeof POSTER_BUF);
+      POSTER = POSTER_BUF;
+#endif
+
+      strncpy(FROM_BUF, fileglue("%s.bbs@%s (%s)", userid, MYADDR, nickname), sizeof FROM_BUF);
+      FROM = FROM_BUF;
+      sover.from = FROM;
+      sover.board = board;
+      sover.subject = subject;
+      PATH = MYBBSID;
+      sover.path = MYBBSID;
+      sover.date = lover.date;
+      sover.mtime = lover.mtime;
+      if (!VisitOnly)
+      {
+        save_outgoing(&sover, filename, userid, poster, lover.mtime);
+
+#ifndef MapleBBS
+        save_article(board, filename, &sover);
+#endif
+      }
+    }
+  }
+}
+
+
+char *
+baseN(val, base, len)
+  int val, base, len;
+{
+  int n, ans;
+  static char str[MAXBUFLEN];
+  char *pstr = str;
+  int index;
+
+  for (index = len - 1; index >= 0; index--)
+  {
+    n = val % base;
+    val /= base;
+    if (n < 10)
+    {
+      n += '0';
+    }
+    else if (n < 36)
+    {
+      n += 'A' - 10;
+    }
+    else if (n < 62)
+    {
+      n += 'a' - 36;
+    }
+    else
+    {
+      n = '_';
+    }
+    str[index] = n;
+  }
+  str[len] = '\0';
+  return str;
+}
+
+char *
+hash_value(str)
+  char *str;
+{
+  int val, n;
+  char *ptr;
+
+  if (*str)
+    ptr = str + strlen(str) - 1;
+  else
+    ptr = str;
+  val = 0;
+  while (ptr >= str)
+  {
+    n = *ptr;
+    val = (val + n * 0x100) ^ n;
+    ptr--;
+  }
+  return baseN(val, 64, 3);
+}
+
+/* process_cancel() save_outgoing() hash_value(); baseN(); ascii_date(); */
+
+
+read_outgoing(sover)
+  soverview_t *sover;
+{
+  char *board, *filename, *group, *from, *subject, *outgoingtype, *msgid, *path;
+  char *buffer, *bufferp;
+  FILE *ECHOMAIL, *FN;
+  char *hash;
+  char times[MAXBUFLEN];
+  time_t mtime;
+
+  board = sover->board;
+  filename = sover->filename;
+  group = sover->group;
+  mtime = sover->mtime;
+  from = sover->from;
+  subject = sover->subject;
+  outgoingtype = sover->outgoingtype;
+  msgid = sover->msgid;
+  path = sover->path;
+  if (Verbose)
+  {
+    printf("<read_outgoing> %s:%s:%s\n", board, filename, group);
+    printf("  => %ld:%s\n", mtime, from);
+    printf("  => %s\n", subject);
+    printf("  => %s:%s\n", outgoingtype, msgid);
+    printf("  => %s\n", path);
+  }
+  if (NEWSFEED == LOCAL)
+  {
+    char *end = strrchr(filename, '.');
+
+    if (end)
+      *end = '\0';
+    strncpy(times, baseN(atol(filename + 2), 48, 6), sizeof times);
+    if (end)
+      *end = '.';
+    hash = hash_value(fileglue("%s.%s", filename, board));
+    sprintf(MSGID_BUF, "%s$%s@%s", times, hash, MYADDR);
+  }
+  else
+  {
+    strncpy(MSGID_BUF, msgid, sizeof MSGID_BUF);
+  }
+  sover->msgid = MSGID;
+  if (mtime == -1)
+  {
+    static char BODY_BUF[MAXBUFLEN];
+
+    strncpy(BODY_BUF, fileglue("%s\r\n", subject), sizeof BODY_BUF);
+    BODY = BODY_BUF;
+    sprintf(SUBJECT_BUF, "cmsg cancel <%s>", MSGID);
+    SUBJECT = SUBJECT_BUF;
+    sprintf(CONTROL_BUF, "cancel <%s>", MSGID);
+    CONTROL = CONTROL_BUF;
+    strncpy(MSGID_BUF, fileglue("%d.%s", getpid(), MSGID_BUF), sizeof MSGID_BUF);
+    sprintf(DATE_BUF, "%s", ascii_date(time(NULL)));
+    DATE = DATE_BUF;
+    sover->subject = SUBJECT;
+    sover->control = CONTROL;
+    sover->msgid = MSGID;
+    sover->date = DATE;
+  }
+  else
+  {
+    sover->control = CONTROL;
+    sover->date = DATE_BUF;
+    DATE = DATE_BUF;
+    *CONTROL = '\0';
+    sprintf(DATE, "%s", ascii_date((mtime)));
+    if (NEWSFEED == LOCAL && !NoAction)
+    {
+      SITE = MYSITE;
+      PATH = MYBBSID;
+      GROUPS = group;
+
+#ifndef MapleBBS
+      echomaillog();
+#endif
+    }
+    BODY = "";
+    FD = open(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), O_RDONLY);
+    if (FD < 0)
+    {
+      if (Verbose)
+        printf(" !! can't open %s/boards/%c/%s/%s\n", BBSHOME, board[0], board, filename);
+      else
+        fprintf(stderr, "can't open %s/boards/%c/%s/%s\n", BBSHOME, board[0], board, filename);
+      return -1;
+    }
+
+    FD_SIZE = filesize(fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename));
+    if (FD_BUF == NULL)
+    {
+      FD_BUF = (char *) mymalloc(FD_SIZE + 1 + strlen(COMMENT));
+    }
+    else
+    {
+      FD_BUF = (char *) myrealloc(FD_BUF, FD_SIZE + 1 + strlen(COMMENT));
+    }
+    FD_END = FD_BUF + FD_SIZE;
+    *FD_END = '\0';
+    read(FD, FD_BUF, FD_SIZE);
+    sprintf(FD_END, "%s", COMMENT);
+    FD_SIZE += strlen(COMMENT);
+    FD_END += strlen(COMMENT);
+    if (Verbose)
+    {
+	printf("<read in> %s/boards/%c/%s/%s\n", BBSHOME, board[0], board, filename);
+    }
+
+    *ORGANIZATION = '\0';
+    *NEWSCONTROL = '\0';
+    *NEWSAPPROVED = '\0';
+    *NNTPHOST_BUF = '\0';
+    NNTPHOST = NULL;
+
+    for (buffer = FD_BUF, bufferp = strchr(buffer, '\n');
+      buffer && *buffer; bufferp = strchr(buffer, '\n'))
+    {
+      if (bufferp)
+        *bufferp = '\0';
+      if (*buffer == '\0')
+      {
+        break;
+      }
+      /* printf("get buffer %s\n", buffer); */
+      if (NEWSFEED == REMOTE)
+      {
+        if (strncmp(buffer, "Date:      ", 11) == 0)
+        {
+          strcpy(DATE_BUF, buffer + 11);
+          DATE = DATE_BUF;
+        }
+        else if (strncmp(buffer, "發信站: ", 8) == 0)
+        {
+          char *m, *n;
+
+          m = strchr(buffer, '(');
+          n = strrchr(buffer, ')');
+          if (m && n)
+          {
+            strncpy(DATE_BUF, m + 1, n - m - 1);
+            DATE_BUF[n - m - 1] = '\0';
+            DATE = DATE_BUF;
+            strncpy(ORGANIZATION, buffer + 8, m - 8 - buffer - 1);
+            ORGANIZATION[m - 8 - buffer - 1] = '\0';
+          }
+        }
+        else if (strncmp(buffer, "Control: ", 9) == 0)
+        {
+          strcpy(NEWSCONTROL, buffer + 9);
+        }
+        else if (strncmp(buffer, "Approved: ", 10) == 0)
+        {
+          strcpy(NEWSAPPROVED, buffer + 10);
+        }
+        else if (strncmp(buffer, "Origin: ", 8) == 0)
+        {
+          strcpy(NNTPHOST_BUF, buffer + 8);
+          NNTPHOST = NNTPHOST_BUF;
+        }
+      }
+      if (bufferp)
+      {
+        *bufferp = '\n';
+        buffer = bufferp + 1;
+      }
+      else
+      {
+        break;
+      }
+    }
+    if (bufferp)
+    {
+      BODY = bufferp + 1;
+    }
+    else
+      BODY = "";
+    if (bufferp)
+      for (buffer = bufferp + 1, bufferp = strchr(buffer, '\n');
+        buffer && *buffer; bufferp = strchr(buffer, '\n'))
+      {
+        if (bufferp)
+          *bufferp = '\0';
+        /* printf("get line (%s)\n", buffer); */
+        /* if( strcmp(buffer,".")==0 ) { buffer[1]='.'; buffer[2]='\0'; } */
+        if (NEWSFEED == REMOTE &&
+          strncmp(NEWSCONTROL, "cancel", 5) == 0 &&
+          strncmp(buffer, "------------------", 18) == 0)
+        {
+          break;
+        }
+        /* $BODY[ @BODY ] = "$_\r\n"; */
+        if (bufferp)
+        {
+          *bufferp = '\n';
+          buffer = bufferp + 1;
+        }
+        else
+        {
+          break;
+        }
+      }
+    /* #       fprintf("BODY @BODY\n"; */
+    close(FD);
+  }
+  return 0;
+}
+
+#ifdef TEST
+#endif
+
+openfeed(node)
+  nodelist_t *node;
+{
+  if (node->feedfp == NULL)
+  {
+    node->feedfp = fopen(fileglue("%s/%s.link", INNDHOME, node->node), "a");
+  }
+}
+
+queuefeed(node, textline)
+  nodelist_t *node;
+  char *textline;
+{
+  openfeed(node);
+  if (node->feedfp != NULL)
+  {
+    flock(fileno(node->feedfp), LOCK_EX);
+    fprintf(node->feedfp, "%s", textline);
+    fflush(node->feedfp);
+    flock(fileno(node->feedfp), LOCK_UN);
+  }
+}
+
+post_article(node, site, sover, textline)
+  nodelist_t *node;
+  char *site;
+  soverview_t *sover;
+  char *textline;
+{
+  int status;
+  char *filename = sover->filename;
+  char *msgid = sover->msgid;
+  char *board = sover->board;
+  char *bodyp, *body;
+
+  if (Verbose)
+    fprintf(stdout, "<post_article> %s %s %s\n", site, filename, msgid);
+  if (NoAction && Verbose)
+  {
+    printf("  ==>%s\n", sover->path);
+    printf("  ==>%s:%s\n", sover->from, sover->group);
+    printf("  ==>%s:%s\n", sover->subject, sover->date);
+    body = BODY;
+    bodyp = strchr(body, '\n');
+    if (bodyp)
+      *bodyp = '\0';
+    printf("  ==>%s\n", body);
+    if (bodyp)
+      *bodyp = '\n';
+    if (bodyp)
+    {
+      body = bodyp + 1;
+      bodyp = strchr(body, '\n');
+      if (bodyp)
+        *bodyp = '\0';
+      printf("  ==>%s\n", body);
+      if (bodyp)
+        *bodyp = '\n';
+    }
+  }
+  if (NoAction)
+    return 1;
+  if (NEWSFEED == REMOTE)
+  {
+    fprintf(NNTPwfp, "Path: %s\r\n", sover->path);
+    fprintf(NNTPwfp, "From: %s\r\n", sover->from);
+    fprintf(NNTPwfp, "Newsgroups: %s\r\n", sover->group);
+    fprintf(NNTPwfp, "Subject: %s\r\n", sover->subject);
+    /* #       fprintf( NNTPwfp,"Post with subject ($subject)\n"); */
+    fprintf(NNTPwfp, "Date: %s\r\n", sover->date);
+    if (*ORGANIZATION)
+      fprintf(NNTPwfp, "Organization: %s\r\n", ORGANIZATION);
+    fprintf(NNTPwfp, "Message-ID: <%s>\r\n", sover->msgid);
+    if (*NEWSCONTROL)
+      fprintf(NNTPwfp, "Control: %s\r\n", NEWSCONTROL);
+    if (*NEWSAPPROVED)
+      fprintf(NNTPwfp, "Approved: %s\r\n", NEWSAPPROVED);
+  }
+  else
+  {
+    fprintf(NNTPwfp, "Path: %s\r\n", MYBBSID);
+    fprintf(NNTPwfp, "From: %s\r\n", sover->from);
+    fprintf(NNTPwfp, "Newsgroups: %s\r\n", sover->group);
+    fprintf(NNTPwfp, "Subject: %s\r\n", sover->subject);
+    fprintf(NNTPwfp, "Date: %s\r\n", sover->date);
+    fprintf(NNTPwfp, "Organization: %s\r\n", MYSITE);
+    fprintf(NNTPwfp, "Message-ID: <%s>\r\n", sover->msgid);
+    fprintf(NNTPwfp, "X-Filename: %s/%s\r\n", sover->board, sover->filename);
+  }
+  if (NNTPHOST && *NNTPHOST && USEIHAVE)
+    fprintf(NNTPwfp, "NNTP-Posting-Host: %s\r\n", NNTPHOST);
+  else if (NNTPHOST && *NNTPHOST)
+    fprintf(NNTPwfp, "X-Auth-From: %s\r\n", NNTPHOST);
+  if (*CONTROL)
+  {
+    fprintf(NNTPwfp, "Control: %s\r\n", CONTROL);
+  }
+  fputs("\r\n", NNTPwfp);
+  for (body = BODY, bodyp = strchr(body, '\n');
+    body && *body; bodyp = strchr(body, '\n'))
+  {
+    if (bodyp)
+      *bodyp = '\0';
+
+    fputs(body, NNTPwfp);
+    if (body[0] == '.' && body[1] == '\0')
+      fputs(".", NNTPwfp);
+    fputs("\r\n", NNTPwfp);
+    if (bodyp)
+    {
+      *bodyp = '\n';
+      body = bodyp + 1;
+    }
+    else
+    {
+      break;
+    }
+  }
+  /* print "send out @BODY\n"; */
+  status = tcpcommand(".");
+  /* 435 duplicated article 437 invalid header */
+
+  if (USEIHAVE)
+  {
+    if (status == 235)
+    {
+      if (NEWSFEED == LOCAL)
+      {
+        bbslog("Sendout <%s> from %s/%s\n", msgid, board, filename);
+      }
+    }
+    else if (status == 437 || status == 435)
+    {
+      bbslog("<bbslink> :Warn: %d %s <%s>\n", status, (char *) tcpmessage(), msgid);
+      if (Verbose)
+        printf(":Warn: %d %s <%s>\n", status, (char *) tcpmessage(), msgid);
+      return 0;
+    }
+    else
+    {
+      bbslog("<bbslink> :Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+      if (Verbose)
+        printf(":Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+      queuefeed(node, textline);
+      return 0;
+    }
+  }
+  else if (USEPOST)
+  {
+    if (status == 240)
+    {
+      bbslog("Sendout <%s> from %s/%s\n", msgid, board, filename);
+    }
+    else
+    {
+      bbslog("<bbslink> :Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+      queuefeed(node, textline);
+      return 0;
+    }
+  }
+  else
+  {
+    if (status == 250)
+    {
+      bbslog("<bbslink> DATA Sendout <%s> from %s/%s\n", msgid, board, filename);
+      if (Verbose)
+        printf("<DATA Sendout> <%s> from %s/%s\n", msgid, board, filename);
+    }
+    else
+    {
+      bbslog("<bbslink> :Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+      if (Verbose)
+        printf(":Err: %d %s of <%s>\n", status, (char *) tcpmessage(), msgid);
+      queuefeed(node, textline);
+      return 0;
+    }
+  }
+  return 1;
+}
+
+process_cancel(board, filename, userid, nickname, subject)
+  char *board, *filename, *userid, *nickname, *subject;
+{
+  time_t mtime;
+  soverview_t sover;
+
+  if (!userid || !*userid)
+  {
+    return;
+  }
+  mtime = -1;
+  strncpy(FROM_BUF, fileglue("%s.bbs@%s (%s)", userid, MYADDR, nickname), sizeof FROM_BUF);
+  FROM = FROM_BUF;
+  sover.from = FROM;
+  sover.board = board;
+  sover.subject = subject;
+  PATH = MYBBSID;
+  sover.path = MYBBSID;
+  /* save_outgoing(&sover, filename, userid, poster, -1); */
+  save_outgoing(&sover, filename, userid, userid, -1);
+}
+
+open_link(hostname, hostprot, hostport)
+  char *hostname, *hostprot, *hostport;
+{
+  USEIHAVE = 1;
+  USEPOST = 0;
+  USEDATA = 0;
+  FEEDTYPE = ' ';
+  if (Verbose)
+    printf("<OPEN_link> %s %s %s\n", hostname, hostprot, hostport);
+  if (strncasecmp(hostprot, "IHAVE", 5) != 0)
+  {
+    USEIHAVE = 0;
+    USEPOST = 1;
+    if (strncasecmp(hostprot, "POST", 4) == 0)
+    {
+      USEPOST = 1;
+    }
+    else if (strncasecmp(hostprot, "DATA", 4) == 0)
+    {
+      USEPOST = 0;
+      USEDATA = 1;
+    }
+  }
+
+  FEEDTYPE = hostname[0];
+  if (!USEDATA)
+  {
+    char *atsign;
+
+    if (FEEDTYPE == '-' || FEEDTYPE == '+')
+    {
+      hostname = hostname + 1;
+    }
+    atsign = strchr(hostname, '@');
+    if (atsign != NULL)
+    {
+      hostname = atsign + 1;
+    }
+    if (!NoAction)
+    {
+      if (Verbose)
+        printf("<inetclient> %s %s\n", hostname, hostport);
+      if ((NNTP = inetclient(hostname, hostport, "tcp")) < 0)
+      {
+        bbslog("<bbslink> :Err: server %s %s error: cant connect\n", hostname, hostport);
+        if (Verbose)
+          printf(":Err: server %s %s error: cant connect\n", hostname, hostport);
+        return 0;
+        /* exit( 0 ); */
+        /* return; */
+      }
+      NNTPrfp = fdopen(NNTP, "r");
+      NNTPwfp = fdopen(NNTP, "w");
+      fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+      if (atoi(NNTPbuffer) != 200)
+      {
+        bbslog("<bbslink> :Err: server error: %s", NNTPbuffer);
+        if (Verbose)
+          printf(":Err: server error: %s", NNTPbuffer);
+        return 0;
+        /* exit( 0 ); */
+      }
+    }
+    else
+    {
+      if (Verbose)
+        printf("<inetclient> %s %s\n", hostname, hostport);
+    }
+  }
+  else
+  {
+    if (!NoAction)
+    {
+      if (Verbose)
+        printf("<inetclient> localhost %s\n", hostport);
+      if ((NNTP = inetclient("localhost", hostport, "tcp")) < 0)
+      {
+        bbslog("<bbslink> :Err: server %s port %s error: cant connect\n", hostname, hostport);
+        if (Verbose)
+          printf(":Err: server error: cant connect");
+        return 0;
+        /* exit( 0 ); */
+        /* return; */
+      }
+      NNTPrfp = fdopen(NNTP, "r");
+      NNTPwfp = fdopen(NNTP, "w");
+      fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+      if (strncmp(NNTPbuffer, "220", 3) != 0)
+      {
+        bbslog("<bbslink> :Err: server error: %s", NNTPbuffer);
+        if (Verbose)
+          printf(":Err: server error: %s", NNTPbuffer);
+        return 0;
+        /* exit( 0 ); */
+      }
+      if (strncmp(NNTPbuffer, "220-", 4) == 0)
+      {
+        fgets(NNTPbuffer, sizeof NNTPbuffer, NNTPrfp);
+      }
+    }
+    else
+    {
+      if (Verbose)
+        printf("<inetclient> %s %s\n", hostname, hostport);
+    }
+  }
+  return 1;
+}
+
+send_outgoing(node, site, hostname, sover, textline)
+  nodelist_t *node;
+  soverview_t *sover;
+  char *hostname, *site;
+  char *textline;
+{
+  int status;
+  char *board, *filepath, *msgid;
+  int returnstatus = 0;
+
+  board = sover->board;
+  filepath = sover->filename;
+  msgid = sover->msgid;
+
+  if (Verbose)
+    printf("<send_outgoing> %s:%s:%s:%s\n", site, board, filepath, msgid);
+  if (BODY != NULL && !NoAction)
+  {
+    if (USEIHAVE)
+    {
+      status = tcpcommand("IHAVE <%s>", msgid);
+      if (status == 335)
+      {
+        returnstatus = post_article(node, site, sover, textline);
+      }
+      else if (status == 435)
+      {
+        bbslog("<bbslink> :Warn: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Warn: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        returnstatus = 0;
+      }
+      else
+      {
+        bbslog("<bbslink> :Err: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Err: %d %s, IHAVE <%s>\n", status, (char *) tcpmessage(), msgid);
+        queuefeed(node, textline);
+        returnstatus = 0;
+      }
+    }
+    else if (USEPOST)
+    {
+      tcpcommand("MODE READER");
+      status = tcpcommand("POST");
+      if (status == 340)
+      {
+        returnstatus = post_article(node, site, sover, textline);
+      }
+      else if (status == 441)
+      {
+        bbslog("<bbslink> :Warn: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Warn: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        returnstatus = 0;
+      }
+      else
+      {
+        bbslog("<bbslink> :Err: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Err: %d %s, POST <%s>\n", status, (char *) tcpmessage(), msgid);
+        queuefeed(node, textline);
+        returnstatus = 0;
+      }
+    }
+    else
+    {
+      tcpcommand("HELO");
+      tcpcommand("MAIL FROM: bbs");
+      tcpcommand("RCPT TO: %s", hostname);
+      status = tcpcommand("DATA");
+      if (status == 354)
+      {
+        returnstatus = post_article(node, site, sover, textline);
+      }
+      else
+      {
+        bbslog("<bbslink> :Err: %d %s, DATA <%s>\n", status, (char *) tcpmessage(), msgid);
+        if (Verbose)
+          printf(":Err: %d %s, DATA <%s>\n", status, (char *) tcpmessage(), msgid);
+
+        queuefeed(node, textline);
+        returnstatus = 0;
+      }
+    }
+  }
+  else if (NoAction)
+  {
+    returnstatus = post_article(node, site, sover, textline);
+  }
+  return returnstatus;
+}
+
+save_nntplink(node, overview)
+  nodelist_t *node;
+  char *overview;
+{
+  FILE *POSTS;
+  char buffer[1024];
+
+  openfeed(node);
+  POSTS = fopen(overview, "r");
+  if (POSTS == NULL)
+    return 0;
+  openfeed(node);
+  /* if (node->feedfp == NULL) return 0; */
+  flock(fileno(node->feedfp), LOCK_EX);
+  while (fgets(buffer, sizeof buffer, POSTS) != NULL)
+  {
+    fputs(buffer, node->feedfp);
+    fflush(node->feedfp);
+  }
+  flock(fileno(node->feedfp), LOCK_UN);
+  fclose(POSTS);
+  if (Verbose)
+    printf("<Unlinking> %s\n", overview);
+  if (!NoAction)
+    unlink(overview);
+  return 1;
+}
+
+
+char *
+get_tmpfile(tmpfile)
+  char *tmpfile;
+{
+  FILE *FN;
+  static char result[256];
+
+  FN = fopen(tmpfile, "r");
+  fgets(result, sizeof result, FN);
+  fclose(FN);
+  unlink(tmpfile);
+  return (result);
+}
+
+/* cancel moderating posts */
+
+cancel_outgoing(board, filename, from, subject)
+  char *board, *filename, *from, *subject;
+{
+  char *base, filepath[MAXPATHLEN];
+  FILE *FN;
+  char *result;
+  char TMPFILE[MAXPATHLEN];
+
+  if (Verbose)
+  {
+    printf("<cancel_outgoing> %s %s %s %s\n", board, filename, from, subject);
+  }
+
+  sprintf(TMPFILE, "/tmp/cancel_outgoing.%d.%d", getuid(), getpid());
+
+  bbslog("<cancel_outgoing> Try to move moderated post from %s to deleted\n", board);
+  if (Verbose)
+    printf("Try to move moderated post from %s to deleted\n", board);
+  FN = popen(fileglue("%s/bbspost post %s/boards/d/deleted > %s",
+      INNDHOME, BBSHOME, TMPFILE), "w");
+  if (FN == NULL)
+  {
+    bbslog("<cancel_outgoing> can't run %s/bbspost\n", INNDHOME);
+    if (Verbose)
+      printf("<cancel_outgoing> can't run %s/bbspost\n", INNDHOME);
+    return 0;
+  }
+  fprintf(FN, "%s\n", from);
+  fprintf(FN, "%s\n", subject);
+  fprintf(FN, "發信人: %s, 信區: %s\n", from, board);
+  fprintf(FN, "標  題: %s\n", subject);
+  fprintf(FN, "發信站: %s (%s)\n", MYSITE, DATE);
+  fprintf(FN, "轉信站: %s\n", MYBBSID);
+  fputs("\n", FN);
+  fputs(BODY, FN);
+  pclose(FN);
+  result = (char *) get_tmpfile(TMPFILE);
+  if (strncmp(result, "post to ", 8) == 0)
+  {
+    /* try to remove it */
+    strncpy(filepath, fileglue("%s/boards/%c/%s/%s", BBSHOME, board[0], board, filename), sizeof filepath);
+    if (isfile(filepath))
+    {
+      Rename(filepath, fileglue("%s.cancel", filepath));
+    }
+    FN = fopen(filepath, "w");
+
+    fprintf(FN, "發信人: %s, 信區: %s\n", from, board);
+    fprintf(FN, "標  題: <article cancelled and mailed to the moderator\n");
+    fprintf(FN, "發信站: %s (%s)\n", MYSITE, DATE);
+    fprintf(FN, "轉信站: %s\n", MYBBSID);
+    fprintf(FN, "\n");
+    fputs("\n", FN);
+    fprintf(FN, "你的文章 \"%s\" 已經送往審核中. 請等待回覆.\n", subject);
+    fputs("\n", FN);
+    fputs("Your post has been sent to the moderator and move\n", FN);
+    fputs("into the deleted board. If the post accepted by the moderator,\n", FN);
+    fputs("it will be posted in this board again. Please wait.\n", FN);
+
+  }
+  else
+  {
+    bbslog("%s", result);
+  }
+
+  bbslog("%s/bbspost cancel %s %s %s moderate\n", INNDHOME, BBSHOME, board, filename);
+  if (Verbose)
+    printf("%s/bbspost cancel %s %s %s moderate\n", INNDHOME, BBSHOME, board, filename);
+  system(fileglue("%s/bbspost cancel %s %s %s moderate",
+      INNDHOME, BBSHOME, board, filename));
+  return 1;
+}
+
+/*
+ * send_nntplink open_link read_outgoing send_outgoing post_article
+ * cancel_outgoing
+ */
+send_nntplink(node, site, hostname, hostprot, hostport, overview, nlcount)
+  nodelist_t *node;
+  char *site, *hostname, *hostprot, *hostport, *overview;
+  int nlcount;
+{
+  FILE *POSTS;
+  char textline[1024];
+  char baktextline[1024];
+  char *filepath;
+  int status;
+
+  if (Verbose)
+  {
+    printf("<send nntplink> %s %s %s %s\n", site, hostname, hostprot, hostport);
+    printf("    ==> %s\n", overview);
+  }
+  if (!open_link(hostname, hostprot, hostport))
+  {
+    save_nntplink(node, overview);
+    return 0;
+  }
+  POSTS = fopen(overview, "r");
+  if (POSTS == NULL)
+  {
+    if (Verbose)
+      printf("open %s failed\n", overview);
+    return 0;
+  }
+  while (fgets(textline, sizeof textline, POSTS) != NULL)
+  {
+    char *linebreak = strchr(textline, '\n');
+    char *ptr;
+    char *board, *filename, *subject, *group, *mtime, *from;
+    char *outgoingtype;
+    char *msgid, *path;
+    soverview_t soverview;
+
+    strcpy(baktextline, textline);
+    if (linebreak)
+      *linebreak = '\0';
+
+    board = "", filename = "", mtime = "", group = "", from = "", subject = "";
+    outgoingtype = "", msgid = "", path = "";
+    /* get board field */
+    board = textline;
+    ptr = strchr(textline, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* filename field */
+    filename = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* group field */
+    group = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* mtime field */
+    mtime = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* from field */
+    from = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      continue;
+    *ptr++ = '\0';
+
+    /* subject */
+    subject = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+    *ptr++ = '\0';
+
+    /* outgoing type field */
+    outgoingtype = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+    *ptr++ = '\0';
+
+    /* msgid */
+    msgid = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+    *ptr++ = '\0';
+
+    /* path */
+    path = ptr;
+    ptr = strchr(ptr, '\t');
+    if (ptr == NULL)
+      goto try_read_outgoing;
+
+try_read_outgoing:
+
+    NEWSFEED = LOCAL;
+    if (outgoingtype && msgid && path && *outgoingtype && *msgid && *path)
+    {
+      char *left, *right;
+
+      NEWSFEED = REMOTE;
+      left = strchr(msgid, '<');
+      right = strrchr(msgid, '>');
+      if (left)
+        msgid = left + 1;
+      if (right)
+        *right = '\0';
+    }
+    soverview.board = board;
+    soverview.filename = filename;
+    soverview.group = group;
+    soverview.mtime = atol(mtime);
+    soverview.from = from;
+    soverview.subject = subject;
+    soverview.outgoingtype = outgoingtype;
+    soverview.msgid = msgid;
+    soverview.path = path;
+    if (read_outgoing(&soverview) == 0)
+    {
+      int sendresult = send_outgoing(node, site, hostname, &soverview, baktextline);
+      int sendfailed = 1 - sendresult;
+
+      if (NEWSFEED == REMOTE)
+      {
+        BBSLINK_STAT[nlcount].remotesendout += sendresult;
+        BBSLINK_STAT[nlcount].remotefailed += sendfailed;
+      }
+      else
+      {
+        BBSLINK_STAT[nlcount].localsendout += sendresult;
+        BBSLINK_STAT[nlcount].localfailed += sendfailed;
+      }
+      if (node->feedtype == '-')
+      {
+        if (!NoAction && sendresult)
+          cancel_outgoing(board, filename, from, subject);
+      }
+    }
+  }
+  fclose(POSTS);
+  close_link();
+  if (Verbose)
+    printf("<Unlinking> %s\n", overview);
+  if (!NoAction)
+    unlink(overview);
+}
+
+close_link()
+{
+  int status;
+
+  if (Verbose)
+    printf("<close_link>\n");
+  if (NoAction)
+    return;
+  status = tcpcommand("QUIT");
+  if (status != 205 && status != 221)
+  {
+    bbslog("<bbslink> :Err: Cannot quit message '%d %s'\n", status, (char *) tcpmessage());
+    if (Verbose)
+      printf(":Err: Cannot quit message '%d %s'\n", status, (char *) tcpmessage());
+  }
+  fclose(NNTPwfp);
+  fclose(NNTPrfp);
+  close(NNTP);
+}
+
+
+/*
+ * send_article() send_nntplink() read_outgoing()
+ *
+ */
+
+send_article()
+{
+  char *site, *addr, *protocol, *port, *op;
+  char *nntphost;
+  int nlcount;
+
+  chdir(INNDHOME);
+
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    nodelist_t *node;
+    char linkfile[MAXPATHLEN];
+    char sendfile[MAXPATHLEN];
+    char feedfile[MAXPATHLEN];
+    char feedingfile[MAXPATHLEN];
+    char protocol[MAXBUFLEN], port[MAXBUFLEN];
+
+    node = NODELIST + nlcount;
+    site = node->node;
+    nntphost = node->host;
+    op = node->protocol;
+
+    if (DefaultFeedSite && *DefaultFeedSite)
+    {
+      if (strcmp(node->node, DefaultFeedSite) != 0)
+        continue;
+    }
+
+    if (op && (strncasecmp(op, "ihave", 5) == 0 ||
+        strncasecmp(op, "post", 4) == 0 ||
+        strncasecmp(op, "data", 4) == 0))
+    {
+      char *left, *right;
+
+      left = strchr(op, '('), right = strrchr(op, ')');
+      if (left && right)
+      {
+        *left = '\0';
+        *right = '\0';
+        strncpy(protocol, op, sizeof protocol);
+        strncpy(port, left + 1, sizeof port);
+        *left = '(';
+        *right = ')';
+      }
+      else
+      {
+        strncpy(protocol, op, sizeof protocol);
+        strncpy(port, "nntp", sizeof port);
+      }
+    }
+    else
+    {
+      strcpy(protocol, "IHAVE");
+      strcpy(port, "nntp");
+    }
+    sprintf(linkfile, "%s.link", site);
+    sprintf(sendfile, "%s.sending", site);
+    sprintf(feedfile, "%s.feed", site);
+    sprintf(feedingfile, "%s.feeding", site);
+    if (isfile(sendfile) && !iszerofile(sendfile))
+    {
+      if (bbslink_get_lock(sendfile))
+      {
+        send_nntplink(node, site, nntphost, protocol, port, sendfile, nlcount);
+        bbslink_un_lock(sendfile);
+      }
+    }
+    if (isfile(linkfile) && !iszerofile(linkfile))
+    {
+      if (!NoAction)
+      {
+        if (bbslink_get_lock(sendfile) && bbslink_get_lock(linkfile) &&
+          bbslink_get_lock(feedingfile))
+        {
+          if (isfile(sendfile) && !iszerofile(sendfile))
+          {
+            save_nntplink(node, sendfile);
+          }
+          if (node->feedfp)
+          {
+            fclose(node->feedfp);
+            node->feedfp = NULL;
+          }
+          Rename(linkfile, sendfile);
+          send_nntplink(node, site, nntphost, protocol, port, sendfile, nlcount);
+          bbslink_un_lock(linkfile);
+          bbslink_un_lock(sendfile);
+          bbslink_un_lock(feedingfile);
+        }
+      }
+      else
+      {
+        send_nntplink(node, site, nntphost, protocol, port, linkfile, nlcount);
+      }
+    }
+    if (isfile(feedingfile) && !iszerofile(feedingfile))
+    {
+      if (bbslink_get_lock(feedingfile))
+      {
+        send_nntplink(node, site, nntphost, protocol, port, feedingfile, nlcount);
+        bbslink_un_lock(feedingfile);
+      }
+    }
+    if (isfile(feedfile) && !iszerofile(feedfile))
+    {
+      if (!NoAction)
+      {
+        if (bbslink_get_lock(feedfile) && bbslink_get_lock(feedingfile))
+        {
+          if (isfile(feedingfile) && !iszerofile(feedingfile))
+          {
+            save_nntplink(node, feedingfile);
+            if (node->feedfp)
+            {
+              fclose(node->feedfp);
+              node->feedfp = NULL;
+            }
+          }
+          Rename(feedfile, feedingfile);
+          system(fileglue("%s/ctlinnbbsd reload > /dev/null", INNDHOME));
+          send_nntplink(node, site, nntphost, protocol, port, feedingfile, nlcount);
+          bbslink_un_lock(feedfile);
+          bbslink_un_lock(feedingfile);
+        }
+      }
+      else
+      {
+        send_nntplink(node, site, nntphost, protocol, port, feedfile, nlcount);
+      }
+    }
+  }
+}
+
+/* bntplink() bbspost() process_article() process_cancel() send_article() */
+
+
+show_usage(argv)
+  char *argv;
+{
+  fprintf(stderr, "%s initialization failed or improper options !!\n", argv);
+/*
+woju
+*/
+  fprintf(stderr, "Usage: %s [options] bbs_home board\n", argv);
+  fprintf(stderr, "       -v (show transmission status)\n");
+  fprintf(stderr, "       -n (dont send out articles and leave queue untouched)\n");
+  fprintf(stderr, "       -s site (only process articles sent to site)\n");
+  fprintf(stderr, "       -V (visit only: bbspost visit)\n");
+  fprintf(stderr, "       -N (no visit, and only process batch queue)\n");
+  fprintf(stderr, "       -k (kill the former bbslink process before started)\n\n");
+  fprintf(stderr, "本程式要正常執行必須將以下檔案置於 %s/innd 下:\n", BBSHOME);
+  fprintf(stderr, "bbsname.bbs   設定貴站的 BBS ID (請儘量簡短)\n");
+  fprintf(stderr, "nodelist.bbs  設定網路各 BBS 站的 ID, Address 和 fullname\n");
+  fprintf(stderr, "newsfeeds.bbs 設定網路信件的 newsgroup board nodelist ...\n");
+}
+
+
+/*
+woju
+*/
+struct fileheader
+{
+  char filename[33];         /* M.9876543210.A */
+  char savemode;                /* file save mode */
+  char owner[12 + 2];        /* uid[.] */
+  char date[6];                 /* [02/02] or space(5) */
+  char title[72+ 1];
+  unsigned char filemode;              /* must be last field @ boards.c */
+};
+typedef struct fileheader fileheader;
+
+
+bntplink(argc, argv)
+  int argc;
+  char **argv;
+{
+/*
+woju
+  static char *OUTING = ".outing";
+*/
+  static char OUTING[MAXPATHLEN];
+  fileheader fhdr;
+  char *fname, *s1, *s2;
+  char nick[100];
+  FILE* fp;
+
+  nodelist_t *nl;
+  int linkport;
+  char result[4096];
+  char cancelfile[MAXPATHLEN], cancelpost[MAXPATHLEN];
+  char bbslink_lockfile[MAXPATHLEN];
+  FILE *NEWPOST;
+  char *left, *right;
+  int nlcount;
+
+  strcpy(BBSHOME, argv[0]);
+/*
+woju
+*/
+  sprintf(OUTING, "%s/boards/%c/%s/", BBSHOME, argv[1][0], argv[1]);
+  fname = OUTING + strlen(OUTING);
+
+  if (initial_bbs("link") == 0)
+  {
+    return -1;
+  }
+
+  BBSLINK_STAT = (stat_t *) malloc(sizeof(stat_t) * (NLCOUNT + 1));
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    BBSLINK_STAT[nlcount].localsendout = 0;
+    BBSLINK_STAT[nlcount].remotesendout = 0;
+    BBSLINK_STAT[nlcount].localfailed = 0;
+    BBSLINK_STAT[nlcount].remotefailed = 0;
+  }
+
+  nl = (nodelist_t *) search_nodelist_bynode(MYBBSID);
+  if (nl == NULL)
+  {
+    *MYADDR = '\0';
+    *MYSITE = '\0';
+    *LINKPROTOCOL = '\0';
+  }
+  else
+  {
+    strncpy(MYADDR, nl->host, sizeof MYADDR);
+    strncpy(LINKPROTOCOL, nl->protocol, sizeof LINKPROTOCOL);
+    strncpy(MYSITE, nl->comments, sizeof MYSITE);
+  }
+  if (Verbose)
+  {
+    printf("MYADDR: %s\n", MYADDR);
+    printf("MYSITE: %s\n", MYSITE);
+  }
+  left = strchr(nl->protocol, '(');
+  right = strrchr(nl->protocol, ')');
+  if (left && right)
+  {
+    *right = '\0';
+    strncpy(LINKPROTOCOL, nl->protocol, sizeof LINKPROTOCOL);
+    LINKPORT = atoi(left + 1);
+    *right = ')';
+  }
+
+  if (!NoVisit)
+  {
+    sprintf(bbslink_lockfile, "%s/.bbslink.visit", INNDHOME);
+/*
+woju
+    if (!Rename(fileglue("%s/out.bntp", INNDHOME), OUTING) && bbslink_get_lock(bbslink_lockfile))
+*/
+    if (strcpy(fname, ".DIR"))
+    {
+      /* When try to visit new post, try to lock it */
+      NEWPOST = fopen(OUTING, "r");
+      if (NEWPOST == NULL)
+      {
+        bbslog("<bbslink> Err: can't open %s\n", OUTING);
+/*
+woju
+        bbslink_un_lock(bbslink_lockfile);
+*/
+        return -1;
+      }
+#ifdef 0
+woju
+      while (fgets(result, sizeof result, NEWPOST))
+      {
+        /* chop( $_ ); */
+        char *board, *filename, *userid, *nickname, *subject;
+        char *ptr;
+
+        ptr = strchr(result, '\n');
+        if (ptr)
+          *ptr = '\0';
+
+        board = filename = userid = nickname = subject = NULL;
+        /* board field */
+        board = result;
+        ptr = strchr(result, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* filename field */
+        filename = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* userid field */
+        userid = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* nickname field */
+        nickname = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* subject field */
+        subject = ptr;
+        /* ptr = strchr(ptr, '\t'); if (ptr == NULL) continue; ptr++ = '\0'; */
+
+        process_article(board, filename, userid, nickname, subject);
+      }
+#endif
+      while (fread(&fhdr, sizeof(fhdr), 1, NEWPOST) == 1) {
+         nick[1] = 0;
+         strcpy(fname, fhdr.filename);
+         if (fp = fopen(OUTING, "r")) {
+            fgets(nick, 100, fp);
+            if ((s1 = strchr(nick, '(')) && (s2 = strrchr(nick, ')')))
+               *s2 = 0;
+            else
+               s1 = nick;
+            fclose(fp);
+         }
+         printf("%s\n", fhdr.title);
+         process_article(argv[1], fhdr.filename, fhdr.owner, s1 + 1, fhdr.title);
+      }
+      fclose(NEWPOST);
+/*
+woju
+      unlink(OUTING);
+      bbslink_un_lock(bbslink_lockfile);
+*/
+      }                           /* getlock */
+  }                             /* if NoVisit is false */
+
+#if 0
+woju
+  sprintf(cancelpost, "%s/cancel.bntp", INNDHOME);
+  if (isfile(cancelpost))
+  {
+    FILE *CANCELFILE;
+
+    if (bbslink_get_lock(cancelpost) && bbslink_get_lock(cancelfile))
+    {
+      sprintf(cancelfile, "%s.%d", cancelpost, getpid());
+      Rename(cancelpost, cancelfile);
+      CANCELFILE = fopen(cancelfile, "r");
+      while (fgets(result, sizeof result, CANCELFILE) != NULL)
+      {
+        /* chop( $_ ); */
+        char *board, *filename, *userid, *nickname, *subject;
+        char *ptr, **sptr;
+
+        ptr = strchr(result, '\n');
+        if (ptr)
+          *ptr = '\0';
+        board = filename = userid = nickname = subject = NULL;
+
+        /* board field */
+        board = result;
+        ptr = strchr(result, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* filename field */
+        filename = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* userid field */
+        userid = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* nickname field */
+        nickname = ptr;
+        ptr = strchr(ptr, '\t');
+        if (ptr == NULL)
+          continue;
+        *ptr++ = '\0';
+
+        /* subject field */
+        subject = ptr;
+        /* ptr = strchr(ptr, '\t'); if (ptr == NULL) continue; ptr++ = '\0'; */
+        process_cancel(board, filename, userid, nickname, subject);
+      }
+      fclose(CANCELFILE);
+      if (Verbose)
+        printf("Unlinking %s\n", cancelfile);
+      if (!NoAction)
+        unlink(cancelfile);
+      bbslink_un_lock(cancelfile);
+      bbslink_un_lock(cancelpost);
+    }
+  }
+#endif
+
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    if (NODELIST[nlcount].feedfp != NULL)
+    {
+      fclose(NODELIST[nlcount].feedfp);
+      NODELIST[nlcount].feedfp = NULL;
+    }
+  }
+
+  send_article();
+  for (nlcount = 0; nlcount < NLCOUNT; nlcount++)
+  {
+    int localsendout, remotesendout, localfailed, remotefailed;
+
+    localsendout = BBSLINK_STAT[nlcount].localsendout;
+    remotesendout = BBSLINK_STAT[nlcount].remotesendout;
+    localfailed = BBSLINK_STAT[nlcount].localfailed;
+    remotefailed = BBSLINK_STAT[nlcount].remotefailed;
+    if (localsendout || remotesendout || localfailed || remotefailed)
+      bbslog("<bbslink> [%s]%s lsend:%d rsend:%d lfail:%d rfail:%d\n",
+        NODELIST[nlcount].node, NoAction ? "NoAction" : "", localsendout, remotesendout,
+        localfailed, remotefailed);
+    if (NODELIST[nlcount].feedfp != NULL)
+    {
+      fclose(NODELIST[nlcount].feedfp);
+      NODELIST[nlcount].feedfp = NULL;
+    }
+  }
+  if (BBSLINK_STAT);
+  free(BBSLINK_STAT);
+  return 0;
+}
+/*
+termbbslink(sig)
+  int sig;
+{
+  bbslog("kill signal received %d, terminated\n", sig);
+  if (Verbose)
+    printf("kill signal received %d, terminated\n", sig);
+  exit(0);
+}
+*/
+void
+termbbslink()
+{
+  bbslog("kill signal received ??, terminated\n");
+  if (Verbose)
+    printf("kill signal received ??, terminated\n");
+  exit(0);
+}
+
+char *REMOTEUSERNAME = "";
+char *REMOTEHOSTNAME = "";
+
+extern char *optarg;
+extern int opterr, optind;
+
+main(argc, argv)
+  int argc;
+  char **argv;
+{
+  int c, errflag = 0;
+
+  CONTROL = CONTROL_BUF;
+  MSGID = MSGID_BUF;
+
+  /* For debug Only */
+#define DEBUGBBSLINK
+
+#ifdef DEBUGBBSLINK
+  NoAction = 0;
+  Verbose = 0;
+  VisitOnly = 0;
+  NoVisit = 0;
+  DefaultFeedSite = "";
+#endif
+
+  while ((c = getopt(argc, argv, "s:hnvVNk")) != -1)
+    switch (c)
+    {
+    case 's':
+      DefaultFeedSite = optarg;
+      break;
+    case 'n':
+      NoAction = 1;
+      break;
+    case 'v':
+      Verbose = 1;
+      break;
+    case 'V':
+      VisitOnly = 1;
+      break;
+    case 'N':
+      NoVisit = 1;
+      break;
+    case 'k':
+      KillFormerBBSLINK = 1;
+      break;
+    case 'h':
+    default:
+      errflag++;
+      break;
+    }
+  if (errflag > 0)
+  {
+    show_usage(argv[0]);
+    return (1);
+  }
+  if (argc - optind < 2)
+  {
+    show_usage(argv[0]);
+    exit(1);
+  }
+  signal(SIGTERM, termbbslink);
+  if (bntplink(argc - optind, argv + optind) != 0)
+  {
+    show_usage(argv[0]);
+    exit(1);
+  }
+  return 0;
+}
diff --git a/pttbbs/innbbsd/bbsnnrp.c b/pttbbs/innbbsd/bbsnnrp.c
new file mode 100644
index 00000000..6682f7ba
--- /dev/null
+++ b/pttbbs/innbbsd/bbsnnrp.c
@@ -0,0 +1,1194 @@
+/*
+   Usage: bbsnnrp [options] nntpserver activefile
+ 	  -h|? (help) 
+	  -v (verbose protocol transactions)
+	  -c (reset active files only; don't receive articles)
+  	  -r remotehost(send articles to remotehost, default=local)
+	  -p port|(send articles to remotehost at port, default=7777)
+	     path(send articles to local at path, default=~bbs/innd/.innbbsd)
+	  -n (don't ask innbbsd server and stat articles)
+	  -w seconds (wait for seconds and run infinitely, default=once)  
+	  -a max_art (maximum number of articles received for a group each time)
+	  -s max_stat(maximum number of articles stated for a group each time)
+	  -t stdin|nntp (default=nntp)
+*/
+
+#include "innbbsconf.h"
+#include <sys/mman.h>
+#ifndef AIX
+#  include <sys/fcntl.h>
+#endif
+#include "bbslib.h"
+#include "daemon.h"
+#include "nntp.h"
+
+#ifndef MAX_ARTS
+# define MAX_ARTS 100
+#endif
+#ifndef MAX_STATS
+# define MAX_STATS 1000
+#endif
+
+#if  defined(__linux)
+#define NO_USE_MMAP
+#else
+#define USE_MMAP
+#endif
+
+int Max_Arts= MAX_ARTS;
+int Max_Stats = MAX_STATS;
+
+typedef struct NEWSRC_T {
+  char *nameptr, *lowptr,  *highptr,  *modeptr;
+  int namelen, lowlen, highlen;
+  ULONG low, high; 
+  int mode, subscribe;
+} newsrc_t;
+
+typedef struct NNRP_T {
+  int nnrpfd;
+  int innbbsfd;
+  FILE *nnrpin, *nnrpout;
+  FILE *innbbsin, *innbbsout;
+  char activefile[MAXPATHLEN];
+  char rcfile[MAXPATHLEN];
+  newsrc_t *newsrc;
+  char *actpointer, *actend;
+  int actsize, actfd, actdirty;
+} nnrp_t;
+
+typedef struct XHDR_T {
+  char *header;
+  ULONG artno;
+} xhdr_t;
+
+xhdr_t XHDR[MAX_ARTS];
+char LockFile[1024];
+
+#define NNRPGroupOK NNTP_GROUPOK_VAL
+#define NNRPXhdrOK NNTP_HEAD_FOLLOWS_VAL
+#define NNRParticleOK NNTP_ARTICLE_FOLLOWS_VAL
+#define INNBBSstatOK NNTP_NOTHING_FOLLOWS_VAL
+#define INNBBSihaveOK NNTP_SENDIT_VAL
+#define NNRPconnectOK NNTP_POSTOK_VAL
+#define NNRPstatOK NNTP_NOTHING_FOLLOWS_VAL
+#define INNBBSconnectOK NNTP_POSTOK_VAL
+
+nnrp_t BBSNNRP;
+
+void doterm(s)
+int s;
+{
+  printf("bbsnnrp terminated.  Signal %d\n", s);
+  writerc(&BBSNNRP);
+  if (isfile(LockFile))
+    unlink(LockFile);
+  exit(1);
+}
+
+extern char *optarg;
+extern int opterr, optind;
+
+#ifndef MIN_WAIT
+# define MIN_WAIT 60
+#endif
+
+int ResetActive = 0;
+int StatHistory = 1;
+int AskLocal = 1;
+int RunOnce = 1;
+
+int DefaultWait = MIN_WAIT;
+
+char *DefaultPort = DefaultINNBBSPort;
+char *DefaultPath = LOCALDAEMON;
+char *DefaultRemoteHost;
+
+#ifndef MAXBUFLEN
+#define MAXBUFLEN 256
+#endif
+char DefaultNewsgroups[MAXBUFLEN];
+char DefaultOrganization[MAXBUFLEN];
+char DefaultModerator[MAXBUFLEN];
+char DefaultTrustfrom[MAXBUFLEN];
+char DefaultTrustFrom[MAXBUFLEN];
+
+usage(arg)
+char *arg;
+{
+fprintf(stderr,"Usage: %s [options] nntpserver activefile\n", arg);
+fprintf(stderr,"       -h|? (help) \n");
+fprintf(stderr,"       -v (verbose protocol transactions)\n");
+fprintf(stderr,"       -c (reset active files only; don't receive articles)\n");  
+fprintf(stderr,"       -r [proto:]remotehost\n");
+fprintf(stderr,"          (send articles to remotehost, default=ihave:local)\n");  
+fprintf(stderr,"       -p port|(send articles to remotehost at port, default=%s)\n",DefaultINNBBSPort);  
+fprintf(stderr,"          path(send articles to local at path, default=~bbs/innd/.innbbsd)\n");  
+fprintf(stderr,"       -w seconds ( > 1 wait for seconds and run infinitely, default=once)\n");  
+fprintf(stderr,"       -n (don't ask innbbsd server and stat articles)\n");
+fprintf(stderr,"       -a max_art(maximum number of articles received for a group each time)\n");
+fprintf(stderr,"          default=%d\n", MAX_ARTS);
+fprintf(stderr,"       -s max_stat(maximum number of articles stated for a group each time)\n");
+fprintf(stderr,"          default=%d\n", MAX_STATS);
+fprintf(stderr,"       -t stdin|nntp (default=nntp)\n");
+fprintf(stderr,"       -g newsgroups\n");
+fprintf(stderr,"       -m moderator\n");
+fprintf(stderr,"       -o organization\n");
+fprintf(stderr,"       -f trust_user (From: trust_user)\n");
+fprintf(stderr,"       -F trust_user (From trust_user)\n");
+fprintf(stderr," Please E-mail bug to skhuang@csie.nctu.edu.tw or\n");
+fprintf(stderr," post to tw.bbs.admin.installbbs\n");
+}
+
+static char *StdinInputType="stdin";
+static char *NntpInputType="nntp";
+static char *NntpIhaveProtocol="ihave";
+static char *NntpPostProtocol="post";
+static char *DefaultNntpProtocol ; 
+main(argc, argv)
+int argc;
+char **argv;
+{
+    char *ptr, *server, *active;
+    int c, errflag=0;
+    int lockfd;
+    char *inputtype;
+
+    DefaultNntpProtocol = NntpIhaveProtocol;
+    *DefaultNewsgroups = '\0';
+    *DefaultModerator = '\0';
+    *DefaultOrganization = '\0';
+    *DefaultTrustFrom = '\0';
+    *DefaultTrustfrom = '\0';
+    inputtype = NntpInputType;
+    while ((c = getopt(argc,argv,"f:F:m:o:g:w:r:p:a:s:t:h?ncv"))!= -1)
+      switch (c) {
+      case 'v':
+       verboseon("bbsnnrp.log");
+       break;
+      case 'c':
+       ResetActive = 1;
+       break;
+      case 'g':
+       strncpy(DefaultNewsgroups, optarg, sizeof DefaultNewsgroups);
+       break;
+      case 'm':
+       strncpy(DefaultModerator, optarg, sizeof DefaultModerator);
+       break;
+      case 'o':
+       strncpy(DefaultOrganization, optarg, sizeof DefaultOrganization);
+       break;
+      case 'f':
+       strncpy(DefaultTrustfrom, optarg, sizeof DefaultTrustfrom);
+       break;
+      case 'F':
+       strncpy(DefaultTrustFrom, optarg, sizeof DefaultTrustFrom);
+       break;
+      case 'r': {
+       char *hostptr;
+       AskLocal = 0;
+       DefaultRemoteHost = optarg;
+       if ((hostptr = strchr(optarg,':')) != NULL) {
+	 *hostptr = '\0';
+	 DefaultRemoteHost = hostptr+1;
+	 if (strcasecmp( optarg, "post" ) == 0)
+	   DefaultNntpProtocol = NntpPostProtocol;
+	 *hostptr = ':';
+       }
+       break;
+      }
+      case 'w':
+       RunOnce = 0;
+       DefaultWait = atoi(optarg);
+       if (DefaultWait < MIN_WAIT) 
+	 DefaultWait = MIN_WAIT;
+       break;
+      case 'p':
+       if (AskLocal == 0) {
+	  DefaultPort = optarg;
+       } else {
+	  DefaultPath = optarg;
+       }
+       break;
+      case 'n':
+       StatHistory = 0;
+       break;
+      case 'a':
+       Max_Arts = atol(optarg);
+       if (Max_Arts < 0) Max_Arts = 0;
+       break;
+      case 's':
+       Max_Stats = atol(optarg);
+       if (Max_Stats < 0) Max_Stats = 0;
+       break;
+      case 't':
+       if ( strcasecmp(optarg,StdinInputType) == 0) {
+	  inputtype = StdinInputType;
+       } 
+       break;
+      case 'h':
+      case '?':
+      default:
+        errflag ++;	
+      }
+    if (errflag > 0) {
+       usage(argv[0]);
+       return(1);
+    }
+    if (inputtype == NntpInputType && argc - optind < 2) {
+       usage(argv[0]);
+       exit(1);
+    }
+    if (inputtype == NntpInputType) {
+     server = argv[optind];
+     active = argv[optind+1];
+     if ( isfile(active) ) {
+       strncpy(BBSNNRP.activefile, active, sizeof BBSNNRP.activefile);
+     } else if ( strchr(active,'/') == NULL) {
+       sprintf(BBSNNRP.activefile, "%s/innd/%.*s",BBSHOME, sizeof BBSNNRP.activefile - 7 - strlen(BBSHOME), active);
+     } else {
+       strncpy(BBSNNRP.activefile, active, sizeof BBSNNRP.activefile);
+     }
+
+     strncpy(LockFile , (char*)fileglue("%s.lock",active), sizeof LockFile);
+     if ((lockfd = open(LockFile, O_RDONLY)) >= 0) {
+      char buf[10];
+      int pid;
+
+      if (read(lockfd, buf, sizeof buf) > 0 && (pid = atoi(buf))>0 && kill(pid,0)==0) {
+	fprintf(stderr, "another process [%d] running\n", pid);
+        exit(1);
+      } else {
+	fprintf(stderr, "no process [%d] running, but lock file existed, unlinked\n", pid);
+	unlink(LockFile);
+      }
+      close(lockfd);
+     }
+     if ((lockfd = open(LockFile, O_RDWR|O_CREAT|O_EXCL,0644)) < 0) {
+      fprintf( stderr, "maybe another %s process running\n",argv[0]);
+      exit(1);
+     } else {
+      char buf[10];
+      int pid;
+      sprintf(buf,"%-.8d\n",getpid());
+      write(lockfd, buf, strlen(buf));
+      close(lockfd);
+     }
+     for (;;) {
+      if (!initial_bbs(NULL)) {
+       fprintf(stderr, "Initial BBS failed\n");
+       exit(1);
+      }
+      initsockets(server, &BBSNNRP, inputtype);
+      ptr = (char*)strrchr(active,'/');
+      if (ptr != NULL) 
+	ptr++;
+      else 
+	ptr = active;
+      sprintf(BBSNNRP.rcfile,"%s/.newsrc.%s.%s",INNDHOME, server, ptr);
+      initrcfiles(&BBSNNRP);
+
+      signal(SIGTERM, doterm);
+      signal(SIGKILL, doterm);
+      signal(SIGHUP,  doterm);
+      signal(SIGPIPE, doterm);
+
+      readnews(server, &BBSNNRP);
+      writerc(&BBSNNRP);
+      closesockets();
+
+      if (RunOnce) break;
+      sleep(DefaultWait);
+     }
+     unlink(LockFile);
+    } /* NntpInputType */
+    else {
+      if (!initial_bbs(NULL)) {
+       fprintf(stderr, "Initial BBS failed\n");
+       exit(1);
+      }
+      initsockets(server, &BBSNNRP, inputtype);
+      signal(SIGTERM, doterm);
+      signal(SIGKILL, doterm);
+      signal(SIGHUP,  doterm);
+      signal(SIGPIPE, doterm);
+
+      stdinreadnews(&BBSNNRP);
+      closesockets();
+    } /* stdin input type */
+    return 0;
+}
+
+headbegin(buffer)
+char *buffer;
+{
+       if (strncmp(buffer,"Path: ",6)==0 ) {
+	  if (strchr(buffer+6,'!') != NULL)
+	     return 1;
+       }
+       if (strncmp(buffer,"From ",5)== 0 ) {
+	  if (strchr(buffer+5,':') != NULL)
+	     return 1;
+       }
+       return 0;
+}
+
+stdinreadnews(bbsnnrp)
+nnrp_t *bbsnnrp;
+{
+   int i;
+   char buffer[4096];
+   ULONG low, high;
+   char tmpfilename[MAXPATHLEN]; 
+   FILE *tmpfp = NULL;
+   char mid[1024];
+   int pathagain;
+   int ngmet, submet, midmet, pathmet, orgmet, approvedmet;
+   int discard;
+   char sending_path[MAXPATHLEN];
+   int  sending_path_len=0;
+
+   strncpy(tmpfilename,(char*)fileglue("/tmp/bbsnnrp-stdin-%d-%d",getuid(),getpid()),sizeof tmpfilename);
+   fgets(buffer, sizeof buffer, bbsnnrp->innbbsin);
+   verboselog("innbbsGet: %s", buffer);
+   if (atoi(buffer) != INNBBSconnectOK) {
+      fprintf(stderr, "INNBBS server not OK\n");
+      return;
+   }
+
+   if ( DefaultNntpProtocol == NntpPostProtocol ) {
+     fputs("MODE READER\r\n", bbsnnrp->innbbsout);
+     fflush(bbsnnrp->innbbsout);
+     verboselog("innbbsPut: MODE READER\n");
+     fgets(buffer, sizeof buffer, bbsnnrp->innbbsin);
+     verboselog("innbbsGet: %s",buffer);
+   }
+
+   if (StatHistory == 0) {
+	   fputs("MIDCHECK OFF\r\n", bbsnnrp->innbbsout);
+	   fflush(bbsnnrp->innbbsout);
+	   verboselog("innbbsPut: MIDCHECK OFF\n");
+	   fgets(buffer, sizeof buffer, bbsnnrp->innbbsin);
+	   verboselog("innbbsGet: %s",buffer);
+   }
+   tmpfp = fopen(tmpfilename,"w");
+   if (tmpfp == NULL) return;
+   *mid = '\0';
+   for (;;) {
+     fprintf(stderr,"Try to read from stdin ...\n");
+     ngmet = 0, submet = 0, midmet = 0, pathmet = 0, orgmet = 0, approvedmet=0;
+     discard = 0;
+     while (fgets(buffer, sizeof buffer, stdin) != NULL) {
+       char *tmpptr;
+       tmpptr = strchr(buffer,'\n');
+       if (tmpptr != NULL) *tmpptr = '\0';
+       if (strncasecmp(buffer,"Message-ID: ",12)==0) {
+	  strncpy(mid, buffer+12,sizeof mid);
+	  midmet = 1;
+       } else if (strncmp(buffer,"Subject: ",9)==0) {
+	  submet = 1;
+       } else if (strncmp(buffer,"Path: ",6)==0) {
+	 pathmet = 1;
+       } else if (strncmp(buffer,"Organization: ",14)==0) {
+	 orgmet  = 1;
+       } else if (strncmp(buffer,"Approved: ",10)  == 0) {
+	 approvedmet = 1;
+       } else if (strncmp(buffer,"From: ",6)==0 && *DefaultTrustfrom ) {
+	 if (strstr(buffer+6, DefaultTrustfrom)==NULL) {
+	   discard = 1;
+	   verboselog("Discard: %s for %s",buffer, DefaultTrustfrom);
+         }
+       } else if (strncmp(buffer,"From ",5)==0 && *DefaultTrustFrom ) {
+	 if (strstr(buffer+5, DefaultTrustFrom)==NULL) {
+	   discard = 1;
+	   verboselog("Discard: %s for %s",buffer, DefaultTrustFrom);
+         }
+       } else if (strncmp(buffer,"Received: ",10)==0) {
+	 char *rptr=buffer+10, *rrptr;
+	 int savech, len;
+	 if (strncmp(buffer+10,"from ",5)==0) {
+	    rptr +=5;
+            rrptr = strchr(rptr,'(');
+	    if (rrptr != NULL) rptr = rrptr + 1;
+            rrptr = strchr(rptr,' ');
+	    savech = *rrptr;
+	    if (rrptr != NULL) *rrptr = '\0';
+	 } else if (strncmp(buffer+10,"(from ",6)==0) {
+	    rptr +=6;
+            rrptr = strchr(rptr,')');
+	    savech = *rrptr;
+	    if (rrptr != NULL) *rrptr = '\0';
+         }
+	 len = strlen(rptr) +1;
+	 if (*rptr && sending_path_len + len < sizeof(sending_path)) {
+	   if (*sending_path)
+	     strcat(sending_path, "!");
+	   strcat(sending_path, rptr);
+	   sending_path_len += len ;
+	 }
+	 if (rrptr != NULL) *rrptr = savech;
+       }
+
+       if (strncmp(buffer,"Newsgroups: ",12)==0) {
+	 if (*DefaultNewsgroups){
+           fprintf(tmpfp,"Newsgroups: %s\r\n",DefaultNewsgroups);
+	 } else {
+           fprintf(tmpfp,"%s\r\n",buffer);
+	 }
+	 ngmet = 1;
+       } else { 
+	 if (buffer[0] == '\0') {
+	   if (!ngmet && *DefaultNewsgroups) {
+             fprintf(tmpfp,"Newsgroups: %s\r\n",DefaultNewsgroups);
+           }
+	   if (!submet) {
+             fprintf(tmpfp,"Subject: (no subject)\r\n");
+	   }
+	   if (!pathmet) {
+             fprintf(tmpfp,"Path: from-mail\r\n");
+	   }
+	   if (!midmet) {
+	     static int seed;
+	     time_t now;
+	     time(&now);
+             fprintf(tmpfp,"Message-ID: <%d@%d.%d.%d>\r\n",now,getpid(), getuid(), seed);
+	     sprintf(mid, "<%d@%d.%d.%d>", now, getpid(), getuid(), seed);
+	     seed++;
+	   }
+	   if (!orgmet && *DefaultOrganization) {
+             fprintf(tmpfp,"Organization: %s\r\n", DefaultOrganization);
+	   }
+	   if (!approvedmet && *DefaultModerator) {
+             fprintf(tmpfp,"Approved: %s\r\n", DefaultModerator);
+	   }
+	 } 
+	 if (strncmp(buffer,"From ",5) != 0 && strncmp(buffer,"To: ",4) !=0) {
+	   if (buffer[0] == '\0') {
+	      if (*sending_path) {
+                fprintf(tmpfp,"X-Sending-Path: %s\r\n",sending_path);
+	      }
+	   }
+           fprintf(tmpfp,"%s\r\n",buffer);
+         }
+       }
+       if (buffer[0]=='\0') break;
+     }
+     fprintf(stderr,"Article Body begin ...\n");
+     pathagain = 0;
+     while (fgets(buffer, sizeof buffer, stdin) != NULL) {
+       char *tmpptr;
+       tmpptr = strchr(buffer,'\n');
+       if (tmpptr != NULL) *tmpptr = '\0';
+       if ( headbegin(buffer) ) {
+	  FILE *oldfp = bbsnnrp->nnrpin;
+	  pathagain = 1;
+	  fputs(".\r\n",tmpfp);
+	  fclose(tmpfp);
+	  fprintf(stderr,"Try to post ...\n");
+          tmpfp = fopen(tmpfilename,"r");
+	  bbsnnrp->nnrpin = tmpfp;
+	  if (!discard)
+          if (INNBBSihave(bbsnnrp, -1, mid)== -1) {
+	    fprintf(stderr,"post failed\n");
+	  }
+	  bbsnnrp->nnrpin = oldfp;
+	  fclose(tmpfp);
+	  *mid = '\0';
+          tmpfp = fopen(tmpfilename,"w");
+          fprintf(tmpfp,"%s\r\n",buffer);
+	  break;
+       } else {
+         fprintf(tmpfp,"%s\r\n",buffer);
+       }
+     }
+     if (!pathagain) break;
+   }
+   if (!pathagain && tmpfp) {
+	  FILE *oldfp = bbsnnrp->nnrpin;
+	  fputs(".\r\n",tmpfp);
+	  fclose(tmpfp);
+	  fprintf(stderr,"Try to post ...\n");
+          tmpfp = fopen(tmpfilename,"r");
+	  bbsnnrp->nnrpin = tmpfp;
+	  if (!discard)
+          if (INNBBSihave(bbsnnrp, -1, mid)== -1) {
+	    fprintf(stderr,"post failed\n");
+	  }
+	  bbsnnrp->nnrpin = oldfp;
+	  fclose(tmpfp);
+   }
+   if (isfile(tmpfilename)) {
+      unlink(tmpfilename); 
+   }
+}
+
+static char *ACT_BUF,  *RC_BUF;
+int ACT_COUNT;
+
+initrcfiles(bbsnnrp)
+nnrp_t *bbsnnrp;
+{
+   FILE *actfp, *rcfp;
+   char buff[1024];
+   int actfd, i, count, actcount=0, rcount=0, maxcount;
+   struct stat st;
+   char *actlistptr, *ptr;
+
+   actfd = open(bbsnnrp->activefile, O_RDWR);
+   if (actfd < 0) {
+      fprintf( stderr, "can't read/write %s\n", bbsnnrp->activefile );
+      exit(1);
+   }
+   if (fstat(actfd, &st) != 0) {
+      fprintf( stderr, "can't stat %s\n", bbsnnrp->activefile );   
+      exit(1);
+   }
+
+   bbsnnrp->actfd    = actfd;
+   bbsnnrp->actsize  = st.st_size;
+#ifdef USE_MMAP
+   bbsnnrp->actpointer = mmap(0, st.st_size, PROT_WRITE | PROT_READ,
+			      MAP_SHARED, actfd, 0);
+   if (bbsnnrp->actpointer == (char*)-1) {
+      fprintf( stderr, "mmap error \n");
+      exit(1);
+   }
+#else
+   if (bbsnnrp->actpointer == NULL) {
+       bbsnnrp->actpointer = (char*)mymalloc(st.st_size);
+   } else {
+       bbsnnrp->actpointer = (char*)myrealloc(bbsnnrp->actpointer,st.st_size);
+   }
+   if (bbsnnrp->actpointer == NULL || read(actfd, bbsnnrp->actpointer, st.st_size) <= 0) {
+      fprintf( stderr, "read act error \n");
+      exit(1);
+   }
+#endif
+   bbsnnrp->actend = bbsnnrp->actpointer + st.st_size;
+   i = 0, count = 0;
+   for (ptr = bbsnnrp->actpointer; ptr < bbsnnrp->actend && (actlistptr = (char*)strchr(ptr,'\n')) != NULL; ptr = actlistptr +1, ACT_COUNT++) {
+       if (*ptr == '\n') continue; 
+       if (*ptr == '#') continue; 
+       count ++;
+   }
+   bbsnnrp->newsrc = (newsrc_t*) mymalloc( sizeof(newsrc_t) * count);
+   ACT_COUNT = 0;
+   for (ptr = bbsnnrp->actpointer; ptr < bbsnnrp->actend && (actlistptr = (char*)strchr(ptr,'\n')) != NULL; ptr = actlistptr +1 ) {
+       register newsrc_t *rcptr;
+       char *nptr;
+       /**actlistptr = '\0';*/
+       if (*ptr == '\n') continue; 
+       if (*ptr == '#') continue; 
+       rcptr = &bbsnnrp->newsrc[ACT_COUNT];
+       rcptr->nameptr = NULL;
+       rcptr->namelen = 0;
+       rcptr->lowptr = NULL;
+       rcptr->lowlen = 0;
+       rcptr->highptr = NULL;
+       rcptr->highlen = 0;
+       rcptr->modeptr = NULL;
+       rcptr->low  = 0;
+       rcptr->high = 0;
+       rcptr->mode = 'y';
+       for (nptr= ptr ;*nptr && isspace(*nptr); ) nptr++;
+       if ( nptr == actlistptr ) continue;
+       rcptr->nameptr = nptr;
+       for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+       rcptr->namelen = (int)(nptr - rcptr->nameptr);
+       if ( nptr == actlistptr) continue;
+       for (nptr++ ;*nptr && isspace(*nptr); ) nptr++;
+       if ( nptr == actlistptr) continue; 
+       rcptr->highptr = nptr; 
+       rcptr->high = atol(nptr);
+       for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+       rcptr->highlen = (int)(nptr - rcptr->highptr);
+       if ( nptr == actlistptr) continue;
+       for (nptr++ ;*nptr && isspace(*nptr); ) nptr++;
+       if ( nptr == actlistptr) continue;
+       rcptr->lowptr = nptr;
+       rcptr->low = atol(nptr);
+       for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+       rcptr->lowlen = (int)(nptr - rcptr->lowptr);
+       if ( nptr == actlistptr) continue;
+       for (nptr++ ;*nptr && isspace(*nptr); ) nptr++;
+       if ( nptr == actlistptr) continue;
+       rcptr->mode = *nptr;
+       rcptr->modeptr = nptr;
+       ACT_COUNT ++;
+   }
+}
+
+initsockets(server, bbsnnrp, type)
+char *server;
+nnrp_t *bbsnnrp;
+char *type;
+{
+   int nnrpfd ; 
+   int innbbsfd;
+   if (AskLocal) { 
+     innbbsfd = unixclient(DefaultPath,"tcp");
+     if (innbbsfd < 0) {
+        fprintf(stderr, "Connect to %s error. You may not run innbbsd\n", LOCALDAEMON);
+	/* unix connect fail, may run by inetd, try to connect to local once */
+        innbbsfd = inetclient("localhost",DefaultPort,"tcp");
+	if (innbbsfd < 0) {
+          exit(2);
+	}
+	close(innbbsfd);
+	/* try again */
+        innbbsfd = unixclient(DefaultPath,"tcp");
+        if (innbbsfd < 0) {
+          exit(3);
+	}
+     }
+     verboselog("INNBBS connect to %s\n",DefaultPath);
+   } else {
+     innbbsfd = inetclient(DefaultRemoteHost,DefaultPort,"tcp");
+     if (innbbsfd < 0) {
+        fprintf(stderr, "Connect to %s at %s error. Remote Server not Ready\n", DefaultRemoteHost, DefaultPort);
+        exit(2);
+     }
+     verboselog("INNBBS connect to %s\n",DefaultRemoteHost);
+   } 
+   if (type == StdinInputType) {
+      bbsnnrp->nnrpfd = 0;
+      bbsnnrp->innbbsfd = innbbsfd;
+      if ((bbsnnrp->nnrpin = fdopen(0,"r"))    == NULL || 
+        (bbsnnrp->nnrpout= fdopen(1,"w"))    == NULL ||
+        (bbsnnrp->innbbsin= fdopen(innbbsfd,"r")) == NULL ||
+        (bbsnnrp->innbbsout= fdopen(innbbsfd,"w"))== NULL ) {
+        fprintf( stderr, "fdopen error\n");
+        exit(3);
+      }
+      return;
+   }
+   nnrpfd = inetclient(server, "nntp","tcp");
+   if (nnrpfd < 0) {
+      fprintf(stderr, " connect to %s error \n", server);
+      exit(2);
+   }
+   verboselog("NNRP connect to %s\n", server);
+   bbsnnrp->nnrpfd = nnrpfd;
+   bbsnnrp->innbbsfd = innbbsfd;
+   if ((bbsnnrp->nnrpin = fdopen(nnrpfd,"r"))    == NULL || 
+       (bbsnnrp->nnrpout= fdopen(nnrpfd,"w"))    == NULL ||
+       (bbsnnrp->innbbsin= fdopen(innbbsfd,"r")) == NULL ||
+       (bbsnnrp->innbbsout= fdopen(innbbsfd,"w"))== NULL ) {
+       fprintf( stderr, "fdopen error\n");
+       exit(3);
+   }
+}
+
+closesockets()
+{
+   fclose(BBSNNRP.nnrpin);
+   fclose(BBSNNRP.nnrpout);
+   fclose(BBSNNRP.innbbsin);
+   fclose(BBSNNRP.innbbsout);
+   close(BBSNNRP.nnrpfd);
+   close(BBSNNRP.innbbsfd);
+}
+
+updaterc(actptr, len, value)
+char *actptr;
+int len;
+ULONG value;
+{
+   for (actptr += len -1; len -- >0; ) {
+       *actptr-- = value % 10 + '0';
+       value /= 10;
+   }
+}
+
+/* 
+   if old file is empty, don't need to update
+   prevent from disk full
+*/
+int
+myrename(old,new)
+char *old, *new;
+{
+    struct stat st;
+    if (stat(old,&st) != 0) return -1;
+    if (st.st_size <= 0) return -1;
+    return rename(old,new);
+}
+
+flushrc(bbsnnrp)
+nnrp_t *bbsnnrp;
+{
+     int backfd;
+     char *bak1;
+     if (bbsnnrp->actdirty == 0) return;
+     bak1 = (char*)strdup((char*)fileglue("%s.BAK",bbsnnrp->activefile));
+     if (isfile(bak1)) {
+       myrename(bak1, (char*)fileglue("%s.BAK.OLD",bbsnnrp->activefile));
+     }
+#ifdef USE_MMAP
+     if ((backfd=open((char*)fileglue("%s.BAK",bbsnnrp->activefile),O_WRONLY | O_TRUNC | O_CREAT, 0664)) < 0 ||  write(backfd, bbsnnrp->actpointer, bbsnnrp->actsize) < bbsnnrp->actsize) 
+#else
+     myrename(bbsnnrp->activefile, bak1);
+     if ((backfd=open(bbsnnrp->activefile,O_WRONLY | O_TRUNC | O_CREAT, 0664)) < 0 || write(backfd, bbsnnrp->actpointer, bbsnnrp->actsize) < bbsnnrp->actsize)
+#endif
+     {
+	char emergent[128];
+	sprintf(emergent,"/tmp/bbsnnrp.%d.active",getpid());
+	fprintf(stderr, "write to backup active fail. Maybe disk full\n");
+	fprintf(stderr, "try to write in %s\n",emergent);
+        if ((backfd = open(emergent,O_WRONLY | O_TRUNC | O_CREAT, 0644))<0 || write(backfd, bbsnnrp->actpointer, bbsnnrp->actsize) < bbsnnrp->actsize) 
+	{
+	   fprintf(stderr, "write to %sfail.\n", emergent);
+	} else {
+	  close(backfd);
+	}
+	/* if write fail, should leave */
+	/*exit(1);*/
+     } else {
+       close(backfd);
+     }
+     free(bak1);
+     bbsnnrp->actdirty = 0;
+}
+
+writerc(bbsnnrp)
+nnrp_t *bbsnnrp;
+{
+  if (bbsnnrp->actpointer) {
+     flushrc(bbsnnrp);
+#ifdef USE_MMAP
+     if (munmap(bbsnnrp->actpointer, bbsnnrp->actsize) < 0)
+        fprintf(stderr, "can't unmap\n");
+     /*free(bbsnnrp->actpointer);*/
+     bbsnnrp->actpointer = NULL;
+#endif
+     if (close(bbsnnrp->actfd) < 0) 
+        fprintf(stderr, "can't close actfd\n");
+  }
+}
+
+static FILE* Xhdrfp;
+static char NNRPbuffer[4096];
+static char INNBBSbuffer[4096];
+
+char *
+NNRPgets(string, len, fp)
+char *string;
+int len;
+FILE *fp;
+{
+   char* re = fgets(string, len, fp);
+   char *ptr;
+   if (re != NULL) {
+      if ((ptr = (char*)strchr(string,'\r'))!=NULL)
+	 *ptr = '\0';
+      if ((ptr = (char*)strchr(string,'\n'))!=NULL)
+	 *ptr = '\0';
+   }
+   return re;
+}
+
+int NNRPstat(bbsnnrp, artno, mid)
+nnrp_t *bbsnnrp;
+   ULONG artno;
+char **mid;
+{
+   char *ptr;
+   int code;
+
+   *mid = NULL;
+   fprintf(bbsnnrp->nnrpout,"STAT %d\r\n",artno);
+   fflush(bbsnnrp->nnrpout);
+   verboselog("nnrpPut: STAT %d\n",artno);
+   NNRPgets(NNRPbuffer, sizeof NNRPbuffer, bbsnnrp->nnrpin);
+   verboselog("nnrpGet: %s\n",NNRPbuffer);
+
+   ptr = (char*) strchr(NNRPbuffer, ' ');
+   if (ptr != NULL) *ptr++ = '\0';
+   code = atoi(NNRPbuffer);
+   ptr = (char*) strchr(ptr, ' ');
+   if (ptr != NULL) *ptr++ = '\0';
+   *mid = ptr;
+   ptr = (char*) strchr(ptr, ' ');
+   if (ptr != NULL) *ptr++ = '\0';
+   return code;
+}
+
+int
+NNRPxhdr(pattern, bbsnnrp, i, low, high)
+char *pattern;
+nnrp_t *bbsnnrp;
+int i;
+ULONG low, high;
+{
+      newsrc_t *rcptr = &bbsnnrp->newsrc[i];
+      int size, code;
+
+      Xhdrfp = bbsnnrp->nnrpin;
+      fprintf(bbsnnrp->nnrpout,"XHDR %s %d-%d\r\n",pattern,low, high );
+#ifdef BBSNNRPDEBUG
+      printf("XHDR %s %d-%d\r\n",pattern,low, high );
+#endif
+      fflush(bbsnnrp->nnrpout);
+      verboselog("nnrpPut: XHDR %s %d-%d\n",pattern,low, high );
+      NNRPgets(NNRPbuffer, sizeof NNRPbuffer, bbsnnrp->nnrpin);
+      verboselog("nnrpGet: %s\n", NNRPbuffer);
+      code = atoi(NNRPbuffer);
+      return code;
+}
+
+int NNRPxhdrget(artno, mid, iscontrol)
+int *artno;
+char **mid;
+int iscontrol;
+{
+    *mid = NULL;
+    *artno = 0;
+    if (NNRPgets(NNRPbuffer, sizeof NNRPbuffer, Xhdrfp) == NULL)
+      return 0;
+    else {
+      char *ptr, *s;
+      if (strcmp(NNRPbuffer,".")==0) return 0;      
+      ptr = (char*)strchr(NNRPbuffer,' ');
+      if (!ptr) return 1;
+      *ptr++ = '\0';
+      *artno = atol(NNRPbuffer);
+      if (iscontrol) {
+        ptr = (char*)strchr(s=ptr,' ');
+        if (!ptr) return 1;
+        *ptr++ = '\0';
+	if (strcmp(s,"cancel") != 0) return 1;
+      } 
+      *mid = ptr;
+      return 1;
+    }
+}
+
+int INNBBSstat(bbsnnrp, i, mid)
+nnrp_t *bbsnnrp;
+int i;
+char *mid;
+{
+      newsrc_t *rcptr = &bbsnnrp->newsrc[i];
+      int size, code;
+
+      fprintf(bbsnnrp->innbbsout,"STAT %s\r\n", mid);
+      fflush(bbsnnrp->innbbsout);
+      verboselog("innbbsPut: STAT %s\n", mid);
+      NNRPgets(INNBBSbuffer, sizeof INNBBSbuffer, bbsnnrp->innbbsin);
+      verboselog("innbbsGet: %s\n", INNBBSbuffer);
+      return atol(INNBBSbuffer);
+}
+
+int INNBBSihave(bbsnnrp, artno, mid)
+nnrp_t *bbsnnrp;
+ULONG artno;
+char *mid;
+{
+      int size, code;
+      int header=1;
+
+      if (DefaultNntpProtocol == NntpPostProtocol) {
+        fprintf(bbsnnrp->innbbsout,"POST\r\n");
+        fflush(bbsnnrp->innbbsout);
+        verboselog("innbbsPut: POST %s\n", mid);
+      } else {
+        fprintf(bbsnnrp->innbbsout,"IHAVE %s\r\n", mid);
+        fflush(bbsnnrp->innbbsout);
+        verboselog("innbbsPut: IHAVE %s\n", mid);
+      }
+      if (NNRPgets(INNBBSbuffer, sizeof INNBBSbuffer, bbsnnrp->innbbsin)==NULL){
+	return -1;
+      }
+      verboselog("innbbsGet: %s\n", INNBBSbuffer);
+#ifdef BBSNNRPDEBUG
+      printf("ihave got %s\n", INNBBSbuffer);
+#endif
+
+      if (DefaultNntpProtocol == NntpPostProtocol) {
+       if ((code=atol(INNBBSbuffer)) !=  NNTP_START_POST_VAL) {
+        if (code == NNTP_POSTFAIL_VAL)
+	  return 0;
+        else 
+	  return -1;
+       }
+      } else {
+       if ((code=atol(INNBBSbuffer)) != INNBBSihaveOK) {
+	if (code == 435 || code == 437)
+	  return 0;
+        else 
+	  return -1;
+       }
+      }
+      if (artno != -1) {
+	      fprintf(bbsnnrp->nnrpout,"ARTICLE %d\r\n", artno);
+	      verboselog("nnrpPut: ARTICLE %d\n", artno);
+#ifdef BBSNNRPDEBUG
+	      printf("ARTICLE %d\r\n", artno);
+#endif
+	      fflush(bbsnnrp->nnrpout);
+	      if (NNRPgets(NNRPbuffer, sizeof NNRPbuffer, bbsnnrp->nnrpin)==NULL) {
+		 return -1;
+	      }
+	      verboselog("nnrpGet: %s\n", NNRPbuffer);
+#ifdef BBSNNRPDEBUG
+	      printf("article got %s\n", NNRPbuffer);
+#endif
+	      if (atol(NNRPbuffer) != NNRParticleOK) {
+	        fputs(".\r\n",bbsnnrp->innbbsout);
+                fflush(bbsnnrp->innbbsout);
+	        NNRPgets(INNBBSbuffer, sizeof INNBBSbuffer, bbsnnrp->innbbsin);
+                verboselog("innbbsGet: %s\n",INNBBSbuffer);
+		return 0;
+              }
+      } 
+      header = 1;
+      while ( fgets(NNRPbuffer, sizeof NNRPbuffer, bbsnnrp->nnrpin) != NULL)
+      {
+	  if (strcmp(NNRPbuffer,"\r\n") == 0) 
+	    header = 0;
+	  if (strcmp(NNRPbuffer,".\r\n")==0) {
+            verboselog("nnrpGet: .\n");
+	    fputs(NNRPbuffer,bbsnnrp->innbbsout);
+            fflush(bbsnnrp->innbbsout);
+            verboselog("innbbsPut: .\n");
+	    if (NNRPgets(INNBBSbuffer, sizeof INNBBSbuffer, bbsnnrp->innbbsin)==NULL) 
+		return -1;
+            verboselog("innbbsGet: %s\n",INNBBSbuffer);
+#ifdef BBSNNRPDEBUG
+	    printf("end ihave got %s\n", INNBBSbuffer);
+#endif
+	    code = atol(INNBBSbuffer);
+            if (DefaultNntpProtocol == NntpPostProtocol) {
+	     if (code == NNTP_POSTEDOK_VAL)
+	       return 1;
+             if (code == NNTP_POSTFAIL_VAL)
+	       return 0;
+	    } else {
+	     if (code == 235)
+	       return 1;
+             if (code == 437 || code == 435)
+	       return 0;
+            }
+            break;
+          }
+	  if ( DefaultNntpProtocol == NntpPostProtocol &&
+	  header && strncasecmp(NNRPbuffer,"NNTP-Posting-Host: ",19)==0)   {
+	    fprintf(bbsnnrp->innbbsout,"X-%s",NNRPbuffer);
+	  } else {
+	    fputs(NNRPbuffer,bbsnnrp->innbbsout);
+	  }
+      }
+      fflush(bbsnnrp->innbbsout);
+      return -1;
+}
+
+int
+NNRPgroup(bbsnnrp, i, low, high)
+nnrp_t *bbsnnrp;
+int i;
+ULONG *low, *high;
+{
+      newsrc_t *rcptr = &bbsnnrp->newsrc[i];
+      int size, code;
+      ULONG tmp;
+
+      fprintf(bbsnnrp->nnrpout,"GROUP %-.*s\r\n",
+	      rcptr->namelen, rcptr->nameptr );
+      printf("GROUP %-.*s\r\n", rcptr->namelen, rcptr->nameptr );
+      verboselog("nnrpPut: GROUP %-.*s\n", rcptr->namelen, rcptr->nameptr );
+      fflush(bbsnnrp->nnrpout);
+      NNRPgets(NNRPbuffer, sizeof NNRPbuffer, bbsnnrp->nnrpin);
+      verboselog("nnrpGet: %s\n",NNRPbuffer);
+      printf("%s\n",NNRPbuffer);
+      sscanf(NNRPbuffer, "%d %d %ld %ld", &code, &size, low, high); 
+      if (*low > *high) {
+	 tmp = *low;
+	 *low = *high;
+	 *high = tmp;
+      }
+      return code;
+}
+
+
+readnews(server,bbsnnrp)
+char *server;
+nnrp_t *bbsnnrp;
+{
+   int i;
+   char buffer[4096];
+   ULONG low, high;
+
+   fgets(buffer, sizeof buffer, bbsnnrp->innbbsin);
+   verboselog("innbbsGet: %s", buffer);
+   if (atoi(buffer) != INNBBSconnectOK) {
+      fprintf(stderr, "INNBBS server not OK\n");
+      return;
+   }
+#ifdef BBSNNRPDEBUG
+   printf("%s",buffer);
+#endif
+   fgets(buffer, sizeof buffer, bbsnnrp->nnrpin);
+   verboselog("nnrpGet: %s", buffer);
+   if (buffer[0] != '2') {
+   /*if (atoi(buffer) != NNRPconnectOK && atoi(buffer) != NNTP_NOPOSTOK_VAL) {*/
+      fprintf(stderr, "NNRP server not OK\n");
+      return;
+   }
+#ifdef BBSNNRPDEBUG
+   printf("%s",buffer);
+#endif
+   fputs("MODE READER\r\n", bbsnnrp->nnrpout);
+   fflush(bbsnnrp->nnrpout);
+   verboselog("nnrpPut: MODE READER\n");
+   fgets(buffer, sizeof buffer, bbsnnrp->nnrpin);
+   verboselog("nnrpGet: %s",buffer);
+
+   if ( DefaultNntpProtocol == NntpPostProtocol ) {
+     fputs("MODE READER\r\n", bbsnnrp->innbbsout);
+     fflush(bbsnnrp->innbbsout);
+     verboselog("innbbsPut: MODE READER\n");
+     fgets(buffer, sizeof buffer, bbsnnrp->innbbsin);
+     verboselog("innbbsGet: %s",buffer);
+   }
+
+#ifdef BBSNNRPDEBUG
+   printf("%s",buffer);
+#endif
+   
+   if (StatHistory == 0) {
+	   fputs("MIDCHECK OFF\r\n", bbsnnrp->innbbsout);
+	   fflush(bbsnnrp->innbbsout);
+	   verboselog("innbbsPut: MIDCHECK OFF\n");
+	   fgets(buffer, sizeof buffer, bbsnnrp->innbbsin);
+	   verboselog("innbbsGet: %s",buffer);
+   }
+   bbsnnrp->actdirty = 0;
+   for (i =0; i< ACT_COUNT; i++) {
+      int code = NNRPgroup(bbsnnrp, i, &low, &high);
+      newsrc_t *rcptr = &bbsnnrp->newsrc[i];
+      int j;
+      ULONG artno;
+      char *mid;
+      int artcount;
+
+#ifdef BBSNNRPDEBUG
+      printf("got reply %d %ld %ld\n",code, low, high);
+#endif
+      artcount = 0;
+      if (code == 411)
+        {
+          FILE *ff=fopen(BBSHOME"/innd/log/badgroup.log","a");
+          fprintf(ff,"%s\t%-.*s\r\n", server, rcptr->namelen, rcptr->nameptr); 
+          fclose(ff);
+        }
+      else if (code == NNRPGroupOK) {
+	 int xcount;
+	 ULONG maxartno= rcptr->high;
+	 int isCancelControl = (strncmp(rcptr->nameptr,"control",rcptr->namelen)==0) 
+			  ||
+	                 (strncmp(rcptr->nameptr,"control.cancel",rcptr->namelen)==0) ;
+
+/* less than or equal to high, for server renumber */
+	 if (rcptr->low != low) {
+		bbsnnrp->actdirty = 1;
+		rcptr->low = low;
+		updaterc(rcptr->lowptr, rcptr->lowlen, rcptr->low);
+	 }
+	 if (ResetActive) {
+	      if (rcptr->high != high) {
+		bbsnnrp->actdirty = 1;
+		rcptr->high = high;
+		updaterc(rcptr->highptr, rcptr->highlen, rcptr->high);
+	      }
+	 } else if (rcptr->high < high) {
+	  int xhdrcode;
+	  ULONG maxget=high;
+	  int exception=0;
+	  if (rcptr->high < low) {
+	    bbsnnrp->actdirty = 1;
+	    rcptr->high = low;
+	    updaterc(rcptr->highptr, rcptr->highlen, low);
+	  }
+	  if (high > rcptr->high + Max_Stats) {
+	     maxget = rcptr->high + Max_Stats;
+	  }
+	  if ( isCancelControl ) 
+	     xhdrcode = NNRPxhdr("Control",bbsnnrp, i, rcptr->high+1, maxget);
+          else
+	     xhdrcode = NNRPxhdr("Message-ID",bbsnnrp, i, rcptr->high+1, maxget); 
+	     
+	  maxartno = maxget;
+	  if ( xhdrcode ==  NNRPXhdrOK) {
+	    while (NNRPxhdrget(&artno, &mid, isCancelControl)) {
+/*#define DEBUG*/
+#ifdef DEBUG
+	       printf("no %d id %s\n",artno, mid);
+#endif
+	       if (artcount < Max_Arts) {
+		 if (mid != NULL && !isCancelControl) {
+		   if (!StatHistory || INNBBSstat(bbsnnrp,i,mid) != INNBBSstatOK) {
+		     printf("** %d ** %d need it %s\n", artcount, artno,mid);
+		     XHDR[artcount].artno = artno;
+		     XHDR[artcount].header = restrdup(XHDR[artcount].header,mid);
+		     /*INNBBSihave(bbsnnrp,i,artno,mid);*/
+	             /* to get it */
+		     artcount++;
+                   } 
+		 } else if (mid != NULL) {
+		   if (INNBBSstat(bbsnnrp,i,mid) == INNBBSstatOK) {
+		     printf("** %d ** %d need cancel %s\n", artcount, artno,mid);
+		     XHDR[artcount].artno = artno;
+		     XHDR[artcount].header = restrdup(XHDR[artcount].header,mid);
+		     artcount++;
+		   }
+		 }
+		 maxartno = artno;
+	       }
+	    }
+	 }/* while xhdr OK */
+	 exception = 0;
+         for (xcount = 0; xcount < artcount; xcount++) {
+	    ULONG artno;
+	    char *mid;
+	    artno = XHDR[xcount].artno;
+	    mid   = XHDR[xcount].header;
+	    if (isCancelControl) {
+		if (NNRPstat(bbsnnrp,artno,&mid) == NNRPstatOK) {
+		} 
+	    }
+	    printf("** %d ** %d i have it %s\n", xcount, artno, mid);
+	    if (!ResetActive && mid != NULL)
+	      exception = INNBBSihave(bbsnnrp,artno,mid);
+            if (exception == -1) break;
+	    if (rcptr->high != artno) {
+	      rcptr->high = artno;
+	      updaterc(rcptr->highptr, rcptr->highlen, rcptr->high);
+	    }
+	 }
+	 if (rcptr->high != maxartno && exception !=  -1) {
+	   bbsnnrp->actdirty = 1;
+	   rcptr->high = maxartno;
+	   updaterc(rcptr->highptr, rcptr->highlen, maxartno);
+         }
+       }
+      }
+      /*
+      flushrc(bbsnnrp);
+      */
+   }
+   fprintf(bbsnnrp->innbbsout,"quit\r\n");
+   fprintf(bbsnnrp->nnrpout,"quit\r\n");
+   fflush(bbsnnrp->innbbsout);
+   fflush(bbsnnrp->nnrpout);
+   fgets(NNRPbuffer, sizeof NNRPbuffer, bbsnnrp->nnrpin);
+   fgets(INNBBSbuffer, sizeof INNBBSbuffer, bbsnnrp->innbbsin);
+
+/*   bbsnnrp->newsrc[0].high = 1900;
+   updaterc(bbsnnrp->newsrc[0].highptr, bbsnnrp->newsrc[0].highlen,
+            bbsnnrp->newsrc[0].high);
+*/
+}
+
+INNBBSDhalt()
+{
+}
diff --git a/pttbbs/innbbsd/clibrary.h b/pttbbs/innbbsd/clibrary.h
new file mode 100644
index 00000000..92ec82e0
--- /dev/null
+++ b/pttbbs/innbbsd/clibrary.h
@@ -0,0 +1,131 @@
+/*  $Revision: 1.1 $
+**
+**  Here be declarations of routines and variables in the C library.
+**  You must #include <sys/types.h> and <stdio.h> before this file.
+*/
+
+#if	defined(DO_HAVE_UNISTD)
+#include <unistd.h>
+#endif	/* defined(DO_HAVE_UNISTD) */
+
+#if	defined(DO_HAVE_VFORK)
+#include <vfork.h>
+#endif	/* defined(DO_HAVE_VFORK) */
+
+    /* Generic pointer, used by memcpy, malloc, etc. */
+    /* =()<typedef @<POINTER>@ *POINTER;>()= */
+typedef char *POINTER;
+    /* What is a file offset?  Will not work unless long! */
+    /* =()<typedef @<OFFSET_T>@ OFFSET_T;>()= */
+typedef long OFFSET_T;
+    /* What is the type of an object size? */
+    /* =()<typedef @<SIZE_T>@ SIZE_T;>()= */
+typedef int SIZE_T;
+    /* What is the type of a passwd uid and gid, for use in chown(2)? */
+    /* =()<typedef @<UID_T>@ UID_T;>()= */
+typedef int UID_T;
+    /* =()<typedef @<GID_T>@ GID_T;>()= */
+typedef int GID_T;
+    /* =()<typedef @<PID_T>@ PID_T;>()= */
+typedef int PID_T;
+    /* What should a signal handler return? */
+    /* =()<#define SIGHANDLER	@<SIGHANDLER>@>()= */
+#define SIGHANDLER	void
+
+#if	defined(SIG_DFL)
+    /* What types of variables can be modified in a signal handler? */
+    /* =()<typedef @<SIGVAR>@ SIGVAR;>()= */
+typedef int SIGVAR;
+#endif	/* defined(SIG_DFL) */
+
+/* =()<#include @<STR_HEADER>@>()= */
+#include <string.h>
+/* =()<#include @<MEM_HEADER>@>()= */
+#include <memory.h>
+
+
+/*
+**  It's a pity we have to go through these contortions, for broken
+**  systems that have fd_set but not the FD_SET.
+*/
+#if	defined(FD_SETSIZE)
+#define FDSET		fd_set
+#else
+#include <sys/param.h>
+#if	!defined(NOFILE)
+	error -- #define NOFILE to the number of files allowed on your machine!
+#endif	/* !defined(NOFILE) */
+#if	!defined(howmany)
+#define howmany(x, y)	(((x) + ((y) - 1)) / (y))
+#endif	/* !defined(howmany) */
+#define FD_SETSIZE	NOFILE
+#define NFDBITS		(sizeof (long) * 8)
+typedef struct _FDSET {
+    long	fds_bits[howmany(FD_SETSIZE, NFDBITS)];
+} FDSET;
+#define FD_SET(n, p)	(p)->fds_bits[(n) / NFDBITS] |= (1 << ((n) % NFDBITS))
+#define FD_CLR(n, p)	(p)->fds_bits[(n) / NFDBITS] &= ~(1 << ((n) % NFDBITS))
+#define FD_ISSET(n, p)	((p)->fds_bits[(n) / NFDBITS] & (1 << ((n) % NFDBITS)))
+#define FD_ZERO(p)	(void)memset((POINTER)(p), 0, sizeof *(p))
+#endif	/* defined(FD_SETSIZE) */
+
+
+#if	!defined(SEEK_SET)
+#define SEEK_SET	0
+#endif	/* !defined(SEEK_SET) */
+#if	!defined(SEEK_END)
+#define SEEK_END	2
+#endif	/* !defined(SEEK_END) */
+
+/*
+**  We must use #define to set FREEVAL, since "typedef void FREEVAL;" doesn't
+**  work on some broken compilers, sigh.
+*/
+/* =()<#define FREEVAL @<FREEVAL>@>()= */
+#define FREEVAL int
+
+extern int		optind;
+extern char		*optarg;
+#if	!defined(__STDC__)
+extern int		errno;
+#endif	/* !defined(__STDC__) */
+
+extern char		*getenv();
+extern char		*inet_ntoa();
+extern char		*mktemp();
+#if	!defined(strerror)
+extern char		*strerror();
+#endif	/* !defined(strerror) */
+extern long		atol();
+extern time_t		time();
+extern unsigned long	inet_addr();
+extern FREEVAL		free();
+extern POINTER		malloc();
+extern POINTER		realloc();
+#if	defined(ACT_MMAP)
+extern char		*mmap();
+#endif	/* defined(ACT_MMAP) */
+
+/* Some backward systems need this. */
+extern FILE	*popen();
+
+/* This is in <mystring.h>, but not in some system string headers,
+ * so we put it here just in case. */
+extern int	strncasecmp();
+
+/* =()<extern @<ABORTVAL>@	abort();>()= */
+extern int	abort();
+/* =()<extern @<ALARMVAL>@	alarm();>()= */
+extern int	alarm();
+/* =()<extern @<EXITVAL>@	exit();>()= */
+extern void	exit();
+/* =()<extern @<GETPIDVAL>@	getpid();>()= */
+extern int	getpid();
+/* =()<extern @<LSEEKVAL>@	lseek();>()= */
+extern off_t	lseek();
+/* =()<extern @<QSORTVAL>@	qsort();>()= */
+extern int	qsort();
+/* =()<extern @<SLEEPVAL>@	sleep();>()= */
+extern int	sleep();
+/* =()<extern @<_EXITVAL>@	_exit();>()= */
+extern int	_exit();
diff --git a/pttbbs/innbbsd/closeonexec.c b/pttbbs/innbbsd/closeonexec.c
new file mode 100644
index 00000000..e005e51b
--- /dev/null
+++ b/pttbbs/innbbsd/closeonexec.c
@@ -0,0 +1,66 @@
+/*  $Revision: 1.1 $
+**
+*/
+/*#include "configdata.h"*/
+#include <stdio.h>
+#include <sys/types.h>
+#include <errno.h>
+#include <sys/ioctl.h>
+#include "clibrary.h"
+
+#ifndef CLX_IOCTL
+#  define CLX_IOCTL
+#endif
+#ifndef CLX_FCNTL
+#  define CLX_FCNTL
+#endif
+
+
+
+#if	defined(CLX_IOCTL) && !defined(IRIX)
+#ifdef __linux
+#  include <termios.h>
+#else
+#  include <sgtty.h>
+#endif
+
+
+/*
+**  Mark a file close-on-exec so that it doesn't get shared with our
+**  children.  Ignore any error codes.
+*/
+void
+closeOnExec(fd, flag)
+    int		fd;
+    int		flag;
+{
+    int		oerrno;
+
+    oerrno = errno;
+    (void)ioctl(fd, flag ? FIOCLEX : FIONCLEX, (char *)NULL);
+    errno = oerrno;
+}
+#endif	/* defined(CLX_IOCTL) */
+
+
+
+#if	defined(CLX_FCNTL)
+#include <fcntl.h>
+
+
+/*
+**  Mark a file close-on-exec so that it doesn't get shared with our
+**  children.  Ignore any error codes.
+*/
+void
+CloseOnExec(fd, flag)
+    int		fd;
+    int		flag;
+{
+    int		oerrno;
+
+    oerrno = errno;
+    (void)fcntl(fd, F_SETFD, flag ? 1 : 0);
+    errno = oerrno;
+}
+#endif	/* defined(CLX_FCNTL) */
diff --git a/pttbbs/innbbsd/connectsock.c b/pttbbs/innbbsd/connectsock.c
new file mode 100644
index 00000000..71203cfe
--- /dev/null
+++ b/pttbbs/innbbsd/connectsock.c
@@ -0,0 +1,452 @@
+#include "innbbsconf.h"
+#include "daemon.h"
+#include <signal.h>
+#include <setjmp.h>
+
+static jmp_buf timebuf;
+
+static void
+timeout(sig)
+  int sig;
+{
+  longjmp(timebuf, sig);
+}
+
+extern int errno;
+static void reapchild (s)
+int s;
+{
+	int state;
+	while (waitpid(-1,&state,WNOHANG|WUNTRACED)>0) {
+	/*	printf("reaping child\n");*/
+	}
+}
+
+void dokill(s)
+int s;
+{
+   kill(0,SIGKILL);
+}
+
+static INETDstart = 0;
+int startfrominetd(flag)
+{
+   INETDstart = flag ;
+}
+
+
+int standalonesetup(fd)
+int fd;
+{
+        int on =1;
+	struct linger foobar;
+	if (setsockopt(fd,SOL_SOCKET, SO_REUSEADDR,(char *)&on,sizeof(on)) < 0)
+   	   syslog(LOG_ERR, "setsockopt (SO_REUSEADDR): %m");
+	foobar.l_onoff = 0;
+	if (setsockopt(fd, SOL_SOCKET, SO_LINGER, (char*)&foobar, sizeof (foobar))<0)
+	   syslog(LOG_ERR, "setsockopt (SO_LINGER): %m");
+}
+
+static char *UNIX_SERVER_PATH;
+static int (*halt)();
+
+sethaltfunction(haltfunc)
+int (*haltfunc)();
+{
+    halt = haltfunc;
+}
+
+void docompletehalt(s)
+int s;
+{
+	/*printf("try to remove %s\n", UNIX_SERVER_PATH);
+	unlink(UNIX_SERVER_PATH);*/
+	exit(0);
+	/*dokill();*/
+}
+
+void doremove(s)
+int s;
+{
+   if (halt != NULL)
+      (*halt)(s);
+   else 
+      docompletehalt(s);
+}
+
+
+initunixserver(path, protocol)
+char *path;
+char *protocol;
+{
+	struct sockaddr_un s_un;   
+	/* unix endpoint address */
+	struct protoent *pe;   /*protocol information entry*/
+	int s;
+	char *ptr;
+
+	bzero((char*)&s_un,sizeof(s_un));
+	s_un.sun_family= AF_UNIX;
+	strcpy(s_un.sun_path, path);
+	if (protocol==NULL)
+	     protocol="tcp";
+        /* map protocol name to protocol number */
+	pe=getprotobyname(protocol);
+	if (pe==NULL) {
+	 fprintf(stderr,"%s: Unknown protocol.\n",protocol);
+	 return (-1);
+	}
+
+        /* Allocate a socket */
+	s = socket(PF_UNIX,strcmp(protocol,"tcp")?SOCK_DGRAM:SOCK_STREAM,0);
+	if (s<0) {
+		printf("protocol %d\n", pe->p_proto);
+		perror("socket");
+		return -1;
+	}
+	/*standalonesetup(s);*/
+        signal(SIGHUP, SIG_IGN);
+        signal(SIGUSR1, SIG_IGN);
+	signal(SIGCHLD,reapchild);
+	UNIX_SERVER_PATH = path;
+	signal(SIGINT,doremove);
+	signal(SIGTERM,doremove);
+
+	chdir("/");
+	if (bind(s,(struct sockaddr*)&s_un,sizeof (struct sockaddr_un))<0){
+		perror("bind");
+		perror(path);
+		return -1;
+	}
+	listen(s,10);
+	return s;
+}
+
+initinetserver(service,protocol)
+char *service;
+char *protocol;
+{
+        struct servent *se;    /*service information entry*/
+	struct hostent *he;    /*host information entry*/
+	struct protoent *pe;   /*protocol information entry*/
+	struct sockaddr_in sin;/*Internet endpoint address*/
+	int port,s;
+	int randomport=0;
+
+	bzero((char*)&sin,sizeof(sin));
+	sin.sin_family= AF_INET;
+	if (!strcmp("0",service)) {
+		randomport = 1;
+		sin.sin_addr.s_addr = INADDR_ANY;
+	}
+
+	if (service==NULL) 
+	     service=DEFAULTPORT;
+	if (protocol==NULL)
+	     protocol="tcp";
+        /* map service name to port number */
+	/* service ---> port */
+	se = getservbyname(service,protocol);
+	if (se==NULL) {
+	  port = htons((u_short)atoi(service)); 
+	  if (port==0 && !randomport) {
+	   fprintf (stderr, "%s/%s: Unknown service.\n",service,protocol);
+	   return (-1);
+	  }
+        } else 
+	        port=se->s_port;
+	sin.sin_port = port;
+
+        /* map protocol name to protocol number */
+	pe=getprotobyname(protocol);
+	if (pe==NULL) {
+	 fprintf(stderr,"%s: Unknown protocol.\n",protocol);
+	 return (-1);
+	}
+
+        /* Allocate a socket */
+	s = socket(PF_INET,strcmp(protocol,"tcp")?SOCK_DGRAM:SOCK_STREAM,pe->p_proto);
+	if (s<0) {
+		perror("socket");
+		return -1;
+	}
+	standalonesetup(s);
+        signal(SIGHUP, SIG_IGN);
+        signal(SIGUSR1, SIG_IGN);
+	signal(SIGCHLD,reapchild);
+	signal(SIGINT,dokill);
+	signal(SIGTERM,dokill);
+
+	chdir("/");
+	if (bind(s,(struct sockaddr*)&sin,sizeof (struct sockaddr_in))<0){
+		perror("bind");
+		return -1;
+	}
+	listen(s,10);
+#ifdef DEBUG
+	{ int length=sizeof(sin);
+	getsockname(s,&sin,&length);
+	printf("portnum alocalted %d\n",sin.sin_port);
+	}
+#endif
+	return s;
+}
+
+int open_unix_listen(path,protocol,initfunc)
+char *path;
+char *protocol;
+int (*initfunc) ARG((int));
+{
+	int s;
+	s = initunixserver(path,protocol);
+	if (s<0) {
+		return -1;
+	}
+	if (initfunc != NULL) {
+	   printf("in inetsingleserver before initfunc s %d\n",s);
+	   if ((*initfunc)(s)<0) {
+		perror("initfunc error");
+		return -1;
+	   }
+	   printf("end inetsingleserver before initfunc \n");
+        }
+	return s;
+}
+
+int open_listen(service,protocol,initfunc)
+char *service;
+char *protocol;
+int (*initfunc) ARG((int));
+{
+	int s;
+	if (! INETDstart)
+	  s = initinetserver(service,protocol);
+        else
+	  s = 0;
+	if (s<0) {
+		return -1;
+	}
+	if (initfunc != NULL) {
+	   printf("in inetsingleserver before initfunc s %d\n",s);
+	   if ((*initfunc)(s)<0) {
+		perror("initfunc error");
+		return -1;
+	   }
+	   printf("end inetsingleserver before initfunc \n");
+        }
+	return s;
+}
+
+int inetsingleserver(service,protocol,serverfunc,initfunc)
+char *service;
+char *protocol;
+int (*initfunc) ARG((int));
+int (*serverfunc) ARG((int));
+{
+	int s;
+	if (!INETDstart)
+	  s = initinetserver(service,protocol);
+        else
+	  s = 0;
+	if (s<0) {
+		return -1;
+	}
+	if (initfunc != NULL) {
+	   printf("in inetsingleserver before initfunc s %d\n",s);
+	   if ((*initfunc)(s)<0) {
+		perror("initfunc error");
+		return -1;
+	   }
+	   printf("end inetsingleserver before initfunc \n");
+        }
+	{
+		int ns=tryaccept(s);
+		int result=0;
+		if (ns < 0 && errno != EINTR){
+#ifdef DEBUGSERVER
+			perror("accept");
+#endif
+		}
+		close(s);
+		if (serverfunc != NULL)
+		   result = (*serverfunc)(ns);
+		close(ns);
+		return(result);
+	}
+}
+
+
+int tryaccept(s)
+int s;
+{
+	int ns,fromlen;
+	struct sockaddr sockaddr;/*Internet endpoint address*/
+	fromlen=sizeof (struct sockaddr_in);
+
+#ifdef DEBUGSERVER
+	fputs("Listening again\n",stdout);
+#endif
+	do {
+	   ns = accept(s,&sockaddr,&fromlen);
+	   errno = 0;
+	} while ( ns < 0 && errno == EINTR );
+	return ns;
+}
+
+int inetserver(service,protocol,serverfunc)
+char *service;
+char *protocol;
+int (*serverfunc) ARG((int));
+{
+	int port,s;
+
+        if (!INETDstart)
+	 s = initinetserver(service,protocol);
+        else
+	 s = 0;
+	if (s<0) {
+		return -1;
+	}
+	for (;;) {
+		int ns=tryaccept(s);
+		int result=0;
+		int pid;
+		if (ns < 0 && errno != EINTR){
+#ifdef DEBUGSERVER
+			perror("accept");
+#endif
+			continue;
+		}
+#ifdef DEBUGSERVER
+		fputs("Accept OK\n",stdout);
+#endif
+		pid = fork();
+		if (pid==0) {
+			close(s);
+			if (serverfunc != NULL)
+			   result = (*serverfunc)(ns);
+			close(ns);
+			exit(result);
+		} else if (pid < 0) {
+			perror("fork");
+			return -1;
+		}
+		close(ns);
+	}
+	return 0;
+}
+
+int inetclient(server,service,protocol) 
+char *server;
+char *protocol;
+char *service;
+{
+        struct servent *se;    /*service information entry*/
+	struct hostent *he;    /*host information entry*/
+	struct protoent *pe;   /*protocol information entry*/
+	struct sockaddr_in sin;/*Internet endpoint address*/
+	int port,s;
+
+	bzero((char*)&sin,sizeof(sin));
+	sin.sin_family= AF_INET;
+
+	if (service==NULL) 
+	     service=DEFAULTPORT;
+	if (protocol==NULL)
+	     protocol="tcp";
+	if (server==NULL)
+	     server=DEFAULTSERVER;
+        /* map service name to port number */
+	/* service ---> port */
+	se = getservbyname(service,protocol);
+	if (se==NULL) {
+	  port = htons((u_short)atoi(service)); 
+	  if (port==0) {
+	   fprintf (stderr, "%s/%s: Unknown service.\n",service,protocol);
+	   return (-1);
+	  }
+        } else 
+	        port=se->s_port;
+	sin.sin_port = port;
+
+	/* map server hostname to IP address, allowing for dotted decimal */
+	he=gethostbyname(server);
+	if (he==NULL) {
+	  sin.sin_addr.s_addr = inet_addr(server);
+	  if (sin.sin_addr.s_addr==INADDR_NONE) {
+	   fprintf (stderr, "%s: Unknown host.\n",server);
+	   return (-1);
+	  }
+	} else
+	  bcopy(he->h_addr,(char*)&sin.sin_addr,he->h_length);
+
+        /* map protocol name to protocol number */
+	pe=getprotobyname(protocol);
+	if (pe==NULL) {
+	 fprintf(stderr,"%s: Unknown protocol.\n",protocol);
+	 return (-1);
+	}
+
+        /* Allocate a socket */
+	s = socket(PF_INET,strcmp(protocol,"tcp")?SOCK_DGRAM:SOCK_STREAM,pe->p_proto);
+	if (s<0) {
+		perror("socket");
+		return -1;
+	}
+
+       if (setjmp(timebuf) == 0)
+       {
+        signal(SIGALRM, timeout);
+        alarm(5);
+        if (connect(s,(struct sockaddr*)&sin,sizeof(sin))<0)
+          {
+                alarm(0);
+                return -1;
+          }
+       }
+       else
+       {
+                alarm(0);
+                return -1;
+       }
+        alarm(0);
+
+	return s;
+}
+
+int unixclient(path,protocol) 
+char *path;
+char *protocol;
+{
+	struct protoent *pe;    /*protocol information entry*/
+	struct sockaddr_un s_un;/*unix endpoint address*/
+	int s;
+
+	bzero((char*)&s_un,sizeof(s_un));
+	s_un.sun_family= AF_UNIX;
+
+	if (path==NULL) 
+	     path=DEFAULTPATH;
+	if (protocol==NULL)
+	     protocol="tcp";
+	strcpy(s_un.sun_path , path);
+
+        /* map protocol name to protocol number */
+	pe=getprotobyname(protocol);
+	if (pe==NULL) {
+	 fprintf(stderr,"%s: Unknown protocol.\n",protocol);
+	 return (-1);
+	}
+        /* Allocate a socket */
+	s = socket(PF_UNIX,strcmp(protocol,"tcp")?SOCK_DGRAM:SOCK_STREAM,0);
+	if (s<0) {
+		perror("socket");
+		return -1;
+	}
+	/* Connect the socket to the server */
+	if (connect(s,(struct sockaddr*)&s_un,sizeof(s_un))<0) {
+		/*perror("connect");*/
+		return -1;
+	}
+	return s;
+}
diff --git a/pttbbs/innbbsd/ctlinnbbsd.c b/pttbbs/innbbsd/ctlinnbbsd.c
new file mode 100644
index 00000000..4ba77b52
--- /dev/null
+++ b/pttbbs/innbbsd/ctlinnbbsd.c
@@ -0,0 +1,160 @@
+#include "innbbsconf.h"
+#include "bbslib.h"
+
+extern char *optarg;
+extern int opterr, optind;
+
+usage(name)
+char *name;
+{
+   fprintf(stderr, "Usage: %s [-p path] commands\n",name);
+   fprintf(stderr, " where available commands:\n");
+   fprintf(stderr,"  ctlinnbbsd reload   : reload datafiles for innbbsd\n");
+   fprintf(stderr,"  ctlinnbbsd shutdown : shutdown innbbsd gracefully\n");
+   fprintf(stderr,"  ctlinnbbsd mode     : examine mode of innbbsd\n");
+   fprintf(stderr,"  ctlinnbbsd addhist <mid> path: add history\n");
+   fprintf(stderr,"  ctlinnbbsd grephist <mid>: query history\n");
+   fprintf(stderr,"  ctlinnbbsd verboselog on|off : verboselog on/off\n");
+   fprintf(stderr,"  ctlinnbbsd hismaint : maintain history\n");
+   fprintf(stderr,"  ctlinnbbsd listnodelist  : list nodelist.bbs\n");
+   fprintf(stderr,"  ctlinnbbsd listnewsfeeds : list newsfeeds.bbs\n");
+#ifdef GETRUSAGE
+   fprintf(stderr,"  ctlinnbbsd getrusage: get resource usage\n");
+#endif
+#ifdef MALLOCMAP
+   fprintf(stderr,"  ctlinnbbsd mallocmap: get malloc map\n");
+#endif
+}
+
+
+char *DefaultPath = LOCALDAEMON;
+char INNBBSbuffer[4096];
+
+FILE *innbbsin, *innbbsout;
+int innbbsfd;
+
+ctlinnbbsd(argc, argv)
+int argc;
+char **argv;
+{
+	fgets(INNBBSbuffer, sizeof INNBBSbuffer, innbbsin);
+	printf("%s",INNBBSbuffer);
+	if (strcasecmp(argv[0], "shutdown")==0   || 
+	    strcasecmp(argv[0], "reload")==0     ||
+	    strcasecmp(argv[0], "hismaint")==0   ||
+#ifdef GETRUSAGE
+	    strcasecmp(argv[0], "getrusage")==0  ||
+#endif
+#ifdef MALLOCMAP
+	    strcasecmp(argv[0], "mallocmap")==0  ||
+#endif
+	    strcasecmp(argv[0], "mode")==0       ||
+	    strcasecmp(argv[0], "listnodelist")==0   ||
+	    strcasecmp(argv[0], "listnewsfeeds")==0     
+	    ) {
+	    fprintf( innbbsout, "%s\r\n", argv[0]);
+	    fflush( innbbsout);
+	    fgets(INNBBSbuffer, sizeof INNBBSbuffer, innbbsin);
+	    printf("%s",INNBBSbuffer);
+	    if (strcasecmp(argv[0], "mode") ==0
+#ifdef GETRUSAGE
+		||
+	        strcasecmp(argv[0], "getrusage") ==0  
+		||
+	        strcasecmp(argv[0], "mallocmap") ==0  
+#endif
+		||
+	        strcasecmp(argv[0], "listnodelist")==0   
+		||
+	        strcasecmp(argv[0], "listnewsfeeds")==0     
+	       ) {
+		while (fgets(INNBBSbuffer, sizeof INNBBSbuffer, innbbsin) != NULL) {
+		       if (strcmp(INNBBSbuffer,".\r\n")==0) {
+				break;
+		       }
+		       printf("%s",INNBBSbuffer);
+		}
+	    }
+	} else if (strcasecmp(argv[0], "grephist")==0 ||
+	    strcasecmp(argv[0], "verboselog")==0  ) {
+	    if (argc < 2) {
+	       usage("ctlinnbbsd");
+	    } else {
+		fprintf( innbbsout, "%s %s\r\n", argv[0], argv[1]);
+		fflush( innbbsout);
+		fgets(INNBBSbuffer, sizeof INNBBSbuffer, innbbsin);
+		printf("%s\n",INNBBSbuffer);
+	    }
+	} else if (strcasecmp(argv[0], "addhist")==0) {
+	    if (argc < 3) {
+	       usage("ctlinnbbsd");
+	    } else {
+		fprintf( innbbsout, "%s %s %s\r\n", argv[0], argv[1], argv[2]);
+		fflush( innbbsout);
+		fgets(INNBBSbuffer, sizeof INNBBSbuffer, innbbsin);
+		printf("%s",INNBBSbuffer);
+	    }
+	} else {
+	    fprintf(stderr, "invalid command %s\n", argv[0]);
+	}
+	if (strcasecmp(argv[0],"shutdown") != 0) {
+		fprintf( innbbsout, "QUIT\r\n");
+		fflush(innbbsout);
+		fgets(INNBBSbuffer, sizeof INNBBSbuffer, innbbsin);
+	}
+}
+
+initsocket()
+{
+     innbbsfd = unixclient(DefaultPath,"tcp");
+     if (innbbsfd < 0) {
+        fprintf(stderr, "Connect to %s error. You may not run innbbsd\n", DefaultPath);
+        exit(2);
+     }
+     if ( (innbbsin= fdopen(innbbsfd,"r")) == NULL ||
+          (innbbsout= fdopen(innbbsfd,"w"))== NULL ) {
+       fprintf( stderr, "fdopen error\n");
+       exit(3);
+     }
+}
+
+closesocket()
+{
+    if (innbbsin != NULL)
+       fclose(innbbsin);
+    if (innbbsout != NULL)
+       fclose(innbbsout);
+    if (innbbsfd >= 0)
+       close(innbbsfd);
+}
+
+main(argc, argv)
+int argc;
+char **argv;
+{
+    int c, errflag=0;
+
+    while ((c = getopt(argc,argv,"p:h?"))!= -1)
+      switch (c) {
+      case 'p':
+       DefaultPath = optarg;
+       break;
+      case 'h':
+      case '?':
+      default:
+       errflag ++;
+       break;
+    }
+    if (errflag > 0) {
+       usage(argv[0]);
+       return(1);
+    }
+    if (argc - optind < 1) {
+       usage(argv[0]);
+       exit(1);
+    }
+    initial_bbs(NULL);
+    initsocket();
+    ctlinnbbsd(argc-optind, argv+optind);
+    closesocket();
+}
diff --git a/pttbbs/innbbsd/daemon.c b/pttbbs/innbbsd/daemon.c
new file mode 100644
index 00000000..973a96c8
--- /dev/null
+++ b/pttbbs/innbbsd/daemon.c
@@ -0,0 +1,173 @@
+#include "daemon.h"
+/*
+typedef struct daemoncmd {
+	char *cmdname;
+	char *usage;
+	int argc;
+	int (*main) ARG((FILE*,FILE*,int,char**,char*));
+} daemoncmd_t;
+
+*/
+
+void deargify ARG((char ***));
+static daemoncmd_t *dcmdp=NULL;
+static char *startupmessage=NULL;
+static int startupcode=100;
+static FILE *DIN,*DOUT,*DIO;
+typedef int (*F)();
+
+void installdaemon(cmds,code,startupmsg)
+daemoncmd_t *cmds;
+int code;
+char *startupmsg;
+{
+	dcmdp = cmds;
+	startupcode = code;
+	startupmessage = startupmsg;
+}
+
+daemoncmd_t *searchcmd(cmd)
+char *cmd;
+{
+	daemoncmd_t *p;
+	for (p=dcmdp;p->name != NULL ; p++) {
+#ifdef DEBUGCMD
+		printf("searching name %s for cmd %s\n",p->name,cmd);
+#endif
+		if (!strncasecmp(p->name,cmd,1024)) 
+			return p;
+	}
+	return NULL;
+}
+
+#if 0
+int daemon(dfd)
+int dfd;
+{
+	static char BUF[1024];
+	/*hash_init();*/
+	if (dfd > 0) {
+	  DIO = fdopen(dfd,"rw");
+	  DIN = fdopen(dfd,"r");			
+	  DOUT = fdopen(dfd,"w");			
+	  if (DIO == NULL || DIN == NULL || DOUT == NULL) {
+		perror("fdopen");
+		return -1;
+	  }
+	}
+	if (startupmessage) {
+	   fprintf(DOUT,"%d %s\n",startupcode,startupmessage);
+	   fflush(DOUT);
+	}
+	while (fgets(BUF,1024,DIN) != NULL) {
+		int i;
+		int (*Main)();
+		daemoncmd_t *dp;
+		argv_t Argv;
+
+		char *p=(char*)strchr(BUF,'\r');
+		if (p == NULL) p=(char*)strchr(BUF,'\n');
+		if (p == NULL) continue;
+		*p='\0';
+		if (p==BUF) continue;
+
+	        Argv.argc = 0, Argv.argv = NULL, Argv.inputline=BUF;
+		Argv.in = DIN, Argv.out = DOUT;
+		printf("command entered: %s\n",BUF);
+#ifdef DEBUGSERVER
+		fprintf(DOUT,"BUF in client %s\n",BUF);
+		fprintf(stdout,"BUF in server %s\n",BUF);
+		fflush(DOUT);
+#endif
+		Argv.argc = argify(BUF,&Argv.argv);
+#ifdef DEBUGSERVER
+		fprintf(stdout,"argc %d argv ",Argv.argc);   
+		for (i=0;i<Argv.argc;++i)
+		 fprintf(stdout,"%s ",Argv.argv[i]);
+		fprintf(stdout,"\n");   
+#endif
+		dp = searchcmd(Argv.argv[0]);
+		Argv.dc = dp;
+		if (dp) {
+#ifdef DEBUGSERVER
+		  printf("find cmd %s by %s\n",dp->name,dp->usage);
+#endif
+		  if (Argv.argc < dp->argc) {
+			fprintf(DOUT,"%d Usage: %s\n",dp->errorcode,dp->usage);
+			fflush(DOUT);
+			goto cont;
+		  }
+		  if (dp->argno != 0 && Argv.argc > dp->argno) {
+			fprintf(DOUT,"%d Usage: %s\n",dp->errorcode,dp->usage);
+			fflush(DOUT);
+			goto cont;
+		  }
+		  Main=dp->main;
+		  if (Main) {
+			  fflush(stdout);
+			  (*Main)(&Argv);
+		  }
+		}
+		else {
+			fprintf(DOUT,"99 command %s not available\n",Argv.argv[0]);
+			fflush(DOUT);
+		}
+cont:
+		deargify(&Argv.argv);
+	}
+	/*hash_reclaim();*/
+}
+#endif
+
+#define MAX_ARG 32
+#define MAX_ARG_SIZE 16384
+
+int argify(line, argvp)
+char *line, ***argvp; 
+{
+	   static char *argvbuffer[MAX_ARG+2];
+	   char **argv = argvbuffer;
+	   int i;
+	   static char argifybuffer[MAX_ARG_SIZE];
+	   char *p;
+	   while (strchr("\t\n\r ",*line)) line++;
+	   i=strlen(line);
+	   /*p=(char*) mymalloc(i+1);*/
+	   p = argifybuffer;
+	   strncpy(p,line, sizeof argifybuffer);
+	   for (*argvp = argv, i=0 ;*p && i < MAX_ARG;){
+		for (*argv++=p;*p && !strchr("\t\r\n ",*p);p++);
+		if (*p=='\0') break;
+		for (*p++='\0'; strchr("\t\r\n ",*p) && *p;p++);
+	   }
+	   *argv = NULL;
+	   return argv - *argvp;
+}
+
+void deargify (argv)
+char ***argv;
+{
+	return;
+	/*if (*argv != NULL) {
+	  if (*argv[0] != NULL){
+	     free(*argv[0]);
+	     *argv[0] = NULL;
+	  }
+	  free(*argv);
+	  *argv = NULL;
+	}*/
+}
+
+int daemonprintf(format)
+char *format;
+{
+	fprintf(DOUT,format);
+	fflush(DOUT);
+}
+
+int daemonputs(output)
+char* output;
+{
+   fputs(output, DOUT);
+   fflush(DOUT);
+}
diff --git a/pttbbs/innbbsd/daemon.h b/pttbbs/innbbsd/daemon.h
new file mode 100644
index 00000000..d056051f
--- /dev/null
+++ b/pttbbs/innbbsd/daemon.h
@@ -0,0 +1,54 @@
+#ifndef DAEMON_H
+#define DAEMON_H
+
+#include <stdio.h>
+#include <time.h>
+
+#ifndef ARG
+# ifdef __STDC__
+#  define ARG(x) x
+# else
+#  define ARG(x) ()
+# endif
+#endif
+
+
+struct Argv_t {
+	FILE *in,*out;
+	int argc;
+	char **argv;
+	char *inputline;
+	struct Daemoncmd *dc;
+};
+
+typedef struct Argv_t argv_t;
+
+typedef struct Buffer_t {
+  char *data;
+  int  used, left, lastread;
+} buffer_t;
+
+typedef struct ClientType {
+  char hostname[1024];
+  char username[32];
+  char buffer[4096];
+  int  mode;
+  argv_t Argv;
+  int fd, access, lastread, midcheck;
+  buffer_t in,out;
+  int ihavecount, ihavesize, ihaveduplicate, ihavefail;
+  int statcount, statfail;
+  time_t begin;
+} ClientType;
+
+typedef struct Daemoncmd {
+	char *name;
+	char *usage;
+	int  argc, argno, errorcode, normalcode;
+	int (*main) ARG(( ClientType*));
+} daemoncmd_t;
+ 
+extern void installdaemon ARG((daemoncmd_t *,int,char*));
+extern ClientType *Channel;
+
+#endif
diff --git a/pttbbs/innbbsd/dbz.c b/pttbbs/innbbsd/dbz.c
new file mode 100644
index 00000000..6fd15df8
--- /dev/null
+++ b/pttbbs/innbbsd/dbz.c
@@ -0,0 +1,1918 @@
+/*
+
+dbz.c  V3.2
+
+Copyright 1988 Jon Zeeff (zeeff@b-tech.ann-arbor.mi.us)
+You can use this code in any manner, as long as you leave my name on it
+and don't hold me responsible for any problems with it.
+
+Hacked on by gdb@ninja.UUCP (David Butler); Sun Jun  5 00:27:08 CDT 1988
+
+Various improvments + INCORE by moraes@ai.toronto.edu (Mark Moraes)
+
+Major reworking by Henry Spencer as part of the C News project.
+
+Minor lint and CodeCenter (Saber) fluff removal by Rich $alz (March, 1991).
+Non-portable CloseOnExec() calls added by Rich $alz (September, 1991).
+Added "writethrough" and tagmask calculation code from
+<rob@violet.berkeley.edu> and <leres@ee.lbl.gov> by Rich $alz (December, 1992).
+Merged in MMAP code by David Robinson, formerly <david@elroy.jpl.nasa.gov>
+now <david.robinson@sun.com> (January, 1993).
+
+These routines replace dbm as used by the usenet news software
+(it's not a full dbm replacement by any means).  It's fast and
+simple.  It contains no AT&T code.
+
+In general, dbz's files are 1/20 the size of dbm's.  Lookup performance
+is somewhat better, while file creation is spectacularly faster, especially
+if the incore facility is used.
+
+*/
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <ctype.h>
+#include <errno.h>
+#ifndef __STDC__
+extern int errno;
+#endif
+#include <dbz.h>
+#include "clibrary.h"
+
+/*
+ * #ifdef index.  "LIA" = "leave it alone unless you know what you're doing".
+ *
+ * FUNNYSEEKS	SEEK_SET is not 0, get it from <unistd.h>
+ * INDEX_SIZE	backward compatibility with old dbz; avoid using this
+ * NMEMORY	number of days of memory for use in sizing new table (LIA)
+ * INCORE	backward compatibility with old dbz; use dbzincore() instead
+ * DBZDEBUG	enable debugging
+ * DEFSIZE	default table size (not as critical as in old dbz)
+ * OLDBNEWS	default case mapping as in old B News; set NOBUFFER
+ * BNEWS	default case mapping as in current B News; set NOBUFFER
+ * DEFCASE	default case-map algorithm selector
+ * NOTAGS	fseek offsets are strange, do not do tagging (see below)
+ * NPAGBUF	size of .pag buffer, in longs (LIA)
+ * SHISTBUF	size of ASCII-file buffer, in bytes (LIA)
+ * MAXRUN	length of run which shifts to next table (see below) (LIA)
+ * OVERFLOW	long-int arithmetic overflow must be avoided, will trap
+ * NOBUFFER	do not buffer hash-table i/o, B News locking is defective
+ * MMAP		Use SunOS style mmap() for efficient incore
+ */
+/* SUPPRESS 530 *//* Empty body for statement */
+/* SUPPRESS 701 on free *//* Conflicting declaration */
+
+#ifdef FUNNYSEEKS
+#include <unistd.h>
+#else
+#define	SEEK_SET	0
+#endif
+#ifdef OVERFLOW
+#include <limits.h>
+#endif
+
+static int dbzversion = 3;	/* for validating .dir file format */
+
+/*
+ * The dbz database exploits the fact that when news stores a <key,value>
+ * tuple, the `value' part is a seek offset into a text file, pointing to
+ * a copy of the `key' part.  This avoids the need to store a copy of
+ * the key in the dbz files.  However, the text file *must* exist and be
+ * consistent with the dbz files, or things will fail.
+ *
+ * The basic format of the database is a simple hash table containing the
+ * values.  A value is stored by indexing into the table using a hash value
+ * computed from the key; collisions are resolved by linear probing (just
+ * search forward for an empty slot, wrapping around to the beginning of
+ * the table if necessary).  Linear probing is a performance disaster when
+ * the table starts to get full, so a complication is introduced.  The
+ * database is actually one *or more* tables, stored sequentially in the
+ * .pag file, and the length of linear-probe sequences is limited.  The
+ * search (for an existing item or an empty slot) always starts in the
+ * first table, and whenever MAXRUN probes have been done in table N,
+ * probing continues in table N+1.  This behaves reasonably well even in
+ * cases of massive overflow.  There are some other small complications
+ * added, see comments below.
+ *
+ * The table size is fixed for any particular database, but is determined
+ * dynamically when a database is rebuilt.  The strategy is to try to pick
+ * the size so the first table will be no more than 2/3 full, that being
+ * slightly before the point where performance starts to degrade.  (It is
+ * desirable to be a bit conservative because the overflow strategy tends
+ * to produce files with holes in them, which is a nuisance.)
+ */
+
+/*
+ * The following is for backward compatibility.
+ */
+#ifdef INDEX_SIZE
+#define	DEFSIZE	INDEX_SIZE
+#endif
+
+/*
+ * ANSI C says an offset into a file is a long, not an off_t, for some
+ * reason.  This actually does simplify life a bit, but it's still nice
+ * to have a distinctive name for it.  Beware, this is just for readability,
+ * don't try to change this.
+ */
+#define	of_t	long
+#define	SOF	(sizeof(of_t))
+
+/*
+ * We assume that unused areas of a binary file are zeros, and that the
+ * bit pattern of `(of_t)0' is all zeros.  The alternative is rather
+ * painful file initialization.  Note that okayvalue(), if OVERFLOW is
+ * defined, knows what value of an offset would cause overflow.
+ */
+#define	VACANT		((of_t)0)
+#define	BIAS(o)		((o)+1)		/* make any valid of_t non-VACANT */
+#define	UNBIAS(o)	((o)-1)		/* reverse BIAS() effect */
+
+/*
+ * In a Unix implementation, or indeed any in which an of_t is a byte
+ * count, there are a bunch of high bits free in an of_t.  There is a
+ * use for them.  Checking a possible hit by looking it up in the base
+ * file is relatively expensive, and the cost can be dramatically reduced
+ * by using some of those high bits to tag the value with a few more bits
+ * of the key's hash.  This detects most false hits without the overhead of
+ * seek+read+strcmp.  We use the top bit to indicate whether the value is
+ * tagged or not, and don't tag a value which is using the tag bits itself.
+ * We're in trouble if the of_t representation wants to use the top bit.
+ * The actual bitmasks and offset come from the configuration stuff,
+ * which permits fiddling with them as necessary, and also suppressing
+ * them completely (by defining the masks to 0).  We build pre-shifted
+ * versions of the masks for efficiency.
+ */
+static of_t tagbits;		/* pre-shifted tag mask */
+static of_t taghere;		/* pre-shifted tag-enable bit */
+static of_t tagboth;		/* tagbits|taghere */
+#define	HASTAG(o)	((o)&taghere)
+#define	TAG(o)		((o)&tagbits)
+#define	NOTAG(o)	((o)&~tagboth)
+#define	CANTAG(o)	(((o)&tagboth) == 0)
+#define	MKTAG(v)	(((v)<<conf.tagshift)&tagbits)
+
+/*
+ * A new, from-scratch database, not built as a rebuild of an old one,
+ * needs to know table size, casemap algorithm, and tagging.  Normally
+ * the user supplies this info, but there have to be defaults.
+ */
+#ifndef DEFSIZE
+#define	DEFSIZE	120011		/* 300007 might be better */
+#endif
+#ifdef OLDBNEWS
+#define	DEFCASE	'0'		/* B2.10 -- no mapping */
+#define	NOBUFFER		/* B News locking is defective */
+#endif
+#ifdef BNEWS
+#define	DEFCASE	'='		/* B2.11 -- all mapped */
+#define	NOBUFFER		/* B News locking is defective */
+#endif
+#ifndef DEFCASE			/* C News compatibility is the default */
+#define	DEFCASE	'C'		/* C News -- RFC822 mapping */
+#endif
+#ifndef NOTAGS
+#define	TAGENB	0x80		/* tag enable is top bit, tag is next 7 */
+#define	TAGMASK	0x7f
+#define	TAGSHIFT	24
+#else
+#define	TAGENB	0		/* no tags */
+#define	TAGMASK	0
+#define	TAGSHIFT	0
+#endif
+
+/*
+ * We read configuration info from the .dir file into this structure,
+ * so we can avoid wired-in assumptions for an existing database.
+ *
+ * Among the info is a record of recent peak usages, so that a new table
+ * size can be chosen intelligently when rebuilding.  10 is a good
+ * number of usages to keep, since news displays marked fluctuations
+ * in volume on a 7-day cycle.
+ */
+struct dbzconfig {
+	int olddbz;		/* .dir file empty but .pag not? */
+	of_t tsize;		/* table size */
+#	ifndef NMEMORY
+#	define	NMEMORY	10	/* # days of use info to remember */
+#	endif
+#	define	NUSEDS	(1+NMEMORY)
+	of_t used[NUSEDS];	/* entries used today, yesterday, ... */
+	int valuesize;		/* size of table values, == SOF */
+	int bytemap[SOF];	/* byte-order map */
+	char casemap;		/* case-mapping algorithm (see cipoint()) */
+	char fieldsep;		/* field separator in base file, if any */
+	of_t tagenb;		/* unshifted tag-enable bit */
+	of_t tagmask;		/* unshifted tag mask */
+	int tagshift;		/* shift count for tagmask and tagenb */
+};
+static struct dbzconfig conf;
+static int getconf();
+static long getno();
+static int putconf();
+static void mybytemap();
+static of_t bytemap();
+
+/*
+ * Using mmap() is a more efficent way of keeping the .pag file incore.  On
+ * average, it cuts the number of system calls and buffer copies in half.
+ * It also allows one copy to be shared among many processes without
+ * consuming any extra resources.
+ */
+#ifdef MMAP
+#include <sys/mman.h>
+#ifdef MAP_FILE
+#define MAP__ARG	(MAP_FILE | MAP_SHARED)
+#else
+#define MAP__ARG	(MAP_SHARED)
+#endif
+#ifndef INCORE
+#define INCORE
+#endif
+#endif
+
+/* 
+ * For a program that makes many, many references to the database, it
+ * is a large performance win to keep the table in core, if it will fit.
+ * Note that this does hurt robustness in the event of crashes, and
+ * dbmclose() *must* be called to flush the in-core database to disk.
+ * The code is prepared to deal with the possibility that there isn't
+ * enough memory.  There *is* an assumption that a size_t is big enough
+ * to hold the size (in bytes) of one table, so dbminit() tries to figure
+ * out whether this is possible first.
+ *
+ * The preferred way to ask for an in-core table is to do dbzincore(1)
+ * before dbminit().  The default is not to do it, although -DINCORE
+ * overrides this for backward compatibility with old dbz.
+ *
+ * We keep only the first table in core.  This greatly simplifies the
+ * code, and bounds memory demand.  Furthermore, doing this is a large
+ * performance win even in the event of massive overflow.
+ */
+#ifdef INCORE
+static int incore = 1;
+#else
+static int incore = 0;
+#endif
+
+/*
+ * Write to filesystem even if incore?  This replaces a single multi-
+ * megabyte write when doing a dbzsync with a multi-byte write each
+ * time an article is added.  On most systems, this will give an overall
+ * performance boost.
+ */
+static int writethrough = 0;
+
+/*
+ * Stdio buffer for .pag reads.  Buffering more than about 16 does not help
+ * significantly at the densities we try to maintain, and the much larger
+ * buffers that most stdios default to are much more expensive to fill.
+ * With small buffers, stdio is performance-competitive with raw read(),
+ * and it's much more portable.
+ */
+#ifndef NPAGBUF
+#define	NPAGBUF	16
+#endif
+#ifndef NOBUFFER
+#ifdef _IOFBF
+static of_t pagbuf[NPAGBUF];	/* only needed if !NOBUFFER && _IOFBF */
+#endif
+#endif
+
+/*
+ * Stdio buffer for base-file reads.  Message-IDs (all news ever needs to
+ * read) are essentially never longer than 64 bytes, and the typical stdio
+ * buffer is so much larger that it is much more expensive to fill.
+ */
+#ifndef SHISTBUF
+#define	SHISTBUF	64
+#endif
+#ifdef _IOFBF
+static char basebuf[SHISTBUF];		/* only needed if _IOFBF exists */
+#endif
+
+/*
+ * Data structure for recording info about searches.
+ */
+struct searcher {
+	of_t place;		/* current location in file */
+	int tabno;		/* which table we're in */
+	int run;		/* how long we'll stay in this table */
+#		ifndef MAXRUN
+#		define	MAXRUN	100
+#		endif
+	long hash;		/* the key's hash code (for optimization) */
+	of_t tag;		/* tag we are looking for */
+	int seen;		/* have we examined current location? */
+	int aborted;		/* has i/o error aborted search? */
+};
+static void start();
+#define	FRESH	((struct searcher *)NULL)
+static of_t search();
+#define	NOTFOUND	((of_t)-1)
+static int okayvalue();
+static int set();
+
+/*
+ * Arguably the searcher struct for a given routine ought to be local to
+ * it, but a fetch() is very often immediately followed by a store(), and
+ * in some circumstances it is a useful performance win to remember where
+ * the fetch() completed.  So we use a global struct and remember whether
+ * it is current.
+ */
+static struct searcher srch;
+static struct searcher *prevp;	/* &srch or FRESH */
+
+/* byte-ordering stuff */
+static int mybmap[SOF];			/* my byte order (see mybytemap()) */
+static int bytesame;			/* is database order same as mine? */
+#define	MAPIN(o)	((bytesame) ? (o) : bytemap((o), conf.bytemap, mybmap))
+#define	MAPOUT(o)	((bytesame) ? (o) : bytemap((o), mybmap, conf.bytemap))
+
+/*
+ * The double parentheses needed to make this work are ugly, but the
+ * alternative (under most compilers) is to pack around 2K of unused
+ * strings -- there's just no way to get rid of them.
+ */
+#ifdef DBZDEBUG
+static int debug;			/* controlled by dbzdebug() */
+#define DEBUG(args) if (debug) { (void) printf args ; } else
+#else
+#define	DEBUG(args)	;
+#endif
+
+/* externals used */
+#if	0
+extern char *memcpy();
+extern char *memchr();
+extern char *malloc();
+extern char *calloc();
+extern void free();		/* ANSI C; some old implementations say int */
+#endif	/* 0 */
+extern int atoi();
+extern long atol();
+extern void CloseOnExec();
+
+/* misc. forwards */
+static long hash();
+static void crcinit();
+static char *cipoint();
+static char *mapcase();
+static int isprime();
+static FILE *latebase();
+
+/* file-naming stuff */
+static char dir[] = ".dir";
+static char pag[] = ".pag";
+static char *enstring();
+
+/* central data structures */
+static FILE *basef;		/* descriptor for base file */
+static char *basefname;		/* name for not-yet-opened base file */
+static FILE *dirf;		/* descriptor for .dir file */
+static int dirronly;		/* dirf open read-only? */
+static FILE *pagf = NULL;	/* descriptor for .pag file */
+static of_t pagpos;		/* posn in pagf; only search may set != -1 */
+static int pagronly;		/* pagf open read-only? */
+static of_t *corepag;		/* incore version of .pag file, if any */
+static FILE *bufpagf;		/* well-buffered pagf, for incore rewrite */
+static of_t *getcore();
+#ifndef MMAP
+static int putcore();
+#endif
+static int written;		/* has a store() been done? */
+
+/*
+ - dbzfresh - set up a new database, no historical info
+ */
+int				/* 0 success, -1 failure */
+dbzfresh(name, size, fs, cmap, tagmask)
+char *name;			/* base name; .dir and .pag must exist */
+long size;			/* table size (0 means default) */
+int fs;				/* field-separator character in base file */
+int cmap;			/* case-map algorithm (0 means default) */
+of_t tagmask;			/* 0 default, 1 no tags */
+{
+	register char *fn;
+	struct dbzconfig c;
+	register of_t m;
+	register FILE *f;
+
+	if (pagf != NULL) {
+		DEBUG(("dbzfresh: database already open\n"));
+		return(-1);
+	}
+	if (size != 0 && size < 2) {
+		DEBUG(("dbzfresh: preposterous size (%ld)\n", size));
+		return(-1);
+	}
+
+	/* get default configuration */
+	if (getconf((FILE *)NULL, (FILE *)NULL, &c) < 0)
+		return(-1);	/* "can't happen" */
+
+	/* and mess with it as specified */
+	if (size != 0)
+		c.tsize = size;
+	c.fieldsep = fs;
+	switch (cmap) {
+	case 0:
+	case '0':
+	case 'B':		/* 2.10 compat */
+		c.casemap = '0';	/* '\0' nicer, but '0' printable! */
+		break;
+	case '=':
+	case 'b':		/* 2.11 compat */
+		c.casemap = '=';
+		break;
+	case 'C':
+		c.casemap = 'C';
+		break;
+	case '?':
+		c.casemap = DEFCASE;
+		break;
+	default:
+		DEBUG(("dbzfresh case map `%c' unknown\n", cmap));
+		return(-1);
+	}
+	switch ((int)tagmask) {
+	case 0:			/* default */
+		break;
+	case 1:			/* no tags */
+		c.tagshift = 0;
+		c.tagmask = 0;
+		c.tagenb = 0;
+		break;
+	default:
+		m = tagmask;
+		c.tagshift = 0;
+		while (!(m&01)) {
+			m >>= 1;
+			c.tagshift++;
+		}
+		c.tagmask = m;
+		c.tagenb = (m << 1) & ~m;
+		break;
+	}
+
+	/* write it out */
+	fn = enstring(name, dir);
+	if (fn == NULL)
+		return(-1);
+	f = fopen(fn, "w");
+	free((POINTER)fn);
+	if (f == NULL) {
+		DEBUG(("dbzfresh: unable to write config\n"));
+		return(-1);
+	}
+	if (putconf(f, &c) < 0) {
+		(void) fclose(f);
+		return(-1);
+	}
+	if (fclose(f) == EOF) {
+		DEBUG(("dbzfresh: fclose failure\n"));
+		return(-1);
+	}
+
+	/* create/truncate .pag */
+	fn = enstring(name, pag);
+	if (fn == NULL)
+		return(-1);
+	f = fopen(fn, "w");
+	free((POINTER)fn);
+	if (f == NULL) {
+		DEBUG(("dbzfresh: unable to create/truncate .pag file\n"));
+		return(-1);
+	} else
+		(void) fclose(f);
+
+	/* and punt to dbminit for the hard work */
+	return(dbminit(name));
+}
+
+/*
+ - dbzsize - what's a good table size to hold this many entries?
+ */
+long
+dbzsize(contents)
+long contents;			/* 0 means what's the default */
+{
+	register long n;
+
+	if (contents <= 0) {	/* foulup or default inquiry */
+		DEBUG(("dbzsize: preposterous input (%ld)\n", contents));
+		return(DEFSIZE);
+	}
+	n = (contents/2)*3;	/* try to keep table at most 2/3 full */
+	if (!(n&01))		/* make it odd */
+		n++;
+	DEBUG(("dbzsize: tentative size %ld\n", n));
+	while (!isprime(n))	/* and look for a prime */
+		n += 2;
+	DEBUG(("dbzsize: final size %ld\n", n));
+
+	return(n);
+}
+
+/*
+ - isprime - is a number prime?
+ *
+ * This is not a terribly efficient approach.
+ */
+static int			/* predicate */
+isprime(x)
+register long x;
+{
+	static int quick[] = { 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 0 };
+	register int *ip;
+	register long div;
+	register long stop;
+
+	/* hit the first few primes quickly to eliminate easy ones */
+	/* this incidentally prevents ridiculously small tables */
+	for (ip = quick; (div = *ip) != 0; ip++)
+		if (x%div == 0) {
+			DEBUG(("isprime: quick result on %ld\n", (long)x));
+			return(0);
+		}
+
+	/* approximate square root of x */
+	for (stop = x; x/stop < stop; stop >>= 1)
+		continue;
+	stop <<= 1;
+
+	/* try odd numbers up to stop */
+	for (div = *--ip; div < stop; div += 2)
+		if (x%div == 0)
+			return(0);
+
+	return(1);
+}
+
+/*
+ - dbzagain - set up a new database to be a rebuild of an old one
+ */
+int				/* 0 success, -1 failure */
+dbzagain(name, oldname)
+char *name;			/* base name; .dir and .pag must exist */
+char *oldname;			/* base name; all must exist */
+{
+	register char *fn;
+	struct dbzconfig c;
+	register int i;
+	register long top;
+	register FILE *f;
+	register int newtable;
+	register of_t newsize;
+	struct stat sb;
+	register of_t m;
+
+	if (pagf != NULL) {
+		DEBUG(("dbzagain: database already open\n"));
+		return(-1);
+	}
+
+	/* pick up the old configuration */
+	fn = enstring(oldname, dir);
+	if (fn == NULL)
+		return(-1);
+	f = fopen(fn, "r");
+	free((POINTER)fn);
+	if (f == NULL) {
+		DEBUG(("dbzagain: cannot open old .dir file\n"));
+		return(-1);
+	}
+	i = getconf(f, (FILE *)NULL, &c);
+	(void) fclose(f);
+	if (i < 0) {
+		DEBUG(("dbzagain: getconf failed\n"));
+		return(-1);
+	}
+
+	/* calculate tagging from old file */
+	if (stat(oldname, &sb) != -1) {
+		 for (m = 1, i = 0; m < sb.st_size; i++, m <<= 1)
+			 continue;
+		 
+		 /* if we had more tags than the default, use the new data */
+		 if ((c.tagmask | c.tagenb) && m > (1 << TAGSHIFT)) {
+			  c.tagshift = i;
+			  c.tagmask = (~(unsigned long)0) >> (i + 1);
+			  c.tagenb = (c.tagmask << 1) & ~c.tagmask;
+		 }
+	}
+
+	/* tinker with it */
+	top = 0;
+	newtable = 0;
+	for (i = 0; i < NUSEDS; i++) {
+		if (top < c.used[i])
+			top = c.used[i];
+		if (c.used[i] == 0)
+			newtable = 1;	/* hasn't got full usage history yet */
+	}
+	if (top == 0) {
+		DEBUG(("dbzagain: old table has no contents!\n"));
+		newtable = 1;
+	}
+	for (i = NUSEDS-1; i > 0; i--)
+		c.used[i] = c.used[i-1];
+	c.used[0] = 0;
+	newsize = dbzsize(top);
+	if (!newtable || newsize > c.tsize)	/* don't shrink new table */
+		c.tsize = newsize;
+
+	/* write it out */
+	fn = enstring(name, dir);
+	if (fn == NULL)
+		return(-1);
+	f = fopen(fn, "w");
+	free((POINTER)fn);
+	if (f == NULL) {
+		DEBUG(("dbzagain: unable to write new .dir\n"));
+		return(-1);
+	}
+	i = putconf(f, &c);
+	(void) fclose(f);
+	if (i < 0) {
+		DEBUG(("dbzagain: putconf failed\n"));
+		return(-1);
+	}
+
+	/* create/truncate .pag */
+	fn = enstring(name, pag);
+	if (fn == NULL)
+		return(-1);
+	f = fopen(fn, "w");
+	free((POINTER)fn);
+	if (f == NULL) {
+		DEBUG(("dbzagain: unable to create/truncate .pag file\n"));
+		return(-1);
+	} else
+		(void) fclose(f);
+
+	/* and let dbminit do the work */
+	return(dbminit(name));
+}
+
+/*
+ - dbminit - open a database, creating it (using defaults) if necessary
+ *
+ * We try to leave errno set plausibly, to the extent that underlying
+ * functions permit this, since many people consult it if dbminit() fails.
+ */
+int 				/* 0 success, -1 failure */
+dbminit(name)
+char *name;
+{
+	register int i;
+	register size_t s;
+	register char *dirfname;
+	register char *pagfname;
+
+	if (pagf != NULL) {
+		DEBUG(("dbminit: dbminit already called once\n"));
+		errno = 0;
+		return(-1);
+	}
+
+	/* open the .dir file */
+	dirfname = enstring(name, dir);
+	if (dirfname == NULL)
+		return(-1);
+	dirf = fopen(dirfname, "r+");
+	if (dirf == NULL) {
+		dirf = fopen(dirfname, "r");
+		dirronly = 1;
+	} else
+		dirronly = 0;
+	free((POINTER)dirfname);
+	if (dirf == NULL) {
+		DEBUG(("dbminit: can't open .dir file\n"));
+		return(-1);
+	}
+	CloseOnExec((int)fileno(dirf), 1);
+
+	/* open the .pag file */
+	pagfname = enstring(name, pag);
+	if (pagfname == NULL) {
+		(void) fclose(dirf);
+		return(-1);
+	}
+	pagf = fopen(pagfname, "r+b");
+	if (pagf == NULL) {
+		pagf = fopen(pagfname, "rb");
+		if (pagf == NULL) {
+			DEBUG(("dbminit: .pag open failed\n"));
+			(void) fclose(dirf);
+			free((POINTER)pagfname);
+			return(-1);
+		}
+		pagronly = 1;
+	} else if (dirronly)
+		pagronly = 1;
+	else
+		pagronly = 0;
+	if (pagf != NULL)
+		CloseOnExec((int)fileno(pagf), 1);
+#ifdef NOBUFFER
+	/*
+	 * B News does not do adequate locking on its database accesses.
+	 * Why it doesn't get into trouble using dbm is a mystery.  In any
+	 * case, doing unbuffered i/o does not cure the problem, but does
+	 * enormously reduce its incidence.
+	 */
+	(void) setbuf(pagf, (char *)NULL);
+#else
+#ifdef _IOFBF
+	(void) setvbuf(pagf, (char *)pagbuf, _IOFBF, sizeof(pagbuf));
+#endif
+#endif
+	pagpos = -1;
+	/* don't free pagfname, need it below */
+
+	/* open the base file */
+	basef = fopen(name, "r");
+	if (basef == NULL) {
+		DEBUG(("dbminit: basefile open failed\n"));
+		basefname = enstring(name, "");
+		if (basefname == NULL) {
+			(void) fclose(pagf);
+			(void) fclose(dirf);
+			free((POINTER)pagfname);
+			pagf = NULL;
+			return(-1);
+		}
+	} else
+		basefname = NULL;
+	if (basef != NULL)
+		CloseOnExec((int)fileno(basef), 1);
+#ifdef _IOFBF
+	if (basef != NULL)
+		(void) setvbuf(basef, basebuf, _IOFBF, sizeof(basebuf));
+#endif
+
+	/* pick up configuration */
+	if (getconf(dirf, pagf, &conf) < 0) {
+		DEBUG(("dbminit: getconf failure\n"));
+		(void) fclose(basef);
+		(void) fclose(pagf);
+		(void) fclose(dirf);
+		free((POINTER)pagfname);
+		pagf = NULL;
+		errno = EDOM;	/* kind of a kludge, but very portable */
+		return(-1);
+	}
+	tagbits = conf.tagmask << conf.tagshift;
+	taghere = conf.tagenb << conf.tagshift;
+	tagboth = tagbits | taghere;
+	mybytemap(mybmap);
+	bytesame = 1;
+	for (i = 0; i < SOF; i++)
+		if (mybmap[i] != conf.bytemap[i])
+			bytesame = 0;
+
+	/* get first table into core, if it looks desirable and feasible */
+	s = (size_t)conf.tsize * SOF;
+	if (incore && (of_t)(s/SOF) == conf.tsize) {
+		bufpagf = fopen(pagfname, (pagronly) ? "rb" : "r+b");
+		if (bufpagf != NULL) {
+			corepag = getcore(bufpagf);
+			CloseOnExec((int)fileno(bufpagf), 1);
+		}
+	} else {
+		bufpagf = NULL;
+		corepag = NULL;
+	}
+	free((POINTER)pagfname);
+
+	/* misc. setup */
+	crcinit();
+	written = 0;
+	prevp = FRESH;
+	DEBUG(("dbminit: succeeded\n"));
+	return(0);
+}
+
+/*
+ - enstring - concatenate two strings into a malloced area
+ */
+static char *			/* NULL if malloc fails */
+enstring(s1, s2)
+char *s1;
+char *s2;
+{
+	register char *p;
+
+	p = malloc((size_t)strlen(s1) + (size_t)strlen(s2) + 1);
+	if (p != NULL) {
+		(void) strcpy(p, s1);
+		(void) strcat(p, s2);
+	} else {
+		DEBUG(("enstring(%s, %s) out of memory\n", s1, s2));
+	}
+	return(p);
+}
+
+/*
+ - dbmclose - close a database
+ */
+int
+dbmclose()
+{
+	register int ret = 0;
+
+	if (pagf == NULL) {
+		DEBUG(("dbmclose: not opened!\n"));
+		return(-1);
+	}
+
+	if (fclose(pagf) == EOF) {
+		DEBUG(("dbmclose: fclose(pagf) failed\n"));
+		ret = -1;
+	}
+	pagf = basef;		/* ensure valid pointer; dbzsync checks it */
+	if (dbzsync() < 0)
+		ret = -1;
+	if (bufpagf != NULL && fclose(bufpagf) == EOF) {
+		DEBUG(("dbmclose: fclose(bufpagf) failed\n"));
+		ret = -1;
+	}
+	if (corepag != NULL)
+#ifdef MMAP
+		if (munmap((caddr_t)corepag, (int)conf.tsize * SOF) == -1) {
+			DEBUG(("dbmclose: munmap failed\n"));
+			ret = -1;
+		}
+#else
+		free((POINTER)corepag);
+#endif
+	corepag = NULL;
+	if (basef) {
+	  if (fclose(basef) == EOF) {
+		DEBUG(("dbmclose: fclose(basef) failed\n"));
+		ret = -1;
+	  }
+	}
+	if (basefname != NULL)
+		free((POINTER)basefname);
+	basef = NULL;
+	pagf = NULL;
+	if (fclose(dirf) == EOF) {
+		DEBUG(("dbmclose: fclose(dirf) failed\n"));
+		ret = -1;
+	}
+
+	DEBUG(("dbmclose: %s\n", (ret == 0) ? "succeeded" : "failed"));
+	return(ret);
+}
+
+/*
+ - dbzsync - push all in-core data out to disk
+ */
+int
+dbzsync()
+{
+	register int ret = 0;
+
+	if (pagf == NULL) {
+		DEBUG(("dbzsync: not opened!\n"));
+		return(-1);
+	}
+	if (!written)
+		return(0);
+
+#ifndef MMAP
+	if (corepag != NULL && !writethrough) {
+		if (putcore(corepag, bufpagf) < 0) {
+			DEBUG(("dbzsync: putcore failed\n"));
+			ret = -1;
+		}
+	}
+#endif
+	if (!conf.olddbz)
+		if (putconf(dirf, &conf) < 0)
+			ret = -1;
+
+	DEBUG(("dbzsync: %s\n", (ret == 0) ? "succeeded" : "failed"));
+	return(ret);
+}
+
+/*
+ - dbzcancel - cancel writing of in-core data
+ * Mostly for use from child processes.
+ * Note that we don't need to futz around with stdio buffers, because we
+ * always fflush them immediately anyway and so they never have stale data.
+ */
+int
+dbzcancel()
+{
+	if (pagf == NULL) {
+		DEBUG(("dbzcancel: not opened!\n"));
+		return(-1);
+	}
+
+	written = 0;
+	return(0);
+}
+
+/*
+ - dbzfetch - fetch() with case mapping built in
+ */
+datum
+dbzfetch(key)
+datum key;
+{
+	char buffer[DBZMAXKEY + 1];
+	datum mappedkey;
+	register size_t keysize;
+
+	DEBUG(("dbzfetch: (%s)\n", key.dptr));
+
+	/* Key is supposed to be less than DBZMAXKEY */
+	keysize = key.dsize;
+	if (keysize >= DBZMAXKEY) {
+		keysize = DBZMAXKEY;
+		DEBUG(("keysize is %d - truncated to %d\n", key.dsize, DBZMAXKEY));
+	}
+
+	mappedkey.dptr = mapcase(buffer, key.dptr, keysize);
+	buffer[keysize] = '\0';	/* just a debug aid */
+	mappedkey.dsize = keysize;
+
+	return(fetch(mappedkey));
+}
+
+/*
+ - fetch - get an entry from the database
+ *
+ * Disgusting fine point, in the name of backward compatibility:  if the
+ * last character of "key" is a NUL, that character is (effectively) not
+ * part of the comparison against the stored keys.
+ */
+datum				/* dptr NULL, dsize 0 means failure */
+fetch(key)
+datum key;
+{
+	char buffer[DBZMAXKEY + 1];
+	static of_t key_ptr;		/* return value points here */
+	datum output;
+	register size_t keysize;
+	register size_t cmplen;
+	register char *sepp;
+
+	DEBUG(("fetch: (%s)\n", key.dptr));
+	output.dptr = NULL;
+	output.dsize = 0;
+	prevp = FRESH;
+
+	/* Key is supposed to be less than DBZMAXKEY */
+	keysize = key.dsize;
+	if (keysize >= DBZMAXKEY) {
+		keysize = DBZMAXKEY;
+		DEBUG(("keysize is %d - truncated to %d\n", key.dsize, DBZMAXKEY));
+	}
+
+	if (pagf == NULL) {
+		DEBUG(("fetch: database not open!\n"));
+		return(output);
+	} else if (basef == NULL) {	/* basef didn't exist yet */
+		basef = latebase();
+		if (basef == NULL)
+			return(output);
+	}
+
+	cmplen = keysize;
+	sepp = &conf.fieldsep;
+	if (key.dptr[keysize-1] == '\0') {
+		cmplen--;
+		sepp = &buffer[keysize-1];
+	}
+	start(&srch, &key, FRESH);
+	while ((key_ptr = search(&srch)) != NOTFOUND) {
+		DEBUG(("got 0x%lx\n", key_ptr));
+
+		/* fetch the key */
+		if (fseek(basef, key_ptr, SEEK_SET) != 0) {
+			DEBUG(("fetch: seek failed\n"));
+			return(output);
+		}
+		if (fread((POINTER)buffer, 1, keysize, basef) != keysize) {
+			DEBUG(("fetch: read failed\n"));
+			return(output);
+		}
+
+		/* try it */
+		buffer[keysize] = '\0';		/* terminated for DEBUG */
+		(void) mapcase(buffer, buffer, keysize);
+		DEBUG(("fetch: buffer (%s) looking for (%s) size = %d\n", 
+						buffer, key.dptr, keysize));
+		if (memcmp((POINTER)key.dptr, (POINTER)buffer, cmplen) == 0 &&
+				(*sepp == conf.fieldsep || *sepp == '\0')) {
+			/* we found it */
+			output.dptr = (char *)&key_ptr;
+			output.dsize = SOF;
+			DEBUG(("fetch: successful\n"));
+			return(output);
+		}
+	}
+
+	/* we didn't find it */
+	DEBUG(("fetch: failed\n"));
+	prevp = &srch;			/* remember where we stopped */
+	return(output);
+}
+
+/*
+ - latebase - try to open a base file that wasn't there at the start
+ */
+static FILE *
+latebase()
+{
+	register FILE *it;
+
+	if (basefname == NULL) {
+		DEBUG(("latebase: name foulup\n"));
+		return(NULL);
+	}
+	it = fopen(basefname, "r");
+	if (it == NULL) {
+		DEBUG(("latebase: still can't open base\n"));
+	} else {
+		DEBUG(("latebase: late open succeeded\n"));
+		free((POINTER)basefname);
+		basefname = NULL;
+#ifdef _IOFBF
+		(void) setvbuf(it, basebuf, _IOFBF, sizeof(basebuf));
+#endif
+	}
+	if (it != NULL)
+		CloseOnExec((int)fileno(it), 1);
+	return(it);
+}
+
+/*
+ - dbzstore - store() with case mapping built in
+ */
+int
+dbzstore(key, data)
+datum key;
+datum data;
+{
+	char buffer[DBZMAXKEY + 1];
+	datum mappedkey;
+	register size_t keysize;
+
+	DEBUG(("dbzstore: (%s)\n", key.dptr));
+
+	/* Key is supposed to be less than DBZMAXKEY */
+	keysize = key.dsize;
+	if (keysize >= DBZMAXKEY) {
+		DEBUG(("dbzstore: key size too big (%d)\n", key.dsize));
+		return(-1);
+	}
+
+	mappedkey.dptr = mapcase(buffer, key.dptr, keysize);
+	buffer[keysize] = '\0';	/* just a debug aid */
+	mappedkey.dsize = keysize;
+
+	return(store(mappedkey, data));
+}
+
+/*
+ - store - add an entry to the database
+ */
+int				/* 0 success, -1 failure */
+store(key, data)
+datum key;
+datum data;
+{
+	of_t value;
+
+	if (pagf == NULL) {
+		DEBUG(("store: database not open!\n"));
+		return(-1);
+	} else if (basef == NULL) {	/* basef didn't exist yet */
+		basef = latebase();
+		if (basef == NULL)
+			return(-1);
+	}
+	if (pagronly) {
+		DEBUG(("store: database open read-only\n"));
+		return(-1);
+	}
+	if (data.dsize != SOF) {
+		DEBUG(("store: value size wrong (%d)\n", data.dsize));
+		return(-1);
+	}
+	if (key.dsize >= DBZMAXKEY) {
+		DEBUG(("store: key size too big (%d)\n", key.dsize));
+		return(-1);
+	}
+
+	/* copy the value in to ensure alignment */
+	(void) memcpy((POINTER)&value, (POINTER)data.dptr, SOF);
+	DEBUG(("store: (%s, %ld)\n", key.dptr, (long)value));
+	if (!okayvalue(value)) {
+		DEBUG(("store: reserved bit or overflow in 0x%lx\n", value));
+		return(-1);
+	}
+
+	/* find the place, exploiting previous search if possible */
+	start(&srch, &key, prevp);
+	while (search(&srch) != NOTFOUND)
+		continue;
+
+	prevp = FRESH;
+	conf.used[0]++;
+	DEBUG(("store: used count %ld\n", conf.used[0]));
+	written = 1;
+	return(set(&srch, value));
+}
+
+/*
+ - dbzincore - control attempts to keep .pag file in core
+ */
+int				/* old setting */
+dbzincore(value)
+int value;
+{
+	register int old = incore;
+
+#ifndef MMAP
+	incore = value;
+#endif
+	return(old);
+}
+
+/*
+ - dbzwritethrough - write through the pag file in core
+ */
+int				/* old setting */
+dbzwritethrough(value)
+int value;
+{
+	register int old = writethrough;
+
+	writethrough = value;
+	return(old);
+}
+
+/*
+ - dbztagmask - calculate the correct tagmask for the given base file size
+ */
+long
+dbztagmask(size)
+register long size;
+{
+	register long m;
+	register long tagmask;
+	register int i;
+
+	if (size <= 0)
+		return(0L);		/* silly size */
+
+	for (m = 1, i = 0; m < size; i++, m <<= 1)
+		continue;
+
+	if (m < (1 << TAGSHIFT))
+		return(0L);		/* not worth tagging */
+
+	tagmask = (~(unsigned long)0) >> (i + 1);
+	tagmask = tagmask << i;
+	return(tagmask);
+}
+
+/*
+ - getconf - get configuration from .dir file
+ */
+static int			/* 0 success, -1 failure */
+getconf(df, pf, cp)
+register FILE *df;		/* NULL means just give me the default */
+register FILE *pf;		/* NULL means don't care about .pag */
+register struct dbzconfig *cp;
+{
+	register int c;
+	register int i;
+	int err = 0;
+
+	c = (df != NULL) ? getc(df) : EOF;
+	if (c == EOF) {		/* empty file, no configuration known */
+		cp->olddbz = 0;
+		if (df != NULL && pf != NULL && getc(pf) != EOF)
+			cp->olddbz = 1;
+		cp->tsize = DEFSIZE;
+		cp->fieldsep = '\t';
+		for (i = 0; i < NUSEDS; i++)
+			cp->used[i] = 0;
+		cp->valuesize = SOF;
+		mybytemap(cp->bytemap);
+		cp->casemap = DEFCASE;
+		cp->tagenb = TAGENB;
+		cp->tagmask = TAGMASK;
+		cp->tagshift = TAGSHIFT;
+		DEBUG(("getconf: defaults (%ld, %c, (0x%lx/0x%lx<<%d))\n",
+			cp->tsize, cp->casemap, cp->tagenb, 
+			cp->tagmask, cp->tagshift));
+		return(0);
+	}
+	(void) ungetc(c, df);
+
+	/* first line, the vital stuff */
+	if (getc(df) != 'd' || getc(df) != 'b' || getc(df) != 'z')
+		err = -1;
+	if (getno(df, &err) != dbzversion)
+		err = -1;
+	cp->tsize = getno(df, &err);
+	cp->fieldsep = (int)getno(df, &err);
+	while ((c = getc(df)) == ' ')
+		continue;
+	cp->casemap = c;
+	cp->tagenb = getno(df, &err);
+	cp->tagmask = getno(df, &err);
+	cp->tagshift = getno(df, &err);
+	cp->valuesize = getno(df, &err);
+	if (cp->valuesize != SOF) {
+		DEBUG(("getconf: wrong of_t size (%d)\n", cp->valuesize));
+		err = -1;
+		cp->valuesize = SOF;	/* to protect the loops below */
+	}
+	for (i = 0; i < cp->valuesize; i++)
+		cp->bytemap[i] = getno(df, &err);
+	if (getc(df) != '\n')
+		err = -1;
+#ifdef DBZDEBUG
+	DEBUG(("size %ld, sep %d, cmap %c, tags 0x%lx/0x%lx<<%d, ", cp->tsize,
+			cp->fieldsep, cp->casemap, cp->tagenb, cp->tagmask,
+			cp->tagshift));
+	DEBUG(("bytemap (%d)", cp->valuesize));
+	for (i = 0; i < cp->valuesize; i++) {
+		DEBUG((" %d", cp->bytemap[i]));
+	}
+	DEBUG(("\n"));
+#endif
+
+	/* second line, the usages */
+	for (i = 0; i < NUSEDS; i++)
+		cp->used[i] = getno(df, &err);
+	if (getc(df) != '\n')
+		err = -1;
+	DEBUG(("used %ld %ld %ld...\n", cp->used[0], cp->used[1], cp->used[2]));
+
+	if (err < 0) {
+		DEBUG(("getconf error\n"));
+		return(-1);
+	}
+	return(0);
+}
+
+/*
+ - getno - get a long
+ */
+static long
+getno(f, ep)
+FILE *f;
+int *ep;
+{
+	register char *p;
+#	define	MAXN	50
+	char getbuf[MAXN];
+	register int c;
+
+	while ((c = getc(f)) == ' ')
+		continue;
+	if (c == EOF || c == '\n') {
+		DEBUG(("getno: missing number\n"));
+		*ep = -1;
+		return(0);
+	}
+	p = getbuf;
+	*p++ = c;
+	while ((c = getc(f)) != EOF && c != '\n' && c != ' ')
+		if (p < &getbuf[MAXN-1])
+			*p++ = c;
+	if (c == EOF) {
+		DEBUG(("getno: EOF\n"));
+		*ep = -1;
+	} else
+		(void) ungetc(c, f);
+	*p = '\0';
+
+	if (strspn(getbuf, "-1234567890") != strlen(getbuf)) {
+		DEBUG(("getno: `%s' non-numeric\n", getbuf));
+		*ep = -1;
+	}
+	return(atol(getbuf));
+}
+
+/*
+ - putconf - write configuration to .dir file
+ */
+static int			/* 0 success, -1 failure */
+putconf(f, cp)
+register FILE *f;
+register struct dbzconfig *cp;
+{
+	register int i;
+	register int ret = 0;
+
+	if (fseek(f, (of_t)0, SEEK_SET) != 0) {
+		DEBUG(("fseek failure in putconf\n"));
+		ret = -1;
+	}
+	(void) fprintf(f, "dbz %d %ld %d %c %ld %ld %d %d", dbzversion, cp->tsize,
+				cp->fieldsep, cp->casemap, cp->tagenb,
+				cp->tagmask, cp->tagshift, cp->valuesize);
+	for (i = 0; i < cp->valuesize; i++)
+		(void) fprintf(f, " %d", cp->bytemap[i]);
+	(void) fprintf(f, "\n");
+	for (i = 0; i < NUSEDS; i++)
+		(void) fprintf(f, "%ld%c", cp->used[i], (i < NUSEDS-1) ? ' ' : '\n');
+
+	(void) fflush(f);
+	if (ferror(f))
+		ret = -1;
+
+	DEBUG(("putconf status %d\n", ret));
+	return(ret);
+}
+
+/*
+ - getcore - try to set up an in-core copy of .pag file
+ */
+static of_t *			/* pointer to copy, or NULL */
+getcore(f)
+FILE *f;
+{
+	register of_t *p;
+	register size_t i;
+	register size_t nread;
+	register char *it;
+#ifdef MMAP
+	struct stat st;
+
+	if (fstat(fileno(f), &st) == -1) {
+		DEBUG(("getcore: fstat failed\n"));
+		return(NULL);
+	}
+	if (((size_t)conf.tsize * SOF) > st.st_size) {
+		/* file too small; extend it */
+		if (ftruncate((int)fileno(f), conf.tsize * SOF) == -1) {
+			DEBUG(("getcore: ftruncate failed\n"));
+			return(NULL);
+		}
+	}
+	it = mmap((caddr_t)0, (size_t)conf.tsize * SOF, 
+		pagronly ? PROT_READ : PROT_WRITE | PROT_READ, MAP__ARG,
+		(int)fileno(f), (off_t)0);
+	if (it == (char *)-1) {
+		DEBUG(("getcore: mmap failed\n"));
+		return(NULL);
+	}
+#ifdef MC_ADVISE
+	/* not present in all versions of mmap() */
+	madvise(it, (size_t)conf.tsize * SOF, MADV_RANDOM);
+#endif
+#else
+	it = malloc((size_t)conf.tsize * SOF);
+	if (it == NULL) {
+		DEBUG(("getcore: malloc failed\n"));
+		return(NULL);
+	}
+
+	nread = fread((POINTER)it, SOF, (size_t)conf.tsize, f);
+	if (ferror(f)) {
+		DEBUG(("getcore: read failed\n"));
+		free((POINTER)it);
+		return(NULL);
+	}
+
+ 	/* NOSTRICT *//* Possible pointer alignment problem */
+	p = (of_t *)it + nread;
+	i = (size_t)conf.tsize - nread;
+	while (i-- > 0)
+		*p++ = VACANT;
+#endif
+ 	/* NOSTRICT *//* Possible pointer alignment problem */
+	return((of_t *)it);
+}
+
+#ifndef MMAP
+/*
+ - putcore - try to rewrite an in-core table
+ */
+static int			/* 0 okay, -1 fail */
+putcore(tab, f)
+of_t *tab;
+FILE *f;
+{
+	if (fseek(f, (of_t)0, SEEK_SET) != 0) {
+		DEBUG(("fseek failure in putcore\n"));
+		return(-1);
+	}
+	(void) fwrite((POINTER)tab, SOF, (size_t)conf.tsize, f);
+	(void) fflush(f);
+	return((ferror(f)) ? -1 : 0);
+}
+#endif
+
+/*
+ - start - set up to start or restart a search
+ */
+static void
+start(sp, kp, osp)
+register struct searcher *sp;
+register datum *kp;
+register struct searcher *osp;		/* may be FRESH, i.e. NULL */
+{
+	register long h;
+
+	h = hash(kp->dptr, kp->dsize);
+	if (osp != FRESH && osp->hash == h) {
+		if (sp != osp)
+			*sp = *osp;
+		DEBUG(("search restarted\n"));
+	} else {
+		sp->hash = h;
+		sp->tag = MKTAG(h / conf.tsize);
+		DEBUG(("tag 0x%lx\n", sp->tag));
+		sp->place = h % conf.tsize;
+		sp->tabno = 0;
+		sp->run = (conf.olddbz) ? conf.tsize : MAXRUN;
+		sp->aborted = 0;
+	}
+	sp->seen = 0;
+}
+
+/*
+ - search - conduct part of a search
+ */
+static of_t			/* NOTFOUND if we hit VACANT or error */
+search(sp)
+register struct searcher *sp;
+{
+	register of_t dest;
+	register of_t value;
+	of_t val;		/* buffer for value (can't fread register) */
+	register of_t place;
+
+	if (sp->aborted)
+		return(NOTFOUND);
+
+	for (;;) {
+		/* determine location to be examined */
+		place = sp->place;
+		if (sp->seen) {
+			/* go to next location */
+			if (--sp->run <= 0) {
+				sp->tabno++;
+				sp->run = MAXRUN;
+			}
+			place = (place+1)%conf.tsize + sp->tabno*conf.tsize;
+			sp->place = place;
+		} else
+			sp->seen = 1;	/* now looking at current location */
+		DEBUG(("search @ %ld\n", place));
+
+		/* get the tagged value */
+		if (corepag != NULL && place < conf.tsize) {
+			DEBUG(("search: in core\n"));
+			value = MAPIN(corepag[place]);
+		} else {
+			/* seek, if necessary */
+			dest = place * SOF;
+			if (pagpos != dest) {
+				if (fseek(pagf, dest, SEEK_SET) != 0) {
+					DEBUG(("search: seek failed\n"));
+					pagpos = -1;
+					sp->aborted = 1;
+					return(NOTFOUND);
+				}
+				pagpos = dest;
+			}
+
+			/* read it */
+			if (fread((POINTER)&val, sizeof(val), 1, pagf) == 1)
+				value = MAPIN(val);
+			else if (ferror(pagf)) {
+				DEBUG(("search: read failed\n"));
+				pagpos = -1;
+				sp->aborted = 1;
+				return(NOTFOUND);
+			} else
+				value = VACANT;
+
+			/* and finish up */
+			pagpos += sizeof(val);
+		}
+
+		/* vacant slot is always cause to return */
+		if (value == VACANT) {
+			DEBUG(("search: empty slot\n"));
+			return(NOTFOUND);
+		};
+
+		/* check the tag */
+		value = UNBIAS(value);
+		DEBUG(("got 0x%lx\n", value));
+		if (!HASTAG(value)) {
+			DEBUG(("tagless\n"));
+			return(value);
+		} else if (TAG(value) == sp->tag) {
+			DEBUG(("match\n"));
+			return(NOTAG(value));
+		} else {
+			DEBUG(("mismatch 0x%lx\n", TAG(value)));
+		}
+	}
+	/* NOTREACHED */
+}
+
+/*
+ - okayvalue - check that a value can be stored
+ */
+static int			/* predicate */
+okayvalue(value)
+of_t value;
+{
+	if (HASTAG(value))
+		return(0);
+#ifdef OVERFLOW
+	if (value == LONG_MAX)	/* BIAS() and UNBIAS() will overflow */
+		return(0);
+#endif
+	return(1);
+}
+
+/*
+ - set - store a value into a location previously found by search
+ */
+static int			/* 0 success, -1 failure */
+set(sp, value)
+register struct searcher *sp;
+of_t value;
+{
+	register of_t place = sp->place;
+	register of_t v = value;
+
+	if (sp->aborted)
+		return(-1);
+
+	if (CANTAG(v) && !conf.olddbz) {
+		v |= sp->tag | taghere;
+		if (v != UNBIAS(VACANT))	/* BIAS(v) won't look VACANT */
+#ifdef OVERFLOW
+			if (v != LONG_MAX)	/* and it won't overflow */
+#endif
+			value = v;
+	}
+	DEBUG(("tagged value is 0x%lx\n", value));
+	value = BIAS(value);
+	value = MAPOUT(value);
+
+	/* If we have the index file in memory, use it */
+	if (corepag != NULL && place < conf.tsize) {
+		corepag[place] = value;
+		DEBUG(("set: incore\n"));
+#ifdef MMAP
+		return(0);
+#else
+		if (!writethrough)
+			return(0);
+#endif
+	}
+
+	/* seek to spot */
+	pagpos = -1;		/* invalidate position memory */
+	if (fseek(pagf, (of_t)(place * SOF), SEEK_SET) != 0) {
+		DEBUG(("set: seek failed\n"));
+		sp->aborted = 1;
+		return(-1);
+	}
+
+	/* write in data */
+	if (fwrite((POINTER)&value, SOF, 1, pagf) != 1) {
+		DEBUG(("set: write failed\n"));
+		sp->aborted = 1;
+		return(-1);
+	}
+	/* fflush improves robustness, and buffer re-use is rare anyway */
+	if (fflush(pagf) == EOF) {
+		DEBUG(("set: fflush failed\n"));
+		sp->aborted = 1;
+		return(-1);
+	}
+
+	DEBUG(("set: succeeded\n"));
+	return(0);
+}
+
+/*
+ - mybytemap - determine this machine's byte map
+ *
+ * A byte map is an array of ints, sizeof(of_t) of them.  The 0th int
+ * is the byte number of the high-order byte in my of_t, and so forth.
+ */
+static void
+mybytemap(map)
+int map[];			/* -> int[SOF] */
+{
+	union {
+		of_t o;
+		char c[SOF];
+	} u;
+	register int *mp = &map[SOF];
+	register int ntodo;
+	register int i;
+
+	u.o = 1;
+	for (ntodo = (int)SOF; ntodo > 0; ntodo--) {
+		for (i = 0; i < SOF; i++)
+			/* SUPPRESS 112 *//* Retrieving char where long is stored */
+			if (u.c[i] != 0)
+				break;
+		if (i == SOF) {
+			/* trouble -- set it to *something* consistent */
+			DEBUG(("mybytemap: nonexistent byte %d!!!\n", ntodo));
+			for (i = 0; i < SOF; i++)
+				map[i] = i;
+			return;
+		}
+		DEBUG(("mybytemap: byte %d\n", i));
+		*--mp = i;
+		/* SUPPRESS 112 *//* Retrieving char where long is stored */
+		while (u.c[i] != 0)
+			u.o <<= 1;
+	}
+}
+
+/*
+ - bytemap - transform an of_t from byte ordering map1 to map2
+ */
+static of_t			/* transformed result */
+bytemap(ino, map1, map2)
+of_t ino;
+int *map1;
+int *map2;
+{
+	union oc {
+		of_t o;
+		char c[SOF];
+	};
+	union oc in;
+	union oc out;
+	register int i;
+
+	in.o = ino;
+	for (i = 0; i < SOF; i++)
+		out.c[map2[i]] = in.c[map1[i]];
+	return(out.o);
+}
+
+/*
+ * This is a simplified version of the pathalias hashing function.
+ * Thanks to Steve Belovin and Peter Honeyman
+ *
+ * hash a string into a long int.  31 bit crc (from andrew appel).
+ * the crc table is computed at run time by crcinit() -- we could
+ * precompute, but it takes 1 clock tick on a 750.
+ *
+ * This fast table calculation works only if POLY is a prime polynomial
+ * in the field of integers modulo 2.  Since the coefficients of a
+ * 32-bit polynomial won't fit in a 32-bit word, the high-order bit is
+ * implicit.  IT MUST ALSO BE THE CASE that the coefficients of orders
+ * 31 down to 25 are zero.  Happily, we have candidates, from
+ * E. J.  Watson, "Primitive Polynomials (Mod 2)", Math. Comp. 16 (1962):
+ *	x^32 + x^7 + x^5 + x^3 + x^2 + x^1 + x^0
+ *	x^31 + x^3 + x^0
+ *
+ * We reverse the bits to get:
+ *	111101010000000000000000000000001 but drop the last 1
+ *         f   5   0   0   0   0   0   0
+ *	010010000000000000000000000000001 ditto, for 31-bit crc
+ *	   4   8   0   0   0   0   0   0
+ */
+
+#define POLY 0x48000000L	/* 31-bit polynomial (avoids sign problems) */
+
+static long CrcTable[128];
+
+/*
+ - crcinit - initialize tables for hash function
+ */
+static void
+crcinit()
+{
+	register int i, j;
+	register long sum;
+
+	for (i = 0; i < 128; ++i) {
+		sum = 0L;
+		for (j = 7 - 1; j >= 0; --j)
+			if (i & (1 << j))
+				sum ^= POLY >> j;
+		CrcTable[i] = sum;
+	}
+	DEBUG(("crcinit: done\n"));
+}
+
+/*
+ - hash - Honeyman's nice hashing function
+ */
+static long
+hash(name, size)
+register char *name;
+register int size;
+{
+	register long sum = 0L;
+
+	while (size--) {
+		sum = (sum >> 7) ^ CrcTable[(sum ^ (*name++)) & 0x7f];
+	}
+	DEBUG(("hash: returns (%ld)\n", sum));
+	return(sum);
+}
+
+/*
+ * case-mapping stuff
+ *
+ * Borrowed from C News, by permission of the authors.  Somewhat modified.
+ *
+ * We exploit the fact that we are dealing only with headers here, and
+ * headers are limited to the ASCII characters by RFC822.  It is barely
+ * possible that we might be dealing with a translation into another
+ * character set, but in particular it's very unlikely for a header
+ * character to be outside -128..255.
+ *
+ * Life would be a whole lot simpler if tolower() could safely and portably
+ * be applied to any char.
+ */
+
+#define	OFFSET	128		/* avoid trouble with negative chars */
+
+/* must call casencmp before invoking TOLOW... */
+#define	TOLOW(c)	(cmap[(c)+OFFSET])
+
+/* ...but the use of it in CISTREQN is safe without the preliminary call (!) */
+/* CISTREQN is an optimised case-insensitive strncmp(a,b,n)==0; n > 0 */
+#define CISTREQN(a, b, n) \
+	(TOLOW((a)[0]) == TOLOW((b)[0]) && casencmp(a, b, n) == 0)
+
+#define	MAPSIZE	(256+OFFSET)
+static char cmap[MAPSIZE];	/* relies on init to '\0' */
+static int mprimed = 0;		/* has cmap been set up? */
+
+/*
+ - mapprime - set up case-mapping stuff
+ */
+static void
+mapprime()
+{
+	register char *lp;
+	register char *up;
+	register int c;
+	register int i;
+	static char lower[] = "abcdefghijklmnopqrstuvwxyz";
+	static char upper[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+
+	for (lp = lower, up = upper; *lp != '\0'; lp++, up++) {
+		c = *lp;
+		cmap[c+OFFSET] = c;
+		cmap[*up+OFFSET] = c;
+	}
+	for (i = 0; i < MAPSIZE; i++)
+		if (cmap[i] == '\0')
+			cmap[i] = (char)(i-OFFSET);
+	mprimed = 1;
+}
+
+/*
+ - casencmp - case-independent strncmp
+ */
+static int			/* < == > 0 */
+casencmp(s1, s2, len)
+char *s1;
+char *s2;
+int len;
+{
+	register char *p1;
+	register char *p2;
+	register int n;
+
+	if (!mprimed)
+		mapprime();
+
+	p1 = s1;
+	p2 = s2;
+	n = len;
+	while (--n >= 0 && *p1 != '\0' && TOLOW(*p1) == TOLOW(*p2)) {
+		p1++;
+		p2++;
+	}
+	if (n < 0)
+		return(0);
+
+	/*
+	 * The following case analysis is necessary so that characters
+	 * which look negative collate low against normal characters but
+	 * high against the end-of-string NUL.
+	 */
+	if (*p1 == '\0' && *p2 == '\0')
+		return(0);
+	else if (*p1 == '\0')
+		return(-1);
+	else if (*p2 == '\0')
+		return(1);
+	else
+		return(TOLOW(*p1) - TOLOW(*p2));
+}
+
+/*
+ - mapcase - do case-mapped copy
+ */
+static char *			/* returns src or dst */
+mapcase(dst, src, siz)
+char *dst;			/* destination, used only if mapping needed */
+char *src;			/* source; src == dst is legal */
+size_t siz;
+{
+	register char *s;
+	register char *d;
+	register char *c;	/* case break */
+	register char *e;	/* end of source */
+
+
+	c = cipoint(src, siz);
+	if (c == NULL)
+		return(src);
+
+	if (!mprimed)
+		mapprime();
+	s = src;
+	e = s + siz;
+	d = dst;
+
+	while (s < c)
+		*d++ = *s++;
+	while (s < e)
+		*d++ = TOLOW(*s++);
+
+	return(dst);
+}
+
+/*
+ - cipoint - where in this message-ID does it become case-insensitive?
+ *
+ * The RFC822 code is not quite complete.  Absolute, total, full RFC822
+ * compliance requires a horrible parsing job, because of the arcane
+ * quoting conventions -- abc"def"ghi is not equivalent to abc"DEF"ghi,
+ * for example.  There are three or four things that might occur in the
+ * domain part of a message-id that are case-sensitive.  They don't seem
+ * to ever occur in real news, thank Cthulhu.  (What?  You were expecting
+ * a merciful and forgiving deity to be invoked in connection with RFC822?
+ * Forget it; none of them would come near it.)
+ */
+static char *			/* pointer into s, or NULL for "nowhere" */
+cipoint(s, siz)
+char *s;
+size_t siz;
+{
+	register char *p;
+	static char post[] = "postmaster";
+	static int plen = sizeof(post)-1;
+
+	switch (conf.casemap) {
+	case '0':		/* unmapped, sensible */
+		return(NULL);
+	case 'C':		/* C News, RFC 822 conformant (approx.) */
+		p = memchr((POINTER)s, '@', siz);
+		if (p == NULL)			/* no local/domain split */
+			return(NULL);		/* assume all local */
+		if (p - (s+1) == plen && CISTREQN(s+1, post, plen)) {
+			/* crazy -- "postmaster" is case-insensitive */
+			return(s);
+		}
+		return(p);
+	case '=':		/* 2.11, neither sensible nor conformant */
+		return(s);	/* all case-insensitive */
+	}
+
+	DEBUG(("cipoint: unknown case mapping `%c'\n", conf.casemap));
+	return(NULL);		/* just leave it alone */
+}
+
+/*
+ - dbzdebug - control dbz debugging at run time
+ */
+#ifdef DBZDEBUG
+int				/* old value */
+dbzdebug(value)
+int value;
+{
+	register int old = debug;
+
+	debug = value;
+	return(old);
+}
+#endif
diff --git a/pttbbs/innbbsd/dbz.h b/pttbbs/innbbsd/dbz.h
new file mode 100644
index 00000000..3d7e8ed7
--- /dev/null
+++ b/pttbbs/innbbsd/dbz.h
@@ -0,0 +1,32 @@
+/* for dbm and dbz */
+typedef struct {
+	char *dptr;
+	int dsize;
+} datum;
+
+/* standard dbm functions */
+extern int dbminit();
+extern datum fetch();
+extern int store();
+extern int delete();		/* not in dbz */
+extern datum firstkey();	/* not in dbz */
+extern datum nextkey();		/* not in dbz */
+extern int dbmclose();		/* in dbz, but not in old dbm */
+
+/* new stuff for dbz */
+extern int dbzfresh();
+extern int dbzagain();
+extern datum dbzfetch();
+extern int dbzstore();
+extern int dbzsync();
+extern long dbzsize();
+extern int dbzincore();
+extern int dbzcancel();
+extern int dbzdebug();
+
+/*
+ * In principle we could handle unlimited-length keys by operating a chunk
+ * at a time, but it's not worth it in practice.  Setting a nice large
+ * bound on them simplifies the code and doesn't hurt anything.
+ */
+#define DBZMAXKEY	255
diff --git a/pttbbs/innbbsd/dbztool.c b/pttbbs/innbbsd/dbztool.c
new file mode 100644
index 00000000..5318721b
--- /dev/null
+++ b/pttbbs/innbbsd/dbztool.c
@@ -0,0 +1,88 @@
+#include <sys/file.h>
+#include "his.h"
+
+#define DEBUG 1
+#undef DEBUG
+
+static datum content, inputkey, inputvalue;
+static char dboutput[1025];
+static char dbinput[1025];
+static char valueinput[100];
+
+enum {SUBJECT, FROM, NAME};
+char *DBfetch(key)
+char *key;
+{
+   int i;
+   char *tail, *ptr;
+   if (key == NULL) return NULL;
+   sprintf(dbinput,"%.510s",key);
+   inputkey.dptr = dbinput;
+   inputkey.dsize = strlen(dbinput);
+   content.dptr = dboutput;
+   ptr = (char*)HISfilesfor(&inputkey,&content);
+   if (ptr == NULL) {
+       return NULL;
+   }
+   return ptr;
+}
+
+DBstore(key,paths)
+char *key;
+char *paths;
+{
+   int i;
+   char *tail;
+   time_t now;
+   time(&now);
+   if (key == NULL) return -1;
+   sprintf(dbinput,"%.510s",key);
+   inputkey.dptr = dbinput;
+   inputkey.dsize = strlen(dbinput);
+   if (HISwrite(&inputkey, now, paths ) == FALSE) {
+      return -1;
+   } else {
+      return 0;
+   }
+}
+
+int storeDB(mid,paths)
+char *mid;
+char *paths;
+{
+   char *key,*ptr;
+   int rel;
+   ptr = DBfetch(mid); 
+   if (ptr != NULL) {
+     return 0;
+   } else {
+     return DBstore(mid , paths);
+   }
+}
+
+my_mkdir (idir,mode)
+char *idir;
+int mode;
+{
+	char buffer[LEN];
+	char *ptr, *dir = buffer;
+	struct stat st;
+	strncpy(dir, idir, LEN - 1);
+	for (;dir!=NULL && *dir;) {
+		ptr = (char*)strchr(dir,'/');
+		if (ptr != NULL) {
+		    *ptr = '\0';
+		}
+	        if (stat(dir,&st) != 0) {
+		    if (mkdir(dir,mode) != 0 ) 
+			 return -1;
+		}
+		chdir(dir);
+		if (ptr != NULL)
+		  dir = ptr +1;
+		else
+		  dir = ptr;
+	}
+	return 0;
+}
+
diff --git a/pttbbs/innbbsd/echobbslib.c b/pttbbs/innbbsd/echobbslib.c
new file mode 100644
index 00000000..2511b50a
--- /dev/null
+++ b/pttbbs/innbbsd/echobbslib.c
@@ -0,0 +1,713 @@
+#if defined( LINUX )
+# include "innbbsconf.h"
+# include "bbslib.h"
+# include <stdarg.h>
+#else
+# include <stdarg.h>
+# include "innbbsconf.h"
+# include "bbslib.h"
+#endif
+
+char INNBBSCONF[MAXPATHLEN];
+char INNDHOME[MAXPATHLEN];
+char HISTORY[MAXPATHLEN];
+char LOGFILE[MAXPATHLEN];
+char MYBBSID[MAXPATHLEN];
+char ECHOMAIL[MAXPATHLEN];
+char BBSFEEDS[MAXPATHLEN];
+char LOCALDAEMON[MAXPATHLEN];
+
+int His_Maint_Min= HIS_MAINT_MIN;
+int His_Maint_Hour= HIS_MAINT_HOUR;
+int Expiredays  = EXPIREDAYS;
+
+nodelist_t *NODELIST=NULL, **NODELIST_BYNODE=NULL;
+newsfeeds_t *NEWSFEEDS=NULL, **NEWSFEEDS_BYBOARD=NULL;
+static char *NODELIST_BUF, *NEWSFEEDS_BUF;
+int NFCOUNT, NLCOUNT;
+int LOCALNODELIST=0, NONENEWSFEEDS=0;
+
+#ifndef _PATH_BBSHOME
+# define _PATH_BBSHOME "/u/staff/bbsroot/csie_util/bntpd/home"
+#endif
+
+static FILE *bbslogfp;
+
+static int 
+verboseFlag=0;
+
+static char*
+verboseFilename=NULL;
+static char verbosename[MAXPATHLEN];
+
+verboseon(filename)
+char *filename;
+{
+  verboseFlag = 1;
+  if ( filename != NULL ) {
+    if (strchr(filename,'/') == NULL) {
+       sprintf(verbosename,"%s/innd/%s",BBSHOME,filename);
+       filename = verbosename;
+    } 
+  } 
+  verboseFilename = filename;
+}
+verboseoff()
+{
+  verboseFlag = 0;
+}
+
+setverboseon()
+{
+   verboseFlag = 1;
+}
+
+isverboselog()
+{
+  return verboseFlag;
+}
+
+setverboseoff()
+{
+  verboseoff();
+  if (bbslogfp != NULL) {
+    fclose(bbslogfp);
+    bbslogfp = NULL;
+  }
+}
+
+verboselog(char *fmt, ...)
+{
+	va_list ap;
+	char datebuf[40];
+	time_t now;
+
+	if (verboseFlag == 0) return;
+
+	va_start(ap, fmt);
+
+	time(&now);
+	strftime(datebuf, sizeof(datebuf), "%b %d %X ", localtime(&now));
+
+	if (bbslogfp == NULL) {
+	   if (verboseFilename != NULL)
+	     bbslogfp = fopen(verboseFilename, "a");
+	   else
+	     bbslogfp = fdopen(1, "a");
+	}
+	if (bbslogfp == NULL) {
+	    va_end(ap);
+	    return;
+	}
+	fprintf(bbslogfp,"%s[%d] ",datebuf, getpid());
+	vfprintf(bbslogfp, fmt, ap);
+	fflush(bbslogfp);
+	va_end(ap);
+}
+
+#ifdef PalmBBS
+xbbslog(char *fmt, ...)
+#else
+bbslog(char *fmt, ...)
+#endif
+{
+	va_list ap;
+	char datebuf[40];
+	time_t now;
+
+	va_start(ap, fmt);
+
+	time(&now);
+	strftime(datebuf, sizeof(datebuf), "%b %d %X ", localtime(&now));
+
+	if (bbslogfp == NULL) {
+	   bbslogfp = fopen(LOGFILE, "a");
+	}
+	if (bbslogfp == NULL) {
+	    va_end(ap);
+	    return;
+	}
+	fprintf(bbslogfp,"%s[%d] ",datebuf,getpid());
+	vfprintf(bbslogfp, fmt, ap);
+	fflush(bbslogfp);
+	va_end(ap);
+}
+
+initial_bbs(outgoing)
+char *outgoing;
+{
+   FILE* FN;
+   struct stat st;
+   int fd, i;
+   char *bbsnameptr=NULL; 
+
+/* reopen bbslog */
+   if (bbslogfp != NULL) {
+     fclose(bbslogfp);
+     bbslogfp = NULL;
+   }
+
+#ifdef WITH_ECHOMAIL
+   init_echomailfp();
+   init_bbsfeedsfp();
+#endif
+
+   LOCALNODELIST=0, NONENEWSFEEDS =0;
+   sprintf(INNDHOME,"%s/innd",BBSHOME);
+   sprintf(HISTORY, "%s/history",INNDHOME);
+   sprintf(LOGFILE, "%s/bbslog",INNDHOME);
+   sprintf(ECHOMAIL,"%s/echomail.log",BBSHOME);
+   sprintf(LOCALDAEMON,"%s/.innbbsd",INNDHOME);
+   sprintf(INNBBSCONF,"%s/innbbs.conf",INNDHOME);
+   sprintf(BBSFEEDS,"%s/bbsfeeds.log",INNDHOME);
+
+   if (isfile(INNBBSCONF)) {
+     FILE *conf;
+     char buffer[MAXPATHLEN];
+     conf = fopen(INNBBSCONF,"r");
+     if (conf != NULL) {
+       while (fgets( buffer, sizeof buffer, conf) != NULL) {
+	 char *ptr, *front=NULL, *value=NULL, *value2=NULL, *value3=NULL;
+	 if ( buffer[0] == '#' || buffer[0] == '\n') continue;
+	 for ( front = buffer; *front && isspace(*front); front++);
+	 for ( ptr = front; *ptr && !isspace(*ptr) ; ptr++) ;
+	 if (*ptr == '\0') continue;
+	 *ptr++ = '\0';
+	 for ( ; *ptr && isspace(*ptr) ; ptr++) ;
+	 if (*ptr == '\0') continue;
+	 value = ptr++;
+	 for ( ; *ptr && !isspace(*ptr) ; ptr++) ;
+	 if (*ptr) {
+	   *ptr++ = '\0';
+	   for ( ; *ptr && isspace(*ptr) ; ptr++) ;
+	   value2 = ptr++;
+	   for ( ; *ptr && !isspace(*ptr) ; ptr++) ;
+	   if (*ptr) {
+	     *ptr++ = '\0';
+	     for ( ; *ptr && isspace(*ptr) ; ptr++) ;
+	     value3 = ptr++;
+	     for ( ; *ptr && !isspace(*ptr) ; ptr++) ;
+	     if (*ptr) {
+	       *ptr++ = '\0';
+	     }
+	   }
+	 }
+	 if ( strcasecmp(front,"expiredays") == 0) {
+		Expiredays = atoi(value);
+		if (Expiredays < 0) {
+		   Expiredays = EXPIREDAYS;
+		}
+	 } else if ( strcasecmp(front,"expiretime") == 0) {
+		ptr = strchr(value,':');
+		if (ptr == NULL) {
+		   fprintf(stderr, "Syntax error in innbbs.conf\n");
+		} else {
+		   *ptr++ = '\0';
+		   His_Maint_Hour = atoi(value);
+		   His_Maint_Min  = atoi(ptr);
+		   if (His_Maint_Hour < 0)
+		      His_Maint_Hour = HIS_MAINT_HOUR;
+		   if (His_Maint_Min < 0)
+		      His_Maint_Min = HIS_MAINT_MIN;
+		}
+	 } else if ( strcasecmp(front,"newsfeeds") == 0) {
+	   if (strcmp(value,"none")==0) 
+	      NONENEWSFEEDS = 1;
+	 } else if ( strcasecmp(front,"nodelist") == 0) {
+	   if (strcmp(value,"local")==0)
+	      LOCALNODELIST = 1;
+	 } /*else if ( strcasecmp(front,"newsfeeds") == 0) {
+	       printf("newsfeeds %s\n", value); 
+	 } else if ( strcasecmp(front,"nodelist") == 0) {
+	       printf("nodelist %s\n", value); 
+	 } else if ( strcasecmp(front,"bbsname") == 0) {
+	       printf("bbsname %s\n", value); 
+	 } */
+       }
+       fclose(conf);
+     }
+   }
+
+#ifdef WITH_ECHOMAIL
+   bbsnameptr = (char*) fileglue("%s/bbsname.bbs",INNDHOME);
+   if ((FN = fopen( bbsnameptr ,"r" ))==NULL) {
+     fprintf(stderr,"can't open file %s\n", bbsnameptr);
+     return 0;
+   }
+   while ( fscanf(FN,"%s", MYBBSID) != EOF);
+   fclose(FN);
+   if( ! isdir(fileglue("%s/out.going",BBSHOME)) ) {
+      mkdir( (char*)fileglue("%s/out.going",BBSHOME), 0750 );
+   }
+   if (NONENEWSFEEDS == 0)
+     readnffile(INNDHOME);
+   if (LOCALNODELIST == 0) {
+     if (readnlfile(INNDHOME, outgoing) != 0) return 0;
+   }
+
+#endif
+   return 1;
+}
+
+static int 
+nf_byboardcmp(a,b)
+newsfeeds_t **a, **b;
+{
+/*
+   if (!a || !*a || !(*a)->board) return -1;
+   if (!b || !*b || !(*b)->board) return 1;
+*/
+   return strcasecmp((*a)->board, (*b)->board);
+}
+
+static int 
+nfcmp(a,b)
+newsfeeds_t *a, *b;
+{
+/*
+   if (!a || !a->newsgroups) return -1;
+   if (!b || !b->newsgroups) return 1;
+*/
+   return strcasecmp(a->newsgroups, b->newsgroups);
+}
+
+static int 
+nlcmp(a,b)
+nodelist_t *a, *b;
+{
+/*
+   if (!a || !a->host) return -1;
+   if (!b || !b->host) return 1;
+*/
+   return strcasecmp(a->host, b->host);
+}
+
+static int 
+nl_bynodecmp(a,b)
+nodelist_t **a, **b;
+{
+/*
+   if (!a || !*a || !(*a)->node) return -1;
+   if (!b || !*b || !(*b)->node) return 1;
+*/
+   return strcasecmp((*a)->node, (*b)->node);
+}
+
+/* read in newsfeeds.bbs and nodelist.bbs */
+readnlfile(inndhome, outgoing)
+char *inndhome;
+char *outgoing;
+{
+    FILE *fp;
+    char buff[1024];
+    struct stat st;
+    int i, count, j; 
+    char *ptr, *nodelistptr;
+    static lastcount=0;
+
+    sprintf(buff,"%s/nodelist.bbs", inndhome);
+    fp = fopen(buff,"r");
+    if (fp == NULL) {
+       fprintf(stderr,"open fail %s",buff);
+       return -1;
+    }
+    if (fstat(fileno(fp),&st) != 0) {
+	fprintf(stderr,"stat fail %s", buff);
+        return -1;
+    }
+    if (NODELIST_BUF == NULL) {
+	NODELIST_BUF = (char*) mymalloc( st.st_size +1);
+    } else {
+	NODELIST_BUF = (char*) myrealloc( NODELIST_BUF, st.st_size +1);
+    }
+    i = 0, count =0;
+    while (fgets(buff, sizeof buff, fp) != NULL) {
+       if (buff[0] == '#') continue;
+       if (buff[0] == '\n') continue;
+       strcpy(NODELIST_BUF+i, buff);
+       i += strlen(buff);
+       count ++;
+    }
+    fclose(fp);
+    if (NODELIST == NULL) {
+       NODELIST = (nodelist_t*) mymalloc(sizeof(nodelist_t) * (count+1));
+       NODELIST_BYNODE = (nodelist_t**) mymalloc(sizeof(nodelist_t*) * (count+1));
+    } else {
+       NODELIST = (nodelist_t*) myrealloc(NODELIST, sizeof(nodelist_t) * (count+1));
+       NODELIST_BYNODE = (nodelist_t**) myrealloc(NODELIST_BYNODE, sizeof(nodelist_t*) * (count+1));
+    }
+    for (i=lastcount; i< count; i++) {
+	  NODELIST[i].feedfp = NULL;
+    }
+    lastcount = count;
+    NLCOUNT = 0;
+    for (ptr = NODELIST_BUF; (nodelistptr = (char*)strchr(ptr,'\n')) != NULL; ptr = nodelistptr +1, NLCOUNT++) {
+	char *nptr , *bptr, *pptr, *tptr;
+	*nodelistptr = '\0';
+	NODELIST[NLCOUNT].host = "";
+	NODELIST[NLCOUNT].exclusion = "";
+	NODELIST[NLCOUNT].node = "";
+	NODELIST[NLCOUNT].protocol = "IHAVE(119)";
+	NODELIST[NLCOUNT].comments = "";
+	NODELIST_BYNODE[NLCOUNT] = NODELIST+NLCOUNT;
+        for (nptr= ptr ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') {
+	  bbslog("nodelist.bbs %d entry read error\n", NLCOUNT);
+	  return -1;
+        }
+        /*NODELIST[NLCOUNT].id = nptr;*/
+        NODELIST[NLCOUNT].node = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') {
+	  bbslog("nodelist.bbs node %d entry read error\n", NLCOUNT);
+	  return -1;
+        }
+        *nptr = '\0';
+        if ((tptr = strchr(NODELIST[NLCOUNT].node,'/'))) {
+	   *tptr = '\0';
+	   NODELIST[NLCOUNT].exclusion = tptr + 1;
+	} else {
+	   NODELIST[NLCOUNT].exclusion = "";
+	}
+        for (nptr++ ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+	if (*nptr=='+' || *nptr=='-') {
+	   NODELIST[NLCOUNT].feedtype = *nptr;
+	   if (NODELIST[NLCOUNT].feedfp != NULL) {
+	     fclose(NODELIST[NLCOUNT].feedfp);
+	   }
+	   if ( NODELIST[NLCOUNT].feedtype == '+')
+	     if (outgoing != NULL) {
+	     NODELIST[NLCOUNT].feedfp = fopen((char*)fileglue("%s/out.going/%s.%s",BBSHOME, NODELIST[NLCOUNT].node, outgoing),"a");
+	     }
+	   nptr++;
+	} else {
+	   NODELIST[NLCOUNT].feedtype = ' ';
+	}
+        NODELIST[NLCOUNT].host = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') {
+	   continue;
+        }
+        *nptr = '\0';
+        for (nptr++;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NODELIST[NLCOUNT].protocol = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        *nptr = '\0';
+        for (nptr++;*nptr && strchr(" \t\r\n",*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NODELIST[NLCOUNT].comments = nptr;
+    }
+    qsort(NODELIST, NLCOUNT, sizeof(nodelist_t), nlcmp);
+    qsort(NODELIST_BYNODE, NLCOUNT, sizeof(nodelist_t*), nl_bynodecmp);
+    return 0;
+}
+
+readnffile(inndhome)
+char *inndhome;
+{
+    FILE *fp;
+    char buff[1024];
+    struct stat st;
+    int i, count; 
+    char *ptr, *newsfeedsptr;
+
+    sprintf(buff,"%s/newsfeeds.bbs", inndhome);
+    fp = fopen(buff,"r");
+    if (fp == NULL) {
+       fprintf(stderr,"open fail %s",buff);
+       return -1;
+    }
+    if (fstat(fileno(fp),&st) != 0) {
+	fprintf(stderr,"stat fail %s", buff);
+        return -1;
+    }
+    if (NEWSFEEDS_BUF == NULL) {
+	NEWSFEEDS_BUF = (char*) mymalloc( st.st_size +1);
+    } else {
+	NEWSFEEDS_BUF = (char*) myrealloc( NEWSFEEDS_BUF, st.st_size +1);
+    }
+    i = 0, count =0;
+    while (fgets(buff, sizeof buff, fp) != NULL) {
+       if (buff[0] == '#') continue;
+       if (buff[0] == '\n') continue;
+       strcpy(NEWSFEEDS_BUF+i, buff);
+       i += strlen(buff);
+       count ++;
+    }
+    fclose(fp);
+    if (NEWSFEEDS == NULL) {
+       NEWSFEEDS = (newsfeeds_t*) mymalloc(sizeof(newsfeeds_t) * (count+1));
+       NEWSFEEDS_BYBOARD = (newsfeeds_t**) mymalloc(sizeof(newsfeeds_t*) * (count+1));
+    } else {
+       NEWSFEEDS = (newsfeeds_t*) myrealloc(NEWSFEEDS, sizeof(newsfeeds_t) * (count+1));
+       NEWSFEEDS_BYBOARD = (newsfeeds_t**) myrealloc(NEWSFEEDS_BYBOARD, sizeof(newsfeeds_t*) * (count+1));
+    }
+    NFCOUNT = 0; 
+    for (ptr = NEWSFEEDS_BUF; (newsfeedsptr = (char*)strchr(ptr,'\n')) != NULL; ptr = newsfeedsptr +1, NFCOUNT++) {
+	char *nptr , *bptr, *pptr;
+	*newsfeedsptr = '\0';
+	NEWSFEEDS[NFCOUNT].newsgroups = "";
+	NEWSFEEDS[NFCOUNT].board = "";
+	NEWSFEEDS[NFCOUNT].path = NULL;
+	NEWSFEEDS_BYBOARD[NFCOUNT] = NEWSFEEDS+NFCOUNT;
+        for (nptr= ptr ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NEWSFEEDS[NFCOUNT].newsgroups = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        *nptr = '\0';
+        for (nptr++ ;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NEWSFEEDS[NFCOUNT].board = nptr;
+	for (nptr++; *nptr && !isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        *nptr = '\0';
+        for (nptr++;*nptr && isspace(*nptr); ) nptr++;
+	if (*nptr == '\0') continue;
+        NEWSFEEDS[NFCOUNT].path = nptr;
+	for (nptr++; *nptr && !strchr("\r\n",*nptr); ) nptr++;
+	/*if (*nptr == '\0') continue;*/
+        *nptr = '\0';
+    }
+    qsort(NEWSFEEDS, NFCOUNT, sizeof(newsfeeds_t), nfcmp);
+    qsort(NEWSFEEDS_BYBOARD, NFCOUNT, sizeof(newsfeeds_t*), nf_byboardcmp);
+}
+
+newsfeeds_t *search_board(board)
+char *board;
+{
+   newsfeeds_t nft, *nftptr, **find;
+   if (NONENEWSFEEDS) return NULL;
+   nft.board = board;
+   nftptr = &nft;
+   find = (newsfeeds_t**)bsearch((char*)&nftptr, NEWSFEEDS_BYBOARD, NFCOUNT, sizeof(newsfeeds_t*), nf_byboardcmp);
+   if (find != NULL) return *find;
+   return NULL;
+}
+
+nodelist_t *search_nodelist_bynode(node)
+char *node;
+{
+   nodelist_t nlt, *nltptr, **find;
+   if (LOCALNODELIST) return NULL;
+   nlt.node = node;
+   nltptr = &nlt;
+   find = (nodelist_t**)bsearch((char*)&nltptr, NODELIST_BYNODE, NLCOUNT, sizeof(nodelist_t*), nl_bynodecmp);
+   if (find != NULL) return *find;
+   return NULL;
+}
+
+
+nodelist_t *search_nodelist(site, identuser)
+char *site;
+char *identuser;
+{
+   nodelist_t nlt, *find;
+   char buffer[1024];
+   if (LOCALNODELIST) return NULL;
+   nlt.host = site;
+   find = (nodelist_t*)bsearch((char*)&nlt, NODELIST, NLCOUNT, sizeof(nodelist_t), nlcmp);
+   if (find == NULL && identuser != NULL) {
+     sprintf(buffer,"%s@%s", identuser, site);
+     nlt.host = buffer;
+     find = (nodelist_t*)bsearch((char*)&nlt, NODELIST, NLCOUNT, sizeof(nodelist_t), nlcmp);
+   }
+   return find;
+}
+
+newsfeeds_t *search_group(newsgroup)
+char *newsgroup;
+{
+   newsfeeds_t nft, *find;
+   if (NONENEWSFEEDS) return NULL;
+   nft.newsgroups = newsgroup;
+   find = (newsfeeds_t*)bsearch((char*)&nft, NEWSFEEDS, NFCOUNT, sizeof(newsfeeds_t), nfcmp);
+   return find;
+}
+
+char *ascii_date(now)
+time_t now;
+{
+   static char datebuf[40];
+   /*time_t now;
+   time(&now);*/
+   strftime(datebuf, sizeof(datebuf), "%d %b %Y %X GMT", gmtime(&now));
+   return datebuf;
+}
+
+char *
+restrdup(ptr, string)
+char *ptr;
+char *string;
+{
+   int len ;
+   if (string == NULL) {
+      if (ptr != NULL) *ptr = '\0';
+      return ptr;
+   }
+   len = strlen(string) + 1;
+   if (ptr != NULL) {
+      ptr = (char*)myrealloc(ptr, len);
+   } else
+   ptr = (char*)mymalloc(len);
+   strcpy(ptr, string);
+   return ptr;
+}
+
+
+
+void *
+mymalloc(size)
+int size;
+{
+    char *ptr = (char*)malloc(size);
+    if (ptr == NULL) {
+       fprintf(stderr, "cant allocate memory\n");
+       syslog(LOG_ERR, "cant allocate memory %m");
+       exit(1);
+    }
+    return ptr;
+}
+
+void *
+myrealloc(optr, size)
+void *optr;
+int size;
+{
+    char *ptr = (char*)realloc(optr, size);
+    if (ptr == NULL) {
+       fprintf(stderr, "cant allocate memory\n");
+       syslog(LOG_ERR, "cant allocate memory %m");
+       exit(1);
+    }
+    return ptr;
+}
+
+testandmkdir(dir)
+char *dir;
+{
+        if (!isdir(dir)) {
+               char path[MAXPATHLEN+12];
+               sprintf(path,"mkdir -p %s",dir);
+               system(path);
+        }
+}
+                                                
+static char splitbuf[2048]; 
+static char joinbuf[1024]; 
+#define MAXTOK 50 
+static char* Splitptr[MAXTOK];
+char **split(line,pat)
+char *line,*pat;
+{
+	char *p;
+	int i;
+
+	for (i=0;i<MAXTOK;++i) Splitptr[i] = NULL;
+	strncpy(splitbuf,line,sizeof splitbuf - 1 );
+	/*printf("%d %d\n",strlen(line),strlen(splitbuf));*/
+	splitbuf[sizeof splitbuf - 1] = '\0';
+	for (i=0,p=splitbuf;*p && i< MAXTOK -1 ;){
+	   for (Splitptr[i++]=p;*p && !strchr(pat,*p);p++);
+	   if (*p=='\0') break;
+	   for (*p++='\0'; *p && strchr(pat,*p);p++);
+	}
+	return Splitptr;
+}
+
+char **BNGsplit(line) 
+char *line;
+{
+   char **ptr = split(line,",");
+   newsfeeds_t *nf1, *nf2;
+   char *n11, *n12, *n21, *n22;
+   int i,j;
+   for (i=0; ptr[i] != NULL; i++) {
+      nf1 = (newsfeeds_t*)search_group(ptr[i]);
+      for (j=i+1; ptr[j] != NULL; j++) {
+	 if (strcmp(ptr[i],ptr[j])==0) {
+	    *ptr[j] = '\0';    
+	    continue;
+         }
+	 nf2 = (newsfeeds_t*)search_group(ptr[j]);
+	 if (nf1 && nf2) {
+	   if (strcmp(nf1->board,nf2->board)==0) {
+	      *ptr[j] = '\0';    
+	      continue;
+	   }
+	   for (n11 = nf1->board, n12 = (char*)strchr(n11,',');
+		n11 && *n11 ; n12 = (char*) strchr(n11,',')) {
+		if (n12) *n12 = '\0';
+	       for (n21 = nf2->board, n22 = (char*)strchr(n21,',');
+	  	    n21 && *n21 ; n22 = (char*) strchr(n21,',')) {
+		    if (n22) *n22 = '\0';
+	            if (strcmp(n11,n21)==0) {
+		      *n21 = '\t';
+                    }
+		    if (n22) {
+		      *n22 = ',';
+		      n21 = n22 + 1;
+                    } else  
+		      break;
+                }
+		if (n12) {
+		      *n12 = ',';
+		      n11 = n12 +1;
+                } else  
+		  break;
+	   }
+	 }
+      }
+   }
+   return ptr;
+}
+
+char **ssplit(line,pat)
+char *line,*pat;
+{
+	char *p;
+	int i;
+	for (i=0;i<MAXTOK;++i) Splitptr[i] = NULL;
+	strncpy(splitbuf,line,1024);
+	for (i=0,p=splitbuf;*p && i< MAXTOK;){
+	   for (Splitptr[i++]=p;*p && !strchr(pat,*p);p++);
+	   if (*p=='\0') break;
+	   *p=0;p++;
+/*	   for (*p='\0'; strchr(pat,*p);p++);*/
+	}
+	return Splitptr;
+}
+
+char *join(lineptr,pat,num)
+char **lineptr,*pat;
+int num;
+{
+	int i;
+	joinbuf[0] = '\0';
+	if (lineptr[0] != NULL)
+		strncpy(joinbuf,lineptr[0],1024);
+	else  {
+		joinbuf[0]='\0';
+		return joinbuf; 
+	}
+	for (i=1;i<num;i++) {
+		strcat(joinbuf,pat);
+		if (lineptr[i] != NULL)
+		   strcat(joinbuf,lineptr[i]);
+		else 
+		   break; 
+	}
+	return joinbuf;
+}
+
+#ifdef BBSLIB
+main()
+{
+   initial_bbs("feed");
+   printf("%s\n",ascii_date());
+}
+#endif
+
diff --git a/pttbbs/innbbsd/externs.h b/pttbbs/innbbsd/externs.h
new file mode 100644
index 00000000..2cde1141
--- /dev/null
+++ b/pttbbs/innbbsd/externs.h
@@ -0,0 +1,16 @@
+#ifndef EXTERNS_H
+#define EXTERNS_H
+
+# ifndef ARG
+#  ifdef __STDC__
+#   define ARG(x) x
+#  else
+#   define ARG(x) ()
+#  endif
+# endif
+
+char *fileglue ARG((char *, ...));
+char *ascii_date ARG(());
+char **split ARG((char *, char *));
+
+#endif
diff --git a/pttbbs/innbbsd/file.c b/pttbbs/innbbsd/file.c
new file mode 100644
index 00000000..7016f940
--- /dev/null
+++ b/pttbbs/innbbsd/file.c
@@ -0,0 +1,183 @@
+#include <stdio.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <stdarg.h>
+#define MAXARGS     100
+
+/*   isfile is called by
+ *   isfile(filenamecomp1, filecomp2,  filecomp3, ..., (char *)0);
+ *   extern "C" int isfile(const char *, const char *[]) ;
+*/
+
+
+char FILEBUF[4096];
+
+
+static char DOLLAR_[8192];
+char *getstream(fp)
+FILE *fp;
+{
+    return fgets(DOLLAR_, sizeof(DOLLAR_) -1 , fp);
+}
+
+/*
+    The same as sprintf, but return the new string
+    fileglue("%s/%s",home,".newsrc");
+*/
+
+char *fileglue(char *fmt, ...)
+{
+    va_list ap;
+    static char gluebuffer[8192];
+    va_start(ap, fmt);
+    vsprintf(gluebuffer, fmt, ap);
+    va_end(ap);
+    return gluebuffer;
+}
+
+long 
+filesize(filename)
+char* filename;
+{
+	struct stat st;
+
+	if (stat(filename,&st)) return 0; 
+	return st.st_size;
+}
+
+int iszerofile(filename)
+char* filename;
+{
+	struct stat st;
+
+	if (stat(filename,&st)) return 0; 
+	if (st.st_size == 0) return 1;
+	return 0;
+}
+
+int isfile(filename)
+char* filename;
+{
+	struct stat st;
+
+	if (stat(filename,&st)) return 0; 
+	if (!S_ISREG(st.st_mode)) return 0;
+	return 1;
+}
+
+#ifdef TEST
+int isfilev(va_alist)
+{
+	va_list ap;
+	struct stat st;
+	char *p;
+	va_start(ap);
+
+	FILEBUF[0]='\0';
+        while ((p = va_arg(ap, char *)) != (char *)0) {
+		strcat(FILEBUF,p);
+	}
+	printf("file %s\n",FILEBUF);
+
+	va_end(ap);
+	return isfile(FILEBUF);
+}
+#endif
+
+
+int isdir(filename)
+char* filename;
+{
+	struct stat st;
+
+	if (stat(filename,&st)) return 0; 
+	if (!S_ISDIR(st.st_mode)) return 0;
+	return 1;
+}
+
+#ifdef TEST
+int isdirv(va_alist)
+{
+	va_list ap;
+	struct stat st;
+	char *p;
+	va_start(ap);
+
+	FILEBUF[0]='\0';
+        while ((p = va_arg(ap, char *)) != (char *)0) {
+		strcat(FILEBUF,p);
+	}
+
+	va_end(ap);
+	return isdir(FILEBUF);
+}
+#endif
+
+unsigned long  mtime(filename)
+char* filename;
+{
+	struct stat st;
+	if (stat(filename,&st)) return 0; 
+        return st.st_mtime;
+}
+
+#ifdef TEST
+unsigned long mtimev(va_alist)
+{
+	va_list ap;
+	struct stat st;
+	char *p;
+	va_start(ap);
+
+	FILEBUF[0]='\0';
+        while ((p = va_arg(ap, char *)) != (char *)0) {
+		strcat(FILEBUF,p);
+	}
+
+	va_end(ap);
+	return mtime(FILEBUF);
+}
+#endif
+
+unsigned long  atime(filename)
+char *filename;
+{
+	struct stat st;
+	if (stat(filename,&st)) return 0; 
+        return st.st_atime;
+}
+
+#ifdef TEST
+unsigned long atimev(va_alist)
+{
+	va_list ap;
+	struct stat st;
+	char *p;
+	va_start(ap);
+
+	FILEBUF[0]='\0';
+        while ((p = va_arg(ap, char *)) != (char *)0) {
+		strcat(FILEBUF,p);
+	}
+
+	va_end(ap);
+	return atime(FILEBUF);
+}
+#endif
+
+/*#undef TEST*/
+#ifdef TEST
+main(argc,argv)
+int argc;
+char **argv;
+{
+	int i;
+	if (argc > 3) {
+	  if (isfilev(argv[1],argv[2],(char*)0))	printf("%s %s %s is file\n",argv[1],argv[2],argv[3]);
+	  if (isdirv(argv[1],argv[2],(char*)0))	printf("%s %s %s is dir\n",argv[1],argv[2],argv[3]);
+	  printf("mtime %d\n",mtimev(argv[1],argv[2],(char*)0));
+	  printf("atime %d\n",atimev(argv[1],argv[2],(char*)0));
+	}
+	printf("fileglue %s\n", fileglue("%s/%s","home",".test"));
+}
+#endif
diff --git a/pttbbs/innbbsd/his.c b/pttbbs/innbbsd/his.c
new file mode 100644
index 00000000..7fe48dc3
--- /dev/null
+++ b/pttbbs/innbbsd/his.c
@@ -0,0 +1,474 @@
+/*  $Revision: 1.1 $
+**
+**  History file routines.
+*/
+#include "innbbsconf.h"
+#include "bbslib.h"
+#include "his.h"
+
+#define STATIC static
+/*STATIC char	HIShistpath[] = _PATH_HISTORY;*/
+STATIC FILE	*HISwritefp;
+STATIC int	HISreadfd;
+STATIC int	HISdirty;
+STATIC int	HISincore = XINDEX_DBZINCORE;
+STATIC char	*LogName = "xindexchan";
+
+#ifndef EXPIREDAYS
+#  define EXPIREDAYS 4
+#endif
+
+#ifndef DEFAULT_HIST_SIZE
+#  define DEFAULT_HIST_SIZE 100000
+#endif
+
+hisincore(flag)
+int flag;
+{
+   HISincore =  flag;
+}
+
+makedbz(histpath, entry)
+char *histpath;
+long entry;
+{
+    long size;
+    size = dbzsize(entry);
+    dbzfresh(histpath,size,'\t',0, 1);
+    dbmclose();
+}
+
+void HISsetup();
+void HISclose();
+
+void
+mkhistory(srchist)
+char *srchist;
+{
+    FILE *hismaint ;
+    time_t lasthist, now;
+    char maintbuff[256];
+    char *ptr;
+    hismaint= fopen(srchist, "r");
+    if (hismaint == NULL) {
+       return;   
+    }
+    {
+       char newhistpath[1024];
+       char newhistdirpath[1024];
+       char newhistpagpath[1024];
+       sprintf(newhistpath,"%s.n",srchist);
+       sprintf(newhistdirpath,"%s.n.dir",srchist);
+       sprintf(newhistpagpath,"%s.n.pag",srchist);
+       if (!isfile(newhistdirpath) || !isfile(newhistpagpath)) {
+          makedbz(newhistpath, DEFAULT_HIST_SIZE);
+       }
+       myHISsetup(newhistpath);
+       while ( fgets(maintbuff, sizeof(maintbuff), hismaint) != NULL) {
+	    datum key;
+	    ptr = (char*) strchr(maintbuff,'\t');
+	    if (ptr != NULL) { *ptr = '\0'; ptr++;}
+	    key.dptr = maintbuff;
+	    key.dsize = strlen(maintbuff);
+	    myHISwrite(&key, ptr);	    
+       }
+       (void) HISclose();
+       /*rename(newhistpath, srchist); 	
+       rename(newhistdirpath, fileglue("%s.dir", srchist));
+       rename(newhistpagpath, fileglue("%s.pag", srchist));*/
+    }
+    fclose(hismaint);
+}
+
+time_t
+gethisinfo()
+{
+    FILE *hismaint ;
+    time_t lasthist, now;
+    char maintbuff[4096];
+    char *ptr;
+    hismaint= fopen(HISTORY, "r");
+    if (hismaint == NULL) {
+       return 0;   
+    }
+    fgets(maintbuff,sizeof(maintbuff), hismaint);
+    fclose(hismaint);
+    ptr = (char*)strchr(maintbuff,'\t');
+    if (ptr != NULL)  {
+       ptr++;
+       lasthist = atol(ptr); 
+       return lasthist;
+    }
+    return 0;
+}
+
+void
+HISmaint()
+{
+    FILE *hismaint ;
+    time_t lasthist, now;
+    char maintbuff[4096];
+    char *ptr;
+
+    if (!isfile(HISTORY)) {
+       makedbz(HISTORY, DEFAULT_HIST_SIZE);
+    }
+    hismaint= fopen(HISTORY, "r");
+    if (hismaint == NULL) {
+       return;   
+    }
+    fgets(maintbuff,sizeof(maintbuff), hismaint);
+    ptr = (char*)strchr(maintbuff,'\t');
+    if (ptr != NULL)  {
+       ptr++;
+       lasthist = atol(ptr); 
+       time(&now);
+     if ( lasthist + 86400 * Expiredays * 2 < now ) {
+       char newhistpath[1024];
+       char newhistdirpath[1024];
+       char newhistpagpath[1024];
+       (void) HISclose();
+       sprintf(newhistpath,"%s.n",HISTORY);
+       sprintf(newhistdirpath,"%s.n.dir",HISTORY);
+       sprintf(newhistpagpath,"%s.n.pag",HISTORY);
+       if (!isfile(newhistdirpath)) {
+          makedbz(newhistpath, DEFAULT_HIST_SIZE);
+       }
+       myHISsetup(newhistpath);
+       while ( fgets(maintbuff, sizeof(maintbuff), hismaint) != NULL) {
+	    datum key;
+	    ptr = (char*) strchr(maintbuff,'\t');
+	    if (ptr != NULL) { 
+	            *ptr = '\0'; ptr++;
+	            lasthist = atol(ptr); 
+	    } else {
+	            continue ;
+	    }
+	    if ( lasthist + 99600 * Expiredays < now ) continue;
+	    key.dptr = maintbuff;
+	    key.dsize = strlen(maintbuff);
+	    myHISwrite(&key, ptr);	    
+       }
+       (void) HISclose();
+       rename(HISTORY, (char*)fileglue("%s.o",HISTORY)); 	
+       rename(newhistpath, HISTORY); 	
+       rename(newhistdirpath, (char*)fileglue("%s.dir", HISTORY));
+       rename(newhistpagpath, (char*)fileglue("%s.pag", HISTORY));
+       (void) HISsetup();
+     }
+    }
+    fclose(hismaint);
+}
+
+
+/*
+**  Set up the history files.
+*/
+void 
+HISsetup()
+{
+   myHISsetup(HISTORY);
+}
+
+int
+myHISsetup(histpath)
+char *histpath;
+{
+    if (HISwritefp == NULL) {
+	/* Open the history file for appending formatted I/O. */
+	if ((HISwritefp = fopen(histpath, "a")) == NULL) {
+	    syslog(LOG_CRIT, "%s cant fopen %s %m", LogName, histpath);
+	    exit(1);
+	}
+	CloseOnExec((int)fileno(HISwritefp), TRUE);
+
+	/* Open the history file for reading. */
+	if ((HISreadfd = open(histpath, O_RDONLY)) < 0) {
+	    syslog(LOG_CRIT, "%s cant open %s %m", LogName, histpath);
+	    exit(1);
+	}
+	CloseOnExec(HISreadfd, TRUE);
+
+	/* Open the DBZ file. */
+	/*(void)dbzincore(HISincore);*/
+	(void)dbzincore(HISincore);
+	(void)dbzwritethrough(1);
+	if (dbminit(histpath) < 0) {
+	    syslog(LOG_CRIT, "%s cant dbminit %s %m", histpath, LogName);
+	    exit(1);
+	}
+    }
+}
+
+
+/*
+**  Synchronize the in-core history file (flush it).
+*/
+void
+HISsync()
+{
+    if (HISdirty) {
+	if (dbzsync()) {
+	    syslog(LOG_CRIT, "%s cant dbzsync %m", LogName);
+	    exit(1);
+	}
+	HISdirty = 0;
+    }
+}
+
+
+/*
+**  Close the history files.
+*/
+void
+HISclose()
+{
+    if (HISwritefp != NULL) {
+	/* Since dbmclose calls dbzsync we could replace this line with
+	 * "HISdirty = 0;".  Oh well, it keeps the abstraction clean. */
+	HISsync();
+	if (dbmclose() < 0)
+	    syslog(LOG_ERR, "%s cant dbmclose %m", LogName);
+	if (fclose(HISwritefp) == EOF)
+	    syslog(LOG_ERR, "%s cant fclose history %m", LogName);
+	HISwritefp = NULL;
+	if (close(HISreadfd) < 0)
+	    syslog(LOG_ERR, "%s cant close history %m", LogName);
+	HISreadfd = -1;
+    }
+}
+
+
+#ifdef HISset
+/*
+**  File in the DBZ datum for a Message-ID, making sure not to copy any
+**  illegal characters.
+*/
+STATIC void
+HISsetkey(p, keyp)
+    register char	*p;
+    datum		*keyp;
+{
+    static BUFFER	MessageID;
+    register char	*dest;
+    register int	i;
+
+    /* Get space to hold the ID. */
+    i = strlen(p);
+    if (MessageID.Data == NULL) {
+	MessageID.Data = NEW(char, i + 1);
+	MessageID.Size = i;
+    }
+    else if (MessageID.Size < i) {
+	RENEW(MessageID.Data, char, i + 1);
+	MessageID.Size = i;
+    }
+
+    for (keyp->dptr = dest = MessageID.Data; *p; p++)
+	if (*p == HIS_FIELDSEP || *p == '\n')
+	    *dest++ = HIS_BADCHAR;
+	else
+	    *dest++ = *p;
+    *dest = '\0';
+
+    keyp->dsize = dest - MessageID.Data + 1;
+}
+
+#endif
+/*
+**  Get the list of files under which a Message-ID is stored.
+*/
+char *
+HISfilesfor(key,output)
+    datum		*key;
+    datum		*output;
+{
+    char		*dest;
+    datum		val;
+    long		offset;
+    register char	*p;
+    register int	i;
+    int Used;
+
+    /* Get the seek value into the history file. */
+    val = dbzfetch(*key);
+    if (val.dptr == NULL || val.dsize != sizeof offset){
+	/*printf("fail here val.dptr %d\n",val.dptr);*/
+	return NULL;
+    }
+
+    /* Get space. */
+    if (output->dptr == NULL) {
+       printf("fail here output->dptr null\n");
+       return NULL;
+    }
+
+    /* Copy the value to an aligned spot. */
+    for (p = val.dptr, dest = (char *)&offset, i = sizeof offset; --i >= 0; )
+	*dest++ = *p++;
+    if (lseek(HISreadfd, offset, SEEK_SET) == -1) {
+        printf("fail here lseek %d\n",offset);
+	return NULL;
+    }
+
+    /* Read the text until \n or EOF. */
+    for (output->dsize = 0,Used=0; ; ) {
+        i = read(HISreadfd,
+		&output->dptr[output->dsize], LEN - 1);
+	if (i <= 0) {
+	    printf("fail here i %d\n",i);
+	    return NULL;
+        }
+	Used += i;
+	output->dptr[Used] = '\0';
+	if ((p = (char*)strchr(output->dptr, '\n')) != NULL) {
+	    *p = '\0';
+	    break;
+	}
+    }
+
+    /* Move past the first two fields -- Message-ID and date info. */
+    if ((p = (char*)strchr(output->dptr, HIS_FIELDSEP)) == NULL) {
+	printf("fail here no HIS_FILE\n");
+	return NULL;
+    }
+    return p+1;
+    /*if ((p = (char*)strchr(p + 1, HIS_FIELDSEP)) == NULL)
+	return NULL;*/
+
+    /* Translate newsgroup separators to slashes, return the fieldstart. */
+}
+
+/*
+**  Have we already seen an article?
+*/
+#ifdef HISh
+BOOL
+HIShavearticle(MessageID)
+    char	*MessageID;
+{
+    datum	key;
+    datum	val;
+
+    HISsetkey(MessageID, &key);
+    val = dbzfetch(key);
+    return val.dptr != NULL;
+}
+#endif
+
+
+/*
+**  Turn a history filename entry from slashes to dots.  It's a pity
+**  we have to do this.
+*/
+STATIC void
+HISslashify(p)
+    register char	*p;
+{
+    register char	*last;
+
+    for (last = NULL; *p; p++) {
+	if (*p == '/') {
+	    *p = '.';
+	    last = p;
+	}
+	else if (*p == ' ' && last != NULL)
+	    *last = '/';
+    }
+    if (last)
+	*last = '/';
+}
+
+
+IOError(error)
+char *error;
+{
+   fprintf(stderr,"%s\n",error);
+}
+
+/*BOOL*/
+myHISwrite(key, remain)
+    datum		*key;
+    char		*remain;
+{
+    static char		NOPATHS[] = "";
+    long		offset;
+    datum		val;
+    int			i;
+
+    val = dbzfetch(*key);
+    if (val.dptr != NULL){
+	return FALSE;
+    }
+
+    flock(fileno(HISwritefp),LOCK_EX);
+    offset = ftell(HISwritefp);
+    i = fprintf(HISwritefp, "%s%c%s",
+		key->dptr, HIS_FIELDSEP, remain);
+    if (i == EOF || fflush(HISwritefp) == EOF) {
+	/* The history line is now an orphan... */
+	IOError("history");
+	syslog(LOG_ERR, "%s cant write history %m", LogName);
+        flock(fileno(HISwritefp),LOCK_UN);
+	return FALSE;
+    }
+
+    /* Set up the database values and write them. */
+    val.dptr = (char *)&offset;
+    val.dsize = sizeof offset;
+    if (dbzstore(*key, val) < 0) {
+	IOError("my history database");
+	syslog(LOG_ERR, "%s cant dbzstore %m", LogName);
+        flock(fileno(HISwritefp),LOCK_UN);
+	return FALSE;
+    }
+
+    if (++HISdirty >= ICD_SYNC_COUNT)
+	HISsync();
+    flock(fileno(HISwritefp),LOCK_UN);
+    return TRUE;
+}
+
+
+/*
+**  Write a history entry.
+*/
+BOOL
+HISwrite(key, date, paths)
+    datum		*key;
+    char		*paths;
+    long		date;
+{
+    static char		NOPATHS[] = "";
+    long		offset;
+    datum		val;
+    int			i;
+
+    flock(fileno(HISwritefp),LOCK_EX);
+    offset = ftell(HISwritefp);
+    i = fprintf(HISwritefp, "%s%c%ld%c%s\n",
+		key->dptr, HIS_FIELDSEP, (long)date, HIS_FIELDSEP,
+		paths);
+    if (i == EOF || fflush(HISwritefp) == EOF) {
+	/* The history line is now an orphan... */
+	IOError("history");
+	syslog(LOG_ERR, "%s cant write history %m", LogName);
+        flock(fileno(HISwritefp),LOCK_UN);
+	return FALSE;
+    }
+
+    /* Set up the database values and write them. */
+    val.dptr = (char *)&offset;
+    val.dsize = sizeof offset;
+    if (dbzstore(*key, val) < 0) {
+	IOError("history database");
+	syslog(LOG_ERR, "%s cant dbzstore %m", LogName);
+        flock(fileno(HISwritefp),LOCK_UN);
+	return FALSE;
+    }
+
+    if (++HISdirty >= ICD_SYNC_COUNT)
+	HISsync();
+    flock(fileno(HISwritefp),LOCK_UN);
+    return TRUE;
+}
diff --git a/pttbbs/innbbsd/his.h b/pttbbs/innbbsd/his.h
new file mode 100644
index 00000000..f54efc01
--- /dev/null
+++ b/pttbbs/innbbsd/his.h
@@ -0,0 +1,80 @@
+#ifndef HIS_H
+#define HIS_H
+#include <stdio.h>
+#include <fcntl.h>
+#include <ctype.h>
+#include <sys/stat.h>
+#include <sys/param.h>
+#ifndef SEEK_SET
+#include <unistd.h>
+#endif
+#include "dbz.h"
+
+#ifndef XINDEXDIR
+# define XINDEXDIR "/homec/xindex"
+#endif
+#ifndef _PATH_HISTORY
+# define _PATH_HISTORY "/u/staff/bbsroot/csie_util/bntpd/history"
+#endif
+
+#ifndef _PATH_COVERVIEW
+# define _PATH_COVERVIEW ".coverview"
+#endif
+
+#ifndef _PATH_COVERVIEWDIR
+# define _PATH_COVERVIEWDIR "/homec/xindex"
+#endif
+
+#ifndef XINDEX_DBZINCORE
+# define XINDEX_DBZINCORE 1
+#endif
+#ifndef XINDEXNAME
+# define XINDEXNAME ".index"
+#endif
+#ifndef XINDEXDBM
+# define XINDEXDBM ".dbm"
+#endif
+#ifndef XINDEXINFO
+# define XINDEXINFO ".info"
+#endif
+
+#define LEN 1024
+struct t_article {
+	long artnum;
+	char subject[LEN];          /* Subject: line from mail header */
+	char from[LEN];                     /* From: line from mail header (address)
+ */
+        char name[LEN];                     /* From: line from mail header (full nam
+e) */
+        long date;                      /* Date: line from header in seconds */
+        char xref[LEN];                     /* Xref: cross posted article reference
+line */
+        int lines;                      /* Lines: number of lines in article */
+        char *archive;          /* Archive-name: line from mail header */
+        char *part;                     /* part  no. of archive */
+        char *patch;            /* patch no. of archive */
+};
+
+typedef struct t_article art_t;
+
+#define HIS_BADCHAR		'_'
+#define HIS_FIELDSEP		'\t'
+#define HIS_NOEXP		"-"
+#define HIS_SUBFIELDSEP		'~'
+/*#define HIS_FIELDSEP2		'\034'*/
+#define HIS_FIELDSEP2		'I'
+
+#ifndef TRUE
+# define TRUE 1
+# define FALSE 0
+#endif
+
+#ifndef BOOL
+typedef unsigned char BOOL;
+#endif
+
+#ifndef ICD_SYNC_COUNT
+# define ICD_SYNC_COUNT 1
+#endif
+
+#endif
diff --git a/pttbbs/innbbsd/innbbsconf.h b/pttbbs/innbbsd/innbbsconf.h
new file mode 100644
index 00000000..6521dde6
--- /dev/null
+++ b/pttbbs/innbbsd/innbbsconf.h
@@ -0,0 +1,192 @@
+#ifndef INNBBSCONF_H
+#define INNBBSCONF_H
+#include <stdio.h>
+#include <syslog.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netdb.h>
+#include <sys/un.h>
+#include <sys/param.h>
+#include <sys/wait.h>
+
+#include <unistd.h>
+#include <signal.h>
+#include <fcntl.h>
+#include <string.h>
+#include <ctype.h>
+#include <errno.h>
+#include <time.h>
+#ifndef BSD44
+# include <malloc.h>
+#endif
+#include <sys/time.h>
+#include <sys/stat.h>
+#include <sys/file.h>
+
+/*#include "bbs.h"*/
+#if defined(AIX)
+# include <sys/select.h>
+#endif
+
+/*
+    BBS home directory
+    It has been overridden in Makefile
+*/
+#ifndef _PATH_BBSHOME
+# define _PATH_BBSHOME "/u/staff/bbsroot/csie_util/bntpd/home"
+/*# define _PATH_BBSHOME "/home/bbs"*/
+#endif
+
+#ifndef EXPIREDAYS
+#  define EXPIREDAYS 7
+#endif
+
+#ifndef DEFAULT_HIST_SIZE
+#  define DEFAULT_HIST_SIZE 100000
+#endif
+
+/*
+    Maximum number of connections accepted by innbbsd
+*/
+#ifndef MAXCLIENT
+#  define MAXCLIENT 500
+#endif
+
+/*
+   Maximum number of articles received for a newsgroup by bbsnnrp each time 
+*/
+#ifndef MAX_ARTS
+# define MAX_ARTS 100
+#endif
+
+/*
+   Maximum size of articles received 
+*/
+#ifndef MAX_ART_SIZE
+# define MAX_ART_SIZE 1000000L
+#endif
+
+
+/*
+   Maximum number of articles stated for a newsgroup by bbsnnrp each time 
+*/
+#ifndef MAX_STATS
+# define MAX_STATS 1000
+#endif
+
+/*
+    Mininum wait interval for bbsnnrp
+*/
+#ifndef MIN_WAIT
+# define MIN_WAIT 60
+#endif
+
+
+#ifndef DefaultINNBBSPort
+# define DefaultINNBBSPort "7777"
+#endif
+
+/*
+   time to maintain history database 
+*/
+#ifndef HIS_MAINT
+# define HIS_MAINT
+# define HIS_MAINT_HOUR 4
+# define HIS_MAINT_MIN  30
+#endif
+
+#ifndef ChannelSize
+#  define ChannelSize 4096
+#endif
+
+#ifndef ReadSize
+#  define ReadSize 1024
+#endif
+
+#ifndef MAXPATHLEN
+#  define MAXPATHLEN 1024
+#endif
+
+#ifndef CLX_IOCTL
+#  define CLX_IOCTL
+#endif
+
+#define DEFAULTSERVER "your.favorite.news.server"
+#define DEFAULTPORT "nntp"
+#define DEFAULTPROTOCOL "tcp"
+#define DEFAULTPATH ".innbbsd"
+
+#ifndef INADDR_NONE
+#define INADDR_NONE 0xffffffff
+#endif
+
+/*
+# ifndef ARG
+#  ifdef __STDC__
+#   define ARG(x) (x) 
+#  else
+#   define ARG(x) () 
+#  endif
+# endif
+*/
+/* machine dependend */
+#if defined(__linux)
+# ifndef LINUX
+#  define LINUX
+# endif
+#endif
+
+#if !defined(__svr4__) || defined(sun)
+#  define WITH_TM_GMTOFF  
+#endif
+#if (defined(__svr4__) && defined(sun)) || defined(SOLARIS)
+# ifndef SOLARIS
+#  define SOLARIS
+# endif
+#  define NO_getdtablesize
+#  define NO_bcopy
+#  define NO_bzero
+#  define NO_flock
+#  define WITH_lockf
+#endif
+
+#if defined(AIX)
+#  define NO_flock
+#  define WITH_lockf
+#endif
+
+#if defined(HPUX)
+#  define NO_getdtablesize
+#  define NO_flock
+#  define WITH_lockf
+#endif
+
+#ifdef NO_bcopy
+# ifndef bcopy
+#    define bcopy(a,b,c) memcpy(b,a,c)
+# endif
+#endif
+
+#ifdef NO_bzero
+# ifndef bzero
+#   define bzero(mem, size) memset(mem,'\0',size)
+# endif
+#endif
+
+#ifndef LOCK_EX
+# define LOCK_EX         2       /* exclusive lock */
+# define LOCK_UN         8       /* unlock */
+#endif
+
+#ifdef DEC_ALPHA
+#  define ULONG unsigned int
+#else
+#  define ULONG unsigned long
+#endif
+
+#ifdef PalmBBS
+#undef WITH_RECORD_O
+#endif
+
+#endif
diff --git a/pttbbs/innbbsd/innbbsd.c b/pttbbs/innbbsd/innbbsd.c
new file mode 100644
index 00000000..f7fc0fc0
--- /dev/null
+++ b/pttbbs/innbbsd/innbbsd.c
@@ -0,0 +1,780 @@
+#include "innbbsconf.h"
+#include "daemon.h"
+#include "innbbsd.h"
+#include <dirent.h>
+#include "bbslib.h"
+#include "inntobbs.h"
+#include "nntp.h"
+
+#ifdef GETRUSAGE
+#include <sys/time.h>
+#include <sys/resource.h>
+#endif
+
+#ifdef STDC
+# ifndef ARG
+#   define ARG(x) (x)
+# else
+#   define ARG(x) ()
+# endif
+#endif
+
+/*<  add <mid> <recno> ...
+>  200 OK
+<  quit
+ 500 BYE
+
+>  300 DBZ Server ...
+<  query <mid>
+>  250 <recno> ...
+>  450 NOT FOUND!
+*/
+
+static int CMDhelp ARG((ClientType*));
+static int CMDquit ARG((ClientType*));
+static int CMDihave ARG((ClientType*));
+static int CMDstat ARG((ClientType*));
+static int CMDaddhist ARG((ClientType*));
+static int CMDgrephist ARG((ClientType*));
+static int CMDmidcheck ARG((ClientType*));
+static int CMDshutdown ARG((ClientType*));
+static int CMDmode ARG((ClientType*));
+static int CMDreload ARG((ClientType*));
+static int CMDhismaint ARG((ClientType*));
+static int CMDverboselog ARG((ClientType*));
+static int CMDlistnodelist ARG((ClientType*));
+static int CMDlistnewsfeeds ARG((ClientType*));
+
+#ifdef GETRUSAGE
+static int CMDgetrusage ARG((ClientType*));
+static int CMDmallocmap ARG((ClientType*));
+#endif
+
+static daemoncmd_t cmds[]=
+/*  cmd-name, cmd-usage, min-argc, max-argc, errorcode, normalcode, cmd-func */
+{ {"help","help [cmd]",1,2,99,100,CMDhelp},
+  {"quit","quit",1,0,99,100,CMDquit},
+#ifndef DBZSERVER
+  {"ihave","ihave mid",2,2,435,335,CMDihave},
+#endif
+  {"stat","stat mid",2,2,223,430,CMDstat},
+  {"addhist","addhist <mid> <path>",3,3, NNTP_ADDHIST_BAD, NNTP_ADDHIST_OK,CMDaddhist},
+  {"grephist","grephist <mid>",2,2, NNTP_GREPHIST_BAD, NNTP_GREPHIST_OK, CMDgrephist},
+  {"midcheck","midcheck [on|off]",1,2, NNTP_MIDCHECK_BAD, NNTP_MIDCHECK_OK, CMDmidcheck},
+  {"shutdown","shutdown (local)",1,1, NNTP_SHUTDOWN_BAD, NNTP_SHUTDOWN_OK, CMDshutdown},
+  {"mode","mode (local)",1,1, NNTP_MODE_BAD, NNTP_MODE_OK, CMDmode},
+  {"listnodelist","listnodelist (local)",1,1, NNTP_MODE_BAD, NNTP_MODE_OK, CMDlistnodelist},
+  {"listnewsfeeds","listnewsfeeds (local)",1,1, NNTP_MODE_BAD, NNTP_MODE_OK, CMDlistnewsfeeds},
+  {"reload","reload (local)",1,1, NNTP_RELOAD_BAD, NNTP_RELOAD_OK, CMDreload},
+  {"hismaint","hismaint (local)",1,1, NNTP_RELOAD_BAD, NNTP_RELOAD_OK, CMDhismaint},
+  {"verboselog","verboselog [on|off](local)",1,2, NNTP_VERBOSELOG_BAD, NNTP_VERBOSELOG_OK, CMDverboselog},
+#ifdef GETRUSAGE
+  {"getrusage","getrusage (local)",1,1, NNTP_MODE_BAD, NNTP_MODE_OK, CMDgetrusage},
+#endif
+#ifdef MALLOCMAP
+  {"mallocmap","mallocmap (local)",1,1, NNTP_MODE_BAD, NNTP_MODE_OK, CMDmallocmap},
+#endif
+  {NULL,NULL,0,0,99,100,NULL}
+};
+
+installinnbbsd()
+{
+	installdaemon(cmds,100,NULL);
+}
+
+#ifdef OLDLIBINBBSINND
+testandmkdir(dir)
+char *dir;
+{
+        if (!isdir(dir)) {
+               char path[MAXPATHLEN+12];
+               sprintf(path,"mkdir -p %s",dir);
+               system(path);
+        }
+}
+                                                
+static char splitbuf[2048]; 
+static char joinbuf[1024]; 
+#define MAXTOK 50 
+static char* Splitptr[MAXTOK];
+char **split(line,pat)
+char *line,*pat;
+{
+	char *p;
+	int i;
+
+	for (i=0;i<MAXTOK;++i) Splitptr[i] = NULL;
+	strncpy(splitbuf,line,sizeof splitbuf - 1 );
+	/*printf("%d %d\n",strlen(line),strlen(splitbuf));*/
+	splitbuf[sizeof splitbuf - 1] = '\0';
+	for (i=0,p=splitbuf;*p && i< MAXTOK -1 ;){
+	   for (Splitptr[i++]=p;*p && !strchr(pat,*p);p++);
+	   if (*p=='\0') break;
+	   for (*p++='\0'; *p && strchr(pat,*p);p++);
+	}
+	return Splitptr;
+}
+
+char **BNGsplit(line) 
+char *line;
+{
+   char **ptr = split(line,",");
+   newsfeeds_t *nf1, *nf2;
+   char *n11, *n12, *n21, *n22;
+   int i,j;
+   for (i=0; ptr[i] != NULL; i++) {
+      nf1 = (newsfeeds_t*)search_group(ptr[i]);
+      for (j=i+1; ptr[j] != NULL; j++) {
+	 if (strcmp(ptr[i],ptr[j])==0) {
+	    *ptr[j] = '\0';    
+	    continue;
+         }
+	 nf2 = (newsfeeds_t*)search_group(ptr[j]);
+	 if (nf1 && nf2) {
+	   if (strcmp(nf1->board,nf2->board)==0) {
+	      *ptr[j] = '\0';    
+	      continue;
+	   }
+	   for (n11 = nf1->board, n12 = (char*)strchr(n11,',');
+		n11 && *n11 ; n12 = (char*) strchr(n11,',')) {
+		if (n12) *n12 = '\0';
+	       for (n21 = nf2->board, n22 = (char*)strchr(n21,',');
+	  	    n21 && *n21 ; n22 = (char*) strchr(n21,',')) {
+		    if (n22) *n22 = '\0';
+	            if (strcmp(n11,n21)==0) {
+		      *n21 = '\t';
+                    }
+		    if (n22) {
+		      *n22 = ',';
+		      n21 = n22 + 1;
+                    } else  
+		      break;
+                }
+		if (n12) {
+		      *n12 = ',';
+		      n11 = n12 +1;
+                } else  
+		  break;
+	   }
+	 }
+      }
+   }
+   return ptr;
+}
+
+char **ssplit(line,pat)
+char *line,*pat;
+{
+	char *p;
+	int i;
+	for (i=0;i<MAXTOK;++i) Splitptr[i] = NULL;
+	strncpy(splitbuf,line,1024);
+	for (i=0,p=splitbuf;*p && i< MAXTOK;){
+	   for (Splitptr[i++]=p;*p && !strchr(pat,*p);p++);
+	   if (*p=='\0') break;
+	   *p=0;p++;
+/*	   for (*p='\0'; strchr(pat,*p);p++);*/
+	}
+	return Splitptr;
+}
+
+char *join(lineptr,pat,num)
+char **lineptr,*pat;
+int num;
+{
+	int i;
+	joinbuf[0] = '\0';
+	if (lineptr[0] != NULL)
+		strncpy(joinbuf,lineptr[0],1024);
+	else  {
+		joinbuf[0]='\0';
+		return joinbuf; 
+	}
+	for (i=1;i<num;i++) {
+		strcat(joinbuf,pat);
+		if (lineptr[i] != NULL)
+		   strcat(joinbuf,lineptr[i]);
+		else 
+		   break; 
+	}
+	return joinbuf;
+}
+
+#endif
+
+static int CMDtnrpd(client) 
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	fprintf(argv->out,"%d %s\n",argv->dc->usage);
+	return 0;
+}
+
+islocalconnect(client)
+ClientType *client;
+{
+	if (strcmp(client->username,"localuser") != 0 ||
+	    strcmp(client->hostname,"localhost") != 0) 
+           return 0;
+       return 1;
+}
+
+static shutdownflag = 0;
+INNBBSDhalt()
+{
+   shutdownflag = 1;
+}
+
+int INNBBSDshutdown()
+{
+   return shutdownflag;
+}
+
+static int CMDshutdown(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d shutdown access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Shutdown Put: %d shutdown access denied\n", p->errorcode);
+		return 1;
+	}
+	shutdownflag = 1;
+	fprintf(argv->out,"%d shutdown starting\r\n", p->normalcode); 
+	fflush(argv->out);
+	verboselog("Shutdown Put: %d shutdown starting\n", p->normalcode);
+	return 1;
+}
+
+static int CMDmode(client)
+ClientType *client;
+{
+        /*char cwdpath[MAXPATHLEN+1];*/
+        argv_t *argv = &client->Argv;
+	extern ClientType INNBBSD_STAT;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	time_t uptime, now;
+	int i,j;
+	time_t lasthist;
+	ClientType *client1 = &INNBBSD_STAT;
+        
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d mode access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Mode Put: %d mode access denied\n", p->errorcode);
+		return 1;
+	}
+	fprintf(argv->out,"%d mode\r\n", p->normalcode); 
+	fflush(argv->out);
+	verboselog("Mode Put: %d mode\n", p->normalcode);
+	uptime = innbbsdstartup();
+	time(&now);
+	fprintf(argv->out,"up since %salive %.2f days\r\n", ctime(&uptime), (double)(now - innbbsdstartup())/86400);
+	fprintf(argv->out,"BBSHOME %s\r\n", BBSHOME);
+	fprintf(argv->out,"MYBBSID %s\r\n", MYBBSID);
+	fprintf(argv->out,"ECHOMAIL %s\r\n", ECHOMAIL);
+	fprintf(argv->out,"INNDHOME %s\r\n", INNDHOME);
+	fprintf(argv->out,"HISTORY %s\r\n", HISTORY);
+	fprintf(argv->out,"LOGFILE %s\r\n", LOGFILE);
+	fprintf(argv->out,"INNBBSCONF %s\r\n", INNBBSCONF);
+	fprintf(argv->out,"BBSFEEDS %s\r\n", BBSFEEDS);
+	fprintf(argv->out,"Verbose log: %s\r\n", isverboselog() ?"ON":"OFF");
+	fprintf(argv->out,"History Expire Days %d\r\n", Expiredays);
+	fprintf(argv->out,"History Expire Time %d:%d\r\n", His_Maint_Hour, His_Maint_Min);
+	lasthist = gethisinfo();
+	if (lasthist > 0) {
+	   time_t keep = lasthist, keep1;
+	   time(&now);
+	   fprintf(argv->out,"Oldest history entry created: %s",(char*)ctime(&keep));
+	   keep = Expiredays * 86400 * 2 + lasthist;
+	   keep1 = keep - now ;
+	   fprintf(argv->out,"Next time to maintain history: (%.2f days later) %s",(double)keep1/86400, (char*)ctime(&keep));
+	}
+	fprintf(argv->out,"PID is %d\r\n", getpid());
+	fprintf(argv->out,"LOCAL ONLY %d\r\n", LOCALNODELIST);
+	fprintf(argv->out,"NONE NEWSFEEDS %d\r\n", NONENEWSFEEDS);
+	fprintf(argv->out,"Max connections %d\r\n", Maxclient);
+#ifdef DEBUGCWD
+	getwd(cwdpath);
+	fprintf(argv->out,"Working directory %s\r\n", cwdpath);
+#endif
+	if (Channel)
+	for (i=0, j=0; i< Maxclient; ++i) {
+	  if (Channel[i].fd == -1) continue;
+	  if (Channel+i == client) continue;
+	  j++;
+	  fprintf(argv->out," %d) in->used %d, in->left %d %s@%s\r\n",i,
+		  Channel[i].in.used, Channel[i].in.left, 
+		  Channel[i].username,Channel[i].hostname);
+	}
+	fprintf(argv->out,"Total connections %d\r\n", j);
+	fprintf(argv->out,"Total rec: %d dup: %d fail: %d size: %d, stat rec: %d fail: %d\n", client1->ihavecount, client1->ihaveduplicate, client1->ihavefail, client1->ihavesize, client1->statcount, client1->statfail);
+	fprintf(argv->out,".\r\n");
+	fflush(argv->out);
+	return 1;
+}
+
+static int 
+CMDlistnodelist(client)
+ClientType *client;
+{
+        int nlcount;
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d listnodelist access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Mallocmap Put: %d listnodelist access denied\n", p->errorcode);
+		return 1;
+	}
+	fprintf(argv->out,"%d listnodelist\r\n", p->normalcode); 
+	for (nlcount =0; nlcount < NLCOUNT; nlcount++) {
+	  nodelist_t *nl = NODELIST+nlcount;
+	  fprintf(argv->out,"%2d %s /\\/\\ %s\r\n", nlcount+1, nl->node==NULL?"":nl->node, nl->exclusion==NULL?"":nl->exclusion); 
+	  fprintf(argv->out,"   %s:%s:%s\r\n",nl->host==NULL?"":nl->host, nl->protocol==NULL?"":nl->protocol, nl->comments == NULL ? "": nl->comments);
+	}
+	fprintf(argv->out,".\r\n");
+	fflush(argv->out);
+	verboselog("Listnodelist Put: %d listnodelist complete\n", p->normalcode);
+	return 1;
+}
+
+static int 
+CMDlistnewsfeeds(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	int nfcount;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d listnewsfeeds access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Mallocmap Put: %d listnewsfeeds access denied\n", p->errorcode);
+		return 1;
+	}
+	fprintf(argv->out,"%d listnewsfeeds\r\n", p->normalcode); 
+	for (nfcount =0; nfcount < NFCOUNT; nfcount++) {
+	  newsfeeds_t *nf = NEWSFEEDS + nfcount;
+	  fprintf(argv->out,"%3d %s<=>%s\r\n",nfcount+1, nf->newsgroups, nf->board);
+	  fprintf(argv->out,"    %s\r\n",nf->path==NULL?"(Null)":nf->path);
+	}
+	fprintf(argv->out,".\r\n");
+	fflush(argv->out);
+	verboselog("Listnewsfeeds Put: %d listnewsfeeds complete\n", p->normalcode);
+	return 1;
+}
+
+#ifdef MALLOCMAP
+static int CMDmallocmap(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	struct rusage ru;
+	int savefd ;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d mallocmap access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Mallocmap Put: %d mallocmap access denied\n", p->errorcode);
+		return 1;
+	}
+	fprintf(argv->out,"%d mallocmap\r\n", p->normalcode); 
+	savefd = dup(1);
+	dup2(client->fd, 1);
+	mallocmap();
+	dup2(savefd, 1);
+	close(savefd);
+	fprintf(argv->out,".\r\n");
+	fflush(argv->out);
+	verboselog("Mallocmap Put: %d mallocmap complete\n", p->normalcode);
+	return 1;
+}
+#endif
+
+#ifdef GETRUSAGE
+static int CMDgetrusage(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	struct rusage ru;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d getrusage access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Getrusage Put: %d getrusage access denied\n", p->errorcode);
+		return 1;
+	}
+	fprintf(argv->out,"%d getrusage\r\n", p->normalcode); 
+	if (getrusage(RUSAGE_SELF,&ru) == 0) {
+	  fprintf(argv->out,"user time used: %.6f\r\n",(double)ru.ru_utime.tv_sec + (double)ru.ru_utime.tv_usec/1000000.0); 
+	  fprintf(argv->out,"system time used: %.6f\r\n",(double)ru.ru_stime.tv_sec + (double)ru.ru_stime.tv_usec/1000000.0); 
+	  fprintf(argv->out,"maximum resident set size: %lu\r\n",ru.ru_maxrss * getpagesize()); 
+	  fprintf(argv->out,"integral resident set size: %lu\r\n",ru.ru_idrss * getpagesize()); 
+	  fprintf(argv->out,"page faults not requiring physical I/O: %d\r\n",ru.ru_minflt); 
+	  fprintf(argv->out,"page faults requiring physical I/O: %d\r\n",ru.ru_majflt); 
+	  fprintf(argv->out,"swaps: %d\r\n",ru.ru_nswap); 
+	  fprintf(argv->out,"block input operations: %d\r\n",ru.ru_inblock); 
+	  fprintf(argv->out,"block output operations: %d\r\n",ru.ru_oublock); 
+	  fprintf(argv->out,"messages sent: %d\r\n",ru.ru_msgsnd); 
+	  fprintf(argv->out,"messages received: %d\r\n",ru.ru_msgrcv); 
+	  fprintf(argv->out,"signals received: %d\r\n",ru.ru_nsignals); 
+	  fprintf(argv->out,"voluntary context switches: %d\r\n",ru.ru_nvcsw); 
+	  fprintf(argv->out,"involuntary context switches: %d\r\n",ru.ru_nivcsw); 
+	}
+	fprintf(argv->out,".\r\n");
+	fflush(argv->out);
+	verboselog("Getrusage Put: %d getrusage complete\n", p->normalcode);
+	return 1;
+}
+
+#endif
+
+static int CMDhismaint(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d hismaint access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Hismaint Put: %d hismaint access denied\n", p->errorcode);
+		return 1;
+	}
+	verboselog("Hismaint Put: %d hismaint start\n", p->normalcode);
+	HISmaint();
+	fprintf(argv->out,"%d hismaint complete\r\n", p->normalcode); 
+	fflush(argv->out);
+	verboselog("Hismaint Put: %d hismaint complete\n", p->normalcode);
+	return 1;
+}
+
+static int CMDreload(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d reload access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Reload Put: %d reload access denied\n", p->errorcode);
+		return 1;
+	}
+	initial_bbs("feed");
+	fprintf(argv->out,"%d reload complete\r\n", p->normalcode); 
+	fflush(argv->out);
+	verboselog("Reload Put: %d reload complete\n", p->normalcode);
+	return 1;
+}
+
+static int CMDverboselog(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	if (!islocalconnect(client)) {
+		fprintf(argv->out,"%d verboselog access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Reload Put: %d verboselog access denied\n", p->errorcode);
+		return 1;
+	}
+	if (client->mode == 0) {
+	   if (argv->argc > 1) {
+	     if (strcasecmp(argv->argv[1],"off")==0) {
+		setverboseoff();
+	     } else {
+		setverboseon();
+	     }
+	   } 
+	}
+       fprintf(argv->out,"%d verboselog %s\r\n",p->normalcode, 
+	     isverboselog() ?"ON":"OFF");
+       fflush(argv->out);
+       verboselog("%d verboselog %s\r\n",p->normalcode, 
+		 isverboselog()?"ON":"OFF");
+}
+
+static int CMDmidcheck(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	if (client->mode == 0) {
+	   if (argv->argc > 1) {
+	     if (strcasecmp(argv->argv[1],"off")==0) {
+		client->midcheck = 0;
+	     } else {
+		client->midcheck = 1;
+	     }
+	   } 
+	}
+       fprintf(argv->out,"%d mid check %s\r\n",p->normalcode, 
+	     client->midcheck == 1?"ON":"OFF");
+       fflush(argv->out);
+       verboselog("%d mid check %s\r\n",p->normalcode, 
+		 client->midcheck == 1?"ON":"OFF");
+}
+
+static int CMDgrephist(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	if (client->mode == 0) {
+	  if (argv->argc > 1) {
+	    char *ptr;
+	    ptr = (char*)DBfetch(argv->argv[1]);
+	    if (ptr != NULL) {
+		fprintf(argv->out,"%d %s OK\r\n", p->normalcode, ptr); 
+		fflush(argv->out);
+		verboselog("Addhist Put: %d %s OK\n", p->normalcode, ptr);
+		return 0;
+	    } else {
+		fprintf(argv->out,"%d %s not found\r\n", p->errorcode,argv->argv[1]); 
+		fflush(argv->out);
+		verboselog("Addhist Put: %d %s not found\n", p->errorcode, argv->argv[1]);
+		return 1;
+	    }
+          }
+	}
+        fprintf(argv->out,"%d grephist error\r\n", p->errorcode); 
+	fflush(argv->out);
+	verboselog("Addhist Put: %d grephist error\n", p->errorcode);
+	return 1;
+}
+
+
+static int CMDaddhist(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p = argv->dc;
+	/*
+	if (strcmp(client->username,"localuser") != 0 ||
+	    strcmp(client->hostname,"localhost") != 0) {
+		fprintf(argv->out,"%d add hist access denied\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Addhist Put: %d add hist access denied\n", p->errorcode);
+		return 1;
+	}
+	*/
+	if (client->mode == 0) {
+	  if (argv->argc > 2) {
+	    char *ptr;
+	    ptr = (char*)DBfetch(argv->argv[1]);
+	    if (ptr == NULL) {
+	       if (storeDB(argv->argv[1], argv->argv[2]) < 0) {
+		fprintf(argv->out,"%d add hist store DB error\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Addhist Put: %d add hist store DB error\n", p->errorcode);
+		return 1;
+	       } else {
+		fprintf(argv->out,"%d add hist OK\r\n", p->normalcode); 
+		fflush(argv->out);
+		verboselog("Addhist Put: %d add hist OK\n", p->normalcode);
+		return 0;
+	       }
+	    } else {
+		fprintf(argv->out,"%d add hist duplicate error\r\n", p->errorcode); 
+		fflush(argv->out);
+		verboselog("Addhist Put: %d add hist duplicate error\n", p->errorcode);
+		return 1;
+	    }
+	  }
+	} 
+        fprintf(argv->out,"%d add hist error\r\n", p->errorcode); 
+	fflush(argv->out);
+	verboselog("Addhist Put: %d add hist error\n", p->errorcode);
+	return 1;
+}
+
+static int CMDstat(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	char *ptr, *frontptr;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p;
+	if (client->mode == 0) {
+	  client->statcount++;
+	  if (argv->argc > 1) {
+	   if (argv->argv[1][0] != '<') {
+	     fprintf(argv->out,"430 No such article\r\n");
+	     fflush(argv->out);
+	     verboselog("Stat Put: 430 No such article\n");
+	     client->statfail++;
+	     return 0;
+	   }
+	   ptr = (char*)DBfetch(argv->argv[1]);
+	   if (ptr != NULL) {
+	      fprintf(argv->out,"223 0 status %s\r\n",argv->argv[1]);
+	      fflush(argv->out);
+	      client->mode = 0;
+	      verboselog("Stat Put: 223 0 status %s\n",argv->argv[1]);
+	      return 1;
+	   } else {
+	    fprintf(argv->out,"430 No such article\r\n");
+	    fflush(argv->out);
+	    verboselog("Stat Put: 430 No such article\n");
+	    client->mode = 0;
+	    client->statfail++;
+	   }
+          }
+	} 
+}
+
+#ifndef DBZSERVER
+static int CMDihave(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	char *ptr=NULL, *frontptr;
+	buffer_t *in = &client->in;
+	daemoncmd_t *p;
+	if (client->mode == 0) {
+	  client->ihavecount++;
+	  if (argv->argc > 1) {
+	   if (argv->argv[1][0] != '<') {
+	     fprintf(argv->out,"435 Bad Message-ID\r\n");
+	     fflush(argv->out);
+	     verboselog("Ihave Put: 435 Bad Message-ID\n");
+	     client->ihavefail++;
+	     return 0;
+	   }
+	   if (client->midcheck == 1)
+	      ptr = (char*)DBfetch(argv->argv[1]);
+	   if (ptr != NULL && client->midcheck == 1) {
+	      fprintf(argv->out,"435 Duplicate\r\n");
+	      fflush(argv->out);
+	      client->mode = 0;
+	      verboselog("Ihave Put: 435 Duplicate\n");
+	      client->ihaveduplicate++;
+	      client->ihavefail++;
+	      return 1;
+	   } else {
+	    fprintf(argv->out,"335\r\n");
+	    fflush(argv->out);
+	    client->mode = 1;
+	    verboselog("Ihave Put: 335\n");
+	   }
+          }
+	} else {
+	      client->mode = 0;
+	      readlines(client);
+	      if (HEADER[SUBJECT_H] && HEADER[FROM_H] && HEADER[DATE_H] &&
+		  HEADER[MID_H] && HEADER[NEWSGROUPS_H] ) {
+                 char *path1, *path2;
+		 int rel ;
+		 str_decode_M3(HEADER[SUBJECT_H]);
+		 str_decode_M3(HEADER[FROM_H]);
+		 str_decode_M3(HEADER[DATE_H]);
+		 str_decode_M3(HEADER[MID_H]);
+		 str_decode_M3(HEADER[NEWSGROUPS_H]);
+		 rel = 0;
+		 path1 = (char*)mymalloc(strlen(HEADER[PATH_H]) + 3);
+		 path2 = (char*)mymalloc(strlen(MYBBSID) + 3);
+		 sprintf(path1, "!%s!",HEADER[PATH_H]);
+		 sprintf(path2, "!%s!",MYBBSID);
+                 if (HEADER[CONTROL_H]) {
+		   bbslog( "Control: %s\n", HEADER[CONTROL_H] );
+		   if (strncasecmp(HEADER[CONTROL_H],"cancel ",7)==0) {
+		      rel = cancel_article_front(HEADER[CONTROL_H]+7);
+		   } else {
+		      rel = receive_control();
+		   }
+		 } else if ( (char*)strstr(path1, path2) != NULL) {
+		   bbslog( ":Warn: Loop back article: %s!%s\n",MYBBSID,HEADER[PATH_H] );
+		 } else {
+                   rel = receive_article();
+                 }
+		 free(path1);
+		 free(path2);
+		 if (rel == -1) {
+	          fprintf(argv->out,"400 server side failed\r\n");
+		  fflush(argv->out);
+	          verboselog("Ihave Put: 400\n");
+		  clearfdset(client->fd);
+		  fclose(client->Argv.in);
+		  fclose(client->Argv.out);
+		  close(client->fd);
+		  client->fd = -1;
+		  client->mode = 0;
+	          client->ihavefail++;
+		  return;
+		 } else {
+	          fprintf(argv->out,"235\r\n");
+	          verboselog("Ihave Put: 235\n");
+		 }
+	         fflush(argv->out);
+              } else if (!HEADER[PATH_H]) {
+		fprintf(argv->out,"437 No Path in \"ihave %s\" header\r\n",HEADER[MID_H]);
+	        fflush(argv->out);
+		verboselog("Put: 437 No Path in \"ihave %s\" header\n",HEADER[MID_H]);
+	        client->ihavefail++;
+	      } else {
+		fprintf(argv->out,"437 No colon-space in \"ihave %s\" header\r\n",HEADER[MID_H]);
+	        fflush(argv->out);
+		verboselog("Ihave Put: 437 No colon-space in \"ihave %s\" header\n",HEADER[MID_H]);
+	        client->ihavefail++;
+	      }
+#ifdef DEBUG
+	      printf("subject is %s\n",HEADER[SUBJECT_H]);
+	      printf("from is %s\n",HEADER[FROM_H]);
+	      printf("Date is %s\n",HEADER[DATE_H]);
+	      printf("Newsgroups is %s\n",HEADER[NEWSGROUPS_H]);
+	      printf("mid is %s\n",HEADER[MID_H]);
+	      printf("path is %s\n",HEADER[PATH_H]);
+#endif
+	}
+	fflush(argv->out);
+	return 0;
+}
+#endif
+
+static int CMDhelp(client)
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	daemoncmd_t *p;
+	if (argv->argc>=1) {
+		fprintf(argv->out,"%d Available Commands\r\n",argv->dc->normalcode);
+		for (p=cmds;p->name !=NULL;p++) {
+			fprintf(argv->out,"  %s\r\n",p->usage);
+		}
+		fprintf(argv->out,"Report problems to %s\r\n",ADMINUSER);
+	} 
+	fputs(".\r\n",argv->out);
+	fflush(argv->out);
+	client->mode = 0;
+	return 0;
+}
+
+static int CMDquit(client) 
+ClientType *client;
+{
+        argv_t *argv = &client->Argv;
+	fprintf(argv->out,"205 quit\r\n");	
+	fflush(argv->out);
+	verboselog("Quit Put: 205 quit\n");	
+	clearfdset(client->fd);
+	fclose(client->Argv.in);
+	fclose(client->Argv.out);
+	close(client->fd);
+	client->fd = -1;
+	client->mode = 0;
+	channeldestroy(client);
+	/*exit(0);*/
+}
diff --git a/pttbbs/innbbsd/innbbsd.h b/pttbbs/innbbsd/innbbsd.h
new file mode 100644
index 00000000..ba667ee6
--- /dev/null
+++ b/pttbbs/innbbsd/innbbsd.h
@@ -0,0 +1,9 @@
+#ifndef INNBBSD_H
+#define INNBBSD_H
+#include "daemon.h"
+
+#ifndef ADMINUSER
+# define ADMINUSER "usenet@csie.nctu.edu.tw"
+#endif
+
+#endif
diff --git a/pttbbs/innbbsd/inncheck.pl b/pttbbs/innbbsd/inncheck.pl
new file mode 100644
index 00000000..2b98a305
--- /dev/null
+++ b/pttbbs/innbbsd/inncheck.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+use IO::Socket::INET;
+$BBSHOME = '/home/bbs';
+
+open NODES, "<$BBSHOME/innd/nodelist.bbs";
+while( <NODES> ){
+    next if( /^\#/ );
+
+    ($nodename, $host) = $_ =~ /^(\S+)\s+(\S+)/;
+    next if( !$nodename );
+
+    $sock = IO::Socket::INET->new(PeerAddr => $host,
+				  PeerPort => 119,
+				  Proto => 'tcp');
+    next if( !$sock );
+    $sock->write("list\r\nquit\r\n");
+    $sock->read($data, 104857600);
+
+    foreach( split("\n", $data) ){
+	$group{$nodename}{$1} = 1
+	    if( /^([A-Za-z0-9\.]+) \d+ \d+ y/ );
+    }
+}
+
+open FEEDS, "<$BBSHOME/innd/newsfeeds.bbs";
+while( <FEEDS> ){
+    ++$line;
+    next if( /^\#/ );
+
+    next if( !(($gname, $board, $nodename) =
+	       $_ =~ /^([\w\.]+)\s+(\w+)\s+(\w+)/) );
+
+    if( !-d ("$BBSHOME/boards/". substr($board, 0, 1). "/$board") ){
+	print "$line: board not found ($board)\n";
+	next;
+    }
+
+    if( !$group{$nodename} ){
+	print "$line: node not found ($nodename)\n";
+	next;
+    }
+
+    if( !$group{$nodename}{$gname} ){
+	print "$line: group not found ($gname)\n";
+    }
+}
+
diff --git a/pttbbs/innbbsd/inndchannel.c b/pttbbs/innbbsd/inndchannel.c
new file mode 100644
index 00000000..b784bde4
--- /dev/null
+++ b/pttbbs/innbbsd/inndchannel.c
@@ -0,0 +1,658 @@
+#include "innbbsconf.h"
+#include "daemon.h"
+#include "bbslib.h"
+#include "config.h"
+
+#define DEBUG
+#undef DEBUG
+
+#ifndef MAXCLIENT
+#define MAXCLIENT 500
+#endif
+
+#ifndef ChannelSize
+#define ChannelSize 4096
+#endif
+
+#ifndef ReadSize
+#define ReadSize 1024
+#endif
+
+#ifndef DefaultINNBBSPort
+# define DefaultINNBBSPort "7777"
+#endif
+
+#ifndef HIS_MAINT
+# define HIS_MAINT
+# define HIS_MAINT_HOUR 5
+# define HIS_MAINT_MIN  30
+#endif
+
+int Maxclient=MAXCLIENT;
+ClientType *Channel=NULL;
+ClientType INNBBSD_STAT;
+
+int Max_Art_Size = MAX_ART_SIZE;
+
+int inetdstart = 0;
+
+int Junkhistory = 0;
+
+char *REMOTEUSERNAME, *REMOTEHOSTNAME;
+
+static fd_set rfd,wfd,efd,orfd,owfd,oefd;
+
+clearfdset(fd)
+int fd;
+{
+   FD_CLR(fd,&rfd);
+}
+
+static
+channelcreate(client)
+ClientType *client;
+{
+  buffer_t *in, *out;
+  in = &client->in;
+  out = &client->out;
+  if (in->data != NULL)
+    free(in->data);
+  in->data = (char*)mymalloc( ChannelSize );
+  in->left = ChannelSize;
+  in->used = 0;
+  if (out->data != NULL)
+    free(out->data);
+  out->data = (char*)mymalloc( ChannelSize );
+  out->used = 0;
+  out->left = ChannelSize;
+  client->ihavecount = 0;
+  client->ihaveduplicate = 0;
+  client->ihavefail = 0;
+  client->ihavesize = 0;
+  client->statcount = 0;
+  client->statfail = 0;
+  client->begin = time(NULL);
+}
+
+channeldestroy(client)
+ClientType *client;
+{
+   if (client->in.data != NULL) {
+     free(client->in.data);
+     client->in.data = NULL;
+   }
+   if (client->out.data != NULL) {
+     free(client->out.data);
+     client->out.data = NULL;
+   }
+#if !defined(PowerBBS) && !defined(DBZSERVER)
+   if (client->ihavecount >0 || client->statcount >0) {
+     bbslog("%s@%s rec: %d dup: %d fail: %d size: %d, stat rec: %d fail: %d, time sec: %d\n",
+    client->username, client->hostname, client->ihavecount,
+    client->ihaveduplicate, client->ihavefail, client->ihavesize,
+    client->statcount, client->statfail, time(NULL) - client->begin);
+    INNBBSD_STAT.ihavecount += client->ihavecount;
+    INNBBSD_STAT.ihaveduplicate += client->ihaveduplicate;
+    INNBBSD_STAT.ihavefail += client->ihavefail;
+    INNBBSD_STAT.ihavesize += client->ihavesize;
+    INNBBSD_STAT.statcount += client->statcount;
+    INNBBSD_STAT.statfail  += client->statfail;
+   }
+#endif
+}
+
+inndchannel(port, path)
+char *port, *path;
+{
+     time_t tvec;
+     int i;
+     int bbsinnd ;
+     int localbbsinnd;
+     char obuf[4096];
+     struct timeval tout;
+     ClientType *client = (ClientType *)mymalloc( sizeof(ClientType) * Maxclient);
+     int localdaemonready = 0;
+     Channel = client;
+
+     bbsinnd = pmain(port);
+     if (bbsinnd < 0) {
+        perror("pmain, existing");
+        docompletehalt();
+        return(-1);
+     }
+
+     FD_ZERO(&rfd); FD_ZERO(&wfd); FD_ZERO(&efd);
+
+     localbbsinnd = p_unix_main(path);
+     if (localbbsinnd < 0) {
+        perror("local pmain, existing");
+/* Kaede
+        if (!inetdstart)
+          fprintf(stderr, "if no other innbbsd running, try to remove %s\n",path);
+*/
+        close(bbsinnd);
+        return(-1);
+     } else {
+       FD_SET(localbbsinnd,&rfd);
+       localdaemonready = 1;
+     }
+
+     FD_SET(bbsinnd,&rfd);
+     tvec = time((time_t *)0);
+     for (i=0;i< Maxclient ;++i) {
+         client[i].fd = -1;
+         client[i].access=0;
+         client[i].buffer[0] = '\0';
+         client[i].mode = 0;
+         client[i].in.left = 0;
+         client[i].in.used = 0;
+         client[i].in.data = NULL;
+         client[i].out.left = 0;
+         client[i].out.used = 0;
+         client[i].out.data = NULL;
+         client[i].midcheck = 1;
+     }
+     for (;;) {
+        int nsel,i;
+
+/*
+          When to maintain history files.
+*/
+        time_t now;
+        static int maint = 0;
+        struct tm *local;
+
+        if (INNBBSDshutdown()) {
+           HISclose();
+           bbslog(" Shutdown Complete \n");
+           docompletehalt();
+           exit(0);
+        }
+
+        time(&now);
+        local = localtime(&now);
+        if (local != NULL & local->tm_hour == His_Maint_Hour &&
+            local->tm_min  >= His_Maint_Min ) {
+           if (!maint) {
+             bbslog(":Maint: start (%d:%d).\n",local->tm_hour,local->tm_min);
+             HISmaint();
+             time(&now);
+             local = localtime(&now);
+             if (local != NULL)
+               bbslog(":Maint: end (%d:%d).\n",local->tm_hour,local->tm_min);
+             maint = 1;
+           }
+        } else {
+           maint = 0;
+        }
+/*
+*/
+/*
+        in order to maintain history, timeout every 60 seconds in case
+        no connections
+*/
+        tout.tv_sec = 60;
+        tout.tv_usec = 0;
+        orfd = rfd;
+        if ((nsel=select(FD_SETSIZE,&orfd, NULL , NULL , &tout))<0){
+                 continue;
+        }
+        if (localdaemonready && FD_ISSET(localbbsinnd,&orfd)) {
+           int ns,length;
+           int cc;
+           ns=tryaccept(localbbsinnd);
+           if (ns < 0) continue;
+           for (i=0;i< Maxclient ;++i) {
+               if (client[i].fd==-1) break;
+           }
+           if (i== Maxclient) {
+              static char msg[]="502 no free descriptors\r\n";
+              printf("%s",msg);
+              write(ns, msg, sizeof(msg));
+              close(ns);
+              continue;
+           }
+           client[i].fd=ns;
+           client[i].buffer[0] = '\0';
+           client[i].mode = 0;
+           client[i].midcheck = 1;
+           channelcreate(&client[i]);
+           FD_SET(ns,&rfd); /*FD_SET(ns,&wfd);*/
+           {
+                strncpy(client[i].username,"localuser",20);
+                strncpy(client[i].hostname,"localhost",128);
+                client[i].Argv.in  =  fdopen( ns,"r");
+                client[i].Argv.out =  fdopen( ns,"w");
+#if !defined(PowerBBS) && !defined(DBZSERVER)
+                bbslog("connected from (%s@%s).\n",client[i].username, client[i].hostname);
+#endif
+#ifdef INNBBSDEBUG
+                printf("connected from (%s@%s).\n",client[i].username, client[i].hostname);
+#endif
+#ifdef DBZSERVER
+                fprintf(client[i].Argv.out,"200 %s InterNetNews DBZSERVER server %s (%s@%s).\r\n",MYBBSID, VERSION, client[i].username, client[i].hostname);
+#else
+                fprintf(client[i].Argv.out,"200 %s InterNetNews INNBBSD server %s (%s@%s).\r\n", MYBBSID, VERSION, client[i].username, client[i].hostname );
+#endif
+                fflush(client[i].Argv.out);
+                verboselog("UNIX Connect from %s@%s\n",client[i].username, client[i].hostname);
+           }
+        }
+
+        if (FD_ISSET(bbsinnd,&orfd)) {
+           int ns=tryaccept(bbsinnd), length;
+           struct sockaddr_in there;
+           char *name;
+           struct hostent *hp;
+           int cc;
+           if (ns < 0) continue;
+           for (i=0;i< Maxclient ;++i) {
+               if (client[i].fd==-1) break;
+           }
+           if (i== Maxclient) {
+              static char msg[]="502 no free descriptors\r\n";
+              printf("%s",msg);
+              write(ns, msg, sizeof(msg));
+              close(ns);
+              continue;
+           }
+           client[i].fd=ns;
+           client[i].buffer[0] = '\0';
+           client[i].mode = 0;
+           client[i].midcheck = 1;
+           channelcreate(&client[i]);
+           FD_SET(ns,&rfd); /*FD_SET(ns,&wfd);*/
+           length = sizeof(there);
+           if (getpeername(ns,(struct sockaddr *)&there,&length)>=0){
+                time_t now=time((time_t *)0);
+                name=(char*)my_rfc931_name(ns,&there);
+                strncpy(client[i].username,name,20);
+                hp = (struct hostent*)gethostbyaddr((char*)&there.sin_addr, sizeof (struct in_addr), there.sin_family);
+                if (hp)
+                   strncpy(client[i].hostname,hp->h_name,128);
+                else
+                   strncpy(client[i].hostname,(char*)inet_ntoa(there.sin_addr),128);
+
+                client[i].Argv.in  =  fdopen( ns,"r");
+                client[i].Argv.out =  fdopen( ns,"w");
+                if ((char*)search_nodelist(client[i].hostname,client[i].username) == NULL) {
+                  bbslog(":Err: invalid connection (%s@%s).\n",client[i].username, client[i].hostname);
+                  fprintf(client[i].Argv.out,"502 You are not in my access file. (%s@%s)\r\n", client[i].username, client[i].hostname);
+                  fflush(client[i].Argv.out);
+                  fclose(client[i].Argv.in);
+                  fclose(client[i].Argv.out);
+                  close(client[i].fd);
+                  FD_CLR(client[i].fd,&rfd);
+                  client[i].fd = -1;
+                  continue;
+                }
+                bbslog("connected from (%s@%s).\n",client[i].username, client[i].hostname);
+#ifdef INNBBSDEBUG
+                printf("connected from (%s@%s).\n",client[i].username, client[i].hostname);
+#endif
+#ifdef DBZSERVER
+                fprintf(client[i].Argv.out,"200 %s InterNetNews DBZSERVER server %s (%s@%s).\r\n",MYBBSID, VERSION, client[i].username, client[i].hostname );
+#else
+                fprintf(client[i].Argv.out,"200 %s InterNetNews INNBBSD server %s (%s@%s).\r\n",MYBBSID, VERSION, client[i].username, client[i].hostname );
+#endif
+                fflush(client[i].Argv.out);
+                verboselog("INET Connect from %s@%s\n",client[i].username, client[i].hostname);
+           } else {
+           }
+
+        }
+        for (i=0;i< Maxclient ;++i) {
+            int fd=client[i].fd;
+            if (fd < 0) {
+                    continue;
+            }
+            if (FD_ISSET(fd,&orfd)) {
+                int nr;
+#ifdef DEBUG
+                printf("before read i %d in.used %d in.left %d\n",i,client[i].in.used, client[i].in.left);
+#endif
+                nr=channelreader(client+i);
+#ifdef DEBUG
+                printf("after read i %d in.used %d in.left %d\n",i,client[i].in.used, client[i].in.left);
+#endif
+                /*int nr=read(fd,client[i].buffer,1024);*/
+                if (nr <= 0) {
+                    FD_CLR(fd,&rfd);
+                    fclose(client[i].Argv.in);
+                    fclose(client[i].Argv.out);
+                    close(fd);
+                    client[i].fd = -1;
+                    channeldestroy(client+i);
+                    continue;
+                }
+#ifdef DEBUG
+                printf("nr %d %.*s", nr, nr, client[i].buffer);
+#endif
+                if (client[i].access==0) {
+                   continue;
+                }
+            }
+        }
+     }
+}
+
+int channelreader(client)
+ClientType *client;
+{
+   int len, clientlen;
+   char buffer1[8192], buffer2[4096];
+   char *ptr;
+   buffer_t *in = &client->in;
+
+   if (in->left < ReadSize+3) {
+      int need = in->used + in->left + ReadSize + 3;
+      need += need/5 ;
+      in->data = (char*)myrealloc(in->data, need);
+      in->left = need - in->used;
+      verboselog("channelreader realloc %d\n",need);
+   }
+   len = read(client->fd, in->data+in->used, ReadSize);
+
+   if (len <=0) return len;
+
+   in->data[len+in->used] = '\0';
+   in->lastread = len;
+#ifdef DEBUG
+   printf("after read lastread %d\n", in->lastread);
+   printf("len %d client %d\n", len, strlen(in->data+in->used));
+#endif
+
+   REMOTEHOSTNAME = client->hostname;
+   REMOTEUSERNAME = client->username;
+   if (client->mode == 0) {
+     if ( (ptr=(char*)strchr(in->data,'\n')) != NULL) {
+      if (in->data[0] != '\r')
+        commandparse(client);
+     }
+   } else {
+     commandparse(client);
+   }
+   return len;
+}
+
+commandparse(client)
+ClientType *client;
+{
+     char *ptr, *lastend;
+     argv_t *Argv = &client->Argv;
+     int (*Main)();
+     char *buffer = client->in.data;
+     int fd = client->fd;
+     buffer_t *in = &client->in;
+     int dataused;
+     int dataleft;
+
+#ifdef DEBUG
+     printf("%s %s buffer %s",client->username, client->hostname, buffer);
+#endif
+     ptr= (char*) strchr(in->data+in->used,'\n');
+     if (client->mode == 0) {
+        if (ptr == NULL) {
+             in->used += in->lastread;
+             in->left -= in->lastread;
+             return;
+        } else {
+          dataused = ptr - (in->data + in->used) + 1;
+          dataleft = in->lastread - dataused;
+          lastend = ptr + 1;
+        }
+     } else {
+        if (in->used >= 5) {
+          ptr = (char*) strstr(in->data+in->used-5,"\r\n.\r\n");
+        } else if (strncmp(in->data,".\r\n",3)==0) {
+          ptr = in->data;
+        } else {
+          ptr = (char*) strstr(in->data+in->used,"\r\n.\r\n");
+        }
+        if (ptr == NULL) {
+             in->used += in->lastread;
+             in->left -= in->lastread;
+             return;
+        } else {
+          ptr[2]='\0';
+          if ( strncmp(in->data,".\r\n",3)==0)
+             dataused = 3;
+          else
+             dataused = ptr - (in->data + in->used) + 5;
+          dataleft = in->lastread - dataused;
+          lastend = ptr + 5;
+          verboselog("Get: %s@%s end of data . size %d\n", client->username, client->hostname, in->used + dataused);
+          client->ihavesize += in->used + dataused;
+        }
+     }
+     if (client->mode == 0) {
+        struct Daemoncmd * dp;
+        Argv->argc = 0, Argv->argv = NULL,
+        Argv->inputline= buffer;
+        if ( ptr != NULL) *ptr = '\0';
+        verboselog("Get: %s\n",Argv->inputline);
+        Argv->argc = argify( in->data + in->used,&Argv->argv);
+        if ( ptr != NULL) *ptr = '\n';
+        dp = (struct Daemoncmd *) searchcmd(Argv->argv[0]);
+        Argv->dc = dp;
+        if (Argv->dc) {
+#ifdef DEBUG
+          printf("enter command %s\n",Argv->argv[0]);
+#endif
+          if (Argv->argc < dp->argc) {
+           fprintf(Argv->out,"%d Usage: %s\r\n",dp->errorcode,dp->usage);
+           fflush(Argv->out);
+           verboselog("Put: %d Usage: %s\n",dp->errorcode,dp->usage);
+          } else if (dp->argno != 0 && Argv->argc > dp->argno) {
+           fprintf(Argv->out,"%d Usage: %s\r\n",dp->errorcode,dp->usage);
+           fflush(Argv->out);
+           verboselog("Put: %d Usage: %s\n",dp->errorcode,dp->usage);
+          } else {
+            Main=Argv->dc->main;
+            if (Main) {
+              fflush(stdout);
+              (*Main)(client);
+            }
+          }
+        } else {
+          fprintf(Argv->out,"500 Syntax error or bad command\r\n");
+          fflush(Argv->out);
+          verboselog("Put: 500 Syntax error or bad command\r\n");
+        }
+        deargify(&Argv->argv);
+     } else {
+        if (Argv->dc) {
+#ifdef DEBUG
+           printf("enter data mode\n");
+#endif
+           Main=Argv->dc->main;
+           if (Main) {
+              fflush(stdout);
+              (*Main)(client);
+           }
+        }
+     }
+     if (client->mode == 0) {
+      if (dataleft > 0) {
+          strncpy(in->data, lastend, dataleft);
+#ifdef INNBBSDEBUG
+          printf("***** try to copy %x %x %d bytes\n",in->data, lastend, dataleft);
+#endif
+      } else {
+          dataleft = 0;
+      }
+      in->left += in->used - dataleft;
+      in->used = dataleft;
+     }
+}
+
+do_command()
+{
+}
+
+void dopipesig(s)
+int s;
+{
+    printf("catch sigpipe\n");
+    signal(SIGPIPE, dopipesig);
+}
+
+int standaloneinit(port)
+char *port ;
+{
+       int ndescriptors;
+       FILE *pf;
+       char pidfile[24];
+       ndescriptors = getdtablesize();
+/*#ifndef NOFORK*/
+       if (!inetdstart)
+          if (fork())
+                exit(0);
+/*#endif*/
+
+       sprintf(pidfile,"/tmp/innbbsd-%s.pid",port);
+/* Kaede
+       if (!inetdstart)
+         fprintf(stderr, "PID file is in %s\n", pidfile);
+*/
+       {  int s;
+          for (s = 3; s < ndescriptors; s++)
+              (void) close(s);
+       }
+       pf=fopen(pidfile,"w");
+       if (pf != NULL) {
+               fprintf(pf,"%d\n",getpid());
+               fclose(pf);
+       }
+}
+
+extern char *optarg;
+extern int opterr, optind;
+
+innbbsusage(name)
+char *name;
+{
+   fprintf(stderr,"Usage: %s   [options] [port [path]]\n",name);
+   fprintf(stderr,"   -v   (verbose log)\n");
+   fprintf(stderr,"   -h|? (help)\n");
+   fprintf(stderr,"   -n   (not to use in core dbz)\n");
+   fprintf(stderr,"   -i   (start from inetd with wait option)\n");
+   fprintf(stderr,"   -c   connections  (maximum number of connections accepted)\n");
+   fprintf(stderr,"        default=%d\n",Maxclient);
+   fprintf(stderr,"   -j   (keep history of junk article, default=none)\n");
+}
+
+
+#ifdef DEBUGNGSPLIT
+main()
+{
+   char **ngptr ;
+   char buf[1024];
+   gets(buf);
+   ngptr = (char**)BNGsplit(buf);
+   printf("line %s\n",buf);
+   while ( *ngptr != NULL) {
+      printf("%s\n",*ngptr);
+      ngptr++;
+   }
+}
+#endif
+
+static time_t INNBBSDstartup;
+innbbsdstartup()
+{
+   return INNBBSDstartup;
+}
+
+main(argc,argv)
+int argc;
+char **argv;
+{
+
+    char *port, *path;
+    int c, errflag=0;
+    extern INNBBSDhalt();
+/*
+woju
+*/
+    setgid(BBSGID);
+    setuid(BBSUID);
+    chdir(BBSHOME);
+    attach_SHM();
+    resolve_boards();
+
+    port = DefaultINNBBSPort;
+    path = LOCALDAEMON;
+    Junkhistory = 0;
+
+    time(&INNBBSDstartup);
+    openlog("innbbsd", LOG_PID | LOG_ODELAY, LOG_DAEMON);
+    while ((c = getopt(argc,argv,"c:f:s:vhidn?j"))!= -1)
+      switch (c) {
+      case 'j':
+       Junkhistory = 1;
+       break;
+      case 'v':
+       verboseon("innbbsd.log");
+       break;
+      case 'n':
+       hisincore(0);
+       break;
+      case 'c':
+       Maxclient = atoi(optarg);
+       if (Maxclient < 0) Maxclient = 0;
+       break;
+      case 'i': {
+       struct sockaddr_in there;
+       int len = sizeof(there);
+       int rel;
+       if ((rel=getsockname(0,(struct sockaddr *)&there,&len))< 0){
+          fprintf(stdout,"You must run -i from inetd with inetd.conf line: \n");
+          fprintf(stdout,"service-port stream  tcp wait  bbs  /home/bbs/innbbsd innbbsd -i port\n");
+          fflush(stdout);
+          exit(5);
+       }
+       inetdstart  = 1;
+       startfrominetd(1);
+      }
+       break;
+      case 'd':
+       dbzdebug(1);
+       break;
+      case 's':
+       Max_Art_Size = atol(optarg);
+       if (Max_Art_Size < 0) Max_Art_Size = 0;
+       break;
+      case 'h':
+      case '?':
+      default:
+        errflag ++;
+      }
+    if (errflag > 0) {
+       innbbsusage(argv[0]);
+       return(1);
+    }
+    if (argc - optind >= 1) {
+      port = argv[optind];
+    }
+    if (argc - optind >= 2) {
+      path = argv[optind+1];
+    }
+
+    standaloneinit(port);
+
+    initial_bbs("feed");
+    
+/* Kaede
+    if (!inetdstart)
+      fprintf(stderr, "Try to listen in port %s and path %s\n", port, path);
+*/
+    HISmaint();
+    HISsetup();
+    installinnbbsd();
+    sethaltfunction(INNBBSDhalt);
+
+    signal(SIGPIPE, dopipesig);
+    inndchannel(port, path);
+    HISclose();
+}
diff --git a/pttbbs/innbbsd/inntobbs.c b/pttbbs/innbbsd/inntobbs.c
new file mode 100644
index 00000000..fb854867
--- /dev/null
+++ b/pttbbs/innbbsd/inntobbs.c
@@ -0,0 +1,322 @@
+#include <stdio.h>
+#include "daemon.h"
+#include "bbslib.h"
+#include <time.h>
+
+#define INNTOBBS
+#include "inntobbs.h"
+
+typedef struct Header {
+  char *name;
+  int  id;
+} header_t;
+
+/*enum HeaderValue {
+SUBJECT_H, FROM_H, DATE_H, MID_H, NEWSGROUPS_H,
+NNTPPOSTINGHOST_H, NNTPHOST_H, CONTROL_H, PATH_H,
+ORGANIZATION_H, LASTHEADER,
+};
+*/
+
+#include <string.h>
+
+header_t headertable[] = {
+"Subject"   ,SUBJECT_H,
+"From"      ,FROM_H,
+"Date"      ,DATE_H,
+"Message-ID",MID_H,
+"Newsgroups",NEWSGROUPS_H,
+"NNTP-Posting-Host",NNTPPOSTINGHOST_H, 
+"NNTP-Host", NNTPHOST_H,
+"Control",   CONTROL_H,
+"Path",      PATH_H,
+"Organization", ORGANIZATION_H,
+"X-Auth-From", X_Auth_From_H,
+"Approved",  APPROVED_H,
+"Distribution",  DISTRIBUTION_H,
+"Keywords",  KEYWORDS_H,
+"Summary",   SUMMARY_H,
+"References",REFERENCES_H,
+};
+
+char *HEADER[LASTHEADER];
+char *BODY;
+char *FROM, *SUBJECT, *SITE, *DATE, *POSTHOST, 
+     *NNTPHOST, *PATH, *GROUPS, *MSGID, *CONTROL;
+
+#ifdef PalmBBS
+char **XHEADER;
+char *XPATH;
+#endif
+
+
+int
+isexcluded(path1, nl)
+char *path1;
+nodelist_t *nl;
+{
+     char path2[1024];
+     /*path2 = (char*)mymalloc(strlen(nl->node) + 3);*/
+     sprintf(path2, "!%.*s!",sizeof path2 - 3, nl->node);
+     if (strstr(path1, path2) != NULL) return 1;
+     if (nl->exclusion && *nl->exclusion) {
+        char *exclude, *ptr;
+	for (exclude = nl->exclusion, ptr = strchr(exclude,','); 
+	     exclude && *exclude; ptr = strchr(exclude,',')) {
+	     if (ptr) *ptr = '\0';
+	     sprintf(path2, "!%.*s!",sizeof path2 - 3, exclude);
+	     if (strstr(path1, path2) != NULL) return 1;
+	     if (ptr) {
+	       *ptr = ',';
+	       exclude = ptr+1;
+	     } else {
+	       break;
+	     }
+	}
+     }
+     return 0;
+}
+
+feedfplog(nf, filepath, type)
+newsfeeds_t *nf;
+char *filepath;
+int type;
+{
+  char *path1, *path2, *hostptr;
+  nodelist_t *nl;
+  if (nf == NULL) return;
+  if( nf->path != NULL ) {
+    char *ptr1, *ptr2;
+    char savech;
+    path1 = (char*)mymalloc(strlen(HEADER[PATH_H]) + 3);
+    sprintf(path1, "!%s!",HEADER[PATH_H]);
+    for (ptr1 = nf->path; ptr1 && *ptr1;) {
+     for (; *ptr1 && isspace(*ptr1); ptr1++);
+     if (!*ptr1) break;
+     for (ptr2 = ptr1; *ptr2 && !isspace(*ptr2); ptr2++);
+     savech = *ptr2;
+     *ptr2 = '\0';
+     /*
+     bbslog("search node %s\n",ptr1);
+     */
+     nl = (nodelist_t*) search_nodelist_bynode(ptr1);
+     /*
+     bbslog("search node node %s, host %s fp %d\n",nl->node, nl->host, nl->feedfp);
+     */
+     *ptr2 = savech;
+     ptr1 = ptr2++;
+     if (nl == NULL) continue;
+     if (nl->feedfp == NULL) continue;
+     if (isexcluded(path1,nl)) continue;
+     /*path2 = (char*)mymalloc(strlen(nl->node) + 3);
+     sprintf(path2, "!%s!",nl->node);
+     free(path2);
+     */
+     /*
+     bbslog("path1 %s path2 %s\n",path1, path2);
+     */
+     /*if (strstr(path1, path2) != NULL) return;*/
+     /* to conform to the bntplink batch file */
+     {
+	char *slash = strrchr(filepath,'/');
+	if (slash != NULL) *slash = '\t';
+        fprintf(nl->feedfp,"%s\t%s\t\t%s\t%s\t%c\t%s\t%s!%s\n", 
+	  filepath == NULL ? "": filepath,
+	  GROUPS, FROM, SUBJECT, type, MSGID, MYBBSID, HEADER[PATH_H]);
+	if (slash != NULL) *slash = '/';
+     }
+     fflush(nl->feedfp);
+     if (savech == '\0') break;
+    }
+    free(path1); 
+  }
+}
+
+static FILE* bbsfeedsfp = NULL;
+static bbsfeedson = -1;
+
+init_bbsfeedsfp()
+{
+   if (bbsfeedsfp != NULL) {
+      fclose(bbsfeedsfp);
+      bbsfeedsfp = NULL;
+   }
+   bbsfeedson = -1;
+}
+
+bbsfeedslog(filepath, type) 
+char *filepath;
+int type;
+{
+
+   char datebuf[40];
+   time_t now;
+
+   if (bbsfeedson ==0) return;
+   if (bbsfeedson == -1) {
+    if (!isfile(BBSFEEDS)) {
+      bbsfeedson = 0;
+      return;
+    }
+    bbsfeedson = 1;
+   } 
+
+   if (bbsfeedsfp == NULL) {
+      bbsfeedsfp = fopen(BBSFEEDS,"a");
+   }
+   time(&now);
+   strftime(datebuf, sizeof(datebuf), "%b %d %X ", localtime(&now));
+
+   if( bbsfeedsfp != NULL ) {
+	fprintf(bbsfeedsfp,"%s %c %s %s %s %s!%s %s\n", datebuf, type, 
+	      REMOTEHOSTNAME, GROUPS, MSGID, MYBBSID, HEADER[PATH_H], filepath==NULL? "": filepath);
+	fflush(bbsfeedsfp);
+   }
+}
+
+static FILE* echomailfp = NULL;
+static echomaillogon = -1;
+
+init_echomailfp()
+{
+   if (echomailfp != NULL) {
+      fclose(echomailfp);
+      echomailfp = NULL;
+   }
+   echomaillogon = -1;
+}
+
+echomaillog() 
+{
+
+   if (echomaillogon ==0) return;
+   if (echomaillogon == -1) {
+    if (!isfile(ECHOMAIL)) {
+      echomaillogon = 0;
+      return;
+    }
+    echomaillogon = 1;
+   } 
+
+   if (echomailfp == NULL) {
+      echomailfp = fopen(ECHOMAIL,"a");
+   }
+
+   if( echomailfp != NULL ) {
+	fprintf(echomailfp,"\n");
+	fprintf(echomailfp,"發信人: %s, 信區: %s\n", FROM, GROUPS);
+	str_decode_M3(SUBJECT);
+	fprintf(echomailfp,"標  題: %s\n", SUBJECT);
+	fprintf(echomailfp,"發信站: %s (%s)\n", SITE, DATE);
+	fprintf(echomailfp,"轉信站: %s (%s)\n", PATH, REMOTEHOSTNAME);
+	fflush(echomailfp);
+   }
+}
+
+int headercmp(a,b)
+header_t *a, *b;
+{
+   return strcasecmp(a->name, b->name);
+}
+
+int readlines(client)
+ClientType *client;
+{
+    int fd = client->fd;
+    char *buffer = client->buffer;
+    buffer_t *in = &client->in;
+    char *front = in->data, *ptr, *hptr;
+    int i;
+
+    for (i=0; i < LASTHEADER; i++ ) 
+      HEADER[i] = NULL;
+    for (ptr = (char*)strchr(in->data,'\n'); ptr != NULL && *ptr != '\0' ; front = ptr+1, ptr = (char*)strchr(front,'\n')) {
+	*ptr = '\0';
+        if (front[0] == '\r' || front[1] == '\n') {
+	   BODY = front+2;
+	   break;
+        }
+        hptr = (char*)strchr(front,':');
+	if (hptr != NULL && hptr[1] == ' ') {
+	   int value;
+	   *hptr = '\0';
+           value = headervalue(front); 
+	   if (value != -1) {
+	      char *tp;
+	      HEADER[value] = hptr + 2;
+	      if ((tp = (char*)strchr(HEADER[value],'\r'))!=NULL)
+                 *tp = '\0';
+	   }
+	   *hptr = ':';
+	}
+	/**ptr = '\n';*/
+    }
+    NNTPHOST = HEADER[NNTPHOST_H];
+    PATH     = HEADER[PATH_H];
+    FROM     = HEADER[FROM_H];
+    GROUPS   = HEADER[NEWSGROUPS_H];
+    SUBJECT  = HEADER[SUBJECT_H];
+    DATE     = HEADER[DATE_H];
+    SITE     = HEADER[ORGANIZATION_H];
+    MSGID    = HEADER[MID_H];
+    CONTROL  = HEADER[CONTROL_H];
+    POSTHOST = HEADER[NNTPPOSTINGHOST_H];
+    if (POSTHOST == NULL) {
+      if (HEADER[X_Auth_From_H] != NULL) {
+        POSTHOST = HEADER[X_Auth_From_H];
+        HEADER[NNTPPOSTINGHOST_H] = POSTHOST;
+      }
+    }
+#ifdef PalmBBS
+    XPATH    = PATH;
+    XHEADER  = HEADER;
+#endif
+}
+
+int headervalue(inputheader)
+char *inputheader;
+{
+   header_t key, *findkey;
+   static int hasinit=0;
+
+   if (hasinit == 0) {
+      article_init();
+      hasinit = 1;
+   }
+
+   key.name = inputheader;
+   findkey = ( header_t *)bsearch (
+		   (char *) &key, (char *) headertable, 
+		   sizeof(headertable)/ sizeof(header_t), sizeof (key), 
+		   headercmp);
+   if (findkey != NULL) return findkey->id;
+   return -1;
+}
+
+article_init()
+{
+   int i;
+   static int article_inited = 0;
+
+   if (article_inited) return;
+   article_inited = 1;
+
+   qsort(headertable, sizeof(headertable)/ sizeof(header_t), sizeof(header_t),
+	 headercmp);
+   for (i=0; i < LASTHEADER; i++ ) 
+      HEADER[i] = NULL;
+}
+
+#ifdef INNTOBBS_MAIN
+main()
+{
+    int i,j,k,l,m,n,o,p,q;
+    article_init(); 
+    i = headervalue("Subject");
+    j = headervalue("From");
+    k = headervalue("Date");
+    l = headervalue("NNTP-Posting-Host");
+    m = headervalue("Newsgroups");
+    n = headervalue("Message-ID");
+}
+#endif
diff --git a/pttbbs/innbbsd/inntobbs.h b/pttbbs/innbbsd/inntobbs.h
new file mode 100644
index 00000000..1026e6d7
--- /dev/null
+++ b/pttbbs/innbbsd/inntobbs.h
@@ -0,0 +1,39 @@
+#ifndef INNTOBBS_H
+#define INNTOBBS_H
+
+enum HeaderValue {
+SUBJECT_H, FROM_H, DATE_H, MID_H, NEWSGROUPS_H,
+NNTPPOSTINGHOST_H, NNTPHOST_H, CONTROL_H, PATH_H,
+ORGANIZATION_H, X_Auth_From_H, APPROVED_H, DISTRIBUTION_H, 
+REFERENCES_H, KEYWORDS_H, SUMMARY_H,
+LASTHEADER,
+};
+
+#if !defined(PalmBBS)
+extern char *HEADER[];
+extern char *BODY;
+extern char *FROM, *SUBJECT, *SITE, *DATE, *POSTHOST, 
+	    *NNTPHOST, *PATH, *GROUPS, *MSGID, *CONTROL;
+extern char *REMOTEHOSTNAME, *REMOTEUSERNAME;
+#else
+extern char **XHEADER;
+extern char *BODY;
+extern char *FROM, *SUBJECT, *SITE, *DATE, *POSTHOST, 
+	    *NNTPHOST, *XPATH, *GROUPS, *MSGID, *CONTROL;
+extern char *REMOTEHOSTNAME, *REMOTEUSERNAME;
+#endif
+
+int receive_article();
+
+#if defined(PalmBBS)
+#ifndef INNTOBBS
+#ifndef PATH
+# define PATH XPATH
+#endif
+#ifndef HEADER
+# define HEADER XHEADER
+#endif
+#endif
+#endif
+
+#endif
diff --git a/pttbbs/innbbsd/mkhistory.c b/pttbbs/innbbsd/mkhistory.c
new file mode 100644
index 00000000..4be980ea
--- /dev/null
+++ b/pttbbs/innbbsd/mkhistory.c
@@ -0,0 +1,14 @@
+#include "innbbsconf.h"
+#include "bbslib.h"
+
+main(argc,argv)
+int argc;
+char *argv[];
+{
+    if (argc < 2) {
+       fprintf(stderr,"Usage: %s history-file\n",argv[0]);
+       exit(1);
+    }
+    initial_bbs(NULL);
+    mkhistory(argv[1]);
+}
diff --git a/pttbbs/innbbsd/nntp.h b/pttbbs/innbbsd/nntp.h
new file mode 100644
index 00000000..489f3502
--- /dev/null
+++ b/pttbbs/innbbsd/nntp.h
@@ -0,0 +1,145 @@
+/*  $Revision: 1.1 $
+**
+**  Here be a set of NNTP response codes as defined in RFC977 and elsewhere.
+**  The reponse codes are three digits, RFI, defined like this:
+**	R, Response:
+**		1xx	Informative message
+**		2xx	Command ok
+**		3xx	Command ok so far, send the rest of it.
+**		4xx	Command was correct, but couldn't be performed for
+**			some reason.
+**		5xx	Command unimplemented, or incorrect, or a serious
+**			program error occurred.
+**	F, Function:
+**		x0x	Connection, setup, and miscellaneous messages
+**		x1x	Newsgroup selection
+**		x2x	Article selection
+**		x3x	Distribution functions
+**		x4x	Posting
+**		x8x	Nonstandard extensions (AUTHINFO, XGTITLE)
+**		x9x	Debugging output
+**	I, Information:
+**		No defined semantics
+*/
+#define NNTP_HELPOK_VAL			100
+#define NNTP_BAD_COMMAND_VAL		500
+#define NNTP_BAD_COMMAND		"500 Syntax error or bad command"
+#define NNTP_TEMPERR_VAL		503
+#define NNTP_ACCESS			"502 Permission denied"
+#define NNTP_ACCESS_VAL			502
+#define NNTP_GOODBYE_ACK		"205"
+#define NNTP_GOODBYE_ACK_VAL		205
+#define NNTP_GOODBYE			"400"
+#define NNTP_GOODBYE_VAL		400
+#define NNTP_HAVEIT			"435 Duplicate"
+#define NNTP_HAVEIT_BADID		"435 Bad Message-ID"
+#define NNTP_HAVEIT_VAL			435
+#define NNTP_LIST_FOLLOWS		"215"
+#define NNTP_LIST_FOLLOWS_VAL		215
+#define NNTP_HELP_FOLLOWS		"100 Legal commands"
+#define NNTP_HELP_FOLLOWS_VAL		100
+#define NNTP_NOTHING_FOLLOWS_VAL	223
+#define NNTP_ARTICLE_FOLLOWS		"220"
+#define NNTP_ARTICLE_FOLLOWS_VAL	220
+#define NNTP_NEWGROUPS_FOLLOWS_VAL	231
+#define NNTP_HEAD_FOLLOWS		"221"
+#define NNTP_HEAD_FOLLOWS_VAL		221
+#define NNTP_BODY_FOLLOWS_VAL		222
+#define NNTP_OVERVIEW_FOLLOWS_VAL	224
+#define NNTP_DATE_FOLLOWS_VAL		111
+#define NNTP_POSTOK			"200"
+#define NNTP_POSTOK_VAL			200
+#define NNTP_START_POST_VAL		340
+#define NNTP_NOPOSTOK_VAL		201
+#define NNTP_SLAVEOK_VAL		202
+#define NNTP_REJECTIT_VAL		437
+#define NNTP_REJECTIT_EMPTY		"437 Empty article"
+#define NNTP_DONTHAVEIT			"430"
+#define NNTP_DONTHAVEIT_VAL		430
+#define NNTP_RESENDIT_NOHIST		"436 Can't write history"
+#define NNTP_RESENDIT_NOSPACE		"436 No space"
+#define NNTP_RESENDIT_VAL		436
+#define NNTP_POSTEDOK			"240 Article posted"
+#define NNTP_POSTEDOK_VAL		240
+#define NNTP_POSTFAIL_VAL		441
+#define NNTP_GROUPOK_VAL		211
+#define NNTP_SENDIT			"335"
+#define NNTP_SENDIT_VAL			335
+#define NNTP_SYNTAX_USE			"501 Bad command use"
+#define NNTP_SYNTAX_VAL			501
+#define NNTP_TOOKIT			"235"
+#define NNTP_TOOKIT_VAL			235
+#define NNTP_NOTINGROUP			"412 Not in a newsgroup"
+#define NNTP_NOTINGROUP_VAL		412
+#define NNTP_NOSUCHGROUP		"411 No such group"
+#define NNTP_NOSUCHGROUP_VAL		411
+#define NNTP_NEWNEWSOK			"230 New news follows"
+#define NNTP_NOARTINGRP			"423 Bad article number"
+#define NNTP_NOARTINGRP_VAL		423
+#define NNTP_NOCURRART			"420 No current article"
+#define NNTP_NOCURRART_VAL		420
+#define NNTP_NONEXT_VAL			421
+#define NNTP_NOPREV_VAL			422
+#define NNTP_CANTPOST			"440 Posting not allowed"
+#define NNTP_CANTPOST_VAL		440
+
+
+/*
+**  The first character of an NNTP reply can be used as a category class.
+*/
+#define NNTP_CLASS_OK			'2'
+#define NNTP_CLASS_ERROR		'4'
+#define NNTP_CLASS_FATAL		'5'
+
+
+/*
+**  The NNTP protocol currently has no way to say "offer me this article
+**  later, but don't close the connection."  That will be fixed in NNTP2.
+#define NNTP_RESENDIT_LATER		"?"
+#define NNTP_RESENDIT_LATER_VAL		?
+*/
+
+
+/*
+**  Authentication commands from the RFC update (not official).
+*/
+#define NNTP_AUTH_NEEDED		"480"
+#define NNTP_AUTH_NEEDED_VAL		480
+#define NNTP_AUTH_BAD			"481"
+#define NNTP_AUTH_NEXT			"381"
+#define NNTP_AUTH_NEXT_VAL		381
+#define NNTP_AUTH_OK			"281"
+#define NNTP_AUTH_OK_VAL		281
+#define NNTP_AUTH_REJECT_VAL		482
+
+/*
+**  XGTITLE, from ANU news.
+*/
+#define NNTP_XGTITLE_BAD		481	/* Yes, 481. */
+#define NNTP_XGTITLE_OK			282
+
+#define NNTP_STRLEN			512
+
+/*
+**  For tin newsreader
+*/
+#define OK_XINDEX       		218     /* Tin style group index file follows */
+#define OK_XMOTD        		217     /* Motd (message of the day) file follows */
+#define ERR_XINDEX                      418	/* No tin style index file for newsgroup */
+#define ERR_XMOTD       		417     /* No motd (message of the day) file */
+
+/* For DBZ server */
+#define NNTP_ADDHIST_OK			283     /* addhist OK */
+#define NNTP_GREPHIST_OK		284     /* grephist OK */
+#define NNTP_MIDCHECK_OK		285     /* grephist OK */
+#define NNTP_SHUTDOWN_OK		286     /* grephist OK */
+#define NNTP_RELOAD_OK		        287     /* grephist OK */
+#define NNTP_MODE_OK		        101     /* grephist OK */
+#define NNTP_VERBOSELOG_OK		289     /* grephist OK */
+#define NNTP_ADDHIST_BAD		483     /* addhist fail */
+#define NNTP_GREPHIST_BAD               484     /* grephist fail */
+#define NNTP_MIDCHECK_BAD               485     /* grephist fail */
+#define NNTP_SHUTDOWN_BAD               486     /* grephist fail */
+#define NNTP_RELOAD_BAD                 487     /* grephist fail */
+#define NNTP_MODE_BAD                   488     /* grephist fail */
+#define NNTP_VERBOSELOG_BAD             489     /* grephist fail */
diff --git a/pttbbs/innbbsd/pmain.c b/pttbbs/innbbsd/pmain.c
new file mode 100644
index 00000000..39ddba22
--- /dev/null
+++ b/pttbbs/innbbsd/pmain.c
@@ -0,0 +1,62 @@
+#include "innbbsconf.h"
+#include "daemon.h"
+
+/*char *AccessFile=ACCESSFILE;*/
+#define INNBBSDPORT1 "1904"
+#define INNBBSDPORT2 "1234"
+#define INNBBSDPATH1  ".innbbsd1"
+#define INNBBSDPATH2  ".innbbsd2"
+
+pmain(port)
+char *port;
+{
+    if (port == NULL) {
+	int rel;
+/*	installbbstalkd(); */
+	fprintf(stderr,"Trying to listen in port %s\n",INNBBSDPORT1);
+	rel = open_listen(INNBBSDPORT1,"tcp",NULL);
+#ifdef DEBUG
+	printf("port fd %d allocated\n",rel);
+#endif
+	if (rel<0) { 
+		fprintf(stderr,"Trying to listen in port %s\n",INNBBSDPORT2);
+		return open_listen(INNBBSDPORT2,"tcp",NULL);
+	}
+	return rel;
+    } else {
+#ifdef DEBUG
+	printf("start to allocate port\n");
+#endif
+        return open_listen(port,"tcp",NULL);
+    } 
+}
+
+p_unix_main(path)
+char *path;
+{
+    if (path == NULL) {
+	int rel;
+/*	installbbstalkd(); */
+	fprintf(stderr,"Trying to listen in port %s\n",INNBBSDPATH1);
+	rel = open_unix_listen(INNBBSDPATH1,"tcp",NULL);
+#ifdef DEBUG
+	printf("port fd %d allocated\n",rel);
+#endif
+	if (rel<0) { 
+		fprintf(stderr,"Trying to listen in port %s\n",INNBBSDPATH2);
+		return open_listen(INNBBSDPATH2,"tcp",NULL);
+	}
+	return rel;
+    } else {
+#ifdef DEBUG
+	printf("start to allocate path %s\n", path);
+#endif
+        int fd = unixclient(path,"tcp");
+	if (fd < 0) 
+	   unlink(path);
+        else
+	   close(fd);
+        return open_unix_listen(path,"tcp",NULL);
+    } 
+}
+
diff --git a/pttbbs/innbbsd/port.c b/pttbbs/innbbsd/port.c
new file mode 100644
index 00000000..65e91fa4
--- /dev/null
+++ b/pttbbs/innbbsd/port.c
@@ -0,0 +1,28 @@
+#include "innbbsconf.h"
+
+#ifdef NO_getdtablesize
+#include <sys/time.h>
+#include <sys/resource.h>
+getdtablesize()
+{
+  struct rlimit       limit;
+  if (getrlimit(RLIMIT_NOFILE, &limit) >= 0){
+     return limit.rlim_cur;
+  }
+  return -1;
+}
+#endif
+
+#if defined(SYSV) && !defined(WITH_RECORD_O)
+#include <fcntl.h>
+flock(fd, op)
+int fd,op;
+{
+   switch (op) {
+     case LOCK_EX: op = F_LOCK; break;  
+     case LOCK_UN: op = F_ULOCK; break;
+     default: return -1;
+   }
+   return lockf(fd, op, 0L);
+}
+#endif
diff --git a/pttbbs/innbbsd/receive_article.c b/pttbbs/innbbsd/receive_article.c
new file mode 100644
index 00000000..29790a96
--- /dev/null
+++ b/pttbbs/innbbsd/receive_article.c
@@ -0,0 +1,1204 @@
+/*
+ * BBS implementation dependendent part
+ *
+ * The only two interfaces you must provide
+ *
+ * #include "inntobbs.h" int receive_article(); 0 success not 0 fail
+ *
+ * if (storeDB(HEADER[MID_H], hispaths) < 0) { .... fail }
+ *
+ * int cancel_article_front( char *msgid );          0 success not 0 fail
+ *
+ * char *ptr = (char*)DBfetch(msgid);
+ *
+ * 收到之文章內容 (body)在 char *BODY, 檔頭 (header)在 char *HEADER[] SUBJECT_H,
+ * FROM_H, DATE_H, MID_H, NEWSGROUPS_H, NNTPPOSTINGHOST_H, NNTPHOST_H,
+ * CONTROL_H, PATH_H, ORGANIZATION_H
+ */
+
+/*
+ * Sample Implementation
+ *
+ * receive_article()         --> post_article()   --> bbspost_write_post();
+ * cacnel_article_front(mid) --> cancel_article() --> bbspost_write_cancel();
+ */
+
+
+#ifndef PowerBBS
+#include "innbbsconf.h"
+#include "daemon.h"
+#include "bbslib.h"
+#include "inntobbs.h"
+#include "antisplam.h"
+
+extern int Junkhistory;
+
+char *post_article ARG((char *, char *, char *, int (*) (), char *, char *));
+int cancel_article ARG((char *, char *, char *));
+
+
+#ifdef  MapleBBS
+#include "config.h"
+#include "pttstruct.h"
+#define _BBS_UTIL_C_
+#else
+report()
+{
+  /* Function called from record.o */
+  /* Please leave this function empty */
+}
+#endif
+
+
+#if defined(PalmBBS)
+
+#ifndef PATH
+# define PATH XPATH
+#endif
+
+#ifndef HEADER
+# define HEADER XHEADER
+#endif
+
+#endif
+
+/* process post write */
+bbspost_write_post(fh, board, filename)
+  int fh;
+  char *board;
+  char *filename;
+{
+  char *fptr, *ptr;
+  FILE *fhfd = fdopen(fh, "w");
+
+  if (fhfd == NULL)
+  {
+    bbslog("can't fdopen, maybe disk full\n");
+    return -1;
+  }
+
+  fprintf(fhfd, "發信人: %.60s, 看板: %s\n", FROM, board);
+  fprintf(fhfd, "標  題: %.70s\n", SUBJECT);
+  fprintf(fhfd, "發信站: %.43s (%s)\n", SITE, DATE);
+  fprintf(fhfd, "轉信站: %.70s\n", PATH);
+
+#ifndef MapleBBS
+  if (POSTHOST != NULL)
+  {
+    fprintf(fhfd, "Origin: %.70s\n", POSTHOST);
+  }
+#endif
+
+  fprintf(fhfd, "\n");
+  for (fptr = BODY, ptr = strchr(fptr, '\r'); ptr != NULL && *ptr != '\0'; fptr = ptr + 1, ptr = strchr(fptr, '\r'))
+  {
+    int ch = *ptr;
+    *ptr = '\0';
+    fputs(fptr, fhfd);
+    *ptr = ch;
+  }
+  fputs(fptr, fhfd);
+
+  fflush(fhfd);
+  fclose(fhfd);
+  return 0;
+}
+
+#ifdef  KEEP_NETWORK_CANCEL
+/* process cancel write */
+bbspost_write_cancel(fh, board, filename)
+  int fh;
+  char *board, *filename;
+{
+  char *fptr, *ptr;
+  FILE *fhfd = fdopen(fh, "w"), *fp;
+  char buffer[256];
+
+  if (fhfd == NULL)
+  {
+    bbslog("can't fdopen, maybe disk full\n");
+    return -1;
+  }
+
+  fprintf(fhfd, "發信人: %s, 信區: %s\n", FROM, board);
+  fprintf(fhfd, "標  題: %s\n", SUBJECT);
+  fprintf(fhfd, "發信站: %.43s (%s)\n", SITE, DATE);
+  fprintf(fhfd, "轉信站: %.70s\n", PATH);
+  if (HEADER[CONTROL_H] != NULL)
+  {
+    fprintf(fhfd, "Control: %s\n", HEADER[CONTROL_H]);
+  }
+  if (POSTHOST != NULL)
+  {
+    fprintf(fhfd, "Origin: %s\n", POSTHOST);
+  }
+  fprintf(fhfd, "\n");
+  for (fptr = BODY, ptr = strchr(fptr, '\r'); ptr != NULL && *ptr != '\0'; fptr = ptr + 1, ptr = strchr(fptr, '\r'))
+  {
+    int ch = *ptr;
+    *ptr = '\0';
+    fputs(fptr, fhfd);
+    *ptr = ch;
+  }
+  fputs(fptr, fhfd);
+  if (POSTHOST != NULL)
+  {
+    fprintf(fhfd, "\n * Origin: ● %.26s ● From: %.40s\n", SITE, POSTHOST);
+  }
+  fprintf(fhfd, "\n---------------------\n");
+  fp = fopen(filename, "r");
+  if (fp == NULL)
+  {
+    bbslog("can't open %s\n", filename);
+    return -1;
+  }
+  while (fgets(buffer, sizeof buffer, fp) != NULL)
+  {
+    fputs(buffer, fhfd);
+  }
+  fclose(fp);
+  fflush(fhfd);
+  fclose(fhfd);
+
+  {
+    fp = fopen(filename, "w");
+    if (fp == NULL)
+    {
+      bbslog("can't write %s\n", filename);
+      return -1;
+    }
+    fprintf(fp, "發信人: %s, 信區: %s\n", FROM, board);
+    fprintf(fp, "標  題: %.70s\n", SUBJECT);
+    fprintf(fp, "發信站: %.43s (%s)\n", SITE, DATE);
+    fprintf(fp, "轉信站: %.70s\n", PATH);
+    if (POSTHOST != NULL)
+    {
+      fprintf(fhfd, "Origin: %s\n", POSTHOST);
+    }
+    if (HEADER[CONTROL_H] != NULL)
+    {
+      fprintf(fhfd, "Control: %s\n", HEADER[CONTROL_H]);
+    }
+    fprintf(fp, "\n");
+    for (fptr = BODY, ptr = strchr(fptr, '\r'); ptr != NULL && *ptr != '\0'; fptr = ptr + 1, ptr = strchr(fptr, '\r'))
+    {
+      *ptr = '\0';
+      fputs(fptr, fp);
+    }
+    fputs(fptr, fp);
+    if (POSTHOST != NULL)
+    {
+      fprintf(fp, "\n * Origin: ● %.26s ● From: %.40s\n", SITE, POSTHOST);
+    }
+    fclose(fp);
+  }
+  return 0;
+}
+#endif
+
+
+bbspost_write_control(fh, board, filename)
+  int fh;
+  char *board;
+  char *filename;
+{
+  char *fptr, *ptr;
+  FILE *fhfd = fdopen(fh, "w");
+
+  if (fhfd == NULL)
+  {
+    bbslog("can't fdopen, maybe disk full\n");
+    return -1;
+  }
+
+  fprintf(fhfd, "Path: %s!%s\n", MYBBSID, HEADER[PATH_H]);
+  fprintf(fhfd, "From: %s\n", FROM);
+  fprintf(fhfd, "Newsgroups: %s\n", GROUPS);
+  fprintf(fhfd, "Subject: %s\n", SUBJECT);
+  fprintf(fhfd, "Date: %s\n", DATE);
+  fprintf(fhfd, "Organization: %s\n", SITE);
+  if (POSTHOST != NULL)
+  {
+    fprintf(fhfd, "NNTP-Posting-Host: %.70s\n", POSTHOST);
+  }
+  if (HEADER[CONTROL_H] != NULL)
+  {
+    fprintf(fhfd, "Control: %s\n", HEADER[CONTROL_H]);
+  }
+  if (HEADER[APPROVED_H] != NULL)
+  {
+    fprintf(fhfd, "Approved: %s\n", HEADER[APPROVED_H]);
+  }
+  if (HEADER[DISTRIBUTION_H] != NULL)
+  {
+    fprintf(fhfd, "Distribution: %s\n", HEADER[DISTRIBUTION_H]);
+  }
+  fprintf(fhfd, "\n");
+  for (fptr = BODY, ptr = strchr(fptr, '\r'); ptr != NULL && *ptr != '\0'; fptr = ptr + 1, ptr = strchr(fptr, '\r'))
+  {
+    int ch = *ptr;
+    *ptr = '\0';
+    fputs(fptr, fhfd);
+    *ptr = ch;
+  }
+  fputs(fptr, fhfd);
+
+
+  fflush(fhfd);
+  fclose(fhfd);
+  return 0;
+}
+
+
+time_t datevalue;
+
+
+/* process cancel write */
+receive_article()
+{
+  int i;
+  char *user, *userptr;
+  char *ngptr, *nngptr, *pathptr;
+  char **splitptr;
+  static char userid[32];
+  static char xdate[32];
+  static char xpath[180];
+  newsfeeds_t *nf;
+  char *boardhome;
+  char hispaths[4096];
+  char firstpath[MAXPATHLEN], *firstpathbase;
+  char *lesssym, *nameptrleft, *nameptrright;
+  static char sitebuf[80];
+
+#ifdef HMM_USE_ANTI_SPAM
+ char *notitle[] =
+    {"行銷", "業務代表", "徵", "資訊", "免費", "大贈送", "傳銷", "未滿",
+     "年費", "傳呼", "價", "操你媽", "未成年", "馬賽克", "信用", "賺錢",
+     "=?", "!!!",
+     "操你", "操你", "幹妳", "操妳","**","★★","＊＊","＄＄","泡麵", NULL},
+    *nofrom[] =
+    {"TaipeiNet.Net", "hotmail.com", "mt.touc.edu.tw", "ms11.hinet.net", NULL}, 
+    *nocont[] =
+    {"名額有限", "優惠價", "動作要快", "訂購", "特價", "專賣", "BBC",
+     "幹你", "操你", "幹妳", "操妳","每片","最新目錄", "http://", "收錢",
+     "創業", "付款", "廣告信", "只賣", "市價", "NCg", "ICAg", NULL};  
+#endif
+
+  if (FROM == NULL)
+  {
+    bbslog(":Err: article without usrid %s\n", MSGID);
+    return 0;
+  }
+  else 
+  {
+#ifdef HMM_USE_ANTI_SPAM
+    for(i=0; nofrom[i]; i++)
+      if(strstr(FROM, nofrom[i]))
+       {
+         morelog_to(INNBBSD_SPAM, "spam from [%s]: %s\n", nofrom[i], FROM);
+         morelog_to(INNBBSD_SPAM, "  %s %s %s %s\n", FROM, PATH, GROUPS, SUBJECT);
+         bbslog(":Ptt: spam from [%s]: %s\n", nofrom[i], FROM);
+         return 0;
+       }
+#endif
+  }
+
+  if(!BODY)
+  {
+    bbslog(":Err: article without body %s\n", MSGID);
+    return 0;
+  }
+  else
+  {
+#ifdef HMM_USE_ANTI_SPAM
+    for(i=0; nocont[i]; i++)
+      if(strstr(BODY, nocont[i]))
+       {
+         morelog_to(INNBBSD_SPAM, "spam body [%s]: %s\n", nocont[i]);
+         morelog_to(INNBBSD_SPAM, "  %s %s %s %s\n", FROM, PATH, GROUPS, SUBJECT);
+         bbslog(":Ptt: spam body [%s]: %s\n", nocont[i]);
+         return 0;
+       }   
+#endif
+  }
+
+  if(!SUBJECT)
+  {
+    bbslog(":Err: article without subject %s\n", MSGID);
+    return 0;
+  }
+  else
+  {
+#ifdef HMM_USE_ANTI_SPAM
+    for(i=0; notitle[i]; i++)
+      if(strstr(SUBJECT, notitle[i]))
+       {
+         morelog_to(INNBBSD_SPAM, "spam title [%s]: %s\n", notitle[i], SUBJECT);
+         morelog_to(INNBBSD_SPAM, "  %s %s %s %s\n", FROM, PATH, GROUPS, SUBJECT);
+         bbslog(":Ptt: spam title [%s]: %s\n", notitle[i], SUBJECT);
+         return 0;
+       }
+#endif
+  }
+
+
+  user = (char *) strchr(FROM, '@');
+  lesssym = (char *) strchr(FROM, '<');
+  nameptrleft = NULL, nameptrright = NULL;
+  if (lesssym == NULL || lesssym >= user)
+  {
+    lesssym = FROM;
+    nameptrleft = strchr(FROM, '(');
+    if (nameptrleft != NULL)
+      nameptrleft++;
+    nameptrright = strrchr(FROM, ')');
+  }
+  else
+  {
+    nameptrleft = FROM;
+    nameptrright = strrchr(FROM, '<');
+    lesssym++;
+  }
+  if (user != NULL)
+  {
+    *user = '\0';
+    userptr = (char *) strchr(FROM, '.');
+    if (userptr != NULL)
+    {
+      *userptr = '\0';
+      strncpy(userid, lesssym, sizeof userid);
+      *userptr = '.';
+    }
+    else
+    {
+      strncpy(userid, lesssym, sizeof userid);
+    }
+    *user = '@';
+  }
+  else
+  {
+    strncpy(userid, lesssym, sizeof userid);
+  }
+  strcat(userid, ".");
+
+  {
+      struct tm tmbuf;
+      
+      strptime(DATE, "%d %b %Y %X GMT", &tmbuf);
+      datevalue = timegm(&tmbuf);
+  }
+
+  if (datevalue > 0)
+  {
+    char *p;
+    strncpy(xdate, ctime(&datevalue), sizeof(xdate));
+    p = (char *) strchr(xdate, '\n');
+    if (p != NULL)
+      *p = '\0';
+    DATE = xdate;
+  }
+
+#ifndef MapleBBS
+  if (SITE == NULL || *SITE == '\0')
+  {
+    if (nameptrleft != NULL && nameptrright != NULL)
+    {
+      char savech = *nameptrright;
+      *nameptrright = '\0';
+      strncpy(sitebuf, nameptrleft, sizeof sitebuf);
+      *nameptrright = savech;
+      SITE = sitebuf;
+    }
+    else
+      /* SITE = "(Unknown)"; */
+      SITE = "";
+  }
+  if (strlen(MYBBSID) > 70)
+  {
+    bbslog(" :Err: your bbsid %s too long\n", MYBBSID);
+    return 0;
+  }
+#endif
+
+  sprintf(xpath, "%s!%.*s", MYBBSID, sizeof(xpath) - strlen(MYBBSID) - 2, PATH);
+  PATH = xpath;
+  for (pathptr = PATH; pathptr != NULL && (pathptr = strstr(pathptr, ".edu.tw")) != NULL;)
+  {
+    if (pathptr != NULL)
+    {
+      strcpy(pathptr, pathptr + 7);
+    }
+  }
+  xpath[71] = '\0';
+
+#ifndef MapleBBS
+  echomaillog();
+#endif
+
+  *hispaths = '\0';
+  splitptr = (char **) BNGsplit(GROUPS);
+  firstpath[0] = '\0';
+  firstpathbase = firstpath;
+
+  for (ngptr = *splitptr; ngptr != NULL; ngptr = *(++splitptr))
+  {
+    char *boardptr, *nboardptr;
+
+    if (*ngptr == '\0')
+      continue;
+    nf = (newsfeeds_t *) search_group(ngptr);
+    if (nf == NULL)
+    {
+      bbslog("unwanted \'%s\'\n", ngptr);
+      continue;
+    }
+    if (nf->board == NULL || !*nf->board)
+      continue;
+    if (nf->path == NULL || !*nf->path)
+      continue;
+    for (boardptr = nf->board, nboardptr = (char *) strchr(boardptr, ','); boardptr != NULL && *boardptr != '\0'; nboardptr = (char *) strchr(boardptr, ','))
+    {
+      if (nboardptr != NULL)
+      {
+        *nboardptr = '\0';
+      }
+      if (*boardptr == '\t')
+      {
+        goto boardcont;
+      }
+      boardhome = (char *) fileglue("%s/boards/%c/%s", BBSHOME, boardptr[0], boardptr);
+      if (!isdir(boardhome))
+      {
+        bbslog(":Err: unable to write %s\n", boardhome);
+      }
+      else
+      {
+        char *fname;
+        /*
+         * if ( !isdir( boardhome )) { bbslog( ":Err: unable to write
+         * %s\n",boardhome); testandmkdir(boardhome); }
+         */
+        fname = (char *) post_article(boardhome, userid, boardptr, 
+                                 bbspost_write_post, NULL, firstpath);
+        if (fname != NULL)
+        {
+          fname = (char *) fileglue("%s/%s", boardptr, fname);
+          if (firstpath[0] == '\0')
+          {
+	    sprintf(firstpath, "%s/boards/%c, %s", BBSHOME, fname[0], fname);
+            firstpathbase = firstpath + strlen(BBSHOME) + strlen("/boards/x/");
+          }
+          if (strlen(fname) + strlen(hispaths) + 1 < sizeof(hispaths))
+          {
+            strcat(hispaths, fname);
+            strcat(hispaths, " ");
+          }
+        }
+        else
+        {
+          bbslog("fname is null %s\n", boardhome);
+          return -1;
+        }
+      }
+
+  boardcont:
+      if (nboardptr != NULL)
+      {
+        *nboardptr = ',';
+        boardptr = nboardptr + 1;
+      }
+      else
+        break;
+
+    }                           /* for board1,board2,... */
+    /*
+     * if (nngptr != NULL) ngptr = nngptr + 1; else break;
+     */
+    if (*firstpathbase)
+      feedfplog(nf, firstpathbase, 'P');
+  }
+  if (*hispaths)
+    bbsfeedslog(hispaths, 'P');
+
+  if (Junkhistory || *hispaths)
+  {
+    if (storeDB(HEADER[MID_H], hispaths) < 0)
+    {
+      bbslog("store DB fail\n");
+      /* I suspect here will introduce duplicated articles */
+      /* return -1; */
+    }
+  }
+  return 0;
+}
+
+receive_control()
+{
+  char *boardhome, *fname;
+  char firstpath[MAXPATHLEN], *firstpathbase;
+  char **splitptr, *ngptr;
+  newsfeeds_t *nf;
+
+  bbslog("control post %s\n", HEADER[CONTROL_H]);
+  boardhome = (char *) fileglue("%s/boards/c/control", BBSHOME);
+  testandmkdir(boardhome);
+  *firstpath = '\0';
+  if (isdir(boardhome))
+  {
+    fname = (char *) post_article(boardhome, FROM, "control", bbspost_write_control, NULL, firstpath);
+    if (fname != NULL)
+    {
+      if (firstpath[0] == '\0')
+	sprintf(firstpath, "%s/boards/c/control/%s", BBSHOME, fname);
+      if (storeDB(HEADER[MID_H], (char *) fileglue("control/%s", fname)) < 0)
+      {
+      }
+      bbsfeedslog(fileglue("control/%s", fname), 'C');
+      firstpathbase = firstpath + strlen(BBSHOME) + strlen("/boards/x/");
+      splitptr = (char **) BNGsplit(GROUPS);
+      for (ngptr = *splitptr; ngptr != NULL; ngptr = *(++splitptr))
+      {
+        if (*ngptr == '\0')
+          continue;
+        nf = (newsfeeds_t *) search_group(ngptr);
+        if (nf == NULL)
+          continue;
+        if (nf->board == NULL)
+          continue;
+        if (nf->path == NULL)
+          continue;
+        feedfplog(nf, firstpathbase, 'C');
+      }
+    }
+  }
+  return 0;
+}
+
+cancel_article_front(msgid)
+  char *msgid;
+{
+  char *ptr = (char *) DBfetch(msgid);
+  char *filelist, filename[2048];
+  char histent[4096];
+  char firstpath[MAXPATHLEN], *firstpathbase;
+  if (ptr == NULL)
+  {
+    bbslog("cancel failed(DBfetch): %s\n", msgid);
+    return 0;
+  }
+  strncpy(histent, ptr, sizeof histent);
+  ptr = histent;
+
+#ifdef DEBUG
+  printf("**** try to cancel %s *****\n", ptr);
+#endif
+
+  filelist = strchr(ptr, '\t');
+  if (filelist != NULL)
+  {
+    filelist++;
+  }
+  *firstpath = '\0';
+  for (ptr = filelist; ptr && *ptr;)
+  {
+    char *file;
+    for (; *ptr && isspace(*ptr); ptr++);
+    if (*ptr == '\0')
+      break;
+    file = ptr;
+    for (ptr++; *ptr && !isspace(*ptr); ptr++);
+    if (*ptr != '\0')
+    {
+      *ptr++ = '\0';
+    }
+    sprintf(filename, "%s/boards/%c/%s", BBSHOME, file[0], file);
+    bbslog("cancel post %s\n", filename);
+    if (isfile(filename))
+    {
+      FILE *fp = fopen(filename, "r");
+      char buffer[1024];
+      char xfrom0[100], xfrom[100], xpath[1024], *boardhome;
+
+      if (fp == NULL)
+        continue;
+      strncpy(xfrom0, HEADER[FROM_H], 99);
+      xfrom0[99] = 0;
+      strtok(xfrom0, ", ");
+      while (fgets(buffer, sizeof buffer, fp) != NULL)
+      {
+        char *hptr;
+        if (buffer[0] == '\n')
+          break;
+        hptr = strchr(buffer, '\n');
+        if (hptr != NULL)
+          *hptr = '\0';
+        if (strncmp(buffer, "發信人: ", 8) == 0)
+        {
+          strncpy(xfrom, buffer + 8, 99);
+          xfrom[99] = 0;
+          strtok(xfrom, ", ");
+        }
+        else if (strncmp(buffer, "轉信站: ", 8) == 0)
+        {
+          strcpy(xpath, buffer + 8);
+        }
+      }
+      fclose(fp);
+      if (strcmp(xfrom0, xfrom))
+      {
+        bbslog("Invalid cancel %s, path: %s!%s, [`%s` != `%s`]\n",
+           FROM, MYBBSID, PATH, xfrom0, xfrom);
+        return 0;
+      }
+
+#ifdef  KEEP_NETWORK_CANCEL
+      bbslog("cancel post %s\n", filename);
+      boardhome = (char *) fileglue("%s/boards/d/deleted", BBSHOME);
+      testandmkdir(boardhome);
+      if (isdir(boardhome))
+      {
+        char subject[1024];
+        char *fname;
+        if (POSTHOST)
+        {
+          sprintf(subject, "cancel by: %.1000s", POSTHOST);
+        }
+        else
+        {
+          char *body, *body2;
+          body = strchr(BODY, '\r');
+          if (body != NULL)
+            *body = '\0';
+          body2 = strchr(BODY, '\n');
+          if (body2 != NULL)
+            *body = '\0';
+          sprintf(subject, "%.1000s", BODY);
+          if (body != NULL)
+            *body = '\r';
+          if (body2 != NULL)
+            *body = '\n';
+        }
+        if (*subject){
+	  SUBJECT = subject;
+	}
+        fname = (char *) post_article(boardhome, FROM, "deleted", bbspost_write_cancel, filename, firstpath);
+        if (fname != NULL)
+        {
+          if (firstpath[0] == '\0')
+          {
+            sprintf(firstpath, "%s/boards/d/deleted/%s", BBSHOME, fname);
+            firstpathbase = firstpath + strlen(BBSHOME) + strlen("/boards/x/");
+          }
+          if (storeDB(HEADER[MID_H], (char *) fileglue("deleted/%s", fname)) < 0)
+          {
+            /* should do something */
+            bbslog("store DB fail\n");
+            /* return -1; */
+          }
+          bbsfeedslog(fileglue("deleted/%s", fname), 'D');
+
+#ifdef OLDDISPATCH
+          {
+            char board[256];
+            newsfeeds_t *nf;
+            char *filebase = filename + strlen(BBSHOME) + strlen("/boards/x/");
+            char *filetail = strrchr(filename, '/');
+            if (filetail != NULL)
+            {
+              strncpy(board, filebase, filetail - filebase);
+              nf = (newsfeeds_t *) search_board(board);
+              if (nf != NULL && nf->board && nf->path)
+              {
+                feedfplog(nf, firstpathbase, 'D');
+              }
+            }
+          }
+#endif
+        }
+        else
+        {
+          bbslog(" fname is null %s %s\n", boardhome, filename);
+          return -1;
+        }
+      }
+#else
+      /* bbslog("**** %s should be removed\n", filename); */
+/*
+      unlink(filename);
+*/
+#endif
+
+      {
+        char *fp = strrchr(file, '/');
+        if (fp != NULL)
+        {
+          *fp = '\0';
+          cancel_article(BBSHOME, file, fp + 1);
+          *fp = '/';
+        }
+      }
+    }
+  }
+  if (*firstpath)
+  {
+    char **splitptr, *ngptr;
+    newsfeeds_t *nf;
+    splitptr = (char **) BNGsplit(GROUPS);
+    for (ngptr = *splitptr; ngptr != NULL; ngptr = *(++splitptr))
+    {
+      if (*ngptr == '\0')
+        continue;
+      nf = (newsfeeds_t *) search_group(ngptr);
+      if (nf == NULL)
+        continue;
+      if (nf->board == NULL)
+        continue;
+      if (nf->path == NULL)
+        continue;
+      feedfplog(nf, firstpathbase, 'D');
+    }
+  }
+  return 0;
+}
+
+
+#if defined(PhoenixBBS) || defined(SecretBBS) || defined(PivotBBS) || defined(MapleBBS)
+/* for PhoenixBBS's post article and cancel article */
+#include "config.h"
+
+
+char *
+post_article(homepath, userid, board, writebody, pathname, firstpath)
+  char *homepath;
+  char *userid, *board;
+  int (*writebody) ();
+char *pathname, *firstpath;
+{
+  struct userec_t record;
+  struct fileheader_t header;
+  char *subject = SUBJECT;
+  char index[MAXPATHLEN];
+  static char name[MAXPATHLEN];
+  char article[MAXPATHLEN];
+  char buf[MAXPATHLEN], *ptr;
+  FILE *fidx;
+  int fh, bid;
+  time_t now;
+  int linkflag;
+/* Ptt
+  if(bad_subject(subject))  return NULL;
+*/
+  sprintf(index, "%s/.DIR", homepath);
+  if ((fidx = fopen(index, "r")) == NULL)
+  {
+    if ((fidx = fopen(index, "w")) == NULL)
+    {
+      bbslog(":Err: Unable to post in %s.\n", homepath);
+      return NULL;
+    }
+  }
+  fclose(fidx);
+
+  now = time(NULL);
+  while (1)
+  {
+    sprintf(name, "M.%d.A", ++now);
+    sprintf(article, "%s/%s", homepath, name);
+    fh = open(article, O_CREAT | O_EXCL | O_WRONLY, 0644);
+    if (fh >= 0)
+      break;
+    if (errno != EEXIST)
+    {
+      bbslog(" Err: can't writable or other errors\n");
+      return NULL;
+    }
+  }
+
+#ifdef DEBUG
+  printf("post to %s\n", article);
+#endif
+
+  linkflag = 1;
+  if (firstpath && *firstpath)
+  {
+    close(fh);
+    unlink(article);
+
+#ifdef DEBUGLINK
+    bbslog("try to link %s to %s", firstpath, article);
+#endif
+
+    linkflag = link(firstpath, article);
+    if (linkflag)
+    {
+      fh = open(article, O_CREAT | O_EXCL | O_WRONLY, 0644);
+    }
+  }
+  if (linkflag)
+  {
+    if (writebody)
+    {
+      if ((*writebody) (fh, board, pathname) < 0)
+        return NULL;
+    }
+    else
+    {
+      if (bbspost_write_post(fh, board, pathname) < 0)
+        return NULL;
+    }
+    close(fh);
+  }
+
+  bzero((void *) &header, sizeof(header));
+
+#ifndef MapleBBS
+  strcpy(header.filename, name);
+  strncpy(header.owner, userid, IDLEN);
+  strncpy(header.title, subject, STRLEN);
+  header.filename[STRLEN - 1] = 'M';
+#else
+
+  strcpy(header.filename, name);
+  if (userid[IDLEN])
+    strcpy(&userid[IDLEN], ".");
+  strcpy(header.owner, userid);
+  strncpy(header.title, subject, TTLEN);
+  header.filemode |= FILE_MULTI;
+  {
+    struct tm *ptime;
+    ptime = localtime(&datevalue);
+    sprintf(header.date, "%2d/%02d", ptime->tm_mon + 1, ptime->tm_mday);
+  }
+#endif
+
+  append_record(index, &header, sizeof(header));
+  
+  if((bid = getbnum(board)) > 0)
+        touchbtotal(bid);
+  return name;
+}
+
+/*
+woju
+Cross-fs rename()
+*/
+
+Rename(char* src, char* dst)
+{
+   char cmd[200];
+
+   bbslog("Rename: %s -> %s\n", src, dst);
+   if (rename(src, dst) == 0)
+      return 0;
+
+   sprintf(cmd, "/bin/mv %s %s", src, dst);
+   return system(cmd);
+}
+
+
+cancelpost(fileheader_t *fhdr, char* boardname)
+{
+  int fd;
+  char fpath[MAXPATHLEN];
+
+  sprintf(fpath, BBSHOME "/boards/%c/%s/%s", boardname[0], boardname, fhdr->filename);
+  if ((fd = open(fpath, O_RDONLY)) >= 0) {
+    fileheader_t postfile;
+    char fn2[MAXPATHLEN] = BBSHOME "/boards/d/deleted", *junkdir;
+
+    stampfile(fn2, &postfile);
+    memcpy(postfile.owner, fhdr->owner, IDLEN + TTLEN + 10);
+    close(fd);
+    Rename(fpath, fn2);
+    strcpy(strrchr(fn2, '/') + 1, ".DIR");
+    append_record(fn2, &postfile, sizeof(postfile));
+  }
+  else
+     bbslog("cancelpost: %s opened error\n", fpath);
+}
+
+
+/* ---------------------------- */
+/* new/old/lock file processing */
+/* ---------------------------- */
+
+typedef struct
+{
+  char newfn[MAXPATHLEN];
+  char oldfn[MAXPATHLEN];
+  char lockfn[MAXPATHLEN];
+}      nol;
+
+
+static void
+nolfilename(n, fpath)
+  nol *n;
+  char *fpath;
+{
+  sprintf(n->newfn, "%s.new", fpath);
+  sprintf(n->oldfn, "%s.old", fpath);
+  sprintf(n->lockfn, "%s.lock", fpath);
+}
+
+
+
+int
+delete_record(char *fpath, int size, int id)
+{
+  nol my;
+  char abuf[512];
+  int fdr, fdw, fd;
+  int count;
+  fileheader_t fhdr;
+
+  nolfilename(&my, fpath);
+
+  if ((fd = open(my.lockfn, O_RDWR | O_CREAT | O_APPEND, 0644)) == -1)
+    return -1;
+  flock(fd, LOCK_EX);
+
+  if ((fdr = open(fpath, O_RDONLY, 0)) == -1)
+  {
+
+#ifdef  HAVE_REPORT
+    report("delete_record failed!!! (open)");
+#endif
+
+    flock(fd, LOCK_UN);
+    close(fd);
+    return -1;
+  }
+  if ((fdw = open(my.newfn, O_WRONLY | O_CREAT | O_EXCL, 0644)) == -1)
+  {
+    flock(fd, LOCK_UN);
+
+#ifdef  HAVE_REPORT
+    report("delete_record failed!!! (open tmpfile)");
+#endif
+
+    close(fd);
+    close(fdr);
+    return -1;
+  }
+  count = 1;
+  while (read(fdr, abuf, size) == size)
+  {
+    if (id == count) {
+       memcpy(&fhdr, abuf, sizeof(fhdr));
+       bbslog("delete_record: %d, %s, %s\n",  count, fhdr.owner, fhdr.title);
+    }
+    if (id != count++ && (write(fdw, abuf, size) == -1))
+    {
+
+      bbslog("delete_record: %s failed!!! (write)\n", fpath);
+#ifdef  HAVE_REPORT
+      report("delete_record failed!!! (write)");
+#endif
+
+      unlink(my.newfn);
+      close(fdr);
+      close(fdw);
+      flock(fd, LOCK_UN);
+      close(fd);
+      return -1;
+    }
+  }
+  close(fdr);
+  close(fdw);
+  if (Rename(fpath, my.oldfn) == -1 || Rename(my.newfn, fpath) == -1)
+  {
+
+#ifdef  HAVE_REPORT
+    report("delete_record failed!!! (Rename)");
+#endif
+
+    flock(fd, LOCK_UN);
+    close(fd);
+    return -1;
+  }
+  flock(fd, LOCK_UN);
+  close(fd);
+  return 0;
+}
+
+cancel_article(homepath, board, file)
+  char *homepath;
+  char *board, *file;
+{
+  struct fileheader_t header;
+  struct stat state;
+  char dirname[MAXPATHLEN];
+  char buf[MAXPATHLEN];
+  long numents, size, time, now;
+  int fd, lower, ent;
+
+
+  if (file == NULL || file[0] != 'M' || file[1] != '.' ||
+    (time = atoi(file + 2)) <= 0) {
+    bbslog("cancel_article: invalid filename `%s`\n", file);
+    return 0;
+  }
+  size = sizeof(header);
+  sprintf(dirname, "%s/boards/%c/%s/.DIR", homepath, board[0], board);
+  if ((fd = open(dirname, O_RDONLY)) == -1) {
+    bbslog("cancel_article: open `%s` error\n", dirname);
+    return 0;
+  }
+  fstat(fd, &state);
+  ent = ((long) state.st_size) / size;
+  lower = 0;
+  while (1)
+  {
+    ent -= 8;
+    if (ent <= 0 || lower >= 2)
+      break;
+    lseek(fd, size * ent, SEEK_SET);
+    if (read(fd, &header, size) != size)
+    {
+      ent = 0;
+      break;
+    }
+    now = atoi(header.filename + 2);
+    lower = (now < time) ? lower + 1 : 0;
+  }
+  if (ent < 0)
+    ent = 0;
+  while (read(fd, &header, size) == size)
+  {
+    if (strcmp(file, header.filename) == 0)
+    {
+       if ((header.filemode & FILE_MARKED)
+           || (header.filemode & FILE_DIGEST) || (header.owner[0] == '-'))
+          break;
+       delete_record(dirname, sizeof(fileheader_t), lseek(fd, 0, SEEK_CUR) / size);
+       cancelpost(&header, board);
+       break;
+    }
+    now = atoi(header.filename + 2);
+    if (now > time)
+      break;
+  }
+  close(fd);
+  return 0;
+}
+
+#elif defined(PalmBBS)
+# undef PATH XPATH
+# undef HEADER XHEADER
+#include "server.h"
+
+char *
+post_article(homepath, userid, board, writebody, pathname, firstpath)
+  char *homepath;
+  char *userid, *board;
+  int (*writebody) ();
+char *pathname, *firstpath;
+{
+  PATH msgdir, msgfile;
+  static PATH name;
+
+  READINFO readinfo;
+  SHORT fileid;
+  char buf[MAXPATHLEN];
+  struct stat stbuf;
+  int fh;
+
+  strcpy(msgdir, homepath);
+  if (stat(msgdir, &stbuf) == -1 || !S_ISDIR(stbuf.st_mode))
+  {
+    /* A directory is missing! */
+    bbslog(":Err: Unable to post in %s.\n", msgdir);
+    return NULL;
+  }
+  get_filelist_ids(msgdir, &readinfo);
+
+  for (fileid = 1; fileid <= BBS_MAX_FILES; fileid++)
+  {
+    int oumask;
+    if (test_readbit(&readinfo, fileid))
+      continue;
+    fileid_to_fname(msgdir, fileid, msgfile);
+    sprintf(name, "%04x", fileid);
+
+#ifdef DEBUG
+    printf("post to %s\n", msgfile);
+#endif
+
+    if (firstpath && *firstpath)
+    {
+
+#ifdef DEBUGLINK
+      bbslog("try to link %s to %s", firstpath, msgfile);
+#endif
+
+      if (link(firstpath, msgfile) == 0)
+        break;
+    }
+    oumask = umask(0);
+    fh = open(msgfile, O_CREAT | O_EXCL | O_WRONLY, 0664);
+    umask(oumask);
+    if (writebody)
+    {
+      if ((*writebody) (fh, board, pathname) < 0)
+        return NULL;
+    }
+    else
+    {
+      if (bbspost_write_post(fh, board, pathname) < 0)
+        return NULL;
+    }
+    close(fh);
+    break;
+  }
+
+#ifdef CACHED_OPENBOARD
+  {
+    char *bname;
+    bname = strrchr(msgdir, '/');
+    if (bname)
+      notify_new_post(++bname, 1, fileid, stbuf.st_mtime);
+  }
+#endif
+
+  return name;
+}
+
+cancel_article(homepath, board, file)
+  char *homepath;
+  char *board, *file;
+{
+  PATH fname;
+
+#ifdef  CACHED_OPENBOARD
+  PATH bdir;
+  struct stat stbuf;
+
+  sprintf(bdir, "%s/boards/%c/%s", homepath, board[0], board);
+  stat(bdir, &stbuf);
+#endif
+
+  sprintf(fname, "%s/boards/%c/%s/%s", homepath, board[0], board, file);
+  unlink(fname);
+  /* kill it now! the function is far small then original..  :) */
+  /* because it won't make system load heavy like before */
+
+#ifdef CACHED_OPENBOARD
+  notify_new_post(board, -1, hex2SHORT(file), stbuf.st_mtime);
+#endif
+}
+
+#else
+error("You should choose one of the systems: PhoenixBBS, PowerBBS, or PalmBBS")
+#endif
+
+#else
+
+receive_article()
+{
+}
+
+cancel_article_front(msgid)
+  char *msgid;
+{
+}
+#endif
diff --git a/pttbbs/innbbsd/rfc931.c b/pttbbs/innbbsd/rfc931.c
new file mode 100644
index 00000000..0d59d771
--- /dev/null
+++ b/pttbbs/innbbsd/rfc931.c
@@ -0,0 +1,144 @@
+ /*
+  * rfc931_user() speaks a common subset of the RFC 931, AUTH, TAP and IDENT
+  * protocols. It consults an RFC 931 etc. compatible daemon on the client
+  * host to look up the remote user name. The information should not be used
+  * for authentication purposes.
+  * 
+  * Diagnostics are reported through syslog(3).
+  * 
+  * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
+  * 
+  * Inspired by the authutil package (comp.sources.unix volume 22) by Dan
+  * Bernstein (brnstnd@kramden.acf.nyu.edu).
+  */
+
+#ifndef lint
+static char sccsid[] = "@(#) rfc931.c 1.4 93/03/07 22:47:52";
+#endif
+
+#include <stdio.h>
+#include <syslog.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <setjmp.h>
+#include <signal.h>
+
+/*#include "log_tcp.h"*/
+
+#define	RFC931_PORT	113		/* Semi-well-known port */
+
+#ifndef RFC931_TIMEOUT
+#define	RFC931_TIMEOUT	30		/* wait for at most 30 seconds */
+#endif
+
+extern char *strchr();
+extern char *inet_ntoa();
+
+static jmp_buf timebuf;
+
+/* timeout - handle timeouts */
+
+static void timeout(sig)
+int     sig;
+{
+    longjmp(timebuf, sig);
+}
+
+/* rfc931_name - return remote user name */
+
+char   *my_rfc931_name(herefd,there)
+int herefd;
+struct sockaddr_in *there;		/* remote link information */
+{
+    struct sockaddr_in here;	/* local link information */
+    struct sockaddr_in sin;		/* for talking to RFC931 daemon */
+    int     length;
+    int     s;
+    unsigned remote;
+    unsigned local;
+    static char user[256];		/* XXX */
+    char    buffer[512];		/* YYY */
+    FILE   *fp;
+    char   *cp;
+    char   *result = "unknown";
+
+    /* Find out local address and port number of stdin. */
+
+    length = sizeof(here);
+    if (getsockname(herefd, (struct sockaddr *) & here, &length) == -1) {
+	syslog(LOG_ERR, "getsockname: %m");
+	return (result);
+    }
+
+    /*
+     * The socket that will be used for user name lookups should be bound to
+     * the same local IP address as stdin. This will automagically happen on
+     * hosts that have only one IP network address. When the local host has
+     * more than one IP network address, we must do an explicit bind() call.
+     */
+
+    if ((s = socket(AF_INET, SOCK_STREAM, 0)) == -1)
+	return (result);
+
+    sin = here;
+    sin.sin_port = 0;
+    if (bind(s, (struct sockaddr *) & sin, sizeof sin) < 0) {
+	syslog(LOG_ERR, "bind: %s: %m", inet_ntoa(here.sin_addr));
+	return (result);
+    }
+    /* Set up timer so we won't get stuck. */
+
+    signal(SIGALRM, timeout);
+    if (setjmp(timebuf)) {
+	close(s);				/* not: fclose(fp) */
+	return (result);
+    }
+    alarm(RFC931_TIMEOUT);
+
+    /* Connect to the RFC931 daemon. */
+
+    sin = *there;
+    sin.sin_port = htons(RFC931_PORT);
+    if (connect(s, (struct sockaddr *) & sin, sizeof(sin)) == -1
+	|| (fp = fdopen(s, "w+")) == 0) {
+	close(s);
+	alarm(0);
+	return (result);
+    }
+
+    /*
+     * Use unbuffered I/O or we may read back our own query. setbuf() must be
+     * called before doing any I/O on the stream. Thanks for the reminder,
+     * Paul Kranenburg <pk@cs.few.eur.nl>!
+     */
+
+    setbuf(fp, (char *) 0);
+
+    /* Query the RFC 931 server. Would 13-byte writes ever be broken up? */
+
+    fprintf(fp, "%u,%u\r\n", ntohs(there->sin_port), ntohs(here.sin_port));
+    fflush(fp);
+
+    /*
+     * Read response from server. Use fgets()/sscanf() instead of fscanf()
+     * because there is no buffer for pushback. Thanks, Chris Turbeville
+     * <turbo@cse.uta.edu>.
+     */
+
+    if (fgets(buffer, sizeof(buffer), fp) != 0
+	&& ferror(fp) == 0 && feof(fp) == 0
+	&& sscanf(buffer, "%u , %u : USERID :%*[^:]:%255s",
+		  &remote, &local, user) == 3
+	&& ntohs(there->sin_port) == remote
+	&& ntohs(here.sin_port) == local) {
+	/* Strip trailing carriage return. */
+
+	if (cp = strchr(user, '\r'))
+	    *cp = 0;
+	result = user;
+    }
+    alarm(0);
+    fclose(fp);
+    return (result);
+}
diff --git a/pttbbs/innbbsd/str_decode.c b/pttbbs/innbbsd/str_decode.c
new file mode 100644
index 00000000..73ad5f64
--- /dev/null
+++ b/pttbbs/innbbsd/str_decode.c
@@ -0,0 +1,281 @@
+/* 使用方法大致如下: innbbsd 中
+   在 SUBJECT 從 news 讀進來後, 呼叫 str_decode_M3(SUBJECT) 就行了 */
+
+/* bsd 底下使用要編譯時要加  -I/usr/local/include -L/usr/local/lib -liconv
+   並安裝 libiconv,
+   若真的沒有iconv就把底下的 #define USE_ICONV 1 刪了 */
+
+/*-------------------------------------------------------*/
+/* lib/str_decode.c	( NTHU CS MapleBBS Ver 3.00 )	 */
+/*-------------------------------------------------------*/
+/* target : included C for QP/BASE64 decoding		 */
+/* create : 95/03/29				 	 */
+/* update : 97/03/29				 	 */
+/*-------------------------------------------------------*/
+
+
+/* ----------------------------------------------------- */
+/* QP code : "0123456789ABCDEF"				 */
+/* ----------------------------------------------------- */
+
+#include <stdio.h>
+#include <errno.h>
+#include <string.h>
+
+#define USE_ICONV 1
+/* bsd 底下使用要編譯時要加  -I/usr/local/include -L/usr/local/lib -liconv
+   若真的沒有iconv就把上面這行 #define 刪了 */
+
+#ifdef USE_ICONV
+#include <iconv.h>
+#endif
+
+static int qp_code(int x)
+{
+    if (x >= '0' && x <= '9')
+	return x - '0';
+    if (x >= 'a' && x <= 'f')
+	return x - 'a' + 10;
+    if (x >= 'A' && x <= 'F')
+	return x - 'A' + 10;
+    return -1;
+}
+
+
+/* ------------------------------------------------------------------ */
+/* BASE64 :							      */
+/* "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" */
+/* ------------------------------------------------------------------ */
+
+
+static int base64_code(int x)
+{
+    if (x >= 'A' && x <= 'Z')
+	return x - 'A';
+    if (x >= 'a' && x <= 'z')
+	return x - 'a' + 26;
+    if (x >= '0' && x <= '9')
+	return x - '0' + 52;
+    if (x == '+')
+	return 62;
+    if (x == '/')
+	return 63;
+    return -1;
+}
+
+
+/* ----------------------------------------------------- */
+/* judge & decode QP / BASE64				 */
+/* ----------------------------------------------------- */
+
+static inline int isreturn(unsigned char c)
+{
+    return c == '\r' || c == '\n';
+}
+
+static inline int isspace(unsigned char c)
+{
+    return c == ' ' || c == '\t' || isreturn(c);
+}
+
+/* static inline */
+int mmdecode(unsigned char *src, unsigned char encode, unsigned char *dst)
+{
+    /* Thor.980901: src和dst可相同, 但src 一定有?或\0結束 */
+    /* Thor.980901: 注意, decode出的結果不會自己加上 \0 */
+    unsigned char *t = dst;
+    int pattern = 0, bits = 0;
+    encode |= 0x20;        /* Thor: to lower */
+    switch(encode)
+    {
+	case 'q':            /* Thor: quoted-printable */
+	    while(*src && *src != '?') /* Thor: delimiter */
+	    {                  /* Thor.980901: 0 算是 delimiter */
+		if(*src == '=')
+		{
+		    int x = *++src, y = x ? *++src : 0;
+		    if(isreturn(x)) continue;
+		    if( (x = qp_code(x)) < 0 || ( y = qp_code(y)) < 0) return -1;
+		    *t++ = (x << 4) + y , src++;
+		}
+		else if(*src == '_')
+		    *t++ = ' ', src++;
+#if 0
+		else if(!*src)    /* Thor: no delimiter is not successful */
+		    return -1;
+#endif
+		else             /* Thor: *src != '=' '_' */
+		    *t++ = *src++;
+	    }
+	    return t - dst;
+	case 'b':            /* Thor: base 64 */
+	    while(*src && *src != '?') /* Thor: delimiter */ /* Thor.980901: 0也算 */
+	    {                  /* Thor: pattern & bits are cleared outside */
+		int x;
+#if 0
+		if (!*src) return -1; /* Thor: no delimiter is not successful */
+#endif
+		x = base64_code(*src++);
+		if(x < 0) continue; /* Thor: ignore everything not in the base64,=,.. */
+		pattern = (pattern << 6) | x;
+		bits += 6;       /* Thor: 1 code gains 6 bits */
+		if(bits >= 8)    /* Thor: enough to form a byte */
+		{
+		    bits -= 8;
+		    *t++ = (pattern >> bits) & 0xff;
+		}
+	    }
+	    return t - dst;
+    }
+    return -1;
+}
+
+#ifdef USE_ICONV
+int str_iconv(
+	const char *fromcode, 		/* charset of source string*/
+	const char *tocode,		/* charset of destination string */
+	char *src,		/* source string */
+	int srclen,			/* source string length */
+	char *dst,			/* destination string */
+	int dstlen)			/* destination string length */
+/* 這個函式會將一個字串 (src) 從 charset=fromcode 轉成 charset=tocode,
+   srclen 是 src 的長度, dst 是輸出的buffer, dstlen 則指定了
+   dst 的大小, 最後會補 '\0', 所以要留一個byte給'\0'.
+   如果遇到 src 中有非字集的字, 或是 src 中有未完整的 byte,
+   都會砍掉.
+ */
+{
+    iconv_t iconv_descriptor;
+    int iconv_ret,dstlen_old;
+
+    dstlen--;	/* keep space for '\0' */
+
+    dstlen_old = dstlen;
+
+    /* Open a descriptor for iconv */
+    iconv_descriptor = iconv_open(tocode, fromcode);
+
+    if (iconv_descriptor == ((iconv_t)(-1)) ) /* if open fail */
+    {
+	strncpy(dst,src,dstlen);
+	return dstlen;
+    }
+
+    /* Start translation */
+    while (srclen > 0 && dstlen > 0)
+    {
+	iconv_ret = iconv(iconv_descriptor, (const char* *)&src, &srclen,
+		&dst, &dstlen);
+	if (iconv_ret  != 0)
+	{
+	    switch(errno)
+	    {
+		/* invalid multibyte happened */
+		case EILSEQ:
+		    /* forward that byte */
+		    *dst = *src;
+		    src++; srclen--;
+		    dst++; dstlen--;
+		    break;
+		    /* incomplete multibyte happened */
+		case EINVAL:
+		    /* forward that byte (maybe wrong)*/
+		    *dst = *src;
+		    src++; srclen--;
+		    dst++; dstlen--;
+		    break;
+		    /* dst no rooms */
+		case E2BIG:
+		    /* break out the while loop */
+		    srclen = 0;
+		    break;
+	    }
+	}
+    }
+    *dst = '\0';
+    /* close descriptor of iconv*/
+    iconv_close(iconv_descriptor);
+
+    return (dstlen_old - dstlen);
+}
+#endif
+
+
+void str_decode_M3(unsigned char *str)
+{
+    int adj;
+    int i;
+    unsigned char *src, *dst;
+    unsigned char buf[512];
+    unsigned char charset[512],dst1[512];
+
+
+    src = str;
+    dst = buf;
+    adj = 0;
+
+    while (*src && (dst - buf) < sizeof(buf) - 1)
+    {
+	if (*src != '=')
+	{                        /* Thor: not coded */
+	    unsigned char *tmp = src;
+	    while(adj && *tmp && isspace(*tmp)) tmp++;
+	    if(adj && *tmp=='=')
+	    {                     /* Thor: jump over space */
+		adj = 0;
+		src = tmp;
+	    }
+	    else
+		*dst++ = *src++;
+	    /* continue;*/        /* Thor: take out */
+	}
+	else                    /* Thor: *src == '=' */
+	{
+	    unsigned char *tmp = src + 1;
+	    if(*tmp == '?')       /* Thor: =? coded */
+	    {
+		/* "=?%s?Q?" for QP, "=?%s?B?" for BASE64 */
+		tmp ++;
+		i=0;
+		while(*tmp && *tmp != '?')
+		{
+		    if (i+1<sizeof(charset))
+		    {
+			charset[i] = *tmp;
+			charset[i+1]='\0';
+			i++;
+		    }
+		    tmp++;
+		}
+		if(*tmp && tmp[1] && tmp[2]=='?') /* Thor: *tmp == '?' */
+		{
+#ifdef USE_ICONV
+		    int i = mmdecode(tmp + 3, tmp[1], dst1);
+		    i = str_iconv(charset,"big5",dst1,i,dst,
+			    sizeof(buf)-((int)(dst-buf)) );
+#else
+		    int i = mmdecode(tmp + 3, tmp[1], dst);
+#endif
+		    if (i >= 0)
+		    {
+			tmp += 3;       /* Thor: decode's src */
+#if 0
+			while(*tmp++ != '?'); /* Thor: no ? end, mmdecode -1 */
+#endif
+			while(*tmp && *tmp++ != '?'); /* Thor: no ? end, mmdecode -1 */
+			/* Thor.980901: 0 也算 decode 結束 */
+			if(*tmp == '=') tmp++;
+			src = tmp;      /* Thor: decode over */
+			dst += i;
+			adj = 1;        /* Thor: adjcent */
+		    }
+		}
+	    }
+
+	    while(src != tmp)     /* Thor: not coded */
+		*dst++ = *src++;
+	}
+    }
+    *dst = 0;
+    strcpy(str, buf);
+}
diff --git a/pttbbs/mbbsd.icc/.cvsignore b/pttbbs/mbbsd.icc/.cvsignore
new file mode 100644
index 00000000..7eaf2809
--- /dev/null
+++ b/pttbbs/mbbsd.icc/.cvsignore
@@ -0,0 +1,3 @@
+*.o
+mbbsd.icc
+*.il
diff --git a/pttbbs/mbbsd.icc/Makefile b/pttbbs/mbbsd.icc/Makefile
new file mode 100644
index 00000000..bbbe1a7a
--- /dev/null
+++ b/pttbbs/mbbsd.icc/Makefile
@@ -0,0 +1,72 @@
+.PATH: ../mbbsd
+
+BBSHOME=/home/bbs
+PROG=	mbbsd.icc
+OBJS=	admin.o announce.o args.o bbs.o board.o cache.o cal.o card.o\
+	chat.o chc_draw.o chc_net.o chc_play.o chc_rule.o chicken.o dark.o\
+	edit.o friend.o gamble.o gomo.o gomo1.o guess.o indict.o io.o\
+	kaede.o lovepaper.o mail.o mbbsd.o menu.o more.o name.o osdep.o\
+	othello.o page.o read.o record.o register.o screen.o stuff.o\
+	talk.o term.o topsong.o user.o vice.o vote.o xyz.o\
+	voteboard.o syspost.o var.o toolkit.o passwd.o\
+	calendar.o
+
+ICCFLAGS= -O -march=pentiumiii -Ob2 -tpp6 -mcpu=pentiumpro -march=pentiumiii \
+	  -ipo -ipo_obj 
+GCCFLAGS= -O -march=pentium3
+
+CFLAGS= -DHAVE_SETPROCTITLE -DBBSHOME='"$(BBSHOME)"' -DFreeBSD -I../include 
+LDFLAGS= -lutil -lkvm -lcrypt
+
+.if defined(GDB) || defined(DEBUG)
+CFLAGS+= -g
+FDFLAGS+= -g
+.else
+CFLAGS+= -O
+LDFLAGS+= -O
+.endif
+
+.if defined(DEBUG)
+CFLAGS+= -DDEBUG
+LDFLAGS+= -DDEBUG
+.endif
+
+.if defined(NO_FORK)
+CFLAGS+= -DNO_FORK
+.endif
+
+CFLAGS+= "-DCOMPILE_TIME=\"`date`\""
+GCCUSE=gcc -pipe -Wall $(CFLAGS) -c
+
+.SUFFIXES: .c .o
+.c.o:	../include/var.h
+	icc -D__FreeBSD__ -D__FreeBSD $(CFLAGS) $(ICCFLAGS) -c ../mbbsd/$*.c
+
+all: $(PROG)
+
+$(PROG): $(OBJS) 
+	icc $(LDFLAGS) $(ICCFLAGS) -o $(PROG) $(OBJS) 
+
+../include/var.h:	var.c
+	perl ../util/parsevar.pl < ../mbbsd/var.c > ../include/var.h
+
+cache.o: cache.c
+	$(GCCUSE) $(GCCFLAGS) ../mbbsd/$*.c
+
+topsong.o: topsong.c
+	$(GCCUSE) $(GCCFLAGS) ../mbbsd/$*.c
+
+install: $(PROG)
+	install -d $(BBSHOME)/bin/
+	install -c -m 755 $(PROG) $(BBSHOME)/bin/
+	rm -f $(BBSHOME)/bin/mbbsd
+	ln -sv $(BBSHOME)/bin/$(PROG) $(BBSHOME)/bin/mbbsd
+ 
+test: $(PROG)
+	killall -9 testmbbsd || true
+	cp $(PROG) testmbbsd
+	./testmbbsd 9000
+	rm -f testmbbsd
+
+clean:
+	rm -f $(OBJS) $(PROG)
diff --git a/pttbbs/mbbsd/Makefile b/pttbbs/mbbsd/Makefile
new file mode 100644
index 00000000..b0c09c4a
--- /dev/null
+++ b/pttbbs/mbbsd/Makefile
@@ -0,0 +1,45 @@
+# $Id$
+
+.include "../pttbbs.mk"
+
+.if defined(WITH_BLOG)
+CFLAGS+=  -I/usr/local/include -DBLOG
+LDFLAGS+= -L/usr/local/lib/mysql -lmysqlclient
+.endif
+
+PROG=	mbbsd
+OBJS=	admin.o announce.o args.o bbs.o board.o cache.o cal.o card.o\
+	chat.o chc_draw.o chc_net.o chc_play.o chc_rule.o chicken.o dark.o\
+	edit.o friend.o gamble.o gomo.o gomo1.o guess.o indict.o io.o\
+	kaede.o lovepaper.o mail.o mbbsd.o menu.o more.o name.o osdep.o\
+	othello.o page.o read.o record.o register.o screen.o stuff.o\
+	talk.o term.o topsong.o user.o vice.o vote.o xyz.o\
+	voteboard.o syspost.o var.o passwd.o calendar.o
+
+.SUFFIXES: .c .o
+.c.o:	../include/var.h
+	$(CCACHE) $(CC) $(CFLAGS) -c $*.c
+
+all: $(PROG)
+
+$(PROG): $(OBJS)
+	sh ../util/newvers.sh
+	$(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) $(EXT_LIBS) vers.c
+
+../include/var.h:	var.c
+	perl ../util/parsevar.pl < var.c > ../include/var.h
+
+test: $(PROG)
+	killall -9 testmbbsd || true
+	cp mbbsd testmbbsd
+	./testmbbsd 9000
+	rm -f testmbbsd
+
+install: $(PROG)
+	install -d $(BBSHOME)/bin/
+	install -c -m 755 $(PROG) $(BBSHOME)/bin/
+	mv -f $(BBSHOME)/bin/mbbsd $(BBSHOME)/bin/mbbsd.`date '+%m%d%H'`
+	ln -sv $(BBSHOME)/bin/mbbsd.`date '+%m%d%H'` $(BBSHOME)/bin/mbbsd
+
+clean:
+	rm -f $(OBJS) $(PROG)
diff --git a/pttbbs/mbbsd/admin.c b/pttbbs/mbbsd/admin.c
new file mode 100644
index 00000000..4a780663
--- /dev/null
+++ b/pttbbs/mbbsd/admin.c
@@ -0,0 +1,1171 @@
+/* $Id$ */
+#include "bbs.h"
+
+/* 使用者管理 */
+int
+m_user()
+{
+    userec_t        muser;
+    int             id;
+    char            genbuf[200];
+
+    stand_title("使用者設定");
+    usercomplete(msg_uid, genbuf);
+    if (*genbuf) {
+	move(2, 0);
+	if ((id = getuser(genbuf))) {
+	    memcpy(&muser, &xuser, sizeof(muser));
+	    user_display(&muser, 1);
+	    uinfo_query(&muser, 1, id);
+	} else {
+	    outs(err_uid);
+	    clrtoeol();
+	    pressanykey();
+	}
+    }
+    return 0;
+}
+
+static int
+search_key_user(char *passwdfile, int mode)
+{
+    userec_t        user;
+    int             ch;
+    int             coun = 0;
+    FILE            *fp1 = fopen(passwdfile, "r");
+    char            friendfile[128]="",buf[128], key[22], genbuf[8],
+                    *keymatch;
+
+
+    assert(fp1);
+    clear();
+    getdata(0, 0, mode ? "請輸入使用者關鍵字[電話|地址|姓名|上站地點|"
+	    "email|小雞id] :" : "請輸入id :", key, sizeof(key), DOECHO);
+    if(!key[0])
+	return 0;
+    while ((fread(&user, sizeof(user), 1, fp1)) > 0 && coun < MAX_USERS) {
+	if (!(++coun & 15)) {
+	    move(1, 0);
+	    snprintf(buf, sizeof(buf), "第 [%d] 筆資料\n", coun);
+	    outs(buf);
+	    refresh();
+	}
+        keymatch = NULL;
+	if (!strcasecmp(user.userid, key))
+             keymatch = user.userid; 
+        else if(mode)
+         {
+             if(strstr(user.realname, key))
+                 keymatch = user.realname; 
+             else if(strstr(user.username, key))
+                 keymatch = user.username; 
+             else if(strstr(user.lasthost, key))
+                 keymatch = user.lasthost; 
+             else if(strstr(user.email, key))
+                 keymatch = user.email; 
+             else if(strstr(user.address, key))
+                 keymatch = user.address; 
+             else if(strstr(user.justify, key))
+                 keymatch = user.justify; 
+             else if(strstr(user.mychicken.name, key))
+                 keymatch = user.mychicken.name; 
+         }
+        if(keymatch)
+          {
+	    move(1, 0);
+	    snprintf(buf, sizeof(buf), "第 [%d] 筆資料\n", coun);
+	    outs(buf);
+	    refresh();
+
+	    user_display(&user, 1);
+	    uinfo_query(&user, 1, coun);
+	    outs("\033[44m               空白鍵\033[37m:搜尋下一個"
+		 "          \033[33m Q\033[37m: 離開");
+	    outs(mode ? 
+                 "      A: add to namelist \033[m " :
+		 "      S: 取用備份資料    \033[m ");
+	    while (1) {
+		while ((ch = igetch()) == 0);
+                if (ch == 'a' || ch=='A' )
+                  {
+                   if(!friendfile[0])
+                    {
+                     friend_special();
+                     setfriendfile(friendfile, FRIEND_SPECIAL);
+                    }
+                   friend_add(user.userid, FRIEND_SPECIAL, keymatch);
+                   break;
+                  }
+		if (ch == ' ')
+		    break;
+		if (ch == 'q' || ch == 'Q') {
+		    fclose(fp1);
+		    return 0;
+		}
+		if (ch == 's' && !mode) {
+		    if ((ch = searchuser(user.userid))) {
+			setumoney(ch, user.money);
+			passwd_update(ch, &user);
+			fclose(fp1);
+			return 0;
+		    } else {
+			move(b_lines - 1, 0);
+			genbuf[0] = 'n';
+			getdata(0, 0,
+				"目前的 PASSWD 檔沒有此 ID，新增嗎？[y/N]",
+				genbuf, 3, LCECHO);
+			if (genbuf[0] == 'n') {
+			    outs("目前的PASSWDS檔沒有此id "
+				 "請先new一個這個id的帳號");
+			} else {
+			    int             allocid = getnewuserid();
+
+			    if (allocid > MAX_USERS || allocid <= 0) {
+				fprintf(stderr, "本站人口已達飽和！\n");
+				exit(1);
+			    }
+			    if (passwd_update(allocid, &user) == -1) {
+				fprintf(stderr, "客滿了，再見！\n");
+				exit(1);
+			    }
+			    setuserid(allocid, user.userid);
+			    if (!searchuser(user.userid)) {
+				fprintf(stderr, "無法建立帳號\n");
+				exit(1);
+			    }
+			    fclose(fp1);
+			    return 0;
+			}
+		    }
+		}
+	    }
+	}
+    }
+
+    fclose(fp1);
+    return 0;
+}
+
+/* 以任意 key 尋找使用者 */
+int
+search_user_bypwd()
+{
+    search_key_user(FN_PASSWD, 1);
+    return 0;
+}
+
+/* 尋找備份的使用者資料 */
+int
+search_user_bybakpwd()
+{
+    char           *choice[] = {
+	"PASSWDS.NEW1", "PASSWDS.NEW2", "PASSWDS.NEW3",
+	"PASSWDS.NEW4", "PASSWDS.NEW5", "PASSWDS.NEW6",
+	"PASSWDS.BAK"
+    };
+    int             ch;
+
+    clear();
+    move(1, 1);
+    outs("請輸入你要用來尋找備份的檔案 或按 'q' 離開\n");
+    outs(" [\033[1;31m1\033[m]一天前, [\033[1;31m2\033[m]兩天前, "
+	 "[\033[1;31m3\033[m]三天前\n");
+    outs(" [\033[1;31m4\033[m]四天前, [\033[1;31m5\033[m]五天前, "
+	 "[\033[1;31m6\033[m]六天前\n");
+    outs(" [7]備份的\n");
+    do {
+	move(5, 1);
+	outs("選擇 => ");
+	ch = igetch();
+	if (ch == 'q' || ch == 'Q')
+	    return 0;
+    } while (ch < '1' || ch > '8');
+    ch -= '1';
+    search_key_user(choice[ch], 0);
+    return 0;
+}
+
+static void
+bperm_msg(boardheader_t * board)
+{
+    prints("\n設定 [%s] 看板之(%s)權限：", board->brdname,
+	   board->brdattr & BRD_POSTMASK ? "發表" : "閱\讀");
+}
+
+unsigned int
+setperms(unsigned int pbits, char *pstring[])
+{
+    register int    i;
+    char            choice[4];
+
+    move(4, 0);
+    for (i = 0; i < NUMPERMS / 2; i++) {
+	prints("%c. %-20s %-15s %c. %-20s %s\n",
+	       'A' + i, pstring[i],
+	       ((pbits >> i) & 1 ? "ˇ" : "Ｘ"),
+	       i < 10 ? 'Q' + i : '0' + i - 10,
+	       pstring[i + 16],
+	       ((pbits >> (i + 16)) & 1 ? "ˇ" : "Ｘ"));
+    }
+    clrtobot();
+    while (getdata(b_lines - 1, 0, "請按 [A-5] 切換設定，按 [Return] 結束：",
+		   choice, sizeof(choice), LCECHO)) {
+	i = choice[0] - 'a';
+	if (i < 0)
+	    i = choice[0] - '0' + 26;
+	if (i >= NUMPERMS)
+	    bell();
+	else {
+	    pbits ^= (1 << i);
+	    move(i % 16 + 4, i <= 15 ? 24 : 64);
+	    prints((pbits >> i) & 1 ? "ˇ" : "Ｘ");
+	}
+    }
+    return pbits;
+}
+
+/* 自動設立精華區 */
+void
+setup_man(boardheader_t * board)
+{
+    char            genbuf[200];
+
+    setapath(genbuf, board->brdname);
+    mkdir(genbuf, 0755);
+}
+
+
+int
+m_mod_board(char *bname)
+{
+    boardheader_t   bh, newbh;
+    int             bid;
+    char            genbuf[256], ans[4];
+
+    bid = getbnum(bname);
+    if (!bid || !bname[0] || get_record(fn_board, &bh, sizeof(bh), bid) == -1) {
+	outs(err_bid);
+	pressanykey();
+	return -1;
+    }
+    prints("看板名稱：%s\n看板說明：%s\n看板bid：%d\n看板GID：%d\n"
+	   "板主名單：%s", bh.brdname, bh.title, bid, bh.gid, bh.BM);
+    bperm_msg(&bh);
+
+    /* Ptt 這邊斷行會檔到下面 */
+    move(9, 0);
+    snprintf(genbuf, sizeof(genbuf), "(E)設定 (V)違法/解除%s%s [Q]取消？",
+	    HAS_PERM(PERM_SYSOP) ? " (B)BVote (S)救回文章 (G)賭盤解卡" : "",
+	    HAS_PERM(PERM_SYSSUBOP) ? " (D)刪除" : "");
+    getdata(10, 0, genbuf, ans, sizeof(ans), LCECHO);
+
+    switch (*ans) {
+    case 'g':
+	if (HAS_PERM(PERM_SYSOP)) {
+	    char            path[256];
+	    setbfile(genbuf, bname, FN_TICKET_LOCK);
+	    setbfile(path, bname, FN_TICKET_END);
+	    rename(genbuf, path);
+	}
+	break;
+    case 's':
+	if (HAS_PERM(PERM_SYSOP)) {
+	  snprintf(genbuf, sizeof(genbuf),
+		   BBSHOME "/bin/buildir boards/%c/%s &",
+		   bh.brdname[0], bh.brdname);
+	    system(genbuf);
+	}
+	break;
+    case 'b':
+	if (HAS_PERM(PERM_SYSOP)) {
+	    char            bvotebuf[10];
+
+	    memcpy(&newbh, &bh, sizeof(bh));
+	    snprintf(bvotebuf, sizeof(bvotebuf), "%d", newbh.bvote);
+	    move(20, 0);
+	    prints("看板 %s 原來的 BVote：%d", bh.brdname, bh.bvote);
+	    getdata_str(21, 0, "新的 Bvote：", genbuf, 5, LCECHO, bvotebuf);
+	    newbh.bvote = atoi(genbuf);
+	    substitute_record(fn_board, &newbh, sizeof(newbh), bid);
+	    reset_board(bid);
+	    log_usies("SetBoardBvote", newbh.brdname);
+	    break;
+	} else
+	    break;
+    case 'v':
+	memcpy(&newbh, &bh, sizeof(bh));
+	outs("看板目前為");
+	outs((bh.brdattr & BRD_BAD) ? "違法" : "正常");
+	getdata(21, 0, "確定更改？", genbuf, 5, LCECHO);
+	if (genbuf[0] == 'y') {
+	    if (newbh.brdattr & BRD_BAD)
+		newbh.brdattr = newbh.brdattr & (!BRD_BAD);
+	    else
+		newbh.brdattr = newbh.brdattr | BRD_BAD;
+	    substitute_record(fn_board, &newbh, sizeof(newbh), bid);
+	    reset_board(bid);
+	    log_usies("ViolateLawSet", newbh.brdname);
+	}
+	break;
+    case 'd':
+	if (HAS_PERM(PERM_SYSSUBOP) && !HAS_PERM(PERM_SYSOP))
+	    break;
+	getdata_str(9, 0, msg_sure_ny, genbuf, 3, LCECHO, "N");
+	if (genbuf[0] != 'y' || !bname[0])
+	    outs(MSG_DEL_CANCEL);
+	else {
+	    strlcpy(bname, bh.brdname, sizeof(bh.brdname));
+	    snprintf(genbuf, sizeof(genbuf),
+		    "/bin/tar zcvf tmp/board_%s.tgz boards/%c/%s man/boards/%c/%s >/dev/null 2>&1;"
+		    "/bin/rm -fr boards/%c/%s man/boards/%c/%s",
+		    bname, bname[0], bname, bname[0],
+		    bname, bname[0], bname, bname[0], bname);
+	    system(genbuf);
+	    memset(&bh, 0, sizeof(bh));
+	    snprintf(bh.title, sizeof(bh.title),
+		     "%s 看板 %s 刪除", bname, cuser.userid);
+	    post_msg("Security", bh.title, "請注意刪除的合法性", "[系統安全局]");
+	    substitute_record(fn_board, &bh, sizeof(bh), bid);
+	    reset_board(bid);
+	    log_usies("DelBoard", bh.title);
+	    outs("刪板完畢");
+	}
+	break;
+    case 'e':
+	move(8, 0);
+	outs("直接按 [Return] 不修改該項設定");
+	memcpy(&newbh, &bh, sizeof(bh));
+
+	while (getdata(9, 0, "新看板名稱：", genbuf, IDLEN + 1, DOECHO)) {
+	    if (getbnum(genbuf)) {
+		move(3, 0);
+		outs("錯誤! 板名雷同");
+	    } else if (!invalid_brdname(genbuf)) {
+		strlcpy(newbh.brdname, genbuf, sizeof(newbh.brdname));
+		break;
+	    }
+	}
+
+	do {
+	    getdata_str(12, 0, "看板類別：", genbuf, 5, DOECHO, bh.title);
+	    if (strlen(genbuf) == 4)
+		break;
+	} while (1);
+
+	if (strlen(genbuf) >= 4)
+	    strncpy(newbh.title, genbuf, 4);
+
+	newbh.title[4] = ' ';
+
+	getdata_str(14, 0, "看板主題：", genbuf, BTLEN + 1, DOECHO,
+		    bh.title + 7);
+	if (genbuf[0])
+	    strlcpy(newbh.title + 7, genbuf, sizeof(newbh.title) - 7);
+	if (getdata_str(15, 0, "新板主名單：", genbuf, IDLEN * 3 + 3, DOECHO,
+			bh.BM)) {
+	    trim(genbuf);
+	    strlcpy(newbh.BM, genbuf, sizeof(newbh.BM));
+	}
+	if (HAS_PERM(PERM_SYSOP)) {
+	    move(1, 0);
+	    clrtobot();
+	    newbh.brdattr = setperms(newbh.brdattr, str_permboard);
+	    move(1, 0);
+	    clrtobot();
+	}
+	if (newbh.brdattr & BRD_GROUPBOARD)
+	    strncpy(newbh.title + 5, "Σ", 2);
+	else if (newbh.brdattr & BRD_NOTRAN)
+	    strncpy(newbh.title + 5, "◎", 2);
+	else
+	    strncpy(newbh.title + 5, "●", 2);
+
+	if (HAS_PERM(PERM_SYSOP) && !(newbh.brdattr & BRD_HIDE)) {
+	    getdata_str(14, 0, "設定讀寫權限(Y/N)？", ans, sizeof(ans), LCECHO, "N");
+	    if (*ans == 'y') {
+		getdata_str(15, 0, "限制 [R]閱\讀 (P)發表？", ans, sizeof(ans), LCECHO,
+			    "R");
+		if (*ans == 'p')
+		    newbh.brdattr |= BRD_POSTMASK;
+		else
+		    newbh.brdattr &= ~BRD_POSTMASK;
+
+		move(1, 0);
+		clrtobot();
+		bperm_msg(&newbh);
+		newbh.level = setperms(newbh.level, str_permid);
+		clear();
+	    }
+	}
+	getdata_str(b_lines - 1, 0, msg_sure_ny, genbuf, 4, LCECHO, "Y");
+
+	if ((*genbuf == 'y') && memcmp(&newbh, &bh, sizeof(bh))) {
+	    if (strcmp(bh.brdname, newbh.brdname)) {
+		char            src[60], tar[60];
+
+		setbpath(src, bh.brdname);
+		setbpath(tar, newbh.brdname);
+		Rename(src, tar);
+
+		setapath(src, bh.brdname);
+		setapath(tar, newbh.brdname);
+		Rename(src, tar);
+	    }
+	    setup_man(&newbh);
+	    substitute_record(fn_board, &newbh, sizeof(newbh), bid);
+	    reset_board(bid);
+	    log_usies("SetBoard", newbh.brdname);
+	}
+    }
+    return 0;
+}
+
+/* 設定看板 */
+int
+m_board()
+{
+    char            bname[32];
+
+    stand_title("看板設定");
+    generalnamecomplete(msg_bid, bname, sizeof(bname), SHM->Bnumber,
+			completeboard_compar,
+			completeboard_permission,
+			completeboard_getname);
+    if (!*bname)
+	return 0;
+    m_mod_board(bname);
+    return 0;
+}
+
+/* 設定系統檔案 */
+int
+x_file()
+{
+    int             aborted;
+    char            ans[4], *fpath;
+
+    move(b_lines - 6, 0);
+    /* Ptt */
+    outs("設定 (1)身份確認信 (4)post注意事項 (5)錯誤登入訊息 (6)註冊範例 (7)通過確認通知\n");
+    outs("     (8)email post通知 (9)系統功\能精靈 (A)茶樓 (B)站長名單 (C)email通過確認\n");
+    outs("     (D)新使用者需知 (E)身份確認方法 (F)歡迎畫面 (G)進站畫面"
+#ifdef MULTI_WELCOME_LOGIN
+	 "(X)刪除進站畫面"
+#endif
+	 "\n");
+    outs("     (H)看板期限 (I)故鄉 (J)出站畫面 (K)生日卡 (L)節日 (M)外籍使用者認證通知\n");
+    outs("     (N)外籍使用者過期警告通知\n");
+    getdata(b_lines - 1, 0, "[Q]取消[1-9 A-N]？", ans, sizeof(ans), LCECHO);
+
+    switch (ans[0]) {
+    case '1':
+	fpath = "etc/confirm";
+	break;
+    case '4':
+	fpath = "etc/post.note";
+	break;
+    case '5':
+	fpath = "etc/goodbye";
+	break;
+    case '6':
+	fpath = "etc/register";
+	break;
+    case '7':
+	fpath = "etc/registered";
+	break;
+    case '8':
+	fpath = "etc/emailpost";
+	break;
+    case '9':
+	fpath = "etc/hint";
+	break;
+    case 'a':
+	fpath = "etc/teashop";
+	break;
+    case 'b':
+	fpath = "etc/sysop";
+	break;
+    case 'c':
+	fpath = "etc/bademail";
+	break;
+    case 'd':
+	fpath = "etc/newuser";
+	break;
+    case 'e':
+	fpath = "etc/justify";
+	break;
+    case 'f':
+	fpath = "etc/Welcome";
+	break;
+    case 'g':
+#ifdef MULTI_WELCOME_LOGIN
+	getdata(b_lines - 1, 0, "第幾個進站畫面[0-4]", ans, sizeof(ans), LCECHO);
+	if (ans[0] == '1') {
+	    fpath = "etc/Welcome_login.1";
+	} else if (ans[0] == '2') {
+	    fpath = "etc/Welcome_login.2";
+	} else if (ans[0] == '3') {
+	    fpath = "etc/Welcome_login.3";
+	} else if (ans[0] == '4') {
+	    fpath = "etc/Welcome_login.4";
+	} else {
+	    fpath = "etc/Welcome_login.0";
+	}
+#else
+	fpath = "etc/Welcome_login";
+#endif
+	break;
+
+#ifdef MULTI_WELCOME_LOGIN
+    case 'x':
+	getdata(b_lines - 1, 0, "第幾個進站畫面[1-4]", ans, sizeof(ans), LCECHO);
+	if (ans[0] == '1') {
+	    unlink("etc/Welcome_login.1");
+	    outs("ok");
+	} else if (ans[0] == '2') {
+	    unlink("etc/Welcome_login.2");
+	    outs("ok");
+	} else if (ans[0] == '3') {
+	    unlink("etc/Welcome_login.3");
+	    outs("ok");
+	} else if (ans[0] == '4') {
+	    unlink("etc/Welcome_login.4");
+	    outs("ok");
+	} else {
+	    outs("所指定的進站畫面無法刪除");
+	}
+	pressanykey();
+	return FULLUPDATE;
+
+#endif
+
+    case 'h':
+	fpath = "etc/expire.conf";
+	break;
+    case 'i':
+	fpath = "etc/domain_name_query";
+	break;
+    case 'j':
+	fpath = "etc/Logout";
+	break;
+    case 'k':
+	fpath = "etc/Welcome_birth";
+	break;
+    case 'l':
+	fpath = "etc/feast";
+	break;
+    case 'm':
+	fpath = "etc/foreign_welcome";
+	break;
+    case 'n':
+	fpath = "etc/foreign_expired_warn";
+	break;
+    default:
+	return FULLUPDATE;
+    }
+    aborted = vedit(fpath, NA, NULL);
+    prints("\n\n系統檔案[%s]：%s", fpath,
+	   (aborted == -1) ? "未改變" : "更新完畢");
+    pressanykey();
+    return FULLUPDATE;
+}
+
+int
+m_newbrd(int recover)
+{
+    boardheader_t   newboard;
+    char            ans[4];
+    int             bid;
+    char            genbuf[200];
+
+    stand_title("建立新板");
+    memset(&newboard, 0, sizeof(newboard));
+
+    newboard.gid = class_bid;
+    if (newboard.gid == 0) {
+	move(6, 0);
+	outs("請先選擇一個類別再開板!");
+	pressanykey();
+	return -1;
+    }
+    do {
+	if (!getdata(3, 0, msg_bid, newboard.brdname,
+		     sizeof(newboard.brdname), DOECHO))
+	    return -1;
+    } while (invalid_brdname(newboard.brdname));
+
+    do {
+	getdata(6, 0, "看板類別：", genbuf, 5, DOECHO);
+	if (strlen(genbuf) == 4)
+	    break;
+    } while (1);
+
+    if (strlen(genbuf) >= 4)
+	strncpy(newboard.title, genbuf, 4);
+
+    newboard.title[4] = ' ';
+
+    getdata(8, 0, "看板主題：", genbuf, BTLEN + 1, DOECHO);
+    if (genbuf[0])
+	strlcpy(newboard.title + 7, genbuf, sizeof(newboard.title) - 7);
+    setbpath(genbuf, newboard.brdname);
+
+    if (recover) {
+	struct stat     sb;
+
+	if (stat(genbuf, &sb) == -1 || !(sb.st_mode & S_IFDIR)) {
+	    outs("此看板已經存在! 請取不同英文板名");
+	    pressanykey();
+	    return -1;
+	}
+    } else if (getbnum(newboard.brdname) > 0 || mkdir(genbuf, 0755) == -1) {
+	outs("此看板已經存在! 請取不同英文板名");
+	pressanykey();
+	return -1;
+    }
+    newboard.brdattr = BRD_NOTRAN;
+
+    if (HAS_PERM(PERM_SYSOP)) {
+	move(1, 0);
+	clrtobot();
+	newboard.brdattr = setperms(newboard.brdattr, str_permboard);
+	move(1, 0);
+	clrtobot();
+    }
+    getdata(9, 0, "是看板? (N:目錄) (Y/n)：", genbuf, 3, LCECHO);
+    if (genbuf[0] == 'n')
+	newboard.brdattr |= BRD_GROUPBOARD;
+
+    if (newboard.brdattr & BRD_GROUPBOARD)
+	strncpy(newboard.title + 5, "Σ", 2);
+    else if (newboard.brdattr & BRD_NOTRAN)
+	strncpy(newboard.title + 5, "◎", 2);
+    else
+	strncpy(newboard.title + 5, "●", 2);
+
+    newboard.level = 0;
+    getdata(11, 0, "板主名單：", newboard.BM, sizeof(newboard.BM), DOECHO);
+
+    if (HAS_PERM(PERM_SYSOP) && !(newboard.brdattr & BRD_HIDE)) {
+	getdata_str(14, 0, "設定讀寫權限(Y/N)？", ans, sizeof(ans), LCECHO, "N");
+	if (*ans == 'y') {
+	    getdata_str(15, 0, "限制 [R]閱\讀 (P)發表？", ans, sizeof(ans), LCECHO, "R");
+	    if (*ans == 'p')
+		newboard.brdattr |= BRD_POSTMASK;
+	    else
+		newboard.brdattr &= (~BRD_POSTMASK);
+
+	    move(1, 0);
+	    clrtobot();
+	    bperm_msg(&newboard);
+	    newboard.level = setperms(newboard.level, str_permid);
+	    clear();
+	}
+    }
+    if ((bid = getbnum("")) > 0) {
+	substitute_record(fn_board, &newboard, sizeof(newboard), bid);
+	reset_board(bid);
+    } else if (append_record(fn_board, (fileheader_t *) & newboard,
+			     sizeof(newboard)) == -1) {
+	pressanykey();
+	return -1;
+    } else {
+	addbrd_touchcache();
+    }
+    setup_man(&newboard);
+
+    outs("\n新板成立");
+    post_newboard(newboard.title, newboard.brdname, newboard.BM);
+    log_usies("NewBoard", newboard.title);
+    pressanykey();
+    return 0;
+}
+
+static int
+auto_scan(char fdata[][STRLEN], char ans[])
+{
+    int             good = 0;
+    int             count = 0;
+    int             i;
+    char            temp[10];
+
+    if (!strncmp(fdata[2], "小", 2) || strstr(fdata[2], "丫")
+	|| strstr(fdata[2], "誰") || strstr(fdata[2], "不")) {
+	ans[0] = '0';
+	return 1;
+    }
+    strncpy(temp, fdata[2], 2);
+    temp[2] = '\0';
+
+    /* 疊字 */
+    if (!strncmp(temp, &(fdata[2][2]), 2)) {
+	ans[0] = '0';
+	return 1;
+    }
+    if (strlen(fdata[2]) >= 6) {
+	if (strstr(fdata[2], "陳水扁")) {
+	    ans[0] = '0';
+	    return 1;
+	}
+	if (strstr("趙錢孫李周吳鄭王", temp))
+	    good++;
+	else if (strstr("杜顏黃林陳官余辛劉", temp))
+	    good++;
+	else if (strstr("蘇方吳呂李邵張廖應蘇", temp))
+	    good++;
+	else if (strstr("徐謝石盧施戴翁唐", temp))
+	    good++;
+    }
+    if (!good)
+	return 0;
+
+    if (!strcmp(fdata[3], fdata[4]) ||
+	!strcmp(fdata[3], fdata[5]) ||
+	!strcmp(fdata[4], fdata[5])) {
+	ans[0] = '4';
+	return 5;
+    }
+    if (strstr(fdata[3], "大")) {
+	if (strstr(fdata[3], "台") || strstr(fdata[3], "淡") ||
+	    strstr(fdata[3], "交") || strstr(fdata[3], "政") ||
+	    strstr(fdata[3], "清") || strstr(fdata[3], "警") ||
+	    strstr(fdata[3], "師") || strstr(fdata[3], "銘傳") ||
+	    strstr(fdata[3], "中央") || strstr(fdata[3], "成") ||
+	    strstr(fdata[3], "輔") || strstr(fdata[3], "東吳"))
+	    good++;
+    } else if (strstr(fdata[3], "女中"))
+	good++;
+
+    if (strstr(fdata[4], "地球") || strstr(fdata[4], "宇宙") ||
+	strstr(fdata[4], "信箱")) {
+	ans[0] = '2';
+	return 3;
+    }
+    if (strstr(fdata[4], "市") || strstr(fdata[4], "縣")) {
+	if (strstr(fdata[4], "路") || strstr(fdata[4], "街")) {
+	    if (strstr(fdata[4], "號"))
+		good++;
+	}
+    }
+    for (i = 0; fdata[5][i]; i++) {
+	if (isdigit(fdata[5][i]))
+	    count++;
+    }
+
+    if (count <= 4) {
+	ans[0] = '3';
+	return 4;
+    } else if (count >= 7)
+	good++;
+
+    if (good >= 3) {
+	ans[0] = 'y';
+	return -1;
+    } else
+	return 0;
+}
+
+/* 處理 Register Form */
+int
+scan_register_form(char *regfile, int automode, int neednum)
+{
+    char            genbuf[200];
+    char    *logfile = "register.log";
+    char    *field[] = {
+	"uid", "ident", "name", "career", "addr", "phone", "email", NULL
+    };
+    char    *finfo[] = {
+	"帳號", "身分證號", "真實姓名", "服務單位", "目前住址",
+	"連絡電話", "電子郵件信箱", NULL
+    };
+    char    *reason[] = {
+	"輸入真實姓名",
+	"詳細填寫您的「學校以及『科系』『年級』」或「服務單位(詳細至職稱)」",
+	"填寫完整的住址資料 (含縣市名稱, 台北市請含行政區域）",
+	"詳填連絡電話 (含區域碼, 中間不用加 \"-\", \"(\", \")\"等符號",
+	"確實填寫註冊申請表",
+	"用中文填寫申請單",
+	NULL
+    };
+    char    *autoid = "AutoScan";
+    userec_t        muser;
+    FILE           *fn, *fout, *freg;
+    char            fdata[7][STRLEN];
+    char            fname[STRLEN], buf[STRLEN];
+    char            ans[4], *ptr, *uid;
+    int             n = 0, unum = 0;
+    int             nSelf = 0, nAuto = 0;
+
+    uid = cuser.userid;
+    snprintf(fname, sizeof(fname), "%s.tmp", regfile);
+    move(2, 0);
+    if (dashf(fname)) {
+	if (neednum == 0) {	/* 自己進 Admin 來審的 */
+	    outs("其他 SYSOP 也在審核註冊申請單");
+	    pressanykey();
+	}
+	return -1;
+    }
+    Rename(regfile, fname);
+    if ((fn = fopen(fname, "r")) == NULL) {
+	prints("系統錯誤，無法讀取註冊資料檔: %s", fname);
+	pressanykey();
+	return -1;
+    }
+    if (neednum) {		/* 被強迫審的 */
+	move(1, 0);
+	clrtobot();
+	prints("各位具有站長權限的人，註冊單累積超過一百份了，麻煩您幫忙審 %d 份\n", neednum);
+	prints("也就是大概二十分之一的數量，當然，您也可以多審\n沒審完之前，系統不會讓你跳出喲！謝謝");
+	pressanykey();
+    }
+    memset(fdata, 0, sizeof(fdata));
+    while (fgets(genbuf, STRLEN, fn)) {
+	if ((ptr = (char *)strstr(genbuf, ": "))) {
+	    *ptr = '\0';
+	    for (n = 0; field[n]; n++) {
+		if (strcmp(genbuf, field[n]) == 0) {
+		    strlcpy(fdata[n], ptr + 2, sizeof(fdata[n]));
+		    if ((ptr = (char *)strchr(fdata[n], '\n')))
+			*ptr = '\0';
+		}
+	    }
+	} else if ((unum = getuser(fdata[0])) == 0) {
+	    move(2, 0);
+	    clrtobot();
+	    outs("系統錯誤，查無此人\n\n");
+	    for (n = 0; field[n]; n++)
+		prints("%s     : %s\n", finfo[n], fdata[n]);
+	    pressanykey();
+	    neednum--;
+	} else {
+	    neednum--;
+	    memcpy(&muser, &xuser, sizeof(muser));
+	    if (automode)
+		uid = autoid;
+
+	    if ((!automode || !auto_scan(fdata, ans))) {
+		uid = cuser.userid;
+
+		move(1, 0);
+		prints("帳號位置    ：%d\n", unum);
+		user_display(&muser, 1);
+		move(14, 0);
+		prints("\033[1;32m------------- 請站長嚴格審核使用者資料，您還有 %d 份---------------\033[m\n", neednum);
+	    	prints("  %-12s：%s\n", finfo[0], fdata[0]);
+		prints("  %-12s：%s\n", finfo[1], fdata[1]);
+#ifdef FOREIGN_REG
+		prints("0.%-12s：%s%s\n", finfo[2], fdata[2], muser.uflag2 & FOREIGN ? " (外籍)" : "");
+#else
+		prints("0.%-12s：%s\n", finfo[2], fdata[2]);
+#endif
+		for (n = 3; field[n]; n++) {
+		    prints("%d.%-12s：%s\n", n - 2, finfo[n], fdata[n]);
+		}
+		if (muser.userlevel & PERM_LOGINOK) {
+		    getdata(b_lines - 1, 0, "\033[1;32m此帳號已經完成註冊, "
+		    "更新(Y/N/Skip)？\033[m[N] ", ans, sizeof(ans), LCECHO);
+		    if (ans[0] != 'y' && ans[0] != 's')
+			ans[0] = 'd';
+		} else {
+		    move(b_lines - 1, 0);
+		    prints("是否接受此資料(Y/N/Q/Del/Skip)？[S] ");
+		    if (search_ulist(unum) == NULL)
+			ans[0] = igetch();
+		    else
+			ans[0] = 's';
+		    if ('A' <= ans[0] && ans[0] <= 'Z')
+			ans[0] += 32;
+		    if (ans[0] != 'y' && ans[0] != 'n' && ans[0] != 'q' &&
+			ans[0] != 'd' && !('0' <= ans[0] && ans[0] <= '4'))
+			ans[0] = 's';
+		    ans[1] = 0;
+		}
+		nSelf++;
+	    } else
+		nAuto++;
+	    if (neednum > 0 && ans[0] == 'q') {
+		move(2, 0);
+		clrtobot();
+		prints("沒審完不能退出");
+		pressanykey();
+		ans[0] = 's';
+	    }
+	    switch (ans[0]) {
+	    case 'q':
+		if ((freg = fopen(regfile, "a"))) {
+		    for (n = 0; field[n]; n++)
+			fprintf(freg, "%s: %s\n", field[n], fdata[n]);
+		    fprintf(freg, "----\n");
+		    while (fgets(genbuf, STRLEN, fn))
+			fputs(genbuf, freg);
+		    fclose(freg);
+		}
+	    case 'd':
+		break;
+	    case '0':
+	    case '1':
+	    case '2':
+	    case '3':
+	    case '4':
+	    case 'n':
+		if (ans[0] == 'n') {
+		    for (n = 0; field[n]; n++)
+			prints("%s: %s\n", finfo[n], fdata[n]);
+		    move(9, 0);
+		    prints("請提出退回申請表原因，按 <enter> 取消\n");
+		    for (n = 0; reason[n]; n++)
+			prints("%d) 請%s\n", n, reason[n]);
+		} else
+		    buf[0] = ans[0];
+		if (ans[0] != 'n' ||
+		    getdata(10 + n, 0, "退回原因：", buf, 60, DOECHO))
+		    if ((buf[0] - '0') >= 0 && (buf[0] - '0') < n) {
+			int             i;
+			fileheader_t    mhdr;
+			char            title[128], buf1[80];
+			FILE           *fp;
+
+			i = buf[0] - '0';
+			strlcpy(buf, reason[i], sizeof(buf));
+			snprintf(genbuf, sizeof(genbuf),
+				 "[退回原因] 請%s", buf);
+
+			sethomepath(buf1, muser.userid);
+			stampfile(buf1, &mhdr);
+			strlcpy(mhdr.owner, cuser.userid, sizeof(mhdr.owner));
+			strlcpy(mhdr.title, "[註冊失敗]", TTLEN);
+			mhdr.filemode = 0;
+			sethomedir(title, muser.userid);
+			if (append_record(title, &mhdr, sizeof(mhdr)) != -1) {
+			    fp = fopen(buf1, "w");
+			    fprintf(fp, "%s\n", genbuf);
+			    fclose(fp);
+			}
+			if ((fout = fopen(logfile, "a"))) {
+			    for (n = 0; field[n]; n++)
+				fprintf(fout, "%s: %s\n", field[n], fdata[n]);
+			    fprintf(fout, "Date: %s\n", Cdate(&now));
+			    fprintf(fout, "Rejected: %s [%s]\n----\n",
+				    uid, buf);
+			    fclose(fout);
+			}
+			break;
+		    }
+		move(10, 0);
+		clrtobot();
+		prints("取消退回此註冊申請表");
+	    case 's':
+		if ((freg = fopen(regfile, "a"))) {
+		    for (n = 0; field[n]; n++)
+			fprintf(freg, "%s: %s\n", field[n], fdata[n]);
+		    fprintf(freg, "----\n");
+		    fclose(freg);
+		}
+		break;
+	    default:
+		prints("以下使用者資料已經更新:\n");
+		mail_muser(muser, "[註冊成功\囉]", "etc/registered");
+		if(muser.uflag2 & FOREIGN)
+		    mail_muser(muser, "[出入境管理局]", "etc/foreign_welcome");
+		muser.userlevel |= (PERM_LOGINOK | PERM_POST);
+		strlcpy(muser.realname, fdata[2], sizeof(muser.realname));
+		strlcpy(muser.address, fdata[4], sizeof(muser.address));
+		strlcpy(muser.email, fdata[6], sizeof(muser.email));
+		snprintf(genbuf, sizeof(genbuf),
+			 "%s:%s:%s", fdata[5], fdata[3], uid);
+		strncpy(muser.justify, genbuf, REGLEN);
+		sethomefile(buf, muser.userid, "justify");
+		log_file(buf, genbuf);
+		passwd_update(unum, &muser);
+
+		if ((fout = fopen(logfile, "a"))) {
+		    for (n = 0; field[n]; n++)
+			fprintf(fout, "%s: %s\n", field[n], fdata[n]);
+		    fprintf(fout, "Date: %s\n", Cdate(&now));
+		    fprintf(fout, "Approved: %s\n", uid);
+		    fprintf(fout, "----\n");
+		    fclose(fout);
+		}
+		sethomefile(genbuf, muser.userid, "justify.wait");
+		unlink(genbuf);
+		break;
+	    }
+	}
+    }
+    fclose(fn);
+    unlink(fname);
+
+    move(0, 0);
+    clrtobot();
+
+    move(5, 0);
+    prints("您審了 %d 份註冊單，AutoScan 審了 %d 份", nSelf, nAuto);
+
+    /**	DickG: 將審了幾份的相關資料 post 到 Security 板上	***********/
+    /*
+     * DickG: 因應新的站長上站需審核方案，是故沒有必要留下 record ime(buf,
+     * 200, "%Y/%m/%d/%H:%M", pt);
+     * 
+     * strcpy(xboard, "Security"); setbpath(xfpath, xboard); stampfile(xfpath,
+     * &xfile); strcpy(xfile.owner, "系統"); strcpy(xfile.title, "[報告]
+     * 審核記錄"); xptr = fopen(xfpath, "w"); fprintf(xptr, "\n時間：%s %s
+     * 審了 %d 份註冊單\n AutoScan 審了 %d 份註冊單\n 共計 %d 份。", buf,
+     * cuser.userid, nSelf, nAuto, nSelf+nAuto); fclose(xptr); setbdir(fname,
+     * xboard); append_record(fname, &xfile, sizeof(xfile));
+     * outgo_post(&xfile, xboard); touchbtotal(getbnum(xboard));
+     * cuser.numposts++;
+     */
+    /*********************************************/
+    pressanykey();
+    return (0);
+}
+
+int
+m_register()
+{
+    FILE           *fn;
+    int             x, y, wid, len;
+    char            ans[4];
+    char            genbuf[200];
+
+    if ((fn = fopen(fn_register, "r")) == NULL) {
+	outs("目前並無新註冊資料");
+	return XEASY;
+    }
+    stand_title("審核使用者註冊資料");
+    y = 2;
+    x = wid = 0;
+
+    while (fgets(genbuf, STRLEN, fn) && x < 65) {
+	if (strncmp(genbuf, "uid: ", 5) == 0) {
+	    move(y++, x);
+	    outs(genbuf + 5);
+	    len = strlen(genbuf + 5);
+	    if (len > wid)
+		wid = len;
+	    if (y >= t_lines - 3) {
+		y = 2;
+		x += wid + 2;
+	    }
+	}
+    }
+    fclose(fn);
+    getdata(b_lines - 1, 0, "開始審核嗎(Auto/Yes/No)？[N] ", ans, sizeof(ans), LCECHO);
+    if (ans[0] == 'a')
+	scan_register_form(fn_register, 1, 0);
+    else if (ans[0] == 'y')
+	scan_register_form(fn_register, 0, 0);
+
+    return 0;
+}
+
+int
+cat_register()
+{
+    if (system("cat register.new.tmp >> register.new") == 0 &&
+	system("rm -f register.new.tmp") == 0)
+	mprints(22, 0, "OK 嚕~~ 繼續去奮鬥吧!!");
+    else
+	mprints(22, 0, "沒辦法CAT過去呢 去檢查一下系統吧!!");
+    pressanykey();
+    return 0;
+}
+
+static void
+give_id_money(char *user_id, int money, FILE * log_fp, char *mail_title, time_t t)
+{
+    char            tt[TTLEN + 1] = {0};
+
+    if (deumoney(searchuser(user_id), money) < 0) {
+	move(12, 0);
+	clrtoeol();
+	prints("id:%s money:%d 不對吧!!", user_id, money);
+	pressanykey();
+    } else {
+	fprintf(log_fp, "%ld %s %d", t, user_id, money);
+	snprintf(tt, sizeof(tt), "%s : %d ptt 幣", mail_title, money);
+	mail_id(user_id, tt, "~bbs/etc/givemoney.why", "[PTT 銀行]");
+    }
+}
+
+int
+give_money()
+{
+    FILE           *fp, *fp2;
+    char           *ptr, *id, *mn;
+    char            buf[200] = {0}, tt[TTLEN + 1] = {0};
+    struct tm      *pt = localtime(&now);
+    int             to_all = 0, money = 0;
+
+    getdata(0, 0, "指定使用者(S) 全站使用者(A) 取消(Q)？[S]", buf, sizeof(buf), LCECHO);
+    if (buf[0] == 'q')
+	return 1;
+    else if (buf[0] == 'a') {
+	to_all = 1;
+	getdata(1, 0, "發多少錢呢?", buf, 20, DOECHO);
+	money = atoi(buf);
+	if (money <= 0) {
+	    move(2, 0);
+	    prints("輸入錯誤!!");
+	    pressanykey();
+	    return 1;
+	}
+    } else {
+	if (vedit("etc/givemoney.txt", NA, NULL) < 0)
+	    return 1;
+    }
+
+    clear();
+    getdata(0, 0, "要發錢了嗎(Y/N)[N]", buf, 3, LCECHO);
+    if (buf[0] != 'y')
+	return 1;
+
+    if (!(fp2 = fopen("etc/givemoney.log", "a")))
+	return 1;
+    strftime(buf, 200, "%Y/%m/%d/%H:%M", pt);
+    fprintf(fp2, "%s\n", buf);
+
+    getdata(1, 0, "紅包袋標題 ：", tt, TTLEN, DOECHO);
+    move(2, 0);
+
+    prints("編紅包袋內容");
+    pressanykey();
+    if (vedit("etc/givemoney.why", NA, NULL) < 0) {
+        fclose(fp2);
+	return 1;
+    }
+
+    stand_title("發錢中...");
+    if (to_all) {
+	int             i, unum;
+	for (unum = SHM->number, i = 0; i < unum; i++) {
+	    if (bad_user_id(SHM->userid[i]))
+		continue;
+	    id = SHM->userid[i];
+	    give_id_money(id, money, fp2, tt, now);
+	}
+	//something wrong @ _ @
+	    //give_money_post("全站使用者", atoi(money));
+    } else {
+	if (!(fp = fopen("etc/givemoney.txt", "r+"))) {
+	    fclose(fp2);
+	    return 1;
+	}
+	while (fgets(buf, 255, fp)) {
+	    clear();
+	    if (!(ptr = strchr(buf, ':')))
+		continue;
+	    *ptr = '\0';
+	    id = buf;
+	    mn = ptr + 1;
+	    give_id_money(id, atoi(mn), fp2, tt, now);
+	    give_money_post(id, atoi(mn));
+	}
+	fclose(fp);
+    }
+
+    fclose(fp2);
+    pressanykey();
+    return FULLUPDATE;
+}
diff --git a/pttbbs/mbbsd/announce.c b/pttbbs/mbbsd/announce.c
new file mode 100644
index 00000000..4dc5438e
--- /dev/null
+++ b/pttbbs/mbbsd/announce.c
@@ -0,0 +1,1176 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define PATHLEN     256
+
+static char     copyfile[PATHLEN];
+static char     copytitle[TTLEN + 1];
+static char     copyowner[IDLEN + 2];
+
+void
+a_copyitem(char *fpath, char *title, char *owner, int mode)
+{
+    strcpy(copyfile, fpath);
+    strcpy(copytitle, title);
+    if (owner)
+	strcpy(copyowner, owner);
+    else
+	*copyowner = 0;
+    if (mode) {
+	vmsg("檔案標記完成。[注意] 拷貝後才能刪除原文!");
+    }
+}
+
+#define FHSZ            sizeof(fileheader_t)
+
+static void
+a_loadname(menu_t * pm)
+{
+    char            buf[PATHLEN];
+    int             len;
+
+    setadir(buf, pm->path);
+    len = get_records(buf, pm->header, FHSZ, pm->page + 1, p_lines);
+    if (len < p_lines)
+	bzero(&pm->header[len], FHSZ * (p_lines - len));
+}
+
+static void
+a_timestamp(char *buf, time_t * time)
+{
+    struct tm      *pt = localtime(time);
+
+    sprintf(buf, "%02d/%02d/%02d", pt->tm_mon + 1, pt->tm_mday, (pt->tm_year + 1900) % 100);
+}
+
+static void
+a_showmenu(menu_t * pm)
+{
+    char           *title, *editor;
+    int             n;
+    fileheader_t   *item;
+    char            buf[PATHLEN];
+    time_t          dtime;
+
+    showtitle("精華文章", pm->mtitle);
+    prints("   \033[1;36m編號    標      題%56s\033[0m",
+	   "編    選      日    期");
+
+    if (pm->num) {
+	setadir(buf, pm->path);
+	a_loadname(pm);
+	for (n = 0; n < p_lines && pm->page + n < pm->num; n++) {
+	    item = &pm->header[n];
+	    title = item->title;
+	    editor = item->owner;
+	    /*
+	     * Ptt 把時間改為取檔案時間 dtime = atoi(&item->filename[2]);
+	     */
+	    snprintf(buf, sizeof(buf), "%s/%s", pm->path, item->filename);
+	    dtime = dasht(buf);
+	    a_timestamp(buf, &dtime);
+	    prints("\n%6d%c %-47.46s%-13s[%s]", pm->page + n + 1,
+		   (item->filemode & FILE_BM) ? 'X' :
+		   (item->filemode & FILE_HIDE) ? ')' : '.',
+		   title, editor,
+		   buf);
+	}
+    } else
+	outs("\n  《精華區》尚在吸取天地間的日月精華中... :)");
+
+    move(b_lines, 1);
+    outs(pm->level ?
+	 "\033[34;46m 【板  主】 \033[31;47m  (h)\033[30m說明  "
+	 "\033[31m(q/←)\033[30m離開  \033[31m(n)\033[30m新增文章  "
+	 "\033[31m(g)\033[30m新增目錄  \033[31m(e)\033[30m編輯檔案  \033[m" :
+	 "\033[34;46m 【功\能鍵】 \033[31;47m  (h)\033[30m說明  "
+	 "\033[31m(q/←)\033[30m離開  \033[31m(k↑j↓)\033[30m移動游標  "
+	 "\033[31m(enter/→)\033[30m讀取資料  \033[m");
+}
+
+static int
+a_searchtitle(menu_t * pm, int rev)
+{
+    static char     search_str[40] = "";
+    int             pos;
+
+    getdata(b_lines - 1, 1, "[搜尋]關鍵字:", search_str, sizeof(search_str), DOECHO);
+
+    if (!*search_str)
+	return pm->now;
+
+    str_lower(search_str, search_str);
+
+    rev = rev ? -1 : 1;
+    pos = pm->now;
+    do {
+	pos += rev;
+	if (pos == pm->num)
+	    pos = 0;
+	else if (pos < 0)
+	    pos = pm->num - 1;
+	if (pos < pm->page || pos >= pm->page + p_lines) {
+	    pm->page = pos - pos % p_lines;
+	    a_loadname(pm);
+	}
+	if (strstr_lower(pm->header[pos - pm->page].title, search_str))
+	    return pos;
+    } while (pos != pm->now);
+    return pm->now;
+}
+
+enum {
+    NOBODY, MANAGER, SYSOP
+};
+
+static void
+a_showhelp(int level)
+{
+    clear();
+    outs("\033[36m【 " BBSNAME "公佈欄使用說明 】\033[m\n\n"
+	 "[←][q]         離開到上一層目錄\n"
+	 "[↑][k]         上一個選項\n"
+	 "[↓][j]         下一個選項\n"
+	 "[→][r][enter]  進入目錄／讀取文章\n"
+	 "[^B][PgUp]      上頁選單\n"
+	 "[^F][PgDn][Spc] 下頁選單\n"
+	 "[##]            移到該選項\n"
+	 "[F][U]          將文章寄回 Internet 郵箱/"
+	 "將文章 uuencode 後寄回郵箱\n");
+    if (level >= MANAGER) {
+	outs("\n\033[36m【 板主專用鍵 】\033[m\n"
+	     "[H]             切換為 公開/會員/板主 才能閱\讀\n"
+	     "[n/g/G]         收錄精華文章/開闢目錄/建立連線\n"
+	     "[m/d/D]         移動/刪除文章/刪除一個範圍的文章\n"
+	     "[f/T/e]         編輯標題符號/修改文章標題/內容\n"
+	     "[c/p/a]         拷貝/粘貼/附加文章\n"
+	     "[^P/^A]         粘貼/附加已用't'標記文章\n");
+    }
+    if (level >= SYSOP) {
+	outs("\n\033[36m【 站長專用鍵 】\033[m\n"
+	     "[l]             建 symbolic link\n"
+	     "[N]             查詢檔名\n");
+    }
+    pressanykey();
+}
+
+static void
+a_forward(char *path, fileheader_t * pitem, int mode)
+{
+    fileheader_t    fhdr;
+
+    strlcpy(fhdr.filename, pitem->filename, sizeof(fhdr.filename));
+    strlcpy(fhdr.title, pitem->title, sizeof(fhdr.title));
+    switch (doforward(path, &fhdr, mode)) {
+    case 0:
+	outmsg(msg_fwd_ok);
+	break;
+    case -1:
+	outmsg(msg_fwd_err1);
+	break;
+    case -2:
+	outmsg(msg_fwd_err2);
+	break;
+    }
+}
+
+static void
+a_additem(menu_t * pm, fileheader_t * myheader)
+{
+    char            buf[PATHLEN];
+
+    setadir(buf, pm->path);
+    if (append_record(buf, myheader, FHSZ) == -1)
+	return;
+    pm->now = pm->num++;
+
+    if (pm->now >= pm->page + p_lines) {
+	pm->page = pm->now - ((pm->page == 10000 && pm->now > p_lines / 2) ?
+			      (p_lines / 2) : (pm->now % p_lines));
+    }
+    /* Ptt */
+    strlcpy(pm->header[pm->now - pm->page].filename,
+	    myheader->filename,
+	    sizeof(pm->header[pm->now - pm->page].filename));
+}
+
+#define ADDITEM         0
+#define ADDGROUP        1
+#define ADDLINK         2
+
+static void
+a_newitem(menu_t * pm, int mode)
+{
+    char    *mesg[3] = {
+	"[新增文章] 請輸入標題：",	/* ADDITEM */
+	"[新增目錄] 請輸入標題：",	/* ADDGROUP */
+	"請輸入標題："		/* ADDLINK */
+    };
+
+    char            fpath[PATHLEN], buf[PATHLEN], lpath[PATHLEN];
+    fileheader_t    item;
+    int             d;
+
+    strlcpy(fpath, pm->path, sizeof(fpath));
+
+    switch (mode) {
+    case ADDITEM:
+	stampfile(fpath, &item);
+	strlcpy(item.title, "◇ ", sizeof(item.title));	/* A1BA */
+	break;
+
+    case ADDGROUP:
+	stampdir(fpath, &item);
+	strlcpy(item.title, "◆ ", sizeof(item.title));	/* A1BB */
+	break;
+    case ADDLINK:
+	stamplink(fpath, &item);
+	if (!getdata(b_lines - 2, 1, "新增連線：", buf, 61, DOECHO))
+	    return;
+	if (invalid_pname(buf)) {
+	    unlink(fpath);
+	    outs("目的地路徑不合法！");
+	    igetch();
+	    return;
+	}
+	item.title[0] = 0;
+	// XXX Is it alright?
+	// ex: path= "PASSWD"
+	for (d = 0; d <= 3; d++) {
+	    switch (d) {
+	    case 0:
+		snprintf(lpath, sizeof(lpath), BBSHOME "/man/boards/%c/%s/%s",
+			currboard[0], currboard, buf);
+		break;
+	    case 1:
+		snprintf(lpath, sizeof(lpath), "%s%s/%c/%s",
+			BBSHOME, "/man/boards/", buf[0], buf);
+		break;
+	    case 2:
+		snprintf(lpath, sizeof(lpath), "%s%s%s",
+			BBSHOME, "/", buf);
+		break;
+	    case 3:
+		snprintf(lpath, sizeof(lpath), "%s%s%s",
+			BBSHOME, "/etc/", buf);
+		break;
+	    }
+	    if (dashf(lpath)) {
+		strlcpy(item.title, "☆ ", sizeof(item.title));	/* A1B3 */
+		break;
+	    } else if (dashd(lpath)) {
+		strlcpy(item.title, "★ ", sizeof(item.title));	/* A1B4 */
+		break;
+	    }
+	    if (!HAS_PERM(PERM_BBSADM) && d == 1)
+		break;
+	}
+
+	if (!item.title[0]) {
+	    unlink(fpath);
+	    outs("目的地路徑不合法！");
+	    igetch();
+	    return;
+	}
+    }
+
+    if (!getdata(b_lines - 1, 1, mesg[mode], &item.title[3], 55, DOECHO)) {
+	if (mode == ADDGROUP)
+	    rmdir(fpath);
+	else
+	    unlink(fpath);
+	return;
+    }
+    switch (mode) {
+    case ADDITEM:
+	if (vedit(fpath, 0, NULL) == -1) {
+	    unlink(fpath);
+	    pressanykey();
+	    return;
+	}
+	break;
+    case ADDLINK:
+	unlink(fpath);
+	if (symlink(lpath, fpath) == -1) {
+	    outs("無法建立 symbolic link");
+	    igetch();
+	    return;
+	}
+	break;
+    }
+
+    strlcpy(item.owner, cuser.userid, sizeof(item.owner));
+    a_additem(pm, &item);
+}
+
+static void
+a_pasteitem(menu_t * pm, int mode)
+{
+    char            newpath[PATHLEN];
+    char            buf[PATHLEN];
+    char            ans[2];
+    int             i;
+    fileheader_t    item;
+
+    move(b_lines - 1, 1);
+    if (copyfile[0]) {
+	if (dashd(copyfile)) {
+	    for (i = 0; copyfile[i] && copyfile[i] == pm->path[i]; i++);
+	    if (!copyfile[i]) {
+		outs("將目錄拷進自己的子目錄中，會造成無窮迴圈！");
+		igetch();
+		return;
+	    }
+	}
+	if (mode) {
+	    snprintf(buf, sizeof(buf),
+		     "確定要拷貝[%s]嗎(Y/N)？[N] ", copytitle);
+	    getdata(b_lines - 1, 1, buf, ans, sizeof(ans), LCECHO);
+	} else
+	    ans[0] = 'y';
+	if (ans[0] == 'y') {
+	    strlcpy(newpath, pm->path, sizeof(newpath));
+
+	    if (*copyowner) {
+		char           *fname = strrchr(copyfile, '/');
+
+		if (fname)
+		    strcat(newpath, fname);
+		else
+		    return;
+		if (access(pm->path, X_OK | R_OK | W_OK))
+		    mkdir(pm->path, 0755);
+		memset(&item, 0, sizeof(fileheader_t));
+		strlcpy(item.filename, fname + 1, sizeof(item.filename));
+		memcpy(copytitle, "◎", 2);
+		if (HAS_PERM(PERM_BBSADM))
+		    Link(copyfile, newpath);
+		else {
+		    snprintf(buf, sizeof(buf), 
+			     "/bin/cp %s %s", copyfile, newpath);
+		    system(buf);
+		}
+	    } else if (dashf(copyfile)) {
+		stampfile(newpath, &item);
+		memcpy(copytitle, "◇", 2);
+		snprintf(buf, sizeof(buf), "/bin/cp %s %s", copyfile, newpath);
+	    } else if (dashd(copyfile)) {
+		stampdir(newpath, &item);
+		memcpy(copytitle, "◆", 2);
+		snprintf(buf, sizeof(buf),
+			 "/bin/cp -r %s/* %s/.D* %s", copyfile, copyfile,
+			 newpath);
+	    } else {
+		outs("無法拷貝！");
+		igetch();
+		return;
+	    }
+	    strlcpy(item.owner, *copyowner ? copyowner : cuser.userid,
+		    sizeof(item.owner));
+	    strlcpy(item.title, copytitle, sizeof(item.title));
+	    if (!*copyowner)
+		system(buf);
+	    a_additem(pm, &item);
+	    copyfile[0] = '\0';
+	}
+    } else {
+	outs("請先執行 copy 命令後再 paste");
+	igetch();
+    }
+}
+
+static void
+a_appenditem(menu_t * pm, int isask)
+{
+    char            fname[PATHLEN];
+    char            buf[ANSILINELEN];
+    char            ans[2] = "y";
+    FILE           *fp, *fin;
+
+    move(b_lines - 1, 1);
+    if (copyfile[0]) {
+	if (dashf(copyfile)) {
+	    snprintf(fname, sizeof(fname), "%s/%s", pm->path,
+		    pm->header[pm->now - pm->page].filename);
+	    if (dashf(fname)) {
+		if (isask) {
+		    snprintf(buf, sizeof(buf),
+			     "確定要將[%s]附加於此嗎(Y/N)？[N] ", copytitle);
+		    getdata(b_lines - 2, 1, buf, ans, sizeof(ans), LCECHO);
+		}
+		if (ans[0] == 'y') {
+		    if ((fp = fopen(fname, "a+"))) {
+			if ((fin = fopen(copyfile, "r"))) {
+			    memset(buf, '-', 74);
+			    buf[74] = '\0';
+			    fprintf(fp, "\n> %s <\n\n", buf);
+			    if (isask)
+				getdata(b_lines - 1, 1,
+					"是否收錄簽名檔部份(Y/N)？[Y] ",
+					ans, sizeof(ans), LCECHO);
+			    while (fgets(buf, sizeof(buf), fin)) {
+				if ((ans[0] == 'n') &&
+				    !strcmp(buf, "--\n"))
+				    break;
+				fputs(buf, fp);
+			    }
+			    fclose(fin);
+			    copyfile[0] = '\0';
+			}
+			fclose(fp);
+		    }
+		}
+	    } else {
+		outs("檔案不得附加於此！");
+		igetch();
+	    }
+	} else {
+	    outs("不得附加整個目錄於檔案後！");
+	    igetch();
+	}
+    } else {
+	outs("請先執行 copy 命令後再 append");
+	igetch();
+    }
+}
+
+static int
+a_pastetagpost(menu_t * pm, int mode)
+{
+    fileheader_t    fhdr;
+    boardheader_t  *bh;
+    int             ans = 0, ent = 0, tagnum;
+    char            title[TTLEN + 1] = "◇  ";
+    char            dirname[200], buf[200];
+
+    if (TagBoard == 0){
+	sethomedir(dirname, cuser.userid);
+    }
+    else{
+	bh = getbcache(TagBoard);
+	setbdir(dirname, bh->brdname);
+    }
+    tagnum = TagNum;
+
+    if (!tagnum)
+	return ans;
+
+    while (tagnum--) {
+	EnumTagFhdr(&fhdr, dirname, ent++);
+	if (TagBoard == 0) 
+	    sethomefile(buf, cuser.userid, fhdr.filename);
+	else
+	    setbfile(buf, bh->brdname, fhdr.filename);
+
+	if (dashf(buf)) {
+	    strncpy(title + 3, fhdr.title, TTLEN - 3);
+	    title[TTLEN] = '\0';
+	    a_copyitem(buf, title, 0, 0);
+	    if (mode) {
+		mode--;
+		a_pasteitem(pm, 0);
+	    } else
+		a_appenditem(pm, 0);
+	    ++ans;
+	    UnTagger(tagnum);
+	}
+    }
+
+    return ans;
+}
+
+static void
+a_moveitem(menu_t * pm)
+{
+    fileheader_t   *tmp;
+    char            newnum[4];
+    int             num, max, min;
+    char            buf[PATHLEN];
+    int             fail;
+
+    snprintf(buf, sizeof(buf), "請輸入第 %d 選項的新次序：", pm->now + 1);
+    if (!getdata(b_lines - 1, 1, buf, newnum, sizeof(newnum), DOECHO))
+	return;
+    num = (newnum[0] == '$') ? 9999 : atoi(newnum) - 1;
+    if (num >= pm->num)
+	num = pm->num - 1;
+    else if (num < 0)
+	num = 0;
+    setadir(buf, pm->path);
+    min = num < pm->now ? num : pm->now;
+    max = num > pm->now ? num : pm->now;
+    tmp = (fileheader_t *) calloc(max + 1, FHSZ);
+
+    fail = 0;
+    if (get_records(buf, tmp, FHSZ, 1, min) != min)
+	fail = 1;
+    if (num > pm->now) {
+	if (get_records(buf, &tmp[min], FHSZ, pm->now + 2, max - min) != max - min)
+	    fail = 1;
+	if (get_records(buf, &tmp[max], FHSZ, pm->now + 1, 1) != 1)
+	    fail = 1;
+    } else {
+	if (get_records(buf, &tmp[min], FHSZ, pm->now + 1, 1) != 1)
+	    fail = 1;
+	if (get_records(buf, &tmp[min + 1], FHSZ, num + 1, max - min) != max - min)
+	    fail = 1;
+    }
+    if (!fail)
+	substitute_record(buf, tmp, FHSZ * (max + 1), 1);
+    pm->now = num;
+    free(tmp);
+}
+
+static void
+a_delrange(menu_t * pm)
+{
+    char            fname[256];
+
+    snprintf(fname, sizeof(fname), "%s/.DIR", pm->path);
+    del_range(0, NULL, fname);
+    pm->num = get_num_records(fname, FHSZ);
+}
+
+static void
+a_delete(menu_t * pm)
+{
+    char            fpath[PATHLEN], buf[PATHLEN], cmd[PATHLEN];
+    char            ans[4];
+    fileheader_t    backup;
+
+    snprintf(fpath, sizeof(fpath),
+	     "%s/%s", pm->path, pm->header[pm->now - pm->page].filename);
+    setadir(buf, pm->path);
+
+    if (pm->header[pm->now - pm->page].filename[0] == 'H' &&
+	pm->header[pm->now - pm->page].filename[1] == '.') {
+	getdata(b_lines - 1, 1, "您確定要刪除此精華區連線嗎(Y/N)？[N] ",
+		ans, sizeof(ans), LCECHO);
+	if (ans[0] != 'y')
+	    return;
+	if (delete_record(buf, FHSZ, pm->now + 1) == -1)
+	    return;
+    } else if (dashl(fpath)) {
+	getdata(b_lines - 1, 1, "您確定要刪除此 symbolic link 嗎(Y/N)？[N] ",
+		ans, sizeof(ans), LCECHO);
+	if (ans[0] != 'y')
+	    return;
+	if (delete_record(buf, FHSZ, pm->now + 1) == -1)
+	    return;
+	unlink(fpath);
+    } else if (dashf(fpath)) {
+	getdata(b_lines - 1, 1, "您確定要刪除此檔案嗎(Y/N)？[N] ", ans,
+		sizeof(ans), LCECHO);
+	if (ans[0] != 'y')
+	    return;
+	if (delete_record(buf, FHSZ, pm->now + 1) == -1)
+	    return;
+
+	setbpath(buf, "deleted");
+	stampfile(buf, &backup);
+	strlcpy(backup.owner, cuser.userid, sizeof(backup.owner));
+	strlcpy(backup.title,
+		pm->header[pm->now - pm->page].title + 2,
+		sizeof(backup.title));
+
+	snprintf(cmd, sizeof(cmd),
+		 "mv -f %s %s", fpath, buf);
+	system(cmd);
+	setbdir(buf, "deleted");
+	append_record(buf, &backup, sizeof(backup));
+    } else if (dashd(fpath)) {
+	getdata(b_lines - 1, 1, "您確定要刪除整個目錄嗎(Y/N)？[N] ", ans,
+		sizeof(ans), LCECHO);
+	if (ans[0] != 'y')
+	    return;
+	if (delete_record(buf, FHSZ, pm->now + 1) == -1)
+	    return;
+
+	setapath(buf, "deleted");
+	stampdir(buf, &backup);
+
+	snprintf(cmd, sizeof(cmd),
+		 "rm -rf %s;/bin/mv -f %s %s", buf, fpath, buf);
+	system(cmd);
+
+	strlcpy(backup.owner, cuser.userid, sizeof(backup.owner));
+	strlcpy(backup.title,
+		pm->header[pm->now - pm->page].title + 2,
+		sizeof(backup.title));
+	setapath(buf, "deleted");
+	setadir(buf, buf);
+	append_record(buf, &backup, sizeof(backup));
+    } else {			/* Ptt 損毀的項目 */
+	getdata(b_lines - 1, 1, "您確定要刪除此損毀的項目嗎(Y/N)？[N] ",
+		ans, sizeof(ans), LCECHO);
+	if (ans[0] != 'y')
+	    return;
+	if (delete_record(buf, FHSZ, pm->now + 1) == -1)
+	    return;
+    }
+    pm->num--;
+}
+
+static void
+a_newtitle(menu_t * pm)
+{
+    char            buf[PATHLEN];
+    fileheader_t    item;
+
+    memcpy(&item, &pm->header[pm->now - pm->page], FHSZ);
+    strlcpy(buf, item.title + 3, sizeof(buf));
+    if (getdata_buf(b_lines - 1, 1, "新標題：", buf, 60, DOECHO)) {
+	strlcpy(item.title + 3, buf, sizeof(item.title) - 3);
+	setadir(buf, pm->path);
+	substitute_record(buf, &item, FHSZ, pm->now + 1);
+    }
+}
+static void
+a_hideitem(menu_t * pm)
+{
+    fileheader_t   *item = &pm->header[pm->now - pm->page];
+    char            buf[PATHLEN];
+    if (item->filemode & FILE_BM) {
+	item->filemode &= ~FILE_BM;
+	item->filemode &= ~FILE_HIDE;
+    } else if (item->filemode & FILE_HIDE)
+	item->filemode |= FILE_BM;
+    else
+	item->filemode |= FILE_HIDE;
+    setadir(buf, pm->path);
+    substitute_record(buf, item, FHSZ, pm->now + 1);
+}
+static void
+a_editsign(menu_t * pm)
+{
+    char            buf[PATHLEN];
+    fileheader_t    item;
+
+    memcpy(&item, &pm->header[pm->now - pm->page], FHSZ);
+    snprintf(buf, sizeof(buf), "%c%c", item.title[0], item.title[1]);
+    if (getdata_buf(b_lines - 1, 1, "符號", buf, 5, DOECHO)) {
+	item.title[0] = buf[0] ? buf[0] : ' ';
+	item.title[1] = buf[1] ? buf[1] : ' ';
+	item.title[2] = buf[2] ? buf[2] : ' ';
+	setadir(buf, pm->path);
+	substitute_record(buf, &item, FHSZ, pm->now + 1);
+    }
+}
+
+static void
+a_showname(menu_t * pm)
+{
+    char            buf[PATHLEN];
+    int             len;
+    int             i;
+    int             sym;
+
+    move(b_lines - 1, 1);
+    snprintf(buf, sizeof(buf),
+	     "%s/%s", pm->path, pm->header[pm->now - pm->page].filename);
+    if (dashl(buf)) {
+	prints("此 symbolic link 名稱為 %s\n",
+	       pm->header[pm->now - pm->page].filename);
+	if ((len = readlink(buf, buf, PATHLEN - 1)) >= 0) {
+	    buf[len] = '\0';
+	    for (i = 0; BBSHOME[i] && buf[i] == BBSHOME[i]; i++);
+	    if (!BBSHOME[i] && buf[i] == '/') {
+		if (HAS_PERM(PERM_BBSADM))
+		    sym = 1;
+		else {
+		    sym = 0;
+		    for (i++; BBSHOME "/man"[i] && buf[i] == BBSHOME "/man"[i];
+			 i++);
+		    if (!BBSHOME "/man"[i] && buf[i] == '/')
+			sym = 1;
+		}
+		if (sym) {
+		    pressanykey();
+		    move(b_lines - 1, 1);
+		    prints("此 symbolic link 指向 %s\n", &buf[i + 1]);
+		}
+	    }
+	}
+    } else if (dashf(buf))
+	prints("此文章名稱為 %s", pm->header[pm->now - pm->page].filename);
+    else if (dashd(buf))
+	prints("此目錄名稱為 %s", pm->header[pm->now - pm->page].filename);
+    else
+	outs("此項目已損毀, 建議將其刪除！");
+    pressanykey();
+}
+
+#if 0
+static char    *a_title;
+
+static void
+atitle()
+{
+    showtitle("精華文章", a_title);
+    outs("[←]離開 [→]閱\讀 [^P]發表文章 [b]備忘錄 [d]刪除 [q]精華區 "
+	 "[TAB]文摘 [h]elp\n\033[7m  編號   日 期  作  者       "
+	 "文  章  標  題\033[m");
+}
+#endif
+
+static int
+isvisible_man(menu_t * me)
+{
+    fileheader_t   *fhdr = &me->header[me->now - me->page];
+    if (me->level < MANAGER && ((fhdr->filemode & FILE_BM) ||
+				((fhdr->filemode & FILE_HIDE) &&
+				 hbflcheck(currbid, currutmp->uid))))
+	return 0;
+    return 1;
+}
+int
+a_menu(char *maintitle, char *path, int lastlevel)
+{
+    static char     Fexit;	// 用來跳出 recursion
+    menu_t          me;
+    char            fname[PATHLEN];
+    int             ch, returnvalue = FULLUPDATE;
+
+    trans_buffer[0] = 0;
+
+    Fexit = 0;
+    me.header = (fileheader_t *) calloc(p_lines, FHSZ);
+    me.path = path;
+    strlcpy(me.mtitle, maintitle, sizeof(me.mtitle));
+    setadir(fname, me.path);
+    me.num = get_num_records(fname, FHSZ);
+
+    /* 精華區-tree 中部份結構屬於 cuser ==> BM */
+
+    if (!(me.level = lastlevel)) {
+	char           *ptr;
+
+	if ((ptr = strrchr(me.mtitle, '[')))
+	    me.level = is_BM(ptr + 1);
+    }
+    me.page = 9999;
+    me.now = 0;
+    for (;;) {
+	if (me.now >= me.num)
+	    me.now = me.num - 1;
+	if (me.now < 0)
+	    me.now = 0;
+
+	if (me.now < me.page || me.now >= me.page + p_lines) {
+	    me.page = me.now - ((me.page == 10000 && me.now > p_lines / 2) ?
+				(p_lines / 2) : (me.now % p_lines));
+	    a_showmenu(&me);
+	}
+	ch = cursor_key(2 + me.now - me.page, 0);
+
+	if (ch == 'q' || ch == 'Q' || ch == KEY_LEFT)
+	    break;
+
+	if (ch >= '1' && ch <= '9') {
+	    if ((ch = search_num(ch, me.num)) != -1)
+		me.now = ch;
+	    me.page = 10000;
+	    continue;
+	}
+	switch (ch) {
+	case KEY_UP:
+	case 'k':
+	    if (--me.now < 0)
+		me.now = me.num - 1;
+	    break;
+
+	case KEY_DOWN:
+	case 'j':
+	    if (++me.now >= me.num)
+		me.now = 0;
+	    break;
+
+	case KEY_PGUP:
+	case Ctrl('B'):
+	    if (me.now >= p_lines)
+		me.now -= p_lines;
+	    else if (me.now > 0)
+		me.now = 0;
+	    else
+		me.now = me.num - 1;
+	    break;
+
+	case ' ':
+	case KEY_PGDN:
+	case Ctrl('F'):
+	    if (me.now < me.num - p_lines)
+		me.now += p_lines;
+	    else if (me.now < me.num - 1)
+		me.now = me.num - 1;
+	    else
+		me.now = 0;
+	    break;
+
+	case '0':
+	    me.now = 0;
+	    break;
+	case '?':
+	case '/':
+	    me.now = a_searchtitle(&me, ch == '?');
+	    me.page = 9999;
+	    break;
+	case '$':
+	    me.now = me.num - 1;
+	    break;
+	case 'h':
+	    a_showhelp(me.level);
+	    me.page = 9999;
+	    break;
+	case Ctrl('C'):
+	    cal();
+	    me.page = 9999;
+	    break;
+
+	case Ctrl('I'):
+	    t_idle();
+	    me.page = 9999;
+	    break;
+
+	case 'e':
+	case 'E':
+	    snprintf(fname, sizeof(fname),
+		     "%s/%s", path, me.header[me.now - me.page].filename);
+	    if (dashf(fname) && me.level >= MANAGER) {
+		*quote_file = 0;
+		if (vedit(fname, NA, NULL) != -1) {
+		    char            fpath[200];
+		    fileheader_t    fhdr;
+
+		    strlcpy(fpath, path, sizeof(fpath));
+		    stampfile(fpath, &fhdr);
+		    unlink(fpath);
+		    Rename(fname, fpath);
+		    strlcpy(me.header[me.now - me.page].filename,
+			    fhdr.filename,
+			    sizeof(me.header[me.now - me.page].filename));
+		    strlcpy(me.header[me.now - me.page].owner,
+			    cuser.userid,
+			    sizeof(me.header[me.now - me.page].owner));
+		    setadir(fpath, path);
+		    substitute_record(fpath, me.header + me.now - me.page,
+				      sizeof(fhdr), me.now + 1);
+		}
+		me.page = 9999;
+	    }
+	    break;
+
+	case 'c':
+	    if (me.now < me.num) {
+		if (!isvisible_man(&me))
+		    break;
+
+		snprintf(fname, sizeof(fname), "%s/%s", path,
+			 me.header[me.now - me.page].filename);
+
+		/* XXX: dirty fix
+		   應該要改成如果發現該目錄裡面有隱形目錄的話才拒絕.
+		   不過這樣的話須要整個搜一遍, 而且目前判斷該資料是目錄
+		   還是檔案竟然是用 fstat(2) 而不是直接存在 .DIR 內 |||b
+		   須等該資料寫入 .DIR 內再 implement才有效率.
+		 */
+		if( !lastlevel && !HAS_PERM(PERM_SYSOP) &&
+		    !HAS_PERM(PERM_SYSSUBOP) && is_BM_cache(currbid) &&
+		    dashd(fname) )
+		    vmsg("只有板主才可以拷貝目錄唷!");
+		else
+		    a_copyitem(fname, me.header[me.now - me.page].title, 0, 1);
+		me.page = 9999;
+		break;
+	    }
+	case '\n':
+	case '\r':
+	case KEY_RIGHT:
+	case 'r':
+	    if (me.now < me.num) {
+		fileheader_t   *fhdr = &me.header[me.now - me.page];
+		if (!isvisible_man(&me))
+		    break;
+#ifdef DEBUG
+		vmsg("%s/%s", &path[11], fhdr->filename);;
+#endif
+		snprintf(fname, sizeof(fname), "%s/%s", path, fhdr->filename);
+		if (*fhdr->filename == 'H' && fhdr->filename[1] == '.') {
+		  vmsg("不再支援 gopher mode, 請使用瀏覽器直接瀏覽");
+		  vmsg("gopher://%s/1/",fhdr->filename+2);
+		} else if (dashf(fname)) {
+		    int             more_result;
+
+		    while ((more_result = more(fname, YEA))) {
+			/* Ptt 範本精靈 plugin */
+			if (currstat == EDITEXP || currstat == OSONG) {
+			    char            ans[4];
+
+			    move(22, 0);
+			    clrtoeol();
+			    getdata(22, 1,
+				    currstat == EDITEXP ?
+				    "要把範例 Plugin 到文章嗎?[y/N]" :
+				    "確定要點這首歌嗎?[y/N]",
+				    ans, sizeof(ans), LCECHO);
+			    if (ans[0] == 'y') {
+				strlcpy(trans_buffer,
+					fname, sizeof(trans_buffer));
+				Fexit = 1;
+				if (currstat == OSONG) {
+				    /* XXX: 只選歌未點歌可灌排行榜 */
+				    log_file(FN_USSONG, fhdr->title);
+				}
+				free(me.header);
+				return FULLUPDATE;
+			    }
+			}
+			if (more_result == 1) {
+			    if (--me.now < 0) {
+				me.now = 0;
+				break;
+			    }
+			} else if (more_result == 3) {
+			    if (++me.now >= me.num) {
+				me.now = me.num - 1;
+				break;
+			    }
+			} else
+			    break;
+			if (!isvisible_man(&me))
+			    break;
+			snprintf(fname, sizeof(fname), "%s/%s", path,
+				 me.header[me.now - me.page].filename);
+			if (!dashf(fname))
+			    break;
+		    }
+		} else if (dashd(fname)) {
+		    a_menu(me.header[me.now - me.page].title, fname, me.level);
+		    /* Ptt  強力跳出recursive */
+		    if (Fexit) {
+			free(me.header);
+			return FULLUPDATE;
+		    }
+		}
+		me.page = 9999;
+	    }
+	    break;
+
+	case 'F':
+	case 'U':
+	    snprintf(fname, sizeof(fname),
+		     "%s/%s", path, me.header[me.now - me.page].filename);
+	    if (me.now < me.num && HAS_PERM(PERM_BASIC) && dashf(fname)) {
+		a_forward(path, &me.header[me.now - me.page], ch /* == 'U' */ );
+		/* By CharlieL */
+	    } else
+		outmsg("無法轉寄此項目");
+
+	    me.page = 9999;
+	    refresh();
+	    sleep(1);
+	    break;
+
+#ifdef BLOG
+	case 'b':
+	    if( !HAS_PERM(PERM_SYSOP) && !is_BM_cache(currbid) )
+		vmsg("只有板主才可以用唷!");
+	    else{
+		char    genbuf[128];
+		snprintf(genbuf, sizeof(genbuf),
+			 "bin/builddb.pl -f -n %d %s", me.now, currboard);
+		system(genbuf);
+		vmsg("資料更新完成");
+	    }
+	    me.page = 9999;
+	    break;
+
+	case 'B':
+	    if( !HAS_PERM(SYSOP) && !is_BM_cache(currbid) )
+		vmsg("只有板主才可以用唷!");
+	    else
+		BlogMain(me.now);
+	    me.page = 9999;
+
+	    break;
+#endif
+	}
+
+	if (me.level >= MANAGER) {
+	    int             page0 = me.page;
+
+	    switch (ch) {
+	    case 'n':
+		a_newitem(&me, ADDITEM);
+		me.page = 9999;
+		break;
+	    case 'g':
+		a_newitem(&me, ADDGROUP);
+		me.page = 9999;
+		break;
+	    case 'p':
+		a_pasteitem(&me, 1);
+		me.page = 9999;
+		break;
+	    case 'f':
+		a_editsign(&me);
+		me.page = 9999;
+		break;
+	    case Ctrl('P'):
+		a_pastetagpost(&me, -1);
+		returnvalue = DIRCHANGED;
+		me.page = 9999;
+		break;
+	    case Ctrl('A'):
+		a_pastetagpost(&me, 1);
+		returnvalue = DIRCHANGED;
+		me.page = 9999;
+		break;
+	    case 'a':
+		a_appenditem(&me, 1);
+		me.page = 9999;
+		break;
+	    default:
+		me.page = page0;
+		break;
+	    }
+
+	    if (me.num)
+		switch (ch) {
+		case 'm':
+		    a_moveitem(&me);
+		    me.page = 9999;
+		    break;
+
+		case 'D':
+		    /* Ptt me.page = -1; */
+		    a_delrange(&me);
+		    me.page = 9999;
+		    break;
+		case 'd':
+		    a_delete(&me);
+		    me.page = 9999;
+		    break;
+		case 'H':
+		    a_hideitem(&me);
+		    me.page = 9999;
+		    break;
+		case 'T':
+		    a_newtitle(&me);
+		    me.page = 9999;
+		    break;
+		}
+	}
+	if (me.level == SYSOP) {
+	    switch (ch) {
+	    case 'l':
+		a_newitem(&me, ADDLINK);
+		me.page = 9999;
+		break;
+	    case 'N':
+		a_showname(&me);
+		me.page = 9999;
+		break;
+	    }
+	}
+    }
+    free(me.header);
+    return returnvalue;
+}
+
+static char    *mytitle = BBSNAME "佈告欄";
+
+int
+Announce()
+{
+    setutmpmode(ANNOUNCE);
+    a_menu(mytitle, "man",
+	   ((HAS_PERM(PERM_SYSOP) || HAS_PERM(PERM_ANNOUNCE)) ? SYSOP :
+	    NOBODY));
+    return 0;
+}
+
+#ifdef BLOG
+#include <mysql/mysql.h>
+void BlogMain(int num)
+{
+    int     oldmode = currutmp->mode;
+    char    genbuf[128], exit = 0;
+
+    //setutmpmode(BLOGGING); /* will crash someone using old program  */
+    sprintf(genbuf, "%s的部落格", currboard);
+    showtitle("部落格", genbuf);
+    while( !exit ){
+	move(1, 0);
+	prints("請選擇您要執行的重作:\n"
+	       "0.回到上一層\n"
+	       "1.製作部落格樣板格式\n"
+	       "  使用新的 config 目錄下樣板資料\n"
+	       "  通常在第一次使用部落格或樣板更新的時候使用\n"
+	       "\n"
+	       "2.重新製作部落格\n"
+	       "  只在部落格資料整個亂掉的時候才使用\n"
+	       "\n"
+	       "3.將本文加入部落格\n"
+	       "  將游標所在位置的文章加入部落格\n"
+	       "\n"
+	       "4.刪除迴響\n");
+	switch( getans("請選擇(0-3)？[0]") ){
+	case '1':
+	    snprintf(genbuf, sizeof(genbuf),
+		     "bin/builddb.pl -c %s", currboard);
+	    system(genbuf);
+	    break;
+	case '2':
+	    snprintf(genbuf, sizeof(genbuf),
+		     "bin/builddb.pl -a %s", currboard);
+	    vmsg(genbuf);
+	    system(genbuf);
+	    break;
+	case '3':
+	    snprintf(genbuf, sizeof(genbuf),
+		     "bin/builddb.pl -f -n %d %s", num, currboard);
+	    system(genbuf);
+	    break;
+	case '4':{
+	    char    hash[35];
+	    getdata(16, 0, "請輸入該篇的雜湊值: ",
+		    hash, sizeof(hash), DOECHO);
+	    if( hash[0] != 0 && 
+		getans("請確定刪除(Y/N)?[N] ") == 'y' ){
+		MYSQL   mysql;
+		char    cmd[256];
+		
+		sprintf(cmd, "delete from comment where "
+			"hash='%s'&&brdname='%s'", hash, currboard);
+#ifdef DEBUG
+		vmsg(cmd);
+#endif
+		if( !(!mysql_init(&mysql) ||
+		      !mysql_real_connect(&mysql, BLOGDB_HOST, BLOGDB_USER,
+					  BLOGDB_PASSWD, BLOGDB_DB, 
+					  BLOGDB_PORT, BLOGDB_SOCK, 0) ||
+		      mysql_query(&mysql, cmd)) )
+		    vmsg("資料刪除完成");
+		else
+		    vmsg(
+#ifdef DEBUG
+			 mysql_error(&mysql)
+#else
+			 "database internal error"
+#endif
+			 );
+		mysql_close(&mysql);
+	    }
+	}
+	    break;
+	default:
+	    exit = 1;
+	    break;
+	}
+	if( !exit )
+	    vmsg("部落格完成");
+    }
+    currutmp->mode = oldmode;
+    pressanykey();
+}
+#endif
diff --git a/pttbbs/mbbsd/args.c b/pttbbs/mbbsd/args.c
new file mode 100644
index 00000000..32156517
--- /dev/null
+++ b/pttbbs/mbbsd/args.c
@@ -0,0 +1,63 @@
+/* $Id$ */
+#include "bbs.h"
+#ifdef HAVE_SETPROCTITLE
+
+void
+initsetproctitle(int argc, char **argv, char **envp)
+{
+}
+
+#else
+
+
+char          **Argv = NULL;	/* pointer to argument vector */
+char           *LastArgv = NULL;/* end of argv */
+extern char   **environ;
+
+void
+initsetproctitle(int argc, char **argv, char **envp)
+{
+    register int    i;
+
+    /*
+     * Move the environment so setproctitle can use the space at the top of
+     * memory.
+     */
+    for (i = 0; envp[i]; i++);
+    environ = malloc(sizeof(char *) * (i + 1));
+    for (i = 0; envp[i]; i++)
+	environ[i] = strdup(envp[i]);
+    environ[i] = NULL;
+
+    /* Save start and extent of argv for setproctitle. */
+    Argv = argv;
+    if (i > 0)
+	LastArgv = envp[i - 1] + strlen(envp[i - 1]);
+    else
+	LastArgv = argv[argc - 1] + strlen(argv[argc - 1]);
+}
+
+static void
+do_setproctitle(const char *cmdline)
+{
+    int             len;
+
+    len = strlen(cmdline) + 1; // +1 for '\0'
+    if(len > LastArgv - Argv[0] - 2) // 2 ??
+        len = LastArgv - Argv[0] - 2;
+    memset(Argv[0], 0, LastArgv-Argv[0]);
+    strlcpy(Argv[0], cmdline, len);
+    Argv[1] = NULL;
+}
+
+void
+setproctitle(const char *format,...)
+{
+    char            buf[256];
+    va_list         args;
+    va_start(args, format);
+    vsnprintf(buf, sizeof(buf), format, args);
+    do_setproctitle(buf);
+    va_end(args);
+}
+#endif
diff --git a/pttbbs/mbbsd/bbcall.c b/pttbbs/mbbsd/bbcall.c
new file mode 100644
index 00000000..12d3ec06
--- /dev/null
+++ b/pttbbs/mbbsd/bbcall.c
@@ -0,0 +1,274 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define SERVER_0941     "www.chips.com.tw"
+#define SERVER_0943     "www.pager.com.tw"
+#define SERVER_0948     "www.fitel.net.tw"
+#define SERVER_0947     "www.hoyard.com.tw"
+#define SERVER_0945     "203.73.181.254"
+
+#define CGI_0948        "/cgi-bin/Webpage.dll"
+#define CGI_0941        "/cgi-bin/paging1.pl"
+#define CGI_0947        "/scripts/fp_page1.dll"
+#define CGI_0945        "/Scripts/fiss/PageForm.exe"
+#define CGI_0943        "/tpn/tpnasp/dowebcall.asp"
+
+#define CGI_RAILWAY     "http://www.railway.gov.tw/cgi-bin/timetk.cgi"
+
+#define REFER_0943      "http://www.pager.com.tw/tpn/webcall/webcall.asp"
+#define REFER_0948      "http://www.fitel.net.tw/html/svc03.htm"
+#define REFER_0941      "http://www.chips.com.tw:9100/WEB2P/page_1.htm"
+#define REFER_0947      "http://web1.hoyard.com.tw/freeway/freewayi.html"
+#define REFER_0945      "http://203.73.181.254/call.HTM"
+
+static void
+pager_msg_encode(char *field, char *buf)
+{
+    char           *cc = field;
+    unsigned char  *p;
+
+    for (p = (unsigned char *)buf; *p; p++) {
+	if ((*p >= '0' && *p <= '9') ||
+	    (*p >= 'A' && *p <= 'Z') ||
+	    (*p >= 'a' && *p <= 'z') ||
+	    *p == ' ')
+	    *cc++ = *p == ' ' ? '+' : (char)*p;
+	else {
+	    sprintf(cc, "%%%02X", (int)*p);
+	    cc += 3;
+	}
+    }
+    *cc = 0;
+}
+
+static void
+Gettime(int flag, int *Year, int *Month, int *Day, int *Hour,
+	int *Minute)
+{
+    char            ans[5];
+
+    do {
+	getdata(10, 0, "年[20-]:", ans, 3, LCECHO);
+	*Year = atoi(ans);
+    } while (*Year < 00 || *Year > 02);
+    do {
+	getdata(10, 15, "月[1-12]:", ans, 3, LCECHO);
+    } while (!IsSNum(ans) || (*Month = atoi(ans)) > 12 || *Month < 1);
+    do {
+	getdata(10, 30, "日[1-31]:", ans, 3, LCECHO);
+    } while (!IsSNum(ans) || (*Day = atoi(ans)) > 31 || *Day < 1);
+    do {
+	getdata(10, 45, "時[0-23]:", ans, 3, LCECHO);
+    } while (!IsSNum(ans) || (*Hour = atoi(ans)) > 23 || *Hour < 0);
+    do {
+	getdata(10, 60, "分[0-59]:", ans, 3, LCECHO);
+    } while (!IsSNum(ans) || (*Minute = atoi(ans)) > 59 || *Minute < 0);
+    if (flag == 1)
+	*Year -= 11;
+}
+
+#define hpressanykey(a) {move(22, 0); prints(a); pressanykey();}
+
+static int
+Connect(char *s, char *server)
+{
+    FILE           *fp = fopen(BBSHOME "/log/bbcall.log", "a");
+    int             sockfd;
+    char            result[2048];
+    struct sockaddr_in serv_addr;
+    struct hostent *hp;
+
+    sockfd = socket(AF_INET, SOCK_STREAM, 0);
+    if (sockfd < 0)
+	return 0;
+
+    memset((char *)&serv_addr, 0, sizeof(serv_addr));
+    serv_addr.sin_family = AF_INET;
+
+    if ((hp = gethostbyname(server)) == NULL)
+	return 0;
+
+    memcpy(&serv_addr.sin_addr, hp->h_addr, hp->h_length);
+
+    if (!strcmp(server, SERVER_0941))
+	serv_addr.sin_port = htons(9100);
+    else
+	serv_addr.sin_port = htons(80);
+
+    if (connect(sockfd, (struct sockaddr *) & serv_addr, sizeof serv_addr)) {
+	hpressanykey("無法與伺服器取得連結，傳呼失敗");
+	return 0;
+    } else {
+	mprints(20, 0, "\033[1;33m伺服器已經連接上，請稍候"
+		".....................\033[m");
+	refresh();
+    }
+
+    write(sockfd, s, strlen(s));
+    shutdown(sockfd, 1);
+
+    while (read(sockfd, result, sizeof(result)) > 0) {
+	fprintf(fp, "%s\n", result);
+	fflush(fp);
+	if (strstr(result, "正確") ||
+	    strstr(result, "等待") ||
+	    strstr(result, "再度") ||
+	    strstr(result, "完 成 回 應") ||
+	    strstr(result, "預約中") ||
+	    strstr(result, "傳送中")) {
+	    close(sockfd);
+	    hpressanykey("順利送出傳呼");
+	    return 0;
+	}
+	memset(result, 0, sizeof(result));
+    }
+    fclose(fp);
+    close(sockfd);
+    hpressanykey("無法順利送出傳呼");
+    return 0;
+}
+
+#define PARA \
+"Connection: Keep-Alive\r\n"\
+"User-Agent: Lynx/2.6  libwww-FM/2.14\r\n"\
+"Content-type: application/x-www-form-urlencoded\r\n"\
+"Accept: text/html, text/plain, application/x-wais-source, "\
+"application/html, */*;q=0.001\r\n"\
+"Accept-Encoding: gzip\r\n"\
+"Accept-Language: en\r\n"\
+"Accept-Charset: iso-8859-1,*,utf-8\r\n"
+
+static void halpha0943(char* CoId) {
+    char tmpbuf[64],ans[2];
+    char ID[8];
+    char Msg[64], atrn[512], sendform[1024];
+    int Year = 99, Month = 1, Day = 15, Hour = 13, Minute = 8;
+
+    snprintf(tmpbuf, sizeof(tmpbuf),
+	     "\033[1;37m請輸入您要傳呼的號碼\033[m : %s-", CoId);
+    if(!getdata(7,0, tmpbuf, ID, sizeof(ID), LCECHO) ||
+       !getdata(8,0, "\033[1;37m請輸入傳呼訊息\033[m：", tmpbuf, 63, LCECHO)) {
+        hpressanykey("放棄傳呼");
+        return;
+    }
+    pager_msg_encode(Msg,tmpbuf);
+    getdata(9, 0, "\033[1;37m如果你要馬上送請按 '1' "
+            "如果要定時送請按 '2': \033[m", ans, sizeof(ans), LCECHO);
+
+    if(ans[0] != '1')
+        Gettime(0, &Year, &Month, &Day, &Hour, &Minute);
+
+    snprintf(atrn, sizeof(atrn),
+	     "CoId=%s&ID=%s&Year=19%02d&Month=%02d&Day=%02d"
+	     "&Hour=%02d&Minute=%02d&Msg=%s",
+	     CoId, ID,Year,Month,Day,Hour,Minute,Msg);
+    snprintf(sendform, sizeof(sendform), "POST %s HTTP/1.0\nReferer: "
+            "%s\n%sContent-length:%d\n\n%s",
+            CGI_0943, REFER_0943, PARA, strlen(atrn), atrn);
+    Connect(sendform, SERVER_0943);
+    return ;
+}
+
+static void hcall0941() {
+    char ans[2];
+    char PAGER_NO[8], TRAN_MSG[18], TIME[8];
+    char trn[512], sendform[512];
+    int  year = 98, month = 12, day = 4, hour = 13, min = 8;
+
+    if(!getdata(7, 0, "\033[1;37 請您輸入您要傳呼的號碼 : 0941- \033[m",
+                PAGER_NO, sizeof(PAGER_NO), LCECHO)  ||
+       !getdata(8, 0, "\033[1;37m請輸入傳呼訊息\033[m：", trn, 17, LCECHO)) {
+        hpressanykey("放棄傳呼");
+        return;
+    }
+    pager_msg_encode(TRAN_MSG,trn);
+    getdata(9,0, "\033[1;37m如果你要馬上送請按 '1' "
+            "如果要定時送請按 '2': \033[m", ans, sizeof(ans), LCECHO);
+    if(ans[0] != '1') {
+        strlcpy(TIME, "DELAY", sizeof(TIME));
+        Gettime(0, &year, &month, &day, &hour, &min);
+    } else
+        strlcpy(TIME, "NOW", sizeof(TIME));
+    snprintf(trn, sizeof(trn),
+	     "PAGER_NO=%s&TRAN_MSG=%s&MSG_TYPE=NUMERIC&%s=1"
+	     "&year=19%02d&month=%02d&day=%02d&hour=%02d&min=%02d",
+	     PAGER_NO, TRAN_MSG, TIME,year,month,day,hour,min);
+
+    snprintf(sendform, sizeof(sendform),
+	     "POST %s HTTP/1.0\nReferer: %s\n%s"
+	     "Content-length:%d\n\n%s",
+	     CGI_0941, REFER_0941, PARA, strlen(trn), trn);
+
+    Connect(sendform, SERVER_0941);
+    return ;
+}
+
+static void hcall0948() {
+    int  year = 87, month = 12, day = 19, hour = 12, min = 0, ya = 0;
+    char svc_no[8], message[64], trn[256], sendform[512], ans[3];
+
+    move(7,0);
+    clrtoeol();
+
+    if(!getdata(7, 0, "\033[1;37m請輸入您要傳呼的號碼\033[m：0948-",
+                svc_no, sizeof(svc_no), LCECHO) ||
+       !getdata(8, 0, "\033[1;37m請輸入傳呼訊息\033[m：", trn, 61, LCECHO)) {
+        hpressanykey("放棄傳呼");
+        return;
+    }
+    pager_msg_encode(message, trn);
+    getdata(9, 0, "\033[1;37m如果你要馬上送請按 '1' "
+            "如果要定時送請按 '2'\033[m: ", ans, sizeof(ans), LCECHO);
+    if(ans[0] != '1') {
+        Gettime(1, &year, &month, &day, &hour, &min);
+        ya = 1;
+    }
+
+    snprintf(trn, sizeof(trn),
+	     "MfcISAPICommand=SinglePage&svc_no=%s&reminder=%d"
+	     "&year=%02d&month=%02d&day=%02d&hour=%02d&min=%02d&message=%s",
+            svc_no, ya, year, month, day, hour, min, message);
+
+    snprintf(sendform, sizeof(sendform),
+	     "GET %s?%s Http/1.0\n\n", CGI_0948, trn);
+
+    Connect(sendform, SERVER_0948);
+    return;
+}
+
+int main_bbcall() {
+    char ch[2];
+
+    clear();
+    move(0, 30);
+    prints("\033[1;37;45m 逼逼摳機 \033[m");
+    move(3, 0);
+    prints("\033[1;31m     ┌────────────────────"
+           "─────────┐\033[m\n");
+    prints("\033[1;33m        (1)0941        (2)0943        (3)0946  "
+           "       (4)0948     \033[m\n");
+    prints("\033[1;31m     └────────────────────"
+           "─────────┘\033[m\n");
+    getdata(7, 8, "\033[1;37m你的選擇? [1-4]\033[m", ch, sizeof(ch), LCECHO);
+
+    switch(ch[0]) {
+    case '1':
+        hcall0941();
+        break;
+    case '2':
+        halpha0943("0943");
+        break;
+    case '3':
+        halpha0943("0946");
+        break;
+    case '4':
+        hcall0948();
+        break;
+    }
+    return 0;
+}
+
+
+
+
+
diff --git a/pttbbs/mbbsd/bbs.c b/pttbbs/mbbsd/bbs.c
new file mode 100644
index 00000000..50a5eee3
--- /dev/null
+++ b/pttbbs/mbbsd/bbs.c
@@ -0,0 +1,2152 @@
+/* $Id$ */
+#include "bbs.h"
+
+static int recommend(int ent, fileheader_t * fhdr, char *direct);
+
+static void
+mail_by_link(char *owner, char *title, char *path)
+{
+    char            genbuf[200];
+    fileheader_t    mymail;
+
+    snprintf(genbuf, sizeof(genbuf),
+	     BBSHOME "/home/%c/%s", cuser.userid[0], cuser.userid);
+    stampfile(genbuf, &mymail);
+    strlcpy(mymail.owner, owner, sizeof(mymail.owner));
+    snprintf(mymail.title, sizeof(mymail.title), title);
+    unlink(genbuf);
+    Link(path, genbuf);
+    snprintf(genbuf, sizeof(genbuf),
+	     BBSHOME "/home/%c/%s/.DIR", cuser.userid[0], cuser.userid);
+
+    append_record(genbuf, &mymail, sizeof(mymail));
+}
+
+
+void
+anticrosspost()
+{
+    char            buf[200];
+
+    snprintf(buf, sizeof(buf),
+	    "\033[1;33;46m%s \033[37;45mcross post 文章 \033[37m %s\033[m",
+	    cuser.userid, ctime(&now));
+    log_file("etc/illegal_money", buf);
+
+    post_violatelaw(cuser.userid, "Ptt系統警察", "Cross-post", "罰單處份");
+    cuser.userlevel |= PERM_VIOLATELAW;
+    cuser.vl_count++;
+    mail_by_link("Ptt警察部隊", "Cross-Post罰單",
+		 BBSHOME "/etc/crosspost.txt");
+    passwd_update(usernum, &cuser);
+    exit(0);
+}
+
+/* Heat CharlieL */
+int
+save_violatelaw()
+{
+    char            buf[128], ok[3];
+
+    setutmpmode(VIOLATELAW);
+    clear();
+    stand_title("繳罰單中心");
+
+    if (!(cuser.userlevel & PERM_VIOLATELAW)) {
+	mprints(22, 0, "\033[1;31m你無聊啊? 你又沒有被開罰單~~\033[m");
+	pressanykey();
+	return 0;
+    }
+    reload_money();
+    if (cuser.money < (int)cuser.vl_count * 1000) {
+	snprintf(buf, sizeof(buf), "\033[1;31m這是你第 %d 次違反本站法規"
+		 "必須繳出 %d $Ptt ,你只有 %d 元, 錢不夠啦!!\033[m",
+		 (int)cuser.vl_count, (int)cuser.vl_count * 1000, cuser.money);
+	mprints(22, 0, buf);
+	pressanykey();
+	return 0;
+    }
+    move(5, 0);
+    prints("\033[1;37m你知道嗎? 因為你的違法 "
+	   "已經造成很多人的不便\033[m\n");
+    prints("\033[1;37m你是否確定以後不會再犯了？\033[m\n");
+
+    if (!getdata(10, 0, "確定嗎？[y/n]:", ok, sizeof(ok), LCECHO) ||
+	ok[0] == 'n' || ok[0] == 'N') {
+	mprints(22, 0, "\033[1;31m等你想通了再來吧!! "
+		"我相信你不會知錯不改的~~~\033[m");
+	pressanykey();
+	return 0;
+    }
+    snprintf(buf, sizeof(buf), "這是你第 %d 次違法 必須繳出 %d $Ptt",
+	     cuser.vl_count, cuser.vl_count * 1000);
+    mprints(11, 0, buf);
+
+    if (!getdata(10, 0, "要付錢[y/n]:", ok, sizeof(ok), LCECHO) ||
+	ok[0] == 'N' || ok[0] == 'n') {
+
+	mprints(22, 0, "\033[1;31m 嗯 存夠錢 再來吧!!!\033[m");
+	pressanykey();
+	return 0;
+    }
+    demoney(-1000 * cuser.vl_count);
+    cuser.userlevel &= (~PERM_VIOLATELAW);
+    passwd_update(usernum, &cuser);
+    return 0;
+}
+
+/*
+ * void make_blist() { CreateNameList(); apply_boards(g_board_names); }
+ */
+
+static time_t   board_note_time;
+static char    *brd_title;
+
+void
+set_board()
+{
+    boardheader_t  *bp;
+
+    bp = getbcache(currbid);
+    if( !Ben_Perm(bp) ){
+	vmsg("access control violation, exit");
+	u_exit("access control violation!");
+    }
+    board_note_time = bp->bupdate;
+    brd_title = bp->BM;
+    if (brd_title[0] <= ' ')
+	brd_title = "徵求中";
+    snprintf(currBM, sizeof(currBM), "板主：%s", brd_title);
+    brd_title = ((bp->bvote != 2 && bp->bvote) ? "本看板進行投票中" :
+		 bp->title + 7);
+    currmode = (currmode & (MODE_DIRTY | MODE_MENU)) | MODE_STARTED;
+
+    if (HAS_PERM(PERM_ALLBOARD) || is_BM_cache(currbid))
+	currmode = currmode | MODE_BOARD | MODE_POST;
+    else if (haspostperm(currboard))
+	currmode |= MODE_POST;
+}
+
+static void
+readtitle()
+{
+    showtitle(currBM, brd_title);
+    outs("[←]離開 [→]閱\讀 [^P]發表文章 [b]備忘錄 [d]刪除 [z]精華區 "
+      "[TAB]文摘 [h]elp\n\033[7m  編號   日 期  作  者       文  章  標  題"
+	 "                                   \033[m");
+}
+
+static void
+readdoent(int num, fileheader_t * ent)
+{
+    int             type;
+    char           *mark, *title, color, special = 0, isonline = 0;
+    userinfo_t     *uentp;
+    if (ent->recommend > 9 || ent->recommend < 0)
+	ent->recommend = 0;
+//Ptt:暫時
+	type = brc_unread(ent->filename, brc_num, brc_list) ? '+' : ' ';
+
+    if ((currmode & MODE_BOARD) && (ent->filemode & FILE_DIGEST))
+	type = (type == ' ') ? '*' : '#';
+    else if (currmode & MODE_BOARD || HAS_PERM(PERM_LOGINOK)) {
+	if (ent->filemode & FILE_MARKED)
+	    type = (type == ' ') ? 'm' : 'M';
+
+	else if (TagNum && !Tagger(atoi(ent->filename + 2), 0, TAG_NIN))
+	    type = 'D';
+
+	else if (ent->filemode & FILE_SOLVED)
+	    type = 's';
+    }
+    title = subject(mark = ent->title);
+    if (title == mark)
+	color = '1', mark = "□";
+    else
+	color = '3', mark = "R:";
+
+    if (title[47])
+	strlcpy(title + 44, " …", sizeof(title) - 44);	/* 把多餘的 string 砍掉 */
+
+    if (!strncmp(title, "[公告]", 6))
+	special = 1;
+#if 1
+    if (!strchr(ent->owner, '.') && !SHM->GV2.e.noonlineuser &&
+	(uentp = search_ulist_userid(ent->owner)) && isvisible(currutmp, uentp))
+	isonline = 1;
+#else
+    if (!strchr(ent->owner, '.') && (uid = searchuser(ent->owner)) &&
+	!SHM->GV2.e.noonlineuser &&
+	(uentp = search_ulist(uid)) && isvisible(currutmp, uentp))
+	isonline = 1;
+#endif
+
+    prints(
+#ifdef COLORDATE
+	   "%6d %c\033[1;32m%c\033[%dm%-6s\033[m\033[%dm%-13.12s",
+#else
+	   "%6d %c\033[1;32m%c\033[m%-6s\033[%dm%-13.12s",
+#endif
+	   num, type, ent->recommend ? ent->recommend + '0' : ' ',
+#ifdef COLORDATE
+	   (ent->date[3] + ent->date[4]) % 7 + 31,
+#endif
+	   ent->date, isonline, ent->owner);
+	   
+    if (strncmp(currtitle, title, TTLEN))
+	prints("\033[m%s \033[1m%.*s\033[m%s\n",
+	       mark, special ? 6 : 0, title, special ? title + 6 : title);
+    else
+	prints("\033[1;3%cm%s %s\033[m\n",
+	       color, mark, title);
+}
+
+int
+cmpfilename(fileheader_t * fhdr)
+{
+    return (!strcmp(fhdr->filename, currfile));
+}
+
+int
+cmpfmode(fileheader_t * fhdr)
+{
+    return (fhdr->filemode & currfmode);
+}
+
+int
+cmpfowner(fileheader_t * fhdr)
+{
+    return !strcasecmp(fhdr->owner, currowner);
+}
+
+int
+whereami(int ent, fileheader_t * fhdr, char *direct)
+{
+    boardheader_t  *bh, *p[32], *root;
+    int             i, j;
+
+    if (!currutmp->brc_id)
+	return 0;
+
+    move(1, 0);
+    clrtobot();
+    bh = getbcache(currutmp->brc_id);
+    root = getbcache(1);
+    p[0] = bh;
+    for (i = 0; i < 31 && p[i]->parent != root && p[i]->parent; i++)
+	p[i + 1] = p[i]->parent;
+    j = i;
+    prints("我在哪?\n%-40.40s %.13s\n", p[j]->title + 7, p[j]->BM);
+    for (j--; j >= 0; j--)
+	prints("%*s %-13.13s %-37.37s %.13s\n", (i - j) * 2, "",
+	       p[j]->brdname, p[j]->title,
+	       p[j]->BM);
+
+    pressanykey();
+    return FULLUPDATE;
+}
+
+static int
+substitute_check(fileheader_t * fhdr)
+{
+    fileheader_t    hdr;
+    char            genbuf[100];
+    int             num = 0;
+
+    /* rocker.011018: 串接模式用reference增進效率 */
+    if ((currmode & MODE_SELECT) && (fhdr->money & FHR_REFERENCE)) {
+	num = fhdr->money & ~FHR_REFERENCE;
+	setbdir(genbuf, currboard);
+	get_record(genbuf, &hdr, sizeof(hdr), num);
+
+	/* 再這裡要check一下原來的dir裡面是不是有被人動過... */
+	if (strcmp(hdr.filename, fhdr->filename))
+	    num = getindex(genbuf, fhdr->filename, sizeof(fileheader_t));
+
+	substitute_record(genbuf, fhdr, sizeof(*fhdr), num);
+    }
+    return num;
+}
+static int
+do_select(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            bname[20];
+    char            bpath[60];
+    boardheader_t  *bh;
+    struct stat     st;
+    int             i;
+
+    setutmpmode(SELECT);
+    move(0, 0);
+    clrtoeol();
+    generalnamecomplete(MSG_SELECT_BOARD, bname, sizeof(bname),
+			SHM->Bnumber,
+			completeboard_compar,
+			completeboard_permission,
+			completeboard_getname);
+    if (bname[0] == '\0' || !(i = getbnum(bname)))
+	return FULLUPDATE;
+    bh = getbcache(i);
+    if (!Ben_Perm(bh))
+	return FULLUPDATE;
+    strlcpy(bname, bh->brdname, sizeof(bname));
+    currbid = i;
+
+    setbpath(bpath, bname);
+    if ((*bname == '\0') || (stat(bpath, &st) == -1)) {
+	move(2, 0);
+	clrtoeol();
+	outs(err_bid);
+	return FULLUPDATE;
+    }
+    setutmpbid(currbid);
+
+    brc_initial(bname);
+    set_board();
+    setbdir(direct, currboard);
+
+    move(1, 0);
+    clrtoeol();
+    return NEWDIRECT;
+}
+
+/* ----------------------------------------------------- */
+/* 改良 innbbsd 轉出信件、連線砍信之處理程序             */
+/* ----------------------------------------------------- */
+void
+outgo_post(fileheader_t * fh, char *board)
+{
+    FILE           *foo;
+
+    if ((foo = fopen("innd/out.bntp", "a"))) {
+	fprintf(foo, "%s\t%s\t%s\t%s\t%s\n", board,
+		fh->filename, cuser.userid, cuser.username, fh->title);
+	fclose(foo);
+    }
+}
+
+static void
+cancelpost(fileheader_t * fh, int by_BM)
+{
+    FILE           *fin, *fout;
+    char           *ptr, *brd;
+    fileheader_t    postfile;
+    char            genbuf[200];
+    char            nick[STRLEN], fn1[STRLEN], fn2[STRLEN];
+
+    setbfile(fn1, currboard, fh->filename);
+    if ((fin = fopen(fn1, "r"))) {
+	brd = by_BM ? "deleted" : "junk";
+
+	setbpath(fn2, brd);
+	stampfile(fn2, &postfile);
+	memcpy(postfile.owner, fh->owner, IDLEN + TTLEN + 10);
+
+	nick[0] = '\0';
+	while (fgets(genbuf, sizeof(genbuf), fin)) {
+	    if (!strncmp(genbuf, str_author1, LEN_AUTHOR1) ||
+		!strncmp(genbuf, str_author2, LEN_AUTHOR2)) {
+		if ((ptr = strrchr(genbuf, ')')))
+		    *ptr = '\0';
+		if ((ptr = (char *)strchr(genbuf, '(')))
+		    strlcpy(nick, ptr + 1, sizeof(nick));
+		break;
+	    }
+	}
+
+	if ((fout = fopen("innd/cancel.bntp", "a"))) {
+	    fprintf(fout, "%s\t%s\t%s\t%s\t%s\n", currboard, fh->filename,
+		    cuser.userid, nick, fh->title);
+	    fclose(fout);
+	}
+	fclose(fin);
+	Rename(fn1, fn2);
+	setbdir(genbuf, brd);
+	setbtotal(getbnum(brd));
+	append_record(genbuf, &postfile, sizeof(postfile));
+    }
+}
+
+/* ----------------------------------------------------- */
+/* 發表、回應、編輯、轉錄文章                            */
+/* ----------------------------------------------------- */
+void
+do_reply_title(int row, char *title)
+{
+    char            genbuf[200];
+    char            genbuf2[4];
+
+    if (strncasecmp(title, str_reply, 4))
+	snprintf(save_title, sizeof(save_title), "Re: %s", title);
+    else
+	strlcpy(save_title, title, sizeof(save_title));
+    save_title[TTLEN - 1] = '\0';
+    snprintf(genbuf, sizeof(genbuf), "採用原標題《%.60s》嗎?[Y] ", save_title);
+    getdata(row, 0, genbuf, genbuf2, 4, LCECHO);
+    if (genbuf2[0] == 'n' || genbuf2[0] == 'N')
+	getdata(++row, 0, "標題：", save_title, TTLEN, DOECHO);
+}
+
+static void
+do_unanonymous_post(char *fpath)
+{
+    fileheader_t    mhdr;
+    char            title[128];
+    char            genbuf[200];
+
+    setbpath(genbuf, "UnAnonymous");
+    if (dashd(genbuf)) {
+	stampfile(genbuf, &mhdr);
+	unlink(genbuf);
+	Link(fpath, genbuf);
+	strlcpy(mhdr.owner, cuser.userid, sizeof(mhdr.owner));
+	strlcpy(mhdr.title, save_title, sizeof(mhdr.title));
+	mhdr.filemode = 0;
+	setbdir(title, "UnAnonymous");
+	append_record(title, &mhdr, sizeof(mhdr));
+    }
+}
+
+#ifdef NO_WATER_POST
+static time_t   last_post_time = 0;
+static time_t   water_counts = 0;
+#endif
+
+void
+do_allpost(fileheader_t *postfile, const char *fpath, const char *owner)
+{
+    char            genbuf[200];
+
+    setbpath(genbuf, ALLPOST);
+    stampfile(genbuf, postfile);
+    unlink(genbuf);
+
+    /* jochang: boards may spread across many disk */
+    /*
+     * link doesn't work across device, Link doesn't work if we have
+     * same-time-across-device posts, we try symlink now
+     */
+    {
+	/* we need absolute path for symlink */
+	char            abspath[256] = BBSHOME "/";
+	strcat(abspath, fpath);
+	symlink(abspath, genbuf);
+    }
+    strlcpy(postfile->owner, owner, sizeof(postfile->owner));
+    strlcpy(postfile->title, save_title, sizeof(postfile->title));
+    postfile->filemode = FILE_LOCAL;
+    setbdir(genbuf, ALLPOST);
+    if (append_record(genbuf, postfile, sizeof(fileheader_t)) != -1) {
+	setbtotal(getbnum(ALLPOST));
+    }
+}
+
+static int
+do_general()
+{
+    fileheader_t    postfile;
+    char            fpath[80], buf[80];
+    int             aborted, defanony, ifuseanony;
+    char            genbuf[200], *owner, *ctype[] = {"問題", "建議", "討論", "心得", "閒聊", "公告", "情報"};
+    boardheader_t  *bp;
+    int             islocal;
+
+    ifuseanony = 0;
+    bp = getbcache(currbid);
+
+    clear();
+    if (!(currmode & MODE_POST)
+#ifdef FOREIGN_REG
+	    // 不是外籍使用者在 PttForeign 板
+	    && !((cuser.uflag2 & FOREIGN) && strcmp(bp->brdname, "PttForeign"))
+#endif
+	) {
+	move(5, 10);
+	outs("對不起，您目前無法在此發表文章！");
+	pressanykey();
+	return FULLUPDATE;
+    }
+#ifdef NO_WATER_POST
+#ifndef DEBUG /* why we need this in DEBUG mode? */
+    /* 三分鐘內最多發表五篇文章 */
+    if (currutmp->lastact - last_post_time < 60 * 3) {
+	if (water_counts >= 5) {
+	    move(5, 10);
+	    outs("對不起，您的文章太水囉，待會再post吧！小秘訣:可用'X'推薦文章");
+	    pressanykey();
+	    return FULLUPDATE;
+	}
+    } else {
+	last_post_time = currutmp->lastact;
+	water_counts = 0;
+    }
+#endif
+#endif
+
+    setbfile(genbuf, currboard, FN_POST_NOTE);
+
+    if (more(genbuf, NA) == -1)
+	more("etc/" FN_POST_NOTE, NA);
+
+    move(19, 0);
+    prints("發表文章於【\033[33m %s\033[m 】 \033[32m%s\033[m 看板\n\n",
+	   currboard, bp->title + 7);
+
+    if (quote_file[0])
+	do_reply_title(20, currtitle);
+    else {
+	getdata(21, 0,
+	"種類：1.問題 2.建議 3.討論 4.心得 5.閒聊 6.公告 7.情報 (1-7或不選)",
+		save_title, 3, LCECHO);
+	local_article = save_title[0] - '1';
+	if (local_article >= 0 && local_article <= 6)
+	    snprintf(save_title, sizeof(save_title),
+		     "[%s] ", ctype[local_article]);
+	else
+	    save_title[0] = '\0';
+	getdata_buf(22, 0, "標題：", save_title, TTLEN, DOECHO);
+	strip_ansi(save_title, save_title, 0);
+    }
+    if (save_title[0] == '\0')
+	return FULLUPDATE;
+
+    curredit &= ~EDIT_MAIL;
+    curredit &= ~EDIT_ITEM;
+    setutmpmode(POSTING);
+
+    /* 未具備 Internet 權限者，只能在站內發表文章 */
+    if (HAS_PERM(PERM_INTERNET))
+	local_article = 0;
+    else
+	local_article = 1;
+
+    /* build filename */
+    setbpath(fpath, currboard);
+    stampfile(fpath, &postfile);
+
+    aborted = vedit(fpath, YEA, &islocal);
+    if (aborted == -1) {
+	unlink(fpath);
+	pressanykey();
+	return FULLUPDATE;
+    }
+    water_counts++;		/* po成功 */
+
+    /* set owner to Anonymous , for Anonymous board */
+
+#ifdef HAVE_ANONYMOUS
+    /* Ptt and Jaky */
+    defanony = currbrdattr & BRD_DEFAULTANONYMOUS;
+    if ((currbrdattr & BRD_ANONYMOUS) &&
+	((strcmp(real_name, "r") && defanony) || (real_name[0] && !defanony))
+	) {
+	strcat(real_name, ".");
+	owner = real_name;
+	ifuseanony = 1;
+    } else
+	owner = cuser.userid;
+#else
+    owner = cuser.userid;
+#endif
+    /* 錢 */
+    aborted = (aborted > MAX_POST_MONEY * 2) ? MAX_POST_MONEY : aborted / 2;
+    postfile.money = aborted;
+    strlcpy(postfile.owner, owner, sizeof(postfile.owner));
+    strlcpy(postfile.title, save_title, sizeof(postfile.title));
+    if (islocal)		/* local save */
+	postfile.filemode = FILE_LOCAL;
+
+    setbdir(buf, currboard);
+    if (append_record(buf, &postfile, sizeof(postfile)) != -1) {
+	setbtotal(currbid);
+
+	if (currmode & MODE_SELECT)
+	    append_record(currdirect, &postfile, sizeof(postfile));
+	if (!islocal && !(bp->brdattr & BRD_NOTRAN))
+	    outgo_post(&postfile, currboard);
+	brc_addlist(postfile.filename);
+
+	if (!(currbrdattr & BRD_HIDE) &&
+	    (!bp->level || (currbrdattr & BRD_POSTMASK))) {
+	    do_allpost(&postfile, fpath, owner);
+	}
+	outs("順利貼出佈告，");
+
+#ifdef MAX_POST_MONEY
+	aborted = (aborted > MAX_POST_MONEY) ? MAX_POST_MONEY : aborted;
+#endif
+	if (strcmp(currboard, "Test") && !ifuseanony) {
+	    prints("這是您的第 %d 篇文章。 稿酬 %d 銀。",
+		   ++cuser.numposts, aborted);
+	    demoney(aborted);
+	    passwd_update(usernum, &cuser);	/* post 數 */
+	} else
+	    outs("測試信件不列入紀錄，敬請包涵。");
+
+	/* 回應到原作者信箱 */
+
+	if (curredit & EDIT_BOTH) {
+	    char           *str, *msg = "回應至作者信箱";
+
+	    if ((str = strchr(quote_user, '.'))) {
+		if (
+#ifndef USE_BSMTP
+		    bbs_sendmail(fpath, save_title, str + 1)
+#else
+		    bsmtp(fpath, save_title, str + 1, 0)
+#endif
+		    < 0)
+		    msg = "作者無法收信";
+	    } else {
+		sethomepath(genbuf, quote_user);
+		stampfile(genbuf, &postfile);
+		unlink(genbuf);
+		Link(fpath, genbuf);
+
+		strlcpy(postfile.owner, cuser.userid, sizeof(postfile.owner));
+		strlcpy(postfile.title, save_title, sizeof(postfile.title));
+		postfile.filemode = FILE_BOTH;	/* both-reply flag */
+		sethomedir(genbuf, quote_user);
+		if (append_record(genbuf, &postfile, sizeof(postfile)) == -1)
+		    msg = err_uid;
+	    }
+	    outs(msg);
+	    curredit ^= EDIT_BOTH;
+	}
+	if (currbrdattr & BRD_ANONYMOUS)
+	    do_unanonymous_post(fpath);
+    }
+    pressanykey();
+    return FULLUPDATE;
+}
+
+int
+do_post()
+{
+    boardheader_t  *bp;
+    bp = getbcache(currbid);
+    if (bp->brdattr & BRD_VOTEBOARD)
+	return do_voteboard();
+    else if (!(bp->brdattr & BRD_GROUPBOARD))
+	return do_general();
+    touchdircache(currbid);
+    return 0;
+}
+
+static void
+do_generalboardreply(fileheader_t * fhdr)
+{
+    char            genbuf[200];
+    getdata(b_lines - 1, 0,
+	    "▲ 回應至 (F)看板 (M)作者信箱 (B)二者皆是 (Q)取消？[F] ",
+	    genbuf, 3, LCECHO);
+    switch (genbuf[0]) {
+    case 'm':
+	mail_reply(0, fhdr, 0);
+    case 'q':
+	break;
+
+    case 'b':
+	curredit = EDIT_BOTH;
+    default:
+	strlcpy(currtitle, fhdr->title, sizeof(currtitle));
+	strlcpy(quote_user, fhdr->owner, sizeof(quote_user));
+	do_post();
+    }
+    *quote_file = 0;
+}
+
+int
+getindex(char *fpath, char *fname, int size)
+{
+    int             fd, now = 0;
+    fileheader_t    fhdr;
+
+    if ((fd = open(fpath, O_RDONLY, 0)) != -1) {
+	while ((read(fd, &fhdr, size) == size)) {
+	    now++;
+	    if (!strcmp(fhdr.filename, fname)) {
+		close(fd);
+		return now;
+	    }
+	}
+	close(fd);
+    }
+    return 0;
+}
+
+int
+invalid_brdname(char *brd)
+{
+    register char   ch;
+
+    ch = *brd++;
+    if (not_alnum(ch))
+	return 1;
+    while ((ch = *brd++)) {
+	if (not_alnum(ch) && ch != '_' && ch != '-' && ch != '.')
+	    return 1;
+    }
+    return 0;
+}
+
+static int
+b_call_in(int ent, fileheader_t * fhdr, char *direct)
+{
+    userinfo_t     *u = search_ulist(searchuser(fhdr->owner));
+    if (u) {
+	int             fri_stat;
+	fri_stat = friend_stat(currutmp, u);
+	if (isvisible_stat(currutmp, u, fri_stat) && call_in(u, fri_stat))
+	    return FULLUPDATE;
+    }
+    return DONOTHING;
+}
+
+static void
+do_reply(fileheader_t * fhdr)
+{
+    boardheader_t  *bp;
+    bp = getbcache(currbid);
+    if (bp->brdattr & BRD_VOTEBOARD)
+	do_voteboardreply(fhdr);
+    else
+	do_generalboardreply(fhdr);
+}
+
+static int
+reply_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    if (!(currmode & MODE_POST))
+	return DONOTHING;
+
+    setdirpath(quote_file, direct, fhdr->filename);
+    do_reply(fhdr);
+    *quote_file = 0;
+    return FULLUPDATE;
+}
+
+static int
+edit_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    int             num;
+    char            fpath[80], fpath0[80];
+    char            genbuf[200];
+    fileheader_t    postfile;
+    boardheader_t  *bp = getbcache(currbid);
+
+    if (strcmp(bp->brdname, "Security") == 0)
+	return DONOTHING;
+
+    if (!HAS_PERM(PERM_SYSOP) && (bp->brdattr & BRD_VOTEBOARD))
+	return DONOTHING;
+
+    if ((!HAS_PERM(PERM_SYSOP)) &&
+	strcmp(fhdr->owner, cuser.userid))
+	return DONOTHING;
+
+    if( currmode & MODE_SELECT )
+	return DONOTHING;
+
+    setutmpmode(REEDIT);
+    setdirpath(genbuf, direct, fhdr->filename);
+    local_article = fhdr->filemode & FILE_LOCAL;
+    strlcpy(save_title, fhdr->title, sizeof(save_title));
+
+    /* rocker.011018: 這裡是不是該檢查一下修改文章後的money和原有的比較? */
+    if (vedit(genbuf, 0, NULL) != -1) {
+	lock_substitute_record(direct, fhdr, sizeof(*fhdr), ent, LOCK_EX);
+	setbpath(fpath, currboard);
+	stampfile(fpath, &postfile);
+	strlcpy(genbuf, fhdr->filename, strlen(genbuf));
+	setbfile(fpath0, currboard, fhdr->filename);
+
+	for(num = 2; genbuf[num] != NULL; num++){
+	    if(genbuf[num] == '.'){
+		genbuf[num] = 0;
+		break;
+	    }
+	}
+	
+	sprintf(postfile.filename, "%s.A.%3.3X", genbuf, rand() & 0xFFF);
+	setdirpath(fpath, fpath, postfile.filename);
+	unlink(fpath);
+
+	Rename(fpath0, fpath);
+
+	/* rocker.011018: fix 串接模式改文章後文章就不見的bug */
+	if ((currmode & MODE_SELECT) && (fhdr->money & FHR_REFERENCE)) {
+	    fileheader_t    hdr;
+
+	    num = fhdr->money & ~FHR_REFERENCE;
+	    setbdir(fpath0, currboard);
+	    get_record(fpath0, &hdr, sizeof(hdr), num);
+
+	    /* 再這裡要check一下原來的dir裡面是不是有被人動過... */
+	    if (!strcmp(hdr.filename, fhdr->filename)) {
+		strlcpy(hdr.filename, postfile.filename, sizeof(hdr.filename));
+		strlcpy(hdr.title, save_title, sizeof(hdr.title));
+		substitute_record(fpath0, &hdr, sizeof(hdr), num);
+	    }
+	}
+	strlcpy(fhdr->filename, postfile.filename, sizeof(fhdr->filename));
+	strlcpy(fhdr->title, save_title, sizeof(fhdr->title));
+	brc_addlist(postfile.filename);
+	lock_substitute_record(direct, fhdr, sizeof(*fhdr), ent, LOCK_UN);
+	/* rocker.011018: 順便更新一下cache */
+	touchdircache(currbid);
+    }
+
+    if (!(currbrdattr & BRD_HIDE) && (!bp->level || (currbrdattr & BRD_POSTMASK)))
+	do_allpost(&postfile, fpath, cuser.userid);
+    return FULLUPDATE;
+}
+
+#define UPDATE_USEREC   (currmode |= MODE_DIRTY)
+
+static int
+cross_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            xboard[20], fname[80], xfpath[80], xtitle[80], inputbuf[10];
+    fileheader_t    xfile;
+    FILE           *xptr;
+    int             author = 0;
+    char            genbuf[200];
+    char            genbuf2[4];
+    boardheader_t  *bp;
+    move(2, 0);
+    clrtoeol();
+    move(3, 0);
+    clrtoeol();
+    move(1, 0);
+    bp = getbcache(currbid);
+    if (bp && (bp->brdattr & BRD_VOTEBOARD))
+	return FULLUPDATE;
+    generalnamecomplete("轉錄本文章於看板：", xboard, sizeof(xboard),
+			SHM->Bnumber,
+			completeboard_compar,
+			completeboard_permission,
+			completeboard_getname);
+    if (*xboard == '\0' || !haspostperm(xboard))
+	return FULLUPDATE;
+
+    if ((ent = str_checksum(fhdr->title)) != 0 &&
+	ent == postrecord.checksum[0]) {
+	/* 檢查 cross post 次數 */
+	if (postrecord.times++ > MAX_CROSSNUM)
+	    anticrosspost();
+    } else {
+	postrecord.times = 0;
+	postrecord.checksum[0] = ent;
+    }
+
+    ent = 1;
+    if (HAS_PERM(PERM_SYSOP) || !strcmp(fhdr->owner, cuser.userid)) {
+	getdata(2, 0, "(1)原文轉載 (2)舊轉錄格式？[1] ",
+		genbuf, 3, DOECHO);
+	if (genbuf[0] != '2') {
+	    ent = 0;
+	    getdata(2, 0, "保留原作者名稱嗎?[Y] ", inputbuf, 3, DOECHO);
+	    if (inputbuf[0] != 'n' && inputbuf[0] != 'N')
+		author = 1;
+	}
+    }
+    if (ent)
+	snprintf(xtitle, sizeof(xtitle), "[轉錄]%.66s", fhdr->title);
+    else
+	strlcpy(xtitle, fhdr->title, sizeof(xtitle));
+
+    snprintf(genbuf, sizeof(genbuf), "採用原標題《%.60s》嗎?[Y] ", xtitle);
+    getdata(2, 0, genbuf, genbuf2, 4, LCECHO);
+    if (genbuf2[0] == 'n' || genbuf2[0] == 'N') {
+	if (getdata_str(2, 0, "標題：", genbuf, TTLEN, DOECHO, xtitle))
+	    strlcpy(xtitle, genbuf, sizeof(xtitle));
+    }
+    getdata(2, 0, "(S)存檔 (L)站內 (Q)取消？[Q] ", genbuf, 3, LCECHO);
+    if (genbuf[0] == 'l' || genbuf[0] == 's') {
+	int             currmode0 = currmode;
+
+	currmode = 0;
+	setbpath(xfpath, xboard);
+	stampfile(xfpath, &xfile);
+	if (author)
+	    strlcpy(xfile.owner, fhdr->owner, sizeof(xfile.owner));
+	else
+	    strlcpy(xfile.owner, cuser.userid, sizeof(xfile.owner));
+	strlcpy(xfile.title, xtitle, sizeof(xfile.title));
+	if (genbuf[0] == 'l') {
+	    xfile.filemode = FILE_LOCAL;
+	}
+	setbfile(fname, currboard, fhdr->filename);
+	xptr = fopen(xfpath, "w");
+
+	strlcpy(save_title, xfile.title, sizeof(save_title));
+	strlcpy(xfpath, currboard, sizeof(xfpath));
+	strlcpy(currboard, xboard, sizeof(currboard));
+	write_header(xptr);
+	strlcpy(currboard, xfpath, sizeof(currboard));
+
+	fprintf(xptr, "※ [本文轉錄自 %s 看板]\n\n", currboard);
+
+	b_suckinfile(xptr, fname);
+	addsignature(xptr, 0);
+	fclose(xptr);
+	/*
+	 * Cross fs有問題 } else { unlink(xfpath); link(fname, xfpath); }
+	 */
+	setbdir(fname, xboard);
+	append_record(fname, &xfile, sizeof(xfile));
+	bp = getbcache(getbnum(xboard));
+	if (!xfile.filemode && !(bp->brdattr && BRD_NOTRAN))
+	    outgo_post(&xfile, xboard);
+	setbtotal(getbnum(xboard));
+	cuser.numposts++;
+	UPDATE_USEREC;
+	outs("文章轉錄完成");
+	pressanykey();
+	currmode = currmode0;
+    }
+    return FULLUPDATE;
+}
+static int
+read_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            genbuf[200];
+    int             more_result;
+
+    if (fhdr->owner[0] == '-')
+	return DONOTHING;
+
+    setdirpath(genbuf, direct, fhdr->filename);
+
+    if ((more_result = more(genbuf, YEA)) == -1)
+	return DONOTHING;
+
+    brc_addlist(fhdr->filename);
+    strncpy(currtitle, subject(fhdr->title), TTLEN);
+    strncpy(currowner, subject(fhdr->owner), IDLEN + 2);
+
+    switch (more_result) {
+    case 1:
+	return READ_PREV;
+    case 2:
+	return RELATE_PREV;
+    case 3:
+	return READ_NEXT;
+    case 4:
+	return RELATE_NEXT;
+    case 5:
+	return RELATE_FIRST;
+    case 6:
+	return FULLUPDATE;
+    case 7:
+    case 8:
+	if ((currmode & MODE_POST)) {
+	    strlcpy(quote_file, genbuf, sizeof(quote_file));
+	    do_reply(fhdr);
+	    *quote_file = 0;
+	}
+	return FULLUPDATE;
+    case 9:
+	return 'A';
+    case 10:
+	return 'a';
+    case 11:
+	return '/';
+    case 12:
+	return '?';
+    }
+
+
+    outmsg("\033[34;46m  閱\讀文章  \033[31;47m  (R/Y)\033[30m回信 \033[31m"
+	 "(=[]<>)\033[30m相關主題 \033[31m(↑↓)\033[30m上下封 \033[31m(←)"
+	   "\033[30m離開  \033[m");
+
+    switch (egetch()) {
+    case 'q':
+    case 'Q':
+    case KEY_LEFT:
+	break;
+
+    case ' ':
+    case KEY_RIGHT:
+    case KEY_DOWN:
+    case KEY_PGDN:
+    case 'n':
+    case Ctrl('N'):
+	return READ_NEXT;
+
+    case KEY_UP:
+    case 'p':
+    case Ctrl('P'):
+    case KEY_PGUP:
+	return READ_PREV;
+
+    case '=':
+	return RELATE_FIRST;
+
+    case ']':
+    case 't':
+	return RELATE_NEXT;
+
+    case '[':
+	return RELATE_PREV;
+
+    case '.':
+    case '>':
+	return THREAD_NEXT;
+
+    case ',':
+    case '<':
+	return THREAD_PREV;
+
+    case Ctrl('C'):
+	cal();
+	return FULLUPDATE;
+
+    case Ctrl('I'):
+	t_idle();
+	return FULLUPDATE;
+	
+    case 'X':
+	recommend(ent, fhdr, direct);
+	return FULLUPDATE;
+
+    case 'y':
+    case 'r':
+    case 'R':
+    case 'Y':
+	if ((currmode & MODE_POST)) {
+	    strlcpy(quote_file, genbuf, sizeof(quote_file));
+	    do_reply(fhdr);
+	    *quote_file = 0;
+	}
+    }
+    return FULLUPDATE;
+}
+
+/* ----------------------------------------------------- */
+/* 採集精華區                                            */
+/* ----------------------------------------------------- */
+static int
+b_man()
+{
+    char            buf[64];
+
+    setapath(buf, currboard);
+    if ((currmode & MODE_BOARD) || HAS_PERM(PERM_SYSOP)) {
+	char            genbuf[128];
+	int             fd;
+	snprintf(genbuf, sizeof(genbuf), "%s/.rebuild", buf);
+	if ((fd = open(genbuf, O_CREAT, 0640)) > 0)
+	    close(fd);
+    }
+    return a_menu(currboard, buf, HAS_PERM(PERM_ALLBOARD) ? 2 :
+		  (currmode & MODE_BOARD ? 1 : 0));
+}
+
+#ifndef NO_GAMBLE
+void
+stop_gamble()
+{
+    boardheader_t  *bp = getbcache(currbid);
+    char            fn_ticket[128], fn_ticket_end[128];
+    if (!bp->endgamble || bp->endgamble > now)
+	return;
+
+    setbfile(fn_ticket, currboard, FN_TICKET);
+    setbfile(fn_ticket_end, currboard, FN_TICKET_END);
+
+    rename(fn_ticket, fn_ticket_end);
+    if (bp->endgamble) {
+	bp->endgamble = 0;
+	substitute_record(fn_board, bp, sizeof(boardheader_t), currbid);
+    }
+}
+static int
+join_gamble(int ent, fileheader_t * fhdr, char *direct)
+{
+    if (!HAS_PERM(PERM_LOGINOK))
+	return DONOTHING;
+    stop_gamble();
+    ticket(currbid);
+    return FULLUPDATE;
+}
+static int
+hold_gamble(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            fn_ticket[128], fn_ticket_end[128], genbuf[128], msg[256] = "",
+                    yn[10] = "";
+    boardheader_t  *bp = getbcache(currbid);
+    int             i;
+    FILE           *fp = NULL;
+
+    if (!(currmode & MODE_BOARD))
+	return 0;
+    setbfile(fn_ticket, currboard, FN_TICKET);
+    setbfile(fn_ticket_end, currboard, FN_TICKET_END);
+    setbfile(genbuf, currboard, FN_TICKET_LOCK);
+    if (dashf(fn_ticket)) {
+	getdata(b_lines - 1, 0, "已經有舉辦賭盤, "
+		"是否要 [停止下注]?(N/y)：", yn, 3, LCECHO);
+	if (yn[0] != 'y')
+	    return FULLUPDATE;
+	rename(fn_ticket, fn_ticket_end);
+	if (bp->endgamble) {
+	    bp->endgamble = 0;
+	    substitute_record(fn_board, bp, sizeof(boardheader_t), currbid);
+
+	}
+	return FULLUPDATE;
+    }
+    if (dashf(fn_ticket_end)) {
+	getdata(b_lines - 1, 0, "已經有舉辦賭盤, "
+		"是否要開獎 [否/是]?(N/y)：", yn, 3, LCECHO);
+	if (yn[0] != 'y')
+	    return FULLUPDATE;
+	openticket(currbid);
+	return FULLUPDATE;
+    } else if (dashf(genbuf)) {
+	move(b_lines - 1, 0);
+	prints(" 目前系統正在處理開獎事宜, 請結果出爐後再舉辦.......");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    getdata(b_lines - 2, 0, "要舉辦賭盤 (N/y):", yn, 3, LCECHO);
+    if (yn[0] != 'y')
+	return FULLUPDATE;
+    getdata(b_lines - 1, 0, "賭什麼? 請輸入主題 (輸入後編輯內容):",
+	    msg, 20, DOECHO);
+    if (msg[0] == 0 ||
+	vedit(fn_ticket_end, NA, NULL) < 0)
+	return FULLUPDATE;
+
+    clear();
+    showtitle("舉辦賭盤", BBSNAME);
+    setbfile(genbuf, currboard, FN_TICKET_ITEMS);
+
+    //sprintf(genbuf, "%s/" FN_TICKET_ITEMS, direct);
+
+    if (!(fp = fopen(genbuf, "w")))
+	return FULLUPDATE;
+    do {
+	getdata(2, 0, "輸入彩票價格 (價格:10-10000):", yn, 6, LCECHO);
+	i = atoi(yn);
+    } while (i < 10 || i > 10000);
+    fprintf(fp, "%d\n", i);
+    if (!getdata(3, 0, "設定自動封盤時間?(Y/n)", yn, 3, LCECHO) || yn[0] != 'n') {
+	bp->endgamble = gettime(4, now);
+	substitute_record(fn_board, bp, sizeof(boardheader_t), currbid);
+    }
+    move(6, 0);
+    snprintf(genbuf, sizeof(genbuf),
+	     "請到 %s 板 按'f'參與賭博!\n\n一張 %d Ptt幣, 這是%s的賭博\n%s%s",
+	     currboard,
+	     i, i < 100 ? "小賭式" : i < 500 ? "平民級" :
+	     i < 1000 ? "貴族級" : i < 5000 ? "富豪級" : "傾家蕩產",
+	     bp->endgamble ? "賭盤結束時間: " : "",
+	     bp->endgamble ? Cdate(&bp->endgamble) : ""
+	     );
+    strcat(msg, genbuf);
+    prints("請依次輸入彩票名稱, 需提供2~8項. (未滿八項, 輸入直接按enter)\n");
+    for (i = 0; i < 8; i++) {
+	snprintf(yn, sizeof(yn), " %d)", i + 1);
+	getdata(7 + i, 0, yn, genbuf, 9, DOECHO);
+	if (!genbuf[0] && i > 1)
+	    break;
+	fprintf(fp, "%s\n", genbuf);
+    }
+    fclose(fp);
+    move(8 + i, 0);
+    prints("賭盤設定完成");
+    snprintf(genbuf, sizeof(genbuf), "[公告] %s 板 開始賭博!", currboard);
+    post_msg(currboard, genbuf, msg, cuser.userid);
+    post_msg("Record", genbuf + 7, msg, "[馬路探子]");
+    /* Tim 控制CS, 以免正在玩的user把資料已經寫進來 */
+    rename(fn_ticket_end, fn_ticket);
+    /* 設定完才把檔名改過來 */
+
+    return FULLUPDATE;
+}
+#endif
+
+static int
+cite_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            fpath[256];
+    char            title[TTLEN + 1];
+
+    setbfile(fpath, currboard, fhdr->filename);
+    strlcpy(title, "◇ ", sizeof(title));
+    strlcpy(title + 3, fhdr->title, TTLEN - 3);
+    title[TTLEN] = '\0';
+    a_copyitem(fpath, title, 0, 1);
+    b_man();
+    return FULLUPDATE;
+}
+
+int
+edit_title(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            genbuf[200];
+    fileheader_t    tmpfhdr = *fhdr;
+    int             dirty = 0;
+
+    if (currmode & MODE_BOARD || !strcmp(cuser.userid, fhdr->owner)) {
+	if (getdata(b_lines - 1, 0, "標題：", genbuf, TTLEN, DOECHO)) {
+	    strlcpy(tmpfhdr.title, genbuf, sizeof(tmpfhdr.title));
+	    dirty++;
+	}
+    }
+    if (HAS_PERM(PERM_SYSOP)) {
+	if (getdata(b_lines - 1, 0, "作者：", genbuf, IDLEN + 2, DOECHO)) {
+	    strlcpy(tmpfhdr.owner, genbuf, sizeof(tmpfhdr.owner));
+	    dirty++;
+	}
+	if (getdata(b_lines - 1, 0, "日期：", genbuf, 6, DOECHO)) {
+	    snprintf(tmpfhdr.date, sizeof(tmpfhdr.date), "%.5s", genbuf);
+	    dirty++;
+	}
+    }
+    if (currmode & MODE_BOARD || !strcmp(cuser.userid, fhdr->owner)) {
+	getdata(b_lines - 1, 0, "確定(Y/N)?[n] ", genbuf, 3, DOECHO);
+	if ((genbuf[0] == 'y' || genbuf[0] == 'Y') && dirty) {
+	    *fhdr = tmpfhdr;
+	    substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+	    /* rocker.011018: 這裡應該改成用reference的方式取得原來的檔案 */
+	    substitute_check(fhdr);
+	    touchdircache(currbid);
+	}
+	return FULLUPDATE;
+    }
+    return DONOTHING;
+}
+
+static int
+solve_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    if (HAS_PERM(PERM_SYSOP)) {
+	fhdr->filemode ^= FILE_SOLVED;
+	substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+	touchdircache(currbid);
+	return PART_REDRAW;
+    }
+    return DONOTHING;
+}
+
+static int
+recommend_cancel(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            yn[5];
+    if (!(currmode & MODE_BOARD))
+	return DONOTHING;
+    getdata(b_lines - 1, 0, "確定要推薦歸零(Y/N)?[n] ", yn, 5, LCECHO);
+    if (yn[0] != 'y')
+	return FULLUPDATE;
+    fhdr->recommend = 0;
+
+    substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+    substitute_check(fhdr);
+    touchdircache(currbid);
+    return FULLUPDATE;
+}
+
+static int
+recommend(int ent, fileheader_t * fhdr, char *direct)
+{
+    struct tm      *ptime = localtime(&now);
+    char            buf[200], path[200], yn[5];
+    boardheader_t  *bp;
+    static time_t   lastrecommend = 0;
+
+    bp = getbcache(currbid);
+    if( bp->brdattr & BRD_NORECOMMEND ){
+	vmsg("抱歉, 本板禁止推薦");
+	return FULLUPDATE;
+    }
+    if (!(currmode & MODE_POST) || bp->brdattr & BRD_VOTEBOARD) {
+	vmsg("您因權限不足無法推薦!");
+	return FULLUPDATE;
+    }
+
+    setdirpath(path, direct, fhdr->filename);
+    if (fhdr->recommend > 9 || fhdr->recommend < 0)
+	/* 暫時性的 code 原來舊有值取消 */
+	fhdr->recommend = 0;
+
+    if (fhdr->recommend == 0 && strcmp(cuser.userid, fhdr->owner) == 0){
+	vmsg("警告! 本人不能推薦第一次!");
+	return FULLUPDATE;
+    }
+#ifndef DEBUG
+    if (!(currmode & MODE_BOARD) && getuser(cuser.userid) &&
+	now - lastrecommend < 40) {
+	move(b_lines - 1, 0);
+	prints("離上次推薦時間太近囉, 請多花點時間仔細閱\讀文章!");
+	pressanykey();
+	return FULLUPDATE;
+    }
+#endif
+
+    if (!getdata(b_lines - 2, 0, "推薦語:", path, 40, DOECHO) ||
+	    path == NULL ||
+	!getdata(b_lines - 1, 0, "確定要推薦, 請仔細考慮(Y/N)?[n] ",
+		 yn, 5, LCECHO)
+	|| yn[0] != 'y')
+	return FULLUPDATE;
+
+    snprintf(buf, sizeof(buf),
+	     "\033[1;31m→ \033[33m%s\033[m\033[33m:%s\033[m%*s推%15s %02d/%02d\n",
+	     cuser.userid, path,
+	     51 - strlen(cuser.userid) - strlen(path), " ", fromhost,
+	     ptime->tm_mon + 1, ptime->tm_mday);
+    lock_substitute_record(direct, fhdr, sizeof(*fhdr), ent, LOCK_EX);
+    setdirpath(path, direct, fhdr->filename);
+    log_file(path, buf);
+    if (!(fhdr->recommend < 9))
+	lock_substitute_record(direct, fhdr, sizeof(*fhdr), ent, LOCK_UN);
+    else{
+	fhdr->recommend++;
+	passwd_update(usernum, &cuser);
+	lock_substitute_record(direct, fhdr, sizeof(*fhdr), ent, LOCK_UN);
+	substitute_check(fhdr);
+	touchdircache(currbid);
+    }
+    lastrecommend = now;
+    return FULLUPDATE;
+}
+
+static int
+mark_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    char buf[STRLEN], fpath[STRLEN];
+
+    if (!(currmode & MODE_BOARD))
+	return DONOTHING;
+
+    setbpath(fpath, currboard);
+    sprintf(buf, "%s/%s", fpath, fhdr->filename);
+
+    if(access(buf, F_OK) < 0)
+	return DONOTHING;
+
+    fhdr->filemode ^= FILE_MARKED;
+    substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+    substitute_check(fhdr);
+    touchdircache(currbid);
+    return PART_REDRAW;
+}
+
+int
+del_range(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            num1[8], num2[8];
+    int             inum1, inum2;
+    boardheader_t  *bp;
+    bp = getbcache(currbid);
+
+    /* rocker.011018: 串接模式下還是不允許刪除比較好 */
+    if (currmode & MODE_SELECT) {
+	outmsg("請先回到正常模式後再進行刪除...");
+	refresh();
+	/* safe_sleep(1); */
+	return FULLUPDATE;
+    }
+    if (strcmp(bp->brdname, "Security") == 0)
+	return DONOTHING;
+    if ((currstat != READING) || (currmode & MODE_BOARD)) {
+	getdata(1, 0, "[設定刪除範圍] 起點：", num1, 5, DOECHO);
+	inum1 = atoi(num1);
+	if (inum1 <= 0) {
+	    outmsg("起點有誤");
+	    refresh();
+	    /* safe_sleep(1); */
+	    return FULLUPDATE;
+	}
+	getdata(1, 28, "終點：", num2, 5, DOECHO);
+	inum2 = atoi(num2);
+	if (inum2 < inum1) {
+	    outmsg("終點有誤");
+	    refresh();
+	    /* safe_sleep(1); */
+	    return FULLUPDATE;
+	}
+	getdata(1, 48, msg_sure_ny, num1, 3, LCECHO);
+	if (*num1 == 'y') {
+	    outmsg("處理中,請稍後...");
+	    refresh();
+	    if (currmode & MODE_SELECT) {
+		int             fd, size = sizeof(fileheader_t);
+		char            genbuf[100];
+		fileheader_t    rsfh;
+		int             i = inum1, now;
+		if (currstat == RMAIL)
+		    sethomedir(genbuf, cuser.userid);
+		else
+		    setbdir(genbuf, currboard);
+		if ((fd = (open(direct, O_RDONLY, 0))) != -1) {
+		    if (lseek(fd, (off_t) (size * (inum1 - 1)), SEEK_SET) !=
+			-1) {
+			while (read(fd, &rsfh, size) == size) {
+			    if (i > inum2)
+				break;
+			    now = getindex(genbuf, rsfh.filename, size);
+			    strlcpy(currfile, rsfh.filename, sizeof(currfile));
+			    delete_file(genbuf, sizeof(fileheader_t), now,
+					cmpfilename);
+			    i++;
+			}
+		    }
+		    close(fd);
+		}
+	    }
+	    delete_range(direct, inum1, inum2);
+	    fixkeep(direct, inum1);
+
+	    if (currmode & MODE_BOARD)
+		setbtotal(currbid);
+
+	    return DIRCHANGED;
+	}
+	return FULLUPDATE;
+    }
+    return DONOTHING;
+}
+
+static int
+del_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            genbuf[100];
+    int             not_owned;
+    boardheader_t  *bp;
+
+    bp = getbcache(currbid);
+    if (strcmp(bp->brdname, "Security") == 0)
+	return DONOTHING;
+    if ((fhdr->filemode & FILE_MARKED) || (fhdr->filemode & FILE_DIGEST) ||
+	(fhdr->owner[0] == '-'))
+	return DONOTHING;
+
+    not_owned = strcmp(fhdr->owner, cuser.userid);
+    if ((!(currmode & MODE_BOARD) && not_owned) ||
+	((bp->brdattr & BRD_VOTEBOARD) && !HAS_PERM(PERM_SYSOP)) ||
+	!strcmp(cuser.userid, STR_GUEST))
+	return DONOTHING;
+
+    getdata(1, 0, msg_del_ny, genbuf, 3, LCECHO);
+    if (genbuf[0] == 'y' || genbuf[0] == 'Y') {
+	strlcpy(currfile, fhdr->filename, sizeof(currfile));
+	if (!delete_file(direct, sizeof(fileheader_t), ent, cmpfilename)) {
+	    if (currmode & MODE_SELECT) {
+		/* rocker.011018: 利用reference減低loading */
+		fileheader_t    hdr;
+		int             num;
+
+		num = fhdr->money & ~FHR_REFERENCE;
+		setbdir(genbuf, currboard);
+		get_record(genbuf, &hdr, sizeof(hdr), num);
+
+		/* 再這裡要check一下原來的dir裡面是不是有被人動過... */
+		if (strcmp(hdr.filename, fhdr->filename)) {
+		    num = getindex(genbuf, fhdr->filename, sizeof(fileheader_t));
+		    get_record(genbuf, &hdr, sizeof(hdr), num);
+		}
+		/* rocker.011018: 這裡要還原被破壞的money */
+		fhdr->money = hdr.money;
+		delete_file(genbuf, sizeof(fileheader_t), num, cmpfilename);
+	    }
+	    cancelpost(fhdr, not_owned);
+
+	    setbtotal(currbid);
+	    if (fhdr->money < 0)
+		fhdr->money = 0;
+	    if (not_owned && strcmp(currboard, "Test")) {
+		deumoney(searchuser(fhdr->owner), -fhdr->money);
+	    }
+	    if (!not_owned && strcmp(currboard, "Test")) {
+		if (cuser.numposts)
+		    cuser.numposts--;
+		/* XXX: is_BM(cuser.userid) is always true @_@ */
+		if (!(currmode & MODE_DIGEST && is_BM(cuser.userid))){
+		    move(b_lines - 1, 0);
+		    clrtoeol();
+		    demoney(-fhdr->money);
+		    passwd_update(usernum, &cuser);	/* post 數 */
+		    prints("%s，您的文章減為 %d 篇，支付清潔費 %d 銀", msg_del_ok,
+			    cuser.numposts, fhdr->money);
+		    refresh();
+		    pressanykey();
+		}
+	    }
+	    return DIRCHANGED;
+	}
+    }
+    return FULLUPDATE;
+}
+
+static int
+view_postmoney(int ent, fileheader_t * fhdr, char *direct)
+{
+    move(b_lines - 1, 0);
+    if(currmode & MODE_SELECT){
+	vmsg("請在離開目前的選擇模式再查詢");
+	return FULLUPDATE;
+    }
+    clrtoeol();
+    prints("這一篇文章值 %d 銀", fhdr->money);
+    refresh();
+    pressanykey();
+    return FULLUPDATE;
+}
+
+#ifdef OUTJOBSPOOL
+/* 看板備份 */
+static int
+tar_addqueue(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            email[60], qfn[80], ans[2];
+    FILE           *fp;
+    char            bakboard, bakman;
+    clear();
+    showtitle("看板備份", BBSNAME);
+    move(2, 0);
+    if (!((currmode & MODE_BOARD) || HAS_PERM(PERM_SYSOP))) {
+	move(5, 10);
+	outs("妳要是板主或是站長才能醬醬啊 -.-\"\"");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    snprintf(qfn, sizeof(qfn), BBSHOME "/jobspool/tarqueue.%s", currboard);
+    if (access(qfn, 0) == 0) {
+	outs("已經排定行程, 稍後會進行備份");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    if (!getdata(4, 0, "請輸入目的信箱：", email, sizeof(email), DOECHO))
+	return FULLUPDATE;
+
+    /* check email -.-"" */
+    if (strstr(email, "@") == NULL || strstr(email, ".bbs@") != NULL) {
+	move(6, 0);
+	outs("您指定的信箱不正確! ");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    getdata(6, 0, "要備份看板內容嗎(Y/N)?[Y]", ans, sizeof(ans), LCECHO);
+    bakboard = (ans[0] == 'n' || ans[0] == 'N') ? 0 : 1;
+    getdata(7, 0, "要備份精華區內容嗎(Y/N)?[N]", ans, sizeof(ans), LCECHO);
+    bakman = (ans[0] == 'y' || ans[0] == 'Y') ? 1 : 0;
+    if (!bakboard && !bakman) {
+	move(8, 0);
+	outs("可是我們只能備份看板或精華區的耶 ^^\"\"\"");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    fp = fopen(qfn, "w");
+    fprintf(fp, "%s\n", cuser.userid);
+    fprintf(fp, "%s\n", email);
+    fprintf(fp, "%d,%d\n", bakboard, bakman);
+    fclose(fp);
+
+    move(10, 0);
+    outs("系統已經將您的備份排入行程, \n");
+    outs("稍後將會在系統負荷較低的時候將資料寄給您~ :) ");
+    pressanykey();
+    return FULLUPDATE;
+}
+#endif
+
+static int      sequent_ent;
+static int      continue_flag;
+
+/* ----------------------------------------------------- */
+/* 依序讀新文章                                          */
+/* ----------------------------------------------------- */
+static int
+sequent_messages(fileheader_t * fptr)
+{
+    static int      idc;
+    char            genbuf[200];
+
+    if (fptr == NULL)
+	return (idc = 0);
+
+    if (++idc < sequent_ent)
+	return 0;
+
+    if (!brc_unread(fptr->filename, brc_num, brc_list))
+	return 0;
+
+    if (continue_flag)
+	genbuf[0] = 'y';
+    else {
+	prints("讀取文章於：[%s] 作者：[%s]\n標題：[%s]",
+	       currboard, fptr->owner, fptr->title);
+	getdata(3, 0, "(Y/N/Quit) [Y]: ", genbuf, 3, LCECHO);
+    }
+
+    if (genbuf[0] != 'y' && genbuf[0]) {
+	clear();
+	return (genbuf[0] == 'q' ? QUIT : 0);
+    }
+    setbfile(genbuf, currboard, fptr->filename);
+    brc_addlist(fptr->filename);
+
+    if (more(genbuf, YEA) == 0)
+	outmsg("\033[31;47m  \033[31m(R)\033[30m回信  \033[31m(↓,n)"
+	       "\033[30m下一封  \033[31m(←,q)\033[30m離開  \033[m");
+    continue_flag = 0;
+
+    switch (egetch()) {
+    case KEY_LEFT:
+    case 'e':
+    case 'q':
+    case 'Q':
+	break;
+
+    case 'y':
+    case 'r':
+    case 'Y':
+    case 'R':
+	if (currmode & MODE_POST) {
+	    strlcpy(quote_file, genbuf, sizeof(quote_file));
+	    do_reply(fptr);
+	    *quote_file = 0;
+	}
+	break;
+
+    case ' ':
+    case KEY_DOWN:
+    case '\n':
+    case 'n':
+	continue_flag = 1;
+    }
+
+    clear();
+    return 0;
+}
+
+static int
+sequential_read(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            buf[40];
+
+    clear();
+    sequent_messages((fileheader_t *) NULL);
+    sequent_ent = ent;
+    continue_flag = 0;
+    setbdir(buf, currboard);
+    apply_record(buf, sequent_messages, sizeof(fileheader_t));
+    return FULLUPDATE;
+}
+
+/* ----------------------------------------------------- */
+/* 看板備忘錄、文摘、精華區                              */
+/* ----------------------------------------------------- */
+int
+b_note_edit_bname(int bid)
+{
+    char            buf[64];
+    int             aborted;
+    boardheader_t  *fh = getbcache(bid);
+    setbfile(buf, fh->brdname, fn_notes);
+    aborted = vedit(buf, NA, NULL);
+    if (aborted == -1) {
+	clear();
+	outs(msg_cancel);
+	pressanykey();
+    } else {
+	if (!getdata(2, 0, "設定有效期限天？(n/Y)", buf, 3, LCECHO)
+	    || buf[0] != 'n')
+	    fh->bupdate = gettime(3, fh->bupdate ? fh->bupdate : now);
+	else
+	    fh->bupdate = 0;
+	substitute_record(fn_board, fh, sizeof(boardheader_t), bid);
+    }
+    return 0;
+}
+
+static int
+b_notes_edit()
+{
+    if (currmode & MODE_BOARD) {
+	b_note_edit_bname(currbid);
+	return FULLUPDATE;
+    }
+    return 0;
+}
+
+static int
+b_water_edit()
+{
+    if (currmode & MODE_BOARD) {
+	friend_edit(BOARD_WATER);
+	return FULLUPDATE;
+    }
+    return 0;
+}
+
+static int
+visable_list_edit()
+{
+    if (currmode & MODE_BOARD) {
+	friend_edit(BOARD_VISABLE);
+	hbflreload(currbid);
+	return FULLUPDATE;
+    }
+    return 0;
+}
+
+static int
+b_post_note()
+{
+    char            buf[200], yn[3];
+
+    if (currmode & MODE_BOARD) {
+	setbfile(buf, currboard, FN_POST_NOTE);
+	if (more(buf, NA) == -1)
+	    more("etc/" FN_POST_NOTE, NA);
+	getdata(b_lines - 2, 0, "是否要用自訂post注意事項?", yn, sizeof(yn), LCECHO);
+	if (yn[0] == 'y')
+	    vedit(buf, NA, NULL);
+	else
+	    unlink(buf);
+	return FULLUPDATE;
+    }
+    return 0;
+}
+
+static int
+b_application()
+{
+    char            buf[200];
+
+    if (currmode & MODE_BOARD) {
+	setbfile(buf, currboard, FN_APPLICATION);
+	vedit(buf, NA, NULL);
+	return FULLUPDATE;
+    }
+    return 0;
+}
+
+static int
+can_vote_edit()
+{
+    if (currmode & MODE_BOARD) {
+	friend_edit(FRIEND_CANVOTE);
+	return FULLUPDATE;
+    }
+    return 0;
+}
+
+static int
+bh_title_edit()
+{
+    boardheader_t  *bp;
+
+    if (currmode & MODE_BOARD) {
+	char            genbuf[BTLEN];
+
+	bp = getbcache(currbid);
+	move(1, 0);
+	clrtoeol();
+	getdata_str(1, 0, "請輸入看板新中文敘述:", genbuf,
+		    BTLEN - 16, DOECHO, bp->title + 7);
+
+	if (!genbuf[0])
+	    return 0;
+	strip_ansi(genbuf, genbuf, 0);
+	strlcpy(bp->title + 7, genbuf, sizeof(bp->title) - 7);
+	substitute_record(fn_board, bp, sizeof(boardheader_t), currbid);
+	log_usies("SetBoard", currboard);
+	return FULLUPDATE;
+    }
+    return 0;
+}
+
+static int
+b_notes()
+{
+    char            buf[64];
+
+    setbfile(buf, currboard, fn_notes);
+    if (more(buf, NA) == -1) {
+	clear();
+	move(4, 20);
+	outs("本看板尚無「備忘錄」。");
+    }
+    pressanykey();
+    return FULLUPDATE;
+}
+
+int
+board_select()
+{
+    char            fpath[80];
+    char            genbuf[100];
+
+    currmode &= ~MODE_SELECT;
+    snprintf(fpath, sizeof(fpath), "SR.%s", cuser.userid);
+    setbfile(genbuf, currboard, fpath);
+    unlink(genbuf);
+    if (currstat == RMAIL)
+	sethomedir(currdirect, cuser.userid);
+    else
+	setbdir(currdirect, currboard);
+    return NEWDIRECT;
+}
+
+int
+board_digest()
+{
+    if (currmode & MODE_SELECT)
+	board_select();
+    currmode ^= MODE_DIGEST;
+    if (currmode & MODE_DIGEST)
+	currmode &= ~MODE_POST;
+    else if (haspostperm(currboard))
+	currmode |= MODE_POST;
+
+    setbdir(currdirect, currboard);
+    return NEWDIRECT;
+}
+
+int
+board_etc()
+{
+    if (!HAS_PERM(PERM_SYSOP))
+	return DONOTHING;
+    currmode ^= MODE_ETC;
+    if (currmode & MODE_ETC)
+	currmode &= ~MODE_POST;
+    else if (haspostperm(currboard))
+	currmode |= MODE_POST;
+
+    setbdir(currdirect, currboard);
+    return NEWDIRECT;
+}
+
+static int
+good_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            genbuf[200];
+    char            genbuf2[200];
+    int             delta = 0;
+
+    if ((currmode & MODE_DIGEST) || !(currmode & MODE_BOARD))
+	return DONOTHING;
+
+    if (fhdr->filemode & FILE_DIGEST) {
+	fhdr->filemode = (fhdr->filemode & ~FILE_DIGEST);
+	if (!strcmp(currboard, "Note") || !strcmp(currboard, "PttBug") ||
+	    !strcmp(currboard, "Artdsn") || !strcmp(currboard, "PttLaw")) {
+	    deumoney(searchuser(fhdr->owner), -1000);
+	    if (!(currmode & MODE_SELECT))
+		fhdr->money -= 1000;
+	    else
+		delta = -1000;
+	}
+    } else {
+	fileheader_t    digest;
+	char           *ptr, buf[64];
+
+	memcpy(&digest, fhdr, sizeof(digest));
+	digest.filename[0] = 'G';
+	strlcpy(buf, direct, sizeof(buf));
+	ptr = strrchr(buf, '/');
+	assert(ptr);
+	ptr++;
+	ptr[0] = '\0';
+	snprintf(genbuf, sizeof(genbuf), "%s%s", buf, digest.filename);
+
+	if (dashf(genbuf))
+	    unlink(genbuf);
+
+	digest.filemode = 0;
+	snprintf(genbuf2, sizeof(genbuf2), "%s%s", buf, fhdr->filename);
+	Link(genbuf2, genbuf);
+	strcpy(ptr, fn_mandex);
+	append_record(buf, &digest, sizeof(digest));
+
+	fhdr->filemode = (fhdr->filemode & ~FILE_MARKED) | FILE_DIGEST;
+	if (!strcmp(currboard, "Note") || !strcmp(currboard, "PttBug") ||
+	    !strcmp(currboard, "Artdsn") || !strcmp(currboard, "PttLaw")) {
+	    deumoney(searchuser(fhdr->owner), 1000);
+	    if (!(currmode & MODE_SELECT))
+		fhdr->money += 1000;
+	    else
+		delta = 1000;
+	}
+    }
+    substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+    touchdircache(currbid);
+    /* rocker.011018: 串接模式用reference增進效率 */
+    if ((currmode & MODE_SELECT) && (fhdr->money & FHR_REFERENCE)) {
+	fileheader_t    hdr;
+	char            genbuf[100];
+	int             num;
+
+	num = fhdr->money & ~FHR_REFERENCE;
+	setbdir(genbuf, currboard);
+	get_record(genbuf, &hdr, sizeof(hdr), num);
+
+	/* 再這裡要check一下原來的dir裡面是不是有被人動過... */
+	if (strcmp(hdr.filename, fhdr->filename)) {
+	    num = getindex(genbuf, fhdr->filename, sizeof(fileheader_t));
+	    get_record(genbuf, &hdr, sizeof(hdr), num);
+	}
+	fhdr->money = hdr.money + delta;
+
+	substitute_record(genbuf, fhdr, sizeof(*fhdr), num);
+    }
+    return PART_REDRAW;
+}
+
+/* help for board reading */
+static char    *board_help[] = {
+    "\0全功\能看板操作說明",
+    "\01基本命令",
+    "(p)(↑)   上移一篇文章         (^P)     發表文章",
+    "(n)(↓)   下移一篇文章         (d)      刪除文章",
+    "(P)(PgUp) 上移一頁             (S)      串連相關文章",
+    "(N)(PgDn) 下移一頁             (##)     跳到 ## 號文章",
+    "(r)(→)   閱\讀此篇文章         ($)      跳到最後一篇文章",
+    "\01進階命令",
+    "(tab)/z   文摘模式/精華區      (a/A)(^Q)找尋作者/作者資料",
+    "(b/f)     展讀備忘錄/參與賭盤  (?)(/)   找尋標題",
+    "(V/R)     投票/查詢投票結果    (^W)(X)  我在哪裡/推薦文章",
+    "(x)(w)    轉錄文章/丟水球      (=)/([]<>-+) 找尋首篇文章/主題式閱\讀",
+#ifdef INTERNET_EMAIL
+    "(F)       文章寄回Internet郵箱 (U)      將文章 uuencode 後寄回郵箱",
+#endif
+    "(E)       重編文章             (^H)     列出所有的 New Post(s)",
+    "\01板主命令",
+    "(M/o)     舉行投票/編私投票名單 (m/c/g) 保留文章/選錄精華/文摘",
+    "(D)       刪除一段範圍的文章    (T/B)   重編文章標題/重編看板標題",
+    "(I)       開放/禁止看板推薦     (t/^D)  標記文章/砍除標記的文章",
+    "(O)       編輯Post注意事項      (H)/(Y) 看板隱藏/現身 取消推薦文章",
+#ifdef NO_GAMBLE
+    "(W/K/v)   編進板畫面/水桶名單/可看見名單",
+#else
+    "(^G)      舉辦賭盤/停止下注/開獎(W/K/v) 編進板畫面/水桶名單/可看見名單",
+#endif
+    NULL
+};
+
+static int
+b_help()
+{
+    show_help(board_help);
+    return FULLUPDATE;
+}
+
+static int
+b_changerecommend(int ent, fileheader_t * fhdr, char *direct)
+{
+    boardheader_t   bh;
+    int             bid;
+    if (!((currmode & MODE_BOARD) || HAS_PERM(PERM_SYSOP)) ||
+	currboard[0] == 0 ||
+	(bid = getbnum(currboard)) < 0 ||
+	get_record(fn_board, &bh, sizeof(bh), bid) == -1)
+	return DONOTHING;
+    if( bh.brdattr & BRD_NORECOMMEND )
+	bh.brdattr -= BRD_NORECOMMEND;
+    else
+	bh.brdattr += BRD_NORECOMMEND;
+    setup_man(&bh);
+    substitute_record(fn_board, &bh, sizeof(bh), bid);
+    reset_board(bid);
+    vmsg("本板現在 %s 推薦",
+	 (bh.brdattr & BRD_NORECOMMEND) ? "禁止" : "開放");
+    return FULLUPDATE;
+}
+
+/* ----------------------------------------------------- */
+/* 板主設定隱形/ 解隱形                                  */
+/* ----------------------------------------------------- */
+char            board_hidden_status;
+#ifdef  BMCHS
+static int
+change_hidden(int ent, fileheader_t * fhdr, char *direct)
+{
+    boardheader_t   bh;
+    int             bid;
+    char            ans[4];
+
+    if (!((currmode & MODE_BOARD) || HAS_PERM(PERM_SYSOP)) ||
+	currboard[0] == 0 ||
+	(bid = getbnum(currboard)) < 0 ||
+	get_record(fn_board, &bh, sizeof(bh), bid) == -1)
+	return DONOTHING;
+
+    if (((bh.brdattr & BRD_HIDE) && (bh.brdattr & BRD_POSTMASK))) {
+	getdata(1, 0, "目前板在隱形狀態, 要解隱形嘛(Y/N)?[N]",
+		ans, sizeof(ans), LCECHO);
+	if (ans[0] != 'y' && ans[0] != 'Y')
+	    return FULLUPDATE;
+	getdata(2, 0, "再確認一次, 真的要把板板公開嘛 @____@(Y/N)?[N]",
+		ans, sizeof(ans), LCECHO);
+	if (ans[0] != 'y' && ans[0] != 'Y')
+	    return FULLUPDATE;
+	if (bh.brdattr & BRD_HIDE)
+	    bh.brdattr -= BRD_HIDE;
+	if (bh.brdattr & BRD_POSTMASK)
+	    bh.brdattr -= BRD_POSTMASK;
+	log_usies("OpenBoard", bh.brdname);
+	outs("君心今傳眾人，無處不聞弦歌。\n");
+	board_hidden_status = 0;
+	hbflreload(bid);
+    } else {
+	getdata(1, 0, "目前板在現形狀態, 要隱形嘛(Y/N)?[N]",
+		ans, sizeof(ans), LCECHO);
+	if (ans[0] != 'y' && ans[0] != 'Y')
+	    return FULLUPDATE;
+	bh.brdattr |= BRD_HIDE;
+	bh.brdattr |= BRD_POSTMASK;
+	log_usies("CloseBoard", bh.brdname);
+	outs("君心今已掩抑，惟盼善自珍重。\n");
+	board_hidden_status = 1;
+    }
+    setup_man(&bh);
+    substitute_record(fn_board, &bh, sizeof(bh), bid);
+    reset_board(bid);
+    log_usies("SetBoard", bh.brdname);
+    pressanykey();
+    return FULLUPDATE;
+}
+#endif
+
+/* ----------------------------------------------------- */
+/* 看板功能表                                            */
+/* ----------------------------------------------------- */
+struct onekey_t read_comms[] = {
+    {KEY_TAB, board_digest},
+    {'B', bh_title_edit},
+    {'b', b_notes},
+    {'C', board_etc},
+    {'c', cite_post},
+    {'D', del_range},
+    {'d', del_post},
+    {'E', edit_post},
+#ifndef NO_GAMBLE
+    {'f', join_gamble},
+    {Ctrl('G'), hold_gamble},
+#endif
+    {'g', good_post},
+#ifdef BMCHS
+    {'H', change_hidden},
+#endif
+    {'h', b_help},
+    {'I', b_changerecommend},
+    {'i', b_application},
+    {'K', b_water_edit},
+    {'L', solve_post},
+    {'M', b_vote_maintain},
+    {'m', mark_post},
+    {'O', b_post_note},
+    {'o', can_vote_edit},
+    {'Q', view_postmoney},
+    {'R', b_results},
+    {'r', read_post},
+    {'S', sequential_read},
+    {'s', do_select},
+    {'T', edit_title},
+#ifdef OUTJOBSPOOL
+    {'u', tar_addqueue},
+#endif
+    {'V', b_vote},
+    {'v', visable_list_edit},
+    {'W', b_notes_edit},
+    {'w', b_call_in},
+    {'X', recommend},
+    {'x', cross_post},
+    {'Y', recommend_cancel},
+    {'y', reply_post},
+    {'z', b_man},
+    {Ctrl('P'), do_post},
+    {Ctrl('W'), whereami},
+    {'\0', NULL}
+};
+
+int
+Read()
+{
+    int             mode0 = currutmp->mode;
+    int             stat0 = currstat, tmpbid = currutmp->brc_id;
+    char            buf[40];
+#ifdef LOG_BOARD
+    time_t          usetime = now;
+#endif
+
+    setutmpmode(READING);
+    set_board();
+
+    if (board_visit_time < board_note_time) {
+	setbfile(buf, currboard, fn_notes);
+	more(buf, NA);
+	pressanykey();
+    }
+    setutmpbid(currbid);
+    setbdir(buf, currboard);
+    curredit &= ~EDIT_MAIL;
+    i_read(READING, buf, readtitle, readdoent, read_comms,
+	   currbid);
+#ifdef LOG_BOARD
+    log_board(currboard, now - usetime);
+#endif
+    brc_update();
+    setutmpbid(tmpbid);
+    currutmp->mode = mode0;
+    currstat = stat0;
+    return 0;
+}
+
+void
+ReadSelect()
+{
+    int             mode0 = currutmp->mode;
+    int             stat0 = currstat;
+    char            genbuf[200];
+
+    currstat = SELECT;
+    if (do_select(0, 0, genbuf) == NEWDIRECT)
+	Read();
+    setutmpbid(0);
+    currutmp->mode = mode0;
+    currstat = stat0;
+}
+
+#ifdef LOG_BOARD
+static void
+log_board(char *mode, time_t usetime)
+{
+    char            buf[256];
+
+    if (usetime > 30) {
+	snprintf(buf, sizeof(buf), "USE %-20.20s Stay: %5ld (%s) %s",
+		 mode, usetime, cuser.userid, ctime(&now));
+	log_file(FN_USEBOARD, buf);
+    }
+}
+#endif
+
+int
+Select()
+{
+    char            genbuf[200];
+
+    do_select(0, NULL, genbuf);
+    return 0;
+}
+#ifdef HAVEMOBILE
+void
+mobile_message(char *mobile, char *message)
+{
+
+
+
+    bsmtp(char *fpath, char *title, char *rcpt, int method);
+}
+
+#endif
diff --git a/pttbbs/mbbsd/board.c b/pttbbs/mbbsd/board.c
new file mode 100644
index 00000000..eb6a13d4
--- /dev/null
+++ b/pttbbs/mbbsd/board.c
@@ -0,0 +1,1608 @@
+/* $Id$ */
+#include "bbs.h"
+#define BRC_STRLEN 15		/* Length of board name */
+#define BRC_MAXSIZE     24576   /* Effective size of brc rc file */
+#define BRC_ITEMSIZE    (BRC_STRLEN + 1 + BRC_MAXNUM * sizeof( int ))
+    /* Maximum size of each record */
+#define BRC_MAXNUM      80      /* Upper bound of brc_num, size of brc_list  */
+
+/* brc rc file form:
+ * board_name     15 bytes
+ * brc_num         1 byte, binary integer
+ * brc_list       brc_num * sizeof(int) bytes, brc_num binary integer(s) */
+
+static char    *
+brc_getrecord(char *ptr, char *name, int *pnum, int *list)
+{
+    int             num;
+    char           *tmp;
+
+    strncpy(name, ptr, BRC_STRLEN); /* board_name */
+    ptr += BRC_STRLEN;
+    num = (*ptr++) & 0xff;          /* brc_num */
+    tmp = ptr + num * sizeof(int);  /* end of this record */
+    if (num > BRC_MAXNUM) /* FIXME if this happens... may crash next time. */
+	num = BRC_MAXNUM;
+    *pnum = num;
+    memcpy(list, ptr, num * sizeof(int)); /* brc_list */
+    return tmp;
+}
+
+static time_t   brc_expire_time;
+ /* Will be set to the time one year before login. All the files created
+  * before then will be recognized read. */
+
+static char    *
+brc_putrecord(char *ptr, const char *name, int num, const int *list)
+{
+    if (num > 0 && list[0] > brc_expire_time) {
+	if (num > BRC_MAXNUM)
+	    num = BRC_MAXNUM;
+
+	while (num > 1 && list[num - 1] < brc_expire_time)
+	    num--; /* not to write the times before brc_expire_time */
+
+	strncpy(ptr, name, BRC_STRLEN);  /* write in board_name */
+	ptr += BRC_STRLEN;
+	*ptr++ = num;                    /* write in brc_num */
+	memcpy(ptr, list, num * sizeof(int)); /* write in brc_list */
+	ptr += num * sizeof(int);
+    }
+    return ptr;
+}
+
+static int      brc_changed = 0;
+/* The below two will be filled by read_brc_buf() and brc_update() */
+static char     brc_buf[BRC_MAXSIZE];
+static int      brc_size;
+//static char     brc_name[BRC_STRLEN]; /* board name of the brc data */
+static char * const fn_boardrc = ".boardrc";
+/* unused variable
+char *brc_buf_addr=brc_buf;
+*/
+
+void
+brc_update()
+{
+    if (brc_changed && cuser.userlevel) {
+	char            dirfile[STRLEN], *ptr;
+	char            tmp_buf[BRC_MAXSIZE - BRC_ITEMSIZE], *tmp;
+	char            tmp_name[BRC_STRLEN];
+	int             tmp_list[BRC_MAXNUM], tmp_num;
+	int             fd, tmp_size;
+
+	ptr = brc_buf;
+	if (brc_num > 0)
+	    ptr = brc_putrecord(ptr, currboard, brc_num, brc_list);
+
+	setuserfile(dirfile, fn_boardrc);
+	if ((fd = open(dirfile, O_RDONLY)) != -1) {
+	    tmp_size = read(fd, tmp_buf, sizeof(tmp_buf));
+	    close(fd);
+	} else {
+	    tmp_size = 0;
+	}
+
+	tmp = tmp_buf;
+	while (tmp < &tmp_buf[tmp_size] && (*tmp >= ' ' && *tmp <= 'z')) {
+	    /* for each available records */
+	    tmp = brc_getrecord(tmp, tmp_name, &tmp_num, tmp_list);
+	    if (strncmp(tmp_name, currboard, BRC_STRLEN))
+		/* not overwrite the currend record */
+		ptr = brc_putrecord(ptr, tmp_name, tmp_num, tmp_list);
+	}
+	brc_size = (int)(ptr - brc_buf);
+
+	if ((fd = open(dirfile, O_WRONLY | O_CREAT, 0644)) != -1) {
+	    ftruncate(fd, 0);
+	    write(fd, brc_buf, brc_size);
+	    close(fd);
+	}
+	brc_changed = 0;
+    }
+}
+
+static void
+read_brc_buf()
+{
+    char            dirfile[STRLEN];
+    int             fd;
+
+    if (brc_buf[0] == '\0') {
+	setuserfile(dirfile, fn_boardrc);
+	if ((fd = open(dirfile, O_RDONLY)) != -1) {
+	    brc_size = read(fd, brc_buf, sizeof(brc_buf));
+	    close(fd);
+	} else {
+	    brc_size = 0;
+	}
+    }
+}
+
+int
+brc_initial(const char *boardname)
+{
+    char           *ptr;
+    char            tmp_name[BRC_STRLEN];
+    if (strcmp(currboard, boardname) == 0) {
+	return brc_num;
+    }
+    brc_update(); /* write back first */
+    strlcpy(currboard, boardname, sizeof(currboard));
+    currbid = getbnum(currboard);
+    currbrdattr = bcache[currbid - 1].brdattr;
+    read_brc_buf();
+
+    ptr = brc_buf;
+    while (ptr < &brc_buf[brc_size] && (*ptr >= ' ' && *ptr <= 'z')) {
+	/* for each available records */
+	ptr = brc_getrecord(ptr, tmp_name, &brc_num, brc_list);
+	if (strncmp(tmp_name, currboard, BRC_STRLEN) == 0)
+	    return brc_num;
+    }
+    strncpy(tmp_name, boardname, BRC_STRLEN);
+    brc_num = brc_list[0] = 1;
+    /* We don't have to set brc_changed to 0 here, since brc_update() already
+     * did that. */
+    return 0;
+}
+
+void
+brc_addlist(const char *fname)
+{
+    int             ftime, n, i;
+
+    if (!cuser.userlevel)
+	return;
+
+    ftime = atoi(&fname[2]);
+    if (ftime <= brc_expire_time /* too old, don't do any thing  */
+	 /* || fname[0] != 'M' || fname[1] != '.' */ ) {
+	return;
+    }
+    if (brc_num <= 0) { /* uninitialized */
+	brc_list[0] = ftime;
+	brc_num = 1;
+	brc_changed = 1;
+	return;
+    }
+    if ((brc_num == 1) && (ftime < brc_list[0])) /* most when after 'v' */
+	return;
+    for (n = 0; n < brc_num; n++) { /* using linear search */
+	if (ftime == brc_list[n]) {
+	    return;
+	} else if (ftime > brc_list[n]) {
+	    if (brc_num < BRC_MAXNUM)
+		brc_num++;
+	    /* insert ftime in to brc_list */
+	    for (i = brc_num - 1; --i >= n; brc_list[i + 1] = brc_list[i]);
+	    brc_list[n] = ftime;
+	    brc_changed = 1;
+	    return;
+	}
+    }
+    /* (by scw) These lines are no used. Since if it reachs here, this file
+     * is already been labeled read.
+    if (brc_num < BRC_MAXNUM) {
+	brc_list[brc_num++] = ftime;
+	brc_changed = 1;
+    }
+    */
+}
+
+static int
+brc_unread_time(time_t ftime, int bnum, const int *blist)
+{
+    int             n;
+
+    if (ftime <= brc_expire_time) /* too old */
+	return 0;
+
+    if (brc_num <= 0)
+	return 1;
+    for (n = 0; n < bnum; n++) { /* using linear search */
+	if (ftime > blist[n])
+	    return 1;
+	else if (ftime == blist[n])
+	    return 0;
+    }
+    return 0;
+}
+
+int
+brc_unread(const char *fname, int bnum, const int *blist)
+{
+    int             ftime, n;
+
+    ftime = atoi(&fname[2]); /* this will get the time of the file created */
+
+    if (ftime <= brc_expire_time) /* too old */
+	return 0;
+
+    if (brc_num <= 0)
+	return 1;
+    for (n = 0; n < bnum; n++) { /* using linear search */
+	if (ftime > blist[n])
+	    return 1;
+	else if (ftime == blist[n])
+	    return 0;
+    }
+    return 0;
+}
+
+#define BRD_UNREAD 	1
+#define BRD_FAV    	2
+#define BRD_LINE   	4
+#define BRD_TAG    	8
+#define BRD_GRP_HEADER 16
+
+#define MAX_GRP_BRD    16
+#define MAX_GRP
+
+#define FAVNB      ".favnb"
+#define FAV3       ".fav3"
+
+#define B_TOTAL(bptr)        (SHM->total[(bptr)->bid - 1])
+#define B_LASTPOSTTIME(bptr) (SHM->lastposttime[(bptr)->bid - 1])
+#define B_BH(bptr)           (&bcache[(bptr)->bid - 1])
+typedef struct {
+    int             bid;
+    unsigned char   myattr;
+} __attribute__ ((packed)) boardstat_t;
+
+typedef struct {
+    short           bid;
+    char            attr;
+    time_t          lastvisit;
+} fav_board_t;
+
+typedef struct {
+#ifdef MEM_CHECK
+    int             memcheck;
+#endif
+    short           nDatas;
+    short           nAllocs;
+    char            nLines;
+    fav_board_t  b[0];
+} fav_t;
+    
+static boardstat_t *nbrd = NULL;
+char   favchange = 0, choose_board_depth = 0;
+fav_t *fav;
+static short    brdnum;
+static char     yank_flag = 1;
+
+int cmpfav(const void *a, const void *b)
+{
+    if( *(short *)a > ((fav_board_t *)b)->bid )
+	return 1;
+    else if( *(short *)a == ((fav_board_t *)b)->bid )
+	return 0;
+    return -1;
+}
+
+fav_board_t *getfav(short bid)
+{
+    int i;
+    for(i = 0; i < fav->nDatas; i++)
+	if(fav->b[i].bid == bid)
+	    break;
+    return i == fav->nDatas ? NULL : &fav->b[i];
+}
+
+char getfavattr(short bid)
+{
+    fav_board_t *ptr = getfav(bid);
+    if( ptr == NULL )
+	return 0; // default here
+    else
+	return ptr->attr;
+}
+
+time_t getfavtime(short bid)
+{
+    fav_board_t *ptr = getfav(bid);
+    if( ptr == NULL )
+	return login_start_time; // default here
+    else
+	return ptr->lastvisit;
+}
+
+void basemovefav(int src, int des)
+{
+    int i;
+    fav_board_t tmp = fav->b[src];
+
+    if(src < des){
+	for(i = src; i < des; i++)
+	    fav->b[i] = fav->b[i + 1];
+    }
+    else{ // des < src
+	for(i = src; i > des; i--)
+	    fav->b[i] = fav->b[i - 1];
+    }
+    fav->b[des] = tmp;
+
+    brdnum = -1;
+}
+
+void movefav(int old, int new)
+{
+    int i, src = -1, des = -1;
+    favchange = 1;
+
+    for(i = 0; i < fav->nDatas; i++){
+	if(nbrd[old].bid == fav->b[i].bid)
+	    src = i;
+	if(nbrd[new].bid == fav->b[i].bid)
+	    des = i;
+    }
+
+    if(src == -1 || des == -1)
+	return;
+    basemovefav(src, des);
+}
+
+void delfavline(int bid, int num)
+{
+    int i;
+
+    movefav(num, --brdnum);
+    fav->nLines++;
+    fav->nDatas--;
+
+    for(i = 0; i < fav->nDatas; i++)
+	if(fav->b[i].bid < bid)
+	    fav->b[i].bid++;
+    for(i = 0; i < brdnum; i++)
+	if(nbrd[i].bid < bid)
+	    nbrd[i].bid++;
+}
+
+void setfav(short bid, char attr, char mode, time_t t)
+{
+    /* mode: 0: 設成 off, 1: 設成 on, 2: 反相 */
+    fav_board_t *ptr = getfav(bid);
+
+    favchange = 1;
+
+    if( ptr != NULL ){
+	if( mode == 2 )
+	    ptr->attr ^= attr;
+	else if( mode )
+	    ptr->attr |= attr;
+	else
+	    ptr->attr &= ~attr;
+	if( t )
+	    ptr->lastvisit = t;
+    }
+    else{
+	int     where;
+	if( fav->nDatas == fav->nAllocs ){
+#ifdef DEBUG
+	    vmsg("realloc fav");
+#endif
+	    fav = realloc(fav,
+		    sizeof(fav_t) +
+		    sizeof(fav_board_t) *
+		    (16 + fav->nAllocs));
+	    memset(&fav->b[fav->nDatas], 0, sizeof(fav_board_t) * 16);
+	    fav->nAllocs += 16;
+	}
+
+	where = fav->nDatas;
+
+	if( attr & BRD_LINE ){
+	    fav->b[where].bid = --(fav->nLines);
+	    fav->b[where].attr = mode ? (BRD_LINE | BRD_FAV) : 0;
+	}
+	else{
+	    fav->b[where].bid = bid ;
+	    fav->b[where].attr = mode ? attr : 0;
+	}
+	
+	fav->b[where].lastvisit = t ? t : login_start_time;
+	fav->nDatas++;
+    }
+}
+
+void imovefav(int old)
+{
+    char buf[5];
+    int new;
+    
+    getdata(b_lines - 1, 0, "請輸入新次序:", buf, sizeof(buf), DOECHO);
+    new = atoi(buf) - 1;
+    if (new < 0 || brdnum <= new){
+	vmsg("輸入範圍有誤!");
+	return;
+    }
+    movefav(old, new);
+}
+
+#define BRD_OLD 0
+#define BRD_NEW 1
+#define BRD_END 2
+
+void updatenewfav(int mode)
+{
+    /* mode: 0: don't write to fav  1: write to fav */
+    int i, fd;
+    char fname[80], *brd;
+
+    if(!(cuser.uflag2 & FAVNEW_FLAG))
+	return;
+
+    setuserfile(fname, FAVNB);
+
+    if( (fd = open(fname, O_RDWR, 0600)) != -1 ){
+
+	brd = (char *)malloc((numboards + 1) * sizeof(char));
+	read(fd, brd, (numboards + 1) * sizeof(char));
+	
+	for(i = 0; i < numboards + 1 && brd[i] != BRD_END; i++){
+	    if(brd[i] == BRD_NEW){
+		if(bcache[i].brdname[0] && Ben_Perm(&bcache[i])){ // check the permission if the board exsits
+		    if(mode)
+			setfav(i + 1, BRD_FAV, 1, 0);
+		    brd[i] = BRD_OLD;
+		}
+	    }
+	    else{
+		if(!bcache[i].brdname[0])
+		    brd[i] = BRD_NEW;
+	    }
+	}
+	if( i < numboards) // the board number may change
+	    for(i-- ; i < numboards; i++){
+		if(bcache[i].brdname[0] && Ben_Perm(&bcache[i])){
+		    if(mode)
+			setfav(i + 1, BRD_FAV, 1, 0);
+		    brd[i] = BRD_OLD;
+		}
+		else
+		    brd[i] = BRD_NEW;
+	    }
+
+	brd[i] = BRD_END;
+	
+	lseek(fd, 0, SEEK_SET);
+	write(fd, brd, (numboards + 1 ) * sizeof(char));
+	free(brd);
+	close(fd);
+    }
+}
+
+void favclean(fav_t *fav){
+    int i;
+    boardheader_t *bptr;
+
+    for(i = 0; i < fav->nDatas; i++){
+	if(fav->b[i].attr & BRD_LINE)
+	    continue;
+	bptr = &bcache[ fav->b[i].bid - 1 ];
+	if(!(fav->b[i].attr & BRD_FAV) || !Ben_Perm(bptr)){
+	    basemovefav(i, fav->nDatas--);
+	    continue;
+	}
+    }
+}
+
+void freefav(fav_t *fav){
+    free(fav->b);
+    free(fav);
+    fav = NULL;
+}
+
+void load_brdbuf(void)
+{
+    static  char    firsttime = 1;
+    int     fd;
+    char    fname[80];
+
+    setuserfile(fname, FAV3);
+    if( (fd = open(fname, O_RDONLY)) == -1 ){
+	// not found.
+	int i;
+	char favrec;
+	fav = (fav_t *)malloc(sizeof(fav_t) +
+				    sizeof(fav_board_t) * 16);
+	fav->nDatas = 0;
+	fav->nAllocs = 16;
+	fav->nLines = 0;
+	favchange = 1;
+
+	setuserfile(fname, ".fav2");
+
+	if( (fd = open(fname, O_RDONLY)) != -1 ){
+	    for( i = 1; i <= numboards; i++){
+		if(read(fd, &favrec, sizeof(char)) < 0)
+		    break;
+		if( (favrec & BRD_FAV) )
+		    setfav(i, BRD_FAV, 1, 0);
+	    }
+	    close(fd);
+	}
+    }
+    else{
+	short   nDatas, i;
+	char    nLines;
+	read(fd, &nDatas, sizeof(nDatas));
+	read(fd, &nLines, sizeof(nLines));
+	fav = (fav_t *)malloc(sizeof(fav_t) +
+				    sizeof(fav_board_t) * (nDatas + 16));
+	fav->nDatas = nDatas;
+	fav->nAllocs = nDatas + 16;
+	fav->nLines = nLines;
+	read(fd, fav->b, sizeof(fav_board_t) * fav->nDatas);
+	for(i = 0; i < fav->nDatas; i++){
+	    if( !(fav->b[i].attr & BRD_LINE) && !bcache[fav->b[i].bid - 1].brdname[0])
+		fav->b[i].attr ^= BRD_FAV;
+	}
+	close(fd);
+    }
+    updatenewfav(1);
+#ifdef MEM_CHECK
+	fav->memcheck = MEM_CHECK;
+#endif
+    firsttime = 0;
+}
+
+void
+init_brdbuf()
+{
+    brc_expire_time = login_start_time - 365 * 86400;
+}
+
+void
+save_brdbuf(void)
+{
+    int     r, w, fd;
+    char    fname[80];
+    if( !fav )
+	return;
+
+    if( !favchange )
+	return;
+    
+#ifdef MEM_CHECK
+    if( fav->memcheck != MEM_CHECK )
+	return;
+#endif
+
+    fav->nLines = 0;
+    for( r = w = 0 ; r < fav->nDatas ; ++r ){
+	if( ( fav->b[r].attr & BRD_LINE ) ||
+	     (fav->b[r].attr & BRD_FAV && bcache[fav->b[r].bid - 1].brdname[0])){
+	    if(fav->b[r].attr & BRD_LINE)
+		fav->nLines--;
+	    fav->b[w++] = fav->b[r];
+	}
+    }
+    fav->nDatas = w;
+    setuserfile(fname, FAV3);
+    if( (fd = open(fname, O_WRONLY | O_CREAT | O_TRUNC, 0600)) != -1 ){
+	int i;
+	write(fd, &fav->nDatas, sizeof(short));
+	write(fd, &fav->nLines, sizeof(char));
+	for(i = 0; i < fav->nDatas; i++)
+	    if(fav->b[i].attr & BRD_FAV)
+		write(fd, &fav->b[i], sizeof(fav_board_t));
+	close(fd);
+    }
+    freefav(fav);
+}
+
+int
+Ben_Perm(boardheader_t * bptr)
+{
+    register int    level, brdattr;
+
+    level = bptr->level;
+    brdattr = bptr->brdattr;
+
+    if (HAS_PERM(PERM_SYSOP))
+	return 1;
+
+    if( is_BM_cache(bptr - bcache + 1) ) /* XXXbid */
+	return 1;
+
+    /* 祕密看板：核對首席板主的好友名單 */
+
+    if (brdattr & BRD_HIDE) {	/* 隱藏 */
+	if (hbflcheck((int)(bptr - bcache) + 1, currutmp->uid)) {
+	    if (brdattr & BRD_POSTMASK)
+		return 0;
+	    else
+		return 2;
+	} else
+	    return 1;
+    }
+    /* 限制閱讀權限 */
+    if (level && !(brdattr & BRD_POSTMASK) && !HAS_PERM(level))
+	return 0;
+
+    return 1;
+}
+
+#if 0
+static int
+have_author(char *brdname)
+{
+    char            dirname[100];
+
+    snprintf(dirname, sizeof(dirname),
+	     "正在搜尋作者%s 看板:%s.....",
+	     currauthor, brdname);
+    move(b_lines, 0);
+    clrtoeol();
+    outs(dirname);
+    refresh();
+
+    setbdir(dirname, brdname);
+    str_lower(currowner, currauthor);
+
+    return search_rec(dirname, cmpfowner);
+}
+#endif
+
+static int
+check_newpost(boardstat_t * ptr)
+{				/* Ptt 改 */
+    int             tbrc_list[BRC_MAXNUM], tbrc_num;
+    char            bname[BRC_STRLEN];
+    char           *po;
+    time_t          ftime;
+
+    ptr->myattr &= ~BRD_UNREAD;
+    if (B_BH(ptr)->brdattr & BRD_GROUPBOARD)
+	return 0;
+
+    if (B_TOTAL(ptr) == 0)
+	setbtotal(ptr->bid);
+    if (B_TOTAL(ptr) == 0)
+	return 0;
+    ftime = B_LASTPOSTTIME(ptr);
+    if( ftime > now )
+	ftime = B_LASTPOSTTIME(ptr) = now - 1;
+    read_brc_buf();
+    po = brc_buf;
+    while (po < &brc_buf[brc_size] && (*po >= ' ' && *po <= 'z')) {
+	po = brc_getrecord(po, bname, &tbrc_num, tbrc_list);
+	if (strncmp(bname, B_BH(ptr)->brdname, BRC_STRLEN) == 0) {
+	    if (brc_unread_time(ftime, tbrc_num, tbrc_list)) {
+		ptr->myattr |= BRD_UNREAD;
+	    }
+	    return 1;
+	}
+    }
+
+    ptr->myattr |= BRD_UNREAD;
+    return 1;
+}
+
+static void
+load_uidofgid(const int gid, const int type)
+{
+    boardheader_t  *bptr, *currbptr;
+    int             n, childcount = 0;
+    currbptr = &bcache[gid - 1];
+    for (n = 0; n < numboards; ++n) {
+	bptr = SHM->bsorted[type][n];
+	if (bptr->brdname[0] == '\0')
+	    continue;
+	if (bptr->gid == gid) {
+	    if (currbptr == &bcache[gid - 1])
+		currbptr->firstchild[type] = bptr;
+	    else {
+		currbptr->next[type] = bptr;
+		currbptr->parent = &bcache[gid - 1];
+	    }
+	    childcount++;
+	    currbptr = bptr;
+	}
+    }
+    bcache[gid - 1].childcount = childcount;
+    if (currbptr == &bcache[gid - 1])
+	currbptr->firstchild[type] = NULL;
+    else
+	currbptr->next[type] = NULL;
+}
+
+static boardstat_t *
+addnewbrdstat(int n, int state)
+{
+    boardstat_t    *ptr;
+
+    ptr = &nbrd[brdnum++];
+    //boardheader_t  *bptr = &bcache[n];
+    //ptr->total = &(SHM->total[n]);
+    //ptr->lastposttime = &(SHM->lastposttime[n]);
+    
+    ptr->bid = n + 1;
+    ptr->myattr = getfavattr(ptr->bid);
+    if ((B_BH(ptr)->brdattr & BRD_HIDE) && state == 1)
+	B_BH(ptr)->brdattr |= BRD_POSTMASK;
+    check_newpost(ptr);
+    return ptr;
+}
+
+static int
+cmpboardfriends(const void *brd, const void *tmp)
+{
+    return ((B_BH((boardstat_t*)tmp)->nuser) -
+	    (B_BH((boardstat_t*)brd)->nuser));
+}
+
+static int
+favcmpboardname(const void *brd, const void *tmp)
+{
+    int     b1 = ((fav_board_t *)brd)->bid;
+    int     b2 = ((fav_board_t *)tmp)->bid;
+
+    if( b1 <= 0 || b2 <= 0 ) // 分隔線
+	return 1;
+
+    return strcasecmp(bcache[b1 - 1].brdname, bcache[b2 - 1].brdname);
+}
+
+static int
+favcmpboardclass(const void *brd, const void *tmp)
+{
+    int     b1 = ((fav_board_t *)brd)->bid;
+    int     b2 = ((fav_board_t *)tmp)->bid;
+    int     cmp;
+
+    if( b1 <= 0 || b2 <= 0 ) // 分隔線
+	return 1;
+
+    cmp = strncasecmp(bcache[b1 - 1].title, bcache[b2 - 1].title, 4);
+    if( cmp )
+	return cmp;
+    else
+	return strcasecmp(bcache[b1 - 1].brdname, bcache[b2 - 1].brdname);
+}
+
+static void
+load_boards(char *key)
+{
+    boardheader_t  *bptr = NULL;
+    int             type = cuser.uflag & BRDSORT_FLAG ? 1 : 0;
+    int             i, n;
+    int             state;
+    char            byMALLOC = 0, needREALLOC = 0;
+
+    if (class_bid > 0) {
+	bptr = &bcache[class_bid - 1];
+	if (bptr->firstchild[type] == NULL || bptr->childcount <= 0)
+	    load_uidofgid(class_bid, type);
+    }
+    brdnum = 0;
+    if (nbrd) {
+        free(nbrd);
+	nbrd = NULL;
+    }
+    if (class_bid <= 0) {
+	if( yank_flag == 0 ){ // fav mode
+	    nbrd = (boardstat_t *)malloc(sizeof(boardstat_t) * fav->nDatas);
+            for( i = 0 ; i < fav->nDatas ; ++i ){
+		if( fav->b[i].attr & BRD_FAV ){
+		    if( fav->b[i].attr & BRD_LINE && !key[0])
+			addnewbrdstat(fav->b[i].bid - 1, BRD_FAV | BRD_LINE);
+		    else{
+			bptr = &bcache[ fav->b[i].bid - 1 ];
+			if( (state = Ben_Perm(bptr)) && (!key[0] || strcasestr(bptr->title, key)))
+			    addnewbrdstat(fav->b[i].bid - 1, state);
+    		    }
+		}
+	    }
+	    byMALLOC = 0;
+	    needREALLOC = (fav->nDatas != brdnum);
+	}
+	else{ // general case
+	    nbrd = (boardstat_t *) MALLOC(sizeof(boardstat_t) * numboards);
+	    for (i = 0; i < numboards; i++) {
+		if ((bptr = SHM->bsorted[type][i]) == NULL)
+		    continue;
+		n = (int)(bptr - bcache);
+		if (!bptr->brdname[0] ||
+			(bptr->brdattr & BRD_GROUPBOARD) ||
+			!((state = Ben_Perm(bptr)) || (currmode & MODE_MENU)) ||
+			(key[0] && !strcasestr(bptr->title, key)) ||
+			(class_bid == -1 && bptr->nuser < 5))
+		    continue;
+		addnewbrdstat(n, state);
+	    }
+#ifdef CRITICAL_MEMORY
+	    byMALLOC = 1;
+#else
+	    byMALLOC = 0;
+#endif
+	    needREALLOC = 1;
+	}
+	if (class_bid == -1)
+	    qsort(nbrd, brdnum, sizeof(boardstat_t), cmpboardfriends);
+
+    } else {
+	int     childcount = bptr->childcount;
+	nbrd = (boardstat_t *) malloc(childcount * sizeof(boardstat_t));
+	for (bptr = bptr->firstchild[type]; bptr != NULL;
+	     bptr = bptr->next[type]) {
+	    n = (int)(bptr - bcache);
+	    if (!((state = Ben_Perm(bptr)) || (currmode & MODE_MENU))
+		|| (yank_flag == 0 && !(getfavattr(n) & BRD_FAV)) ||
+		(key[0] && !strcasestr(bptr->title, key)))
+		continue;
+	    addnewbrdstat(n, state);
+	}
+	byMALLOC = 0;
+	needREALLOC = (childcount != brdnum);
+    }
+
+    if( needREALLOC ){
+	if( byMALLOC ){
+	    boardstat_t *newnbrd;
+	    newnbrd = (boardstat_t *)malloc(sizeof(boardstat_t) * brdnum);
+	    memcpy(newnbrd, nbrd, sizeof(boardstat_t) * brdnum);
+	    FREE(nbrd);
+	    nbrd = newnbrd;
+	}
+	else {
+	    nbrd = (boardstat_t *)realloc(nbrd, sizeof(boardstat_t) * brdnum);
+	}
+    }
+}
+
+static int
+search_board()
+{
+    int             num;
+    char            genbuf[IDLEN + 2];
+    move(0, 0);
+    clrtoeol();
+    CreateNameList();
+    for (num = 0; num < brdnum; num++)
+	AddNameList(B_BH(&nbrd[num])->brdname);
+    namecomplete(MSG_SELECT_BOARD, genbuf);
+    FreeNameList();
+    toplev = NULL;
+
+    for (num = 0; num < brdnum; num++)
+	if (!strcasecmp(B_BH(&nbrd[num])->brdname, genbuf))
+	    return num;
+    return -1;
+}
+
+static int
+unread_position(char *dirfile, boardstat_t * ptr)
+{
+    fileheader_t    fh;
+    char            fname[FNLEN];
+    register int    num, fd, step, total;
+
+    total = B_TOTAL(ptr);
+    num = total + 1;
+    if ((ptr->myattr & BRD_UNREAD) && (fd = open(dirfile, O_RDWR)) > 0) {
+	if (!brc_initial(B_BH(ptr)->brdname)) {
+	    num = 1;
+	} else {
+	    num = total - 1;
+	    step = 4;
+	    while (num > 0) {
+		lseek(fd, (off_t) (num * sizeof(fh)), SEEK_SET);
+		if (read(fd, fname, FNLEN) <= 0 ||
+		    !brc_unread(fname, brc_num, brc_list))
+		    break;
+		num -= step;
+		if (step < 32)
+		    step += step >> 1;
+	    }
+	    if (num < 0)
+		num = 0;
+	    while (num < total) {
+		lseek(fd, (off_t) (num * sizeof(fh)), SEEK_SET);
+		if (read(fd, fname, FNLEN) <= 0 ||
+		    brc_unread(fname, brc_num, brc_list))
+		    break;
+		num++;
+	    }
+	}
+	close(fd);
+    }
+    if (num < 0)
+	num = 0;
+    return num;
+}
+
+static void
+brdlist_foot()
+{
+    prints("\033[34;46m  選擇看板  \033[31;47m  (c)\033[30m新文章模式  "
+	   "\033[31m(v/V)\033[30m標記已讀/未讀  \033[31m(y)\033[30m篩選%s"
+	   "  \033[31m(m)\033[30m切換最愛  \033[m",
+	   yank_flag == 0 ? "最愛" : yank_flag == 1 ? "部份" : "全部");
+}
+
+static void
+show_brdlist(int head, int clsflag, int newflag)
+{
+    int             myrow = 2;
+    if (class_bid == 1) {
+	currstat = CLASS;
+	myrow = 6;
+	showtitle("分類看板", BBSName);
+	movie(0);
+	move(1, 0);
+	outs(
+	    "                                                              "
+	    "◣  ╭—\033[33m●\n"
+	    "                                                    �寣X  \033[m "
+	    "◢█\033[47m☉\033[40m██◣�蔌n"
+	    "  \033[44m   ︿︿︿︿︿︿︿︿                               "
+	    "\033[33m�鱋033[m\033[44m ◣◢███▼▼▼�� \033[m\n"
+	    "  \033[44m                                                  "
+	    "\033[33m  \033[m\033[44m ◤◥███▲▲▲ �鱋033[m\n"
+	    "                                  ︿︿︿︿︿︿︿︿    \033[33m"
+	    "│\033[m   ◥████◤ �鱋n"
+	    "                                                      \033[33m��"
+	    "——\033[m  ◤      —＋\033[m");
+    } else if (clsflag) {
+	showtitle("看板列表", BBSName);
+	prints("[←]主選單 [→]閱\讀 [↑↓]選擇 [y]載入 [S]排序 [/]搜尋 "
+	       "[TAB]文摘•看板 [h]求助\n"
+	       "\033[7m%-20s 類別 轉信%-31s人氣 板    主     \033[m",
+	       newflag ? "總數 未讀 看  板" : "  編號  看  板",
+	       "  中   文   敘   述");
+	move(b_lines, 0);
+	brdlist_foot();
+    }
+    if (brdnum > 0) {
+	boardstat_t    *ptr;
+	char    *color[8] = {"", "\033[32m",
+	    "\033[33m", "\033[36m", "\033[34m", "\033[1m",
+	"\033[1;32m", "\033[1;33m"};
+	char    *unread[2] = {"\33[37m  \033[m", "\033[1;31mˇ\033[m"};
+
+	while (++myrow < b_lines) {
+	    move(myrow, 0);
+	    clrtoeol();
+	    if (head < brdnum) {
+		ptr = &nbrd[head++];
+		if(ptr->myattr & BRD_LINE){
+		    prints("%5d %c ------------      ------------------------------------------", head, ptr->myattr & BRD_TAG ? 'D' : ' ');
+		    continue;
+		}
+		if (class_bid == 1)
+		    prints("          ");
+		if (!newflag) {
+		    prints("%5d%c%s", head,
+			   !(B_BH(ptr)->brdattr & BRD_HIDE) ? ' ' :
+			   (B_BH(ptr)->brdattr & BRD_POSTMASK) ? ')' : '-',
+			   (ptr->myattr & BRD_TAG) ? "D " :
+			   (B_BH(ptr)->brdattr & BRD_GROUPBOARD) ? "  " :
+			   unread[ptr->myattr & BRD_UNREAD]);
+		} else {
+		    if (newflag) {
+			if ((B_BH(ptr)->brdattr & BRD_GROUPBOARD))
+			    prints("        ");
+			else
+			    prints("%6d%s", (int)(B_TOTAL(ptr)),
+				    unread[ptr->myattr & BRD_UNREAD]);
+		    }
+		}
+		if (class_bid != 1) {
+		    prints("%s%-13s\033[m%s%5.5s\033[0;37m%2.2s\033[m"
+			   "%-34.34s",
+			   ((ptr->myattr & BRD_FAV) &&
+			    !(cuser.uflag2 & FAVNOHILIGHT))? "\033[1;36m" : "",
+			    B_BH(ptr)->brdname,
+			    color[(unsigned int)
+			    (B_BH(ptr)->title[1] + B_BH(ptr)->title[2] +
+			     B_BH(ptr)->title[3] + B_BH(ptr)->title[0]) & 07],
+			    B_BH(ptr)->title, B_BH(ptr)->title + 5, B_BH(ptr)->title + 7);
+
+		    if (B_BH(ptr)->brdattr & BRD_BAD)
+			prints(" X ");
+		    else if (B_BH(ptr)->nuser >= 100)
+			prints("\033[1mHOT\033[m");
+		    else if (B_BH(ptr)->nuser > 50)
+			prints("\033[1;31m%2d\033[m ", B_BH(ptr)->nuser);
+		    else if (B_BH(ptr)->nuser > 10)
+			prints("\033[1;33m%2d\033[m ", B_BH(ptr)->nuser);
+		    else if (B_BH(ptr)->nuser > 0)
+			prints("%2d ", B_BH(ptr)->nuser);
+		    else
+			prints(" %c ", B_BH(ptr)->bvote ? 'V' : ' ');
+		    prints("%.*s\033[K", t_columns - 67, B_BH(ptr)->BM);
+		} else {
+		    prints("%-40.40s %.*s", B_BH(ptr)->title + 7,
+			   t_columns - 67, B_BH(ptr)->BM);
+		}
+	    }
+	    clrtoeol();
+	}
+    }
+}
+
+static char    *choosebrdhelp[] = {
+    "\0看板選單輔助說明",
+    "\01基本指令",
+    "(p)(↑)/(n)(↓)上一個看板 / 下一個看板",
+    "(P)(^B)(PgUp)  上一頁看板",
+    "(N)(^F)(PgDn)  下一頁看板",
+    "($)/(s)/(/)    最後一個看板 / 搜尋看板 / 以中文搜尋看板關鍵字",
+    "(數字)         跳至該項目",
+    "\01進階指令",
+    "(^W)           迷路了 我在哪裡",
+    "(r)(→)(Rtn)   進入多功\能閱\讀選單",
+    "(q)(←)        回到主選單",
+    "(y/Z)          我的最愛,訂閱\看板,所有看板/訂閱\新開看板",
+    "(L)            加入分隔線至我的最愛",
+    "(v/V)          通通看完/全部未讀",
+    "(S)            按照字母/分類排序",
+    "(t/^T/^A/^D)   標記看板/取消所有標記/ 將已標記者加入/移出我的最愛",
+    "(m/M)          把看板加入或移出我的最愛,移除分隔線/搬移我的最愛",
+    "\01小組長指令",
+    "(E/W/B)        設定看板/設定小組備忘/開新看板",
+    "(^P)           移動已標記看板到此分類",
+    NULL
+};
+
+
+static void
+set_menu_BM(char *BM)
+{
+    if (HAS_PERM(PERM_ALLBOARD) || is_BM(BM)) {
+	currmode |= MODE_MENU;
+	cuser.userlevel |= PERM_SYSSUBOP;
+    }
+}
+
+static char    *privateboard =
+"\n\n\n\n         對不起 此板目前只准看板好友進入  請先向板主申請入境許\可";
+
+static void
+choose_board(int newflag)
+{
+    static int      num = 0;
+    boardstat_t    *ptr;
+    int             head = -1, ch = 0, currmodetmp, tmp, tmp1, bidtmp;
+    char            keyword[13] = "";
+
+    setutmpmode(newflag ? READNEW : READBRD);
+    if( fav == NULL )
+	load_brdbuf();
+    ++choose_board_depth;
+    brdnum = 0;
+    if (!cuser.userlevel)	/* guest yank all boards */
+	yank_flag = 2;
+
+    do {
+	if (brdnum <= 0) {
+	    load_boards(keyword);
+	    if (brdnum <= 0) {
+		if (keyword[0] != 0) {
+		    mprints(b_lines - 1, 0, "沒有任何看板標題有此關鍵字 "
+			    "(板主應注意看板標題命名)");
+		    pressanykey();
+		    keyword[0] = 0;
+		    brdnum = -1;
+		    continue;
+		}
+		if (yank_flag < 2) {
+		    brdnum = -1;
+		    yank_flag++;
+		    continue;
+		}
+		if (HAS_PERM(PERM_SYSOP) || (currmode & MODE_MENU)) {
+		    if (m_newbrd(0) == -1)
+			break;
+		    brdnum = -1;
+		    continue;
+		} else
+		    break;
+	    }
+	    head = -1;
+	}
+	if (num < 0)
+	    num = 0;
+	else if (num >= brdnum)
+	    num = brdnum - 1;
+
+	if (head < 0) {
+	    if (newflag) {
+		tmp = num;
+		while (num < brdnum) {
+		    ptr = &nbrd[num];
+		    if (ptr->myattr & BRD_UNREAD)
+			break;
+		    num++;
+		}
+		if (num >= brdnum)
+		    num = tmp;
+	    }
+	    head = (num / p_lines) * p_lines;
+	    show_brdlist(head, 1, newflag);
+	} else if (num < head || num >= head + p_lines) {
+	    head = (num / p_lines) * p_lines;
+	    show_brdlist(head, 0, newflag);
+	}
+	if (class_bid == 1)
+	    ch = cursor_key(7 + num - head, 10);
+	else
+	    ch = cursor_key(3 + num - head, 0);
+
+	switch (ch) {
+	case Ctrl('W'):
+	    whereami(0, NULL, NULL);
+	    head = -1;
+	    break;
+	case 'e':
+	case KEY_LEFT:
+	case EOF:
+	    ch = 'q';
+	case 'q':
+	    if (keyword[0]) {
+		keyword[0] = 0;
+		brdnum = -1;
+		ch = ' ';
+	    }
+	    break;
+	case 'c':
+	    show_brdlist(head, 1, newflag ^= 1);
+	    break;
+	case KEY_PGUP:
+	case 'P':
+	case 'b':
+	case Ctrl('B'):
+	    if (num) {
+		num -= p_lines;
+		break;
+	    }
+	case KEY_END:
+	case '$':
+	    num = brdnum - 1;
+	    break;
+	case ' ':
+	case KEY_PGDN:
+	case 'N':
+	case Ctrl('F'):
+	    if (num == brdnum - 1)
+		num = 0;
+	    else
+		num += p_lines;
+	    break;
+	case Ctrl('C'):
+	    cal();
+	    show_brdlist(head, 1, newflag);
+	    break;
+	case Ctrl('I'):
+	    t_idle();
+	    show_brdlist(head, 1, newflag);
+	    break;
+	case KEY_UP:
+	case 'p':
+	case 'k':
+	    if (num-- <= 0)
+		num = brdnum - 1;
+	    break;
+	case 't':
+	    ptr = &nbrd[num];
+	    setfav(ptr->bid, BRD_TAG, 2, 0);
+	    ptr->myattr ^= BRD_TAG;
+	    head = 9999;
+	case KEY_DOWN:
+	case 'n':
+	case 'j':
+	    if (++num < brdnum)
+		break;
+	case '0':
+	case KEY_HOME:
+	    num = 0;
+	    break;
+	case '1':
+	case '2':
+	case '3':
+	case '4':
+	case '5':
+	case '6':
+	case '7':
+	case '8':
+	case '9':
+	    if ((tmp = search_num(ch, brdnum)) >= 0)
+		num = tmp;
+	    brdlist_foot();
+	    break;
+	case 'F':
+	case 'f':
+	    if (class_bid>0 && HAS_PERM(PERM_SYSOP)) {
+		bcache[class_bid - 1].firstchild[cuser.uflag & BRDSORT_FLAG ? 1 : 0]
+		    = NULL;
+		brdnum = -1;
+	    }
+	    break;
+	case 'h':
+	    show_help(choosebrdhelp);
+	    show_brdlist(head, 1, newflag);
+	    break;
+	case '/':
+	    getdata_buf(b_lines - 1, 0, "請輸入看板中文關鍵字:",
+			keyword, sizeof(keyword), DOECHO);
+	    brdnum = -1;
+	    break;
+	case 'S':
+	    if(yank_flag == 0){
+		char    input[4];
+		move(b_lines - 2, 0);
+		prints("重新排序看板 "
+			"\033[1;33m(注意, 這個動作會覆寫原來設定)\033[m \n");
+		getdata(b_lines - 1, 0,
+			"排序方式 (1)按照板名排序 (2)按照類別排序 ==> [0]取消 ",
+			input, sizeof(input), DOECHO);
+		if( input[0] == '1' )
+		    qsort(&fav->b, fav->nDatas, sizeof(fav_board_t), 
+			    favcmpboardname);
+		else if( input[0] == '2' )
+		    qsort(&fav->b, fav->nDatas, sizeof(fav_board_t), 
+			    favcmpboardclass);
+	    }
+	    else
+		cuser.uflag ^= BRDSORT_FLAG;
+	    favchange = 1;
+	    brdnum = -1;
+	    break;
+	case 'y':
+	    yank_flag = (yank_flag + 1) % 2;
+	    brdnum = -1;
+	    break;
+	case Ctrl('D'):
+	    for (tmp = 0; tmp < fav->nDatas; tmp++) {
+		if (fav->b[tmp].attr & BRD_TAG) {
+		    favchange = 1;
+		    fav->b[tmp].attr &= ~BRD_FAV;
+		    fav->b[tmp].attr &= ~BRD_TAG;
+		}
+	    }
+	    brdnum = -1;
+	    break;
+	case Ctrl('A'):
+	    for (tmp = 0; tmp < fav->nDatas; tmp++) {
+		if (fav->b[tmp].attr & BRD_TAG) {
+		    favchange = 1;
+		    fav->b[tmp].attr |= BRD_FAV;
+		    fav->b[tmp].attr &= ~BRD_TAG;
+		}
+	    }
+	    brdnum = -1;
+	    break;
+	case Ctrl('T'):
+	    for (tmp = 0; tmp < fav->nDatas; tmp++)
+		fav->b[tmp].attr &= ~BRD_TAG;
+	    favchange = 1;
+	    brdnum = -1;
+	    break;
+	case Ctrl('P'):
+	    if (class_bid != 0 &&
+		(HAS_PERM(PERM_SYSOP) || (currmode & MODE_MENU))) {
+		for (tmp = 0; tmp < fav->nDatas; tmp++) {
+		    short   bid = fav->b[tmp].bid;
+		    boardheader_t  *bh = &bcache[ bid - 1 ];
+		    /*
+		    if (!(fav->b[tmp].attr & BRD_TAG) || bh->gid == class_bid)
+			continue;
+		    */
+		    if( !(fav->b[tmp].attr & BRD_TAG) )
+			continue;
+		    favchange = 1;
+		    fav->b[tmp].attr &= ~BRD_TAG;
+		    if (bh->gid != class_bid) {
+			bh->gid = class_bid;
+			substitute_record(FN_BOARD, bh,
+					  sizeof(boardheader_t), bid);
+			reset_board(bid);
+			log_usies("SetBoardGID", bh->brdname);
+		    }
+		}
+		brdnum = -1;
+	    }
+	    break;
+	case 'L':
+	    if (HAS_PERM(PERM_BASIC)) {
+		if(fav->nDatas > FAVMAX || fav->nLines <= -127){
+		    vmsg("你的最愛太多了啦 真花心");
+		    break;
+		}
+		setfav(0, BRD_FAV | BRD_LINE, 1, 0);
+		nbrd[brdnum].bid = fav->nLines;
+		movefav(brdnum, num);
+		brdnum = -1;
+		head = 9999;
+	    }
+	    break;
+	case 'm':
+	    if (HAS_PERM(PERM_BASIC)) {
+		if(nbrd[num].myattr & BRD_LINE){
+		    delfavline(nbrd[num].bid, num);
+		    brdnum = -1;
+		}
+		else if(!(nbrd[num].myattr & BRD_FAV) && (fav->nDatas > FAVMAX)){
+		    vmsg("你的最愛太多了啦 真花心");
+		    break;
+		}
+		else{
+		    setfav(nbrd[num].bid, BRD_FAV, 2, 0);
+		    nbrd[num].myattr ^= BRD_FAV;
+		}
+		head = 9999;
+	    }
+	    break;
+	case 'M':
+	    if (HAS_PERM(PERM_BASIC) && class_bid == 0 && yank_flag == 0){
+		imovefav(num);
+    		head = 9999;
+	    }
+	    break;
+	case 'K':
+	    if (HAS_PERM(PERM_BASIC)) {
+		char c, fname[80], genbuf[256];
+		int fd;
+		c = getans("請選擇 1)清除不可見看板 2)備份我的最愛 3)取回最愛備份 [Q]");
+		if(!c)
+		    break;
+		if(getans("確定嗎 [y/N] ") != 'y')
+		    break;
+		switch(c){
+		    case '1':
+			favclean(fav);
+			break;
+		    case '2':
+			setuserfile(fname, FAV3);
+			sprintf(genbuf, "cp -f %s %s.bak", fname, fname);
+			system(genbuf);
+			break;
+		    case '3':
+			setuserfile(fname, FAV3);
+			sprintf(genbuf, "%s.bak", fname);
+			if((fd = open(genbuf, O_RDONLY)) < 0){
+			    vmsg("你沒有備份你的最愛喔");
+			    break;
+			}
+			close(fd);
+			sprintf(genbuf, "cp -f %s.bak %s", fname, fname);
+			system(genbuf);
+			freefav(fav);
+			load_brdbuf();
+			favchange = 1;
+			break;
+		}
+		brdnum = -1;
+	    }
+	    break;
+	case 'z':
+	    vmsg("嘿嘿 這個功\能已經被我的最愛取代掉了喔!");
+	    break;
+	case 'Z':
+	    cuser.uflag2 ^= FAVNEW_FLAG;
+	    if(cuser.uflag2 & FAVNEW_FLAG){
+		char fname[80];
+
+		setuserfile(fname, FAVNB);
+
+		if( (tmp = open(fname, O_RDONLY, 0600)) != -1 ){
+		    close(tmp);
+		    updatenewfav(0);
+		}
+		else{
+		    char stat;
+		    if( (tmp = open(fname, O_WRONLY | O_CREAT, 0600)) != -1 ){
+			for(tmp1 = 0; tmp1 < numboards; tmp1++){
+			    if(bcache[tmp1].brdname[0] && Ben_Perm(&bcache[tmp1]))
+				stat = BRD_OLD;
+			    else
+				stat = BRD_NEW;
+			    write(tmp, &stat, sizeof(char));
+			}
+			stat = BRD_END;
+			write(tmp, &stat, sizeof(char));
+			close(tmp);
+		    }
+		}
+	    }
+	    vmsg((cuser.uflag2 & FAVNEW_FLAG) ? "切換為訂閱\新看板模式" : "切換為正常模式");
+	    break;
+	case 'v':
+	case 'V':
+	    if(nbrd[num].bid < 0)
+		break;
+	    ptr = &nbrd[num];
+	    brc_initial(B_BH(ptr)->brdname);
+	    if (ch == 'v') {
+		ptr->myattr &= ~BRD_UNREAD;
+		brc_list[0] = now;
+		setfav(ptr->bid, 0, 0, now);
+	    } else {
+		brc_list[0] = 1;
+		setfav(ptr->bid, 0, 0, 1);
+		ptr->myattr |= BRD_UNREAD;
+	    }
+	    brc_num = brc_changed = 1;
+	    brc_update();
+	    show_brdlist(head, 0, newflag);
+	    break;
+	case 's':
+	    if ((tmp = search_board()) == -1) {
+		show_brdlist(head, 1, newflag);
+		break;
+	    }
+	    num = tmp;
+	    break;
+	case 'E':
+	    if (HAS_PERM(PERM_SYSOP) || (currmode & MODE_MENU)) {
+		ptr = &nbrd[num];
+		move(1, 1);
+		clrtobot();
+		m_mod_board(B_BH(ptr)->brdname);
+		brdnum = -1;
+	    }
+	    break;
+	case 'R':
+	    if (HAS_PERM(PERM_SYSOP) || (currmode & MODE_MENU)) {
+		m_newbrd(1);
+		brdnum = -1;
+	    }
+	    break;
+	case 'B':
+	    if (HAS_PERM(PERM_SYSOP) || (currmode & MODE_MENU)) {
+		m_newbrd(0);
+		brdnum = -1;
+	    }
+	    break;
+	case 'W':
+	    if (class_bid > 0 &&
+		(HAS_PERM(PERM_SYSOP) || (currmode & MODE_MENU))) {
+		char            buf[128];
+		setbpath(buf, bcache[class_bid - 1].brdname);
+		mkdir(buf, 0755);	/* Ptt:開群組目錄 */
+		b_note_edit_bname(class_bid);
+		brdnum = -1;
+	    }
+	    break;
+	case KEY_RIGHT:
+	case '\n':
+	case '\r':
+	case 'r':
+	    {
+		char            buf[STRLEN];
+
+		ptr = &nbrd[num];
+		if(ptr->myattr & BRD_LINE)
+		    break;
+
+		if (!(B_BH(ptr)->brdattr & BRD_GROUPBOARD)) {	/* 非sub class */
+		    if (!(B_BH(ptr)->brdattr & BRD_HIDE) ||
+			(B_BH(ptr)->brdattr & BRD_POSTMASK)) {
+			brc_initial(B_BH(ptr)->brdname);
+
+			if (newflag) {
+			    setbdir(buf, currboard);
+			    tmp = unread_position(buf, ptr);
+			    head = tmp - t_lines / 2;
+			    getkeep(buf, head > 1 ? head : 1, tmp + 1);
+			}
+			board_visit_time = getfavtime(ptr->bid);
+			Read();
+			check_newpost(ptr);
+			head = -1;
+			setutmpmode(newflag ? READNEW : READBRD);
+		    } else {
+			setbfile(buf, B_BH(ptr)->brdname, FN_APPLICATION);
+			if (more(buf, YEA) == -1) {
+			    move(1, 0);
+			    clrtobot();
+			    outs(privateboard);
+			    pressanykey();
+			}
+			head = -1;
+		    }
+		} else {	/* sub class */
+		    move(12, 1);
+		    bidtmp = class_bid;
+		    currmodetmp = currmode;
+		    tmp1 = num;
+		    num = 0;
+		    if (!(B_BH(ptr)->brdattr & BRD_TOP))
+			class_bid = ptr->bid;
+		    else
+			class_bid = -1;	/* 熱門群組用 */
+
+		    if (!(currmode & MODE_MENU))	/* 如果還沒有小組長權限 */
+			set_menu_BM(B_BH(ptr)->BM);
+
+		    if (now < B_BH(ptr)->bupdate) {
+			setbfile(buf, B_BH(ptr)->brdname, fn_notes);
+			if (more(buf, NA) != -1)
+			    pressanykey();
+		    }
+		    tmp = currutmp->brc_id;
+		    setutmpbid(ptr->bid);
+		    free(nbrd);
+		    nbrd = NULL;
+			if (yank_flag == 0 ) {
+			    yank_flag = 1;
+			    choose_board(0);
+			    yank_flag = 0;
+		    }
+			else
+			    choose_board(0);
+		    currmode = currmodetmp;	/* 離開板板後就把權限拿掉喔 */
+		    num = tmp1;
+		    class_bid = bidtmp;
+		    setutmpbid(tmp);
+		    brdnum = -1;
+		}
+	    }
+	}
+    } while (ch != 'q');
+    free(nbrd);
+    nbrd = NULL;
+    --choose_board_depth;
+}
+
+int
+root_board()
+{
+    class_bid = 1;
+    yank_flag = 1;
+    choose_board(0);
+    return 0;
+}
+
+int
+Boards()
+{
+    class_bid = 0;
+    yank_flag = 0;
+    choose_board(0);
+    return 0;
+}
+
+
+int
+New()
+{
+    int             mode0 = currutmp->mode;
+    int             stat0 = currstat;
+
+    class_bid = 0;
+    choose_board(1);
+    currutmp->mode = mode0;
+    currstat = stat0;
+    return 0;
+}
+
+/*
+ * int v_favorite(){ char fname[256]; char inbuf[2048]; FILE* fp; int nGroup;
+ * char* strtmp;
+ * 
+ * setuserfile(fname,str_favorite);
+ * 
+ * if (!(fp=fopen(fname,"r"))) return -1; move(0,0); clrtobot();
+ * fgets(inbuf,sizeof(inbuf),fp); nGroup=atoi(inbuf);
+ * 
+ * currutmp->nGroup=0; currutmp->ninRoot=0;
+ * 
+ * while(nGroup!=currutmp->nGroup+1){ fgets(inbuf,sizeof(inbuf),fp);
+ * prints("%s\n",strtmp=strtok(inbuf," \n"));
+ * strcpy(currutmp->gfavorite[currutmp->nGroup++],strtmp);
+ * while((strtmp=strtok(NULL, " \n"))){ prints("     %s
+ * %d\n",strtmp,getbnum(strtmp)); } currutmp->nGroup++; }
+ * prints("+++%d+++\n",currutmp->nGroup);
+ * 
+ * fgets(inbuf,sizeof(inbuf),fp);
+ * 
+ * for(strtmp=strtok(inbuf, " \n");strtmp;strtmp=strtok(NULL, " \n")){ if
+ * (strtmp[0]!='#') prints("*** %s %d\n",strtmp, getbnum(strtmp)); else
+ * prints("*** %s %d\n",strtmp+1, -1); currutmp->ninRoot++; }
+ * 
+ * fclose(fp); pressanykey(); return 0; }
+ */
diff --git a/pttbbs/mbbsd/cache.c b/pttbbs/mbbsd/cache.c
new file mode 100644
index 00000000..945fed88
--- /dev/null
+++ b/pttbbs/mbbsd/cache.c
@@ -0,0 +1,1017 @@
+/* $Id$ */
+#include "bbs.h"
+
+#ifdef _BBS_UTIL_C_
+#    define log_usies(a, b) ;
+#    define abort_bbs(a)    exit(1)
+#endif
+/*
+ * the reason for "safe_sleep" is that we may call sleep during SIGALRM
+ * handler routine, while SIGALRM is blocked. if we use the original sleep,
+ * we'll never wake up.
+ */
+unsigned int
+safe_sleep(unsigned int seconds)
+{
+    /* jochang  sleep有問題時用 */
+    sigset_t        set, oldset;
+
+    sigemptyset(&set);
+    sigprocmask(SIG_BLOCK, &set, &oldset);
+    if (sigismember(&oldset, SIGALRM)) {
+	unsigned long   retv;
+	log_usies("SAFE_SLEEP ", "avoid hang");
+	sigemptyset(&set);
+	sigaddset(&set, SIGALRM);
+	sigprocmask(SIG_UNBLOCK, &set, NULL);
+	retv = sleep(seconds);
+	sigprocmask(SIG_BLOCK, &set, NULL);
+	return retv;
+    }
+    return sleep(seconds);
+}
+
+/*
+ * section - SHM
+ */
+static void
+attach_err(int shmkey, char *name)
+{
+    fprintf(stderr, "[%s error] key = %x\n", name, shmkey);
+    fprintf(stderr, "errno = %d: %s\n", errno, strerror(errno));
+    exit(1);
+}
+
+void           *
+attach_shm(int shmkey, int shmsize)
+{
+    void           *shmptr = (void *)NULL;
+    int             shmid;
+
+    shmid = shmget(shmkey, shmsize, 0);
+    if (shmid < 0) {
+	// SHM should be created by uhash_loader, NOT mbbsd or other utils
+	attach_err(shmkey, "shmget");
+    } else {
+	shmptr = (void *)shmat(shmid, NULL, 0);
+	if (shmptr == (void *)-1)
+	    attach_err(shmkey, "shmat");
+    }
+
+    return shmptr;
+}
+
+void
+attach_SHM(void)
+{
+    SHM = attach_shm(SHM_KEY, sizeof(SHM_t));
+    if (!SHM->loaded)		/* (uhash) assume fresh shared memory is
+				 * zeroed */
+	exit(1);
+    if (SHM->Btouchtime == 0)
+	SHM->Btouchtime = 1;
+    bcache = SHM->bcache;
+    numboards = SHM->Bnumber;
+
+    GLOBALVAR = SHM->GLOBALVAR;
+    if (SHM->Ptouchtime == 0)
+	SHM->Ptouchtime = 1;
+
+    if (SHM->Ftouchtime == 0)
+	SHM->Ftouchtime = 1;
+}
+
+/* ----------------------------------------------------- */
+/* semaphore : for critical section                      */
+/* ----------------------------------------------------- */
+#define SEM_FLG        0600	/* semaphore mode */
+
+#ifndef __FreeBSD__
+/* according to X/OPEN, we have to define it ourselves */
+union semun {
+    int             val;	/* value for SETVAL */
+    struct semid_ds *buf;	/* buffer for IPC_STAT, IPC_SET */
+    unsigned short int *array;	/* array for GETALL, SETALL */
+    struct seminfo *__buf;	/* buffer for IPC_INFO */
+};
+#endif
+
+void
+sem_init(int semkey, int *semid)
+{
+    union semun     s;
+
+    s.val = 1;
+    *semid = semget(semkey, 1, 0);
+    if (*semid == -1) {
+	*semid = semget(semkey, 1, IPC_CREAT | SEM_FLG);
+	if (*semid == -1)
+	    attach_err(semkey, "semget");
+	semctl(*semid, 0, SETVAL, s);
+    }
+}
+
+void
+sem_lock(int op, int semid)
+{
+    struct sembuf   sops;
+
+    sops.sem_num = 0;
+    sops.sem_flg = SEM_UNDO;
+    sops.sem_op = op;
+    if (semop(semid, &sops, 1)) {
+	perror("semop");
+	exit(1);
+    }
+}
+
+/*
+ * section - user cache(including uhash)
+ */
+/* uhash ****************************************** */
+/*
+ * the design is this: we use another stand-alone program to create and load
+ * data into the hash. (that program could be run in rc-scripts or something
+ * like that) after loading completes, the stand-alone program sets loaded to
+ * 1 and exits.
+ * 
+ * the bbs exits if it can't attach to the shared memory or the hash is not
+ * loaded yet.
+ */
+
+void
+add_to_uhash(int n, char *id)
+{
+    int            *p, h = StringHash(id);
+    int             times;
+    strlcpy(SHM->userid[n], id, sizeof(SHM->userid[n]));
+
+    p = &(SHM->hash_head[h]);
+
+    for (times = 0; times < MAX_USERS && *p != -1; ++times)
+	p = &(SHM->next_in_hash[*p]);
+
+    if (times == MAX_USERS)
+	abort_bbs(0);
+
+    SHM->next_in_hash[*p = n] = -1;
+}
+
+void
+remove_from_uhash(int n)
+{
+/*
+ * note: after remove_from_uhash(), you should add_to_uhash() (likely with a
+ * different name)
+ */
+    int             h = StringHash(SHM->userid[n]);
+    int            *p = &(SHM->hash_head[h]);
+    int             times;
+
+    for (times = 0; times < MAX_USERS && (*p != -1 && *p != n); ++times)
+	p = &(SHM->next_in_hash[*p]);
+
+    if (times == MAX_USERS)
+	abort_bbs(0);
+
+    if (*p == n)
+	*p = SHM->next_in_hash[n];
+}
+
+int
+searchuser(char *userid)
+{
+    int             h, p, times;
+    h = StringHash(userid);
+    p = SHM->hash_head[h];
+
+    for (times = 0; times < MAX_USERS && p != -1 && p < MAX_USERS ; ++times) {
+	if (strcasecmp(SHM->userid[p], userid) == 0) {
+	    strcpy(userid, SHM->userid[p]);
+	    return p + 1;
+	}
+	p = SHM->next_in_hash[p];
+    }
+
+    return 0;
+}
+
+int
+getuser(char *userid)
+{
+    int             uid;
+
+    if ((uid = searchuser(userid)))
+	passwd_query(uid, &xuser);
+    return uid;
+}
+
+char           *
+getuserid(int num)
+{
+    if (--num >= 0 && num < MAX_USERS)
+	return ((char *)SHM->userid[num]);
+    return NULL;
+}
+
+void
+setuserid(int num, char *userid)
+{
+    if (num > 0 && num <= MAX_USERS) {
+	if (num > SHM->number)
+	    SHM->number = num;
+	else
+	    remove_from_uhash(num - 1);
+	add_to_uhash(num - 1, userid);
+    }
+}
+
+/* 0 ==> 找過期帳號 */
+/* 1 ==> 建立新帳號 */
+/* should do it by searching "" in the hash */
+int
+searchnewuser(int mode)
+{
+    register int    i, num;
+
+    num = SHM->number;
+    i = 0;
+
+    /* 為什麼這邊不用 hash table 去找而要用 linear search? */
+    while (i < num) {
+	if (!SHM->userid[i++][0])
+	    return i;
+    }
+    if (mode && (num < MAX_USERS))
+	return num + 1;
+    return 0;
+}
+
+#ifndef _BBS_UTIL_C_
+char           *
+u_namearray(char buf[][IDLEN + 1], int *pnum, char *tag)
+{
+    register char  *ptr, tmp;
+    register int    n, total;
+    char            tagbuf[STRLEN];
+    int             ch, ch2, num;
+
+    if (*tag == '\0') {
+	*pnum = SHM->number;
+	return SHM->userid[0];
+    }
+    for (n = 0; tag[n]; n++)
+	tagbuf[n] = chartoupper(tag[n]);
+    tagbuf[n] = '\0';
+    ch = tagbuf[0];
+    ch2 = ch - 'A' + 'a';
+    total = SHM->number;
+    for (n = num = 0; n < total; n++) {
+	ptr = SHM->userid[n];
+	tmp = *ptr;
+	if (tmp == ch || tmp == ch2) {
+	    if (chkstr(tag, tagbuf, ptr))
+		strcpy(buf[num++], ptr);
+	}
+    }
+    *pnum = num;
+    return buf[0];
+}
+#endif
+
+void
+getnewutmpent(userinfo_t * up)
+{
+/* Ptt:這裡加上 hash 觀念找空的 utmp */
+    register int    i, p;
+    register userinfo_t *uentp;
+    for (i = 0, p = StringHash(up->userid) % USHM_SIZE; i < USHM_SIZE; i++, p++) {
+	if (p == USHM_SIZE)
+	    p = 0;
+	uentp = &(SHM->uinfo[p]);
+	if (!(uentp->pid)) {
+	    memcpy(uentp, up, sizeof(userinfo_t));
+	    currutmp = uentp;
+	    return;
+	}
+    }
+    exit(1);
+}
+
+int
+apply_ulist(int (*fptr) (userinfo_t *))
+{
+    register userinfo_t *uentp;
+    register int    i, state;
+
+    for (i = 0; i < USHM_SIZE; i++) {
+	uentp = &(SHM->uinfo[i]);
+	if (uentp->pid && (PERM_HIDE(currutmp) || !PERM_HIDE(uentp)))
+	    if ((state = (*fptr) (uentp)))
+		return state;
+    }
+    return 0;
+}
+
+userinfo_t     *
+search_ulist(int uid)
+{
+    return search_ulistn(uid, 1);
+}
+
+userinfo_t     *
+search_ulist_pid(int pid)
+{
+    register int    i = 0, j, start = 0, end = SHM->UTMPnumber - 1;
+    register userinfo_t **ulist;
+    if (end == -1)
+	return NULL;
+    ulist = SHM->sorted[SHM->currsorted][7];
+    for (i = ((start + end) / 2);; i = (start + end) / 2) {
+	j = pid - ulist[i]->pid;
+	if (!j) {
+	    return (userinfo_t *) (ulist[i]);
+	}
+	if (end == start) {
+	    break;
+	} else if (i == start) {
+	    i = end;
+	    start = end;
+	} else if (j > 0)
+	    start = i;
+	else
+	    end = i;
+    }
+    return 0;
+}
+
+userinfo_t     *
+search_ulistn(int uid, int unum)
+{
+    register int    i = 0, j, start = 0, end = SHM->UTMPnumber - 1;
+    register userinfo_t **ulist;
+    if (end == -1)
+	return NULL;
+    ulist = SHM->sorted[SHM->currsorted][6];
+    for (i = ((start + end) / 2);; i = (start + end) / 2) {
+	j = uid - ulist[i]->uid;
+	if (j == 0) {
+	    for (; i > 0 && uid == ulist[i - 1]->uid; --i)
+		;/* 指到第一筆 */
+	    if ( i + unum - 1 >= 0 &&
+		 (ulist[i + unum - 1] != NULL &&
+		  uid == ulist[i + unum - 1]->uid) )
+		return (userinfo_t *) (ulist[i + unum - 1]);
+	    break;		/* 超過範圍 */
+	}
+	if (end == start) {
+	    break;
+	} else if (i == start) {
+	    i = end;
+	    start = end;
+	} else if (j > 0)
+	    start = i;
+	else
+	    end = i;
+    }
+    return 0;
+}
+
+userinfo_t     *
+search_ulist_userid(char *userid)
+{
+    register int    i = 0, j, start = 0, end = SHM->UTMPnumber - 1;
+    register userinfo_t **ulist;
+    if (end == -1)
+	return NULL;
+    ulist = SHM->sorted[SHM->currsorted][0];
+    for (i = ((start + end) / 2);; i = (start + end) / 2) {
+	j = strcasecmp(userid, ulist[i]->userid);
+	if (!j) {
+	    return (userinfo_t *) (ulist[i]);
+	}
+	if (end == start) {
+	    break;
+	} else if (i == start) {
+	    i = end;
+	    start = end;
+	} else if (j > 0)
+	    start = i;
+	else
+	    end = i;
+    }
+    return 0;
+}
+
+#ifndef _BBS_UTIL_C_
+int
+count_logins(int uid, int show)
+{
+    register int    i = 0, j, start = 0, end = SHM->UTMPnumber - 1, count;
+    register userinfo_t **ulist;
+    if (end == -1)
+	return 0;
+    ulist = SHM->sorted[SHM->currsorted][6];
+    for (i = ((start + end) / 2);; i = (start + end) / 2) {
+	j = uid - ulist[i]->uid;
+	if (!j) {
+	    for (; i > 0 && uid == ulist[i - 1]->uid; i--);	/* 指到第一筆 */
+	    for (count = 0; uid == ulist[i + count]->uid; count++) {
+		if (show)
+		    prints("(%d) 目前狀態為: %-17.16s(來自 %s)\n",
+			   count + 1, modestring(ulist[i + count], 0),
+			   ulist[i + count]->from);
+	    }
+	    return count;
+	}
+	if (end == start) {
+	    break;
+	} else if (i == start) {
+	    i = end;
+	    start = end;
+	} else if (j > 0)
+	    start = i;
+	else
+	    end = i;
+    }
+    return 0;
+}
+
+void
+purge_utmp(userinfo_t * uentp)
+{
+    logout_friend_online(uentp);
+    memset(uentp, 0, sizeof(userinfo_t));
+    SHM->UTMPneedsort = 1;
+}
+#endif
+
+/*
+ * section - money cache
+ */
+int
+setumoney(int uid, int money)
+{
+    SHM->money[uid - 1] = money;
+    passwd_update_money(uid);
+    return SHM->money[uid - 1];
+}
+
+int
+deumoney(int uid, int money)
+{
+    if (money < 0 && SHM->money[uid - 1] < -money)
+	return setumoney(uid, 0);
+    else
+	return setumoney(uid, SHM->money[uid - 1] + money);
+}
+
+int
+demoney(int money)
+{
+    return deumoney(usernum, money);
+}
+
+int
+moneyof(int uid)
+{				/* ptt 改進金錢處理效率 */
+    return SHM->money[uid - 1];
+}
+
+/*
+ * section - utmp
+ */
+#if !defined(_BBS_UTIL_C_) /* _BBS_UTIL_C_ 不會有 utmp */
+void
+setutmpmode(unsigned int mode)
+{
+    if (currstat != mode)
+	currutmp->mode = currstat = mode;
+
+    /* 追蹤使用者 */
+    if (HAS_PERM(PERM_LOGUSER)) {
+	char            msg[200];
+	snprintf(msg, sizeof(msg), "%s setutmpmode to %s(%d) at %s",
+		 cuser.userid, modestring(currutmp, 0), mode, Cdate(&COMMON_TIME));
+	log_user(msg);
+    }
+}
+#endif
+
+/*
+ * section - board cache
+ */
+void touchbtotal(int bid) {
+    SHM->total[bid - 1] = 0;
+    SHM->lastposttime[bid - 1] = 0;
+}
+
+void
+touchdircache(int bid)
+{
+    int            *i = (int *)&SHM->dircache[bid - 1][0].filename[0];
+    *i = 0;
+}
+
+void
+load_fileheader_cache(int bid, char *direct)
+{
+    int             num = getbtotal(bid);
+    int             n = num - DIRCACHESIZE + 1;
+    if (SHM->Bbusystate != 1 && COMMON_TIME - SHM->busystate_b[bid - 1] >= 10) {
+	SHM->busystate_b[bid - 1] = COMMON_TIME;
+	get_records(direct, SHM->dircache[bid - 1],
+		    sizeof(fileheader_t), n < 1 ? 1 : n, DIRCACHESIZE);
+	SHM->busystate_b[bid - 1] = 0;
+    } else {
+	safe_sleep(1);
+    }
+}
+
+int
+get_fileheader_cache(int bid, char *direct, fileheader_t * headers,
+		     int recbase, int nlines)
+{
+    int             ret, n, num;
+
+    num = getbtotal(bid);
+
+    ret = num - recbase + 1,
+	n = (num - DIRCACHESIZE + 1);
+
+
+    if (SHM->dircache[bid - 1][0].filename[0] == '\0')
+	load_fileheader_cache(bid, direct);
+    if (n < 1)
+	n = recbase - 1;
+    else
+	n = recbase - n;
+    if (n < 0)
+	n = 0;
+    if (ret > nlines)
+	ret = nlines;
+    memcpy(headers, &(SHM->dircache[bid - 1][n]), sizeof(fileheader_t) * ret);
+    return ret;
+}
+
+static int
+cmpboardname(boardheader_t ** brd, boardheader_t ** tmp)
+{
+    return strcasecmp((*brd)->brdname, (*tmp)->brdname);
+}
+
+static int
+cmpboardclass(boardheader_t ** brd, boardheader_t ** tmp)
+{
+    return (strncmp((*brd)->title, (*tmp)->title, 4) << 8) +
+    strcasecmp((*brd)->brdname, (*tmp)->brdname);
+}
+
+static void
+sort_bcache(void)
+{
+    int             i;
+    /* critical section 不能單獨呼叫 呼叫reload_bcache or reset_board */
+    for (i = 0; i < SHM->Bnumber; i++) {
+	SHM->bsorted[1][i] = SHM->bsorted[0][i] = &bcache[i];
+    }
+    qsort(SHM->bsorted[0], SHM->Bnumber, sizeof(boardheader_t *),
+	  (QCAST) cmpboardname);
+    qsort(SHM->bsorted[1], SHM->Bnumber, sizeof(boardheader_t *),
+	  (QCAST) cmpboardclass);
+}
+
+void
+reload_bcache(void)
+{
+    if (SHM->Bbusystate) {
+	safe_sleep(1);
+    }
+    else {
+	int             fd, i;
+
+	SHM->Bbusystate = 1;
+	if ((fd = open(fn_board, O_RDONLY)) > 0) {
+	    SHM->Bnumber =
+		read(fd, bcache, MAX_BOARD * sizeof(boardheader_t)) /
+		sizeof(boardheader_t);
+	    close(fd);
+	}
+	memset(SHM->lastposttime, 0, MAX_BOARD * sizeof(time_t));
+	/* 等所有 boards 資料更新後再設定 uptime */
+	SHM->Buptime = SHM->Btouchtime;
+	log_usies("CACHE", "reload bcache");
+	sort_bcache();
+	for (i = 0; i < SHM->Bnumber; ++i) {
+	    bcache[i].firstchild[0] = NULL;
+	    bcache[i].firstchild[1] = NULL;
+	}
+	SHM->Bbusystate = 0;
+    }
+}
+
+void resolve_boards(void)
+{
+    while (SHM->Buptime < SHM->Btouchtime) {
+	reload_bcache();
+    }
+    numboards = SHM->Bnumber;
+}
+
+void touch_boards(void)
+{
+    SHM->Btouchtime = COMMON_TIME;
+    numboards = -1;
+    resolve_boards();
+}
+void addbrd_touchcache(void)
+{
+    SHM->Bnumber++;
+    numboards = SHM->Bnumber;
+    reset_board(numboards);
+}
+
+void
+reset_board(int bid) /* XXXbid: from 1 */
+{				/* Ptt: 這樣就不用老是touch board了 */
+    int             fd, i, nuser;
+    boardheader_t  *bhdr;
+
+    if (--bid < 0)
+	return;
+    if (SHM->Bbusystate || COMMON_TIME - SHM->busystate_b[bid] < 10) {
+	safe_sleep(1);
+    } else {
+	SHM->busystate_b[bid] = COMMON_TIME;
+	nuser = bcache[bid].nuser;
+
+	bhdr = bcache;
+	bhdr += bid;
+	if ((fd = open(fn_board, O_RDONLY)) > 0) {
+	    lseek(fd, (off_t) (bid * sizeof(boardheader_t)), SEEK_SET);
+	    read(fd, bhdr, sizeof(boardheader_t));
+	    close(fd);
+	}
+	sort_bcache();
+	for (i = 0; i < SHM->Bnumber; i++) {
+	    bcache[i].firstchild[0] = NULL;
+	    bcache[i].firstchild[1] = NULL;
+	}
+	SHM->busystate_b[bid] = 0;
+
+	buildBMcache(bid + 1); /* XXXbid */
+    }
+}
+
+#ifndef _BBS_UTIL_C_ /* because of Ben_Perm() in board.c */
+int
+apply_boards(int (*func) (boardheader_t *))
+{
+    register int    i;
+    register boardheader_t *bhdr;
+
+    for (i = 0, bhdr = bcache; i < numboards; i++, bhdr++) {
+	if (!(bhdr->brdattr & BRD_GROUPBOARD) && Ben_Perm(bhdr) &&
+	    (*func) (bhdr) == QUIT)
+	    return QUIT;
+    }
+    return 0;
+}
+#endif
+
+boardheader_t  *
+getbcache(int bid)
+{				/* Ptt改寫 */
+    return bcache + bid - 1;
+}
+
+int
+getbtotal(int bid)
+{
+    return SHM->total[bid - 1];
+}
+
+void
+setbtotal(int bid)
+{
+    boardheader_t  *bh = getbcache(bid);
+    struct stat     st;
+    char            genbuf[256];
+    int             num, fd;
+
+    snprintf(genbuf, sizeof(genbuf),
+	     "boards/%c/%s/.DIR", bh->brdname[0], bh->brdname);
+
+    if ((fd = open(genbuf, O_RDWR)) < 0)
+	return;			/* .DIR掛了 */
+    fstat(fd, &st);
+    num = st.st_size / sizeof(fileheader_t);
+    SHM->total[bid - 1] = num;
+
+    if (num > 0) {
+	lseek(fd, (off_t) (num - 1) * sizeof(fileheader_t), SEEK_SET);
+	if (read(fd, genbuf, FNLEN) >= 0) {
+	    SHM->lastposttime[bid - 1] = (time_t) atoi(&genbuf[2]);
+	}
+    } else
+	SHM->lastposttime[bid - 1] = 0;
+    close(fd);
+    if (num)
+	touchdircache(bid);
+}
+
+void
+touchbpostnum(int bid, int delta)
+{
+    int            *total = &SHM->total[bid - 1];
+    if (*total)
+	*total += delta;
+}
+
+int
+getbnum(char *bname)
+{
+    register int    i = 0, j, start = 0, end = SHM->Bnumber - 1;
+    register boardheader_t **bhdr;
+    bhdr = SHM->bsorted[0];
+    for (i = ((start + end) / 2);; i = (start + end) / 2) {
+	if (!(j = strcasecmp(bname, bhdr[i]->brdname)))
+	    return (int)(bhdr[i] - bcache + 1);
+	if (end == start) {
+	    break;
+	} else if (i == start) {
+	    i = end;
+	    start = end;
+	} else if (j > 0)
+	    start = i;
+	else
+	    end = i;
+    }
+    return 0;
+}
+
+int
+haspostperm(char *bname)
+{
+    register int    i;
+    char            buf[200];
+
+    setbfile(buf, bname, fn_water);
+    if (belong(buf, cuser.userid))
+	return 0;
+
+    if (!strcasecmp(bname, DEFAULT_BOARD))
+	return 1;
+
+    if (!strcasecmp(bname, "PttLaw"))
+	return 1;
+
+    if (!HAS_PERM(PERM_POST))
+	return 0;
+
+    if (!(i = getbnum(bname)))
+	return 0;
+
+    /* 秘密看板特別處理 */
+    if (bcache[i - 1].brdattr & BRD_HIDE)
+	return 1;
+
+    i = bcache[i - 1].level;
+
+    if (HAS_PERM(PERM_VIOLATELAW) && (i & PERM_VIOLATELAW))
+	return 1;
+    else if (HAS_PERM(PERM_VIOLATELAW))
+	return 0;
+
+    return HAS_PERM(i & ~PERM_POST);
+}
+
+void buildBMcache(int bid) /* bid starts from 1 */
+{
+    char    s[IDLEN * 3 + 3], *ptr;
+    int     i, uid;
+    --bid;
+
+    strncpy(s, bcache[bid].BM, sizeof(s));
+    for( i = 0 ; s[i] != 0 ; ++i )
+	if( !isalpha(s[i]) && !isdigit(s[i]) )
+            s[i] = ' ';
+
+    for( ptr = strtok(s, " "), i = 0 ;
+	 i < MAX_BMs && ptr != NULL  ;
+	 ptr = strtok(NULL, " "), ++i  )
+	if( (uid = searchuser(ptr)) != 0 )
+	    SHM->BMcache[bid][i] = uid;
+    for( ; i < MAX_BMs ; ++i )
+	SHM->BMcache[bid][i] = -1;
+}
+
+int is_BM_cache(int bid) /* bid starts from 1 */
+{
+    --bid;
+    if( currutmp->uid == SHM->BMcache[bid][0] ||
+	currutmp->uid == SHM->BMcache[bid][1] ||
+	currutmp->uid == SHM->BMcache[bid][2] ||
+	currutmp->uid == SHM->BMcache[bid][3]    ){
+	cuser.userlevel |= PERM_BM;
+	return 1;
+    }
+    return 0;
+}
+
+/*-------------------------------------------------------*/
+/* PTT  cache                                            */
+/*-------------------------------------------------------*/
+/* cache for 動態看板 */
+void
+reload_pttcache(void)
+{
+    if (SHM->Pbusystate)
+	safe_sleep(1);
+    else {			/* jochang: temporary workaround */
+	fileheader_t    item, subitem;
+	char            pbuf[256], buf[256], *chr;
+	FILE           *fp, *fp1, *fp2;
+	int             id, section = 0;
+
+	SHM->Pbusystate = 1;
+	SHM->max_film = 0;
+	bzero(SHM->notes, sizeof(SHM->notes));
+	setapath(pbuf, "Note");
+	setadir(buf, pbuf);
+	id = 0;
+	if ((fp = fopen(buf, "r"))) {
+	    while (fread(&item, sizeof(item), 1, fp)) {
+		if (item.title[3] == '<' && item.title[8] == '>') {
+		    snprintf(buf, sizeof(buf), "%s/%s", pbuf, item.filename);
+		    setadir(buf, buf);
+		    if (!(fp1 = fopen(buf, "r")))
+			continue;
+		    SHM->next_refresh[section] = SHM->n_notes[section] = id;
+		    section++;
+		    while (fread(&subitem, sizeof(subitem), 1, fp1)) {
+			snprintf(buf, sizeof(buf),
+				 "%s/%s/%s", pbuf, item.filename,
+				 subitem.filename);
+			if (!(fp2 = fopen(buf, "r")))
+			    continue;
+			fread(SHM->notes[id], sizeof(char), 200 * 11, fp2);
+			SHM->notes[id][200 * 11 - 1] = 0;
+			id++;
+			fclose(fp2);
+			if (id >= MAX_MOVIE)
+			    break;
+		    }
+		    fclose(fp1);
+		    if (id >= MAX_MOVIE || section >= MAX_MOVIE_SECTION)
+			break;
+		}
+	    }
+	    fclose(fp);
+	}
+	SHM->next_refresh[section] = -1;
+	SHM->n_notes[section] = SHM->max_film = id - 1;
+	SHM->max_history = SHM->max_film - 2;
+	if (SHM->max_history > MAX_HISTORY - 1)
+	    SHM->max_history = MAX_HISTORY - 1;
+	if (SHM->max_history < 0)
+	    SHM->max_history = 0;
+
+	fp = fopen("etc/today_is", "r");
+	if (fp) {
+	    fgets(SHM->today_is, 15, fp);
+	    if ((chr = strchr(SHM->today_is, '\n')))
+		*chr = 0;
+	    SHM->today_is[15] = 0;
+	    fclose(fp);
+	}
+	/* 等所有資料更新後再設定 uptime */
+
+	SHM->Puptime = SHM->Ptouchtime;
+	log_usies("CACHE", "reload pttcache");
+	SHM->Pbusystate = 0;
+    }
+}
+
+void
+resolve_garbage(void)
+{
+    int             count = 0;
+
+    while (SHM->Puptime < SHM->Ptouchtime) {	/* 不用while等 */
+	reload_pttcache();
+	if (count++ > 10 && SHM->Pbusystate) {
+	    /*
+	     * Ptt: 這邊會有問題  load超過10 秒會所有進loop的process tate = 0
+	     * 這樣會所有prcosee都會在load 動態看板 會造成load大增
+	     * 但沒有用這個function的話 萬一load passwd檔的process死了
+	     * 又沒有人把他 解開  同樣的問題發生在reload passwd
+	     */
+	    SHM->Pbusystate = 0;
+#ifndef _BBS_UTIL_C_
+	    log_usies("CACHE", "refork Ptt dead lock");
+#endif
+	}
+    }
+}
+
+/*-------------------------------------------------------*/
+/* PTT's cache                                           */
+/*-------------------------------------------------------*/
+/* cache for from host 與最多上線人數 */
+static void
+reload_fcache(void)
+{
+    if (SHM->Fbusystate)
+	safe_sleep(1);
+    else {
+	FILE           *fp;
+
+	SHM->Fbusystate = 1;
+	bzero(SHM->domain, sizeof(SHM->domain));
+	if ((fp = fopen("etc/domain_name_query", "r"))) {
+	    char            buf[256], *po;
+
+	    SHM->top = 0;
+	    while (fgets(buf, sizeof(buf), fp)) {
+		if (buf[0] && buf[0] != '#' && buf[0] != ' ' &&
+		    buf[0] != '\n') {
+		    sscanf(buf, "%s", SHM->domain[SHM->top]);
+		    po = buf + strlen(SHM->domain[SHM->top]);
+		    while (*po == ' ')
+			po++;
+		    strncpy(SHM->replace[SHM->top], po, 49);
+		    SHM->replace[SHM->top]
+			[strlen(SHM->replace[SHM->top]) - 1] = 0;
+		    (SHM->top)++;
+		    if (SHM->top == MAX_FROM)
+			break;
+		}
+	    }
+	    fclose(fp);
+	}
+	SHM->max_user = 0;
+
+	/* 等所有資料更新後再設定 uptime */
+	SHM->Fuptime = SHM->Ftouchtime;
+#if !defined(_BBS_UTIL_C_)
+	log_usies("CACHE", "reload fcache");
+#endif
+	SHM->Fbusystate = 0;
+    }
+}
+
+void
+resolve_fcache(void)
+{
+    while (SHM->Fuptime < SHM->Ftouchtime)
+	reload_fcache();
+}
+
+/*
+ * section - hbfl (hidden board friend list)
+ */
+void
+hbflreload(int bid)
+{
+    int             hbfl[MAX_FRIEND + 1], i, num, uid;
+    char            buf[128];
+    FILE           *fp;
+
+    memset(hbfl, 0, sizeof(hbfl));
+    setbfile(buf, bcache[bid - 1].brdname, fn_visable);
+    if ((fp = fopen(buf, "r")) != NULL) {
+	for (num = 1; num <= MAX_FRIEND; ++num) {
+	    if (fgets(buf, sizeof(buf), fp) == NULL)
+		break;
+	    for (i = 0; buf[i] != 0; ++i)
+		if (buf[i] == ' ') {
+		    buf[i] = 0;
+		    break;
+		}
+	    if (strcasecmp("guest", buf) == 0 ||
+		(uid = searchuser(buf)) == 0) {
+		--num;
+		continue;
+	    }
+	    hbfl[num] = uid;
+	}
+	fclose(fp);
+    }
+    hbfl[0] = COMMON_TIME;
+    memcpy(SHM->hbfl[bid], hbfl, sizeof(hbfl));
+}
+
+int
+hbflcheck(int bid, int uid)
+{
+    int             i;
+
+    if (SHM->hbfl[bid][0] < login_start_time - HBFLexpire)
+	hbflreload(bid);
+    for (i = 1; SHM->hbfl[bid][i] != 0 && i <= MAX_FRIEND; ++i) {
+	if (SHM->hbfl[bid][i] == uid)
+	    return 0;
+    }
+    return 1;
+}
diff --git a/pttbbs/mbbsd/cal.c b/pttbbs/mbbsd/cal.c
new file mode 100644
index 00000000..080f9112
--- /dev/null
+++ b/pttbbs/mbbsd/cal.c
@@ -0,0 +1,556 @@
+/* $Id$ */
+#include "bbs.h"
+
+/* 防堵 Multi play */
+static int
+count_multiplay(int unmode)
+{
+    register int    i, j;
+    register userinfo_t *uentp;
+
+    for (i = j = 0; i < USHM_SIZE; i++) {
+	uentp = &(SHM->uinfo[i]);
+	if (uentp->uid == usernum)
+	    if (uentp->lockmode == unmode)
+		j++;
+    }
+    return j;
+}
+
+int
+lockutmpmode(int unmode, int state)
+{
+    int             errorno = 0;
+
+    if (currutmp->lockmode)
+	errorno = 1;
+    else if (count_multiplay(unmode))
+	errorno = 2;
+
+    if (errorno && !(state == LOCK_THIS && errorno == LOCK_MULTI)) {
+	clear();
+	move(10, 20);
+	if (errorno == 1)
+	    prints("請先離開 %s 才能再 %s ",
+		   ModeTypeTable[currutmp->lockmode],
+		   ModeTypeTable[unmode]);
+	else
+	    prints("抱歉! 您已有其他線相同的ID正在%s",
+		   ModeTypeTable[unmode]);
+	pressanykey();
+	return errorno;
+    }
+    setutmpmode(unmode);
+    currutmp->lockmode = unmode;
+    return 0;
+}
+
+int
+unlockutmpmode()
+{
+    currutmp->lockmode = 0;
+    return 0;
+}
+
+/* 使用錢的函數 */
+#define VICE_NEW   "vice.new"
+
+/* Heat:發票 */
+int
+vice(int money, char *item)
+{
+    char            buf[128];
+    unsigned int    viceserial = (currutmp->lastact % 1000000) * 100 + rand() % 100;
+    FILE           *fp;
+    demoney(-money);
+    snprintf(buf, sizeof(buf), BBSHOME "/home/%c/%s/%s",
+	     cuser.userid[0], cuser.userid, VICE_NEW);
+    fp = fopen(buf, "a");
+    if (!fp) {
+	return 0;
+    }
+    fprintf(fp, "%08d\n", viceserial);
+    fclose(fp);
+    snprintf(buf, sizeof(buf),
+	     "%s 花了%d$ 編號[%08d]", item, money, viceserial);
+    mail_id(cuser.userid, buf, "etc/vice.txt", "Ptt經濟部");
+    return 0;
+}
+
+#define lockreturn(unmode, state) if(lockutmpmode(unmode, state)) return
+#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
+#define lockbreak(unmode, state) if(lockutmpmode(unmode, state)) break
+#define SONGBOOK  "etc/SONGBOOK"
+#define OSONGPATH "etc/SONGO"
+
+static int
+osong(char *defaultid)
+{
+    char            destid[IDLEN + 1], buf[200], genbuf[200], filename[256],
+                    say[51];
+    char            receiver[45], ano[2];
+    FILE           *fp, *fp1;
+    //*fp2;
+    fileheader_t    mail;
+    int             nsongs;
+
+    strlcpy(buf, Cdatedate(&now), sizeof(buf));
+
+    lockreturn0(OSONG, LOCK_MULTI);
+
+    /* Jaky 一人一天點一首 */
+    if (!strcmp(buf, Cdatedate(&cuser.lastsong)) && !HAS_PERM(PERM_SYSOP)) {
+	move(22, 0);
+	outs("你今天已經點過囉，明天再點吧....");
+	refresh();
+	pressanykey();
+
+	unlockutmpmode();
+	return 0;
+    }
+    if (cuser.money < 200) {
+	move(22, 0);
+	outs("點歌要200銀唷!....");
+	refresh();
+	pressanykey();
+	unlockutmpmode();
+	return 0;
+    }
+    move(12, 0);
+    clrtobot();
+    snprintf(buf, sizeof(buf),
+	     "親愛的 %s 歡迎來到歐桑自動點歌系統\n", cuser.userid);
+    outs(buf);
+    trans_buffer[0] = 0;
+    if (!defaultid) {
+	getdata(13, 0, "要點給誰呢:[可直接按 Enter 先選歌]",
+		destid, sizeof(destid), DOECHO);
+	while (!destid[0]) {
+	    a_menu("點歌歌本", SONGBOOK, 0);
+	    clear();
+	    getdata(13, 0, "要點給誰呢:[可按 Enter 重新選歌]",
+		    destid, sizeof(destid), DOECHO);
+	}
+    } else
+	strlcpy(destid, defaultid, sizeof(destid));
+
+    /* Heat:點歌者匿名功能 */
+    getdata(14, 0, "要匿名嗎?[y/n]:", ano, sizeof(ano), DOECHO);
+
+    if (!destid[0]) {
+	unlockutmpmode();
+	return 0;
+    }
+    getdata_str(14, 0, "想要要對他(她)說..:", say,
+		sizeof(say), DOECHO, "我愛妳..");
+    snprintf(save_title, sizeof(save_title),
+	     "%s:%s", (ano[0] == 'y') ? "匿名者" : cuser.userid, say);
+    getdata_str(16, 0, "寄到誰的信箱(可用E-mail)?",
+		receiver, sizeof(receiver), LCECHO, destid);
+
+    if (!trans_buffer[0]) {
+	outs("\n接著要選歌囉..進入歌本好好的選一首歌吧..^o^");
+	pressanykey();
+	a_menu("點歌歌本", SONGBOOK, 0);
+    }
+    if (!trans_buffer[0] || strstr(trans_buffer, "home") ||
+	strstr(trans_buffer, "boards") || !(fp = fopen(trans_buffer, "r"))) {
+	unlockutmpmode();
+	return 0;
+    }
+    strlcpy(filename, OSONGPATH, sizeof(filename));
+
+    stampfile(filename, &mail);
+
+    unlink(filename);
+
+    if (!(fp1 = fopen(filename, "w"))) {
+	fclose(fp);
+	unlockutmpmode();
+	return 0;
+    }
+    strlcpy(mail.owner, "點歌機", sizeof(mail.owner));
+    snprintf(mail.title, sizeof(mail.title),
+	     "◇ %s 點給 %s ",
+	     (ano[0] == 'y') ? "匿名者" : cuser.userid, destid);
+
+    while (fgets(buf, 200, fp)) {
+	char           *po;
+	if (!strncmp(buf, "標題: ", 6)) {
+	    clear();
+	    move(10, 10);
+	    prints("%s", buf);
+	    pressanykey();
+	    fclose(fp);
+	    fclose(fp1);
+	    unlockutmpmode();
+	    return 0;
+	}
+	while ((po = strstr(buf, "<~Src~>"))) {
+	    po[0] = 0;
+	    snprintf(genbuf, sizeof(genbuf),
+		     "%s%s%s", buf,
+		     (ano[0] == 'y') ? "匿名者" : cuser.userid, po + 7);
+	    strlcpy(buf, genbuf, sizeof(buf));
+	}
+	while ((po = strstr(buf, "<~Des~>"))) {
+	    po[0] = 0;
+	    snprintf(genbuf, sizeof(genbuf), "%s%s%s", buf, destid, po + 7);
+	    strlcpy(buf, genbuf, sizeof(buf));
+	}
+	while ((po = strstr(buf, "<~Say~>"))) {
+	    po[0] = 0;
+	    snprintf(genbuf, sizeof(genbuf), "%s%s%s", buf, say, po + 7);
+	    strlcpy(buf, genbuf, sizeof(buf));
+	}
+	fputs(buf, fp1);
+    }
+    fclose(fp1);
+    fclose(fp);
+
+    //do_append(OSONGMAIL "/.DIR", &mail2, sizeof(mail2));
+
+    if (do_append(OSONGPATH "/.DIR", &mail, sizeof(mail)) != -1) {
+	cuser.lastsong = now;
+	/* Jaky 超過 500 首歌就開始砍 */
+	nsongs = get_num_records(OSONGPATH "/.DIR", sizeof(mail));
+	if (nsongs > 500) {
+	    delete_range(OSONGPATH "/.DIR", 1, nsongs - 500);
+	}
+	/* 把第一首拿掉 */
+	vice(200, "點歌");
+    }
+    snprintf(save_title, sizeof(save_title),
+	     "%s:%s", (ano[0] == 'y') ? "匿名者" : cuser.userid, say);
+    hold_mail(filename, destid);
+
+    if (receiver[0]) {
+#ifndef USE_BSMTP
+	bbs_sendmail(filename, save_title, receiver);
+#else
+	bsmtp(filename, save_title, receiver, 0);
+#endif
+    }
+    clear();
+    outs(
+	 "\n\n  恭喜您點歌完成囉..\n"
+	 "  一小時內動態看板會自動重新更新\n"
+	 "  大家就可以看到您點的歌囉\n\n"
+	 "  點歌有任何問題可以到Note板的精華區找答案\n"
+	 "  也可在Note板精華區看到自己的點歌記錄\n"
+	 "  有任何保貴的意見也歡迎到Note板留話\n"
+	 "  讓親切的板主為您服務\n");
+    pressanykey();
+    sortsong();
+    topsong();
+
+    unlockutmpmode();
+    return 1;
+}
+
+int
+ordersong()
+{
+    osong(NULL);
+    return 0;
+}
+
+static int
+inmailbox(int m)
+{
+    passwd_query(usernum, &xuser);
+    cuser.exmailbox = xuser.exmailbox + m;
+    passwd_update(usernum, &cuser);
+    return cuser.exmailbox;
+}
+
+
+#if !HAVE_FREECLOAK
+/* 花錢選單 */
+int
+p_cloak()
+{
+    char            buf[4];
+    getdata(b_lines - 1, 0,
+	    currutmp->invisible ? "確定要現身?[y/N]" : "確定要隱身?[y/N]",
+	    buf, sizeof(buf), LCECHO);
+    if (buf[0] != 'y')
+	return 0;
+    if (cuser.money >= 19) {
+	vice(19, "cloak");
+	currutmp->invisible %= 2;
+	outs((currutmp->invisible ^= 1) ? MSG_CLOAKED : MSG_UNCLOAK);
+	refresh();
+	safe_sleep(1);
+    }
+    return 0;
+}
+#endif
+
+int
+p_from()
+{
+    char            ans[4];
+
+    getdata(b_lines - 2, 0, "確定要改故鄉?[y/N]", ans, sizeof(ans), LCECHO);
+    if (ans[0] != 'y')
+	return 0;
+    reload_money();
+    if (cuser.money < 49)
+	return 0;
+    if (getdata_buf(b_lines - 1, 0, "請輸入新故鄉:",
+		    currutmp->from, sizeof(currutmp->from), DOECHO)) {
+	vice(49, "home");
+	currutmp->from_alias = 0;
+    }
+    return 0;
+}
+
+int
+p_exmail()
+{
+    char            ans[4], buf[200];
+    int             n;
+
+    if (cuser.exmailbox >= MAX_EXKEEPMAIL) {
+	snprintf(buf, sizeof(buf),
+		 "容量最多增加 %d 封，不能再買了。", MAX_EXKEEPMAIL);
+	outs(buf);
+	refresh();
+	return 0;
+    }
+    snprintf(buf, sizeof(buf),
+	     "您曾增購 %d 封容量，還要再買多少?", cuser.exmailbox);
+
+    getdata_str(b_lines - 2, 0, buf, ans, sizeof(ans), LCECHO, "10");
+
+    n = atoi(ans);
+    if (!ans[0] || !n)
+	return 0;
+    if (n < 0)
+	n = 100;
+    if (n + cuser.exmailbox > MAX_EXKEEPMAIL)
+	n = MAX_EXKEEPMAIL - cuser.exmailbox;
+    reload_money();
+    if (cuser.money < n * 1000)
+	return 0;
+    vice(n * 1000, "mail");
+    inmailbox(n);
+    return 0;
+}
+
+void
+mail_redenvelop(char *from, char *to, int money, char mode)
+{
+    char            genbuf[200];
+    fileheader_t    fhdr;
+    FILE           *fp;
+    snprintf(genbuf, sizeof(genbuf), "home/%c/%s", to[0], to);
+    stampfile(genbuf, &fhdr);
+    if (!(fp = fopen(genbuf, "w")))
+	return;
+    fprintf(fp, "作者: %s\n"
+	    "標題: 招財進寶\n"
+	    "時間: %s\n"
+	    "\033[1;33m親愛的 %s ：\n\n\033[m"
+	    "\033[1;31m    我包給你一個 %d 元的大紅包喔 ^_^\n\n"
+	    "    禮輕情意重，請笑納...... ^_^\033[m\n"
+	    ,from, ctime(&now), to, money);
+    fclose(fp);
+    snprintf(fhdr.title, sizeof(fhdr.title), "招財進寶");
+    strlcpy(fhdr.owner, from, sizeof(fhdr.owner));
+
+    if (mode == 'y')
+	vedit(genbuf, NA, NULL);
+    snprintf(genbuf, sizeof(genbuf), "home/%c/%s/.DIR", to[0], to);
+    append_record(genbuf, &fhdr, sizeof(fhdr));
+}
+
+/* 計算贈與稅 */
+int
+give_tax(int money)
+{
+    int             i, tax = 0;
+    int      tax_bound[] = {1000000, 100000, 10000, 1000, 0};
+    double   tax_rate[] = {0.4, 0.3, 0.2, 0.1, 0.08};
+    for (i = 0; i <= 4; i++)
+	if (money > tax_bound[i]) {
+	    tax += (money - tax_bound[i]) * tax_rate[i];
+	    money -= (money - tax_bound[i]);
+	}
+    return (tax <= 0) ? 1 : tax;
+}
+
+int
+p_give()
+{
+    int             money, tax;
+    char            id[IDLEN + 1], genbuf[90];
+
+    move(1, 0);
+    usercomplete("這位幸運兒的id:", id);
+    if (!id[0] || !strcmp(cuser.userid, id) ||
+	!getdata(2, 0, "要給多少錢:", genbuf, 7, LCECHO))
+	return 0;
+    money = atoi(genbuf);
+    reload_money();
+    if (money > 0 && cuser.money >= money) {
+	tax = give_tax(money);
+	if (money - tax <= 0)
+	    return 0;		/* 繳完稅就沒錢給了 */
+	deumoney(searchuser(id), money - tax);
+	demoney(-money);
+	snprintf(genbuf, sizeof(genbuf), "%s\t給%s\t%d\t%s",
+		 cuser.userid, id, money - tax, ctime(&now));
+	log_file(FN_MONEY, genbuf);
+	genbuf[0] = 'n';
+	getdata(3, 0, "要自行書寫紅包袋嗎？[y/N]", genbuf, 2, LCECHO);
+	mail_redenvelop(cuser.userid, id, money - tax, genbuf[0]);
+    }
+    return 0;
+}
+
+int
+p_sysinfo(void)
+{
+    char            buf[128], *cpuloadstr;
+    int             load;
+    extern char    *compile_time;
+
+    load = cpuload(buf);
+    cpuloadstr = (load < 5 ? "良好" : (load < 20 ? "尚可" : "過重"));
+
+    clear();
+    showtitle("系統資訊", BBSNAME);
+    move(2, 0);
+    prints("您現在位於 " TITLE_COLOR BBSNAME "\033[m (" MYIP ")\n"
+	   "系統負載情況: %s\n"
+	   "線上服務人數: %d/%d\n"
+	   "編譯時間:     %s\n"
+	   "起始時間:     %s\n",
+	   cpuloadstr, SHM->UTMPnumber,
+#ifdef DYMAX_ACTIVE
+	   GLOBALVAR[9] > 1000 ? GLOBALVAR[9] : MAX_ACTIVE,
+#else
+	   MAX_ACTIVE,
+#endif
+	   compile_time, ctime(&start_time));
+    if (HAS_PERM(PERM_SYSOP)) {
+	struct rusage ru;
+	getrusage(RUSAGE_SELF, &ru);
+	prints("記憶體用量: sbrk: %d KB, idrss: %d KB, isrss: %d KB\n",
+	       ((int)sbrk(0) - 0x8048000) / 1024,
+	       (int)ru.ru_idrss, (int)ru.ru_isrss);
+#ifdef CRITICAL_MEMORY
+	prints("目前在 CRITICAL_MEMORY 模式下\n");
+#endif
+    }
+    pressanykey();
+    return 0;
+}
+
+/* 小計算機 */
+static void
+ccount(float *a, float b, int cmode)
+{
+    switch (cmode) {
+	case 0:
+	case 1:
+	case 2:
+	*a += b;
+	break;
+    case 3:
+	*a -= b;
+	break;
+    case 4:
+	*a *= b;
+	break;
+    case 5:
+	*a /= b;
+	break;
+    }
+}
+
+int
+cal()
+{
+    float           a = 0;
+    char            flo = 0, ch = 0;
+    char            mode[6] = {' ', '=', '+', '-', '*', '/'}, cmode = 0;
+    char            buf[100] = "[            0] [ ] ", b[20] = "0";
+
+    move(b_lines - 1, 0);
+    clrtoeol();
+    outs(buf);
+    move(b_lines, 0);
+    clrtoeol();
+    outs("\033[44m 小計算機  \033[31;47m      (0123456789+-*/=) "
+	 "\033[30m輸入     \033[31m  "
+	 "(Q)\033[30m 離開                   \033[m");
+    while (1) {
+	ch = igetch();
+	switch (ch) {
+	case '\r':
+	    ch = '=';
+	case '=':
+	case '+':
+	case '-':
+	case '*':
+	case '/':
+	    ccount(&a, atof(b), cmode);
+	    flo = 0;
+	    b[0] = '0';
+	    b[1] = 0;
+	    move(b_lines - 1, 0);
+	    snprintf(buf, sizeof(buf), "[%13.2f] [%c] ", a, ch);
+	    outs(buf);
+	    break;
+	case '.':
+	    if (!flo)
+		flo = 1;
+	    else
+		break;
+	case '1':
+	case '2':
+	case '3':
+	case '4':
+	case '5':
+	case '6':
+	case '7':
+	case '8':
+	case '9':
+	case '0':
+	    if (strlen(b) > 13)
+		break;
+	    if (flo || b[0] != '0')
+		snprintf(b, sizeof(b), "%s%c", b, ch);
+	    else
+		b[0] = ch;
+	    move(b_lines - 1, 0);
+	    snprintf(buf, sizeof(buf), "[%13s] [%c]", b, mode[(int)cmode]);
+	    outs(buf);
+	    break;
+	case 'q':
+	    return 0;
+	}
+
+	switch (ch) {
+	case '=':
+	    a = 0;
+	    cmode = 0;
+	    break;
+	case '+':
+	    cmode = 2;
+	    break;
+	case '-':
+	    cmode = 3;
+	    break;
+	case '*':
+	    cmode = 4;
+	    break;
+	case '/':
+	    cmode = 5;
+	    break;
+	}
+    }
+}
diff --git a/pttbbs/mbbsd/calendar.c b/pttbbs/mbbsd/calendar.c
new file mode 100644
index 00000000..3faed16a
--- /dev/null
+++ b/pttbbs/mbbsd/calendar.c
@@ -0,0 +1,312 @@
+/* $Id$ */
+#include "bbs.h"
+
+typedef struct event_t {
+    int             year, month, day, days;
+    int             color;
+    char           *content;
+    struct event_t *next;
+}               event_t;
+
+static int
+MonthDay(int m, int leap)
+{
+    int      day[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
+
+    return leap && m == 2 ? 29 : day[m - 1];
+}
+
+static int
+IsLeap(int y)
+{
+    if (y % 400 == 0 || (y % 4 == 0 && y % 100 != 0))
+	return 1;
+    else
+	return 0;
+}
+
+static int
+Days(int y, int m, int d)
+{
+    int             i, w;
+
+    w = 1 + 365 * (y - 1)
+	+ ((y - 1) / 4) - ((y - 1) / 100) + ((y - 1) / 400)
+	+ d - 1;
+    for (i = 1; i < m; i++)
+	w += MonthDay(i, IsLeap(y));
+    return w;
+}
+
+static int
+ParseDate(char *date, event_t * t)
+{
+    char           *y, *m, *d;
+
+    y = strtok(date, "/");
+    m = strtok(NULL, "/");
+    d = strtok(NULL, "");
+    if (!y || !m || !d)
+	return 1;
+
+    t->year = atoi(y);
+    t->month = atoi(m);
+    t->day = atoi(d);
+    if (t->year < 1 || t->month < 1 || t->month > 12 ||
+	t->day < 1 || t->day > 31)
+	return 1;
+    t->days = Days(t->year, t->month, t->day);
+    return 0;
+}
+
+static int
+ParseColor(char *color)
+{
+    struct {
+	char           *str;
+	int             val;
+    }               c[] = {
+	{
+	    "black", 0
+	},
+	{
+	    "red", 1
+	},
+	{
+	    "green", 2
+	},
+	{
+	    "yellow", 3
+	},
+	{
+	    "blue", 4
+	},
+	{
+	    "magenta", 5
+	},
+	{
+	    "cyan", 6
+	},
+	{
+	    "white", 7
+	}
+    };
+    int             i;
+
+    for (i = 0; (unsigned)i < sizeof(c) / sizeof(c[0]); i++)
+	if (strcasecmp(color, c[i].str) == 0)
+	    return c[i].val;
+    return 7;
+}
+
+static void
+InsertEvent(event_t * head, event_t * t)
+{
+    event_t        *p;
+
+    for (p = head; p->next && p->next->days < t->days; p = p->next);
+    t->next = p->next;
+    p->next = t;
+}
+
+static void
+FreeEvent(event_t * e)
+{
+    event_t        *n;
+
+    while (e) {
+	n = e->next;
+	free(e);
+	e = n;
+    }
+}
+
+static event_t *
+ReadEvent(int today)
+{
+    FILE           *fp;
+    char            buf[256];
+    static event_t  head;
+
+    head.next = NULL;
+    setcalfile(buf, cuser.userid);
+    fp = fopen(buf, "r");
+    if (fp) {
+	while (fgets(buf, sizeof(buf), fp)) {
+	    char           *date, *color, *content;
+	    event_t        *t;
+
+	    if (buf[0] == '#')
+		continue;
+
+	    date = strtok(buf, " \t\n");
+	    color = strtok(NULL, " \t\n");
+	    content = strtok(NULL, "\n");
+	    if (!date || !color || !content)
+		continue;
+
+	    t = malloc(sizeof(event_t));
+	    if (ParseDate(date, t) || t->days < today) {
+		free(t);
+		continue;
+	    }
+	    t->color = ParseColor(color) + 30;
+	    for (; *content == ' ' || *content == '\t'; content++);
+	    t->content = strdup(content);
+	    InsertEvent(&head, t);
+	}
+	fclose(fp);
+    }
+    return head.next;
+}
+
+static char   **
+AllocCalBuffer(int line, int len)
+{
+    int             i;
+    char          **p;
+
+    p = malloc(sizeof(char *) * line);
+    p[0] = malloc(sizeof(char) * line * len);
+    for (i = 1; i < line; i++)
+	p[i] = p[i - 1] + len;
+    return p;
+}
+
+static void
+FreeCalBuffer(char **buf)
+{
+    free(buf[0]);
+    free(buf);
+}
+
+#define CALENDAR_COLOR  "\33[0;30;47m"
+#define HEADER_COLOR    "\33[1;44m"
+#define HEADER_SUNDAY_COLOR    "\33[31m"
+#define HEADER_DAY_COLOR       "\33[33m"
+
+static int
+GenerateCalendar(char **buf, int y, int m, int today, event_t * e)
+{
+    char    *week_str[7] = {"日", "一", "二", "三", "四", "五", "六"};
+    char    *month_color[12] = {
+	"\33[1;32m", "\33[1;33m", "\33[1;35m", "\33[1;36m",
+	"\33[1;32m", "\33[1;33m", "\33[1;35m", "\33[1;36m",
+	"\33[1;32m", "\33[1;33m", "\33[1;35m", "\33[1;36m"
+    };
+    char    *month_str[12] = {
+	"一月  ", "二月  ", "三月  ", "四月  ", "五月  ", "六月  ",
+	"七月  ", "八月  ", "九月  ", "十月  ", "十一月", "十二月"
+    };
+
+    char           *p, attr1[16], *attr2;
+    int             i, d, w, line = 0, first_day = Days(y, m, 1);
+
+
+    /* week day banner */
+    p = buf[line];
+    p += sprintf(p, "    %s%s%s%s", HEADER_COLOR, HEADER_SUNDAY_COLOR,
+		 week_str[0], HEADER_DAY_COLOR);
+    for (i = 1; i < 7; i++)
+	p += sprintf(p, " %s", week_str[i]);
+    p += sprintf(p, "\33[m");
+
+    /* indent for first line */
+    p = buf[++line];
+    p += sprintf(p, "    %s", CALENDAR_COLOR);
+    for (i = 0, w = first_day % 7; i < w; i++)
+	p += sprintf(p, "   ");
+
+    /* initial event */
+    for (; e && e->days < first_day; e = e->next);
+
+    d = MonthDay(m, IsLeap(y));
+    for (i = 1; i <= d; i++, w = (w + 1) % 7) {
+	attr1[0] = 0;
+	attr2 = "";
+	while (e && e->days == first_day + i - 1) {
+	    sprintf(attr1, "\33[1;%dm", e->color);
+	    attr2 = CALENDAR_COLOR;
+	    e = e->next;
+	}
+	if (today == first_day + i - 1) {
+	    strlcpy(attr1, "\33[1;37;42m", sizeof(attr1));
+	    attr2 = CALENDAR_COLOR;
+	}
+	p += sprintf(p, "%s%2d%s", attr1, i, attr2);
+
+	if (w == 6) {
+	    p += sprintf(p, "\33[m");
+	    p = buf[++line];
+	    /* show month */
+	    if (line >= 2 && line <= 4)
+		p += sprintf(p, "%s%2.2s\33[m  %s", month_color[m - 1],
+			     month_str[m - 1] + (line - 2) * 2,
+			     CALENDAR_COLOR);
+	    else if (i < d)
+		p += sprintf(p, "    %s", CALENDAR_COLOR);
+	} else
+	    *p++ = ' ';
+    }
+
+    /* fill up the last line */
+    if (w) {
+	for (w = 7 - w; w; w--)
+	    p += sprintf(p, w == 1 ? "  " : "   ");
+	p += sprintf(p, "\33[m");
+    }
+    return line + 1;
+}
+
+int
+calendar()
+{
+    char          **buf;
+    struct tm       snow;
+    int             i, y, m, today, lines = 0;
+    event_t        *head = NULL, *e = NULL;
+
+    /* initialize date */
+    memcpy(&snow, localtime(&now), sizeof(struct tm));
+    today = Days(snow.tm_year + 1900, snow.tm_mon + 1, snow.tm_mday);
+    y = snow.tm_year + 1900, m = snow.tm_mon + 1;
+
+    /* read event */
+    head = e = ReadEvent(today);
+
+    /* generate calendar */
+    buf = AllocCalBuffer(22, 256);
+    for (i = 0; i < 22; i++)
+	sprintf(buf[i], "%24s", "");
+    for (i = 0; i < 3; i++) {
+	lines += GenerateCalendar(buf + lines, y, m, today, e) + 1;
+	if (m == 12)
+	    y++, m = 1;
+	else
+	    m++;
+    }
+
+    /* output */
+    clear();
+    outc('\n');
+    for (i = 0; i < 22; i++) {
+	outs(buf[i]);
+	if (i == 0) {
+	    prints("\t\33[1;37m現在是 %d.%02d.%02d %2d:%02d:%02d%cm\33[m",
+		   snow.tm_year + 1900, snow.tm_mon + 1, snow.tm_mday,
+		   (snow.tm_hour == 0 || snow.tm_hour == 12) ?
+		   12 : snow.tm_hour % 12, snow.tm_min, snow.tm_sec,
+		   snow.tm_hour >= 12 ? 'p' : 'a');
+	} else if (i >= 2 && e) {
+	    prints("\t\33[1;37m(\33[%dm%3d\33[37m)\33[m %02d/%02d %s",
+		   e->color, e->days - today,
+		   e->month, e->day, e->content);
+	    e = e->next;
+	}
+	outc('\n');
+    }
+    FreeEvent(head);
+    FreeCalBuffer(buf);
+    pressanykey();
+    return 0;
+}
diff --git a/pttbbs/mbbsd/card.c b/pttbbs/mbbsd/card.c
new file mode 100644
index 00000000..2ed12260
--- /dev/null
+++ b/pttbbs/mbbsd/card.c
@@ -0,0 +1,660 @@
+/* $Id$ */
+#include "bbs.h"
+
+static int
+card_remain(int cards[])
+{
+    int             i, temp = 0;
+
+    for (i = 0; i < 52; i++)
+	temp += cards[i];
+    if (temp == 52)
+	return 1;
+    return 0;
+}
+
+/* 0 Spare ,  1 heart , ...3 dimon */
+static int
+card_flower(int card)
+{
+    return (card / 13);
+}
+
+/* 1...13 */
+static int
+card_number(int card)
+{
+    return (card % 13 + 1);
+}
+
+static int
+card_select(int *now)
+{
+    char           *cc[2] = {"\033[44m            \033[m",
+    "\033[1;33;41m     △     \033[m"};
+
+    while (1) {
+	move(20, 0);
+	clrtoeol();
+	prints("%s%s%s%s%s", (*now == 0) ? cc[1] : cc[0],
+	       (*now == 1) ? cc[1] : cc[0],
+	       (*now == 2) ? cc[1] : cc[0],
+	       (*now == 3) ? cc[1] : cc[0],
+	       (*now == 4) ? cc[1] : cc[0]);
+	switch (egetch()) {
+	case 'Q':
+	case 'q':
+	    return 0;
+	case '+':
+	case ',':
+	    return 1;
+	case '\r':
+	    return -1;
+	case KEY_LEFT:
+	    *now = (*now + 4) % 5;
+	    break;
+	case KEY_RIGHT:
+	    *now = (*now + 1) % 5;
+	    break;
+	case '1':
+	    *now = 0;
+	    break;
+	case '2':
+	    *now = 1;
+	    break;
+	case '3':
+	    *now = 2;
+	    break;
+	case '4':
+	    *now = 3;
+	    break;
+	case '5':
+	    *now = 4;
+	    break;
+	}
+    }
+}
+
+static void
+card_display(int cline, int number, int flower, int show)
+{
+    int             color = 31;
+    char           *cn[13] = {"Ａ", "２", "３", "４", "５", "６",
+    "７", "８", "９", "10", "Ｊ", "Ｑ", "Ｋ"};
+    if (flower == 0 || flower == 3)
+	color = 36;
+    if ((show < 0) && (cline > 1 && cline < 8))
+	prints("│\033[1;33;42m※※※※\033[m│");
+    else
+	switch (cline) {
+	case 1:
+	    prints("╭────╮");
+	    break;
+	case 2:
+	    prints("│\033[1;%dm%s\033[m      │", color, cn[number - 1]);
+	    break;
+	case 3:
+	    if (flower == 1)
+		prints("│\033[1;%dm◢◣◢◣\033[m│", color);
+	    else
+		prints("│\033[1;%dm  ◢◣  \033[m│", color);
+	    break;
+	case 4:
+	    if (flower == 1)
+		prints("│\033[1;%dm████\033[m│", color);
+	    else if (flower == 3)
+		prints("│\033[1;%dm◣██◢\033[m│", color);
+	    else
+		prints("│\033[1;%dm◢██◣\033[m│", color);
+	    break;
+	case 5:
+	    if (flower == 0)
+		prints("│\033[1;%dm████\033[m│", color);
+	    else if (flower == 3)
+		prints("│\033[1;%dm█◥◤█\033[m│", color);
+	    else
+		prints("│\033[1;%dm◥██◤\033[m│", color);
+	    break;
+	case 6:
+	    if (flower == 0)
+		prints("│\033[1;%dm  ◢◣  \033[m│", color);
+	    else if (flower == 3)
+		prints("│\033[1;%dm◥◢◣◤\033[m│", color);
+	    else
+		prints("│\033[1;%dm  ◥◤  \033[m│", color);
+	    break;
+	case 7:
+	    prints("│      \033[1;%dm%s\033[m│", color, cn[number - 1]);
+	    break;
+	case 8:
+	    prints("╰────╯");
+	    break;
+	}
+}
+
+static void
+card_show(int cpu[], int c[], int me[], int m[])
+{
+    int             i, j;
+
+    for (j = 0; j < 8; j++) {
+	move(2 + j, 0);
+	clrtoeol();
+	for (i = 0; i < 5 && cpu[i] >= 0; i++)
+	    card_display(j + 1, card_number(cpu[i]),
+			 card_flower(cpu[i]), c[i]);
+    }
+
+    for (j = 0; j < 8; j++) {
+	move(11 + j, 0);
+	clrtoeol();
+	for (i = 0; i < 5 && me[i] >= 0; i++)
+	    card_display(j + 1, card_number(me[i]), card_flower(me[i]), m[i]);
+    }
+}
+static void
+card_new(int cards[])
+{
+    memset(cards, 0, sizeof(int) * 52);
+}
+
+static int
+card_give(int cards[])
+{
+    int             i, error;
+    for (error = 0, i = rand() % 52; cards[i] == 1 && error < 52; error++, i = rand() % 52);
+    if (error == 52)
+	card_new(cards);
+    /* Ptt: 這邊有 dead lock 的問題 */
+    cards[i] = 1;
+    return i;
+}
+
+static void
+card_start(char name[])
+{
+    clear();
+    stand_title(name);
+    move(1, 0);
+    prints("    \033[1;33;41m   電  腦   \033[m");
+    move(10, 0);
+    prints("\033[1;34;44m◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼"
+	   "◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆\033[m");
+    move(19, 0);
+    prints("    \033[1;37;42m   自  己   \033[m");
+}
+
+static int
+card_99_add(int i, int aom, int count)
+{
+    if (i == 4 || i == 5 || i == 11)
+	return count;
+    else if (i == 12)
+	return count + 20 * aom;
+    else if (i == 10)
+	return count + 10 * aom;
+    else if (i == 13)
+	return 99;
+    else
+	return count + i;
+}
+
+static int
+card_99_cpu(int cpu[], int *count)
+{
+    int             stop = -1;
+    int             twenty = -1;
+    int             ten = -1;
+    int             kill = -1;
+    int             temp, num[10];
+    int             other = -1;
+    int             think = 99 - (*count);
+    int             i, j;
+
+    for (i = 0; i < 10; i++)
+	num[i] = -1;
+    for (i = 0; i < 5; i++) {
+	temp = card_number(cpu[i]);
+	if (temp == 4 || temp == 5 || temp == 11)
+	    stop = i;
+	else if (temp == 12)
+	    twenty = i;
+	else if (temp == 10)
+	    ten = i;
+	else if (temp == 13)
+	    kill = i;
+	else {
+	    other = i;
+	    num[temp] = i;
+	}
+    }
+    for (j = 9; j > 0; j--)
+	if (num[j] >= 0 && j != 4 && j != 5 && think >= j) {
+	    (*count) += j;
+	    return num[j];
+	}
+    if ((think >= 20) && (twenty >= 0)) {
+	(*count) += 20;
+	return twenty;
+    } else if ((think >= 10) && (ten >= 0)) {
+	(*count) += 10;
+	return ten;
+    } else if (stop >= 0)
+	return stop;
+    else if (kill >= 0) {
+	(*count) = 99;
+	return kill;
+    } else if (ten >= 0) {
+	(*count) -= 10;
+	return ten;
+    } else if (twenty >= 0) {
+	(*count) -= 20;
+	return twenty;
+    } else {
+	(*count) += card_number(cpu[0]);
+	return 0;
+    }
+}
+
+int
+card_99()
+{
+    int             i, j, turn;
+    int             cpu[5], c[5], me[5], m[5];
+    int             cards[52];
+    int             count = 0;
+    char           *ff[4] = {"\033[1;36m黑桃", "\033[1;31m紅心",
+    "\033[1;31m方塊", "\033[1;36m黑花"};
+    char           *cn[13] = {"Ａ", "２", "３", "４", "５", "６",
+    "７", "８", "９", "10", "Ｊ", "Ｑ", "Ｋ"};
+    for (i = 0; i < 5; i++)
+	cpu[i] = c[i] = me[i] = m[i] = -1;
+    setutmpmode(CARD_99);
+    card_start("天長地久");
+    card_new(cards);
+    for (i = 0; i < 5; i++) {
+	cpu[i] = card_give(cards);
+	me[i] = card_give(cards);
+	m[i] = 1;
+    }
+    card_show(cpu, c, me, m);
+    j = 0;
+    turn = 1;
+    move(21, 0);
+    clrtoeol();
+    prints("[0]目前 %d , 殘 %d 點\n", count, 99 - count);
+    prints("左右鍵移動游標, [Enter]確定, [ + ]表加二十(加十), [Q/q]放棄遊戲");
+    while (1) {
+	i = card_select(&j);
+	if (i == 0)		/* 放棄遊戲 */
+	    return 0;
+	count = card_99_add(card_number(me[j]), i, count);
+	move(21 + (turn / 2) % 2, 0);
+	clrtoeol();
+	prints("[%d]您出 %s%s\033[m 目前 \033[1;31m%d/\033[34m%d\033[m 點",
+	       turn, ff[card_flower(me[j])],
+	       cn[card_number(me[j]) - 1], count, 99 - count);
+	me[j] = card_give(cards);
+	turn++;
+	if (count < 0)
+	    count = 0;
+	card_show(cpu, c, me, m);
+	pressanykey();
+	if (count > 99) {
+	    move(22, 0);
+	    clrtoeol();
+	    prints("[%d]結果..YOU LOSS..目前 \033[1;31m%d/\033[34m%d\033[m 點",
+		   turn, count, 99 - count);
+	    pressanykey();
+	    return 0;
+	}
+	i = card_99_cpu(cpu, &count);
+	move(21 + (turn / 2 + 1) % 2, 40);
+	prints("[%d]電腦出 %s%s\033[m 目前 \033[1;31m%d/\033[34m%d\033[m 點",
+	       turn, ff[card_flower(cpu[i])],
+	       cn[card_number(cpu[i]) - 1], count, 99 - count);
+	cpu[i] = card_give(cards);
+	turn++;
+	if (count < 0)
+	    count = 0;
+	if (count > 99) {
+	    move(22, 0);
+	    clrtoeol();
+	    prints("[%d]結果..YOU WIN!..目前 \033[1;31m%d/\033[34m%d\033[m 點",
+		   turn, count, 99 - count);
+	    pressanykey();
+	    return 0;
+	}
+	if (!card_remain(cards)) {
+	    card_new(cards);
+	    for (i = 0; i < 5; i++) {
+		cards[me[i]] = 1;
+		cards[cpu[i]] = 1;
+	    }
+	}
+    }
+}
+
+#define PMONEY     (10)
+#define TEN_HALF   (5)		/* 十點半的Ticket */
+#define JACK      (10)		/* 黑傑克的Ticket */
+#define NINE99    (99)		/* 99    的Ticket */
+
+static int
+game_log(int type, int money)
+{
+    FILE           *fp;
+
+    if (money > 0)
+	demoney(money);
+
+    switch (type) {
+    case JACK:
+	fp = fopen(BBSHOME "/etc/card/jack.log", "a");
+	if (!fp)
+	    return 0;
+	fprintf(fp, "%s win:%d\n", cuser.userid, money);
+	fclose(fp);
+	break;
+    case TEN_HALF:
+	fp = fopen(BBSHOME "/etc/card/tenhalf.log", "a");
+	if (!fp)
+	    return 0;
+	fprintf(fp, "%s win:%d\n", cuser.userid, money);
+	fclose(fp);
+	break;
+    }
+    return 0;
+}
+
+static int
+card_double_ask()
+{
+    char            buf[100], buf2[3];
+
+    snprintf(buf, sizeof(buf),
+	     "[ %s ]您現在共有 %d P幣,  現在要分組(加收 %d 元)嗎? [y/N]",
+	     cuser.userid, cuser.money, JACK);
+    reload_money();
+    if (cuser.money < JACK)
+	return 0;
+    getdata(20, 0, buf, buf2, sizeof(buf2), LCECHO);
+    if (buf2[0] == 'y' || buf2[0] == 'Y')
+	return 1;
+    return 0;
+}
+
+static int
+card_ask()
+{
+    char            buf[100], buf2[3];
+
+    snprintf(buf, sizeof(buf), "[ %s ]您現在共有 %d P幣,  還要加牌嗎? [y/N]",
+	    cuser.userid, cuser.money);
+    getdata(20, 0, buf, buf2, sizeof(buf2), LCECHO);
+    if (buf2[0] == 'y' || buf2[0] == 'Y')
+	return 1;
+    return 0;
+}
+
+static int
+card_alls_lower(int all[])
+{
+    int             i, count = 0;
+    for (i = 0; i < 5 && all[i] >= 0; i++)
+	if (card_number(all[i]) <= 10)
+	    count += card_number(all[i]);
+	else
+	    count += 10;
+    return count;
+}
+
+static int
+card_alls_upper(int all[])
+{
+    int             i, count;
+
+    count = card_alls_lower(all);
+    for (i = 0; i < 5 && all[i] >= 0 && count <= 11; i++)
+	if (card_number(all[i]) == 1)
+	    count += 10;
+    return count;
+}
+
+static int
+card_jack(int *db)
+{
+    int             i, j;
+    int             cpu[5], c[5], me[5], m[5];
+    int             cards[52];
+
+    for (i = 0; i < 5; i++)
+	cpu[i] = c[i] = me[i] = m[i] = -1;
+
+    if ((*db) < 0) {
+	card_new(cards);
+	card_start("黑傑克");
+	for (i = 0; i < 2; i++) {
+	    cpu[i] = card_give(cards);
+	    me[i] = card_give(cards);
+	}
+    } else {
+	card_start("黑傑克DOUBLE追加局");
+	cpu[0] = card_give(cards);
+	cpu[1] = card_give(cards);
+	me[0] = *db;
+	me[1] = card_give(cards);
+    }
+    c[1] = m[0] = m[1] = 1;
+    card_show(cpu, c, me, m);
+    if ((card_number(me[0]) == 0 && card_number(me[1]) == 12) ||
+	(card_number(me[1]) == 0 && card_number(me[0]) == 12)) {
+	if (card_flower(me[0]) == 0 && card_flower(me[1]) == 0) {
+	    move(b_lines - 1, 0);
+	    prints("非常不錯唷! (超級黑傑克!! 加 %d 元)", JACK * 10);
+	    game_log(JACK, JACK * 10);
+	    pressanykey();
+	    return 0;
+	} else {
+	    move(b_lines - 1, 0);
+	    prints("很不錯唷! (黑傑克!! 加 %d 元)", JACK * 5);
+	    game_log(JACK, JACK * 5);
+	    pressanykey();
+	    return 0;
+	}
+    }
+    if ((card_number(cpu[0]) == 0 && card_number(cpu[1]) == 12) ||
+	(card_number(cpu[1]) == 0 && card_number(cpu[0]) == 12)) {
+	c[0] = 1;
+	card_show(cpu, c, me, m);
+	move(b_lines - 1, 0);
+	prints("嘿嘿...不好意思....黑傑克!!");
+	game_log(JACK, 0);
+	pressanykey();
+	return 0;
+    }
+    if ((*db < 0) && (card_number(me[0]) == card_number(me[1])) &&
+	(card_double_ask())) {
+	*db = me[1];
+	me[1] = card_give(cards);
+	card_show(cpu, c, me, m);
+    }
+    i = 2;
+    while (i < 5 && card_ask()) {
+	me[i] = card_give(cards);
+	m[i] = 1;
+	card_show(cpu, c, me, m);
+	if (card_alls_lower(me) > 21) {
+	    move(b_lines - 1, 0);
+	    prints("嗚嗚...爆掉了!");
+	    game_log(JACK, 0);
+	    pressanykey();
+	    return 0;
+	}
+	i++;
+	if ((i == 3) && (card_number(me[0]) == 7) &&
+	    (card_number(me[1]) == 7) && (card_number(me[2]) == 7)) {
+	    move(b_lines - 1, 0);
+	    prints("很不錯唷! (幸運七號!! 加 %d 元)", JACK * 7);
+	    game_log(JACK, JACK * 7);
+	    pressanykey();
+	    return 0;
+	}
+    }
+    if (i == 5) {		/* 過五關 */
+	move(b_lines - 1, 0);
+	prints("好厲害唷! 過五關嘍! 加P幣 %d 元!", 5 * JACK);
+	game_log(JACK, JACK * 5);
+	pressanykey();
+	return 0;
+    }
+    j = 2;
+    c[0] = 1;
+    while ((card_alls_upper(cpu) < card_alls_upper(me)) ||
+	((card_alls_upper(cpu) == card_alls_upper(me) && j < i) && j < 5)) {
+	cpu[j] = card_give(cards);
+	c[j] = 1;
+	if (card_alls_lower(cpu) > 21) {
+	    card_show(cpu, c, me, m);
+	    move(b_lines - 1, 0);
+	    prints("呵呵...電腦爆掉了! 你贏了! 可得P幣 %d 元", JACK * 2);
+	    game_log(JACK, JACK * 2);
+	    pressanykey();
+	    return 0;
+	}
+	j++;
+    }
+    card_show(cpu, c, me, m);
+    move(b_lines - 1, 0);
+    prints("哇哇...電腦贏了!");
+    game_log(JACK, 0);
+    pressanykey();
+    return 0;
+}
+
+int
+g_card_jack()
+{
+    int             db;
+    char            buf[3];
+
+    setutmpmode(JACK_CARD);
+    while (1) {
+	reload_money();
+	if (cuser.money < JACK) {
+	    outs("您的錢不夠唷!去多發表些有意義的文章再來~~~");
+	    return 0;
+	}
+	getdata(b_lines - 1, 0, "確定要玩黑傑克嗎 一次十元唷?(Y/N)?[N]",
+		buf, 3, LCECHO);
+	if ((*buf != 'y') && (*buf != 'Y'))
+	    break;
+	else {
+	    db = -1;
+	    vice(PMONEY, "黑傑克");
+	    card_jack(&db);
+	    if (db >= 0)
+		card_jack(&db);
+	}
+    }
+    return 0;
+}
+
+static int
+card_all(int all[])
+{
+    int             i, count = 0;
+
+    for (i = 0; i < 5 && all[i] >= 0; i++)
+	if (card_number(all[i]) <= 10)
+	    count += 2 * card_number(all[i]);
+	else
+	    count += 1;
+    return count;
+}
+
+static int
+ten_helf()
+{
+    int             i, j;
+    int             cpu[5], c[5], me[5], m[5];
+    int             cards[52];
+
+    card_start("十點半");
+    card_new(cards);
+    for (i = 0; i < 5; i++)
+	cpu[i] = c[i] = me[i] = m[i] = -1;
+
+    cpu[0] = card_give(cards);
+    me[0] = card_give(cards);
+    m[0] = 1;
+    card_show(cpu, c, me, m);
+    i = 1;
+    while (i < 5 && card_ask()) {
+	me[i] = card_give(cards);
+	m[i] = 1;
+	card_show(cpu, c, me, m);
+	if (card_all(me) > 21) {
+	    move(b_lines - 1, 0);
+	    prints("嗚嗚...爆掉了!");
+	    game_log(TEN_HALF, 0);
+	    pressanykey();
+	    return 0;
+	}
+	i++;
+    }
+    if (i == 5) {		/* 過五關 */
+	move(b_lines - 1, 0);
+	prints("好厲害唷! 過五關嘍! 加P幣 %d 元!", 5 * PMONEY);
+	game_log(TEN_HALF, PMONEY * 5);
+	pressanykey();
+	return 0;
+    }
+    j = 1;
+    c[0] = 1;
+    while (j < 5 && ((card_all(cpu) < card_all(me)) ||
+		     (card_all(cpu) == card_all(me) && j < i))) {
+	cpu[j] = card_give(cards);
+	c[j] = 1;
+	if (card_all(cpu) > 21) {
+	    card_show(cpu, c, me, m);
+	    move(b_lines - 1, 0);
+	    prints("呵呵...電腦爆掉了! 你贏了! 可得P幣 %d 元", PMONEY * 2);
+	    game_log(TEN_HALF, PMONEY * 2);
+	    pressanykey();
+	    return 0;
+	}
+	j++;
+    }
+    card_show(cpu, c, me, m);
+    move(b_lines - 1, 0);
+    prints("哇哇...電腦贏了!");
+    game_log(TEN_HALF, 0);
+    pressanykey();
+    return 0;
+}
+
+int
+g_ten_helf()
+{
+    char            buf[3];
+
+    setutmpmode(TENHALF);
+    while (1) {
+	reload_money();
+	if (cuser.money < TEN_HALF) {
+	    outs("您的錢不夠唷!去多發表些有意義的文章再來~~~");
+	    return 0;
+	}
+	getdata(b_lines - 1, 0,
+		"\033[1;37m確定要玩十點半嗎 一次十元唷?(Y/N)?[N]\033[m",
+		buf, 3, LCECHO);
+	if (buf[0] != 'y' && buf[0] != 'Y')
+	    return 0;
+	else {
+	    vice(PMONEY, "十點半");
+	    ten_helf();
+	}
+    }
+    return 0;
+}
diff --git a/pttbbs/mbbsd/chat.c b/pttbbs/mbbsd/chat.c
new file mode 100644
index 00000000..55d3129d
--- /dev/null
+++ b/pttbbs/mbbsd/chat.c
@@ -0,0 +1,612 @@
+/* $Id$ */
+#include "bbs.h"
+
+static int      chatline, stop_line;
+static FILE    *flog;
+static void
+printchatline(char *str)
+{
+    move(chatline, 0);
+    if (*str == '>' && !PERM_HIDE(currutmp))
+	return;
+    else if (chatline < stop_line - 1)
+	chatline++;
+    else {
+	region_scroll_up(2, stop_line - 2);
+	move(stop_line - 2, 0);
+    }
+    outs(str);
+    outc('\n');
+    outs("→");
+
+    if (flog)
+	fprintf(flog, "%s\n", str);
+}
+
+static void
+chat_clear()
+{
+    for (chatline = 2; chatline < stop_line; chatline++) {
+	move(chatline, 0);
+	clrtoeol();
+    }
+    move(b_lines, 0);
+    clrtoeol();
+    move(chatline = 2, 0);
+    outs("→");
+}
+
+static void
+print_chatid(char *chatid)
+{
+    move(b_lines - 1, 0);
+    clrtoeol();
+    outs(chatid);
+    outc(':');
+}
+
+static int
+chat_send(int fd, char *buf)
+{
+    int             len;
+    char            genbuf[200];
+
+    snprintf(genbuf, sizeof(genbuf), "%s\n", buf);
+    len = strlen(genbuf);
+    return (send(fd, genbuf, len, 0) == len);
+}
+
+static char     chatroom[IDLEN];/* Chat-Room Name */
+
+static int
+chat_recv(int fd, char *chatid)
+{
+    static char     buf[512];
+    static int      bufstart = 0;
+    char            genbuf[200];
+    int             c, len;
+    char           *bptr;
+
+    len = sizeof(buf) - bufstart - 1;
+    if ((c = recv(fd, buf + bufstart, len, 0)) <= 0)
+	return -1;
+    c += bufstart;
+
+    bptr = buf;
+    while (c > 0) {
+	len = strlen(bptr) + 1;
+	if (len > c && (unsigned)len < (sizeof(buf)/ 2) )
+	    break;
+
+	if (*bptr == '/') {
+	    switch (bptr[1]) {
+	    case 'c':
+		chat_clear();
+		break;
+	    case 'n':
+		strncpy(chatid, bptr + 2, 8);
+		print_chatid(chatid);
+		clrtoeol();
+		break;
+	    case 'r':
+		strncpy(chatroom, bptr + 2, IDLEN - 1);
+		break;
+	    case 't':
+		move(0, 0);
+		clrtoeol();
+		snprintf(genbuf, sizeof(genbuf), "談天室 [%s]", chatroom);
+		prints("\033[1;37;46m %-21s \033[45m 話題：%-48s\033[m",
+		       genbuf, bptr + 2);
+	    }
+	} else
+	    printchatline(bptr);
+
+	c -= len;
+	bptr += len;
+    }
+
+    if (c > 0) {
+	strlcpy(genbuf, bptr, sizeof(genbuf));
+	strlcpy(buf, genbuf, sizeof(buf));
+	bufstart = len - 1;
+    } else
+	bufstart = 0;
+    return 0;
+}
+
+static int
+printuserent(userinfo_t * uentp)
+{
+    static char     uline[80];
+    static int      cnt;
+    char            pline[30];
+
+    if (!uentp) {
+	if (cnt)
+	    printchatline(uline);
+	bzero(uline, 80);
+	cnt = 0;
+	return 0;
+    }
+    if (!HAS_PERM(PERM_SYSOP) && !HAS_PERM(PERM_SEECLOAK) && uentp->invisible)
+	return 0;
+
+    snprintf(pline, sizeof(pline), "%-13s%c%-10s ", uentp->userid,
+	     uentp->invisible ? '#' : ' ',
+	     modestring(uentp, 1));
+    if (cnt < 2)
+	strcat(pline, "│");
+    strcat(uline, pline);
+    if (++cnt == 3) {
+	printchatline(uline);
+	memset(uline, 0, 80);
+	cnt = 0;
+    }
+    return 0;
+}
+
+static void
+chathelp(char *cmd, char *desc)
+{
+    char            buf[STRLEN];
+
+    snprintf(buf, sizeof(buf), "  %-20s- %s", cmd, desc);
+    printchatline(buf);
+}
+
+static void
+chat_help(char *arg)
+{
+    if (strstr(arg, " op")) {
+	printchatline("談天室管理員專用指令");
+	chathelp("[/f]lag [+-][ls]", "設定鎖定、秘密狀態");
+	chathelp("[/i]nvite <id>", "邀請 <id> 加入談天室");
+	chathelp("[/k]ick <id>", "將 <id> 踢出談天室");
+	chathelp("[/o]p <id>", "將 Op 的權力轉移給 <id>");
+	chathelp("[/t]opic <text>", "換個話題");
+	chathelp("[/w]all", "廣播 (站長專用)");
+    } else {
+	chathelp("[//]help", "MUD-like 社交動詞");
+	chathelp("[/.]help", "chicken 鬥雞用指令");
+	chathelp("[/h]elp op", "談天室管理員專用指令");
+	chathelp("[/a]ct <msg>", "做一個動作");
+	chathelp("[/b]ye [msg]", "道別");
+	chathelp("[/c]lear", "清除螢幕");
+	chathelp("[/j]oin <room>", "建立或加入談天室");
+	chathelp("[/l]ist [room]", "列出談天室使用者");
+	chathelp("[/m]sg <id> <msg>", "跟 <id> 說悄悄話");
+	chathelp("[/n]ick <id>", "將談天代號換成 <id>");
+	chathelp("[/p]ager", "切換呼叫器");
+	chathelp("[/q]uery", "查詢網友");
+	chathelp("[/r]oom", "列出一般談天室");
+	chathelp("[/u]sers", "列出站上使用者");
+	chathelp("[/w]ho", "列出本談天室使用者");
+	chathelp("[/w]hoin <room>", "列出談天室<room> 的使用者");
+    }
+}
+
+static void
+chat_date()
+{
+    char            genbuf[200];
+
+    snprintf(genbuf, sizeof(genbuf),
+	     "◆ " BBSNAME "標準時間: %s", Cdate(&now));
+    printchatline(genbuf);
+}
+
+static void
+chat_pager()
+{
+    char            genbuf[200];
+
+    char           *msgs[] = {"關閉", "打開", "拔掉", "防水", "好友"};
+    snprintf(genbuf, sizeof(genbuf), "◆ 您的呼叫器:[%s]",
+	     msgs[currutmp->pager = (currutmp->pager + 1) % 5]);
+    printchatline(genbuf);
+}
+
+static void
+chat_query(char *arg)
+{
+    char           *uid;
+    int             tuid;
+
+    printchatline("");
+    strtok(arg, str_space);
+    if ((uid = strtok(NULL, str_space)) && (tuid = getuser(uid))) {
+	char            buf[128], *ptr;
+	FILE           *fp;
+
+	snprintf(buf, sizeof(buf), "%s(%s) 共上站 %d 次，發表過 %d 篇文章",
+		 xuser.userid, xuser.username,
+		 xuser.numlogins, xuser.numposts);
+	printchatline(buf);
+
+	snprintf(buf, sizeof(buf),
+		 "最近(%s)從[%s]上站", Cdate(&xuser.lastlogin),
+		(xuser.lasthost[0] ? xuser.lasthost : "(不詳)"));
+	printchatline(buf);
+
+	sethomefile(buf, xuser.userid, fn_plans);
+	if ((fp = fopen(buf, "r"))) {
+	    tuid = 0;
+	    while (tuid++ < MAX_QUERYLINES && fgets(buf, 128, fp)) {
+		if ((ptr = strchr(buf, '\n')))
+		    ptr[0] = '\0';
+		printchatline(buf);
+	    }
+	    fclose(fp);
+	}
+    } else
+	printchatline(err_uid);
+}
+
+static void
+chat_users()
+{
+    printchatline("");
+    printchatline("【 " BBSNAME "的遊客列表 】");
+    printchatline(msg_shortulist);
+
+    if (apply_ulist(printuserent) == -1)
+	printchatline("空無一人");
+    printuserent(NULL);
+}
+
+typedef struct chat_command_t {
+    char           *cmdname;	/* Chatroom command length */
+    void            (*cmdfunc) ();	/* Pointer to function */
+}               chat_command_t;
+
+static chat_command_t chat_cmdtbl[] = {
+    {"help", chat_help},
+    {"clear", chat_clear},
+    {"date", chat_date},
+    {"pager", chat_pager},
+    {"query", chat_query},
+    {"users", chat_users},
+    {NULL, NULL}
+};
+
+static int
+chat_cmd_match(char *buf, char *str)
+{
+    while (*str && *buf && !isspace(*buf))
+	if (tolower(*buf++) != *str++)
+	    return 0;
+    return 1;
+}
+
+static int
+chat_cmd(char *buf, int fd)
+{
+    int             i;
+
+    if (*buf++ != '/')
+	return 0;
+
+    for (i = 0; chat_cmdtbl[i].cmdname; i++) {
+	if (chat_cmd_match(buf, chat_cmdtbl[i].cmdname)) {
+	    chat_cmdtbl[i].cmdfunc(buf);
+	    return 1;
+	}
+    }
+    return 0;
+}
+
+#if 0
+static char    *
+select_address()
+{
+    int             c;
+    FILE           *fp;
+    char            nametab[25][90];
+    char            iptab[25][18], buf[80];
+
+    move(1, 0);
+    clrtobot();
+    outs("\n          \033[36m【找個地方抬抬槓吧!】\033[m "
+	 "◎  【以下為本站登記有案的茶樓】          \n");
+    trans_buffer[0] = 0;
+    if ((fp = fopen("etc/teashop", "r"))) {
+	for (c = 0; fscanf(fp, "%s%s", iptab[c], nametab[c]) != EOF; c++) {
+	    snprintf(buf, sizeof(buf),
+		     "\n            (\033[36m%d\033[0m) %-30s     [%s]",
+		     c + 1, nametab[c], iptab[c]);
+	    outs(buf);
+	}
+	getdata(20, 10, "★\033[32m 請選擇，[0]離開：\033[0m", buf, 3,
+		LCECHO);
+	if (buf[1])
+	    buf[0] = (buf[0] + 1) * 10 + (buf[1] - '1');
+	else
+	    buf[0] -= '1';
+	if (buf[0] >= 0 && buf[0] < c)
+	    strlcpy(trans_buffer, iptab[(int)buf[0]], sizeof(trans_buffer));
+    } else {
+	outs("本站沒有登記任何合格茶樓");
+	pressanykey();
+    }
+    return trans_buffer;
+}
+#endif
+
+#define MAXLASTCMD 6
+static int      chatid_len = 10;
+
+int
+t_chat()
+{
+    char            inbuf[80], chatid[20], lastcmd[MAXLASTCMD][80], *ptr = "";
+    struct sockaddr_in sin;
+    struct hostent *h;
+    int             cfd, cmdpos, ch;
+    int             currchar;
+    int             newmail;
+    int             chatting = YEA;
+    char            fpath[80];
+    char            genbuf[200];
+    char            roomtype;
+
+    outs("                     驅車前往 請梢候........         ");
+    if (!(h = gethostbyname("localhost"))) {
+	perror("gethostbyname");
+	return -1;
+    }
+    memset(&sin, 0, sizeof sin);
+#ifdef __FreeBSD__
+    sin.sin_len = sizeof(sin);
+#endif
+    sin.sin_family = PF_INET;
+    memcpy(&sin.sin_addr, h->h_addr, h->h_length);
+    sin.sin_port = htons(NEW_CHATPORT);
+    cfd = socket(sin.sin_family, SOCK_STREAM, 0);
+    if (!(connect(cfd, (struct sockaddr *) & sin, sizeof sin)))
+	roomtype = 1;
+    else {
+	sin.sin_port = CHATPORT;
+	cfd = socket(sin.sin_family, SOCK_STREAM, 0);
+	if (!(connect(cfd, (struct sockaddr *) & sin, sizeof sin)))
+	    roomtype = 2;
+	else {
+	    outs("\n              "
+		 "哇! 沒人在那邊耶...要有那地方的人先去開門啦!...");
+	    system("bin/xchatd");
+	    pressanykey();
+	    return -1;
+	}
+    }
+
+    while (1) {
+	getdata(b_lines - 1, 0, "請輸入聊天代號：", inbuf, 9, DOECHO);
+	snprintf(chatid, sizeof(chatid),
+		 "%s", (inbuf[0] ? inbuf : cuser.userid));
+	chatid[8] = '\0';
+	/*
+	 * 舊格式:    /! 使用者編號 使用者等級 UserID ChatID 新格式:    /!
+	 * UserID ChatID Password
+	 */
+	if (roomtype == 1)
+	    snprintf(inbuf, sizeof(inbuf), "/! %s %s %s",
+		     cuser.userid, chatid, cuser.passwd);
+	else
+	    snprintf(inbuf, sizeof(inbuf), "/! %d %d %s %s",
+		     usernum, cuser.userlevel, cuser.userid, chatid);
+	chat_send(cfd, inbuf);
+	if (recv(cfd, inbuf, 3, 0) != 3)
+	    return 0;
+	if (!strcmp(inbuf, CHAT_LOGIN_OK))
+	    break;
+	else if (!strcmp(inbuf, CHAT_LOGIN_EXISTS))
+	    ptr = "這個代號已經有人用了";
+	else if (!strcmp(inbuf, CHAT_LOGIN_INVALID))
+	    ptr = "這個代號是錯誤的";
+	else if (!strcmp(inbuf, CHAT_LOGIN_BOGUS))
+	    ptr = "請勿派遣分身進入聊天室 !!";
+
+	move(b_lines - 2, 0);
+	outs(ptr);
+	clrtoeol();
+	bell();
+    }
+
+    add_io(cfd, 0);
+
+    newmail = currchar = 0;
+    cmdpos = -1;
+    memset(lastcmd, 0, MAXLASTCMD * 80);
+
+    setutmpmode(CHATING);
+    currutmp->in_chat = YEA;
+    strlcpy(currutmp->chatid, chatid, sizeof(currutmp->chatid));
+
+    clear();
+    chatline = 2;
+    strlcpy(inbuf, chatid, sizeof(inbuf));
+    stop_line = t_lines - 3;
+
+    move(stop_line, 0);
+    outs(msg_seperator);
+    move(1, 0);
+    outs(msg_seperator);
+    print_chatid(chatid);
+    memset(inbuf, 0, 80);
+
+    sethomepath(fpath, cuser.userid);
+    strlcpy(fpath, tempnam(fpath, "chat_"), sizeof(fpath));
+    flog = fopen(fpath, "w");
+
+    while (chatting) {
+	move(b_lines - 1, currchar + chatid_len);
+	ch = igetkey();
+
+	switch (ch) {
+	case KEY_DOWN:
+	    cmdpos += MAXLASTCMD - 2;
+	case KEY_UP:
+	    cmdpos++;
+	    cmdpos %= MAXLASTCMD;
+	    strlcpy(inbuf, lastcmd[cmdpos], sizeof(inbuf));
+	    move(b_lines - 1, chatid_len);
+	    clrtoeol();
+	    outs(inbuf);
+	    currchar = strlen(inbuf);
+	    continue;
+	case KEY_LEFT:
+	    if (currchar)
+		--currchar;
+	    continue;
+	case KEY_RIGHT:
+	    if (inbuf[currchar])
+		++currchar;
+	    continue;
+	}
+
+	if (!newmail && currutmp->mailalert) {
+	    newmail = 1;
+	    printchatline("◆ 噹！郵差又來了...");
+	}
+	if (ch == I_OTHERDATA) {/* incoming */
+	    if (chat_recv(cfd, chatid) == -1) {
+		chatting = chat_send(cfd, "/b");
+		break;
+	    }
+	    continue;
+	}
+	if (isprint2(ch)) {
+	    if (currchar < 68) {
+		if (inbuf[currchar]) {	/* insert */
+		    int             i;
+
+		    for (i = currchar; inbuf[i] && i < 68; i++);
+		    inbuf[i + 1] = '\0';
+		    for (; i > currchar; i--)
+			inbuf[i] = inbuf[i - 1];
+		} else		/* append */
+		    inbuf[currchar + 1] = '\0';
+		inbuf[currchar] = ch;
+		move(b_lines - 1, currchar + chatid_len);
+		outs(&inbuf[currchar++]);
+	    }
+	    continue;
+	}
+	if (ch == '\n' || ch == '\r') {
+	    if (*inbuf) {
+		chatting = chat_cmd(inbuf, cfd);
+		if (chatting == 0)
+		    chatting = chat_send(cfd, inbuf);
+		if (!strncmp(inbuf, "/b", 2))
+		    break;
+
+		for (cmdpos = MAXLASTCMD - 1; cmdpos; cmdpos--)
+		    strlcpy(lastcmd[cmdpos],
+			    lastcmd[cmdpos - 1], sizeof(lastcmd[cmdpos]));
+		strlcpy(lastcmd[0], inbuf, sizeof(lastcmd[0]));
+
+		inbuf[0] = '\0';
+		currchar = 0;
+		cmdpos = -1;
+	    }
+	    print_chatid(chatid);
+	    move(b_lines - 1, chatid_len);
+	    continue;
+	}
+	if (ch == Ctrl('H') || ch == '\177') {
+	    if (currchar) {
+		currchar--;
+		inbuf[69] = '\0';
+		memcpy(&inbuf[currchar], &inbuf[currchar + 1], 69 - currchar);
+		move(b_lines - 1, currchar + chatid_len);
+		clrtoeol();
+		outs(&inbuf[currchar]);
+	    }
+	    continue;
+	}
+	if (ch == Ctrl('Z') || ch == Ctrl('Y')) {
+	    inbuf[0] = '\0';
+	    currchar = 0;
+	    print_chatid(chatid);
+	    move(b_lines - 1, chatid_len);
+	    continue;
+	}
+	if (ch == Ctrl('C')) {
+	    chat_send(cfd, "/b");
+	    break;
+	}
+	if (ch == Ctrl('D')) {
+	    if ((size_t)currchar < strlen(inbuf)) {
+		inbuf[69] = '\0';
+		memcpy(&inbuf[currchar], &inbuf[currchar + 1], 69 - currchar);
+		move(b_lines - 1, currchar + chatid_len);
+		clrtoeol();
+		outs(&inbuf[currchar]);
+	    }
+	    continue;
+	}
+	if (ch == Ctrl('K')) {
+	    inbuf[currchar] = 0;
+	    move(b_lines - 1, currchar + chatid_len);
+	    clrtoeol();
+	    continue;
+	}
+	if (ch == Ctrl('A')) {
+	    currchar = 0;
+	    continue;
+	}
+	if (ch == Ctrl('E')) {
+	    currchar = strlen(inbuf);
+	    continue;
+	}
+	if (ch == Ctrl('I')) {
+	    screenline_t   *screen0 = calloc(t_lines, sizeof(screenline_t));
+
+	    memcpy(screen0, big_picture, t_lines * sizeof(screenline_t));
+	    add_io(0, 0);
+	    t_idle();
+	    memcpy(big_picture, screen0, t_lines * sizeof(screenline_t));
+	    free(screen0);
+	    redoscr();
+	    add_io(cfd, 0);
+	    continue;
+	}
+	if (ch == Ctrl('Q')) {
+	    print_chatid(chatid);
+	    move(b_lines - 1, chatid_len);
+	    outs(inbuf);
+	    continue;
+	}
+    }
+
+    close(cfd);
+    add_io(0, 0);
+    currutmp->in_chat = currutmp->chatid[0] = 0;
+
+    if (flog) {
+	char            ans[4];
+
+	fclose(flog);
+	more(fpath, NA);
+	getdata(b_lines - 1, 0, "清除(C) 移至備忘錄(M) (C/M)?[C]",
+		ans, sizeof(ans), LCECHO);
+	if (*ans == 'm') {
+	    fileheader_t    mymail;
+	    char            title[128];
+
+	    sethomepath(genbuf, cuser.userid);
+	    stampfile(genbuf, &mymail);
+	    mymail.filemode = FILE_READ | FILE_HOLD;
+	    strlcpy(mymail.owner, "[備.忘.錄]", sizeof(mymail.owner));
+	    strlcpy(mymail.title, "會議\033[1;33m記錄\033[m", sizeof(mymail.title));
+	    sethomedir(title, cuser.userid);
+	    append_record(title, &mymail, sizeof(mymail));
+	    Rename(fpath, genbuf);
+	} else
+	    unlink(fpath);
+    }
+    return 0;
+}
+/* -------------------------------------------------- */
+#if 0
+
+#endif
diff --git a/pttbbs/mbbsd/chc_draw.c b/pttbbs/mbbsd/chc_draw.c
new file mode 100644
index 00000000..c8e01a80
--- /dev/null
+++ b/pttbbs/mbbsd/chc_draw.c
@@ -0,0 +1,183 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define SIDE_ROW          10
+#define TURN_ROW          11
+#define STEP_ROW          12
+#define TIME_ROW          13
+#define WARN_ROW          15
+#define MYWIN_ROW         17
+#define HISWIN_ROW        18
+
+static char    *turn_str[2] = {"黑的", "紅的"};
+
+static char    *num_str[10] = {
+    "", "一", "二", "三", "四", "五", "六", "七", "八", "九"
+};
+
+static char    *chess_str[2][8] = {
+    /* 0     1     2     3     4     5     6     7 */
+    {"  ", "將", "士", "象", "車", "馬", "包", "卒"},
+    {"  ", "帥", "仕", "相", "車", "傌", "炮", "兵"}
+};
+
+static char    *chess_brd[BRD_ROW * 2 - 1] = {
+    /* 0   1   2   3   4   5   6   7   8 */
+    "┌─┬─┬─┬─┬─┬─┬─┬─┐",	/* 0 */
+    "│  │  │  │＼│／│  │  │  │",
+    "├─┼─┼─┼─┼─┼─┼─┼─┤",	/* 1 */
+    "│  │  │  │／│＼│  │  │  │",
+    "├─┼─┼─┼─┼─┼─┼─┼─┤",	/* 2 */
+    "│  │  │  │  │  │  │  │  │",
+    "├─┼─┼─┼─┼─┼─┼─┼─┤",	/* 3 */
+    "│  │  │  │  │  │  │  │  │",
+    "├─┴─┴─┴─┴─┴─┴─┴─┤",	/* 4 */
+    "│  楚    河          漢    界  │",
+    "├─┬─┬─┬─┬─┬─┬─┬─┤",	/* 5 */
+    "│  │  │  │  │  │  │  │  │",
+    "├─┼─┼─┼─┼─┼─┼─┼─┤",	/* 6 */
+    "│  │  │  │  │  │  │  │  │",
+    "├─┼─┼─┼─┼─┼─┼─┼─┤",	/* 7 */
+    "│  │  │  │＼│／│  │  │  │",
+    "├─┼─┼─┼─┼─┼─┼─┼─┤",	/* 8 */
+    "│  │  │  │／│＼│  │  │  │",
+    "└─┴─┴─┴─┴─┴─┴─┴─┘"	/* 9 */
+};
+
+static char    *hint_str[] = {
+    "  q      認輸離開",
+    "  p      要求和棋",
+    "方向鍵   移動遊標",
+    "Enter    選擇/移動"
+};
+
+void
+chc_movecur(int r, int c)
+{
+    move(r * 2 + 3, c * 4 + 4);
+}
+
+#define BLACK_COLOR       "\033[1;36m"
+#define RED_COLOR         "\033[1;31m"
+#define BLACK_REVERSE     "\033[1;37;46m"
+#define RED_REVERSE       "\033[1;37;41m"
+#define TURN_COLOR        "\033[1;33m"
+
+static void
+showstep(board_t board)
+{
+    int             turn, fc, tc, eatten;
+    char           *dir;
+
+    turn = CHE_O(board[chc_from.r][chc_from.c]);
+    fc = (turn == (chc_my ^ 1) ? chc_from.c + 1 : 9 - chc_from.c);
+    tc = (turn == (chc_my ^ 1) ? chc_to.c + 1 : 9 - chc_to.c);
+    if (chc_from.r == chc_to.r)
+	dir = "平";
+    else {
+	if (chc_from.c == chc_to.c)
+	    tc = chc_from.r - chc_to.r;
+	if (tc < 0)
+	    tc = -tc;
+
+	if ((turn == (chc_my ^ 1) && chc_to.r > chc_from.r) ||
+	    (turn == chc_my && chc_to.r < chc_from.r))
+	    dir = "進";
+	else
+	    dir = "退";
+    }
+    prints("%s%s%s%s%s",
+	   turn == 0 ? BLACK_COLOR : RED_COLOR,
+	   chess_str[turn][CHE_P(board[chc_from.r][chc_from.c])],
+	   num_str[fc], dir, num_str[tc]);
+    eatten = board[chc_to.r][chc_to.c];
+    if (eatten)
+	prints("： %s%s",
+	       CHE_O(eatten) == 0 ? BLACK_COLOR : RED_COLOR,
+	       chess_str[CHE_O(eatten)][CHE_P(eatten)]);
+    prints("\033[m");
+}
+
+void
+chc_drawline(board_t board, int line)
+{
+    int             i, j;
+
+    move(line, 0);
+    clrtoeol();
+    if (line == 0) {
+	prints("\033[1;46m   象棋對戰   \033[45m%30s VS %-30s\033[m",
+	       cuser.userid, chc_mateid);
+    } else if (line >= 3 && line <= 21) {
+	outs("   ");
+	for (i = 0; i < 9; i++) {
+	    j = board[RTL(line)][i];
+	    if ((line & 1) == 1 && j) {
+		if (chc_selected &&
+		    chc_select.r == RTL(line) && chc_select.c == i)
+		    prints("%s%s\033[m",
+			   CHE_O(j) == 0 ? BLACK_REVERSE : RED_REVERSE,
+			   chess_str[CHE_O(j)][CHE_P(j)]);
+		else
+		    prints("%s%s\033[m",
+			   CHE_O(j) == 0 ? BLACK_COLOR : RED_COLOR,
+			   chess_str[CHE_O(j)][CHE_P(j)]);
+	    } else
+		prints("%c%c", chess_brd[line - 3][i * 4],
+		       chess_brd[line - 3][i * 4 + 1]);
+	    if (i != 8)
+		prints("%c%c", chess_brd[line - 3][i * 4 + 2],
+		       chess_brd[line - 3][i * 4 + 3]);
+	}
+	outs("        ");
+
+	if (line >= 3 && line < 3 + (int)dim(hint_str)) {
+	    outs(hint_str[line - 3]);
+	} else if (line == SIDE_ROW) {
+	    prints("\033[1m你是%s%s\033[m",
+		   chc_my == 0 ? BLACK_COLOR : RED_COLOR,
+		   turn_str[chc_my]);
+	} else if (line == TURN_ROW) {
+	    prints("%s%s\033[m",
+		   TURN_COLOR,
+		   chc_my == chc_turn ? "輪到你下棋了" : "等待對方下棋");
+	} else if (line == STEP_ROW && !chc_firststep) {
+	    showstep(board);
+	} else if (line == TIME_ROW) {
+	    prints("剩餘時間 %d:%02d", chc_lefttime / 60, chc_lefttime % 60);
+	} else if (line == WARN_ROW) {
+	    outs(chc_warnmsg);
+	} else if (line == MYWIN_ROW) {
+	    prints("\033[1;33m%12.12s    "
+		   "\033[1;31m%2d\033[37m勝 "
+		   "\033[34m%2d\033[37m敗 "
+		   "\033[36m%2d\033[37m和\033[m",
+		   cuser.userid,
+		   cuser.chc_win, cuser.chc_lose - 1, cuser.chc_tie);
+	} else if (line == HISWIN_ROW) {
+	    prints("\033[1;33m%12.12s    "
+		   "\033[1;31m%2d\033[37m勝 "
+		   "\033[34m%2d\033[37m敗 "
+		   "\033[36m%2d\033[37m和\033[m",
+		   chc_mateid,
+		   chc_hiswin, chc_hislose - 1, chc_histie);
+	}
+    } else if (line == 2 || line == 22) {
+	outs("   ");
+	if (line == 2)
+	    for (i = 1; i <= 9; i++)
+		prints("%s  ", num_str[i]);
+	else
+	    for (i = 9; i >= 1; i--)
+		prints("%s  ", num_str[i]);
+    }
+}
+
+void
+chc_redraw(board_t board)
+{
+    int             i;
+
+    for (i = 0; i <= 22; i++)
+	chc_drawline(board, i);
+}
diff --git a/pttbbs/mbbsd/chc_net.c b/pttbbs/mbbsd/chc_net.c
new file mode 100644
index 00000000..9646bc62
--- /dev/null
+++ b/pttbbs/mbbsd/chc_net.c
@@ -0,0 +1,25 @@
+/* $Id$ */
+#include "bbs.h"
+typedef struct drc_t {
+    rc_t            from, to;
+}               drc_t;
+
+int
+chc_recvmove(int s)
+{
+    drc_t           buf;
+
+    if (read(s, &buf, sizeof(buf)) != sizeof(buf))
+	return 1;
+    chc_from = buf.from, chc_to = buf.to;
+    return 0;
+}
+
+void
+chc_sendmove(int s)
+{
+    drc_t           buf;
+
+    buf.from = chc_from, buf.to = chc_to;
+    write(s, &buf, sizeof(buf));
+}
diff --git a/pttbbs/mbbsd/chc_play.c b/pttbbs/mbbsd/chc_play.c
new file mode 100644
index 00000000..7e5d5798
--- /dev/null
+++ b/pttbbs/mbbsd/chc_play.c
@@ -0,0 +1,269 @@
+/* $Id$ */
+#include "bbs.h"
+typedef int     (*play_func_t) (int, board_t, board_t);
+
+static int      chc_ipass = 0, chc_hepass = 0;
+
+#define CHC_TIMEOUT           300
+#define SIDE_ROW          10
+#define TURN_ROW          11
+#define STEP_ROW          12
+#define TIME_ROW          13
+#define WARN_ROW          15
+#define MYWIN_ROW         17
+#define HISWIN_ROW        18
+
+static int
+hisplay(int s, board_t board, board_t tmpbrd)
+{
+    int             start_time;
+    int             endgame = 0, endturn = 0;
+
+    start_time = now;
+    while (!endturn) {
+	chc_lefttime = CHC_TIMEOUT - (now - start_time);
+	if (chc_lefttime < 0) {
+	    chc_lefttime = 0;
+
+	    /* to make him break out igetkey() */
+	    chc_from.r = -2;
+	    chc_sendmove(s);
+	}
+	chc_drawline(board, TIME_ROW);
+	move(1, 0);
+	oflush();
+	switch (igetkey()) {
+	case 'q':
+	    endgame = 2;
+	    endturn = 1;
+	    break;
+	case 'p':
+	    if (chc_hepass) {
+		chc_from.r = -1;
+		chc_sendmove(s);
+		endgame = 3;
+		endturn = 1;
+	    }
+	    break;
+	case I_OTHERDATA:
+	    if (chc_recvmove(s)) {	/* disconnect */
+		endturn = 1;
+		endgame = 1;
+	    } else {
+		if (chc_from.r == -1) {
+		    chc_hepass = 1;
+		    strlcpy(chc_warnmsg, "\033[1;33m要求和局!\033[m", sizeof(chc_warnmsg));
+		    chc_drawline(board, WARN_ROW);
+		} else {
+		    chc_from.r = 9 - chc_from.r, chc_from.c = 8 - chc_from.c;
+		    chc_to.r = 9 - chc_to.r, chc_to.c = 8 - chc_to.c;
+		    chc_cursor = chc_to;
+		    if (CHE_P(board[chc_to.r][chc_to.c]) == 1)
+			endgame = 2;
+		    endturn = 1;
+		    chc_hepass = 0;
+		    chc_drawline(board, STEP_ROW);
+		    chc_movechess(board);
+		    chc_drawline(board, LTR(chc_from.r));
+		    chc_drawline(board, LTR(chc_to.r));
+		}
+	    }
+	    break;
+	}
+    }
+    return endgame;
+}
+
+static int
+myplay(int s, board_t board, board_t tmpbrd)
+{
+    int             ch, start_time;
+    int             endgame = 0, endturn = 0;
+
+    chc_ipass = 0, chc_selected = 0;
+    start_time = now;
+    chc_lefttime = CHC_TIMEOUT - (now - start_time);
+    bell();
+    while (!endturn) {
+	chc_drawline(board, TIME_ROW);
+	chc_movecur(chc_cursor.r, chc_cursor.c);
+	oflush();
+	ch = igetkey();
+	chc_lefttime = CHC_TIMEOUT - (now - start_time);
+	if (chc_lefttime < 0)
+	    ch = 'q';
+	switch (ch) {
+	case I_OTHERDATA:
+	    if (chc_recvmove(s)) {	/* disconnect */
+		endgame = 1;
+		endturn = 1;
+	    } else if (chc_from.r == -1 && chc_ipass) {
+		endgame = 3;
+		endturn = 1;
+	    }
+	    break;
+	case KEY_UP:
+	    chc_cursor.r--;
+	    if (chc_cursor.r < 0)
+		chc_cursor.r = BRD_ROW - 1;
+	    break;
+	case KEY_DOWN:
+	    chc_cursor.r++;
+	    if (chc_cursor.r >= BRD_ROW)
+		chc_cursor.r = 0;
+	    break;
+	case KEY_LEFT:
+	    chc_cursor.c--;
+	    if (chc_cursor.c < 0)
+		chc_cursor.c = BRD_COL - 1;
+	    break;
+	case KEY_RIGHT:
+	    chc_cursor.c++;
+	    if (chc_cursor.c >= BRD_COL)
+		chc_cursor.c = 0;
+	    break;
+	case 'q':
+	    endgame = 2;
+	    endturn = 1;
+	    break;
+	case 'p':
+	    chc_ipass = 1;
+	    chc_from.r = -1;
+	    chc_sendmove(s);
+	    strlcpy(chc_warnmsg, "\033[1;33m要求和棋!\033[m", sizeof(chc_warnmsg));
+	    chc_drawline(board, WARN_ROW);
+	    bell();
+	    break;
+	case '\r':
+	case '\n':
+	case ' ':
+	    if (chc_selected) {
+		if (chc_cursor.r == chc_select.r &&
+		    chc_cursor.c == chc_select.c) {
+		    chc_selected = 0;
+		    chc_drawline(board, LTR(chc_cursor.r));
+		} else if (chc_canmove(board, chc_select, chc_cursor)) {
+		    if (CHE_P(board[chc_cursor.r][chc_cursor.c]) == 1)
+			endgame = 1;
+		    chc_from = chc_select;
+		    chc_to = chc_cursor;
+		    if (!endgame) {
+			memcpy(tmpbrd, board, sizeof(board_t));
+			chc_movechess(tmpbrd);
+		    }
+		    if (endgame || !chc_iskfk(tmpbrd)) {
+			chc_drawline(board, STEP_ROW);
+			chc_movechess(board);
+			chc_sendmove(s);
+			chc_selected = 0;
+			chc_drawline(board, LTR(chc_from.r));
+			chc_drawline(board, LTR(chc_to.r));
+			endturn = 1;
+		    } else {
+			strlcpy(chc_warnmsg, "\033[1;33m不可以王見王\033[m", sizeof(chc_warnmsg));
+			bell();
+			chc_drawline(board, WARN_ROW);
+		    }
+		}
+	    } else if (board[chc_cursor.r][chc_cursor.c] &&
+		     CHE_O(board[chc_cursor.r][chc_cursor.c]) == chc_turn) {
+		chc_selected = 1;
+		chc_select = chc_cursor;
+		chc_drawline(board, LTR(chc_cursor.r));
+	    }
+	    break;
+	}
+    }
+    return endgame;
+}
+
+static void
+mainloop(int s, board_t board)
+{
+    int             endgame;
+    board_t         tmpbrd;
+    play_func_t     play_func[2];
+
+    play_func[chc_my] = myplay;
+    play_func[chc_my ^ 1] = hisplay;
+    for (chc_turn = 1, endgame = 0; !endgame; chc_turn ^= 1) {
+	chc_firststep = 0;
+	chc_drawline(board, TURN_ROW);
+	if (chc_ischeck(board, chc_turn)) {
+	    strlcpy(chc_warnmsg, "\033[1;31m將軍!\033[m", sizeof(chc_warnmsg));
+	    bell();
+	} else
+	    chc_warnmsg[0] = 0;
+	chc_drawline(board, WARN_ROW);
+	endgame = play_func[chc_turn] (s, board, tmpbrd);
+    }
+
+    if (endgame == 1) {
+	strlcpy(chc_warnmsg, "對方認輸了!", sizeof(chc_warnmsg));
+	cuser.chc_win++;
+	currutmp->chc_win++;
+    } else if (endgame == 2) {
+	strlcpy(chc_warnmsg, "你認輸了!", sizeof(chc_warnmsg));
+	cuser.chc_lose++;
+	currutmp->chc_lose++;
+    } else {
+	strlcpy(chc_warnmsg, "和棋", sizeof(chc_warnmsg));
+	cuser.chc_tie++;
+	currutmp->chc_tie++;
+    }
+    cuser.chc_lose--;
+    passwd_update(usernum, &cuser);
+    chc_drawline(board, WARN_ROW);
+    bell();
+    oflush();
+}
+
+static void
+chc_init(int s, board_t board)
+{
+    userinfo_t     *my = currutmp;
+
+    setutmpmode(CHC);
+    clear();
+    chc_warnmsg[0] = 0;
+    chc_my = my->turn;
+    chc_mateid = my->mateid;
+    chc_firststep = 1;
+    chc_init_board(board);
+    chc_redraw(board);
+    chc_cursor.r = 9, chc_cursor.c = 0;
+    add_io(s, 0);
+
+    if (my->turn)
+	chc_recvmove(s);
+    passwd_query(usernum, &xuser);
+    cuser.chc_win = xuser.chc_win;
+    cuser.chc_lose = xuser.chc_lose + 1;
+    cuser.chc_tie = xuser.chc_tie;
+    cuser.money = xuser.money;
+    passwd_update(usernum, &cuser);
+
+    getuser(chc_mateid);
+    chc_hiswin = xuser.chc_win;
+    chc_hislose = xuser.chc_lose;
+    chc_histie = xuser.chc_tie;
+
+    if (!my->turn) {
+	chc_sendmove(s);
+	chc_hislose++;
+    }
+    chc_redraw(board);
+}
+
+void
+chc(int s)
+{
+    board_t         board;
+
+    chc_init(s, board);
+    mainloop(s, board);
+    close(s);
+    add_io(0, 0);
+    if (chc_my)
+	pressanykey();
+}
diff --git a/pttbbs/mbbsd/chc_rule.c b/pttbbs/mbbsd/chc_rule.c
new file mode 100644
index 00000000..8f46454b
--- /dev/null
+++ b/pttbbs/mbbsd/chc_rule.c
@@ -0,0 +1,195 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define CENTER(a, b)      (((a) + (b)) >> 1)
+
+void
+chc_init_board(board_t board)
+{
+    memset(board, 0, sizeof(board_t));
+    board[0][4] = CHE(1, chc_my ^ 1);	/* 將 */
+    board[0][3] = board[0][5] = CHE(2, chc_my ^ 1);	/* 士 */
+    board[0][2] = board[0][6] = CHE(3, chc_my ^ 1);	/* 象 */
+    board[0][0] = board[0][8] = CHE(4, chc_my ^ 1);	/* 車 */
+    board[0][1] = board[0][7] = CHE(5, chc_my ^ 1);	/* 馬 */
+    board[2][1] = board[2][7] = CHE(6, chc_my ^ 1);	/* 包 */
+    board[3][0] = board[3][2] = board[3][4] =
+	board[3][6] = board[3][8] = CHE(7, chc_my ^ 1);	/* 卒 */
+
+    board[9][4] = CHE(1, chc_my);	/* 帥 */
+    board[9][3] = board[9][5] = CHE(2, chc_my);	/* 仕 */
+    board[9][2] = board[9][6] = CHE(3, chc_my);	/* 相 */
+    board[9][0] = board[9][8] = CHE(4, chc_my);	/* 車 */
+    board[9][1] = board[9][7] = CHE(5, chc_my);	/* 傌 */
+    board[7][1] = board[7][7] = CHE(6, chc_my);	/* 炮 */
+    board[6][0] = board[6][2] = board[6][4] =
+	board[6][6] = board[6][8] = CHE(7, chc_my);	/* 兵 */
+}
+
+void
+chc_movechess(board_t board)
+{
+    board[chc_to.r][chc_to.c] = board[chc_from.r][chc_from.c];
+    board[chc_from.r][chc_from.c] = 0;
+}
+
+static int
+dist(rc_t from, rc_t to, int rowcol)
+{
+    int             d;
+
+    d = rowcol ? from.c - to.c : from.r - to.r;
+    return d > 0 ? d : -d;
+}
+
+static int
+between(board_t board, rc_t from, rc_t to, int rowcol)
+{
+    int             i, rtv = 0;
+
+    if (rowcol) {
+	if (from.c > to.c)
+	    i = from.c, from.c = to.c, to.c = i;
+	for (i = from.c + 1; i < to.c; i++)
+	    if (board[to.r][i])
+		rtv++;
+    } else {
+	if (from.r > to.r)
+	    i = from.r, from.r = to.r, to.r = i;
+	for (i = from.r + 1; i < to.r; i++)
+	    if (board[i][to.c])
+		rtv++;
+    }
+    return rtv;
+}
+
+int
+chc_canmove(board_t board, rc_t from, rc_t to)
+{
+    int             i;
+    int             rd, cd, turn;
+
+    rd = dist(from, to, 0);
+    cd = dist(from, to, 1);
+    turn = CHE_O(board[from.r][from.c]);
+
+    /* general check */
+    if (board[to.r][to.c] && CHE_O(board[to.r][to.c]) == turn)
+	return 0;
+
+    /* individual check */
+    switch (CHE_P(board[from.r][from.c])) {
+    case 1:			/* 將 帥 */
+	if (!(rd == 1 && cd == 0) &&
+	    !(rd == 0 && cd == 1))
+	    return 0;
+	if ((turn == (chc_my ^ 1) && to.r > 2) ||
+	    (turn == chc_my && to.r < 7) ||
+	    to.c < 3 || to.c > 5)
+	    return 0;
+	break;
+    case 2:			/* 士 仕 */
+	if (!(rd == 1 && cd == 1))
+	    return 0;
+	if ((turn == (chc_my ^ 1) && to.r > 2) ||
+	    (turn == chc_my && to.r < 7) ||
+	    to.c < 3 || to.c > 5)
+	    return 0;
+	break;
+    case 3:			/* 象 相 */
+	if (!(rd == 2 && cd == 2))
+	    return 0;
+	if ((turn == (chc_my ^ 1) && to.r > 4) ||
+	    (turn == chc_my && to.r < 5))
+	    return 0;
+	/* 拐象腿 */
+	if (board[CENTER(from.r, to.r)][CENTER(from.c, to.c)])
+	    return 0;
+	break;
+    case 4:			/* 車 */
+	if (!(rd > 0 && cd == 0) &&
+	    !(rd == 0 && cd > 0))
+	    return 0;
+	if (between(board, from, to, rd == 0))
+	    return 0;
+	break;
+    case 5:			/* 馬 傌 */
+	if (!(rd == 2 && cd == 1) &&
+	    !(rd == 1 && cd == 2))
+	    return 0;
+	/* 拐馬腳 */
+	if (rd == 2) {
+	    if (board[CENTER(from.r, to.r)][from.c])
+		return 0;
+	} else {
+	    if (board[from.r][CENTER(from.c, to.c)])
+		return 0;
+	}
+	break;
+    case 6:			/* 包 炮 */
+	if (!(rd > 0 && cd == 0) &&
+	    !(rd == 0 && cd > 0))
+	    return 0;
+	i = between(board, from, to, rd == 0);
+	if ((i > 1) ||
+	    (i == 1 && !board[to.r][to.c]) ||
+	    (i == 0 && board[to.r][to.c]))
+	    return 0;
+	break;
+    case 7:			/* 卒 兵 */
+	if (!(rd == 1 && cd == 0) &&
+	    !(rd == 0 && cd == 1))
+	    return 0;
+	if (((turn == (chc_my ^ 1) && to.r < 5) ||
+	     (turn == chc_my && to.r > 4)) &&
+	    cd != 0)
+	    return 0;
+	if ((turn == (chc_my ^ 1) && to.r < from.r) ||
+	    (turn == chc_my && to.r > from.r))
+	    return 0;
+	break;
+    }
+    return 1;
+}
+
+static void
+findking(board_t board, int turn, rc_t * buf)
+{
+    int             i, r, c;
+
+    r = (turn == (chc_my ^ 1)) ? 0 : 7;
+    for (i = 0; i < 3; r++, i++)
+	for (c = 3; c < 6; c++)
+	    if (CHE_P(board[r][c]) == 1 &&
+		CHE_O(board[r][c]) == turn) {
+		buf->r = r, buf->c = c;
+		return;
+	    }
+}
+
+int
+chc_iskfk(board_t board)
+{
+    rc_t            from, to;
+
+    findking(board, 0, &to);
+    findking(board, 1, &from);
+    if (from.c == to.c && between(board, from, to, 0) == 0)
+	return 1;
+    return 0;
+}
+
+int
+chc_ischeck(board_t board, int turn)
+{
+    rc_t            from, to;
+
+    findking(board, turn, &to);
+    for (from.r = 0; from.r < BRD_ROW; from.r++)
+	for (from.c = 0; from.c < BRD_COL; from.c++)
+	    if (board[from.r][from.c] &&
+		CHE_O(board[from.r][from.c]) != turn)
+		if (chc_canmove(board, from, to))
+		    return 1;
+    return 0;
+}
diff --git a/pttbbs/mbbsd/chicken.c b/pttbbs/mbbsd/chicken.c
new file mode 100644
index 00000000..fdd07839
--- /dev/null
+++ b/pttbbs/mbbsd/chicken.c
@@ -0,0 +1,1030 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define NUM_KINDS   13		/* 有多少種動物 */
+
+static          const char *cage[17] = {
+    "誕生", "週歲", "幼年", "少年", "青春", "青年",
+    "青年", "活力", "壯年", "壯年", "壯年", "中年",
+"中年", "老年", "老年", "老摳摳", "古希"};
+static          const char *chicken_type[NUM_KINDS] = {
+    "小雞", "美少女", "勇士", "蜘蛛",
+    "恐龍", "老鷹", "貓", "蠟筆小新",
+    "狗狗", "惡魔", "忍者", "ㄚ扁",
+"馬英九"};
+static          const char *chicken_food[NUM_KINDS] = {
+    "雞飼料", "營養厚片", "雞排便當", "死蝴蝶",
+    "屍體", "小雞", "貓餅乾", "小熊餅乾",
+    "寶錄", "靈氣", "飯團", "便當",
+"雞腿"};
+static          const int egg_price[NUM_KINDS] = {
+    5, 25, 30, 40,
+    80, 50, 15, 35,
+    17, 100, 85, 200,
+200};
+static          const int food_price[NUM_KINDS] = {
+    4, 6, 8, 10,
+    12, 12, 5, 6,
+    5, 20, 15, 23,
+23};
+static          const char *attack_type[NUM_KINDS] = {
+    "啄", "鞭打", "槌", "咬",
+    "撞擊", "啄", "抓", "踢",
+    "咬", "燃燒", "暗擊", "棍打",
+"劍擊"};
+
+static          const char *damage_degree[] = {
+    "蚊子似的", "騷癢似的", "小力的", "輕微的",
+    "有點疼的", "使力的", "傷人的", "重重的",
+    "使全力的", "惡狠狠的", "危險的", "瘋狂的",
+    "猛烈的", "狂風暴雨似的", "驚天動地的",
+"致命的", NULL};
+
+enum {
+    OO, FOOD, WEIGHT, CLEAN, RUN, ATTACK, BOOK, HAPPY, SATIS,
+    TEMPERAMENT, TIREDSTRONG, SICK, HP_MAX, MM_MAX
+};
+
+static chicken_t *mychicken = &cuser.mychicken;
+static int      age;
+
+static          const short time_change[NUM_KINDS][14] =
+/* 補品 食物 體重 乾淨 敏捷 攻擊力 知識 快樂 滿意 氣質 疲勞 病氣 滿血 滿法 */
+{
+    /* 雞 */
+    {1, 1, 30, 3, 8, 3, 3, 40, 9, 1, 7, 3, 30, 1},
+    /* 美少女 */
+    {1, 1, 110, 1, 4, 7, 41, 20, 9, 25, 25, 7, 110, 15},
+    /* 勇士 */
+    {1, 1, 200, 5, 4, 10, 33, 20, 15, 10, 27, 1, 200, 9},
+    /* 蜘蛛 */
+    {1, 1, 10, 5, 8, 1, 1, 5, 3, 1, 4, 1, 10, 30},
+    /* 恐龍 */
+    {1, 1, 1000, 9, 1, 13, 4, 12, 3, 1, 200, 1, 1000, 3},
+    /* 老鷹 */
+    {1, 1, 90, 7, 10, 7, 4, 12, 3, 30, 20, 5, 90, 20},
+    /* 貓 */
+    {1, 1, 30, 5, 5, 6, 4, 8, 3, 15, 7, 4, 30, 21},
+    /* 蠟筆小新 */
+    {1, 1, 100, 9, 7, 7, 20, 50, 10, 8, 24, 4, 100, 9},
+    /* 狗 */
+    {1, 1, 45, 8, 7, 9, 3, 40, 20, 3, 9, 5, 45, 1},
+    /* 惡魔 */
+    {1, 1, 45, 10, 11, 11, 5, 21, 11, 1, 9, 5, 45, 25},
+    /* 忍者 */
+    {1, 1, 45, 2, 12, 10, 25, 1, 1, 10, 9, 5, 45, 26},
+    /* 阿扁 */
+    {1, 1, 150, 4, 8, 13, 95, 25, 7, 10, 25, 5, 175, 85},
+    /* 馬英九 */
+    {1, 1, 147, 2, 10, 10, 85, 20, 4, 25, 25, 5, 145, 95}
+};
+
+int
+reload_chicken()
+{
+    passwd_query(usernum, &xuser);
+    memcpy(mychicken, &xuser.mychicken, sizeof(chicken_t));
+    if (!mychicken->name[0])
+	return 0;
+    else
+	return 1;
+}
+
+#define CHICKENLOG  "etc/chicken"
+
+static int
+new_chicken()
+{
+    char            buf[150];
+    int             price;
+
+    clear();
+    move(2, 0);
+    outs("歡迎觀臨 \033[33m◎\033[37;44m Ptt寵物市場 \033[33;40m◎\033[m.. "
+	 "目前蛋價：\n"
+	 "(a)小雞 $5   (b)美少女 $25   (c)勇士    $30  (d)蜘蛛 $40  "
+	 "(e)恐龍 $80\n"
+	 "(f)老鷹 $50  (g)貓     $15   (h)蠟筆小新$35  (i)狗狗 $17  "
+	 "(j)惡魔 $100\n"
+	 "(k)忍者 $85  (l)阿扁   $200  (m)馬英九  $200\n"
+	 "[0]自己 $0\n");
+    getdata_str(6, 0, "請選擇你要養的動物：", buf, 3, LCECHO, "0");
+
+    buf[0] -= 'a';
+    if (buf[0] < 0 || buf[0] > NUM_KINDS - 1)
+	return 0;
+
+    mychicken->type = buf[0];
+
+    reload_money();
+    price = egg_price[(int)mychicken->type];
+    if (cuser.money < price) {
+	prints("\n 錢不夠買蛋蛋,蛋蛋要 %d 元", price);
+	refresh();
+	return 0;
+    }
+    vice(price, "寵物蛋");
+    while (strlen(mychicken->name) < 3)
+	getdata(8, 0, "幫牠取個好名字：", mychicken->name,
+		sizeof(mychicken->name), DOECHO);
+
+    snprintf(buf, sizeof(buf),
+	     "\033[31m%s \033[m養了一隻叫\033[33m %s \033[m的 "
+	     "\033[32m%s\033[m  於 %s", cuser.userid,
+	     mychicken->name, chicken_type[(int)mychicken->type], ctime(&now));
+    log_file(CHICKENLOG, buf);
+    mychicken->lastvisit = mychicken->birthday = mychicken->cbirth = now;
+    mychicken->food = 0;
+    mychicken->weight = time_change[(int)mychicken->type][WEIGHT] / 3;
+    mychicken->clean = 0;
+    mychicken->run = time_change[(int)mychicken->type][RUN];
+    mychicken->attack = time_change[(int)mychicken->type][ATTACK];
+    mychicken->book = time_change[(int)mychicken->type][BOOK];
+    mychicken->happy = time_change[(int)mychicken->type][HAPPY];
+    mychicken->satis = time_change[(int)mychicken->type][SATIS];
+    mychicken->temperament = time_change[(int)mychicken->type][TEMPERAMENT];
+    mychicken->tiredstrong = 0;
+    mychicken->sick = 0;
+    mychicken->hp = time_change[(int)mychicken->type][WEIGHT];
+    mychicken->hp_max = time_change[(int)mychicken->type][WEIGHT];
+    mychicken->mm = 0;
+    mychicken->mm_max = 0;
+    return 1;
+}
+
+int
+show_file(char *filename, int y, int lines, int mode)
+{
+    FILE           *fp;
+    char            buf[256];
+
+    if (y >= 0)
+	move(y, 0);
+    clrtoline(lines + y);
+    if ((fp = fopen(filename, "r"))) {
+	while (fgets(buf, 256, fp) && lines--)
+	    outs(Ptt_prints(buf, mode));
+	fclose(fp);
+    } else
+	return 0;
+    return 1;
+}
+
+static void
+show_chicken_stat(chicken_t * thechicken)
+{
+    struct tm      *ptime;
+
+    ptime = localtime(&thechicken->birthday);
+    prints(" Name :\033[33m%s\033[m (\033[32m%s\033[m)%*s生日  "
+	   ":\033[31m%02d\033[m年\033[31m%2d\033[m月\033[31m%2d\033[m日 "
+	   "(\033[32m%s %d歲\033[m)\n"
+	   " 體:\033[33m%5d/%-5d\033[m 法:\033[33m%5d/%-5d\033[m 攻擊力:"
+	   "\033[33m%-7d\033[m 敏捷  :\033[33m%-7d\033[m 知識 :\033[33m%-7d"
+	   "\033[m \n"
+	   " 快樂 :\033[33m%-7d\033[m 滿意 :\033[33m%-7d\033[m 疲勞  :"
+	   "\033[33m%-7d\033[m 氣質  :\033[33m%-7d \033[m體重 :"
+	   "\033[33m%-5.2f\033[m \n"
+	   " 病氣 :\033[33m%-7d\033[m 乾淨 :\033[33m%-7d\033[m 食物  :"
+	   "\033[33m%-7d\033[m 大補丸:\033[33m%-7d\033[m 藥品 :\033[33m%-7d"
+	   "\033[m \n",
+	   thechicken->name, chicken_type[(int)thechicken->type],
+	   15 - strlen(thechicken->name), "",
+	   ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday,
+	 cage[age > 16 ? 16 : age], age, thechicken->hp, thechicken->hp_max,
+	   thechicken->mm, thechicken->mm_max,
+	   thechicken->attack, thechicken->run, thechicken->book,
+	   thechicken->happy, thechicken->satis, thechicken->tiredstrong,
+	   thechicken->temperament,
+	   ((float)(thechicken->hp_max + (thechicken->weight / 50))) / 100,
+	   thechicken->sick, thechicken->clean, thechicken->food,
+	   thechicken->oo, thechicken->medicine);
+}
+
+#define CHICKEN_PIC "etc/chickens"
+
+void
+show_chicken_data(chicken_t * thechicken, chicken_t * pkchicken)
+{
+    char            buf[1024];
+    age = ((now - thechicken->cbirth) / (60 * 60 * 24));
+    if (age < 0) {
+	thechicken->birthday = thechicken->cbirth = now - 10 * (60 * 60 * 24);
+	age = 10;
+    }
+    /* Ptt:debug */
+    thechicken->type %= NUM_KINDS;
+    clear();
+    showtitle(pkchicken ? "Ｐtt鬥雞場" : "Ｐtt養雞場", BBSName);
+    move(1, 0);
+
+    show_chicken_stat(thechicken);
+
+    snprintf(buf, sizeof(buf), CHICKEN_PIC "/%c%d", thechicken->type + 'a',
+	     age > 16 ? 16 : age);
+    show_file(buf, 5, 14, NO_RELOAD);
+
+    move(18, 0);
+
+    if (thechicken->sick)
+	outs("生病了...");
+    if (thechicken->sick > thechicken->hp / 5)
+	outs("\033[5;31m擔心...病重!!\033[m");
+
+    if (thechicken->clean > 150)
+	outs("\033[31m又臭又髒的..\033[m");
+    else if (thechicken->clean > 80)
+	outs("有點髒..");
+    else if (thechicken->clean < 20)
+	outs("\033[32m很乾淨..\033[m");
+
+    if (thechicken->weight > thechicken->hp_max * 4)
+	outs("\033[31m快飽死了!.\033[m");
+    else if (thechicken->weight > thechicken->hp_max * 3)
+	outs("\033[32m飽嘟嘟..\033[m");
+    else if (thechicken->weight < (thechicken->hp_max / 4))
+	outs("\033[31m快餓死了!..\033[m");
+    else if (thechicken->weight < (thechicken->hp_max / 2))
+	outs("餓了..");
+
+    if (thechicken->tiredstrong > thechicken->hp * 1.7)
+	outs("\033[31m累得昏迷了...\033[m");
+    else if (thechicken->tiredstrong > thechicken->hp)
+	outs("累了..");
+    else if (thechicken->tiredstrong < thechicken->hp / 4)
+	outs("\033[32m精力旺盛...\033[m");
+
+    if (thechicken->hp < thechicken->hp_max / 4)
+	outs("\033[31m體力用盡..奄奄一息..\033[m");
+    if (thechicken->happy > 500)
+	outs("\033[32m很快樂..\033[m");
+    else if (thechicken->happy < 100)
+	outs("不快樂..");
+    if (thechicken->satis > 500)
+	outs("\033[32m很滿足..\033[m");
+    else if (thechicken->satis < 50)
+	outs("不滿足..");
+
+    if (pkchicken) {
+	outs("\n");
+	show_chicken_stat(pkchicken);
+	outs("[任意鍵] 攻擊對方 [q] 落跑 [o] 吃大補丸");
+    }
+}
+
+static void
+ch_eat()
+{
+    if (mychicken->food) {
+	mychicken->weight += time_change[(int)mychicken->type][WEIGHT] +
+	mychicken->hp_max / 5;
+	mychicken->tiredstrong +=
+	    time_change[(int)mychicken->type][TIREDSTRONG] / 2;
+	mychicken->hp_max++;
+	mychicken->happy += 5;
+	mychicken->satis += 7;
+	mychicken->food--;
+	move(10, 10);
+
+	show_file(CHICKEN_PIC "/eat", 5, 14, NO_RELOAD);
+	pressanykey();
+    }
+}
+
+static void
+ch_clean()
+{
+    mychicken->clean = 0;
+    mychicken->tiredstrong +=
+	time_change[(int)mychicken->type][TIREDSTRONG] / 3;
+    show_file(CHICKEN_PIC "/clean", 5, 14, NO_RELOAD);
+    pressanykey();
+}
+
+static void
+ch_guess()
+{
+    char           *guess[3] = {"剪刀", "石頭", "布"}, me, ch, win;
+
+    mychicken->happy += time_change[(int)mychicken->type][HAPPY] * 1.5;
+    mychicken->satis += time_change[(int)mychicken->type][SATIS];
+    mychicken->tiredstrong += time_change[(int)mychicken->type][TIREDSTRONG];
+    mychicken->attack += time_change[(int)mychicken->type][ATTACK] / 4;
+    move(20, 0);
+    clrtobot();
+    outs("你要出[\033[32m1\033[m]\033[33m剪刀\033[m(\033[32m2\033[m)"
+	 "\033[33m石頭\033[m(\033[32m3\033[m)\033[33m布\033[m:\n");
+    me = igetch();
+    me -= '1';
+    if (me > 2 || me < 0)
+	me = 0;
+    win = (int)(3.0 * rand() / (RAND_MAX + 1.0)) - 1;
+    ch = (me + win + 3) % 3;
+    prints("%s:%s !      %s:%s !.....%s",
+	   cuser.userid, guess[(int)me], mychicken->name, guess[(int)ch],
+	   win == 0 ? "平手" : win < 0 ? "耶..贏了 :D!!" : "嗚..我輸了 :~");
+    pressanykey();
+}
+
+static void
+ch_book()
+{
+    mychicken->book += time_change[(int)mychicken->type][BOOK];
+    mychicken->tiredstrong += time_change[(int)mychicken->type][TIREDSTRONG];
+    show_file(CHICKEN_PIC "/read", 5, 14, NO_RELOAD);
+    pressanykey();
+}
+
+static void
+ch_kiss()
+{
+    mychicken->happy += time_change[(int)mychicken->type][HAPPY];
+    mychicken->satis += time_change[(int)mychicken->type][SATIS];
+    mychicken->tiredstrong +=
+	time_change[(int)mychicken->type][TIREDSTRONG] / 2;
+    show_file(CHICKEN_PIC "/kiss", 5, 14, NO_RELOAD);
+    pressanykey();
+}
+
+static void
+ch_hit()
+{
+    mychicken->attack += time_change[(int)mychicken->type][ATTACK];
+    mychicken->run += time_change[(int)mychicken->type][RUN];
+    mychicken->mm_max += time_change[(int)mychicken->type][MM_MAX] / 15;
+    mychicken->weight -= mychicken->hp_max / 15;
+    mychicken->hp -= (int)((float)time_change[(int)mychicken->type][HP_MAX] *
+			   rand() / (RAND_MAX + 1.0)) / 2 + 1;
+
+    if (mychicken->book > 2)
+	mychicken->book -= 2;
+    if (mychicken->happy > 2)
+	mychicken->happy -= 2;
+    if (mychicken->satis > 2)
+	mychicken->satis -= 2;
+    mychicken->tiredstrong += time_change[(int)mychicken->type][TIREDSTRONG];
+    show_file(CHICKEN_PIC "/hit", 5, 14, NO_RELOAD);
+    pressanykey();
+}
+
+void
+ch_buyitem(int money, char *picture, int *item, int haveticket)
+{
+    int             num = 0;
+    char            buf[5];
+
+    getdata_str(b_lines - 1, 0, "要買多少份呢:",
+		buf, sizeof(buf), DOECHO, "1");
+    num = atoi(buf);
+    if (num < 1)
+	return;
+    reload_money();
+    if (cuser.money > money * num) {
+	*item += num;
+	if( haveticket )
+	    vice(money * num, "購買寵物,賭盤項目");
+	else
+	    demoney(-money * num);
+	show_file(picture, 5, 14, NO_RELOAD);
+    } else {
+	move(b_lines - 1, 0);
+	clrtoeol();
+	outs("現金不夠 !!!");
+    }
+    pressanykey();
+}
+
+static void
+ch_eatoo()
+{
+    if (mychicken->oo > 0) {
+	mychicken->oo--;
+	mychicken->tiredstrong = 0;
+	if (mychicken->happy > 5)
+	    mychicken->happy -= 5;
+	show_file(CHICKEN_PIC "/oo", 5, 14, NO_RELOAD);
+	pressanykey();
+    }
+}
+
+static void
+ch_eatmedicine()
+{
+    if (mychicken->medicine > 0) {
+	mychicken->medicine--;
+	mychicken->sick = 0;
+	if (mychicken->hp_max > 10)
+	    mychicken->hp_max -= 3;
+	mychicken->hp = mychicken->hp_max;
+	if (mychicken->happy > 10)
+	    mychicken->happy -= 10;
+	show_file(CHICKEN_PIC "/medicine", 5, 14, NO_RELOAD);
+	pressanykey();
+    }
+}
+
+static void
+ch_kill()
+{
+    char            buf[150], ans[4];
+
+    snprintf(buf, sizeof(buf), "棄養這%s要被罰 100 元, 是否要棄養?(y/N)",
+	    chicken_type[(int)mychicken->type]);
+    getdata_str(23, 0, buf, ans, sizeof(ans), DOECHO, "N");
+    if (ans[0] == 'y') {
+
+	vice(100, "棄養寵物費");
+	more(CHICKEN_PIC "/deadth", YEA);
+	snprintf(buf, sizeof(buf),
+		 "\033[31m%s \033[m把 \033[33m%s\033[m\033[32m %s "
+		 "\033[m宰了 於 %s", cuser.userid, mychicken->name,
+		 chicken_type[(int)mychicken->type], ctime(&now));
+	log_file(CHICKENLOG, buf);
+	mychicken->name[0] = 0;
+    }
+}
+
+static int
+ch_sell()
+{
+    /*
+     * int money = (mychicken->weight -
+     * time_change[(int)mychicken->type][WEIGHT])
+     * (food_price[(int)mychicken->type])/4 + ( + ((mychicken->clean /
+     * time_change[(int)mychicken->type][CLEAN]) + (mychicken->run /
+     * time_change[(int)mychicken->type][RUN]) + (mychicken->attack /
+     * time_change[(int)mychicken->type][ATTACK]) + (mychicken->book /
+     * time_change[(int)mychicken->type][BOOK]) + (mychicken->happy /
+     * time_change[(int)mychicken->type][HAPPY]) + (mychicken->satis /
+     * time_change[(int)mychicken->type][SATIS]) + (mychicken->temperament /
+     * time_change[(int)mychicken->type][TEMPERAMENT]) -
+     * (mychicken->tiredstrong /
+     * time_change[(int)mychicken->type][TIREDSTRONG]) - (mychicken->sick /
+     * time_change[(int)mychicken->type][SICK]) + (mychicken->hp /
+     * time_change[(int)mychicken->type][HP_MAX]) + (mychicken->mm /
+     * time_change[(int)mychicken->type][MM_MAX]) + 7 - abs(age - 7)) * 3 ;
+     */
+    int             money = (age * food_price[(int)mychicken->type] * 3
+			     + (mychicken->hp_max * 10 + mychicken->weight) /
+			time_change[(int)mychicken->type][HP_MAX]) * 3 / 2 -
+    mychicken->sick;
+    char            buf[150], ans[4];
+
+    if (money < 0)
+	money = 0;
+    else if (money > MAX_CHICKEN_MONEY)
+	money = MAX_CHICKEN_MONEY;
+    //防止怪雞
+	if (mychicken->type == 1 || mychicken->type == 7) {
+	outs("\n\033[31m ㄜ..親愛的..販賣人口是會犯法的唷..\033[m");
+	pressanykey();
+	return 0;
+    }
+    if (age < 5) {
+	outs("\n 還未成年不能賣");
+	pressanykey();
+	return 0;
+    }
+    if (age > 30) {
+	outs("\n\033[31m 這..太老沒人要了\033[m");
+	pressanykey();
+	return 0;
+    }
+    snprintf(buf, sizeof(buf), "這隻%d歲%s可以賣 %d 元, 是否要賣?(y/N)", age,
+	     chicken_type[(int)mychicken->type], money);
+    getdata_str(23, 0, buf, ans, sizeof(ans), DOECHO, "N");
+    if (ans[0] == 'y') {
+	snprintf(buf, sizeof(buf), "\033[31m%s\033[m 把 \033[33m%s\033[m "
+		"\033[32m%s\033[m 用 \033[36m%d\033[m 賣了 於 %s",
+		cuser.userid, mychicken->name,
+		chicken_type[(int)mychicken->type], money, ctime(&now));
+	log_file(CHICKENLOG, buf);
+	mychicken->lastvisit = mychicken->name[0] = 0;
+	passwd_update(usernum, &cuser);
+	more(CHICKEN_PIC "/sell", YEA);
+	demoney(money);
+	return 1;
+    }
+    return 0;
+}
+
+static void
+geting_old(int *hp, int *weight, int diff, int age)
+{
+    float           ex = 0.9;
+
+    if (age > 70)
+	ex = 0.1;
+    else if (age > 30)
+	ex = 0.5;
+    else if (age > 20)
+	ex = 0.7;
+
+    diff /= 60 * 6;
+    while (diff--) {
+	*hp *= ex;
+	*weight *= ex;
+    }
+}
+
+/* 依時間變動的資料 */
+void
+time_diff(chicken_t * thechicken)
+{
+    int             diff;
+    int             theage = ((now - thechicken->cbirth) / (60 * 60 * 24));
+
+    thechicken->type %= NUM_KINDS;
+    diff = (now - thechicken->lastvisit) / 60;
+
+    if ((diff) < 1)
+	return;
+
+    if (theage > 13)		/* 老死 */
+	geting_old(&thechicken->hp_max, &thechicken->weight, diff, age);
+
+    thechicken->lastvisit = now;
+    thechicken->weight -= thechicken->hp_max * diff / 540;	/* 體重 */
+    if (thechicken->weight < 1) {
+	thechicken->sick -= thechicken->weight / 10;	/* 餓得病氣上升 */
+	thechicken->weight = 1;
+    }
+    /* 清潔度 */
+    thechicken->clean += diff * time_change[(int)thechicken->type][CLEAN] / 30;
+
+    /* 快樂度 */
+    thechicken->happy -= diff / 60;
+    if (thechicken->happy < 0)
+	thechicken->happy = 0;
+    thechicken->attack -=
+	time_change[(int)thechicken->type][ATTACK] * diff / (60 * 32);
+    if (thechicken->attack < 0)
+	thechicken->attack = 0;
+    /* 攻擊力 */
+    thechicken->run -= time_change[(int)thechicken->type][RUN] * diff / (60 * 32);
+    /* 敏捷 */
+    if (thechicken->run < 0)
+	thechicken->run = 0;
+    thechicken->book -= time_change[(int)thechicken->type][BOOK] * diff / (60 * 32);
+    /* 知識 */
+    if (thechicken->book < 0)
+	thechicken->book = 0;
+    /* 氣質 */
+    thechicken->temperament++;
+
+    thechicken->satis -= diff / 60 / 3 * time_change[(int)thechicken->type][SATIS];
+    /* 滿意度 */
+    if (thechicken->satis < 0)
+	thechicken->satis = 0;
+
+    /* 髒病的 */
+    if (mychicken->clean > 1000)
+	mychicken->sick += (mychicken->clean - 400) / 10;
+
+    if (thechicken->weight > 1)
+	thechicken->sick -= diff / 60;
+    /* 病氣恢護 */
+    if (thechicken->sick < 0)
+	thechicken->sick = 0;
+    thechicken->tiredstrong -= diff *
+	time_change[(int)thechicken->type][TIREDSTRONG] / 4;
+    /* 疲勞 */
+    if (thechicken->tiredstrong < 0)
+	thechicken->tiredstrong = 0;
+    /* hp_max */
+    if (thechicken->hp >= thechicken->hp_max / 2)
+	thechicken->hp_max +=
+	    time_change[(int)thechicken->type][HP_MAX] * diff / (60 * 12);
+    /* hp恢護 */
+    if (!thechicken->sick)
+	thechicken->hp +=
+	    time_change[(int)thechicken->type][HP_MAX] * diff / (60 * 6);
+    if (thechicken->hp > thechicken->hp_max)
+	thechicken->hp = thechicken->hp_max;
+    /* mm_max */
+    if (thechicken->mm >= thechicken->mm_max / 2)
+	thechicken->mm_max +=
+	    time_change[(int)thechicken->type][MM_MAX] * diff / (60 * 8);
+    /* mm恢護 */
+    if (!thechicken->sick)
+	thechicken->mm += diff;
+    if (thechicken->mm > thechicken->mm_max)
+	thechicken->mm = thechicken->mm_max;
+}
+
+static void
+check_sick()
+{
+    /* 髒病的 */
+    if (mychicken->tiredstrong > mychicken->hp * 0.3 && mychicken->clean > 150)
+	mychicken->sick += (mychicken->clean - 150) / 10;
+    /* 累病的 */
+    if (mychicken->tiredstrong > mychicken->hp * 1.3)
+	mychicken->sick += time_change[(int)mychicken->type][SICK];
+    /* 病氣太重還做事減hp */
+    if (mychicken->sick > mychicken->hp / 5) {
+	mychicken->hp -= (mychicken->sick - mychicken->hp / 5) / 4;
+	if (mychicken->hp < 0)
+	    mychicken->hp = 0;
+    }
+}
+
+static int
+deadtype(chicken_t * thechicken)
+{
+    int             i;
+    char            buf[150];
+
+    if (thechicken->hp <= 0)	/* hp用盡 */
+	i = 1;
+    else if (thechicken->tiredstrong > thechicken->hp * 3)	/* 操勞過度 */
+	i = 2;
+    else if (thechicken->weight > thechicken->hp_max * 5)	/* 肥胖過度 */
+	i = 3;
+    else if (thechicken->weight == 1 &&
+	     thechicken->sick > thechicken->hp_max / 4)
+	i = 4;			/* 餓死了 */
+    else if (thechicken->satis <= 0)	/* 很不滿意 */
+	i = 5;
+    else
+	return 0;
+
+    if (thechicken == mychicken) {
+	snprintf(buf, sizeof(buf),
+		 "\033[31m%s\033[m 所疼愛的\033[33m %s\033[32m %s "
+		 "\033[m掛了 於 %s",
+		 cuser.userid, thechicken->name,
+		 chicken_type[(int)thechicken->type],
+		 ctime(&now));
+	log_file(CHICKENLOG, buf);
+	mychicken->name[0] = 0;
+	passwd_update(usernum, &cuser);
+    }
+    return i;
+}
+
+int
+showdeadth(int type)
+{
+    switch (type) {
+	case 1:
+	more(CHICKEN_PIC "/nohp", YEA);
+	break;
+    case 2:
+	more(CHICKEN_PIC "/tootired", YEA);
+	break;
+    case 3:
+	more(CHICKEN_PIC "/toofat", YEA);
+	break;
+    case 4:
+	more(CHICKEN_PIC "/nofood", YEA);
+	break;
+    case 5:
+	more(CHICKEN_PIC "/nosatis", YEA);
+	break;
+    default:
+	return 0;
+    }
+    more(CHICKEN_PIC "/deadth", YEA);
+    return type;
+}
+
+int
+isdeadth(chicken_t * thechicken)
+{
+    int             i;
+
+    if (!(i = deadtype(thechicken)))
+	return 0;
+    return showdeadth(i);
+}
+
+static void
+ch_changename()
+{
+    char            buf[150], newname[20] = "";
+
+    getdata_str(b_lines - 1, 0, "嗯..改個好名字吧:", newname, 18, DOECHO,
+		mychicken->name);
+
+    if (strlen(newname) >= 3 && strcmp(newname, mychicken->name)) {
+	snprintf(buf, sizeof(buf),
+		 "\033[31m%s\033[m 把疼愛的\033[33m %s\033[32m %s "
+		 "\033[m改名為\033[33m %s\033[m 於 %s",
+		 cuser.userid, mychicken->name,
+		 chicken_type[(int)mychicken->type],
+		 newname, ctime(&now));
+	strlcpy(mychicken->name, newname, sizeof(mychicken->name));
+	log_file(CHICKENLOG, buf);
+    }
+}
+
+static int
+select_menu()
+{
+    char            ch;
+
+    reload_money();
+    move(19, 0);
+    prints("\033[44;37m 錢 :\033[33m %-10d                                  "
+	   "                       \033[m\n"
+	   "\033[33m(\033[37m1\033[33m)清理 (\033[37m2\033[33m)吃飯 "
+	   "(\033[37m3\033[33m)猜拳 (\033[37m4\033[33m)唸書 "
+	   "(\033[37m5\033[33m)親他 (\033[37m6\033[33m)打他 "
+	   "(\033[37m7\033[33m)買%s$%d (\033[37m8\033[33m)吃補丸\n"
+	   "(\033[37m9\033[33m)吃病藥 (\033[37mo\033[33m)買大補丸$100 "
+	   "(\033[37mm\033[33m)買藥$10 (\033[37mk\033[33m)棄養 "
+	   "(\033[37ms\033[33m)賣掉 (\033[37mn\033[33m)改名 "
+	   "(\033[37mq\033[33m)離開:\033[m",
+	   cuser.money,
+    /*
+     * chicken_food[(int)mychicken->type],
+     * chicken_type[(int)mychicken->type],
+     * chicken_type[(int)mychicken->type],
+     */
+	   chicken_food[(int)mychicken->type],
+	   food_price[(int)mychicken->type]);
+    do {
+	switch (ch = igetch()) {
+	case '1':
+	    ch_clean();
+	    check_sick();
+	    break;
+	case '2':
+	    ch_eat();
+	    check_sick();
+	    break;
+	case '3':
+	    ch_guess();
+	    check_sick();
+	    break;
+	case '4':
+	    ch_book();
+	    check_sick();
+	    break;
+	case '5':
+	    ch_kiss();
+	    break;
+	case '6':
+	    ch_hit();
+	    check_sick();
+	    break;
+	case '7':
+	    ch_buyitem(food_price[(int)mychicken->type], CHICKEN_PIC "/food",
+		       &mychicken->food, 1);
+	    break;
+	case '8':
+	    ch_eatoo();
+	    break;
+	case '9':
+	    ch_eatmedicine();
+	    break;
+	case 'O':
+	case 'o':
+	    ch_buyitem(100, CHICKEN_PIC "/buyoo", &mychicken->oo, 1);
+	    break;
+	case 'M':
+	case 'm':
+	    ch_buyitem(10, CHICKEN_PIC "/buymedicine", &mychicken->medicine, 1);
+	    break;
+	case 'N':
+	case 'n':
+	    ch_changename();
+	    break;
+	case 'K':
+	case 'k':
+	    ch_kill();
+	    return 0;
+	case 'S':
+	case 's':
+	    if (!ch_sell())
+		break;
+	case 'Q':
+	case 'q':
+	    return 0;
+	}
+    } while (ch < ' ' || ch > 'z');
+    return 1;
+}
+
+static int
+recover_chicken(chicken_t * thechicken)
+{
+    char            buf[200];
+    int             price = egg_price[(int)thechicken->type], money = price + (rand() % price);
+
+    if (now - thechicken->lastvisit > (60 * 60 * 24 * 7))
+	return 0;
+    outmsg("\033[33;44m★靈界守衛\033[37;45m 別害怕 我是來幫你的 \033[m");
+    bell();
+    igetch();
+    outmsg("\033[33;44m★靈界守衛\033[37;45m 你無法丟到我水球 因為我是聖靈, "
+	   "最近缺錢想賺外快 \033[m");
+    bell();
+    igetch();
+    snprintf(buf, sizeof(buf), "\033[33;44m★靈界守衛\033[37;45m "
+	     "你有一個剛走不久的%s要招換回來嗎? 只要%d元唷 \033[m",
+	     chicken_type[(int)thechicken->type], price * 2);
+    outmsg(buf);
+    bell();
+    getdata_str(21, 0, "    選擇：(N:坑人嘛/y:請幫幫我)", buf, 3, LCECHO, "N");
+    if (buf[0] == 'y' || buf[0] == 'Y') {
+	reload_money();
+	if (cuser.money < price * 2) {
+	    outmsg("\033[33;44m★靈界守衛\033[37;45m 什麼 錢沒帶夠 "
+		   "沒錢的小鬼 快去籌錢吧 \033[m");
+	    bell();
+	    igetch();
+	    return 0;
+	}
+	strlcpy(thechicken->name, "[撿回來的]", sizeof(thechicken->name));
+	thechicken->hp = thechicken->hp_max;
+	thechicken->sick = 0;
+	thechicken->satis = 2;
+	vice(money, "靈界守衛");
+	snprintf(buf, sizeof(buf),
+		 "\033[33;44m★靈界守衛\033[37;45m OK了 記得餵他點東西 "
+		 "不然可能失效 念在我也有玩Ptt 拿你%d就好 \033[m", money);
+	outmsg(buf);
+	bell();
+	igetch();
+	return 1;
+    }
+    outmsg("\033[33;44m★靈界守衛\033[37;45m 竟然說我坑人! 這年頭命真不值錢 "
+	   "除非我再來找你 你再也沒機會了 \033[m");
+    bell();
+    igetch();
+    thechicken->lastvisit = 0;
+    passwd_update(usernum, &cuser);
+    return 0;
+}
+
+#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
+
+int
+chicken_main()
+{
+    lockreturn0(CHICKEN, LOCK_MULTI);
+
+    reload_chicken();
+    age = ((now - mychicken->cbirth) / (60 * 60 * 24));
+    if (!mychicken->name[0] && !recover_chicken(mychicken) && !new_chicken()) {
+	unlockutmpmode();
+	return 0;
+    }
+    do {
+	time_diff(mychicken);
+	if (isdeadth(mychicken))
+	    break;
+	show_chicken_data(mychicken, NULL);
+    } while (select_menu());
+    reload_money();
+    passwd_update(usernum, &cuser);
+    unlockutmpmode();
+    return 0;
+}
+
+int
+chickenpk(int fd)
+{
+    char            mateid[IDLEN + 1], data[200], buf[200];
+    int             ch = 0;
+
+    userinfo_t     *uin = &SHM->uinfo[currutmp->destuip];
+    userec_t        ouser;
+    chicken_t      *ochicken = &ouser.mychicken;
+    int             r, attmax, i, datac, duid = currutmp->destuid, catched = 0,
+                    count = 0;
+
+    lockreturn0(CHICKEN, LOCK_MULTI);
+
+    strlcpy(mateid, currutmp->mateid, sizeof(mateid));
+    /* 把對手的id用local buffer記住 */
+
+    getuser(mateid);
+    memcpy(&ouser, &xuser, sizeof(userec_t));
+    reload_chicken();
+    if (!ochicken->name[0] || !mychicken->name[0]) {
+	outmsg("有一方沒有寵物");	/* Ptt:妨止page時把寵物賣掉 */
+	bell();
+	refresh();
+	add_io(0, 0);
+	close(fd);
+	unlockutmpmode();
+	sleep(1);
+	return 0;
+    }
+    show_chicken_data(ochicken, mychicken);
+    add_io(fd, 3);		/* 把fd加到igetch監視 */
+    while (1) {
+	r = rand();
+	ch = igetkey();
+	getuser(mateid);
+	memcpy(&ouser, &xuser, sizeof(userec_t));
+	reload_chicken();
+	show_chicken_data(ochicken, mychicken);
+	time_diff(mychicken);
+
+	i = mychicken->attack * mychicken->hp / mychicken->hp_max;
+	for (attmax = 2; (i = i * 9 / 10); attmax++);
+
+	if (ch == I_OTHERDATA) {
+	    count = 0;
+	    datac = recv(fd, data, sizeof(data), 0);
+	    if (datac <= 1)
+		break;
+	    move(17, 0);
+	    outs(data + 1);
+	    switch (data[0]) {
+	    case 'c':
+		catched = 1;
+		move(16, 0);
+		outs("要放他走嗎?(y/N)");
+		break;
+	    case 'd':
+		move(16, 0);
+		outs("阿~倒下了!!");
+		break;
+	    }
+	    if (data[0] == 'd' || data[0] == 'q' || data[0] == 'l')
+		break;
+	    continue;
+	} else if (currutmp->turn) {
+	    count = 0;
+	    currutmp->turn = 0;
+	    uin->turn = 1;
+	    mychicken->tiredstrong++;
+	    switch (ch) {
+	    case 'y':
+		if (catched == 1) {
+		    snprintf(data, sizeof(data),
+			     "l讓 %s 落跑了\n", ochicken->name);
+		}
+		break;
+	    case 'n':
+		catched = 0;
+	    default:
+	    case 'k':
+		r = r % (attmax + 2);
+		if (r) {
+		    snprintf(data, sizeof(data),
+			     "M%s %s%s %s 傷了 %d 點\n", mychicken->name,
+			     damage_degree[r / 3 > 15 ? 15 : r / 3],
+			     attack_type[(int)mychicken->type],
+			     ochicken->name, r);
+		    ochicken->hp -= r;
+		} else
+		    snprintf(data, sizeof(data),
+			     "M%s 覺得手軟出擊無效\n", mychicken->name);
+		break;
+	    case 'o':
+		if (mychicken->oo > 0) {
+		    mychicken->oo--;
+		    mychicken->hp += 300;
+		    if (mychicken->hp > mychicken->hp_max)
+			mychicken->hp = mychicken->hp_max;
+		    mychicken->tiredstrong = 0;
+		    snprintf(data, sizeof(data), "M%s 吃了顆大補丸補充體力\n",
+			     mychicken->name);
+		} else
+		    snprintf(data, sizeof(data),
+			    "M%s 想吃大補丸, 可是沒有大補丸可吃\n",
+			    mychicken->name);
+		break;
+	    case 'q':
+		if (r % (mychicken->run + 1) > r % (ochicken->run + 1))
+		    snprintf(data, sizeof(data), "q%s 落跑了\n",
+			     mychicken->name);
+		else
+		    snprintf(data, sizeof(data),
+			     "c%s 想落跑, 但被 %s 抓到了\n",
+			     mychicken->name, ochicken->name);
+		break;
+	    }
+	    if (deadtype(ochicken)) {
+		strtok(data, "\n");
+		strlcpy(buf, data, sizeof(buf));
+		snprintf(data, sizeof(data), "d%s , %s 被 %s 打死了\n",
+			 buf + 1, ochicken->name, mychicken->name);
+	    }
+	    move(17, 0);
+	    outs(data + 1);
+	    i = strlen(data) + 1;
+	    passwd_update(duid, &ouser);
+	    passwd_update(usernum, &cuser);
+	    send(fd, data, i, 0);
+	    if (data[0] == 'q' || data[0] == 'd')
+		break;
+	} else {
+	    move(17, 0);
+	    if (count++ > 30)
+		break;
+	}
+    }
+    add_io(0, 0);		/* 把igetch恢復回 */
+    pressanykey();
+    close(fd);
+    showdeadth(deadtype(mychicken));
+    unlockutmpmode();
+    return 0;
+}
diff --git a/pttbbs/mbbsd/dark.c b/pttbbs/mbbsd/dark.c
new file mode 100644
index 00000000..71058894
--- /dev/null
+++ b/pttbbs/mbbsd/dark.c
@@ -0,0 +1,555 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define RED   1
+#define BLACK 0
+typedef short int sint;
+
+typedef struct item {
+    short int       color, value, die, out;
+}               item;
+
+typedef struct cur {
+    short int       y, x, end;
+}               cur;
+
+static item     brd[4][8];
+static cur      curr;		/* 6 個 bytes */
+
+static char    *rname[] = {"兵", "炮", "傌", "車", "相", "仕", "帥"};
+static char    *bname[] = {"卒", "包", "馬", "車", "象", "士", "將"};
+
+static sint     cury[] = {3, 5, 7, 9}, curx[] = {5, 9, 13, 17, 21, 25, 29, 33};
+static sint     rcount, bcount, cont, fix;	/* cont:是否可連吃 */
+static sint     my = 0, mx = 0, mly = -1, mlx = -1;	/* 移動的座標 標 */
+
+static sint     cur_eaty, cur_eatx;	/* 吃掉對方其子的秀出座標 */
+static void
+brdswap(sint y, sint x, sint ly, sint lx)
+{
+    memcpy(&brd[y][x], &brd[ly][lx], sizeof(item));
+    brd[ly][lx].die = 1;
+    brd[ly][lx].color = -1;	/* 沒這個color */
+    brd[ly][lx].value = -1;
+}
+
+static void
+pprints(sint y, sint x, char *s)
+{
+    move(y, x);
+    clrtoeol();
+    prints("%s", s);
+}
+
+static          sint
+Is_win(item att, item det, sint y, sint x, sint ly, sint lx)
+{
+    sint            i, c = 0, min, max;
+    if (att.value == 1) {	/* 砲 */
+	if (y != ly && x != lx)
+	    return 0;
+	if ((abs(ly - y) == 1 && brd[y][x].die == 0) ||
+	    (abs(lx - x) == 1 && brd[y][x].die == 0))
+	    return 0;
+	if (y == ly) {
+	    if (x > lx) {
+		max = x;
+		min = lx;
+	    } else {
+		max = lx;
+		min = x;
+	    }
+	    for (i = min + 1; i < max; i++)
+		if (brd[y][i].die == 0)
+		    c++;
+	} else if (x == lx) {
+	    if (y > ly) {
+		max = y;
+		min = ly;
+	    } else {
+		max = ly;
+		min = y;
+	    }
+	    for (i = min + 1; i < max; i++)
+		if (brd[i][x].die == 0)
+		    c++;
+	}
+	if (c != 1)
+	    return 0;
+	if (det.die == 1)
+	    return 0;
+	return 1;
+    }
+    /* 非砲 */
+    if (((abs(ly - y) == 1 && x == lx) || (abs(lx - x) == 1 && ly == y)) && brd[y][x].out == 1) {
+	if (att.value == 0 && det.value == 6)
+	    return 1;
+	else if (att.value == 6 && det.value == 0)
+	    return 0;
+	else if (att.value >= det.value)
+	    return 1;
+	else
+	    return 0;
+    }
+    return 0;
+}
+
+static          sint
+Is_move(sint y, sint x, sint ly, sint lx)
+{
+    if (brd[y][x].die == 1 && ((abs(ly - y) == 1 && x == lx) || (abs(lx - x) == 1 && ly == y)))
+	return 1;
+    return 0;
+}
+
+static void
+brd_rand()
+{
+    sint            y, x, index;
+    sint            tem[32];
+    sint            value[32] = {0, 0, 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6,
+    0, 0, 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6};
+
+    bzero(brd, sizeof(brd));
+    bzero(tem, sizeof(tem));
+    bzero(&curr, sizeof(curr));
+    srand(getpid() % 2731 + now % 3219);
+    for (y = 0; y < 4; y++)
+	for (x = 0; x < 8; x++)
+	    while (1) {
+		index = rand() % 32;
+		if (tem[index])
+		    continue;
+		brd[y][x].color = (index > 15) ? 0 : 1;
+		brd[y][x].value = value[index];
+		tem[index] = 1;
+		break;
+	    }
+}
+
+static void
+brd_prints()
+{
+    clear();
+    move(1, 0);
+    outs("\n"
+	 "   ╭─┬─┬─┬─┬─┬─┬─┬─╮\n"
+	 "   │●│●│●│●│●│●│●│●│\n"
+	 "   ├─┼─┼─┼─┼─┼─┼─┼─┤\n"
+	 "   │●│●│●│●│●│●│●│●│\n"
+	 "   ├─┼─┼─┼─┼─┼─┼─┼─┤\n"
+	 "   │●│●│●│●│●│●│●│●│\n"
+	 "   ├─┼─┼─┼─┼─┼─┼─┼─┤\n"
+	 "   │●│●│●│●│●│●│●│●│\n"
+	 "   ╰─┴─┴─┴─┴─┴─┴─┴─╯\n"
+	 "   ");
+}
+
+static void
+draw_line(sint y, sint f)
+{
+    sint            i;
+    char            buf[1024], tmp[256];
+
+    *buf = 0;
+    *tmp = 0;
+    strlcpy(buf, "\033[43;30m", sizeof(buf));
+    for (i = 0; i < 8; i++) {
+	if (brd[y][i].die == 1)
+	    snprintf(tmp, sizeof(tmp), "│  ");
+	else if (brd[y][i].out == 0)
+	    snprintf(tmp, sizeof(tmp), "│●");
+	else {
+	    snprintf(tmp, sizeof(tmp), "│\033[%s1;%dm%s\033[m\033[43;30m",
+		     (f == i) ? "1;47;" : "", (brd[y][i].color) ? 31 : 34,
+		     (brd[y][i].color) ? rname[brd[y][i].value] :
+		     bname[brd[y][i].value]);
+	}
+	strcat(buf, tmp);
+    }
+    strcat(buf, "│\033[m");
+
+    move(cury[y], 3);
+    clrtoeol();
+    prints("%s", buf);
+}
+
+static void
+redraw()
+{
+    sint            i = 0;
+    for (; i < 4; i++)
+	draw_line(i, -1);
+}
+
+static          sint
+playing(sint fd, sint color, sint ch, sint * b, userinfo_t * uin)
+{
+    curr.end = 0;
+    move(cury[my], curx[mx]);
+
+    if (fix) {
+	if (ch == 's') {
+	    fix = 0;
+	    *b = 0;
+	    return 0;
+	} else {
+	    draw_line(mly, -1);
+	}
+    }
+    switch (ch) {
+    case KEY_LEFT:
+	if (mx == 0)
+	    mx = 7;
+	else
+	    mx--;
+	move(cury[my], curx[mx]);
+	*b = -1;
+	break;
+    case KEY_RIGHT:
+	if (mx == 7)
+	    mx = 0;
+	else
+	    mx++;
+	move(cury[my], curx[mx]);
+	*b = -1;
+	break;
+    case KEY_UP:
+	if (my == 0)
+	    my = 3;
+	else
+	    my--;
+	move(cury[my], curx[mx]);
+	*b = -1;
+	break;
+    case KEY_DOWN:
+	if (my == 3)
+	    my = 0;
+	else
+	    my++;
+	move(cury[my], curx[mx]);
+	*b = -1;
+	break;
+    case 'q':
+    case 'Q':
+	if (!color)
+	    bcount = 0;
+	else
+	    rcount = 0;
+	*b = 0;
+	return -2;
+    case 'p':
+    case 'P':
+	return -3;
+    case 'c':
+	return -4;
+    case 'g':
+	return -5;
+    case 's':			/* 翻開棋子 或是選擇棋子 */
+	/* 選擇棋子 */
+	if (brd[my][mx].out == 1) {
+	    if (brd[my][mx].color != color) {
+		*b = -1;
+		break;
+	    }
+	    if (mly < 0) {	/* 可以選擇 */
+		mly = my;
+		mlx = mx;
+		draw_line(my, mx);
+		*b = -1;
+		break;
+	    } else if (mly == my && mlx == mx) {	/* 不選了 */
+		mly = -1;
+		mlx = -1;
+		draw_line(my, -1);
+	    } else {
+		draw_line(mly, -1);
+		mly = my;
+		mlx = mx;
+		if (brd[mly][mlx].value == 1)
+		    fix = 1;
+		draw_line(my, mx);
+	    }
+	    *b = -1;
+	    break;
+	}
+	/* 翻開棋子 */
+	if (mly >= 0) {
+	    *b = -1;
+	    break;
+	}			/* 本來就是翻開的 */
+	/* 決定一開始的顏色 */
+	if (currutmp->color == '.') {
+	    if (uin->color != '1' && uin->color != '0')
+		currutmp->color = (brd[my][mx].color) ? '1' : '0';
+	    else
+		currutmp->color = (uin->color == '0') ? '1' : '0';
+	}
+	brd[my][mx].out = 1;
+	draw_line(my, -1);
+	move(cury[my], curx[mx]);
+	*b = 0;
+	break;
+    case 'u':
+	move(0, 0);
+	clrtoeol();
+	prints("%s色%s cont=%d", (brd[my][mx].color == RED) ? "紅" : "黑", rname[brd[my][mx].value], cont);
+	*b = -1;
+	break;
+    case '\r':			/* 吃 or 移動  ly跟lx必須大於0 */
+    case '\n':
+	if (
+	    mly >= 0		/* 要先選子 */
+	    &&
+	    brd[mly][mlx].color != brd[my][mx].color	/* 同色不能移動也不能吃 */
+	    &&
+	    (Is_move(my, mx, mly, mlx) || Is_win(brd[mly][mlx], brd[my][mx], my, mx, mly, mlx))
+	    ) {
+	    if (fix && brd[my][mx].value < 0) {
+		*b = -1;
+		return 0;
+	    }
+	    if (brd[my][mx].value >= 0 && brd[my][mx].die == 0) {
+		if (!color)
+		    bcount--;
+		else
+		    rcount--;
+		move(cur_eaty, cur_eatx);
+		prints("%s", (color) ? bname[brd[my][mx].value] : rname[brd[my][mx].value]);
+		if (cur_eatx >= 26) {
+		    cur_eatx = 5;
+		    cur_eaty++;
+		} else
+		    cur_eatx += 3;
+	    }
+	    brdswap(my, mx, mly, mlx);
+	    draw_line(mly, -1);
+	    draw_line(my, -1);
+	    if (fix == 1)
+		*b = -1;
+	    else {
+		mly = -1;
+		mlx = -1;
+		*b = 0;
+	    }
+	} else
+	    *b = -1;
+	break;
+    default:
+	*b = -1;
+    }
+
+    if (!rcount)
+	return -1;
+    else if (!bcount)
+	return -1;
+    if (*b == -1)
+	return 0;
+    curr.y = my;
+    curr.x = mx;
+    curr.end = (!*b) ? 1 : 0;
+    send(fd, &curr, sizeof(curr), 0);
+    send(fd, &brd, sizeof(brd), 0);
+    return 0;
+}
+
+int
+main_dark(int fd, userinfo_t * uin)
+{
+    sint            end = 0, ch = 1, go_on, i = 0, cont = 0;
+    char            buf[16];
+    *buf = 0;
+    fix = 0;
+    currutmp->color = '.';
+    /* '.' 表示還沒決定顏色 */
+    rcount = 16;
+    bcount = 16;
+    //initialize
+	cur_eaty = 18, cur_eatx = 5;
+    brd_prints();
+    if (currutmp->turn) {
+	brd_rand();
+	send(fd, &brd, sizeof(brd), 0);
+	pprints(21, 0, "   ◆你是先手");
+	pprints(22, 0, "   ◆輪到你下了");
+    } else {
+	recv(fd, &brd, sizeof(brd), 0);
+	pprints(21, 0, "   ◆你是後手");
+    }
+    move(12, 3);
+    prints("%s[0勝0敗]ｖｓ.%s[0勝0敗]", currutmp->userid, currutmp->mateid);
+    outs("\n"
+	 "                                                ╳╱功\能表╲╳╲╱╳╲\n"
+	 "                                                ╱ ↑←↓→: 移動\n"
+	 "                                                ╳ ｓ:       選子,翻子\n"
+	 "                                                ╱ enter:    吃棋,放棋\n"
+	 "　已經解決的:　　                               ╳ ｐ:       合棋\n"
+	 "                                       　　     ╱ ｑ:       認輸\n"
+	 "                                                ╳ ｃ:       換邊");
+
+    if (currutmp->turn)
+	move(cury[0], curx[0]);
+
+    add_io(fd, 0);
+    while (end <= 0) {
+	if (uin->turn == 'w' || currutmp->turn == 'w') {
+	    end = -1;
+	    break;
+	}
+	ch = igetkey();
+	if (ch == I_OTHERDATA) {
+	    ch = recv(fd, &curr, sizeof(curr), 0);
+	    if (ch != sizeof(curr)) {
+		if (uin->turn == 'e') {
+		    end = -3;
+		    break;
+		} else if (uin->turn != 'w') {
+		    end = -1;
+		    currutmp->turn = 'w';
+		    break;
+		}
+		end = -1;
+		break;
+	    }
+	    if (curr.end == -3)
+		pprints(23, 30, "\033[33m要求合棋\033[m");
+	    else if (curr.end == -4)
+		pprints(23, 30, "\033[33m要求換邊\033[m");
+	    else if (curr.end == -5)
+		pprints(23, 30, "\033[33m要求連吃\033[m");
+	    else
+		pprints(23, 30, "");
+
+	    recv(fd, &brd, sizeof(brd), 0);
+	    my = curr.y;
+	    mx = curr.x;
+	    redraw();
+	    if (curr.end)
+		pprints(22, 0, "   ◆輪到你下了");
+	    move(cury[my], curx[mx]);
+	} else {
+	    if (currutmp->turn == 'p') {
+		if (ch == 'y') {
+		    end = -3;
+		    currutmp->turn = 'e';
+		    break;
+		} else {
+		    pprints(23, 30, "");
+		    *buf = 0;
+		    currutmp->turn = (uin->turn) ? 0 : 1;
+		}
+	    } else if (currutmp->turn == 'c') {
+		if (ch == 'y') {
+		    currutmp->color = (currutmp->color == '1') ? '0' : '1';
+		    uin->color = (uin->color == '1') ? '0' : '1';
+		    pprints(21, 0, (currutmp->color == '1') ? "   \033[1;33m◆你持紅色棋\033[m" : "   \033[1;33m◆你持黑色棋\033[m");
+		} else {
+		    pprints(23, 30, "");
+		    currutmp->turn = (uin->turn) ? 0 : 1;
+		}
+	    } else if (currutmp->turn == 'g') {
+		if (ch == 'y') {
+		    cont = 1;
+		    pprints(21, 0, "   \033[1;33m◆你持紅色棋\033[m 可連吃");
+		} else {
+		    pprints(23, 30, "");
+		    currutmp->turn = (uin->turn) ? 0 : 1;
+		}
+	    }
+	    if (currutmp->turn == 1) {
+		if (uin->turn == 'g') {
+		    cont = 1;
+		    uin->turn = (currutmp->turn) ? 0 : 1;
+		    pprints(21, 10, "可連吃");
+		}
+		end = playing(fd, currutmp->color - '0', ch, &go_on, uin);
+
+		if (end == -1) {
+		    currutmp->turn = 'w';
+		    break;
+		} else if (end == -2) {
+		    uin->turn = 'w';
+		    break;
+		} else if (end == -3) {
+		    uin->turn = 'p';
+		    curr.end = -3;
+		    send(fd, &curr, sizeof(curr), 0);
+		    send(fd, &brd, sizeof(buf), 0);
+		    continue;
+		} else if (end == -4) {
+		    if (currutmp->color != '1' && currutmp->color != '0')
+			continue;
+		    uin->turn = 'c';
+		    i = 0;
+		    curr.end = -4;
+		    send(fd, &curr, sizeof(curr), 0);
+		    send(fd, &brd, sizeof(buf), 0);
+		    continue;
+		} else if (end == -5) {
+		    uin->turn = 'g';
+		    curr.end = -5;
+		    send(fd, &curr, sizeof(curr), 0);
+		    send(fd, &brd, sizeof(buf), 0);
+		    continue;
+		}
+		if (!i && currutmp->color == '1') {
+		    pprints(21, 0, "   \033[1;33m◆你持紅色棋\033[m");
+		    i++;
+		    move(cury[my], curx[mx]);
+		}
+		if (!i && currutmp->color == '0') {
+		    pprints(21, 0, "   \033[1;33m◆你持黑色棋\033[m");
+		    i++;
+		    move(cury[my], curx[mx]);
+		}
+		if (uin->turn == 'e') {
+		    end = -3;
+		    break;
+		}
+		if (go_on < 0)
+		    continue;
+
+		move(22, 0);
+		clrtoeol();
+		prints("   ◆輪到%s下 別怕別怕 他算啥米", currutmp->mateid);
+		currutmp->turn = 0;
+		uin->turn = 1;
+	    } else {
+		if (ch == 'q') {
+		    uin->turn = 'w';
+		    break;
+		}
+		move(22, 0);
+		clrtoeol();
+		prints("   ◆輪到%s下 別怕別怕 他算啥米", currutmp->mateid);
+	    }
+	}
+    }
+
+    switch (end) {
+    case -1:
+    case -2:
+	if (currutmp->turn == 'w') {
+	    move(22, 0);
+	    clrtoeol();
+	    prints("你贏了.. 真是恭喜~~");
+	} else {
+	    move(22, 0);
+	    clrtoeol();
+	    prints("輸掉了啦.....下次讓他好看!!");
+	}
+	break;
+    case -3:
+	pprints(22, 0, "合棋唷!! 下次在分高下吧 ^_^");
+	break;
+    default:
+	add_io(0, 0);
+	close(fd);
+	pressanykey();
+	return 0;
+    }
+    add_io(0, 0);
+    close(fd);
+    pressanykey();
+    return 0;
+}
diff --git a/pttbbs/mbbsd/descrypt.c b/pttbbs/mbbsd/descrypt.c
new file mode 100644
index 00000000..14306b36
--- /dev/null
+++ b/pttbbs/mbbsd/descrypt.c
@@ -0,0 +1,621 @@
+/* $Id$ */
+
+/*
+ * FreeSec: libcrypt for NetBSD
+ * 
+ * Copyright (c) 1994 David Burren All rights reserved.
+ * 
+ * Adapted for FreeBSD-2.0 by Geoffrey M. Rehmet crypt.c should now *only*
+ * export crypt(), in order to make binaries of libcrypt exportable from the
+ * USA
+ * 
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are
+ * met: 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer. 2.
+ * Redistributions in binary form must reproduce the above copyright notice,
+ * this list of conditions and the following disclaimer in the documentation
+ * and/or other materials provided with the distribution. 4. Neither the name
+ * of the author nor the names of other contributors may be used to endorse
+ * or promote products derived from this software without specific prior
+ * written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND ANY
+ * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
+ * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+ * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+ * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ * 
+ * $FreeBSD: src/secure/lib/libcrypt/crypt.c,v 1.11 1999/08/28 01:30:24 peter
+ * Exp $
+ * 
+ * This is an original implementation of the DES and the crypt(3) interfaces by
+ * David Burren <davidb@werj.com.au>.
+ * 
+ * An excellent reference on the underlying algorithm (and related algorithms)
+ * is:
+ * 
+ * B. Schneier, Applied Cryptography: protocols, algorithms, and source code in
+ * C, John Wiley & Sons, 1994.
+ * 
+ * Note that in that book's description of DES the lookups for the initial,
+ * pbox, and final permutations are inverted (this has been brought to the
+ * attention of the author).  A list of errata for this book has been posted
+ * to the sci.crypt newsgroup by the author and is available for FTP.
+ * 
+ * ARCHITECTURE ASSUMPTIONS: This code assumes that u_longs are 32 bits.  It
+ * will probably not operate on 64-bit machines without modifications. It is
+ * assumed that the 8-byte arrays passed by reference can be addressed as
+ * arrays of u_longs (ie. the CPU is not picky about alignment).
+ */
+
+#ifndef HAVE_DES_CRYPT
+
+#include <sys/types.h>
+#include <sys/param.h>
+#include <pwd.h>
+#include <string.h>
+
+static unsigned char IP[64] = {
+    58, 50, 42, 34, 26, 18, 10, 2, 60, 52, 44, 36, 28, 20, 12, 4,
+    62, 54, 46, 38, 30, 22, 14, 6, 64, 56, 48, 40, 32, 24, 16, 8,
+    57, 49, 41, 33, 25, 17, 9, 1, 59, 51, 43, 35, 27, 19, 11, 3,
+    61, 53, 45, 37, 29, 21, 13, 5, 63, 55, 47, 39, 31, 23, 15, 7
+};
+
+static unsigned char inv_key_perm[64];
+static unsigned char u_key_perm[56];
+static unsigned char key_perm[56] = {
+    57, 49, 41, 33, 25, 17, 9, 1, 58, 50, 42, 34, 26, 18,
+    10, 2, 59, 51, 43, 35, 27, 19, 11, 3, 60, 52, 44, 36,
+    63, 55, 47, 39, 31, 23, 15, 7, 62, 54, 46, 38, 30, 22,
+    14, 6, 61, 53, 45, 37, 29, 21, 13, 5, 28, 20, 12, 4
+};
+
+static unsigned char key_shifts[16] = {
+    1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1
+};
+
+static unsigned char inv_comp_perm[56];
+static unsigned char comp_perm[48] = {
+    14, 17, 11, 24, 1, 5, 3, 28, 15, 6, 21, 10,
+    23, 19, 12, 4, 26, 8, 16, 7, 27, 20, 13, 2,
+    41, 52, 31, 37, 47, 55, 30, 40, 51, 45, 33, 48,
+    44, 49, 39, 56, 34, 53, 46, 42, 50, 36, 29, 32
+};
+
+/*
+ * No E box is used, as it's replaced by some ANDs, shifts, and ORs.
+ */
+
+static unsigned char u_sbox[8][64];
+static unsigned char sbox[8][64] = {
+    {
+	14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7,
+	0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8,
+	4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0,
+	15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 13
+    },
+    {
+	15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10,
+	3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5,
+	0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15,
+	13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9
+    },
+    {
+	10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8,
+	13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1,
+	13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7,
+	1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12
+    },
+    {
+	7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15,
+	13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9,
+	10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4,
+	3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14
+    },
+    {
+	2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9,
+	14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6,
+	4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14,
+	11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3
+    },
+    {
+	12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11,
+	10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8,
+	9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6,
+	4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13
+    },
+    {
+	4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1,
+	13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6,
+	1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2,
+	6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12
+    },
+    {
+	13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7,
+	1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2,
+	7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8,
+	2, 1, 14, 7, 4, 10, 8, 13, 15, 12, 9, 0, 3, 5, 6, 11
+    }
+};
+
+static unsigned char un_pbox[32];
+static unsigned char pbox[32] = {
+    16, 7, 20, 21, 29, 12, 28, 17, 1, 15, 23, 26, 5, 18, 31, 10,
+    2, 8, 24, 14, 32, 27, 3, 9, 19, 13, 30, 6, 22, 11, 4, 25
+};
+
+static unsigned long bits32[32] = {
+    0x80000000, 0x40000000, 0x20000000, 0x10000000,
+    0x08000000, 0x04000000, 0x02000000, 0x01000000,
+    0x00800000, 0x00400000, 0x00200000, 0x00100000,
+    0x00080000, 0x00040000, 0x00020000, 0x00010000,
+    0x00008000, 0x00004000, 0x00002000, 0x00001000,
+    0x00000800, 0x00000400, 0x00000200, 0x00000100,
+    0x00000080, 0x00000040, 0x00000020, 0x00000010,
+    0x00000008, 0x00000004, 0x00000002, 0x00000001
+};
+
+static unsigned char bits8[8] = {0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01};
+
+static unsigned long saltbits;
+static long     old_salt;
+static unsigned long *bits28, *bits24;
+static unsigned char init_perm[64], final_perm[64];
+static unsigned long en_keysl[16], en_keysr[16];
+static unsigned long de_keysl[16], de_keysr[16];
+static int      des_initialised = 0;
+static unsigned char m_sbox[4][4096];
+static unsigned long psbox[4][256];
+static unsigned long ip_maskl[8][256], ip_maskr[8][256];
+static unsigned long fp_maskl[8][256], fp_maskr[8][256];
+static unsigned long key_perm_maskl[8][128], key_perm_maskr[8][128];
+static unsigned long comp_maskl[8][128], comp_maskr[8][128];
+static unsigned long old_rawkey0, old_rawkey1;
+
+static unsigned char ascii64[] =
+"./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
+/* 0000000000111111111122222222223333333333444444444455555555556666 */
+/* 0123456789012345678901234567890123456789012345678901234567890123 */
+
+static int
+ascii_to_bin(char ch)
+{
+    if (ch > 'z')
+	return 0;
+    if (ch >= 'a')
+	return ch - 'a' + 38;
+    if (ch > 'Z')
+	return 0;
+    if (ch >= 'A')
+	return ch - 'A' + 12;
+    if (ch > '9')
+	return 0;
+    if (ch >= '.')
+	return ch - '.';
+    return 0;
+}
+
+static void
+des_init()
+{
+    int             i, j, b, k, inbit, obit;
+    unsigned long  *p, *il, *ir, *fl, *fr;
+
+    old_rawkey0 = old_rawkey1 = 0L;
+    saltbits = 0L;
+    old_salt = 0L;
+    bits24 = (bits28 = bits32 + 4) + 4;
+
+    /*
+     * Invert the S-boxes, reordering the input bits.
+     */
+    for (i = 0; i < 8; i++)
+	for (j = 0; j < 64; j++) {
+	    b = (j & 0x20) | ((j & 1) << 4) | ((j >> 1) & 0xf);
+	    u_sbox[i][j] = sbox[i][b];
+	}
+
+    /*
+     * Convert the inverted S-boxes into 4 arrays of 8 bits. Each will handle
+     * 12 bits of the S-box input.
+     */
+    for (b = 0; b < 4; b++)
+	for (i = 0; i < 64; i++)
+	    for (j = 0; j < 64; j++)
+		m_sbox[b][(i << 6) | j] =
+		    (u_sbox[(b << 1)][i] << 4) |
+		    u_sbox[(b << 1) + 1][j];
+
+    /*
+     * Set up the initial & final permutations into a useful form, and
+     * initialise the inverted key permutation.
+     */
+    for (i = 0; i < 64; i++) {
+	init_perm[final_perm[i] = IP[i] - 1] = i;
+	inv_key_perm[i] = 255;
+    }
+
+    /*
+     * Invert the key permutation and initialise the inverted key compression
+     * permutation.
+     */
+    for (i = 0; i < 56; i++) {
+	u_key_perm[i] = key_perm[i] - 1;
+	inv_key_perm[key_perm[i] - 1] = i;
+	inv_comp_perm[i] = 255;
+    }
+
+    /*
+     * Invert the key compression permutation.
+     */
+    for (i = 0; i < 48; i++) {
+	inv_comp_perm[comp_perm[i] - 1] = i;
+    }
+
+    /*
+     * Set up the OR-mask arrays for the initial and final permutations, and
+     * for the key initial and compression permutations.
+     */
+    for (k = 0; k < 8; k++) {
+	for (i = 0; i < 256; i++) {
+	    *(il = &ip_maskl[k][i]) = 0L;
+	    *(ir = &ip_maskr[k][i]) = 0L;
+	    *(fl = &fp_maskl[k][i]) = 0L;
+	    *(fr = &fp_maskr[k][i]) = 0L;
+	    for (j = 0; j < 8; j++) {
+		inbit = 8 * k + j;
+		if (i & bits8[j]) {
+		    if ((obit = init_perm[inbit]) < 32)
+			*il |= bits32[obit];
+		    else
+			*ir |= bits32[obit - 32];
+		    if ((obit = final_perm[inbit]) < 32)
+			*fl |= bits32[obit];
+		    else
+			*fr |= bits32[obit - 32];
+		}
+	    }
+	}
+	for (i = 0; i < 128; i++) {
+	    *(il = &key_perm_maskl[k][i]) = 0L;
+	    *(ir = &key_perm_maskr[k][i]) = 0L;
+	    for (j = 0; j < 7; j++) {
+		inbit = 8 * k + j;
+		if (i & bits8[j + 1]) {
+		    if ((obit = inv_key_perm[inbit]) == 255)
+			continue;
+		    if (obit < 28)
+			*il |= bits28[obit];
+		    else
+			*ir |= bits28[obit - 28];
+		}
+	    }
+	    *(il = &comp_maskl[k][i]) = 0L;
+	    *(ir = &comp_maskr[k][i]) = 0L;
+	    for (j = 0; j < 7; j++) {
+		inbit = 7 * k + j;
+		if (i & bits8[j + 1]) {
+		    if ((obit = inv_comp_perm[inbit]) == 255)
+			continue;
+		    if (obit < 24)
+			*il |= bits24[obit];
+		    else
+			*ir |= bits24[obit - 24];
+		}
+	    }
+	}
+    }
+
+    /*
+     * Invert the P-box permutation, and convert into OR-masks for handling
+     * the output of the S-box arrays setup above.
+     */
+    for (i = 0; i < 32; i++)
+	un_pbox[pbox[i] - 1] = i;
+
+    for (b = 0; b < 4; b++)
+	for (i = 0; i < 256; i++) {
+	    *(p = &psbox[b][i]) = 0L;
+	    for (j = 0; j < 8; j++) {
+		if (i & bits8[j])
+		    *p |= bits32[un_pbox[8 * b + j]];
+	    }
+	}
+
+    des_initialised = 1;
+}
+
+static void
+setup_salt(long salt)
+{
+    unsigned long   obit, saltbit;
+    int             i;
+
+    if (salt == old_salt)
+	return;
+    old_salt = salt;
+
+    saltbits = 0L;
+    saltbit = 1;
+    obit = 0x800000;
+    for (i = 0; i < 24; i++) {
+	if (salt & saltbit)
+	    saltbits |= obit;
+	saltbit <<= 1;
+	obit >>= 1;
+    }
+}
+
+static int
+des_setkey(const char *key)
+{
+    unsigned long   k0, k1, rawkey0, rawkey1;
+    int             shifts, round;
+
+    if (!des_initialised)
+	des_init();
+
+    rawkey0 = ntohl(*(unsigned long *)key);
+    rawkey1 = ntohl(*(unsigned long *)(key + 4));
+
+    if ((rawkey0 | rawkey1)
+	&& rawkey0 == old_rawkey0
+	&& rawkey1 == old_rawkey1) {
+	/*
+	 * Already setup for this key. This optimisation fails on a zero key
+	 * (which is weak and has bad parity anyway) in order to simplify the
+	 * starting conditions.
+	 */
+	return 0;
+    }
+    old_rawkey0 = rawkey0;
+    old_rawkey1 = rawkey1;
+
+    /*
+     * Do key permutation and split into two 28-bit subkeys.
+     */
+    k0 = key_perm_maskl[0][rawkey0 >> 25]
+	| key_perm_maskl[1][(rawkey0 >> 17) & 0x7f]
+	| key_perm_maskl[2][(rawkey0 >> 9) & 0x7f]
+	| key_perm_maskl[3][(rawkey0 >> 1) & 0x7f]
+	| key_perm_maskl[4][rawkey1 >> 25]
+	| key_perm_maskl[5][(rawkey1 >> 17) & 0x7f]
+	| key_perm_maskl[6][(rawkey1 >> 9) & 0x7f]
+	| key_perm_maskl[7][(rawkey1 >> 1) & 0x7f];
+    k1 = key_perm_maskr[0][rawkey0 >> 25]
+	| key_perm_maskr[1][(rawkey0 >> 17) & 0x7f]
+	| key_perm_maskr[2][(rawkey0 >> 9) & 0x7f]
+	| key_perm_maskr[3][(rawkey0 >> 1) & 0x7f]
+	| key_perm_maskr[4][rawkey1 >> 25]
+	| key_perm_maskr[5][(rawkey1 >> 17) & 0x7f]
+	| key_perm_maskr[6][(rawkey1 >> 9) & 0x7f]
+	| key_perm_maskr[7][(rawkey1 >> 1) & 0x7f];
+    /*
+     * Rotate subkeys and do compression permutation.
+     */
+    shifts = 0;
+    for (round = 0; round < 16; round++) {
+	unsigned long   t0, t1;
+
+	shifts += key_shifts[round];
+
+	t0 = (k0 << shifts) | (k0 >> (28 - shifts));
+	t1 = (k1 << shifts) | (k1 >> (28 - shifts));
+
+	de_keysl[15 - round] =
+	    en_keysl[round] = comp_maskl[0][(t0 >> 21) & 0x7f]
+	    | comp_maskl[1][(t0 >> 14) & 0x7f]
+	    | comp_maskl[2][(t0 >> 7) & 0x7f]
+	    | comp_maskl[3][t0 & 0x7f]
+	    | comp_maskl[4][(t1 >> 21) & 0x7f]
+	    | comp_maskl[5][(t1 >> 14) & 0x7f]
+	    | comp_maskl[6][(t1 >> 7) & 0x7f]
+	    | comp_maskl[7][t1 & 0x7f];
+
+	de_keysr[15 - round] = en_keysr[round] =
+	    comp_maskr[0][(t0 >> 21) & 0x7f]
+	    | comp_maskr[1][(t0 >> 14) & 0x7f]
+	    | comp_maskr[2][(t0 >> 7) & 0x7f]
+	    | comp_maskr[3][t0 & 0x7f]
+	    | comp_maskr[4][(t1 >> 21) & 0x7f]
+	    | comp_maskr[5][(t1 >> 14) & 0x7f]
+	    | comp_maskr[6][(t1 >> 7) & 0x7f]
+	    | comp_maskr[7][t1 & 0x7f];
+    }
+    return 0;
+}
+
+static int
+do_des(unsigned long l_in, unsigned long r_in, unsigned long *l_out,
+       unsigned long *r_out, int count)
+{
+    /*
+     * l_in, r_in, l_out, and r_out are in pseudo-"big-endian" format.
+     */
+    unsigned long   l, r, *kl, *kr, *kl1, *kr1;
+    unsigned long   f, r48l, r48r;
+    int             round;
+
+    if (count == 0) {
+	return 1;
+    } else if (count > 0) {
+	/*
+	 * Encrypting
+	 */
+	kl1 = en_keysl;
+	kr1 = en_keysr;
+    } else {
+	/*
+	 * Decrypting
+	 */
+	count = -count;
+	kl1 = de_keysl;
+	kr1 = de_keysr;
+    }
+
+    /*
+     * Do initial permutation (IP).
+     */
+    l = ip_maskl[0][l_in >> 24]
+	| ip_maskl[1][(l_in >> 16) & 0xff]
+	| ip_maskl[2][(l_in >> 8) & 0xff]
+	| ip_maskl[3][l_in & 0xff]
+	| ip_maskl[4][r_in >> 24]
+	| ip_maskl[5][(r_in >> 16) & 0xff]
+	| ip_maskl[6][(r_in >> 8) & 0xff]
+	| ip_maskl[7][r_in & 0xff];
+    r = ip_maskr[0][l_in >> 24]
+	| ip_maskr[1][(l_in >> 16) & 0xff]
+	| ip_maskr[2][(l_in >> 8) & 0xff]
+	| ip_maskr[3][l_in & 0xff]
+	| ip_maskr[4][r_in >> 24]
+	| ip_maskr[5][(r_in >> 16) & 0xff]
+	| ip_maskr[6][(r_in >> 8) & 0xff]
+	| ip_maskr[7][r_in & 0xff];
+
+    while (count--) {
+	/*
+	 * Do each round.
+	 */
+	kl = kl1;
+	kr = kr1;
+	round = 16;
+	while (round--) {
+	    /*
+	     * Expand R to 48 bits (simulate the E-box).
+	     */
+	    r48l = ((r & 0x00000001) << 23)
+		| ((r & 0xf8000000) >> 9)
+		| ((r & 0x1f800000) >> 11)
+		| ((r & 0x01f80000) >> 13)
+		| ((r & 0x001f8000) >> 15);
+
+	    r48r = ((r & 0x0001f800) << 7)
+		| ((r & 0x00001f80) << 5)
+		| ((r & 0x000001f8) << 3)
+		| ((r & 0x0000001f) << 1)
+		| ((r & 0x80000000) >> 31);
+	    /*
+	     * Do salting for crypt() and friends, and XOR with the permuted
+	     * key.
+	     */
+	    f = (r48l ^ r48r) & saltbits;
+	    r48l ^= f ^ *kl++;
+	    r48r ^= f ^ *kr++;
+	    /*
+	     * Do sbox lookups (which shrink it back to 32 bits) and do the
+	     * pbox permutation at the same time.
+	     */
+	    f = psbox[0][m_sbox[0][r48l >> 12]]
+		| psbox[1][m_sbox[1][r48l & 0xfff]]
+		| psbox[2][m_sbox[2][r48r >> 12]]
+		| psbox[3][m_sbox[3][r48r & 0xfff]];
+	    /*
+	     * Now that we've permuted things, complete f().
+	     */
+	    f ^= l;
+	    l = r;
+	    r = f;
+	}
+	r = l;
+	l = f;
+    }
+    /*
+     * Do final permutation (inverse of IP).
+     */
+    *l_out = fp_maskl[0][l >> 24]
+	| fp_maskl[1][(l >> 16) & 0xff]
+	| fp_maskl[2][(l >> 8) & 0xff]
+	| fp_maskl[3][l & 0xff]
+	| fp_maskl[4][r >> 24]
+	| fp_maskl[5][(r >> 16) & 0xff]
+	| fp_maskl[6][(r >> 8) & 0xff]
+	| fp_maskl[7][r & 0xff];
+    *r_out = fp_maskr[0][l >> 24]
+	| fp_maskr[1][(l >> 16) & 0xff]
+	| fp_maskr[2][(l >> 8) & 0xff]
+	| fp_maskr[3][l & 0xff]
+	| fp_maskr[4][r >> 24]
+	| fp_maskr[5][(r >> 16) & 0xff]
+	| fp_maskr[6][(r >> 8) & 0xff]
+	| fp_maskr[7][r & 0xff];
+    return 0;
+}
+
+char           *
+crypt(char *key, char *setting)
+{
+    unsigned long   count, salt, l, r0, r1, keybuf[2];
+    unsigned char  *p, *q;
+    static unsigned char output[21];
+
+    if (!des_initialised)
+	des_init();
+    /*
+     * Copy the key, shifting each character up by one bit and padding with
+     * zeros.
+     */
+    q = (unsigned char *)keybuf;
+    while (q - (unsigned char *)keybuf - 8) {
+	if ((*q++ = *key << 1))
+	    key++;
+    }
+    if (des_setkey((char *)keybuf))
+	return NULL;
+
+    /*
+     * "old"-style: setting - 2 bytes of salt key - up to 8 characters
+     */
+    count = 25;
+
+    salt = (ascii_to_bin(setting[1]) << 6)
+	| ascii_to_bin(setting[0]);
+
+    output[0] = setting[0];
+    /*
+     * If the encrypted password that the salt was extracted from is only 1
+     * character long, the salt will be corrupted.  We need to ensure that
+     * the output string doesn't have an extra NUL in it!
+     */
+    output[1] = setting[1] ? setting[1] : output[0];
+
+    p = output + 2;
+
+    setup_salt(salt);
+    /*
+     * Do it.
+     */
+    if (do_des(0L, 0L, &r0, &r1, count))
+	return NULL;
+    /*
+     * Now encode the result...
+     */
+    l = (r0 >> 8);
+    *p++ = ascii64[(l >> 18) & 0x3f];
+    *p++ = ascii64[(l >> 12) & 0x3f];
+    *p++ = ascii64[(l >> 6) & 0x3f];
+    *p++ = ascii64[l & 0x3f];
+
+    l = (r0 << 16) | ((r1 >> 16) & 0xffff);
+    *p++ = ascii64[(l >> 18) & 0x3f];
+    *p++ = ascii64[(l >> 12) & 0x3f];
+    *p++ = ascii64[(l >> 6) & 0x3f];
+    *p++ = ascii64[l & 0x3f];
+
+    l = r1 << 2;
+    *p++ = ascii64[(l >> 12) & 0x3f];
+    *p++ = ascii64[(l >> 6) & 0x3f];
+    *p++ = ascii64[l & 0x3f];
+    *p = 0;
+
+    return (char *)output;
+}
+#endif
diff --git a/pttbbs/mbbsd/dice.c b/pttbbs/mbbsd/dice.c
new file mode 100644
index 00000000..ade65799
--- /dev/null
+++ b/pttbbs/mbbsd/dice.c
@@ -0,0 +1,488 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define DICE_TXT   BBSHOME "/etc/dice.txt"
+#define DICE_DATA  BBSHOME "/etc/dice.data"
+#define DICE_WIN   BBSHOME "/etc/windice.log"
+#define DICE_LOST  BBSHOME "/etc/lostdice.log"
+
+#define B_MAX    500
+#define B_MIN    10
+#define B_COMMON 1
+#define B_TIMES  5
+#define B_THIRD  3
+
+
+typedef struct dicedata_t {
+    int             mybet;
+    int             mymoney;
+}               dicedata_t;
+
+static void
+set_bingo(int flag[100],int bet[])
+{
+    int             i, j = 0, k = 0, m = 0;
+
+    for (i = 0; i < 3; i++)
+	for (j = 2; j > i; j--)
+	    if (bet[j] < bet[j - 1]) {
+		m = bet[j];
+		bet[j] = bet[j - 1];
+		bet[j - 1] = m;
+	    }
+    for (i = 0; i < 100; i++)
+	flag[i] = 0;
+
+    for (i = 0; i < 3; i++)
+	flag[bet[i]]++;
+    j = bet[0] + bet[1] + bet[2];
+
+    if ((abs(bet[1] - bet[0]) == 1 && abs(bet[2] - bet[0]) == 2) ||
+	(abs(bet[2] - bet[0]) == 1 && abs(bet[1] - bet[0]) == 2))
+	flag[66] = B_TIMES;
+
+    if (j < 10) {
+	flag[7] = B_COMMON;
+	for (i = 0; i < 3; i++)
+	    if (bet[i] == 4)
+		flag[74] = B_TIMES;
+    } else if (j > 11) {
+	flag[8] = B_COMMON;
+	for (i = 0; i < 3; i++)
+	    if (bet[i] == 3)
+		flag[83] = B_TIMES;
+    } else
+	flag[11] = B_THIRD;
+
+    for (i = 0; i < 3; i++)
+	for (j = i; j < 3; j++) {
+	    m = bet[i];
+	    k = bet[j];
+	    if (m != k)
+		flag[m * 10 + k] = B_TIMES;
+	}
+}
+
+static int
+bingo(int flag[100],int mybet)
+{
+    return flag[mybet];
+}
+
+int
+IsNum(char *a, int n)
+{
+    int             i;
+
+    for (i = 0; i < n; i++)
+	if (a[i] > '9' || a[i] < '0')
+	    return 0;
+    return 1;
+}
+
+int
+IsSNum(char *a)
+{
+    int             i;
+
+    for (i = 0; a[i]; i++)
+	if (a[i] > '9' || a[i] < '0')
+	    return 0;
+    return 1;
+}
+
+static void
+show_data(void)
+{
+    move(0, 0);
+    prints("\033[31m       ┌───────────────────────"
+	   "──────────┐\033[m\n");
+    prints("\033[45;37m倍率一\033[m\033[31m │ \033[33m[1]押一點 [2]押二點 "
+	 "[3]押三點 [4]押四點 [5]押五點 [6]押六點    \033[31m  │\033[m\n");
+    prints("\033[31m       │ \033[33m[7]押小   [8]押大                    "
+	   "                          \033[31m  │\033[m\n");
+    prints("\033[31m       │                                              "
+	   "                    │\033[m\n");
+    prints("\033[45;37m賠率三\033[m\033[31m │ \033[33m[11]押中(總點數等於11"
+	   "或10)                                     \033[31m  │\033[m\n");
+    prints("\033[31m       │                                              "
+	   "                    │\033[m\n");
+    prints("\033[45;37m賠率五\033[m\033[31m │ \033[33m[74]押小且四點 [83]押"
+	   "大且三點 [66]押連號                       \033[31m  │\033[m\n");
+    prints("\033[31m       │                                              "
+	   "                    │\033[m\n");
+    prints("\033[31m       │ \033[33m[12]押一二點 [13]押一三點 [14]押一四點"
+	   " [15]押一五點 [16]押一六點\033[31m │\033[m\n");
+    prints("\033[31m       │ \033[33m[23]押二三點 [24]押二四點 [25]押二五點"
+	   " [26]押二六點 [34]押三四點\033[31m │\033[m\n");
+    prints("\033[31m       │ \033[33m[35]押三五點 [36]押三六點 [45]押四五點"
+	   " [46]押四六點 [56]押五六點\033[31m │\033[m\n");
+    prints("\033[31m       └────────────────────────"
+	   "─────────┘\033[m\n");
+}
+
+static void
+show_count(int value[100],int index, int money)
+{
+    int             i = 0, count = 2, j, k;
+
+    value[index] += money;
+    move(14, 0);
+    clrtoline(18);
+    for (i = 1, j = 13; i <= 8; i++, count += 12) {
+	if (i == 6) {
+	    j = 14;
+	    count = 2;
+	}
+	move(j, count);
+	prints("[%2d]:%d ", i, value[i]);
+    }
+
+    count = 2;
+    i = 15;
+    for (j = 1; j <= 5; j++)
+	for (k = j + 1; k <= 6; k++, count += 12) {
+	    if (j == 2 && k == 4) {
+		i = 16;
+		count = 2;
+	    } else if (j == 4 && k == 5) {
+		i = 17;
+		count = 2;
+	    }
+	    move(i, count);
+	    prints("[%d%d]:%d ", j, k, value[j * 10 + k]);
+	}
+
+    move(18, 2);
+    prints("[11]:%d", value[11]);
+    move(18, 14);
+    prints("[66]:%d", value[66]);
+    move(18, 26);
+    prints("[74]:%d", value[74]);
+    move(18, 38);
+    prints("[83]:%d", value[83]);
+}
+
+static int
+check_index(int index)
+{
+    int             i, tp[] = {1, 2, 3, 4, 5, 6, 7, 8, 11, 12, 13, 14, 15, 16, 23, 24, 25,
+    26, 34, 35, 36, 45, 46, 56, 66, 74, 83};
+    if (index < 0 || index > 100)
+	return 0;
+    for (i = 0; i < 27; i++)
+	if (index == tp[i])
+	    return 1;
+    return 0;
+}
+
+static int
+del(int value[100],int total, dicedata_t * table)
+{
+    int             index, money;
+    char            data[10];
+    int             i;
+
+    while (1) {
+	do {
+	    move(22, 0);
+	    clrtoeol();
+	    getdata(21, 0, "輸入退選的數字(打q離開): ", data, 3, LCECHO);
+	    if (data[0] == 'q' || data[0] == 'Q')
+		return 0;
+	} while (!IsNum(data, strlen(data)));
+
+	index = atoi(data);
+	for (i = 0; i < total; i++) {
+	    if (table[i].mybet == index) {
+		do {
+		    getdata(21, 0, "多少錢: ", data, 10, LCECHO);
+		} while (!IsNum(data, strlen(data)));
+		money = atoi(data);
+		if (money > table[i].mymoney) {
+		    move(22, 0);
+		    clrtoeol();
+		    prints("不夠扣啦");
+		    i--;
+		    continue;
+		}
+		demoney(money);
+		move(19, 0);
+		clrtoeol();
+		prints("你現在有 %u Ptt$歐", cuser.money);
+		table[i].mymoney -= money;
+		show_count(value, index, -money);
+		break;
+	    }
+	}
+    }
+    return 0;
+}
+
+static int
+IsLegal(char *data)
+{
+    int             money = atoi(data);
+    if (IsNum(data, strlen(data)) && money <= B_MAX && money >= B_MIN)
+	return money;
+    return 0;
+}
+
+static void
+show_output(int bet[])
+{
+    int             i, j = 10;
+
+    move(12, 0);
+    clrtoline(17);
+    /* 暫時降啦 因為那各clrtoline怪怪的 */
+    for (i = 13; i <= 18; i++) {
+	move(i, 0);
+	prints("                               ");
+    }
+    move(12, 0);
+    prints("\033[1;31m        ┌──────────────────────"
+	   "─┐\033[m\n\n\n\n\n\n");
+    prints("\033[1;31m        └──────────────────────"
+	   "─┘\033[m");
+    for (i = 0; i < 3; i++, j += 25) {
+	switch (bet[i]) {
+	case 1:
+	    move(13, j);
+	    prints("\033[37m╭────╮\033[m");
+	    move(14, j);
+	    prints("\033[37m│        │\033[m");
+	    move(15, j);
+	    prints("\033[37m│   ●   │\033[m");
+	    move(16, j);
+	    prints("\033[37m│        │\033[m");
+	    move(17, j);
+	    prints("\033[37m╰────╯\033[m");
+	    break;
+	case 2:
+	    move(13, j);
+	    prints("\033[37m╭────╮\033[m");
+	    move(14, j);
+	    prints("\033[37m│      ●│\033[m");
+	    move(15, j);
+	    prints("\033[37m│        │\033[m");
+	    move(16, j);
+	    prints("\033[37m│●      │\033[m");
+	    move(17, j);
+	    prints("\033[37m╰────╯\033[m");
+	    break;
+	case 3:
+	    move(13, j);
+	    prints("\033[37m╭────╮\033[m");
+	    move(14, j);
+	    prints("\033[37m│      ●│\033[m");
+	    move(15, j);
+	    prints("\033[37m│   ●   │\033[m");
+	    move(16, j);
+	    prints("\033[37m│●      │\033[m");
+	    move(17, j);
+	    prints("\033[37m╰────╯\033[m");
+	    break;
+	case 4:
+	    move(13, j);
+	    prints("\033[37m╭────╮\033[m");
+	    move(14, j);
+	    prints("\033[37m│●    ●│\033[m");
+	    move(15, j);
+	    prints("\033[37m│        │\033[m");
+	    move(16, j);
+	    prints("\033[37m│●    ●│\033[m");
+	    move(17, j);
+	    prints("\033[37m╰────╯\033[m");
+	    break;
+	case 5:
+	    move(13, j);
+	    prints("\033[37m╭────╮\033[m");
+	    move(14, j);
+	    prints("\033[37m│●    ●│\033[m");
+	    move(15, j);
+	    prints("\033[37m│   ●   │\033[m");
+	    move(16, j);
+	    prints("\033[37m│●    ●│\033[m");
+	    move(17, j);
+	    prints("\033[37m╰────╯\033[m");
+	    break;
+	case 6:
+	    move(13, j);
+	    prints("\033[37m╭────╮\033[m");
+	    move(14, j);
+	    prints("\033[37m│●    ●│\033[m");
+	    move(15, j);
+	    prints("\033[37m│●    ●│\033[m");
+	    move(16, j);
+	    prints("\033[37m│●    ●│\033[m");
+	    move(17, j);
+	    prints("\033[37m╰────╯\033[m");
+	    break;
+	}
+    }
+}
+
+#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
+
+int
+dice_main(void)
+{
+    int             flag[100], value[100];
+    char            input[10], data[256], ch;
+    dicedata_t      table[256];
+    int             bet[3], index, money = 0, i, ya = 0, j, total, sig = 0;
+    FILE           *winfp /* , *lostfp */ ;
+
+    more(DICE_TXT, NA);
+    reload_money();
+    if (cuser.money < 10) {
+	move(19, 0);
+	prints("\033[1;37m超過十元再來玩吧~~\033[m");
+	pressanykey();
+	return 0;
+    }
+    lockreturn0(DICE, LOCK_MULTI);
+    winfp = fopen(DICE_WIN, "a");
+    /* lostfp = fopen(DICE_LOST,"a"); */
+    if (!winfp /* || !lostfp */ )
+	return 0;
+
+    do {
+	total = 0;
+	i = 0;
+	ch = 'y';
+	clear();
+	show_data();
+	for (j = 0; j < 3; j++)
+	    bet[j] = rand() % 6 + 1;
+
+	for (j = 0; j < 100; j++)
+	    value[j] = 0;
+
+	while (1) {
+	    move(19, 0);
+	    prints("\033[1;32m你現在有\033[1;31m %u \033[1;32mPtt$歐\033[m",
+		   cuser.money);
+	    getdata(20, 0, "\033[1;37m數字:加選 d:退選 s:開始或離開\033[m: ",
+		    input, 5, LCECHO);
+	    reload_money();
+	    if (input[0] != 's' && input[0] != 'd' && cuser.money < 10) {
+		move(21, 0);
+		clrtoeol();
+		prints("\033[1;37m超過十元才能賭~\033[m");
+		continue;
+	    }
+	    if (input[0] == 'd' || input[0] == 'D') {
+		del(value, i, table);
+		continue;
+	    }
+	    if (input[0] == 's' || input[0] == 'S')
+		break;
+
+	    if (!IsNum(input, strlen(input)))
+		continue;
+
+	    index = atoi(input);
+	    if (check_index(index) == 0)
+		continue;
+	    /* 輸入錢的loop */
+	    while (1) {
+		if (cuser.money < 10)
+		    break;
+		getdata(21, 0, "\033[1;32m賭多少錢呢\033[1;37m(大於10 小於500)"
+			"\033[m: ", input, sizeof(input), LCECHO);
+		if (!(money = IsLegal(input)) || input[0] == '0')
+		    continue;
+		reload_money();
+		if (money > cuser.money)
+		    continue;
+		for (j = 0, sig = 0; j < i; j++)
+		    if (table[j].mybet == index) {
+			if (table[j].mymoney == B_MAX)
+			    sig = 2;
+			else if (table[j].mymoney + money > B_MAX) {
+			    sig = 1;
+			    break;
+			} else {
+			    vice(money, "骰子");
+			    table[j].mymoney += money;
+			    j = -1;
+			    break;
+			}
+		    }
+		if (sig == 2)
+		    break;
+		if (sig == 1)
+		    continue;
+		if (j != -1) {
+		    bzero((char *)&table[i], sizeof(dicedata_t));
+		    table[i].mybet = index;
+		    table[i++].mymoney = money;
+		    vice(money, "骰子");
+		}
+		break;
+	    }
+	    reload_money();
+	    move(19, 0);
+	    prints("\033[1;32m你現在有 \033[1;31m%u\033[1;32m Ptt$歐",
+		   cuser.money);
+	    if (sig != 2)
+		show_count(value,index, money);
+	}
+
+	if (i == 0) {
+	    fclose(winfp);
+	    /* fclose(lostfp); */
+	    unlockutmpmode();
+	    return 0;
+	}
+	show_output(bet);
+	set_bingo(flag, bet);
+
+	for (j = 0; j < i; j++) {
+	    if (table[j].mymoney <= 0)
+		continue;
+	    ya = bingo(flag, table[j].mybet);
+	    if (ya == 0) {
+		/*
+		 * sprintf(data, "%-15s 輸了 %-8d $", cuser.userid,
+		 * table[j].mymoney); fprintf(lostfp, "%s\n", data);
+		 */
+		continue;
+	    }
+	    demoney(table[j].mymoney * ya + table[j].mymoney);
+	    total += table[j].mymoney * ya;
+	    if (table[j].mymoney * ya > 500) {	/* 超過500塊錢才做log 減少io */
+		snprintf(data, sizeof(data),
+			 "%-15s 押%-2d選項%-8d塊錢 中了%d倍 淨賺:%-8d\n",
+			 cuser.userid, table[j].mybet,
+			 table[j].mymoney, ya, table[j].mymoney * ya);
+		fputs(data, winfp);
+	    }
+	    ya = 0;
+	}
+
+	if (total > 0) {
+	    move(21, 0);
+	    prints("\033[1;32m你贏了 \033[1;31m%d\033[1;32m Ptt$ 唷~~"
+		   "                    \033[m", total);
+	} else {
+	    move(21, 0);
+	    clrtoeol();
+	    prints("\033[1;32m真可惜 下次再來碰碰運氣吧\033[m");
+	}
+
+	move(19, 0);
+	clrtoeol();
+	prints("\033[1;32m你現在有 \033[1;31m%u\033[1;32m Ptt$歐\033[m",
+	       cuser.money);
+
+	getdata(23, 0, "\033[1;32m繼續奮鬥[\033[1;37my/n\033[1;32m]\033[m: ",
+		input, 2, LCECHO);
+    } while (input[0] != 'n' && input[0] != 'N');
+    fclose(winfp);
+    /* fclose(lostfp); */
+    unlockutmpmode();
+    return 0;
+}
diff --git a/pttbbs/mbbsd/edit.c b/pttbbs/mbbsd/edit.c
new file mode 100644
index 00000000..0a865ef4
--- /dev/null
+++ b/pttbbs/mbbsd/edit.c
@@ -0,0 +1,2363 @@
+/* $Id$ */
+/* edit.c, 用來提供 bbs上的文字編輯器, 即 ve.
+ * 現在這一個是惡搞過的版本, 比較不穩定, 用比較多的 cpu, 但是可以省下許多
+ * 的記憶體 (以 Ptt為例, 在九千人上站的時候, 約可省下 50MB 的記憶體)
+ * 如果您認為「拿 cpu換記憶體」並不合乎您的須求, 您可以考慮改使用修正前的
+ * 版本 (Revision 1.27)
+ *
+ * 原本 ve 的做法是, 因為每一行最大可以輸入 WRAPMARGIN 個字, 於是就替每一
+ * 行保留了 WRAPMARGIN 這麼大的空間 (約 512 bytes) . 但是實際上, 站在修正
+ * 成本最小的考量上, 我們只須要使得游標所在這一行維持 WRAPMARGIN 這麼大,
+ * 其他每一行其實不須要這麼多的空間. 於是這個 patch就在每次游標在行間移動
+ * 的時候, 將原本的那行記憶體縮小, 再將新移到的那行重新加大, 以達成最小的
+ * 記憶體用量.
+ * 以上說的這個動作在 adjustline() 中完成, adjustline()另外包括修正數個
+ * global pointer, 以避免 dangling pointer . 
+ * 另外若定義 DEBUG, 在 textline_t 結構中將加入 mlength, 表示該行實際佔的
+ * 記憶體大小. 以方便測試結果.
+ * 這個版本似乎還有地方沒有修正好, 可能導致 segmentation fault .
+ */
+#include "bbs.h"
+typedef struct textline_t {
+    struct textline_t *prev;
+    struct textline_t *next;
+    short           len;
+#ifdef DEBUG
+    short           mlength;
+#endif
+    char            data[1];
+}               textline_t;
+
+#define KEEP_EDITING    -2
+#define BACKUP_LIMIT    100
+
+enum {
+    NOBODY, MANAGER, SYSOP
+};
+
+static textline_t *firstline = NULL;
+static textline_t *lastline = NULL;
+static textline_t *currline = NULL;
+static textline_t *blockline = NULL;
+static textline_t *top_of_win = NULL;
+static textline_t *deleted_lines = NULL;
+
+static char     line[WRAPMARGIN + 2];
+static int      ifuseanony = 0;
+static int      currpnt, currln, totaln;
+static int      curr_window_line;
+static int      redraw_everything;
+static int      insert_character;
+static int      my_ansimode;
+static int      raw_mode;
+static int      edit_margin;
+static int      blockln = -1;
+static int      blockpnt;
+static int      line_dirty;
+static int      indent_mode;
+static int      insert_c = ' ';
+
+static char     fp_bak[] = "bak";
+
+/* 記憶體管理與編輯處理 */
+static void
+indigestion(int i)
+{
+    fprintf(stderr, "嚴重內傷 %d\n", i);
+}
+
+/* Thor: ansi 座標轉換  for color 編輯模式 */
+static int
+ansi2n(int ansix, textline_t * line)
+{
+    register char  *data, *tmp;
+    register char   ch;
+
+    data = tmp = line->data;
+
+    while (*tmp) {
+	if (*tmp == KEY_ESC) {
+	    while ((ch = *tmp) && !isalpha(ch))
+		tmp++;
+	    if (ch)
+		tmp++;
+	    continue;
+	}
+	if (ansix <= 0)
+	    break;
+	tmp++;
+	ansix--;
+    }
+    return tmp - data;
+}
+
+static int
+n2ansi(int nx, textline_t * line)
+{
+    register int    ansix = 0;
+    register char  *tmp, *nxp;
+    register char   ch;
+
+    tmp = nxp = line->data;
+    nxp += nx;
+
+    while (*tmp) {
+	if (*tmp == KEY_ESC) {
+	    while ((ch = *tmp) && !isalpha(ch))
+		tmp++;
+	    if (ch)
+		tmp++;
+	    continue;
+	}
+	if (tmp >= nxp)
+	    break;
+	tmp++;
+	ansix++;
+    }
+    return ansix;
+}
+
+/* 螢幕處理：輔助訊息、顯示編輯內容 */
+static void
+edit_msg()
+{
+    char    *edit_mode[2] = {"取代", "插入"};
+    register int    n = currpnt;
+
+    if (my_ansimode)		/* Thor: 作 ansi 編輯 */
+	n = n2ansi(n, currline);
+    n++;
+    move(b_lines, 0);
+    clrtoeol();
+    prints("\033[%sm 編輯文章 \033[31;47m (Ctrl-Z)\033[30m輔助說明 "
+	   "\033[31;47m(^G)\033[30m插入圖文庫 \033[31m(^X,^Q)"
+	   "\033[30m離開��%s│%c%c%c%c�� %3d:%3d  \033[m",
+	   "37;44",
+	   edit_mode[insert_character],
+	   my_ansimode ? 'A' : 'a', indent_mode ? 'I' : 'i',
+	   'P', raw_mode ? 'R' : 'r',
+	   currln + 1, n);
+}
+
+static textline_t *
+back_line(textline_t * pos, int num)
+{
+    while (num-- > 0) {
+	register textline_t *item;
+
+	if (pos && (item = pos->prev)) {
+	    pos = item;
+	    currln--;
+	}
+    }
+    return pos;
+}
+
+static textline_t *
+forward_line(textline_t * pos, int num)
+{
+    while (num-- > 0) {
+	register textline_t *item;
+
+	if (pos && (item = pos->next)) {
+	    pos = item;
+	    currln++;
+	}
+    }
+    return pos;
+}
+
+static int
+getlineno()
+{
+    int             cnt = 0;
+    textline_t     *p = currline;
+
+    while (p && (p != top_of_win)) {
+	cnt++;
+	p = p->prev;
+    }
+    return cnt;
+}
+
+static char    *
+killsp(char *s)
+{
+    while (*s == ' ')
+	s++;
+    return s;
+}
+
+static textline_t *
+alloc_line(short length)
+{
+    register textline_t *p;
+
+    if ((p = (textline_t *) malloc(length + sizeof(textline_t)))) {
+	memset(p, 0, length + sizeof(textline_t));
+#ifdef DEBUG
+	p->mlength = length;
+#endif
+	return p;
+    }
+    indigestion(13);
+    abort_bbs(0);
+    return NULL;
+}
+
+/* append p after line in list. keeps up with last line */
+static void
+append(textline_t * p, textline_t * line)
+{
+    register textline_t *n;
+
+    if ((p->next = n = line->next))
+	n->prev = p;
+    else
+	lastline = p;
+    line->next = p;
+    p->prev = line;
+}
+
+/*
+ * delete_line deletes 'line' from the list, and maintains the lastline, and
+ * firstline pointers.
+ */
+
+static void
+delete_line(textline_t * line)
+{
+    register textline_t *p = line->prev;
+    register textline_t *n = line->next;
+
+    if (!p && !n) {
+	line->data[0] = line->len = 0;
+	return;
+    }
+    if (n)
+	n->prev = p;
+    else
+	lastline = p;
+    if (p)
+	p->next = n;
+    else
+	firstline = n;
+    strcat(line->data, "\n");
+    line->prev = deleted_lines;
+    deleted_lines = line;
+    totaln--;
+}
+
+static int
+ask(char *prompt)
+{
+    int             ch;
+
+    move(0, 0);
+    clrtoeol();
+    standout();
+    prints("%s", prompt);
+    standend();
+    ch = igetkey();
+    move(0, 0);
+    clrtoeol();
+    return (ch);
+}
+
+static int
+indent_spcs()
+{
+    textline_t     *p;
+    int             spcs;
+
+    if (!indent_mode)
+	return 0;
+
+    for (p = currline; p; p = p->prev) {
+	for (spcs = 0; p->data[spcs] == ' '; ++spcs);
+	if (p->data[spcs])
+	    return spcs;
+    }
+    return 0;
+}
+
+static textline_t *
+adjustline(textline_t *oldp, short len)
+{
+    /* adjustline(oldp, len);
+     * 用來將 oldp 指到的那一行, 重新修正成 len這麼長.
+     * 在這邊一共做了兩次的 memcpy() , 第一次從 heap 拷到 stack ,
+     * 把原來記憶體 free() 後, 又重新在 stack上 malloc() 一次,
+     * 然後再拷貝回來.
+     * 主要是用 sbrk() 觀察到的結果, 這樣子才真的能縮減記憶體用量.
+     * 詳見 /usr/share/doc/papers/malloc.ascii.gz (in FreeBSD)
+     */
+    textline_t tmpl[sizeof(textline_t) + WRAPMARGIN];
+    textline_t *newp;
+    memcpy(tmpl, oldp, oldp->len + sizeof(textline_t));
+    free(oldp);
+
+    newp = alloc_line(len);
+    memcpy(newp, tmpl, len + sizeof(textline_t));
+#ifdef DEBUG
+    newp->mlength = len;
+#endif
+    if( oldp == firstline ) firstline = newp;
+    if( oldp == lastline )  lastline  = newp;
+    if( oldp == currline )  currline  = newp;
+    if( oldp == blockline ) blockline = newp;
+    if( oldp == top_of_win) top_of_win= newp;
+    if( newp->prev != NULL ) newp->prev->next = newp;
+    if( newp->next != NULL ) newp->next->prev = newp;
+    //    vmsg("adjust %x to %x, length: %d", (int)oldp, (int)newp, len);
+    return newp;
+}
+
+/* split 'line' right before the character pos */
+static textline_t *
+split(textline_t * line, int pos)
+{
+    if (pos <= line->len) {
+	register textline_t *p = alloc_line(WRAPMARGIN);
+	register char  *ptr;
+	int             spcs = indent_spcs();
+
+	totaln++;
+
+	p->len = line->len - pos + spcs;
+	line->len = pos;
+
+	memset(p->data, ' ', spcs);
+	p->data[spcs] = 0;
+	strcat(p->data, (ptr = line->data + pos));
+	ptr[0] = '\0';
+	append(p, line);
+	line = adjustline(line, line->len);
+	if (line == currline && pos <= currpnt) {
+	    currline = p;
+	    if (pos == currpnt)
+		currpnt = spcs;
+	    else
+		currpnt -= pos;
+	    curr_window_line++;
+	    currln++;
+	}
+	redraw_everything = YEA;
+    }
+    return line;
+}
+
+static void
+insert_char(int ch)
+{
+    register textline_t *p = currline;
+    register int    i = p->len;
+    register char  *s;
+    int             wordwrap = YEA;
+
+    if (currpnt > i) {
+	indigestion(1);
+	return;
+    }
+    if (currpnt < i && !insert_character) {
+	p->data[currpnt++] = ch;
+	/* Thor: ansi 編輯, 可以overwrite, 不蓋到 ansi code */
+	if (my_ansimode)
+	    currpnt = ansi2n(n2ansi(currpnt, p), p);
+    } else {
+	while (i >= currpnt) {
+	    p->data[i + 1] = p->data[i];
+	    i--;
+	}
+	p->data[currpnt++] = ch;
+	i = ++(p->len);
+    }
+    if (i < WRAPMARGIN)
+	return;
+    s = p->data + (i - 1);
+    while (s != p->data && *s == ' ')
+	s--;
+    while (s != p->data && *s != ' ')
+	s--;
+    if (s == p->data) {
+	wordwrap = NA;
+	s = p->data + (i - 2);
+    }
+    p = split(p, (s - p->data) + 1);
+    p = p->next;
+    i = p->len;
+    if (wordwrap && i >= 1) {
+	if (p->data[i - 1] != ' ') {
+	    p->data[i] = ' ';
+	    p->data[i + 1] = '\0';
+	    p->len++;
+	}
+    }
+}
+
+static void
+insert_string(char *str)
+{
+    int             ch;
+
+    while ((ch = *str++)) {
+	if (isprint2(ch) || ch == '\033')
+	    insert_char(ch);
+	else if (ch == '\t') {
+	    do {
+		insert_char(' ');
+	    } while (currpnt & 0x7);
+	} else if (ch == '\n')
+	    split(currline, currpnt);
+    }
+}
+
+static int
+undelete_line()
+{
+    textline_t     *p = deleted_lines;
+    textline_t     *currline0 = currline;
+    textline_t     *top_of_win0 = top_of_win;
+    int             currpnt0 = currpnt;
+    int             currln0 = currln;
+    int             curr_window_line0 = curr_window_line;
+    int             indent_mode0 = indent_mode;
+
+    if (!deleted_lines)
+	return 0;
+
+    indent_mode = 0;
+    insert_string(deleted_lines->data);
+    indent_mode = indent_mode0;
+    deleted_lines = deleted_lines->prev;
+    free(p);
+
+    currline = currline0;
+    top_of_win = top_of_win0;
+    currpnt = currpnt0;
+    currln = currln0;
+    curr_window_line = curr_window_line0;
+    return 0;
+}
+
+/*
+ * 1) lines were joined and one was deleted 2) lines could not be joined 3)
+ * next line is empty returns false if: 1) Some of the joined line wrapped
+ */
+static int
+join(textline_t * line)
+{
+    register textline_t *n;
+    register int    ovfl;
+
+    if (!(n = line->next))
+	return YEA;
+    if (!*killsp(n->data))
+	return YEA;
+
+    ovfl = line->len + n->len - WRAPMARGIN;
+    if (ovfl < 0) {
+	strcat(line->data, n->data);
+	line->len += n->len;
+	delete_line(n);
+	return YEA;
+    } else {
+	register char  *s;
+
+	s = n->data + n->len - ovfl - 1;
+	while (s != n->data && *s == ' ')
+	    s--;
+	while (s != n->data && *s != ' ')
+	    s--;
+	if (s == n->data)
+	    return YEA;
+	split(n, (s - n->data) + 1);
+	if (line->len + n->len >= WRAPMARGIN) {
+	    indigestion(0);
+	    return YEA;
+	}
+	join(line);
+	n = line->next;
+	ovfl = n->len - 1;
+	if (ovfl >= 0 && ovfl < WRAPMARGIN - 2) {
+	    s = &(n->data[ovfl]);
+	    if (*s != ' ') {
+		strcpy(s, " ");
+		n->len++;
+	    }
+	}
+	return NA;
+    }
+}
+
+static void
+delete_char()
+{
+    register int    len;
+
+    if ((len = currline->len)) {
+	register int    i;
+	register char  *s;
+
+	if (currpnt >= len) {
+	    indigestion(1);
+	    return;
+	}
+	for (i = currpnt, s = currline->data + i; i != len; i++, s++)
+	    s[0] = s[1];
+	currline->len--;
+    }
+}
+
+static void
+load_file(FILE * fp) /* NOTE it will fclose(fp) */
+{
+    int             indent_mode0 = indent_mode;
+
+    assert(fp);
+    indent_mode = 0;
+    while (fgets(line, WRAPMARGIN + 2, fp))
+	insert_string(line);
+    fclose(fp);
+    indent_mode = indent_mode0;
+}
+
+/* 暫存檔 */
+char           *
+ask_tmpbuf(int y)
+{
+    static char     fp_buf[10] = "buf.0";
+    static char     msg[] = "請選擇暫存檔 (0-9)[0]: ";
+
+    msg[19] = fp_buf[4];
+    do {
+	if (!getdata(y, 0, msg, fp_buf + 4, 4, DOECHO))
+	    fp_buf[4] = msg[19];
+    } while (fp_buf[4] < '0' || fp_buf[4] > '9');
+    return fp_buf;
+}
+
+static void
+read_tmpbuf(int n)
+{
+    FILE           *fp;
+    char            fp_tmpbuf[80];
+    char            tmpfname[] = "buf.0";
+    char           *tmpf;
+    char            ans[4] = "y";
+
+    if (0 <= n && n <= 9) {
+	tmpfname[4] = '0' + n;
+	tmpf = tmpfname;
+    } else {
+	tmpf = ask_tmpbuf(3);
+	n = tmpf[4] - '0';
+    }
+
+    setuserfile(fp_tmpbuf, tmpf);
+    if (n != 0 && n != 5 && more(fp_tmpbuf, NA) != -1)
+	getdata(b_lines - 1, 0, "確定讀入嗎(Y/N)?[Y]", ans, sizeof(ans), LCECHO);
+    if (*ans != 'n' && (fp = fopen(fp_tmpbuf, "r"))) {
+	load_file(fp);
+	while (curr_window_line >= b_lines) {
+	    curr_window_line--;
+	    top_of_win = top_of_win->next;
+	}
+    }
+}
+
+static void
+write_tmpbuf()
+{
+    FILE           *fp;
+    char            fp_tmpbuf[80], ans[4];
+    textline_t     *p;
+
+    setuserfile(fp_tmpbuf, ask_tmpbuf(3));
+    if (dashf(fp_tmpbuf)) {
+	more(fp_tmpbuf, NA);
+	getdata(b_lines - 1, 0, "暫存檔已有資料 (A)附加 (W)覆寫 (Q)取消？[A] ",
+		ans, sizeof(ans), LCECHO);
+
+	if (ans[0] == 'q')
+	    return;
+    }
+    if ((fp = fopen(fp_tmpbuf, (ans[0] == 'w' ? "w" : "a+")))) {
+	for (p = firstline; p; p = p->next) {
+	    if (p->next || p->data[0])
+		fprintf(fp, "%s\n", p->data);
+	}
+	fclose(fp);
+    }
+}
+
+static void
+erase_tmpbuf()
+{
+    char            fp_tmpbuf[80];
+    char            ans[4] = "n";
+
+    setuserfile(fp_tmpbuf, ask_tmpbuf(3));
+    if (more(fp_tmpbuf, NA) != -1)
+	getdata(b_lines - 1, 0, "確定刪除嗎(Y/N)?[N]",
+		ans, sizeof(ans), LCECHO);
+    if (*ans == 'y')
+	unlink(fp_tmpbuf);
+}
+
+/* 編輯器自動備份 */
+void
+auto_backup()
+{
+    if (currline) {
+	FILE           *fp;
+	textline_t     *p, *v;
+	char            bakfile[64];
+	int             count = 0;
+
+	setuserfile(bakfile, fp_bak);
+	if ((fp = fopen(bakfile, "w"))) {
+	    for (p = firstline; p != NULL && count < 512; p = v, count++) {
+		v = p->next;
+		fprintf(fp, "%s\n", p->data);
+		free(p);
+	    }
+	    fclose(fp);
+	}
+	currline = NULL;
+    }
+}
+
+void
+restore_backup()
+{
+    char            bakfile[80], buf[80];
+
+    setuserfile(bakfile, fp_bak);
+    if (dashf(bakfile)) {
+	stand_title("編輯器自動復原");
+	getdata(1, 0, "您有一篇文章尚未完成，(S)寫入暫存檔 (Q)算了？[S] ",
+		buf, 4, LCECHO);
+	if (buf[0] != 'q') {
+	    setuserfile(buf, ask_tmpbuf(3));
+	    Rename(bakfile, buf);
+	} else
+	    unlink(bakfile);
+    }
+}
+
+/* 引用文章 */
+static int
+garbage_line(char *str)
+{
+    int             qlevel = 0;
+
+    while (*str == ':' || *str == '>') {
+	if (*(++str) == ' ')
+	    str++;
+	if (qlevel++ >= 1)
+	    return 1;
+    }
+    while (*str == ' ' || *str == '\t')
+	str++;
+    if (qlevel >= 1) {
+	if (!strncmp(str, "※ ", 3) || !strncmp(str, "==>", 3) ||
+	    strstr(str, ") 提到:\n"))
+	    return 1;
+    }
+    return (*str == '\n');
+}
+
+static void
+do_quote()
+{
+    int             op;
+    char            buf[256];
+
+    getdata(b_lines - 1, 0, "請問要引用原文嗎(Y/N/All/Repost)？[Y] ",
+	    buf, 3, LCECHO);
+    op = buf[0];
+
+    if (op != 'n') {
+	FILE           *inf;
+
+	if ((inf = fopen(quote_file, "r"))) {
+	    char           *ptr;
+	    int             indent_mode0 = indent_mode;
+
+	    fgets(buf, 256, inf);
+	    if ((ptr = strrchr(buf, ')')))
+		ptr[1] = '\0';
+	    else if ((ptr = strrchr(buf, '\n')))
+		ptr[0] = '\0';
+
+	    if ((ptr = strchr(buf, ':'))) {
+		char           *str;
+
+		while (*(++ptr) == ' ');
+
+		/* 順手牽羊，取得 author's address */
+		if ((curredit & EDIT_BOTH) && (str = strchr(quote_user, '.'))) {
+		    strcpy(++str, ptr);
+		    str = strchr(str, ' ');
+		    assert(str);
+		    str[0] = '\0';
+		}
+	    } else
+		ptr = quote_user;
+
+	    indent_mode = 0;
+	    insert_string("※ 引述《");
+	    insert_string(ptr);
+	    insert_string("》之銘言：\n");
+
+	    if (op != 'a')	/* 去掉 header */
+		while (fgets(buf, 256, inf) && buf[0] != '\n');
+
+	    if (op == 'a')
+		while (fgets(buf, 256, inf)) {
+		    insert_char(':');
+		    insert_char(' ');
+		    insert_string(Ptt_prints(buf, STRIP_ALL));
+		}
+	    else if (op == 'r')
+		while (fgets(buf, 256, inf))
+		    insert_string(Ptt_prints(buf, NO_RELOAD));
+	    else {
+		if (curredit & EDIT_LIST)	/* 去掉 mail list 之 header */
+		    while (fgets(buf, 256, inf) && (!strncmp(buf, "※ ", 3)));
+		while (fgets(buf, 256, inf)) {
+		    if (!strcmp(buf, "--\n"))
+			break;
+		    if (!garbage_line(buf)) {
+			insert_char(':');
+			insert_char(' ');
+			insert_string(Ptt_prints(buf, STRIP_ALL));
+		    }
+		}
+	    }
+	    indent_mode = indent_mode0;
+	    fclose(inf);
+	}
+    }
+}
+
+/* 審查 user 引言的使用 */
+static int
+check_quote()
+{
+    register textline_t *p = firstline;
+    register char  *str;
+    int             post_line;
+    int             included_line;
+
+    post_line = included_line = 0;
+    while (p) {
+	if (!strcmp(str = p->data, "--"))
+	    break;
+	if (str[1] == ' ' && ((str[0] == ':') || (str[0] == '>')))
+	    included_line++;
+	else {
+	    while (*str == ' ' || *str == '\t')
+		str++;
+	    if (*str)
+		post_line++;
+	}
+	p = p->next;
+    }
+
+    if ((included_line >> 2) > post_line) {
+	move(4, 0);
+	outs("本篇文章的引言比例超過 80%，請您做些微的修正：\n\n"
+	     "\033[1;33m1) 增加一些文章 或  2) 刪除不必要之引言\033[m");
+	{
+	    char            ans[4];
+
+	    getdata(12, 12, "(E)繼續編輯 (W)強制寫入？[E] ",
+		    ans, sizeof(ans), LCECHO);
+	    if (ans[0] == 'w')
+		return 0;
+	}
+	return 1;
+    }
+    return 0;
+}
+
+/* 檔案處理：讀檔、存檔、標題、簽名檔 */
+static void
+read_file(char *fpath)
+{
+    FILE           *fp;
+
+    if ((fp = fopen(fpath, "r")) == NULL) {
+	if ((fp = fopen(fpath, "w+"))) {
+	    fclose(fp);
+	    return;
+	}
+	indigestion(4);
+	abort_bbs(0);
+    }
+    load_file(fp);
+}
+
+void
+write_header(FILE * fp)
+{
+
+    if (curredit & EDIT_MAIL || curredit & EDIT_LIST) {
+	fprintf(fp, "%s %s (%s)\n", str_author1, cuser.userid,
+#if defined(REALINFO) && defined(MAIL_REALNAMES)
+		cuser.realname
+#else
+		cuser.username
+#endif
+	);
+    } else {
+	char           *ptr;
+	struct {
+	    char            author[IDLEN + 1];
+	    char            board[IDLEN + 1];
+	    char            title[66];
+	    time_t          date;	/* last post's date */
+	    int             number;	/* post number */
+	}               postlog;
+
+	memset(&postlog, 0, sizeof(postlog));
+	strlcpy(postlog.author, cuser.userid, sizeof(postlog.author));
+	ifuseanony = 0;
+#ifdef HAVE_ANONYMOUS
+	if (currbrdattr & BRD_ANONYMOUS) {
+	    int             defanony = (currbrdattr & BRD_DEFAULTANONYMOUS);
+	    if (defanony)
+		getdata(3, 0, "請輸入你想用的ID，也可直接按[Enter]，"
+		 "或是按[r]用真名：", real_name, sizeof(real_name), DOECHO);
+	    else
+		getdata(3, 0, "請輸入你想用的ID，也可直接按[Enter]使用原ID：",
+			real_name, sizeof(real_name), DOECHO);
+	    if (!real_name[0] && defanony) {
+		strlcpy(real_name, "Anonymous", sizeof(real_name));
+		strlcpy(postlog.author, real_name, sizeof(postlog.author));
+		ifuseanony = 1;
+	    } else {
+		if (!strcmp("r", real_name) || (!defanony && !real_name[0]))
+		    snprintf(postlog.author, sizeof(postlog.author),
+			     "%s", cuser.userid);
+		else {
+		    snprintf(postlog.author, sizeof(postlog.author),
+			     "%s.", real_name);
+		    ifuseanony = 1;
+		}
+	    }
+	}
+#endif
+	strlcpy(postlog.board, currboard, sizeof(postlog.board));
+	ptr = save_title;
+	if (!strncmp(ptr, str_reply, 4))
+	    ptr += 4;
+	strncpy(postlog.title, ptr, 65);
+	postlog.date = now;
+	postlog.number = 1;
+	append_record(".post", (fileheader_t *) & postlog, sizeof(postlog));
+#ifdef HAVE_ANONYMOUS
+	if (currbrdattr & BRD_ANONYMOUS) {
+	    int             defanony = (currbrdattr & BRD_DEFAULTANONYMOUS);
+
+	    fprintf(fp, "%s %s (%s) %s %s\n", str_author1, postlog.author,
+		    (((!strcmp(real_name, "r") && defanony) ||
+		      (!real_name[0] && (!defanony))) ? cuser.username :
+		     "猜猜我是誰 ? ^o^"),
+		    local_article ? str_post2 : str_post1, currboard);
+	} else {
+	    fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid,
+#if defined(REALINFO) && defined(POSTS_REALNAMES)
+		    cuser.realname,
+#else
+		    cuser.username,
+#endif
+		    local_article ? str_post2 : str_post1, currboard);
+	}
+#else				/* HAVE_ANONYMOUS */
+	fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid,
+#if defined(REALINFO) && defined(POSTS_REALNAMES)
+		cuser.realname,
+#else
+		cuser.username,
+#endif
+		local_article ? str_post2 : str_post1, currboard);
+#endif				/* HAVE_ANONYMOUS */
+
+    }
+    save_title[72] = '\0';
+    fprintf(fp, "標題: %s\n時間: %s\n", save_title, ctime(&now));
+}
+
+void
+addsignature(FILE * fp, int ifuseanony)
+{
+    FILE           *fs;
+    int             i, num;
+    char            buf[WRAPMARGIN + 1];
+    char            fpath[STRLEN];
+
+    static char     msg[] = "請選擇簽名檔 (1-9, 0=不加 X=隨機)[X]: ";
+    char            ch;
+
+    if (!strcmp(cuser.userid, STR_GUEST)) {
+	fprintf(fp, "\n--\n※ 發信站 :" BBSNAME "(" MYHOSTNAME
+		") \n◆ From: %s\n", fromhost);
+	return;
+    }
+    if (!ifuseanony) {
+	num = showsignature(fpath, &i);
+	if (num){
+	    msg[34] = ch = isdigit(cuser.signature) ? cuser.signature : 'X';
+	    getdata(0, 0, msg, buf, 4, DOECHO);
+
+	    if (!buf[0])
+		buf[0] = ch;
+
+	    if (isdigit(buf[0]))
+		ch = buf[0];
+	    else
+		ch = '1' + rand() % num;
+	    cuser.signature = buf[0];
+
+	    if (ch != '0') {
+		fpath[i] = ch;
+		if ((fs = fopen(fpath, "r"))) {
+		    fputs("\n--\n", fp);
+		    for (i = 0; i < MAX_SIGLINES &&
+			    fgets(buf, sizeof(buf), fs); i++)
+			fputs(buf, fp);
+		    fclose(fs);
+		}
+	    }
+	}
+    }
+#ifdef HAVE_ORIGIN
+#ifdef HAVE_ANONYMOUS
+    if (ifuseanony)
+	fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
+		") \n◆ From: %s\n", "暱名天使的家");
+    else {
+	char            temp[33];
+
+	strncpy(temp, fromhost, 31);
+	temp[32] = '\0';
+	fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
+		") \n◆ From: %s\n", temp);
+    }
+#else
+    strncpy(temp, fromhost, 15);
+    fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
+	    ") \n◆ From: %s\n", temp);
+#endif
+#endif
+}
+
+static int
+write_file(char *fpath, int saveheader, int *islocal)
+{
+    struct tm      *ptime;
+    FILE           *fp = NULL;
+    textline_t     *p, *v;
+    char            ans[TTLEN], *msg;
+    int             aborted = 0, line = 0, checksum[3], sum = 0, po = 1;
+
+    stand_title("檔案處理");
+    if (currstat == SMAIL)
+	msg = "[S]儲存 (A)放棄 (T)改標題 (E)繼續 (R/W/D)讀寫刪暫存檔？";
+    else if (local_article)
+	msg = "[L]站內信件 (S)儲存 (A)放棄 (T)改標題 (E)繼續 "
+	    "(R/W/D)讀寫刪暫存檔？";
+    else
+	msg = "[S]儲存 (L)站內信件 (A)放棄 (T)改標題 (E)繼續 "
+	    "(R/W/D)讀寫刪暫存檔？";
+    getdata(1, 0, msg, ans, 2, LCECHO);
+
+    switch (ans[0]) {
+    case 'a':
+	outs("文章\033[1m 沒有 \033[m存入");
+	safe_sleep(1);
+	aborted = -1;
+	break;
+    case 'r':
+	read_tmpbuf(-1);
+    case 'e':
+	return KEEP_EDITING;
+    case 'w':
+	write_tmpbuf();
+	return KEEP_EDITING;
+    case 'd':
+	erase_tmpbuf();
+	return KEEP_EDITING;
+    case 't':
+	move(3, 0);
+	prints("舊標題：%s", save_title);
+	strlcpy(ans, save_title, sizeof(ans));
+	if (getdata_buf(4, 0, "新標題：", ans, sizeof(ans), DOECHO))
+	    strlcpy(save_title, ans, sizeof(save_title));
+	return KEEP_EDITING;
+    case 's':
+	if (!HAS_PERM(PERM_LOGINOK)) {
+	    local_article = 1;
+	    move(2, 0);
+	    prints("您尚未通過身份確認，只能 Local Save。\n");
+	    pressanykey();
+	} else
+	    local_article = 0;
+	break;
+    case 'l':
+	local_article = 1;
+    }
+
+    if (!aborted) {
+	if (saveheader && !(curredit & EDIT_MAIL) && check_quote())
+	    return KEEP_EDITING;
+
+	if (!*fpath) {
+	    sethomepath(fpath, cuser.userid);
+	    strcpy(fpath, tempnam(fpath, "ve_"));
+	}
+	if ((fp = fopen(fpath, "w")) == NULL) {
+	    indigestion(5);
+	    abort_bbs(0);
+	}
+	if (saveheader)
+	    write_header(fp);
+    }
+    for (p = firstline; p; p = v) {
+	v = p->next;
+	if (!aborted) {
+	    assert(fp);
+	    msg = p->data;
+	    if (v || msg[0]) {
+		trim(msg);
+
+		line++;
+		if (currstat == POSTING && po) {
+		    saveheader = str_checksum(msg);
+		    if (saveheader) {
+			if (postrecord.checksum[po] == saveheader) {
+			    po++;
+			    if (po > 3) {
+				postrecord.times++;
+				po = 0;
+			    }
+			} else
+			    po = 1;
+			if (currstat == POSTING && line >= totaln / 2 &&
+			    sum < 3) {
+			    checksum[sum++] = saveheader;
+			}
+		    }
+		}
+#ifdef SUPPORT_GB
+		if (current_font_type == TYPE_GB) {
+		    fprintf(fp, "%s\n", hc_convert_str(msg, HC_GBtoBIG, HC_DO_SINGLE));
+		} else
+#endif
+		    fprintf(fp, "%s\n", msg);
+	    }
+	}
+	free(p);
+    }
+    currline = NULL;
+
+    if (postrecord.times > MAX_CROSSNUM - 1)
+	anticrosspost();
+
+    if (po && sum == 3) {
+	memcpy(&postrecord.checksum[1], checksum, sizeof(int) * 3);
+	postrecord.times = 0;
+    }
+    if (!aborted) {
+	if (islocal)
+	    *islocal = (local_article == 1);
+	if (currstat == POSTING || currstat == SMAIL)
+	    addsignature(fp, ifuseanony);
+	else if (currstat == REEDIT
+#ifndef ALL_REEDIT_LOG
+		 && strcmp(currboard, "SYSOP") == 0
+#endif
+	    ) {
+	    ptime = localtime(&now);
+	    fprintf(fp,
+		    "※ 編輯: %-15s 來自: %-20s (%02d/%02d %02d:%02d)\n",
+		    cuser.userid, fromhost,
+		    ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_hour, ptime->tm_min);
+	}
+	fclose(fp);
+
+	if (local_article && (currstat == POSTING))
+	    return 0;
+	return 0;
+    }
+    return aborted;
+}
+
+
+static void
+display_buffer()
+{
+    register textline_t *p;
+    register int    i;
+    int             inblock;
+    char            buf[WRAPMARGIN + 2];
+    int             min, max;
+
+    if (currpnt > blockpnt) {
+	min = blockpnt;
+	max = currpnt;
+    } else {
+	min = currpnt;
+	max = blockpnt;
+    }
+
+    for (p = top_of_win, i = 0; i < b_lines; i++) {
+	move(i, 0);
+	clrtoeol();
+	if (blockln >= 0 &&
+	((blockln <= currln && blockln <= (currln - curr_window_line + i) &&
+	  (currln - curr_window_line + i) <= currln) ||
+	 (currln <= (currln - curr_window_line + i) &&
+	  (currln - curr_window_line + i) <= blockln))) {
+	    outs("\033[7m");
+	    inblock = 1;
+	} else
+	    inblock = 0;
+	if (p) {
+	    if (my_ansimode)
+		if (currln == blockln && p == currline && max > min) {
+		    outs("\033[m");
+		    strncpy(buf, p->data, min);
+		    buf[min] = 0;
+		    outs(buf);
+		    outs("\033[7m");
+		    strncpy(buf, p->data + min, max - min);
+		    buf[max - min] = 0;
+		    outs(buf);
+		    outs("\033[m");
+		    outs(p->data + max);
+		} else
+		    outs(p->data);
+	    else if (currln == blockln && p == currline && max > min) {
+		outs("\033[m");
+		strncpy(buf, p->data, min);
+		buf[min] = 0;
+		edit_outs(buf);
+		outs("\033[7m");
+		strncpy(buf, p->data + min, max - min);
+		buf[max - min] = 0;
+		edit_outs(buf);
+		outs("\033[m");
+		edit_outs(p->data + max);
+	    } else
+		edit_outs((edit_margin < p->len) ? &p->data[edit_margin] : "");
+	    p = p->next;
+	    if (inblock)
+		outs("\033[m");
+	} else
+	    outch('~');
+    }
+    edit_msg();
+}
+
+static void
+goto_line(int lino)
+{
+    char            buf[10];
+
+    if (lino > 0 ||
+	(getdata(b_lines - 1, 0, "跳至第幾行:", buf, sizeof(buf), DOECHO) &&
+	 sscanf(buf, "%d", &lino) && lino > 0)) {
+	textline_t     *p;
+
+	p = firstline;
+	currln = lino - 1;
+
+	while (--lino && p->next)
+	    p = p->next;
+
+	if (p)
+	    currline = p;
+	else {
+	    currln = totaln;
+	    currline = lastline;
+	}
+	currpnt = 0;
+	if (currln < 11) {
+	    top_of_win = firstline;
+	    curr_window_line = currln;
+	} else {
+	    int             i;
+
+	    curr_window_line = 11;
+	    for (i = curr_window_line; i; i--)
+		p = p->prev;
+	    top_of_win = p;
+	}
+    }
+    redraw_everything = YEA;
+}
+
+char           *
+strcasestr(const char *big, const char *little)
+{
+    char           *ans = (char *)big;
+    int             len = strlen(little);
+    char           *endptr = (char *)big + strlen(big) - len;
+
+    while (ans <= endptr)
+	if (!strncasecmp(ans, little, len))
+	    return ans;
+	else
+	    ans++;
+    return 0;
+}
+
+/*
+ * mode: 0: prompt 1: forward -1: backward
+ */
+static void
+search_str(int mode)
+{
+    static char     str[65];
+    typedef char   *(*FPTR) ();
+    static FPTR     fptr;
+    char            ans[4] = "n";
+
+    if (!mode) {
+	if (getdata_buf(b_lines - 1, 0, "[搜尋]關鍵字:",
+			str, sizeof(str), DOECHO))
+	    if (*str) {
+		if (getdata(b_lines - 1, 0, "區分大小寫(Y/N/Q)? [N] ",
+			    ans, sizeof(ans), LCECHO) && *ans == 'y')
+		    fptr = strstr;
+		else
+		    fptr = strcasestr;
+	    }
+    }
+    if (*str && *ans != 'q') {
+	textline_t     *p;
+	char           *pos = NULL;
+	int             lino;
+
+	if (mode >= 0) {
+	    for (lino = currln, p = currline; p; p = p->next, lino++)
+		if ((pos = fptr(p->data + (lino == currln ? currpnt + 1 : 0),
+				str)) && (lino != currln ||
+					  pos - p->data != currpnt))
+		    break;
+	} else {
+	    for (lino = currln, p = currline; p; p = p->prev, lino--)
+		if ((pos = fptr(p->data, str)) &&
+		    (lino != currln || pos - p->data != currpnt))
+		    break;
+	}
+	if (pos) {
+	    currline = p;
+	    currln = lino;
+	    currpnt = pos - p->data;
+	    if (lino < 11) {
+		top_of_win = firstline;
+		curr_window_line = currln;
+	    } else {
+		int             i;
+
+		curr_window_line = 11;
+		for (i = curr_window_line; i; i--)
+		    p = p->prev;
+		top_of_win = p;
+	    }
+	    redraw_everything = YEA;
+	}
+    }
+    if (!mode)
+	redraw_everything = YEA;
+}
+
+static void
+match_paren()
+{
+    char           *parens = "()[]{}";
+    int             type;
+    int             parenum = 0;
+    char           *ptype;
+    textline_t     *p;
+    int             lino;
+    int             c, i = 0;
+
+    if (!(ptype = strchr(parens, currline->data[currpnt])))
+	return;
+
+    type = (ptype - parens) / 2;
+    parenum += ((ptype - parens) % 2) ? -1 : 1;
+
+    /* FIXME 太多 strlen() */
+    /* FIXME CRASH */
+    if (parenum > 0) {
+	for (lino = currln, p = currline; p; p = p->next, lino++) {
+	    for (i = (lino == currln) ? currpnt + 1 : 0;
+		 (size_t)i < strlen(p->data); i++)
+		if (p->data[i] == '/' && p->data[++i] == '*') {
+		    ++i;
+		    while (1) {
+			while ((size_t)i < strlen(p->data) - 1 &&
+			       !(p->data[i] == '*' && p->data[i + 1] == '/'))
+			    i++;
+			if ((size_t)i >= strlen(p->data) - 1 && p->next) {
+			    p = p->next;
+			    ++lino;
+			    i = 0;
+			} else
+			    break;
+		    }
+		} else if ((c = p->data[i]) == '\'' || c == '"') {
+		    while (1) {
+			while (i < (int)(strlen(p->data) - 1))
+			    if (p->data[++i] == '\\' && (size_t)i < strlen(p->data) - 2)
+				++i;
+			    else if (p->data[i] == c)
+				goto end_quote;
+			if ((size_t)i >= strlen(p->data) - 1 && p->next) {
+			    p = p->next;
+			    ++lino;
+			    i = -1;
+			} else
+			    break;
+		    }
+	    end_quote:
+		    ;
+		} else if ((ptype = strchr(parens, p->data[i])) &&
+			   (ptype - parens) / 2 == type)
+		    if (!(parenum += ((ptype - parens) % 2) ? -1 : 1))
+			goto p_outscan;
+	}
+    } else {
+	for (lino = currln, p = currline; p; p = p->prev, lino--)
+	    for (i = ((lino == currln) ?
+		      currpnt - 1 :
+		      (int)strlen(p->data) - 1);
+		 i >= 0; i--)
+		if (p->data[i] == '/' && p->data[--i] == '*' && i > 0) {
+		    --i;
+		    while (1) {
+			while (i > 0 &&
+			       !(p->data[i] == '*' && p->data[i - 1] == '/'))
+			    i--;
+			if (i <= 0 && p->prev) {
+			    p = p->prev;
+			    --lino;
+			    i = strlen(p->data) - 1;
+			} else
+			    break;
+		    }
+		} else if ((c = p->data[i]) == '\'' || c == '"') {
+		    while (1) {
+			while (i > 0)
+			    if (i > 1 && p->data[i - 2] == '\\')
+				i -= 2;
+			    else if ((p->data[--i]) == c)
+				goto begin_quote;
+			if (i <= 0 && p->prev) {
+			    p = p->prev;
+			    --lino;
+			    i = strlen(p->data);
+			} else
+			    break;
+		    }
+	    begin_quote:
+		    ;
+		} else if ((ptype = strchr(parens, p->data[i])) &&
+			   (ptype - parens) / 2 == type)
+		    if (!(parenum += ((ptype - parens) % 2) ? -1 : 1))
+			goto p_outscan;
+    }
+p_outscan:
+    if (!parenum) {
+	int             top = currln - curr_window_line;
+	int             bottom = currln - curr_window_line + b_lines - 1;
+
+	currpnt = i;
+	currline = p;
+	curr_window_line += lino - currln;
+	currln = lino;
+
+	if (lino < top || lino > bottom) {
+	    if (lino < 11) {
+		top_of_win = firstline;
+		curr_window_line = currln;
+	    } else {
+		int             i;
+
+		curr_window_line = 11;
+		for (i = curr_window_line; i; i--)
+		    p = p->prev;
+		top_of_win = p;
+	    }
+	    redraw_everything = YEA;
+	}
+    }
+}
+
+static void
+block_del(int hide)
+{
+    if (blockln < 0) {
+	blockln = currln;
+	blockpnt = currpnt;
+	blockline = currline;
+    } else {
+	char            fp_tmpbuf[80];
+	FILE           *fp;
+	textline_t     *begin, *end, *p;
+	char            tmpfname[10] = "buf.0";
+	char            ans[6] = "w+n";
+
+	move(b_lines - 1, 0);
+	clrtoeol();
+	if (hide == 1)
+	    tmpfname[4] = 'q';
+	else if (!hide && !getdata(b_lines - 1, 0, "把區塊移至暫存檔 "
+				   "(0:Cut, 5:Copy, 6-9, q: Cancel)[0] ",
+				   tmpfname + 4, 4, LCECHO))
+	    tmpfname[4] = '0';
+	if (tmpfname[4] < '0' || tmpfname[4] > '9')
+	    tmpfname[4] = 'q';
+	if ('1' <= tmpfname[4] && tmpfname[4] <= '9') {
+	    setuserfile(fp_tmpbuf, tmpfname);
+	    if (tmpfname[4] != '5' && dashf(fp_tmpbuf)) {
+		more(fp_tmpbuf, NA);
+		getdata(b_lines - 1, 0, "暫存檔已有資料 (A)附加 (W)覆寫 "
+			"(Q)取消？[W] ", ans, 2, LCECHO);
+		if (*ans == 'q')
+		    tmpfname[4] = 'q';
+		else if (*ans != 'a')
+		    *ans = 'w';
+	    }
+	    if (tmpfname[4] != '5') {
+		getdata(b_lines - 1, 0, "刪除區塊(Y/N)?[N] ",
+			ans + 2, 4, LCECHO);
+		if (ans[2] != 'y')
+		    ans[2] = 'n';
+	    }
+	} else if (hide != 3)
+	    ans[2] = 'y';
+
+	tmpfname[5] = ans[1] = ans[3] = 0;
+	if (tmpfname[4] != 'q') {
+	    if (currln >= blockln) {
+		begin = blockline;
+		end = currline;
+		if (ans[2] == 'y' && !(begin == end && currpnt != blockpnt)) {
+		    curr_window_line -= (currln - blockln);
+		    if (curr_window_line < 0) {
+			curr_window_line = 0;
+			if (end->next)
+			    (top_of_win = end->next)->prev = begin->prev;
+			else
+			    top_of_win = (lastline = begin->prev);
+		    }
+		    currln -= (currln - blockln);
+		}
+	    } else {
+		begin = currline;
+		end = blockline;
+	    }
+	    if (ans[2] == 'y' && !(begin == end && currpnt != blockpnt)) {
+		if (begin->prev)
+		    begin->prev->next = end->next;
+		else if (end->next)
+		    top_of_win = firstline = end->next;
+		else {
+		    currline = top_of_win = firstline =
+			lastline = alloc_line(WRAPMARGIN);
+		    currln = curr_window_line = edit_margin = 0;
+		}
+
+		if (end->next)
+		    (currline = end->next)->prev = begin->prev;
+		else if (begin->prev) {
+		    currline = (lastline = begin->prev);
+		    currln--;
+		    if (curr_window_line > 0)
+			curr_window_line--;
+		}
+	    }
+	    setuserfile(fp_tmpbuf, tmpfname);
+	    if ((fp = fopen(fp_tmpbuf, ans))) {
+		if (begin == end && currpnt != blockpnt) {
+		    char            buf[WRAPMARGIN + 2];
+
+		    if (currpnt > blockpnt) {
+			strlcpy(buf, begin->data + blockpnt, sizeof(buf));
+			buf[currpnt - blockpnt] = 0;
+		    } else {
+			strlcpy(buf, begin->data + currpnt, sizeof(buf));
+			buf[blockpnt - currpnt] = 0;
+		    }
+		    fputs(buf, fp);
+		} else {
+		    for (p = begin; p != end; p = p->next)
+			fprintf(fp, "%s\n", p->data);
+		    fprintf(fp, "%s\n", end->data);
+		}
+		fclose(fp);
+	    }
+	    if (ans[2] == 'y') {
+		if (begin == end && currpnt != blockpnt) {
+		    int             min, max;
+
+		    if (currpnt > blockpnt) {
+			min = blockpnt;
+			max = currpnt;
+		    } else {
+			min = currpnt;
+			max = blockpnt;
+		    }
+		    strlcpy(begin->data + min, begin->data + max, sizeof(begin->data) - min);
+		    begin->len -= max - min;
+		    currpnt = min;
+		} else {
+		    for (p = begin; p != end; totaln--)
+			free((p = p->next)->prev);
+		    free(end);
+		    totaln--;
+		    currpnt = 0;
+		}
+	    }
+	}
+	blockln = -1;
+	redraw_everything = YEA;
+    }
+}
+
+static void
+block_shift_left()
+{
+    textline_t     *begin, *end, *p;
+
+    if (currln >= blockln) {
+	begin = blockline;
+	end = currline;
+    } else {
+	begin = currline;
+	end = blockline;
+    }
+    p = begin;
+    while (1) {
+	if (p->len) {
+	    strcpy(p->data, p->data + 1);
+	    --p->len;
+	}
+	if (p == end)
+	    break;
+	else
+	    p = p->next;
+    }
+    if (currpnt > currline->len)
+	currpnt = currline->len;
+    redraw_everything = YEA;
+}
+
+static void
+block_shift_right()
+{
+    textline_t     *begin, *end, *p;
+
+    if (currln >= blockln) {
+	begin = blockline;
+	end = currline;
+    } else {
+	begin = currline;
+	end = blockline;
+    }
+    p = begin;
+    while (1) {
+	if (p->len < WRAPMARGIN) {
+	    int             i = p->len + 1;
+
+	    while (i--)
+		p->data[i + 1] = p->data[i];
+	    p->data[0] = insert_character ? ' ' : insert_c;
+	    ++p->len;
+	}
+	if (p == end)
+	    break;
+	else
+	    p = p->next;
+    }
+    if (currpnt > currline->len)
+	currpnt = currline->len;
+    redraw_everything = YEA;
+}
+
+static void
+transform_to_color(char *line)
+{
+    while (line[0] && line[1])
+	if (line[0] == '*' && line[1] == '[') {
+	    line[0] = KEY_ESC;
+	    line += 2;
+	} else
+	    ++line;
+}
+
+static void
+block_color()
+{
+    textline_t     *begin, *end, *p;
+
+    if (currln >= blockln) {
+	begin = blockline;
+	end = currline;
+    } else {
+	begin = currline;
+	end = blockline;
+    }
+    p = begin;
+    while (1) {
+	transform_to_color(p->data);
+	if (p == end)
+	    break;
+	else
+	    p = p->next;
+    }
+    block_del(1);
+}
+
+/* 編輯處理：主程式、鍵盤處理 */
+int
+vedit(char *fpath, int saveheader, int *islocal)
+{
+    FILE           *fp1;
+    char            last = 0;	/* the last key you press */
+    int             ch, foo;
+    int             lastindent = -1;
+    int             last_margin;
+    int             mode0 = currutmp->mode;
+    int             destuid0 = currutmp->destuid;
+    unsigned int    money = 0;
+    int             interval = 0;
+    time_t          th = now;
+
+    textline_t     *firstline0 = firstline;
+    textline_t     *lastline0 = lastline;
+    textline_t     *currline0 = currline;
+    textline_t     *blockline0 = blockline;
+    textline_t     *top_of_win0 = top_of_win;
+    textline_t     *oldcurrline;
+    int             local_article0 = local_article;
+    int             currpnt0 = currpnt;
+    int             currln0 = currln;
+    int             totaln0 = totaln;
+    int             curr_window_line0 = curr_window_line;
+    int             insert_character0 = insert_character;
+    int             my_ansimode0 = my_ansimode;
+    int             edit_margin0 = edit_margin;
+    int             blockln0 = blockln, count = 0, tin = 0;
+
+    currutmp->mode = EDITING;
+    currutmp->destuid = currstat;
+    insert_character = redraw_everything = 1;
+    blockln = -1;
+
+    line_dirty = currpnt = totaln = my_ansimode = 0;
+    oldcurrline = currline = top_of_win =
+	firstline = lastline = alloc_line(WRAPMARGIN);
+
+    if (*fpath)
+	read_file(fpath);
+
+    if (*quote_file) {
+	do_quote();
+	*quote_file = '\0';
+	if (quote_file[79] == 'L')
+	    local_article = 1;
+    }
+    currline = firstline;
+    currpnt = currln = curr_window_line = edit_margin = last_margin = 0;
+
+    while (1) {
+	if (redraw_everything || blockln >= 0) {
+	    display_buffer();
+	    redraw_everything = NA;
+	}
+	if( oldcurrline != currline ){
+	    oldcurrline = adjustline(oldcurrline, oldcurrline->len);
+	    oldcurrline = currline = adjustline(currline, WRAPMARGIN);
+	}
+	if (my_ansimode)
+	    ch = n2ansi(currpnt, currline);
+	else
+	    ch = currpnt - edit_margin;
+	move(curr_window_line, ch);
+	if (!line_dirty && strcmp(line, currline->data))
+	    strcpy(line, currline->data);
+	ch = igetkey();
+	/* jochang debug */
+	if ((interval = (now - th))) {
+	    th = now;
+	    if ((char)ch != last) {
+		money++;
+		last = (char)ch;
+	    }
+	}
+	if (interval && interval == tin)
+	    count++;
+	else {
+	    count = 0;
+	    tin = interval;
+	}
+	/* 連續240個interval一樣 , 分明是在斂財 
+	if (count >= 240) {
+	    char buf[200];
+	    snprintf(buf, sizeof(buf), "\033[1;33;46m%s\033[37m在\033[37;45m%s"
+		    "\033[37m板違法賺錢 , %s\033[m", cuser.userid,
+		    currboard, ctime(&now));
+	    log_file("etc/illegal_money", buf);
+	    money = 0;
+	    post_violatelaw(cuser.userid, "Ptt 系統警察", "違法賺錢", "扣除不法所得");
+	    mail_violatelaw(cuser.userid, "Ptt 系統警察", "違法賺錢", "扣除不法所得");
+	    demoney(10000);
+	    abort_bbs(0);
+	} */
+	if (raw_mode)
+	    switch (ch) {
+	    case Ctrl('S'):
+	    case Ctrl('Q'):
+	    case Ctrl('T'):
+		continue;
+		break;
+	    }
+	if (ch < 0x100 && isprint2(ch)) {
+	    insert_char(ch);
+	    lastindent = -1;
+	    line_dirty = 1;
+	} else {
+	    if (ch == Ctrl('P') || ch == KEY_UP || ch == KEY_DOWN ||
+		ch == Ctrl('N')) {
+		if (lastindent == -1)
+		    lastindent = currpnt;
+	    } else
+		lastindent = -1;
+	    if (ch == KEY_ESC)
+		switch (KEY_ESC_arg) {
+		case ',':
+		    ch = Ctrl(']');
+		    break;
+		case '.':
+		    ch = Ctrl('T');
+		    break;
+		case 'v':
+		    ch = KEY_PGUP;
+		    break;
+		case 'a':
+		case 'A':
+		    ch = Ctrl('V');
+		    break;
+		case 'X':
+		    ch = Ctrl('X');
+		    break;
+		case 'q':
+		    ch = Ctrl('Q');
+		    break;
+		case 'o':
+		    ch = Ctrl('O');
+		    break;
+		case '-':
+		    ch = Ctrl('_');
+		    break;
+		case 's':
+		    ch = Ctrl('S');
+		    break;
+		}
+
+	    switch (ch) {
+	    case Ctrl('X'):	/* Save and exit */
+		foo = write_file(fpath, saveheader, islocal);
+		if (foo != KEEP_EDITING) {
+		    currutmp->mode = mode0;
+		    currutmp->destuid = destuid0;
+		    firstline = firstline0;
+		    lastline = lastline0;
+		    currline = currline0;
+		    blockline = blockline0;
+		    top_of_win = top_of_win0;
+		    local_article = local_article0;
+		    currpnt = currpnt0;
+		    currln = currln0;
+		    totaln = totaln0;
+		    curr_window_line = curr_window_line0;
+		    insert_character = insert_character0;
+		    my_ansimode = my_ansimode0;
+		    edit_margin = edit_margin0;
+		    blockln = blockln0;
+		    if (!foo)
+			return money;
+		    else
+			return foo;
+		}
+		line_dirty = 1;
+		redraw_everything = YEA;
+		break;
+	    case Ctrl('W'):
+		if (blockln >= 0)
+		    block_del(2);
+		line_dirty = 1;
+		break;
+	    case Ctrl('Q'):	/* Quit without saving */
+		ch = ask("結束但不儲存 (Y/N)? [N]: ");
+		if (ch == 'y' || ch == 'Y') {
+		    currutmp->mode = mode0;
+		    currutmp->destuid = destuid0;
+		    firstline = firstline0;
+		    lastline = lastline0;
+		    currline = currline0;
+		    blockline = blockline0;
+		    top_of_win = top_of_win0;
+		    local_article = local_article0;
+		    currpnt = currpnt0;
+		    currln = currln0;
+		    totaln = totaln0;
+		    curr_window_line = curr_window_line0;
+		    insert_character = insert_character0;
+		    my_ansimode = my_ansimode0;
+		    edit_margin = edit_margin0;
+		    blockln = blockln0;
+		    return -1;
+		}
+		line_dirty = 1;
+		redraw_everything = YEA;
+		break;
+	    case Ctrl('C'):
+		ch = insert_character;
+		insert_character = redraw_everything = YEA;
+		if (!my_ansimode)
+		    insert_string(reset_color);
+		else {
+		    char            ans[4];
+		    move(b_lines - 2, 55);
+		    outs("\033[1;33;40mB\033[41mR\033[42mG\033[43mY\033[44mL"
+			 "\033[45mP\033[46mC\033[47mW\033[m");
+		    if (getdata(b_lines - 1, 0,
+			      "請輸入  亮度/前景/背景[正常白字黑底][0wb]：",
+				ans, sizeof(ans), LCECHO)) {
+			char            t[] = "BRGYLPCW";
+			char            color[15];
+			char           *tmp, *apos = ans;
+			int             fg, bg;
+
+			strlcpy(color, "\033[", sizeof(color));
+			if (isdigit(*apos)) {
+			    snprintf(color, sizeof(color),
+				     "%s%c", color, *(apos++));
+			    if (*apos)
+				snprintf(color, sizeof(color), "%s;", color);
+			}
+			if (*apos) {
+			    if ((tmp = strchr(t, toupper(*(apos++)))))
+				fg = tmp - t + 30;
+			    else
+				fg = 37;
+			    snprintf(color, sizeof(color), "%s%d", color, fg);
+			}
+			if (*apos) {
+			    if ((tmp = strchr(t, toupper(*(apos++)))))
+				bg = tmp - t + 40;
+			    else
+				bg = 40;
+			    snprintf(color, sizeof(color), "%s;%d", color, bg);
+			}
+			snprintf(color, sizeof(color), "%sm", color);
+			insert_string(color);
+		    } else
+			insert_string(reset_color);
+		}
+		insert_character = ch;
+		line_dirty = 1;
+		break;
+	    case KEY_ESC:
+		line_dirty = 0;
+		switch (KEY_ESC_arg) {
+		case 'U':
+		    t_users();
+		    redraw_everything = YEA;
+		    line_dirty = 1;
+		    break;
+		case 'i':
+		    t_idle();
+		    redraw_everything = YEA;
+		    line_dirty = 1;
+		    break;
+		case 'n':
+		    search_str(1);
+		    break;
+		case 'p':
+		    search_str(-1);
+		    break;
+		case 'L':
+		case 'J':
+		    goto_line(0);
+		    break;
+		case ']':
+		    match_paren();
+		    break;
+		case '0':
+		case '1':
+		case '2':
+		case '3':
+		case '4':
+		case '5':
+		case '6':
+		case '7':
+		case '8':
+		case '9':
+		    read_tmpbuf(KEY_ESC_arg - '0');
+		    redraw_everything = YEA;
+		    break;
+		case 'l':	/* block delete */
+		case ' ':
+		    block_del(0);
+		    line_dirty = 1;
+		    break;
+		case 'u':
+		    if (blockln >= 0)
+			block_del(1);
+		    line_dirty = 1;
+		    break;
+		case 'c':
+		    if (blockln >= 0)
+			block_del(3);
+		    line_dirty = 1;
+		    break;
+		case 'y':
+		    undelete_line();
+		    break;
+		case 'R':
+		    raw_mode ^= 1;
+		    line_dirty = 1;
+		    break;
+		case 'I':
+		    indent_mode ^= 1;
+		    line_dirty = 1;
+		    break;
+		case 'j':
+		    if (blockln >= 0)
+			block_shift_left();
+		    else if (currline->len) {
+			int             currpnt0 = currpnt;
+			currpnt = 0;
+			delete_char();
+			currpnt = (currpnt0 <= currline->len) ? currpnt0 :
+			    currpnt0 - 1;
+			if (my_ansimode)
+			    currpnt = ansi2n(n2ansi(currpnt, currline),
+					     currline);
+		    }
+		    line_dirty = 1;
+		    break;
+		case 'k':
+		    if (blockln >= 0)
+			block_shift_right();
+		    else {
+			int             currpnt0 = currpnt;
+
+			currpnt = 0;
+			insert_char(' ');
+			currpnt = currpnt0;
+		    }
+		    line_dirty = 1;
+		    break;
+		case 'f':
+		    while (currpnt < currline->len &&
+			   isalnum(currline->data[++currpnt]));
+		    while (currpnt < currline->len &&
+			   isspace(currline->data[++currpnt]));
+		    line_dirty = 1;
+		    break;
+		case 'b':
+		    while (currpnt && isalnum(currline->data[--currpnt]));
+		    while (currpnt && isspace(currline->data[--currpnt]));
+		    line_dirty = 1;
+		    break;
+		case 'd':
+		    while (currpnt < currline->len) {
+			delete_char();
+			if (!isalnum(currline->data[currpnt]))
+			    break;
+		    }
+		    while (currpnt < currline->len) {
+			delete_char();
+			if (!isspace(currline->data[currpnt]))
+			    break;
+		    }
+		    line_dirty = 1;
+		    break;
+		default:
+		    line_dirty = 1;
+		}
+		break;
+	    case Ctrl('_'):
+		if (strcmp(line, currline->data)) {
+		    char            buf[WRAPMARGIN];
+
+		    strlcpy(buf, currline->data, sizeof(buf));
+		    strcpy(currline->data, line);
+		    strcpy(line, buf);
+		    currline->len = strlen(currline->data);
+		    currpnt = 0;
+		    line_dirty = 1;
+		}
+		break;
+	    case Ctrl('S'):
+		search_str(0);
+		break;
+	    case Ctrl('U'):
+		insert_char('\033');
+		line_dirty = 1;
+		break;
+	    case Ctrl('V'):	/* Toggle ANSI color */
+		my_ansimode ^= 1;
+		if (my_ansimode && blockln >= 0)
+		    block_color();
+		clear();
+		redraw_everything = YEA;
+		line_dirty = 1;
+		break;
+	    case Ctrl('I'):
+		do {
+		    insert_char(' ');
+		} while (currpnt & 0x7);
+		line_dirty = 1;
+		break;
+	    case '\r':
+	    case '\n':
+#ifdef MAX_EDIT_LINE
+		if( totaln == MAX_EDIT_LINE ){
+		    vmsg("MAX_EDIT_LINE exceed");
+		    break;
+		}
+#endif
+		split(currline, currpnt);
+		oldcurrline = currline;
+		line_dirty = 0;
+		break;
+	    case Ctrl('G'):
+		{
+		    unsigned int    currstat0 = currstat;
+		    setutmpmode(EDITEXP);
+		    a_menu("編輯輔助器", "etc/editexp",
+			   (HAS_PERM(PERM_SYSOP) ? SYSOP : NOBODY));
+		    currstat = currstat0;
+		}
+		if (trans_buffer[0]) {
+		    if ((fp1 = fopen(trans_buffer, "r"))) {
+			int             indent_mode0 = indent_mode;
+
+			indent_mode = 0;
+			while (fgets(line, WRAPMARGIN + 2, fp1)) {
+			    if (!strncmp(line, "作者:", 5) ||
+				!strncmp(line, "標題:", 5) ||
+				!strncmp(line, "時間:", 5))
+				continue;
+			    insert_string(line);
+			}
+			fclose(fp1);
+			indent_mode = indent_mode0;
+			while (curr_window_line >= b_lines) {
+			    curr_window_line--;
+			    top_of_win = top_of_win->next;
+			}
+		    }
+		}
+		redraw_everything = YEA;
+		line_dirty = 1;
+		break;
+	    case Ctrl('Z'):	/* Help */
+		more("etc/ve.hlp", YEA);
+		redraw_everything = YEA;
+		line_dirty = 1;
+		break;
+	    case Ctrl('L'):
+		clear();
+		redraw_everything = YEA;
+		line_dirty = 1;
+		break;
+	    case KEY_LEFT:
+		if (currpnt) {
+		    if (my_ansimode)
+			currpnt = n2ansi(currpnt, currline);
+		    currpnt--;
+		    if (my_ansimode)
+			currpnt = ansi2n(currpnt, currline);
+		    line_dirty = 1;
+		} else if (currline->prev) {
+		    curr_window_line--;
+		    currln--;
+		    currline = currline->prev;
+		    currpnt = currline->len;
+		    line_dirty = 0;
+		}
+		break;
+	    case KEY_RIGHT:
+		if (currline->len != currpnt) {
+		    if (my_ansimode)
+			currpnt = n2ansi(currpnt, currline);
+		    currpnt++;
+		    if (my_ansimode)
+			currpnt = ansi2n(currpnt, currline);
+		    line_dirty = 1;
+		} else if (currline->next) {
+		    currpnt = 0;
+		    curr_window_line++;
+		    currln++;
+		    currline = currline->next;
+		    line_dirty = 0;
+		}
+		break;
+	    case KEY_UP:
+	    case Ctrl('P'):
+		if (currline->prev) {
+		    if (my_ansimode)
+			ch = n2ansi(currpnt, currline);
+		    curr_window_line--;
+		    currln--;
+		    currline = currline->prev;
+		    if (my_ansimode)
+			currpnt = ansi2n(ch, currline);
+		    else
+			currpnt = (currline->len > lastindent) ? lastindent :
+			    currline->len;
+		    line_dirty = 0;
+		}
+		break;
+	    case KEY_DOWN:
+	    case Ctrl('N'):
+		if (currline->next) {
+		    if (my_ansimode)
+			ch = n2ansi(currpnt, currline);
+		    currline = currline->next;
+		    curr_window_line++;
+		    currln++;
+		    if (my_ansimode)
+			currpnt = ansi2n(ch, currline);
+		    else
+			currpnt = (currline->len > lastindent) ? lastindent :
+			    currline->len;
+		    line_dirty = 0;
+		}
+		break;
+	    case Ctrl('B'):
+	    case KEY_PGUP:
+		redraw_everything = currln;
+		top_of_win = back_line(top_of_win, 22);
+		currln = redraw_everything;
+		currline = back_line(currline, 22);
+		curr_window_line = getlineno();
+		if (currpnt > currline->len)
+		    currpnt = currline->len;
+		redraw_everything = YEA;
+		line_dirty = 0;
+		break;
+	    case KEY_PGDN:
+	    case Ctrl('F'):
+		redraw_everything = currln;
+		top_of_win = forward_line(top_of_win, 22);
+		currln = redraw_everything;
+		currline = forward_line(currline, 22);
+		curr_window_line = getlineno();
+		if (currpnt > currline->len)
+		    currpnt = currline->len;
+		redraw_everything = YEA;
+		line_dirty = 0;
+		break;
+	    case KEY_END:
+	    case Ctrl('E'):
+		currpnt = currline->len;
+		line_dirty = 1;
+		break;
+	    case Ctrl(']'):	/* start of file */
+		currline = top_of_win = firstline;
+		currpnt = currln = curr_window_line = 0;
+		redraw_everything = YEA;
+		line_dirty = 0;
+		break;
+	    case Ctrl('T'):	/* tail of file */
+		top_of_win = back_line(lastline, 23);
+		currline = lastline;
+		curr_window_line = getlineno();
+		currln = totaln;
+		redraw_everything = YEA;
+		currpnt = 0;
+		line_dirty = 0;
+		break;
+	    case KEY_HOME:
+	    case Ctrl('A'):
+		currpnt = 0;
+		line_dirty = 1;
+		break;
+	    case KEY_INS:	/* Toggle insert/overwrite */
+	    case Ctrl('O'):
+		if (blockln >= 0 && insert_character) {
+		    char            ans[4];
+
+		    getdata(b_lines - 1, 0,
+			    "區塊微調右移插入字元(預設為空白字元)",
+			    ans, sizeof(ans), LCECHO);
+		    insert_c = (*ans) ? *ans : ' ';
+		}
+		insert_character ^= 1;
+		line_dirty = 1;
+		break;
+	    case Ctrl('H'):
+	    case '\177':	/* backspace */
+		line_dirty = 1;
+		if (my_ansimode) {
+		    my_ansimode = 0;
+		    clear();
+		    redraw_everything = YEA;
+		} else {
+		    if (currpnt == 0) {
+			textline_t     *p;
+
+			if (!currline->prev)
+			    break;
+			line_dirty = 0;
+			curr_window_line--;
+			currln--;
+			currline = currline->prev;
+			currline = adjustline(currline, WRAPMARGIN);
+
+			// dirty fix. would this cause memory leak?
+			oldcurrline = currline;
+
+			currpnt = currline->len;
+			redraw_everything = YEA;
+			if (*killsp(currline->next->data) == '\0') {
+			    delete_line(currline->next);
+			    break;
+			}
+			p = currline;
+			while (!join(p)) {
+			    p = p->next;
+			    if (p == NULL) {
+				indigestion(2);
+				abort_bbs(0);
+			    }
+			}
+			break;
+		    }
+		    currpnt--;
+		    delete_char();
+		}
+		break;
+	    case Ctrl('D'):
+	    case KEY_DEL:	/* delete current character */
+		line_dirty = 1;
+		if (currline->len == currpnt) {
+		    textline_t     *p = currline;
+
+		    while (!join(p)) {
+			p = p->next;
+			if (p == NULL) {
+			    indigestion(2);
+			    abort_bbs(0);
+			}
+		    }
+		    line_dirty = 0;
+		    redraw_everything = YEA;
+		} else {
+		    delete_char();
+		    if (my_ansimode)
+			currpnt = ansi2n(n2ansi(currpnt, currline), currline);
+		}
+		break;
+	    case Ctrl('Y'):	/* delete current line */
+		currline->len = currpnt = 0;
+	    case Ctrl('K'):	/* delete to end of line */
+		if (currline->len == 0) {
+		    textline_t     *p = currline->next;
+		    if (!p) {
+			p = currline->prev;
+			if (!p)
+			    break;
+			if (curr_window_line > 0) {
+			    curr_window_line--;
+			    currln--;
+			}
+		    }
+		    if (currline == top_of_win)
+			top_of_win = p;
+		    delete_line(currline);
+		    currline = p;
+		    redraw_everything = YEA;
+		    line_dirty = 0;
+		    oldcurrline = currline = adjustline(currline, WRAPMARGIN);
+		    break;
+		}
+		if (currline->len == currpnt) {
+		    textline_t     *p = currline;
+
+		    while (!join(p)) {
+			p = p->next;
+			if (p == NULL) {
+			    indigestion(2);
+			    abort_bbs(0);
+			}
+		    }
+		    redraw_everything = YEA;
+		    line_dirty = 0;
+		    break;
+		}
+		currline->len = currpnt;
+		currline->data[currpnt] = '\0';
+		line_dirty = 1;
+		break;
+	    }
+	    if (currln < 0)
+		currln = 0;
+	    if (curr_window_line < 0) {
+		curr_window_line = 0;
+		if (!top_of_win->prev)
+		    indigestion(6);
+		else {
+		    top_of_win = top_of_win->prev;
+		    rscroll();
+		}
+	    }
+	    if (curr_window_line == b_lines) {
+		curr_window_line = t_lines - 2;
+		if (!top_of_win->next)
+		    indigestion(7);
+		else {
+		    top_of_win = top_of_win->next;
+		    move(b_lines, 0);
+		    clrtoeol();
+		    scroll();
+		}
+	    }
+	}
+	if (currpnt < t_columns - 1)
+	    edit_margin = 0;
+	else
+	    edit_margin = currpnt / (t_columns - 8) * (t_columns - 8);
+
+	if (!redraw_everything) {
+	    if (edit_margin != last_margin) {
+		last_margin = edit_margin;
+		redraw_everything = YEA;
+	    } else {
+		move(curr_window_line, 0);
+		clrtoeol();
+		if (my_ansimode)
+		    outs(currline->data);
+		else
+		    edit_outs(&currline->data[edit_margin]);
+		edit_msg();
+	    }
+	}
+    }
+}
+
diff --git a/pttbbs/mbbsd/friend.c b/pttbbs/mbbsd/friend.c
new file mode 100644
index 00000000..09d3eee2
--- /dev/null
+++ b/pttbbs/mbbsd/friend.c
@@ -0,0 +1,470 @@
+/* $Id$ */
+#include "bbs.h"
+
+/* ------------------------------------- */
+/* 特別名單                              */
+/* ------------------------------------- */
+
+/* Ptt 其他特別名單的檔名 */
+char     special_list[] = "list.0";
+char     special_des[] = "ldes.0";
+
+/* 特別名單的上限 */
+static unsigned int friend_max[8] = {
+    MAX_FRIEND,
+    MAX_REJECT,
+    MAX_LOGIN_INFO,
+    MAX_POST_INFO,
+    MAX_NAMELIST,
+    MAX_FRIEND,
+    MAX_NAMELIST,
+    MAX_FRIEND,
+};
+/* 雖然好友跟壞人名單都是 * 2 但是一次最多load到shm只能有128 */
+
+
+/* Ptt 各種特別名單的補述 */
+static char    *friend_desc[8] = {
+    "友誼描述：",
+    "惡形惡狀：",
+    "",
+    "",
+    "描述一下：",
+    "投票者描述：",
+    "惡形惡狀：",
+    "看板好友描述"
+};
+
+/* Ptt 各種特別名單的中文敘述 */
+static char    *friend_list[8] = {
+    "好友名單",
+    "壞人名單",
+    "上線通知",
+    "新文章通知",
+    "其它特別名單",
+    "私人投票名單",
+    "看板禁聲名單",
+    "看板好友名單"
+};
+
+void
+setfriendfile(char *fpath, int type)
+{
+    if (type <= 4)		/* user list Ptt */
+	setuserfile(fpath, friend_file[type]);
+    else			/* board list */
+	setbfile(fpath, currboard, friend_file[type]);
+}
+
+static unsigned int
+friend_count(char *fname)
+{
+    FILE           *fp;
+    int             count = 0;
+    char            buf[200];
+
+#if 0
+    if ((fp = fopen(fname, "r")))
+	while (fgets(buf, 200, fp))
+	    count++;
+#endif
+
+    /* rocker.011018: 忘記關檔了... */
+    if ((fp = fopen(fname, "r"))) {
+	while (fgets(buf, 200, fp))
+	    count++;
+	fclose(fp);
+    }
+    return count;
+}
+
+void
+friend_add(char *uident, int type, char* des)
+{
+    char            fpath[80];
+
+    setfriendfile(fpath, type);
+    if (friend_count(fpath) > friend_max[type])
+	return;
+
+    if ((uident[0] > ' ') && !belong(fpath, uident)) {
+	FILE           *fp;
+	char            buf[40] = "";
+	char            t_uident[IDLEN + 1];
+
+	/* Thor: avoid uident run away when get data */
+	strlcpy(t_uident, uident, sizeof(t_uident));
+
+	if (type != FRIEND_ALOHA && type != FRIEND_POST){
+           if(!des)
+	    getdata(2, 0, friend_desc[type], buf, sizeof(buf), DOECHO);
+           else
+	    getdata_str(2, 0, friend_desc[type], buf, sizeof(buf), DOECHO, des);
+	}
+
+	if ((fp = fopen(fpath, "a"))) {
+	    flock(fileno(fp), LOCK_EX);
+	    fprintf(fp, "%-13s%s\n", t_uident, buf);
+	    flock(fileno(fp), LOCK_UN);
+	    fclose(fp);
+	}
+    }
+}
+
+void
+friend_special(void)
+{
+    char            genbuf[70], i, fname[70];
+
+    friend_file[FRIEND_SPECIAL] = special_list;
+    for (i = 0; i <= 9; i++) {
+	snprintf(genbuf, sizeof(genbuf), "  (\033[36m%d\033[m)  .. ", i);
+	special_des[5] = i + '0';
+	setuserfile(fname, special_des);
+	if (dashf(fname)) {
+	    /* XXX no NULL check?? */
+	    FILE           *fp = fopen(fname, "r");
+
+	    assert(fp);
+	    fgets(genbuf + 15, 40, fp);
+	    genbuf[47] = 0;
+	    fclose(fp);
+	}
+	move(i + 12, 0);
+	clrtoeol();
+	outs(genbuf);
+    }
+    getdata(22, 0, "請選擇第幾號特別名單 (0~9)[0]?", genbuf, 3, LCECHO);
+    if (genbuf[0] >= '0' && genbuf[0] <= '9') {
+	special_list[5] = genbuf[0];
+	special_des[5] = genbuf[0];
+    } else {
+	special_list[5] = '0';
+	special_des[5] = '0';
+    }
+}
+
+static void
+friend_append(int type, int count)
+{
+    char            fpath[80], i, j, buf[80], sfile[80];
+    FILE           *fp, *fp1;
+
+    setfriendfile(fpath, type);
+
+    do {
+	move(2, 0);
+	clrtobot();
+	outs("要引入哪一個名單?\n");
+	for (j = i = 0; i <= 4; i++)
+	    if (i != type) {
+		++j;
+		snprintf(buf, sizeof(buf),
+			 "  (%d) %-s\n", j, friend_list[(int)i]);
+		outs(buf);
+	    }
+	if (HAVE_PERM(PERM_SYSOP) || currmode & MODE_BOARD)
+	    for (; i < 8; ++i)
+		if (i != type) {
+		    ++j;
+		    snprintf(buf, sizeof(buf),
+			     "  (%d) %s 板的 %s\n", j, currboard,
+			     friend_list[(int)i]);
+		    outs(buf);
+		}
+	outs("  (S) 選擇其他看板的特別名單");
+	getdata(11, 0, "請選擇 或 直接[Enter] 放棄:", buf, 3, LCECHO);
+	if (!buf[0])
+	    return;
+	if (buf[0] == 's')
+	    Select();
+	j = buf[0] - '1';
+	if (j >= type)
+	    j++;
+	if (!(HAVE_PERM(PERM_SYSOP) || currmode & MODE_BOARD) && j >= 5)
+	    return;
+    } while (buf[0] < '1' || buf[0] > '9');
+
+    if (j == FRIEND_SPECIAL)
+	friend_special();
+
+    setfriendfile(sfile, j);
+
+    if ((fp = fopen(sfile, "r")) != NULL) {
+	while (fgets(buf, 80, fp) && (unsigned)count <= friend_max[type]) {
+	    char            the_id[15];
+
+	    sscanf(buf, "%s", the_id);
+	    if (!belong(fpath, the_id)) {
+		if ((fp1 = fopen(fpath, "a"))) {
+		    flock(fileno(fp1), LOCK_EX);
+		    fputs(buf, fp1);
+		    flock(fileno(fp1), LOCK_UN);
+		    fclose(fp1);
+		}
+	    }
+	}
+	fclose(fp);
+    }
+}
+
+void
+friend_delete(char *uident, int type)
+{
+    FILE           *fp, *nfp = NULL;
+    char            fn[80], fnnew[80];
+    char            genbuf[200];
+
+    setfriendfile(fn, type);
+
+    sprintf(fnnew, "%s-", fn);
+    if ((fp = fopen(fn, "r")) && (nfp = fopen(fnnew, "w"))) { // XXX fclose(fp) if nfp fail
+	int             length = strlen(uident);
+
+	while (fgets(genbuf, STRLEN, fp))
+	    if ((genbuf[0] > ' ') && strncmp(genbuf, uident, length))
+		fputs(genbuf, nfp);
+	Rename(fnnew, fn);
+    }
+    if(fp)
+	fclose(fp);
+    if(nfp)
+	fclose(nfp);
+}
+
+static void
+friend_editdesc(char *uident, int type)
+{
+    FILE           *fp, *nfp;
+    char            fnnew[200], genbuf[200], fn[200];
+    setfriendfile(fn, type);
+    snprintf(fnnew, sizeof(fnnew), "%s-", fn);
+    if ((fp = fopen(fn, "r")) && (nfp = fopen(fnnew, "w"))) { // XXX fclose(fp) if nfp fail
+	int             length = strlen(uident);
+
+	while (fgets(genbuf, STRLEN, fp)) {
+	    if ((genbuf[0] > ' ') && strncmp(genbuf, uident, length))
+		fputs(genbuf, nfp);
+	    else if (!strncmp(genbuf, uident, length)) {
+		char            buf[50] = "";
+		getdata(2, 0, "修改描述：", buf, 40, DOECHO);
+		fprintf(nfp, "%-13s%s\n", uident, buf);
+	    }
+	}
+	fclose(fp);
+	fclose(nfp);
+	Rename(fnnew, fn);
+    }
+}
+
+void
+friend_load()
+{
+    FILE           *fp;
+    int             myfriends[MAX_FRIEND];
+    int             myrejects[MAX_REJECT];
+    int             friendcount, rejectedcount;
+    char            genbuf[200];
+
+    memset(myfriends, 0, sizeof(myfriends));
+    friendcount = 0;
+    setuserfile(genbuf, fn_overrides);
+    if ((fp = fopen(genbuf, "r"))) {
+	int             unum;
+
+	while (fgets(genbuf, STRLEN, fp) && friendcount < MAX_FRIEND - 1)
+	    if (strtok(genbuf, str_space))
+		if ((unum = searchuser(genbuf)))
+		    myfriends[friendcount++] = unum;
+	fclose(fp);
+    }
+    memcpy(currutmp->friend, myfriends, sizeof(myfriends));
+
+    memset(myrejects, 0, sizeof(myrejects));
+    rejectedcount = 0;
+    setuserfile(genbuf, fn_reject);
+    if ((fp = fopen(genbuf, "r"))) {
+	int             unum;
+
+	while (fgets(genbuf, STRLEN, fp) && rejectedcount < MAX_REJECT - 1)
+	    if (strtok(genbuf, str_space))
+		if ((unum = searchuser(genbuf)))
+		    myrejects[rejectedcount++] = unum;
+	fclose(fp);
+    }
+    memcpy(currutmp->reject, myrejects, sizeof(myrejects));
+    if (currutmp->friendtotal)
+	logout_friend_online(currutmp);
+    login_friend_online();
+}
+
+static void
+friend_water(char *message, int type)
+{				/* 群體水球 added by Ptt */
+    char            fpath[80], line[80], userid[IDLEN + 1];
+    FILE           *fp;
+
+    setfriendfile(fpath, type);
+    if ((fp = fopen(fpath, "r"))) {
+	while (fgets(line, 80, fp)) {
+	    userinfo_t     *uentp;
+	    int             tuid;
+
+	    sscanf(line, "%s", userid);
+	    if ((tuid = searchuser(userid)) && tuid != usernum &&
+		(uentp = (userinfo_t *) search_ulist(tuid)) &&
+		isvisible_uid(tuid))
+		my_write(uentp->pid, message, uentp->userid, 1, NULL);
+	}
+	fclose(fp);
+    }
+}
+
+void
+friend_edit(int type)
+{
+    char            fpath[80], line[80], uident[20];
+    int             count, column, dirty;
+    FILE           *fp;
+    char            genbuf[200];
+
+    if (type == FRIEND_SPECIAL)
+	friend_special();
+    setfriendfile(fpath, type);
+
+    if (type == FRIEND_ALOHA || type == FRIEND_POST) {
+	if (dashf(fpath)) {
+	    snprintf(genbuf, sizeof(genbuf),
+		     "/bin/cp %s %s.old", fpath, fpath);
+	    system(genbuf);
+	}
+    }
+    dirty = 0;
+    while (1) {
+	stand_title(friend_list[type]);
+	move(0, 40);
+	snprintf(line, sizeof(line), "(名單上限:%d個人)", friend_max[type]);
+	outs(line);
+	count = 0;
+	CreateNameList();
+
+	if ((fp = fopen(fpath, "r"))) {
+	    move(3, 0);
+	    column = 0;
+	    while (fgets(genbuf, STRLEN, fp)) {
+		if (genbuf[0] <= ' ')
+		    continue;
+		strtok(genbuf, str_space);
+		AddNameList(genbuf);
+		prints("%-13s", genbuf);
+		count++;
+		if (++column > 5) {
+		    column = 0;
+		    outc('\n');
+		}
+	    }
+	    fclose(fp);
+	}
+	getdata(1, 0, (count ?
+		       "(A)增加(D)刪除(E)修改(P)引入(L)詳細列出"
+		       "(K)刪除整個名單(W)丟水球(Q)結束？[Q]" :
+		       "(A)增加 (P)引入其他名單 (Q)結束？[Q]"),
+		uident, 3, LCECHO);
+	if (*uident == 'a') {
+	    move(1, 0);
+	    usercomplete(msg_uid, uident);
+	    if (uident[0] && searchuser(uident) && !InNameList(uident)) {
+		friend_add(uident, type, NULL);
+		dirty = 1;
+	    }
+	} else if (*uident == 'p') {
+	    friend_append(type, count);
+	    dirty = 1;
+	} else if (*uident == 'e' && count) {
+	    move(1, 0);
+	    namecomplete(msg_uid, uident);
+	    if (uident[0] && InNameList(uident)) {
+		friend_editdesc(uident, type);
+	    }
+	} else if (*uident == 'd' && count) {
+	    move(1, 0);
+	    namecomplete(msg_uid, uident);
+	    if (uident[0] && InNameList(uident)) {
+		friend_delete(uident, type);
+		dirty = 1;
+	    }
+	} else if (*uident == 'l' && count)
+	    more(fpath, YEA);
+	else if (*uident == 'k' && count) {
+	    getdata(2, 0, "整份名單將會被刪除,您確定嗎 (a/N)?", uident, 3,
+		    LCECHO);
+	    if (*uident == 'a')
+		unlink(fpath);
+	    dirty = 1;
+	} else if (*uident == 'w' && count) {
+	    char            wall[60];
+	    if (!getdata(0, 0, "群體水球:", uident, sizeof(wall), DOECHO))
+		continue;
+	    if (getdata(0, 0, "確定丟出群體水球? [Y]", line, 4, LCECHO) &&
+		*line == 'n')
+		continue;
+	    friend_water(wall, type);
+	} else
+	    break;
+    }
+    if (dirty) {
+	move(2, 0);
+	outs("更新資料中..請稍候.....");
+	refresh();
+	if (type == FRIEND_ALOHA || type == FRIEND_POST) {
+	    snprintf(genbuf, sizeof(genbuf), "%s.old", fpath);
+	    if ((fp = fopen(genbuf, "r"))) {
+		while (fgets(line, 80, fp)) {
+		    sscanf(line, "%s", uident);
+		    sethomefile(genbuf, uident,
+			     type == FRIEND_ALOHA ? "aloha" : "postnotify");
+		    del_distinct(genbuf, cuser.userid);
+		}
+		fclose(fp);
+	    }
+	    snprintf(genbuf, sizeof(genbuf), "%s", fpath);
+	    if ((fp = fopen(genbuf, "r"))) {
+		while (fgets(line, 80, fp)) {
+		    sscanf(line, "%s", uident);
+		    sethomefile(genbuf, uident,
+			     type == FRIEND_ALOHA ? "aloha" : "postnotify");
+		    add_distinct(genbuf, cuser.userid);
+		}
+		fclose(fp);
+	    }
+	} else if (type == FRIEND_SPECIAL) {
+	    genbuf[0] = 0;
+	    setuserfile(line, special_des);
+	    if ((fp = fopen(line, "r"))) {
+		fgets(genbuf, 30, fp);
+		fclose(fp);
+	    }
+	    getdata_buf(2, 0, " 請為此特別名單取一個簡短名稱:", genbuf, 30,
+			DOECHO);
+	    if ((fp = fopen(line, "w"))) {
+		fprintf(fp, "%s", genbuf);
+		fclose(fp);
+	    }
+	}
+	friend_load();
+    }
+}
+
+int
+t_override()
+{
+    friend_edit(FRIEND_OVERRIDE);
+    return 0;
+}
+
+int
+t_reject()
+{
+    friend_edit(FRIEND_REJECT);
+    return 0;
+}
diff --git a/pttbbs/mbbsd/gamble.c b/pttbbs/mbbsd/gamble.c
new file mode 100644
index 00000000..4e2f348f
--- /dev/null
+++ b/pttbbs/mbbsd/gamble.c
@@ -0,0 +1,339 @@
+/* $Id$ */
+#include "bbs.h"
+
+#ifndef _BBS_UTIL_C_
+#define MAX_ITEM	8	//最大 賭項(item) 個數
+#define MAX_ITEM_LEN	30	//最大 每一賭項名字長度
+#define MAX_SUBJECT_LEN 650	//8*81 = 648 最大 主題長度
+
+static int      currbid;
+
+static int
+load_ticket_record(char *direct, int ticket[])
+{
+    char            buf[256];
+    int             i, total = 0;
+    FILE           *fp;
+    snprintf(buf, sizeof(buf), "%s/" FN_TICKET_RECORD, direct);
+    if (!(fp = fopen(buf, "r")))
+	return 0;
+    for (i = 0; i < MAX_ITEM && fscanf(fp, "%9d ", &ticket[i]); i++)
+	total = total + ticket[i];
+    fclose(fp);
+    return total;
+}
+
+static int
+show_ticket_data(char betname[MAX_ITEM][MAX_ITEM_LEN],char *direct, int *price, boardheader_t * bh)
+{
+    int             i, count, total = 0, end = 0, ticket[MAX_ITEM] = {0, 0, 0, 0, 0, 0, 0, 0};
+    FILE           *fp;
+    char            genbuf[256], t[25];
+
+    clear();
+    if (bh) {
+	snprintf(genbuf, sizeof(genbuf), "%s 賭盤", bh->brdname);
+	if (bh->endgamble && now < bh->endgamble &&
+	    bh->endgamble - now < 3600) {
+	    snprintf(t, sizeof(t),
+		     "封盤倒數 %d 秒", (int)(bh->endgamble - now));
+	    showtitle(genbuf, t);
+	} else
+	    showtitle(genbuf, BBSNAME);
+    } else
+	showtitle("Ptt賭盤", BBSNAME);
+    move(2, 0);
+    snprintf(genbuf, sizeof(genbuf), "%s/" FN_TICKET_ITEMS, direct);
+    if (!(fp = fopen(genbuf, "r"))) {
+	prints("\n目前並沒有舉辦賭盤\n");
+	snprintf(genbuf, sizeof(genbuf), "%s/" FN_TICKET_OUTCOME, direct);
+	more(genbuf, NA);
+	return 0;
+    }
+    fgets(genbuf, MAX_ITEM_LEN, fp);
+    *price = atoi(genbuf);
+    for (count = 0; fgets(betname[count], MAX_ITEM_LEN, fp) && count < MAX_ITEM; count++)
+	strtok(betname[count], "\r\n");
+    fclose(fp);
+
+    prints("\033[32m站規:\033[m 1.可購買以下不同類型的彩票。每張要花 \033[32m%d\033[m 元。\n"
+	   "      2.%s\n"
+	   "      3.開獎時只有一種彩票中獎, 有購買該彩票者, 則可依購買的張數均分總賭金。\n"
+	   "      4.每筆獎金由系統抽取 5%% 之稅金%s。\n\n"
+	   "\033[32m%s:\033[m", *price,
+	   bh ? "此賭盤由板主負責舉辦並且決定開獎時間結果, 站長不管, 願賭服輸。" :
+	        "系統每天 2:00 11:00 16:00 21:00 開獎。",
+	   bh ? ", 其中 2% 分給開獎板主" : "",
+	   bh ? "板主自訂規則及說明" : "前幾次開獎結果");
+
+
+    snprintf(genbuf, sizeof(genbuf), "%s/" FN_TICKET, direct);
+    if (!dashf(genbuf)) {
+	snprintf(genbuf, sizeof(genbuf), "%s/" FN_TICKET_END, direct);
+	end = 1;
+    }
+    show_file(genbuf, 8, -1, NO_RELOAD);
+    move(15, 0);
+    prints("\033[1;32m目前下注狀況:\033[m\n");
+
+    total = load_ticket_record(direct, ticket);
+
+    prints("\033[33m");
+    for (i = 0; i < count; i++) {
+	prints("%d.%-8s: %-7d", i + 1, betname[i], ticket[i]);
+	if (i == 3)
+	    prints("\n");
+    }
+    prints("\033[m\n\033[42m 下注總金額:\033[31m %d 元 \033[m", total * (*price));
+    if (end) {
+	prints("\n賭盤已經停止下注\n");
+	return -count;
+    }
+    return count;
+}
+
+static void
+append_ticket_record(char *direct, int ch, int n, int count)
+{
+    FILE           *fp;
+    int             ticket[8] = {0, 0, 0, 0, 0, 0, 0, 0}, i;
+    char            genbuf[256];
+    snprintf(genbuf, sizeof(genbuf), "%s/" FN_TICKET_USER, direct);
+
+    if ((fp = fopen(genbuf, "a"))) {
+	fprintf(fp, "%s %d %d\n", cuser.userid, ch, n);
+	fclose(fp);
+    }
+    load_ticket_record(direct, ticket);
+    ticket[ch] += n;
+    snprintf(genbuf, sizeof(genbuf), "%s/" FN_TICKET_RECORD, direct);
+    if ((fp = fopen(genbuf, "w"))) {
+	for (i = 0; i < count; i++)
+	    fprintf(fp, "%d ", ticket[i]);
+	fclose(fp);
+    }
+}
+
+#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
+int
+ticket(int bid)
+{
+    int             ch, n, price, count, end = 0;
+    char            path[128], fn_ticket[128];
+    char            betname[MAX_ITEM][MAX_ITEM_LEN];
+    boardheader_t  *bh = NULL;
+
+    if (bid) {
+	bh = getbcache(bid);
+	setbpath(path, bh->brdname);
+	setbfile(fn_ticket, bh->brdname, FN_TICKET);
+	currbid = bid;
+    } else
+	strcpy(path, "etc/");
+
+    lockreturn0(TICKET, LOCK_MULTI);
+    while (1) {
+	count = show_ticket_data(betname, path, &price, bh);
+	if (count <= 0) {
+	    pressanykey();
+	    break;
+	}
+	move(20, 0);
+	reload_money();
+	prints("\033[44m錢: %-10d  \033[m\n\033[1m請選擇要購買的種類(1~%d)"
+	       "[Q:離開]\033[m:", cuser.money, count);
+	ch = igetch();
+	/*--
+	  Tim011127
+	  為了控制CS問題 但是這邊還不能完全解決這問題,
+	  若user通過檢查下去, 剛好板主開獎, 還是會造成user的這次紀錄
+	  很有可能跑到下次賭盤的紀錄去, 也很有可能被板主新開賭盤時洗掉
+	  不過這邊至少可以做到的是, 頂多只會有一筆資料是錯的
+	--*/
+	if (ch == 'q' || ch == 'Q')
+	    break;
+	ch -= '1';
+	if (end || ch >= count || ch < 0)
+	    continue;
+	n = 0;
+	ch_buyitem(price, "etc/buyticket", &n, 0);
+
+	if (bid && !dashf(fn_ticket)) {
+	    move(b_lines - 1, 0);
+	    prints("哇!! 耐ㄚ捏...板主已經停止下注了 不能賭嚕");
+	    pressanykey();
+	    break;
+	}
+
+	if (n > 0)
+	    append_ticket_record(path, ch, n, count);
+    }
+    unlockutmpmode();
+    return 0;
+}
+
+int
+openticket(int bid)
+{
+    char            path[128], buf[256], outcome[128];
+    int             i, money = 0, count, bet, price, total = 0, ticket[8] = {0, 0, 0, 0, 0, 0, 0, 0};
+    boardheader_t  *bh = getbcache(bid);
+    FILE           *fp, *fp1;
+    char            betname[MAX_ITEM][MAX_ITEM_LEN];
+
+    setbpath(path, bh->brdname);
+    count = -show_ticket_data(betname, path, &price, bh);
+    if (count == 0) {
+	setbfile(buf, bh->brdname, FN_TICKET_END);
+	unlink(buf);
+//Ptt:	有bug
+	    return 0;
+    }
+    lockreturn0(TICKET, LOCK_MULTI);
+    do {
+	do {
+	    getdata(20, 0,
+		    "\033[1m選擇中獎的號碼(0:不開獎 99:取消退錢)\033[m:", buf, 3, LCECHO);
+	    bet = atoi(buf);
+	    move(0, 0);
+	    clrtoeol();
+	} while ((bet < 0 || bet > count) && bet != 99);
+	if (bet == 0) {
+	    unlockutmpmode();
+	    return 0;
+	}
+	getdata(21, 0, "\033[1m再次確認輸入號碼\033[m:", buf, 3, LCECHO);
+    } while (bet != atoi(buf));
+
+    if (fork()) {
+	/* Ptt: 用 fork() 防止不正常斷線洗錢 */
+	move(22, 0);
+	prints("系統將於稍後自動把中獎結果公佈於看板 若參加者多會需要幾分鐘時間..");
+	pressanykey();
+	unlockutmpmode();
+	return 0;
+    }
+    close(0);
+    close(1);
+    setproctitle("open ticket");
+#ifdef CPULIMIT
+    {
+	struct rlimit   rml;
+	rml.rlim_cur = RLIM_INFINITY;
+	rml.rlim_max = RLIM_INFINITY;
+	setrlimit(RLIMIT_CPU, &rml);
+    }
+#endif
+
+
+    bet -= 1;			/* 轉成矩陣的index */
+
+    total = load_ticket_record(path, ticket);
+    setbfile(buf, bh->brdname, FN_TICKET_END);
+    if (!(fp1 = fopen(buf, "r")))
+	exit(1);
+
+    /* 還沒開完獎不能賭博 只要mv一項就好 */
+    if (bet != 98) {
+	money = total * price;
+	demoney(money * 0.02);
+	mail_redenvelop("[賭場抽頭]", cuser.userid, money * 0.02, 'n');
+	money = ticket[bet] ? money * 0.95 / ticket[bet] : 9999999;
+    } else {
+	vice(price * 10, "賭盤退錢手續費");
+	money = price;
+    }
+    setbfile(outcome, bh->brdname, FN_TICKET_OUTCOME);
+    if ((fp = fopen(outcome, "w"))) {
+	fprintf(fp, "賭盤說明\n");
+	while (fgets(buf, 256, fp1)) {
+	    buf[255] = 0;
+	    fprintf(fp, "%s", buf);
+	}
+	fprintf(fp, "下注情況\n");
+
+	fprintf(fp, "\033[33m");
+	for (i = 0; i < count; i++) {
+	    fprintf(fp, "%d.%-8s: %-7d", i + 1, betname[i], ticket[i]);
+	    if (i == 3)
+		fprintf(fp, "\n");
+	}
+	fprintf(fp, "\033[m\n");
+
+	if (bet != 98) {
+	    fprintf(fp, "\n\n開獎時間： %s \n\n"
+		    "開獎結果： %s \n\n"
+		    "所有金額： %d 元 \n"
+		    "中獎比例： %d張/%d張  (%f)\n"
+		    "每張中獎彩票可得 %d 枚Ｐ幣 \n\n",
+	    Cdatelite(&now), betname[bet], total * price, ticket[bet], total,
+		    (float)ticket[bet] / total, money);
+
+	    fprintf(fp, "%s 賭盤開出:%s 所有金額:%d 元 獎金/張:%d 元 機率:%1.2f\n\n",
+		    Cdatelite(&now), betname[bet], total * price, money,
+		    total ? (float)ticket[bet] / total : 0);
+	} else
+	    fprintf(fp, "\n\n賭盤取消退錢： %s \n\n", Cdatelite(&now));
+
+    } // XXX somebody may use fp even fp==NULL
+    fclose(fp1);
+
+    setbfile(buf, bh->brdname, FN_TICKET_END);
+    setbfile(path, bh->brdname, FN_TICKET_LOCK);
+    rename(buf, path);
+    /*
+     * 以下是給錢動作
+     */
+    setbfile(buf, bh->brdname, FN_TICKET_USER);
+    if ((bet == 98 || ticket[bet]) && (fp1 = fopen(buf, "r"))) {
+	int             mybet, uid;
+	char            userid[IDLEN];
+
+	while (fscanf(fp1, "%s %d %d\n", userid, &mybet, &i) != EOF) {
+	    if (bet == 98 && mybet >= 0 && mybet < count) {
+		if (fp)
+		    fprintf(fp, "%s 買了 %d 張 %s, 退回 %d 枚Ｐ幣\n"
+			    ,userid, i, betname[mybet], money * i);
+		snprintf(buf, sizeof(buf),
+			 "%s 賭場退錢! $ %d", bh->brdname, money * i);
+	    } else if (mybet == bet) {
+		if (fp)
+		    fprintf(fp, "恭喜 %s 買了%d 張 %s, 獲得 %d 枚Ｐ幣\n"
+			    ,userid, i, betname[mybet], money * i);
+		snprintf(buf, sizeof(buf), "%s 中獎咧! $ %d", bh->brdname, money * i);
+	    } else
+		continue;
+	    if ((uid = searchuser(userid)) == 0)
+		continue;
+	    deumoney(uid, money * i);
+	    mail_id(userid, buf, "etc/ticket.win", "Ptt賭場");
+	}
+	fclose(fp1);
+    }
+    if (fp)
+	fclose(fp);
+
+    if (bet != 98)
+	snprintf(buf, sizeof(buf), "[公告] %s 賭盤開獎", bh->brdname);
+    else
+	snprintf(buf, sizeof(buf), "[公告] %s 賭盤取消", bh->brdname);
+    post_file(bh->brdname, buf, outcome, "[賭神]");
+    post_file("Record", buf + 7, outcome, "[馬路探子]");
+
+    setbfile(buf, bh->brdname, FN_TICKET_RECORD);
+    unlink(buf);
+    setbfile(buf, bh->brdname, FN_TICKET_USER);
+    unlink(buf);
+    setbfile(buf, bh->brdname, FN_TICKET_LOCK);
+    unlink(buf);
+    exit(1);
+    return 0;
+}
+
+int
+ticket_main()
+{
+    ticket(0);
+    return 0;
+}
+#endif
diff --git a/pttbbs/mbbsd/gomo.c b/pttbbs/mbbsd/gomo.c
new file mode 100644
index 00000000..c04b514d
--- /dev/null
+++ b/pttbbs/mbbsd/gomo.c
@@ -0,0 +1,402 @@
+/* $Id$ */
+#include "bbs.h"
+
+static char    *chess[] = {"●", "○"};
+static int      tick, lastcount, mylasttick, hislasttick;
+
+typedef struct {
+    char            x;
+    char            y;
+}               Horder_t;
+
+static Horder_t *v;
+
+static void
+HO_init(Horder_t *pool)
+{
+    memset(pool, 0, sizeof(Horder_t)*BRDSIZ*BRDSIZ);
+    v = pool;
+    pat = pat_gomoku;
+    adv = adv_gomoku;
+    memset(ku, 0, sizeof(ku));
+}
+
+static void
+HO_add(Horder_t * mv)
+{
+    *v++ = *mv;
+}
+
+static void
+HO_undo(Horder_t * mv)
+{
+    char           *str = "┌┬┐├┼┤└┴┘";
+    int             n1, n2, loc;
+
+    *mv = *(--v);
+    ku[(int)mv->x][(int)mv->y] = BBLANK;
+    BGOTO(mv->x, mv->y);
+    n1 = (mv->x == 0) ? 0 : (mv->x == 14) ? 2 : 1;
+    n2 = (mv->y == 14) ? 0 : (mv->y == 0) ? 2 : 1;
+    loc = 2 * (n2 * 3 + n1);
+    prints("%.2s", str + loc);
+}
+
+static void
+HO_log(Horder_t *pool, char *user)
+{
+    int             i;
+    FILE           *log;
+    char            buf[80];
+    char            buf1[80];
+    char            title[80];
+    Horder_t       *ptr = pool;
+    fileheader_t    mymail;
+
+    snprintf(buf, sizeof(buf), "home/%c/%s/F.%d",
+	     cuser.userid[0], cuser.userid,  rand() & 65535);
+    log = fopen(buf, "w");
+    assert(log);
+
+    for (i = 1; i < 17; i++)
+	fprintf(log, "%.*s\n", big_picture[i].len, big_picture[i].data);
+
+    i = 0;
+    do {
+	fprintf(log, "[%2d]%s ==> %c%d%c", i + 1, chess[i % 2],
+		'A' + ptr->x, ptr->y + 1, (i % 2) ? '\n' : '\t');
+	i++;
+    } while (++ptr < v);
+    fclose(log);
+
+    sethomepath(buf1, cuser.userid);
+    stampfile(buf1, &mymail);
+
+    mymail.filemode = FILE_READ | FILE_HOLD;
+    strlcpy(mymail.owner, "[備.忘.錄]", sizeof(mymail.owner));
+    snprintf(mymail.title, sizeof(mymail.title),
+	     "\033[37;41m棋譜\033[m %s VS %s", cuser.userid, user);
+    sethomedir(title, cuser.userid);
+    Rename(buf, buf1);
+    append_record(title, &mymail, sizeof(mymail));
+
+    unlink(buf);
+}
+
+static int
+countgomo(Horder_t *pool)
+{
+    return v-pool;
+}
+
+static int
+chkmv(Horder_t * mv, int color, int limit)
+{
+    char           *xtype[] = {"\033[1;31m跳三\033[m", "\033[1;31m活三\033[m",
+	"\033[1;31m死四\033[m", "\033[1;31m跳四\033[m",
+	"\033[1;31m活四\033[m", "\033[1;31m四三\033[m",
+	"\033[1;31m雙三\033[m", "\033[1;31m雙四\033[m",
+	"\033[1;31m雙四\033[m", "\033[1;31m連六\033[m",
+    "\033[1;31m連五\033[m"};
+    int             rule = getstyle(mv->x, mv->y, color, limit);
+    if (rule > 1 && rule < 13) {
+	move(15, 40);
+	outs(xtype[rule - 2]);
+	bell();
+    }
+    return chkwin(rule, limit);
+}
+
+static int
+gomo_key(int fd, int ch, Horder_t * mv)
+{
+    if (ch >= 'a' && ch <= 'o') {
+	char            pbuf[4], vx, vy;
+
+	*pbuf = ch;
+	if (fd)
+	    add_io(0, 0);
+	oldgetdata(17, 0, "直接指定位置 :", pbuf, sizeof(pbuf), DOECHO);
+	if (fd)
+	    add_io(fd, 0);
+	vx = pbuf[0] - 'a';
+	vy = atoi(pbuf + 1) - 1;
+	if (vx >= 0 && vx < 15 && vy >= 0 && vy < 15 &&
+	    ku[(int)vx][(int)vy] == BBLANK) {
+	    mv->x = vx;
+	    mv->y = vy;
+	    return 1;
+	}
+    } else {
+	switch (ch) {
+	case KEY_RIGHT:
+	    mv->x = (mv->x == BRDSIZ - 1) ? mv->x : mv->x + 1;
+	    break;
+	case KEY_LEFT:
+	    mv->x = (mv->x == 0) ? 0 : mv->x - 1;
+	    break;
+	case KEY_UP:
+	    mv->y = (mv->y == BRDSIZ - 1) ? mv->y : mv->y + 1;
+	    break;
+	case KEY_DOWN:
+	    mv->y = (mv->y == 0) ? 0 : mv->y - 1;
+	    break;
+	case ' ':
+	case '\r':
+	    if (ku[(int)mv->x][(int)mv->y] == BBLANK)
+		return 1;
+	}
+    }
+    return 0;
+}
+
+static int
+reload_gomo()
+{
+    passwd_query(usernum, &xuser);
+    cuser.five_win = xuser.five_win;
+    cuser.five_lose = xuser.five_lose;
+    cuser.five_tie = xuser.five_tie;
+    return 0;
+}
+
+int
+gomoku(int fd)
+{
+    Horder_t        mv;
+    int             me, he, win, ch;
+    int             hewantpass, iwantpass;
+    userinfo_t     *my = currutmp;
+    Horder_t        pool[BRDSIZ*BRDSIZ];
+
+    HO_init(pool);
+    me = !(my->turn) + 1;
+    he = my->turn + 1;
+    win = 1;
+    tick = now + MAX_TIME;
+    lastcount = MAX_TIME;
+    setutmpmode(M_FIVE);
+    clear();
+
+    prints("\033[1;46m  五子棋對戰  \033[45m%30s VS %-30s\033[m",
+	   cuser.userid, my->mateid);
+    show_file("etc/@five", 1, -1, ONLY_COLOR);
+    move(11, 40);
+    prints("我是 %s", me == BBLACK ? "先手 ●, 有禁手" : "後手 ○");
+    move(16, 40);
+    prints("\033[1;33m%s", cuser.userid);
+    move(17, 40);
+    prints("\033[1;33m%s", my->mateid);
+
+    reload_gomo();
+    move(16, 60);
+    prints("\033[1;31m%d\033[37m勝 \033[34m%d\033[37m敗 \033[36m%d\033[37m和"
+	   "\033[m", cuser.five_win, cuser.five_lose, cuser.five_tie);
+
+    getuser(my->mateid);
+    move(17, 60);
+    prints("\033[1;31m%d\033[37m勝 \033[34m%d\033[37m敗 \033[36m%d\033[37m"
+	   "和\033[m", xuser.five_win, xuser.five_lose, xuser.five_tie);
+
+    cuser.five_lose++;
+    /* 一進來先加一場敗場, 贏了後再扣回去, 避免快輸了惡意斷線 */
+    passwd_update(usernum, &cuser);
+
+    add_io(fd, 0);
+
+    hewantpass = iwantpass = 0;
+    mv.x = mv.y = 7;
+    move(18, 40);
+    prints("%s時間還剩%d:%02d\n", my->turn ? "你的" : "對方",
+	   MAX_TIME / 60, MAX_TIME % 60);
+    for (;;) {
+	move(13, 40);
+	outs(my->turn ? "輪到自己下了!" : "等待對方下子..");
+	if (lastcount != tick - now) {
+	    lastcount = tick - now;
+	    move(18, 40);
+	    prints("%s時間還剩%d:%02d\n", my->turn ? "你的" : "對方",
+		   lastcount / 60, lastcount % 60);
+	    if (lastcount <= 0 && my->turn) {
+		move(19, 40);
+		outs("時間已到, 你輸了");
+		my->five_lose++;
+		send(fd, '\0', 1, 0);
+		break;
+	    }
+	    if (lastcount <= -5 && !my->turn) {
+		move(19, 40);
+		outs("對手太久沒下, 你贏了!");
+		win = 1;
+		cuser.five_lose--;
+		cuser.five_win++;
+		my->five_win++;
+		passwd_update(usernum, &cuser);
+		mv.x = mv.y = -2;
+		send(fd, &mv, sizeof(Horder_t), 0);
+		mv = *(v - 1);
+		break;
+	    }
+	}
+	move(14, 40);
+	if (hewantpass) {
+	    outs("\033[1;32m和棋要求!\033[m");
+	    bell();
+	} else
+	    clrtoeol();
+	BGOTOCUR(mv.x, mv.y);
+	ch = igetkey();
+	if (ch != I_OTHERDATA)
+	    iwantpass = 0;
+	if (ch == 'q') {
+	    if (countgomo(pool) < 10) {
+		cuser.five_lose--;
+		passwd_update(usernum, &cuser);
+	    }
+	    send(fd, '\0', 1, 0);
+	    break;
+	} else if (ch == 'u' && !my->turn && v > pool) {
+	    mv.x = mv.y = -1;
+	    ch = send(fd, &mv, sizeof(Horder_t), 0);
+	    if (ch == sizeof(Horder_t)) {
+		HO_undo(&mv);
+		tick = mylasttick;
+		my->turn = 1;
+		continue;
+	    } else
+		break;
+	}
+	if (ch == 'p') {
+	    if (my->turn) {
+		if (iwantpass == 0) {
+		    iwantpass = 1;
+		    mv.x = mv.y = -2;
+		    send(fd, &mv, sizeof(Horder_t), 0);
+		    mv = *(v - 1);
+		}
+		continue;
+	    } else if (hewantpass) {
+		win = 0;
+		cuser.five_lose--;
+		cuser.five_tie++;
+		my->five_tie++;
+		passwd_update(usernum, &cuser);
+		mv.x = mv.y = -2;
+		send(fd, &mv, sizeof(Horder_t), 0);
+		mv = *(v - 1);
+		break;
+	    }
+	}
+	if (ch == I_OTHERDATA) {
+	    ch = recv(fd, &mv, sizeof(Horder_t), 0);
+	    if (ch != sizeof(Horder_t)) {
+		lastcount = tick - now;
+		if (lastcount >= 0) {
+		    win = 1;
+		    cuser.five_lose--;
+		    if (countgomo(pool) >= 10) {
+			cuser.five_win++;
+			my->five_win++;
+		    }
+		    passwd_update(usernum, &cuser);
+		    outmsg("對方認輸了!!");
+		    break;
+		} else {
+		    win = 0;
+		    outmsg("你超過時間未下子, 輸了!");
+		    my->five_lose++;
+		    break;
+		}
+	    } else if (mv.x == -2 && mv.y == -2) {
+		if (iwantpass == 1) {
+		    win = 0;
+		    cuser.five_lose--;
+		    cuser.five_tie++;
+		    my->five_tie++;
+		    passwd_update(usernum, &cuser);
+		    break;
+		} else {
+		    hewantpass = 1;
+		    mv = *(v - 1);
+		    continue;
+		}
+	    }
+	    if (my->turn && mv.x == -1 && mv.y == -1) {
+		outmsg("對方悔棋");
+		tick = hislasttick;
+		HO_undo(&mv);
+		my->turn = 0;
+		continue;
+	    }
+	    if (!my->turn) {
+		win = chkmv(&mv, he, he == BBLACK);
+		HO_add(&mv);
+		hislasttick = tick;
+		tick = now + MAX_TIME;
+		ku[(int)mv.x][(int)mv.y] = he;
+		bell();
+		BGOTO(mv.x, mv.y);
+		outs(chess[he - 1]);
+
+		if (win) {
+		    outmsg(win == 1 ? "對方贏了!" : "對方禁手");
+		    if (win != 1) {
+			cuser.five_lose--;
+			cuser.five_win++;
+			my->five_win++;
+			passwd_update(usernum, &cuser);
+		    } else
+			my->five_lose++;
+		    win = -win;
+		    break;
+		}
+		my->turn = 1;
+	    }
+	    continue;
+	}
+	if (my->turn) {
+	    if (gomo_key(fd, ch, &mv))
+		my->turn = 0;
+	    else
+		continue;
+
+	    if (!my->turn) {
+		HO_add(&mv);
+		BGOTO(mv.x, mv.y);
+		outs(chess[me - 1]);
+		win = chkmv(&mv, me, me == BBLACK);
+		ku[(int)mv.x][(int)mv.y] = me;
+		mylasttick = tick;
+		tick = now + MAX_TIME;	/* 倒數 */
+		lastcount = MAX_TIME;
+		if (send(fd, &mv, sizeof(Horder_t), 0) != sizeof(Horder_t))
+		    break;
+		if (win) {
+		    outmsg(win == 1 ? "我贏囉~~" : "禁手輸了");
+		    if (win == 1) {
+			cuser.five_lose--;
+			cuser.five_win++;
+			my->five_win++;
+			passwd_update(usernum, &cuser);
+		    } else
+			my->five_lose++;
+		    break;
+		}
+		move(15, 40);
+		clrtoeol();
+	    }
+	}
+    }
+    add_io(0, 0);
+    close(fd);
+
+    igetch();
+    if (v > pool) {
+	char            ans[4];
+
+	getdata(19, 0, "要保留本局成棋譜嗎?(y/N)", ans, sizeof(ans), LCECHO);
+	if (*ans == 'y')
+	    HO_log(pool, my->mateid);
+    }
+    return 0;
+}
diff --git a/pttbbs/mbbsd/gomo1.c b/pttbbs/mbbsd/gomo1.c
new file mode 100644
index 00000000..eeff876d
--- /dev/null
+++ b/pttbbs/mbbsd/gomo1.c
@@ -0,0 +1,131 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define QCAST   int (*)(const void *, const void *)
+
+/* pattern and advance map */
+
+static int
+intrevcmp(const void *a, const void *b)
+{
+    return (*(int *)b - *(int *)a);
+}
+
+/* x,y: 0..BRDSIZ-1 ; color: CBLACK,CWHITE ; dx,dy: -1,0,+1 */
+static int
+gomo_getindex(int x, int y, int color, int dx, int dy)
+{
+    int             i, k, n;
+    for (n = -1, i = 0, k = 1; i < 5; i++, k <<= 1) {
+	x += dx;
+	y += dy;
+
+	if ((x < 0) || (x >= BRDSIZ) || (y < 0) || (y >= BRDSIZ)) {
+	    n += k;
+	    break;
+	} else if (ku[x][y] != BBLANK) {
+	    n += k;
+	    if (ku[x][y] != color)
+		break;
+	}
+    }
+
+    if (i >= 5)
+	n += k;
+
+    return n;
+}
+
+int
+chkwin(int style, int limit)
+{
+    if (style == 0x0c)
+	return 1 /* style */ ;
+    else if (limit == 0) {
+	if (style == 0x0b)
+	    return 1 /* style */ ;
+	return 0;
+    }
+    if ((style < 0x0c) && (style > 0x07))
+	return -1 /* -style */ ;
+    return 0;
+}
+
+/* x,y: 0..BRDSIZ-1 ; color: CBLACK,CWHITE ; limit:1,0 ; dx,dy: 0,1 */
+static int
+dirchk(int x, int y, int color, int limit, int dx, int dy)
+{
+    int             le, ri, loc, style = 0;
+
+    le = gomo_getindex(x, y, color, -dx, -dy);
+    ri = gomo_getindex(x, y, color, dx, dy);
+
+    loc = (le > ri) ? (((le * (le + 1)) >> 1) + ri) :
+	(((ri * (ri + 1)) >> 1) + le);
+
+    style = pat[loc];
+
+    if (limit == 0)
+	return (style & 0x0f);
+
+    style >>= 4;
+
+    if ((style == 3) || (style == 2)) {
+	int             i, n = 0, tmp, nx, ny;
+
+	n = adv[loc >> 1];
+
+	((loc & 1) == 0) ? (n >>= 4) : (n &= 0x0f);
+
+	ku[x][y] = color;
+
+	for (i = 0; i < 2; i++) {
+	    if ((tmp = (i == 0) ? (-(n >> 2)) : (n & 3)) != 0) {
+		nx = x + (le > ri ? 1 : -1) * tmp * dx;
+		ny = y + (le > ri ? 1 : -1) * tmp * dy;
+
+		if ((dirchk(nx, ny, color, 0, dx, dy) == 0x06) &&
+		    (chkwin(getstyle(nx, ny, color, limit), limit) >= 0))
+		    break;
+	    }
+	}
+	if (i >= 2)
+	    style = 0;
+	ku[x][y] = BBLANK;
+    }
+    return style;
+}
+
+/* 例外=F 錯誤=E 有子=D 連五=C 連六=B 雙四=A 四四=9 三三=8 */
+/* 四三=7 活四=6 斷四=5 死四=4 活三=3 斷三=2 保留=1 無效=0 */
+
+/* x,y: 0..BRDSIZ-1 ; color: CBLACK,CWHITE ; limit: 1,0 */
+int
+getstyle(int x, int y, int color, int limit)
+{
+    int             i, j, dir[4], style;
+
+    if ((x < 0) || (x >= BRDSIZ) || (y < 0) || (y >= BRDSIZ))
+	return 0x0f;
+    if (ku[x][y] != BBLANK)
+	return 0x0d;
+
+    for (i = 0; i < 4; i++)
+	dir[i] = dirchk(x, y, color, limit, i ? (i >> 1) : -1, i ? (i & 1) : 1);
+
+    qsort(dir, 4, sizeof(int), (QCAST)intrevcmp);
+
+    if ((style = dir[0]) >= 2) {
+	for (i = 1, j = 6 + (limit ? 1 : 0); i < 4; i++) {
+	    if ((style > j) || (dir[i] < 2))
+		break;
+	    if (dir[i] > 3)
+		style = 9;
+	    else if ((style < 7) && (style > 3))
+		style = 7;
+	    else
+		style = 8;
+	}
+    }
+    return style;
+}
diff --git a/pttbbs/mbbsd/guess.c b/pttbbs/mbbsd/guess.c
new file mode 100644
index 00000000..917951ad
--- /dev/null
+++ b/pttbbs/mbbsd/guess.c
@@ -0,0 +1,370 @@
+/* $Id$ */
+#include "bbs.h"
+#define LOGPASS BBSHOME "/etc/winguess.log"
+
+static void
+show_table(char TABLE[], char ifcomputer)
+{
+    int             i;
+
+    move(0, 35);
+    prints("\033[1;44;33m  【 猜數字 】  \033[m");
+    move(8, 1);
+    prints("\033[1;44;36m目   前   倍   率\033[m\n");
+    prints("\033[1;33m=================\033[m\n");
+    if (ifcomputer) {
+	prints("贏電腦: 2 倍\n");
+	prints("輸電腦: 0 倍\n");
+    } else {
+	for (i = 1; i <= 6; i++)
+	    prints("第%d次, %02d倍\n", i, TABLE[i]);
+    }
+    prints("\033[33m=================\033[m");
+}
+
+static unsigned long int
+get_money(void)
+{
+    int             money, i;
+    char            data[20];
+
+    move(1, 0);
+    prints("您目前有:%d Ptt$", cuser.money);
+    do {
+	getdata(2, 0, "要賭多少(5-10或按q離開): ", data, 9, LCECHO);
+	money = strlen(data);
+	if (data[0] == 'q' || data[0] == 'Q') {
+	    unlockutmpmode();
+	    return 0;
+	}
+	for (i = 0; i < money; i++)
+	    if (data[i] < '0' || data[i] > '9') {
+		money = -1;
+		break;
+	    }
+	if (money != -1) {
+	    money = atol(data);
+	    reload_money();
+	    if (money > cuser.money || money <= 4 || money > 10 ||
+		money < 1)
+		money = -1;
+	}
+    } while (money == -1);
+    move(1, 0);
+    clrtoeol();
+    reload_money();
+    prints("您目前有:%d Ptt$", cuser.money - money);
+    return money;
+}
+
+static int
+check_data(char *str)
+{
+    int             i, j;
+
+    if (strlen(str) != 4)
+	return -1;
+    for (i = 0; i < 4; i++)
+	if (str[i] < '0' || str[i] > '9')
+	    return -1;
+    for (i = 0; i < 4; i++)
+	for (j = i + 1; j < 4; j++)
+	    if (str[i] == str[j])
+		return -1;
+    return 1;
+}
+
+static char    *
+get_data(char data[5], int count)
+{
+    while (1) {
+	getdata(6, 0, "輸入四位數字(不重複): ", data, 5, LCECHO);
+	if (check_data(data) == 1)
+	    break;
+    }
+    return data;
+}
+
+static int
+guess_play(char *data, char *answer, int count)
+{
+    int             A_num = 0, B_num = 0;
+    int             i, j;
+
+    for (i = 0; i < 4; i++) {
+	if (data[i] == answer[i])
+	    A_num++;
+	for (j = 0; j < 4; j++)
+	    if (i == j)
+		continue;
+	    else if (data[i] == answer[j]) {
+		B_num++;
+		break;
+	    }
+    }
+    if (A_num == 4)
+	return 1;
+    move(count + 8, 55);
+    prints("%s => \033[1;32m%dA %dB\033[m", data, A_num, B_num);
+    return 0;
+}
+
+static int
+result(int correct, int number)
+{
+    char            a = 0, b = 0, i, j;
+    char            n1[5], n2[5];
+
+    snprintf(n1, sizeof(n1), "%04d", correct);
+    snprintf(n2, sizeof(n2), "%04d", number);
+    for (i = 0; i < 4; i++)
+	for (j = 0; j < 4; j++)
+	    if (n1[(int)i] == n2[(int)j])
+		b++;
+    for (i = 0; i < 4; i++)
+	if (n1[(int)i] == n2[(int)i]) {
+	    b--;
+	    a++;
+	}
+    return 10 * a + b;
+}
+
+static int
+legal(int number)
+{
+    char            i, j;
+    char            temp[5];
+
+    snprintf(temp, sizeof(temp), "%04d", number);
+    for (i = 0; i < 4; i++)
+	for (j = i + 1; j < 4; j++)
+	    if (temp[(int)i] == temp[(int)j])
+		return 0;
+    return 1;
+}
+
+static void
+initcomputer(char flag[])
+{
+    int             i;
+
+    for (i = 0; i < 10000; i++)
+	if (legal(i))
+	    flag[i] = 1;
+	else
+	    flag[i] = 0;
+}
+
+static int
+computer(int correct, int total, char flag[], int n[])
+{
+    int             guess;
+    static int      j;
+    int             k, i;
+    char            data[5];
+
+    if (total == 1) {
+	do {
+	    guess = rand() % 10000;
+	} while (!legal(guess));
+    } else
+	guess = n[rand() % j];
+    k = result(correct, guess);
+    if (k == 40) {
+	move(total + 8, 25);
+	snprintf(data, sizeof(data), "%04d", guess);
+	prints("%s => 猜中了!!", data);
+	return 1;
+    } else {
+	move(total + 8, 25);
+	snprintf(data, sizeof(data), "%04d", guess);
+	prints("%s => \033[1;32m%dA %dB\033[m", data, k / 10, k % 10);
+    }
+    j = 0;
+    for (i = 0; i < 10000; i++)
+	if (flag[i]) {
+	    if (result(i, guess) != k)
+		flag[i] = 0;
+	    else
+		n[j++] = i;
+	}
+    return 0;
+}
+
+static void
+Diff_Random(char *answer)
+{
+    register int    i = 0, j, k;
+
+    while (i < 4) {
+	k = rand() % 10 + '0';
+	for (j = 0; j < i; j++)
+	    if (k == answer[j])
+		break;
+	if (j == i) {
+	    answer[j] = k;
+	    i++;
+	}
+    }
+    answer[4] = 0;
+}
+
+#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
+
+int
+guess_main()
+{
+    char            data[5];
+    unsigned long int money;
+    char            computerwin = 0, youwin = 0;
+    int             count = 0, c_count = 0;
+    char            ifcomputer[2];
+    char            answer[5];
+    int            *n = NULL;
+    char            yournum[5];
+    char           *flag = NULL;
+    char            TABLE[] = {0, 10, 8, 4, 2, 1, 0, 0, 0, 0, 0};
+    FILE           *file;
+
+    clear();
+    showtitle("猜數字", BBSName);
+    lockreturn0(GUESSNUM, LOCK_MULTI);
+
+    reload_money();
+    if (cuser.money < 5) {
+	clear();
+	move(12, 35);
+	prints("錢不夠啦 至少要 5 Ptt$");
+	unlockutmpmode();
+	pressanykey();
+	return 1;
+    }
+    if ((money = get_money()) == 0)
+	return 1;
+    vice(money, "猜數字");
+
+    Diff_Random(answer);
+    move(2, 0);
+    clrtoeol();
+    prints("您下注 :%lu Ptt$", money);
+
+    getdata_str(4, 0, "您要和電腦比賽嗎? <y/n>[y]:",
+		ifcomputer, sizeof(ifcomputer), LCECHO, "y");
+    if (ifcomputer[0] == 'y') {
+	ifcomputer[0] = 1;
+	show_table(TABLE, 1);
+    } else {
+	ifcomputer[0] = 0;
+	show_table(TABLE, 0);
+    }
+    if (ifcomputer[0]) {
+	do {
+	    getdata(5, 0, "請輸入您要讓電腦猜的數字: ",
+		    yournum, sizeof(yournum), LCECHO);
+	} while (!legal(atoi(yournum)));
+	move(8, 25);
+	prints("電腦猜");
+	flag = malloc(sizeof(char) * 10000);
+	n = malloc(sizeof(int) * 1500);
+	initcomputer(flag);
+    }
+    move(8, 55);
+    prints("你猜");
+    while (((!computerwin || !youwin) && count < 10 && (ifcomputer[0])) ||
+	   (!ifcomputer[0] && count < 10 && !youwin)) {
+	if (!computerwin && ifcomputer[0]) {
+	    ++c_count;
+	    if (computer(atoi(yournum), c_count, flag, n))
+		computerwin = 1;
+	}
+	move(20, 55);
+	prints("第 %d 次機會 ", count + 1);
+	if (!youwin) {
+	    ++count;
+	    if (guess_play(get_data(data, count), answer, count))
+		youwin = 1;
+	}
+    }
+    move(17, 35);
+    free(flag);
+    free(n);
+    if (ifcomputer[0]) {
+	if (count > c_count) {
+	    prints("你輸給電腦了");
+	    move(18, 35);
+	    prints("你賠了 %lu ", money);
+	    if ((file = fopen(LOGPASS, "a"))) {
+		fprintf(file, "電腦第%d次猜中, ", c_count);
+		if (youwin)
+		    fprintf(file, "%s 第%d次猜中, ", cuser.userid, count);
+		else
+		    fprintf(file, "%s 沒猜中, ", cuser.userid);
+		fprintf(file, "電腦賺走了%s %ld Ptt$\n", cuser.userid, money);
+		fclose(file);
+	    }
+	} else if (count < c_count) {
+	    prints("真厲害, 讓你賺到囉");
+	    move(18, 35);
+	    prints("你賺走了 %lu ", money * 2);
+	    demoney(money * 2);
+	    if ((file = fopen(LOGPASS, "a"))) {
+		fprintf(file, "id: %s, 第%d次猜中, 電腦第%d次猜中, "
+			"贏了電腦 %ld Ptt$\n", cuser.userid, count,
+			c_count, money * 2);
+		fclose(file);
+	    }
+	} else {
+	    prints("真厲害, 和電腦打成平手了, 拿回本錢%lu\n", money);
+	    demoney(money);
+	    if ((file = fopen(LOGPASS, "a"))) {
+		fprintf(file, "id: %s 和電腦打成了平手\n", cuser.userid);
+		fclose(file);
+	    }
+	}
+	unlockutmpmode();
+	pressanykey();
+	return 1;
+    }
+    if (youwin) {
+	demoney(TABLE[count] * money);
+	if (count < 5) {
+	    prints("真厲害, 錢被你賺走了");
+	    if ((file = fopen(LOGPASS, "a"))) {
+		fprintf(file, "id: %s, 第%d次猜中, 贏了 %ld Ptt$\n",
+			cuser.userid, count, TABLE[count] * money);
+		fclose(file);
+	    }
+	} else if (count > 5) {
+	    prints("唉, 太多次才猜出來了");
+	    if ((file = fopen(LOGPASS, "a"))) {
+		fprintf(file, "id: %s, 第%d次才猜中, 賠了 %ld Ptt$\n",
+			cuser.userid, count, money);
+		fclose(file);
+	    }
+	} else {
+	    prints("五次猜出來, 還你本錢吧");
+	    move(18, 35);
+	    clrtoeol();
+	    prints("你拿回了%lu Ptt$\n", money);
+	    if ((file = fopen(LOGPASS, "a"))) {
+		fprintf(file, "id: %s, 第%d次猜中, 拿回了本錢 %lu Ptt$\n",
+			cuser.userid, count, money);
+		fclose(file);
+	    }
+	}
+	unlockutmpmode();
+	pressanykey();
+	return 1;
+    }
+    move(17, 35);
+    prints("嘿嘿 標準答案是 %s ", answer);
+    move(18, 35);
+    prints("下次再來吧");
+    if ((file = fopen(BBSHOME "/etc/loseguess.log", "a"))) {
+	fprintf(file, "id: %s 賭了 %ld Ptt$\n", cuser.userid, money);
+	fclose(file);
+    }
+    unlockutmpmode();
+    pressanykey();
+    return 1;
+}
diff --git a/pttbbs/mbbsd/indict.c b/pttbbs/mbbsd/indict.c
new file mode 100644
index 00000000..7bd6d99d
--- /dev/null
+++ b/pttbbs/mbbsd/indict.c
@@ -0,0 +1,177 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define REFER "etc/dicts"
+
+static void
+addword(char word[])
+{
+    char            buf[150], temp[150], a[3];
+    FILE           *fp = fopen(database, "r+");
+
+    if (fp == NULL) {
+	vmsg("database error");
+	return;
+    }
+    fgets(buf, 130, fp);
+    fseek(fp, 0, 2);
+    if (HAVE_PERM(PERM_LOGINOK)) {
+	clear();
+	move(4, 0);
+	outs(" \033[31m警告\033[m:若蓄意填寫假資料將\033[36m砍id\033[m處份\n");
+	snprintf(temp, sizeof(temp), "\n輸入範例\n:\033[33m%s\033[m", buf);
+	outs(temp);
+	outs("\n請依上列範例輸入一行資料(直接enter放棄)\n");
+	getdata(10, 0, ":", buf, 65, DOECHO);
+	if (buf[0]) {
+	    getdata(13, 0, "確定新增?(Y/n)", a, sizeof(a), LCECHO);
+	    if (a[0] != 'n')
+		fprintf(fp, "%-65s[%s]\n", buf, cuser.userid);
+	}
+    }
+    fclose(fp);
+    clear();
+}
+
+static int
+choose_dict(void)
+{
+    int             c;
+    FILE           *fp;
+    char            buf[10][21], data[10][21], cho[130];
+
+    move(12, 0);
+    clrtobot();
+    outs("                        "
+	 "● \033[45;33m字典唷 ◇ 要查哪一本？\033[m ●");
+
+    if ((fp = fopen(REFER, "r"))) {
+	for (c = 0; fscanf(fp, "%s %s", buf[c], data[c]) != EOF; c++) {
+	    snprintf(cho, sizeof(cho), "\n                     "
+		    "(\033[36m%d\033[m) %-20s大字典", c + 1, buf[c]);
+	    outs(cho);
+	}
+	fclose(fp);
+
+	getdata(22, 14, "          ★ 請選擇，[Enter]離開：", cho, 3, LCECHO);
+	cho[0] -= '1';
+	if (cho[1])
+	    cho[0] = (cho[0] + 1) * 10 + (cho[1] - '1');
+
+	if (cho[0] >= 0 && cho[0] < c) {
+	    strlcpy(dict, buf[(int)cho[0]], sizeof(dict));
+	    strlcpy(database, data[(int)cho[0]], sizeof(database));
+	    return 1;
+	} else
+	    return 0;
+    }
+    return 0;
+}
+
+int
+use_dict()
+{
+    FILE           *fp;
+    char            lang[150], word[80] = "";
+    char            j, f, buf[120], sys[] = "|\033[31me\033[m:編輯字典";
+    int             i = 0;
+
+    setutmpmode(DICT);
+    if (!HAS_PERM(PERM_SYSOP))
+	sys[0] = 0;
+
+    clear();
+
+    snprintf(buf, sizeof(buf),
+	     "\033[45m                           ●\033[1;44;33m"
+	     "  %-14s\033[3;45m ●                              ", dict);
+    strlcpy(&buf[100], "\033[m\n", sizeof(buf) - 100);
+    for (;;) {
+	move(0, 0);
+	snprintf(lang, sizeof(lang),
+		 "  請輸入關鍵字串(%s) 或指令(h,t,a)\n", dict);
+	outs(lang);
+	snprintf(lang, sizeof(lang),
+		 "[\033[32m<關鍵字>\033[m|\033[32mh\033[m:help|\033[32m"
+		 "t\033[m:所有資料|\033[32ma\033[m:新增資料%s]\n:", sys);
+	outs(lang);
+	getdata(2, 0, ":", word, 18, DOECHO);
+	outs("資料搜尋中請稍候....");
+	str_lower(word, word);
+	if (word[0] == 0)
+	    return 0;
+	clear();
+	move(4, 0);
+	outs(buf);
+	if (strlen(word) == 1) {
+	    if (word[0] == 'a') {
+		clear();
+		move(4, 0);
+		outs(buf);
+		addword(word);
+		continue;
+	    } else if (word[0] == 't')
+		word[0] = 0;
+	    else if (word[0] == 'h') {
+		more("etc/dict.hlp", YEA);
+		clear();
+		continue;
+	    } else if (word[0] == 'e' && HAS_PERM(PERM_SYSOP)) {
+		vedit(database, NA, NULL);
+		clear();
+		continue;
+	    } else {
+		outs("字串太短,請輸入多一點關鍵字");
+		continue;
+	    }
+	}
+	i = 0;
+	if ((fp = fopen(database, "r"))) {
+	    while (fgets(lang, sizeof(lang), fp) != NULL) {
+		if (lang[65] == '[') {
+		    lang[65] = 0;
+		    f = 1;
+		} else
+		    f = 0;
+		if (strstr_lower(lang, word)) {
+		    if (f == 1)
+			lang[65] = '[';
+		    outs(lang);
+		    i++;
+		    if (!((i + 1) % 17)) {
+			move(23, 0);
+			outs("\033[45m                               "
+			   "任意鍵繼續  Q:離開                             "
+			     "\033[m ");
+			j = igetch();
+			if (j == 'q')
+			    break;
+			else {
+			    clear();
+			    move(4, 0);
+			    outs(buf);
+			}
+		    }
+		}
+	    }
+	    fclose(fp);
+	}
+	if (i == 0) {
+	    getdata(5, 0, "沒這個資料耶,新增嗎?(y/N)", lang, 3, LCECHO);
+	    if (lang[0] == 'y') {
+		clear();
+		move(4, 0);
+		outs(buf);
+		addword(word);
+	    }
+	}
+    }
+}
+
+int
+x_dict()
+{
+    if (choose_dict())
+	use_dict();
+    return 0;
+}
diff --git a/pttbbs/mbbsd/io.c b/pttbbs/mbbsd/io.c
new file mode 100644
index 00000000..0a48893d
--- /dev/null
+++ b/pttbbs/mbbsd/io.c
@@ -0,0 +1,600 @@
+/* $Id$ */
+#include "bbs.h"
+
+#if defined(linux)
+#define OBUFSIZE  2048
+#define IBUFSIZE  128
+#else
+#define OBUFSIZE  4096
+#define IBUFSIZE  256
+#endif
+
+static char     outbuf[OBUFSIZE], inbuf[IBUFSIZE];
+static int      obufsize = 0, ibufsize = 0;
+static int      icurrchar = 0;
+
+/* ----------------------------------------------------- */
+/* output routines                                       */
+/* ----------------------------------------------------- */
+
+void
+oflush()
+{
+    if (obufsize) {
+	write(1, outbuf, obufsize);
+	obufsize = 0;
+    }
+}
+
+void
+init_buf()
+{
+
+    memset(inbuf, 0, IBUFSIZE);
+}
+void
+output(char *s, int len)
+{
+    /* Invalid if len >= OBUFSIZE */
+
+    assert(len<OBUFSIZE);
+    if (obufsize + len > OBUFSIZE) {
+	write(1, outbuf, obufsize);
+	obufsize = 0;
+    }
+    memcpy(outbuf + obufsize, s, len);
+    obufsize += len;
+}
+
+int
+ochar(int c)
+{
+    if (obufsize > OBUFSIZE - 1) {
+	write(1, outbuf, obufsize);
+	obufsize = 0;
+    }
+    outbuf[obufsize++] = c;
+    return 0;
+}
+
+/* ----------------------------------------------------- */
+/* input routines                                        */
+/* ----------------------------------------------------- */
+
+static int      i_newfd = 0;
+static struct timeval i_to, *i_top = NULL;
+static int      (*flushf) () = NULL;
+
+void
+add_io(int fd, int timeout)
+{
+    i_newfd = fd;
+    if (timeout) {
+	i_to.tv_sec = timeout;
+	i_to.tv_usec = 16384;	/* Ptt: 改成16384 避免不按時for loop吃cpu
+				 * time 16384 約每秒64次 */
+	i_top = &i_to;
+    } else
+	i_top = NULL;
+}
+
+int
+num_in_buf()
+{
+    return icurrchar - ibufsize;
+}
+
+/*
+ * dogetch() is not reentrant-safe. SIGUSR[12] might happen at any time, and
+ * dogetch() might be called again, and then ibufsize/icurrchar/inbuf might
+ * be inconsistent. We try to not segfault here...
+ */
+
+static int
+dogetch()
+{
+    int             len;
+    static time_t   lastact;
+    if (ibufsize <= icurrchar) {
+
+	if (flushf)
+	    (*flushf) ();
+
+	refresh();
+
+	if (i_newfd) {
+
+	    struct timeval  timeout;
+	    fd_set          readfds;
+
+	    if (i_top)
+		timeout = *i_top;	/* copy it because select() might
+					 * change it */
+
+	    FD_ZERO(&readfds);
+	    FD_SET(0, &readfds);
+	    FD_SET(i_newfd, &readfds);
+
+	    /* jochang: modify first argument of select from FD_SETSIZE */
+	    /* since we are only waiting input from fd 0 and i_newfd(>0) */
+
+	    while ((len = select(i_newfd + 1, &readfds, NULL, NULL, i_top ? &timeout : NULL)) < 0) {
+		if (errno != EINTR)
+		    abort_bbs(0);
+		/* raise(SIGHUP); */
+	    }
+
+	    if (len == 0)
+		return I_TIMEOUT;
+
+	    if (i_newfd && FD_ISSET(i_newfd, &readfds))
+		return I_OTHERDATA;
+	}
+#ifdef SKIP_TELNET_CONTROL_SIGNAL
+	do{
+#endif
+	    while ((len = read(0, inbuf, IBUFSIZE)) <= 0) {
+		if (len == 0 || errno != EINTR)
+		    abort_bbs(0);
+		/* raise(SIGHUP); */
+	    }
+#ifdef SKIP_TELNET_CONTROL_SIGNAL
+	} while( inbuf[0] == -1 );
+#endif
+	ibufsize = len;
+	icurrchar = 0;
+    }
+    if (currutmp) {
+#ifdef OUTTA_TIMER
+	now = SHM->GV2.e.now;
+#else
+	now = time(0);
+#endif
+	if (now - lastact < 3)
+	    currutmp->lastact = now;
+	lastact = now;
+    }
+    return inbuf[icurrchar++];
+}
+
+static int      water_which_flag = 0;
+int
+igetch()
+{
+    register int    ch;
+    while ((ch = dogetch())) {
+	switch (ch) {
+#ifdef DEBUG
+	case Ctrl('Q'):{
+	    struct rusage ru;
+	    getrusage(RUSAGE_SELF, &ru);
+	    vmsg("sbrk: %d KB, idrss: %d KB, isrss: %d KB",
+		 ((int)sbrk(0) - 0x8048000) / 1024,
+		 (int)ru.ru_idrss, (int)ru.ru_isrss);
+	}
+	    continue;
+#endif
+	case Ctrl('L'):
+	    redoscr();
+	    continue;
+	case Ctrl('U'):
+	    if (currutmp != NULL && currutmp->mode != EDITING
+		&& currutmp->mode != LUSERS && currutmp->mode) {
+
+		screenline_t   *screen0 = calloc(t_lines, sizeof(screenline_t));
+		int		oldroll = roll;
+		int             y, x, my_newfd;
+
+		getyx(&y, &x);
+		memcpy(screen0, big_picture, t_lines * sizeof(screenline_t));
+		my_newfd = i_newfd;
+		i_newfd = 0;
+		t_users();
+		i_newfd = my_newfd;
+		memcpy(big_picture, screen0, t_lines * sizeof(screenline_t));
+		roll = oldroll;
+		move(y, x);
+		free(screen0);
+		redoscr();
+		continue;
+	    } else
+		return (ch);
+	case KEY_TAB:
+	    if (WATERMODE(WATER_ORIG) || WATERMODE(WATER_NEW))
+		if (currutmp != NULL && watermode > 0) {
+		    watermode = (watermode + water_which->count)
+			% water_which->count + 1;
+		    t_display_new();
+		    continue;
+		}
+	    return ch;
+	    break;
+
+	case Ctrl('R'):
+	    if (currutmp == NULL)
+		return (ch);
+
+	    if (currutmp->msgs[0].pid &&
+		WATERMODE(WATER_OFO) && wmofo == -1) {
+		int             y, x, my_newfd;
+		screenline_t   *screen0 = calloc(t_lines, sizeof(screenline_t));
+		memcpy(screen0, big_picture, t_lines * sizeof(screenline_t));
+		getyx(&y, &x);
+		my_newfd = i_newfd;
+		i_newfd = 0;
+		my_write2();
+		memcpy(big_picture, screen0, t_lines * sizeof(screenline_t));
+		i_newfd = my_newfd;
+		move(y, x);
+		free(screen0);
+		redoscr();
+		continue;
+	    } else if (!WATERMODE(WATER_OFO)) {
+		if (watermode > 0) {
+		    watermode = (watermode + water_which->count)
+			% water_which->count + 1;
+		    t_display_new();
+		    continue;
+		} else if (currutmp->mode == 0 &&
+		    (currutmp->chatid[0] == 2 || currutmp->chatid[0] == 3) &&
+			   water_which->count != 0 && watermode == 0) {
+		    /* 第二次按 Ctrl-R */
+		    watermode = 1;
+		    t_display_new();
+		    continue;
+		} else if (watermode == -1 && currutmp->msgs[0].pid) {
+		    /* 第一次按 Ctrl-R (必須先被丟過水球) */
+		    screenline_t   *screen0;
+		    int             y, x, my_newfd;
+		    screen0 = calloc(t_lines, sizeof(screenline_t));
+		    getyx(&y, &x);
+		    memcpy(screen0, big_picture, t_lines * sizeof(screenline_t));
+
+		    /* 如果正在talk的話先不處理對方送過來的封包 (不去select) */
+		    my_newfd = i_newfd;
+		    i_newfd = 0;
+		    show_call_in(0, 0);
+		    watermode = 0;
+		    my_write(currutmp->msgs[0].pid, "水球丟過去 ： ",
+			     currutmp->msgs[0].userid, 0, NULL);
+		    i_newfd = my_newfd;
+
+		    /* 還原螢幕 */
+		    memcpy(big_picture, screen0, t_lines * sizeof(screenline_t));
+		    move(y, x);
+		    free(screen0);
+		    redoscr();
+		    continue;
+		}
+	    }
+	    return ch;
+	case '\n':		/* Ptt把 \n拿掉 */
+	    continue;
+	case Ctrl('T'):
+	    if (WATERMODE(WATER_ORIG) || WATERMODE(WATER_NEW)) {
+		if (watermode > 0) {
+		    if (watermode > 1)
+			watermode--;
+		    else
+			watermode = water_which->count;
+		    t_display_new();
+		    continue;
+		}
+	    }
+	    return (ch);
+
+	case Ctrl('F'):
+	    if (WATERMODE(WATER_NEW)) {
+		if (watermode > 0) {
+		    if (water_which_flag == (int)water_usies)
+			water_which_flag = 0;
+		    else
+			water_which_flag =
+			    (water_which_flag + 1) % (int)(water_usies + 1);
+		    if (water_which_flag == 0)
+			water_which = &water[0];
+		    else
+			water_which = swater[water_which_flag - 1];
+		    watermode = 1;
+		    t_display_new();
+		    continue;
+		}
+	    }
+	    return ch;
+
+	case Ctrl('G'):
+	    if (WATERMODE(WATER_NEW)) {
+		if (watermode > 0) {
+		    water_which_flag = (water_which_flag + water_usies) % (water_usies + 1);
+		    if (water_which_flag == 0)
+			water_which = &water[0];
+		    else
+			water_which = swater[water_which_flag - 1];
+		    watermode = 1;
+		    t_display_new();
+		    continue;
+		}
+	    }
+	    return ch;
+
+	default:
+	    return ch;
+	}
+    }
+    return 0;
+}
+
+#define min(a, b) (((a) > (b)) ? (b) : (a))
+
+int
+oldgetdata(int line, int col, char *prompt, char *buf, int len, int echo)
+{
+    register int    ch, i;
+    int             clen;
+    int             x = col, y = line;
+#define MAXLASTCMD 12
+    static char     lastcmd[MAXLASTCMD][80];
+
+    strip_ansi(buf, buf, STRIP_ALL);
+
+    if (prompt) {
+
+	move(line, col);
+
+	clrtoeol();
+
+	outs(prompt);
+
+	x += strip_ansi(NULL, prompt, 0);
+    }
+    if (!echo) {
+	len--;
+	clen = 0;
+	while ((ch = igetch()) != '\r') {
+	    if (ch == '\177' || ch == Ctrl('H')) {
+		if (!clen) {
+		    bell();
+		    continue;
+		}
+		clen--;
+		if (echo) {
+		    ochar(Ctrl('H'));
+		    ochar(' ');
+		    ochar(Ctrl('H'));
+		}
+		continue;
+	    }
+	    //Ptt
+#ifdef BIT8
+		if (!isprint2(ch))
+#else
+		if (!isprint(ch))
+#endif
+	    {
+		if (echo)
+		    bell();
+		continue;
+	    }
+	    if (clen >= len) {
+		if (echo)
+		    bell();
+		continue;
+	    }
+	    buf[clen++] = ch;
+	    if (echo)
+		ochar(ch);
+	}
+	buf[clen] = '\0';
+	outc('\n');
+	oflush();
+    } else {
+	int             cmdpos = 0;
+	int             currchar = 0;
+
+	standout();
+	for (clen = len--; clen; clen--)
+	    outc(' ');
+	standend();
+	buf[len] = 0;
+	move(y, x);
+	edit_outs(buf);
+	clen = currchar = strlen(buf);
+
+	while (move(y, x + currchar), (ch = igetkey()) != '\r') {
+	    switch (ch) {
+	    case KEY_DOWN:
+	    case Ctrl('N'):
+		buf[clen] = '\0';	/* Ptt */
+		strncpy(lastcmd[cmdpos], buf, min(clen, 79));
+		cmdpos += MAXLASTCMD - 2;
+	    case Ctrl('P'):
+	    case KEY_UP:
+		if (ch == KEY_UP || ch == Ctrl('P')) {
+		    buf[clen] = '\0';	/* Ptt */
+		    strncpy(lastcmd[cmdpos], buf, min(clen, 79));
+		}
+		cmdpos++;
+		cmdpos %= MAXLASTCMD;
+		strncpy(buf, lastcmd[cmdpos], min(len, 79));
+		buf[len] = 0;
+
+		move(y, x);	/* clrtoeof */
+		for (i = 0; i <= clen; i++)
+		    outc(' ');
+		move(y, x);
+		edit_outs(buf);
+		clen = currchar = strlen(buf);
+		break;
+	    case KEY_LEFT:
+		if (currchar)
+		    --currchar;
+		break;
+	    case KEY_RIGHT:
+		if (buf[currchar])
+		    ++currchar;
+		break;
+	    case '\177':
+	    case Ctrl('H'):
+		if (currchar) {
+		    currchar--;
+		    clen--;
+		    for (i = currchar; i <= clen; i++)
+			buf[i] = buf[i + 1];
+		    move(y, x + clen);
+		    outc(' ');
+		    move(y, x);
+		    edit_outs(buf);
+		}
+		break;
+	    case Ctrl('Y'):
+		currchar = 0;
+	    case Ctrl('K'):
+		buf[currchar] = 0;
+		move(y, x + currchar);
+		for (i = currchar; i < clen; i++)
+		    outc(' ');
+		clen = currchar;
+		break;
+	    case Ctrl('D'):
+	    case KEY_DEL:
+		if (buf[currchar]) {
+		    clen--;
+		    for (i = currchar; i <= clen; i++)
+			buf[i] = buf[i + 1];
+		    move(y, x + clen);
+		    outc(' ');
+		    move(y, x);
+		    edit_outs(buf);
+		}
+		break;
+	    case Ctrl('A'):
+	    case KEY_HOME:
+		currchar = 0;
+		break;
+	    case Ctrl('E'):
+	    case KEY_END:
+		currchar = clen;
+		break;
+	    default:
+		if (isprint2(ch) && clen < len && x + clen < scr_cols) {
+		    for (i = clen + 1; i > currchar; i--)
+			buf[i] = buf[i - 1];
+		    buf[currchar] = ch;
+		    move(y, x + currchar);
+		    edit_outs(buf + currchar);
+		    currchar++;
+		    clen++;
+		}
+		break;
+	    }			/* end case */
+	}			/* end while */
+
+	if (clen > 1)
+	    for (cmdpos = MAXLASTCMD - 1; cmdpos; cmdpos--) {
+		strlcpy(lastcmd[cmdpos], lastcmd[cmdpos - 1],
+			sizeof(lastcmd[cmdpos]));
+		strncpy(lastcmd[0], buf, len);
+	    }
+	if (echo)
+	    outc('\n');
+	refresh();
+    }
+    if ((echo == LCECHO) && ((ch = buf[0]) >= 'A') && (ch <= 'Z'))
+	buf[0] = ch | 32;
+#ifdef SUPPORT_GB
+    if (echo == DOECHO && current_font_type == TYPE_GB) {
+	strcpy(buf, hc_convert_str(buf, HC_GBtoBIG, HC_DO_SINGLE));
+    }
+#endif
+    return clen;
+}
+
+/* Ptt */
+int
+getdata_buf(int line, int col, char *prompt, char *buf, int len, int echo)
+{
+    return oldgetdata(line, col, prompt, buf, len, echo);
+}
+
+char
+getans(char *prompt)
+{
+    char            ans[5];
+
+    getdata(t_lines - 1, 0, prompt, ans, sizeof(ans), LCECHO);
+    return ans[0];
+}
+
+int
+getdata_str(int line, int col, char *prompt, char *buf, int len, int echo, char *defaultstr)
+{
+    strncpy(buf, defaultstr, len);
+
+    buf[len - 1] = 0;
+    return oldgetdata(line, col, prompt, buf, len, echo);
+}
+
+int
+getdata(int line, int col, char *prompt, char *buf, int len, int echo)
+{
+    buf[0] = 0;
+    return oldgetdata(line, col, prompt, buf, len, echo);
+}
+
+int
+rget(int x, char *prompt)
+{
+    register int    ch;
+
+    move(x, 0);
+    clrtobot();
+    outs(prompt);
+    refresh();
+
+    ch = igetch();
+    if (ch >= 'A' && ch <= 'Z')
+	ch |= 32;
+
+    return ch;
+}
+
+
+int
+igetkey()
+{
+    int             mode;
+    int             ch, last;
+
+    mode = last = 0;
+    while (1) {
+	ch = igetch();
+	if (mode == 0) {
+	    if (ch == KEY_ESC)
+		mode = 1;
+	    else
+		return ch;	/* Normal Key */
+	} else if (mode == 1) {	/* Escape sequence */
+	    if (ch == '[' || ch == 'O')
+		mode = 2;
+	    else if (ch == '1' || ch == '4')
+		mode = 3;
+	    else {
+		KEY_ESC_arg = ch;
+		return KEY_ESC;
+	    }
+	} else if (mode == 2) {	/* Cursor key */
+	    if (ch >= 'A' && ch <= 'D')
+		return KEY_UP + (ch - 'A');
+	    else if (ch >= '1' && ch <= '6')
+		mode = 3;
+	    else
+		return ch;
+	} else if (mode == 3) {	/* Ins Del Home End PgUp PgDn */
+	    if (ch == '~')
+		return KEY_HOME + (last - '1');
+	    else
+		return ch;
+	}
+	last = ch;
+    }
+}
diff --git a/pttbbs/mbbsd/kaede.c b/pttbbs/mbbsd/kaede.c
new file mode 100644
index 00000000..8ab1fe95
--- /dev/null
+++ b/pttbbs/mbbsd/kaede.c
@@ -0,0 +1,100 @@
+/* $Id$ */
+#include "bbs.h"
+
+char           *
+Ptt_prints(char *str, int mode)
+{
+    char           *po, strbuf[256];
+
+    while ((po = strstr(str, "\033*s"))) {
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf), "%s%s%s", str, cuser.userid, po + 3);
+	strcpy(str, strbuf);
+    }
+    while ((po = strstr(str, "\033*t"))) {
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf), "%s%s%s", str, Cdate(&now), po + 3);
+	strcpy(str, strbuf);
+    }
+    while ((po = strstr(str, "\033*u"))) {
+	int             attempts;
+
+	attempts = SHM->UTMPnumber;
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf), "%s%d%s", str, attempts, po + 3);
+	strcpy(str, strbuf);
+    }
+    while ((po = strstr(str, "\033*b"))) {
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf),
+		 "%s%d/%d%s", str, cuser.month, cuser.day, po + 3);
+	strcpy(str, strbuf);
+    }
+    while ((po = strstr(str, "\033*l"))) {
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf),
+		 "%s%d%s", str, cuser.numlogins, po + 3);
+	strcpy(str, strbuf);
+    }
+    while ((po = strstr(str, "\033*p"))) {
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf),
+		 "%s%d%s", str, cuser.numposts, po + 3);
+	strcpy(str, strbuf);
+    }
+    while ((po = strstr(str, "\033*n"))) {
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf),
+		 "%s%s%s", str, cuser.username, po + 3);
+	strcpy(str, strbuf);
+    }
+    while ((po = strstr(str, "\033*m"))) {
+	po[0] = 0;
+	snprintf(strbuf, sizeof(strbuf),
+		 "%s%d%s", str, cuser.money, po + 3);
+	strcpy(str, strbuf);
+    }
+    strip_ansi(str, str, mode);
+    return str;
+}
+
+int
+Rename(char *src, char *dst)
+{
+    char            buf[256];
+    if (rename(src, dst) == 0)
+	return 0;
+    if (!strchr(src, ';') && !strchr(dst, ';'))
+	// Ptt 防不正常指令 // XXX 這樣是不夠的
+    {
+	snprintf(buf, sizeof(buf), "/bin/mv %s %s", src, dst);
+	system(buf);
+    }
+    return -1;
+}
+
+int
+Link(char *src, char *dst)
+{
+    char            cmd[200];
+
+    if (strcmp(src, BBSHOME "/home") == 0)
+	return 1;
+    if (symlink(dst, src) == 0)
+	return 0;
+
+    snprintf(cmd, sizeof(cmd), "/bin/cp -R %s %s", src, dst);
+    return system(cmd);
+}
+
+char           *
+my_ctime(const time_t * t, char *ans, int len)
+{
+    struct tm      *tp;
+
+    tp = localtime(t);
+    snprintf(ans, len,
+	     "%02d/%02d/%02d %02d:%02d:%02d", (tp->tm_year % 100),
+	     tp->tm_mon + 1, tp->tm_mday, tp->tm_hour, tp->tm_min, tp->tm_sec);
+    return ans;
+}
diff --git a/pttbbs/mbbsd/lovepaper.c b/pttbbs/mbbsd/lovepaper.c
new file mode 100644
index 00000000..826f6eb4
--- /dev/null
+++ b/pttbbs/mbbsd/lovepaper.c
@@ -0,0 +1,108 @@
+/* $Id$ */
+#include "bbs.h"
+#define DATA "etc/lovepaper.dat"
+
+int
+x_love()
+{
+    char            buf1[200], save_title[TTLEN + 1];
+    char            receiver[61], path[STRLEN] = "home/";
+    int             x, y = 0, tline = 0, poem = 0;
+    FILE           *fp, *fpo;
+    struct tm      *gtime;
+    fileheader_t    mhdr;
+
+    setutmpmode(LOVE);
+    gtime = localtime(&now);
+    snprintf(buf1, sizeof(buf1), "%c/%s/love%d%d",
+	    cuser.userid[0], cuser.userid, gtime->tm_sec, gtime->tm_min);
+    strcat(path, buf1);
+    move(1, 0);
+    clrtobot();
+
+    outs("\n歡迎使用情書產生器 v0.00 板 \n");
+    outs("有何難以啟齒的話,交由系統幫你說吧.\n爸爸說 : 濫情不犯法.\n");
+
+    if (!getdata(7, 0, "收信人：", receiver, sizeof(receiver), DOECHO))
+	return 0;
+    if (receiver[0] && !(searchuser(receiver) &&
+			 getdata(8, 0, "主  題：", save_title,
+				 sizeof(save_title), DOECHO))) {
+	move(10, 0);
+	outs("收信人或主題不正確, 情書無法傳遞. ");
+	pressanykey();
+	return 0;
+    }
+    fpo = fopen(path, "w");
+    assert(fpo);
+    fprintf(fpo, "\n");
+    if ((fp = fopen(DATA, "r"))) {
+	while (fgets(buf1, 100, fp)) {
+	    switch (buf1[0]) {
+	    case '#':
+		break;
+	    case '@':
+		if (!strncmp(buf1, "@begin", 6) || !strncmp(buf1, "@end", 4))
+		    tline = 3;
+		else if (!strncmp(buf1, "@poem", 5)) {
+		    poem = 1;
+		    tline = 1;
+		    fprintf(fpo, "\n\n");
+		} else
+		    tline = 2;
+		break;
+	    case '1':
+	    case '2':
+	    case '3':
+	    case '4':
+	    case '5':
+	    case '6':
+	    case '7':
+	    case '8':
+	    case '9':
+		sscanf(buf1, "%d", &x);
+		y = (rand() % (x - 1)) * tline;
+		break;
+	    default:
+		if (!poem) {
+		    if (y > 0)
+			y = y - 1;
+		    else {
+			if (tline > 0) {
+			    fprintf(fpo, "%s", buf1);
+			    tline--;
+			}
+		    }
+		} else {
+		    if (buf1[0] == '$')
+			y--;
+		    else if (y == 0)
+			fprintf(fpo, "%s", buf1);
+		}
+	    }
+
+	}
+
+	fclose(fp);
+	fclose(fpo);
+	if (vedit(path, YEA, NULL) == -1) {
+	    unlink(path);
+	    clear();
+	    outs("\n\n 放棄寄情書\n");
+	    pressanykey();
+	    return -2;
+	}
+	sethomepath(buf1, receiver);
+	stampfile(buf1, &mhdr);
+	Rename(path, buf1);
+	strncpy(mhdr.title, save_title, TTLEN);
+	strlcpy(mhdr.owner, cuser.userid, sizeof(mhdr.owner));
+	sethomedir(path, receiver);
+	if (append_record(path, &mhdr, sizeof(mhdr)) == -1)
+	    return -1;
+	hold_mail(buf1, receiver);
+	return 1;
+    }
+    fclose(fpo);
+    return 0;
+}
diff --git a/pttbbs/mbbsd/mail.c b/pttbbs/mbbsd/mail.c
new file mode 100644
index 00000000..52c8884c
--- /dev/null
+++ b/pttbbs/mbbsd/mail.c
@@ -0,0 +1,1718 @@
+/* $Id$ */
+#include "bbs.h"
+char            currmaildir[32];
+static char     msg_cc[] = "\033[32m[群組名單]\033[m\n";
+static char     listfile[] = "list.0";
+static int      mailkeep = 0, mailsum = 0;
+static int      mailsumlimit = 0, mailmaxkeep = 0;
+
+int
+setforward()
+{
+    char            buf[80], ip[50] = "", yn[4];
+    FILE           *fp;
+
+    sethomepath(buf, cuser.userid);
+    strcat(buf, "/.forward");
+    if ((fp = fopen(buf, "r"))) {
+	fscanf(fp, "%s", ip);
+	fclose(fp);
+    }
+    getdata_buf(b_lines - 1, 0, "請輸入信箱自動轉寄的email地址:",
+		ip, sizeof(ip), DOECHO);
+    if (ip[0] && ip[0] != ' ') {
+	getdata(b_lines, 0, "確定開啟自動轉信功\能?(Y/n)", yn, sizeof(yn),
+		LCECHO);
+	if (yn[0] != 'n' && (fp = fopen(buf, "w"))) {
+	    move(b_lines, 0);
+	    clrtoeol();
+	    fprintf(fp, "%s", ip);
+	    fclose(fp);
+	    outs("設定完成!");
+	    refresh();
+	    return 0;
+	}
+    }
+    move(b_lines, 0);
+    clrtoeol();
+    outs("取消自動轉信!");
+    unlink(buf);
+    refresh();
+    return 0;
+}
+
+int
+built_mail_index()
+{
+    char            genbuf[128];
+
+    move(b_lines - 4, 0);
+    outs("本功\能只在信箱檔毀損時使用，\033[1;33m無法\033[m救回被刪除的信件。\n"
+	 "除非您清楚這個功\能的作用，否則\033[1;33m請不要使用\033[m。\n"
+	 "警告：任意的使用將導致\033[1;33m不可預期的結果\033[m！\n");
+    getdata(b_lines - 1, 0,
+	    "確定重建信箱?(y/N)", genbuf, 3,
+	    LCECHO);
+    if (genbuf[0] != 'y')
+	return 0;
+
+    snprintf(genbuf, sizeof(genbuf),
+	     BBSHOME "/bin/buildir " BBSHOME "/home/%c/%s",
+	     cuser.userid[0], cuser.userid);
+    move(22, 0);
+    prints("\033[1;31m已經處理完畢!! 諸多不便 敬請原諒~\033[m");
+    pressanykey();
+    system(genbuf);
+    return 0;
+}
+
+int
+mailalert(char *userid)
+{
+    userinfo_t     *uentp = NULL;
+    int             n, tuid, i;
+
+    if ((tuid = searchuser(userid)) == 0)
+	return -1;
+
+    n = count_logins(tuid, 0);
+    for (i = 1; i <= n; i++)
+	if ((uentp = (userinfo_t *) search_ulistn(tuid, i)))
+	    uentp->mailalert = 1;
+    return 0;
+}
+
+int
+mail_muser(userec_t muser, char *title, char *filename)
+{
+    return mail_id(muser.userid, title, filename, cuser.userid);
+}
+
+/* Heat: 用id來寄信,內容則link準備好的檔案 */
+int
+mail_id(char *id, char *title, char *filename, char *owner)
+{
+    fileheader_t    mhdr;
+    char            genbuf[128];
+    sethomepath(genbuf, id);
+    if (stampfile(genbuf, &mhdr))
+	return 0;
+    strlcpy(mhdr.owner, owner, sizeof(mhdr.owner));
+    strncpy(mhdr.title, title, TTLEN);
+    mhdr.filemode = 0;
+    Link(filename, genbuf);
+    sethomedir(genbuf, id);
+    append_record(genbuf, &mhdr, sizeof(mhdr));
+    mailalert(id);
+    return 0;
+}
+
+int
+invalidaddr(char *addr)
+{
+    if (*addr == '\0')
+	return 1;		/* blank */
+    while (*addr) {
+	if (not_alnum(*addr) && !strchr("[].@-_", *addr))
+	    return 1;
+	addr++;
+    }
+    return 0;
+}
+
+int
+m_internet()
+{
+    char            receiver[60];
+
+    getdata(20, 0, "收信人：", receiver, sizeof(receiver), DOECHO);
+    if (strchr(receiver, '@') && !invalidaddr(receiver) &&
+	getdata(21, 0, "主  題：", save_title, STRLEN, DOECHO))
+	do_send(receiver, save_title);
+    else {
+	move(22, 0);
+	outs("收信人或主題不正確, 請重新選取指令");
+	pressanykey();
+    }
+    return 0;
+}
+
+void
+m_init()
+{
+    sethomedir(currmaildir, cuser.userid);
+}
+
+int
+chkmailbox()
+{
+    if (!HAVE_PERM(PERM_SYSOP) && !HAVE_PERM(PERM_MAILLIMIT)) {
+	int             max_keepmail = MAX_KEEPMAIL;
+	if (HAS_PERM(PERM_SYSSUBOP) || HAS_PERM(PERM_SMG) ||
+	    HAS_PERM(PERM_PRG) || HAS_PERM(PERM_ACTION) || HAS_PERM(PERM_PAINT)) {
+	    mailsumlimit = 700;
+	    max_keepmail = 500;
+	} else if (HAS_PERM(PERM_BM)) {
+	    mailsumlimit = 500;
+	    max_keepmail = 300;
+	} else if (HAS_PERM(PERM_LOGINOK))
+	    mailsumlimit = 200;
+	else
+	    mailsumlimit = 50;
+	mailsumlimit += cuser.exmailbox * 10;
+	mailmaxkeep = max_keepmail + cuser.exmailbox;
+	m_init();
+	if ((mailkeep = get_num_records(currmaildir, sizeof(fileheader_t))) >
+	    mailmaxkeep) {
+	    move(b_lines, 0);
+	    clrtoeol();
+	    bell();
+	    prints("您保存信件數目 %d 超出上限 %d, 請整理",
+		   mailkeep, mailmaxkeep);
+	    bell();
+	    refresh();
+	    igetch();
+	    return mailkeep;
+	}
+	if ((mailsum = get_sum_records(currmaildir, sizeof(fileheader_t))) >
+	    mailsumlimit) {
+	    move(b_lines, 0);
+	    clrtoeol();
+	    bell();
+	    prints("您保存信件容量 %d(k)超出上限 %d(k), 請整理",
+		   mailsum, mailsumlimit);
+	    bell();
+	    refresh();
+	    igetch();
+	    return mailkeep;
+	}
+    }
+    return 0;
+}
+
+static void
+do_hold_mail(char *fpath, char *receiver, char *holder)
+{
+    char            buf[80], title[128];
+
+    fileheader_t    mymail;
+
+    sethomepath(buf, holder);
+    stampfile(buf, &mymail);
+
+    mymail.filemode = FILE_READ | FILE_HOLD;
+    strlcpy(mymail.owner, "[備.忘.錄]", sizeof(mymail.owner));
+    if (receiver) {
+	snprintf(title, sizeof(title), "(%s) %s", receiver, save_title);
+	strncpy(mymail.title, title, TTLEN);
+    } else
+	strlcpy(mymail.title, save_title, sizeof(mymail.title));
+
+    sethomedir(title, holder);
+
+    unlink(buf);
+    Link(fpath, buf);
+    /* Ptt: append_record->do_append */
+    do_append(title, &mymail, sizeof(mymail));
+}
+
+void
+hold_mail(char *fpath, char *receiver)
+{
+    char            buf[4];
+
+    getdata(b_lines - 1, 0, "已順利寄出，是否自存底稿(Y/N)？[N] ",
+	    buf, sizeof(buf), LCECHO);
+
+    if (buf[0] == 'y')
+	do_hold_mail(fpath, receiver, cuser.userid);
+}
+
+int
+do_send(char *userid, char *title)
+{
+    fileheader_t    mhdr;
+    char            fpath[STRLEN];
+    char            receiver[IDLEN];
+    char            genbuf[200];
+    int             internet_mail, i;
+
+    if (strchr(userid, '@'))
+	internet_mail = 1;
+    else {
+	internet_mail = 0;
+	if (!getuser(userid))
+	    return -1;
+	if (!(xuser.userlevel & PERM_READMAIL))
+	    return -3;
+
+	if (!title)
+	    getdata(2, 0, "主題：", save_title, STRLEN - 20, DOECHO);
+	curredit |= EDIT_MAIL;
+	curredit &= ~EDIT_ITEM;
+    }
+
+    setutmpmode(SMAIL);
+
+    fpath[0] = '\0';
+
+    if (internet_mail) {
+	int             res, ch;
+
+	if (vedit(fpath, NA, NULL) == -1) {
+	    unlink(fpath);
+	    clear();
+	    return -2;
+	}
+	clear();
+	prints("信件即將寄給 %s\n標題為：%s\n確定要寄出嗎? (Y/N) [Y]",
+	       userid, title);
+	ch = igetch();
+	switch (ch) {
+	case 'N':
+	case 'n':
+	    outs("N\n信件已取消");
+	    res = -2;
+	    break;
+	default:
+	    outs("Y\n請稍候, 信件傳遞中...\n");
+	    res =
+#ifndef USE_BSMTP
+		bbs_sendmail(fpath, title, userid);
+#else
+		bsmtp(fpath, title, userid, 0);
+#endif
+	    hold_mail(fpath, userid);
+	}
+	unlink(fpath);
+	return res;
+    } else {
+	strlcpy(receiver, userid, sizeof(receiver));
+	sethomepath(genbuf, userid);
+	stampfile(genbuf, &mhdr);
+	strlcpy(mhdr.owner, cuser.userid, sizeof(mhdr.owner));
+	strncpy(mhdr.title, save_title, TTLEN);
+	if (vedit(genbuf, YEA, NULL) == -1) {
+	    unlink(genbuf);
+	    clear();
+	    return -2;
+	}
+	clear();
+	sethomefile(fpath, userid, FN_OVERRIDES);
+	i = belong(fpath, cuser.userid);
+	sethomefile(fpath, userid, FN_REJECT);
+
+	if (i || !belong(fpath, cuser.userid)) {	/* Ptt: 用belong有點討厭 */
+	    sethomedir(fpath, userid);
+	    if (append_record(fpath, &mhdr, sizeof(mhdr)) == -1)
+		return -1;
+	    mailalert(userid);
+	}
+	hold_mail(genbuf, userid);
+	return 0;
+    }
+}
+
+void
+my_send(char *uident)
+{
+    switch (do_send(uident, NULL)) {
+	case -1:
+	outs(err_uid);
+	break;
+    case -2:
+	outs(msg_cancel);
+	break;
+    case -3:
+	prints("使用者 [%s] 無法收信", uident);
+	break;
+    }
+    pressanykey();
+}
+
+int
+m_send()
+{
+    char            uident[40];
+
+    stand_title("且聽風的話");
+    usercomplete(msg_uid, uident);
+    showplans(uident);
+    if (uident[0])
+	my_send(uident);
+    return 0;
+}
+
+/* 群組寄信、回信 : multi_send, multi_reply */
+static void
+multi_list(int *reciper)
+{
+    char            uid[16];
+    char            genbuf[200];
+
+    while (1) {
+	stand_title("群組寄信名單");
+	ShowNameList(3, 0, msg_cc);
+	move(1, 0);
+	prints("(I)引入好友 (O)引入上線通知 (N)引入新文章通知 (0-9)引入其他特別名單");
+	getdata(2, 0,
+	       "(A)增加     (D)刪除         (M)確認寄信名單   (Q)取消 ？[M]",
+		genbuf, 4, LCECHO);
+	switch (genbuf[0]) {
+	case 'a':
+	    while (1) {
+		move(1, 0);
+		usercomplete("請輸入要增加的代號(只按 ENTER 結束新增): ", uid);
+		if (uid[0] == '\0')
+		    break;
+
+		move(2, 0);
+		clrtoeol();
+
+		if (!searchuser(uid))
+		    outs(err_uid);
+		else if (!InNameList(uid)) {
+		    AddNameList(uid);
+		    (*reciper)++;
+		}
+		ShowNameList(3, 0, msg_cc);
+	    }
+	    break;
+	case 'd':
+	    while (*reciper) {
+		move(1, 0);
+		namecomplete("請輸入要刪除的代號(只按 ENTER 結束刪除): ", uid);
+		if (uid[0] == '\0')
+		    break;
+		if (RemoveNameList(uid))
+		    (*reciper)--;
+		ShowNameList(3, 0, msg_cc);
+	    }
+	    break;
+	case '0':
+	case '1':
+	case '2':
+	case '3':
+	case '4':
+	case '5':
+	case '6':
+	case '7':
+	case '8':
+	case '9':
+	    listfile[5] = genbuf[0];
+	    genbuf[0] = '1';
+	case 'i':
+	    setuserfile(genbuf, genbuf[0] == '1' ? listfile : fn_overrides);
+	    ToggleNameList(reciper, genbuf, msg_cc);
+	    break;
+	case 'o':
+	    setuserfile(genbuf, "alohaed");
+	    ToggleNameList(reciper, genbuf, msg_cc);
+	    break;
+	case 'n':
+	    setuserfile(genbuf, "postlist");
+	    ToggleNameList(reciper, genbuf, msg_cc);
+	    break;
+	case 'q':
+	    *reciper = 0;
+	    return;
+	default:
+	    return;
+	}
+    }
+}
+
+static void
+multi_send(char *title)
+{
+    FILE           *fp;
+    struct word_t  *p = NULL;
+    fileheader_t    mymail;
+    char            fpath[TTLEN], *ptr;
+    int             reciper, listing;
+    char            genbuf[256];
+
+    CreateNameList();
+    listing = reciper = 0;
+    if (*quote_file) {
+	AddNameList(quote_user);
+	reciper = 1;
+	fp = fopen(quote_file, "r");
+	assert(fp);
+	while (fgets(genbuf, 256, fp)) {
+	    if (strncmp(genbuf, "※ ", 3)) {
+		if (listing)
+		    break;
+	    } else {
+		if (listing) {
+		    strtok(ptr = genbuf + 3, " \n\r");
+		    do {
+			if (searchuser(ptr) && !InNameList(ptr) &&
+			    strcmp(cuser.userid, ptr)) {
+			    AddNameList(ptr);
+			    reciper++;
+			}
+		    } while ((ptr = (char *)strtok(NULL, " \n\r")));
+		} else if (!strncmp(genbuf + 3, "[通告]", 6))
+		    listing = 1;
+	    }
+	}
+	fclose(fp);
+	ShowNameList(3, 0, msg_cc);
+    }
+    multi_list(&reciper);
+    move(1, 0);
+    clrtobot();
+
+    if (reciper) {
+	setutmpmode(SMAIL);
+	if (title)
+	    do_reply_title(2, title);
+	else {
+	    getdata(2, 0, "主題：", fpath, sizeof(fpath), DOECHO);
+	    snprintf(save_title, sizeof(save_title), "[通告] %s", fpath);
+	}
+
+	setuserfile(fpath, fn_notes);
+
+	if ((fp = fopen(fpath, "w"))) {
+	    fprintf(fp, "※ [通告] 共 %d 人收件", reciper);
+	    listing = 80;
+
+	    for (p = toplev; p; p = p->next) {
+		reciper = strlen(p->word) + 1;
+		if (listing + reciper > 75) {
+		    listing = reciper;
+		    fprintf(fp, "\n※");
+		} else
+		    listing += reciper;
+
+		fprintf(fp, " %s", p->word);
+	    }
+	    memset(genbuf, '-', 75);
+	    genbuf[75] = '\0';
+	    fprintf(fp, "\n%s\n\n", genbuf);
+	    fclose(fp);
+	}
+	curredit |= EDIT_LIST;
+
+	if (vedit(fpath, YEA, NULL) == -1) {
+	    unlink(fpath);
+	    curredit = 0;
+	    outs(msg_cancel);
+	    pressanykey();
+	    return;
+	}
+	stand_title("寄信中...");
+	refresh();
+
+	listing = 80;
+
+	for (p = toplev; p; p = p->next) {
+	    reciper = strlen(p->word) + 1;
+	    if (listing + reciper > 75) {
+		listing = reciper;
+		outc('\n');
+	    } else {
+		listing += reciper;
+		outc(' ');
+	    }
+	    outs(p->word);
+	    if (searchuser(p->word) && strcmp(STR_GUEST, p->word))
+		sethomepath(genbuf, p->word);
+	    else
+		continue;
+	    stampfile(genbuf, &mymail);
+	    unlink(genbuf);
+	    Link(fpath, genbuf);
+
+	    strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));
+	    strlcpy(mymail.title, save_title, sizeof(mymail.title));
+	    mymail.filemode |= FILE_MULTI;	/* multi-send flag */
+	    sethomedir(genbuf, p->word);
+	    if (append_record(genbuf, &mymail, sizeof(mymail)) == -1)
+		outs(err_uid);
+	    mailalert(p->word);
+	}
+	hold_mail(fpath, NULL);
+	unlink(fpath);
+	curredit = 0;
+    } else
+	outs(msg_cancel);
+    pressanykey();
+}
+
+static int
+multi_reply(int ent, fileheader_t * fhdr, char *direct)
+{
+    if (!(fhdr->filemode & FILE_MULTI))
+	return mail_reply(ent, fhdr, direct);
+
+    stand_title("群組回信");
+    strlcpy(quote_user, fhdr->owner, sizeof(quote_user));
+    setuserfile(quote_file, fhdr->filename);
+    multi_send(fhdr->title);
+    return 0;
+}
+
+int
+mail_list()
+{
+    stand_title("群組作業");
+    multi_send(NULL);
+    return 0;
+}
+
+int
+mail_all()
+{
+    FILE           *fp;
+    fileheader_t    mymail;
+    char            fpath[TTLEN];
+    char            genbuf[200];
+    int             i, unum;
+    char           *userid;
+
+    stand_title("給所有使用者的系統通告");
+    setutmpmode(SMAIL);
+    getdata(2, 0, "主題：", fpath, sizeof(fpath), DOECHO);
+    snprintf(save_title, sizeof(save_title),
+	     "[系統通告]\033[1;32m %s\033[m", fpath);
+
+    setuserfile(fpath, fn_notes);
+
+    if ((fp = fopen(fpath, "w"))) {
+	fprintf(fp, "※ [\033[1m系統通告\033[m] 這是封給所有使用者的信\n");
+	fprintf(fp, "-----------------------------------------------------"
+		"----------------------\n");
+	fclose(fp);
+    }
+    *quote_file = 0;
+
+    curredit |= EDIT_MAIL;
+    curredit &= ~EDIT_ITEM;
+    if (vedit(fpath, YEA, NULL) == -1) {
+	curredit = 0;
+	unlink(fpath);
+	outs(msg_cancel);
+	pressanykey();
+	return 0;
+    }
+    curredit = 0;
+
+    setutmpmode(MAILALL);
+    stand_title("寄信中...");
+
+    sethomepath(genbuf, cuser.userid);
+    stampfile(genbuf, &mymail);
+    unlink(genbuf);
+    Link(fpath, genbuf);
+    unlink(fpath);
+    strcpy(fpath, genbuf);
+
+    strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));	/* 站長 ID */
+    strlcpy(mymail.title, save_title, sizeof(mymail.title));
+
+    sethomedir(genbuf, cuser.userid);
+    if (append_record(genbuf, &mymail, sizeof(mymail)) == -1)
+	outs(err_uid);
+
+    for (unum = SHM->number, i = 0; i < unum; i++) {
+	if (bad_user_id(SHM->userid[i]))
+	    continue;		/* Ptt */
+
+	userid = SHM->userid[i];
+	if (strcmp(userid, STR_GUEST) && strcmp(userid, "new") &&
+	    strcmp(userid, cuser.userid)) {
+	    sethomepath(genbuf, userid);
+	    stampfile(genbuf, &mymail);
+	    unlink(genbuf);
+	    Link(fpath, genbuf);
+
+	    strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));
+	    strlcpy(mymail.title, save_title, sizeof(mymail.title));
+	    /* mymail.filemode |= FILE_MARKED; Ptt 公告改成不會mark */
+	    sethomedir(genbuf, userid);
+	    if (append_record(genbuf, &mymail, sizeof(mymail)) == -1)
+		outs(err_uid);
+	    snprintf(genbuf, sizeof(genbuf),
+		     "%*s %5d / %5d", IDLEN + 1, userid, i + 1, unum);
+	    outmsg(genbuf);
+	    refresh();
+	}
+    }
+    return 0;
+}
+
+int
+mail_mbox()
+{
+    char            cmd[100];
+    fileheader_t    fhdr;
+
+    snprintf(cmd, sizeof(cmd), "/tmp/%s.uu", cuser.userid);
+    snprintf(fhdr.title, sizeof(fhdr.title), "%s 私人資料", cuser.userid);
+    doforward(cmd, &fhdr, 'Z');
+    return 0;
+}
+
+static int
+m_forward(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            uid[STRLEN];
+
+    stand_title("轉達信件");
+    usercomplete(msg_uid, uid);
+    if (uid[0] == '\0')
+	return FULLUPDATE;
+
+    strlcpy(quote_user, fhdr->owner, sizeof(quote_user));
+    setuserfile(quote_file, fhdr->filename);
+    snprintf(save_title, sizeof(save_title), "%.64s (fwd)", fhdr->title);
+    move(1, 0);
+    clrtobot();
+    prints("轉信給: %s\n標  題: %s\n", uid, save_title);
+
+    switch (do_send(uid, save_title)) {
+    case -1:
+	outs(err_uid);
+	break;
+    case -2:
+	outs(msg_cancel);
+	break;
+    case -3:
+	prints("使用者 [%s] 無法收信", uid);
+	break;
+    }
+    pressanykey();
+    return FULLUPDATE;
+}
+
+static int      delmsgs[128];
+static int      delcnt;
+static int      mrd;
+
+static int
+read_new_mail(fileheader_t * fptr)
+{
+    static int      idc;
+    char            done = NA, delete_it;
+    char            fname[256];
+    char            genbuf[4];
+
+    if (fptr == NULL) {
+	delcnt = 0;
+	idc = 0;
+	return 0;
+    }
+    idc++;
+    if (fptr->filemode)
+	return 0;
+    clear();
+    move(10, 0);
+    prints("您要讀來自[%s]的訊息(%s)嗎？", fptr->owner, fptr->title);
+    getdata(11, 0, "請您確定(Y/N/Q)?[Y] ", genbuf, 3, DOECHO);
+    if (genbuf[0] == 'q')
+	return QUIT;
+    if (genbuf[0] == 'n')
+	return 0;
+
+    setuserfile(fname, fptr->filename);
+    fptr->filemode |= FILE_READ;
+    if (substitute_record(currmaildir, fptr, sizeof(*fptr), idc))
+	return -1;
+
+    mrd = 1;
+    delete_it = NA;
+    while (!done) {
+	int             more_result = more(fname, YEA);
+
+	switch (more_result) {
+	case 1:
+	    return READ_PREV;
+	case 2:
+	    return RELATE_PREV;
+	case 3:
+	    return READ_NEXT;
+	case 4:
+	    return RELATE_NEXT;
+	case 5:
+	    return RELATE_FIRST;
+	case 6:
+	    return 0;
+	case 7:
+	    mail_reply(idc, fptr, currmaildir);
+	    return FULLUPDATE;
+	case 8:
+	    multi_reply(idc, fptr, currmaildir);
+	    return FULLUPDATE;
+	}
+	move(b_lines, 0);
+	clrtoeol();
+	outs(msg_mailer);
+	refresh();
+
+	switch (egetch()) {
+	case 'r':
+	case 'R':
+	    mail_reply(idc, fptr, currmaildir);
+	    break;
+	case 'x':
+	    m_forward(idc, fptr, currmaildir);
+	    break;
+	case 'y':
+	    multi_reply(idc, fptr, currmaildir);
+	    break;
+	case 'd':
+	case 'D':
+	    delete_it = YEA;
+	default:
+	    done = YEA;
+	}
+    }
+    if (delete_it) {
+	clear();
+	prints("刪除信件《%s》", fptr->title);
+	getdata(1, 0, msg_sure_ny, genbuf, 2, LCECHO);
+	if (genbuf[0] == 'y') {
+	    unlink(fname);
+	    delmsgs[delcnt++] = idc;
+	}
+    }
+    clear();
+    return 0;
+}
+
+int
+m_new()
+{
+    clear();
+    mrd = 0;
+    setutmpmode(RMAIL);
+    read_new_mail(NULL);
+    clear();
+    curredit |= EDIT_MAIL;
+    curredit &= ~EDIT_ITEM;
+    if (apply_record(currmaildir, read_new_mail, sizeof(fileheader_t)) == -1) {
+	outs("沒有新信件了");
+	pressanykey();
+	return -1;
+    }
+    curredit = 0;
+    if (delcnt) {
+	while (delcnt--)
+	    delete_record(currmaildir, sizeof(fileheader_t), delmsgs[delcnt]);
+    }
+    outs(mrd ? "信已閱\畢" : "沒有新信件了");
+    pressanykey();
+    return -1;
+}
+
+static void
+mailtitle()
+{
+    char            buf[256] = "";
+
+    showtitle("\0郵件選單", BBSName);
+    snprintf(buf, sizeof(buf),
+	     "[←]離開[↑↓]選擇[→]閱\讀信件 [R]回信 [x]轉達 "
+	     "[y]群組回信 [O]站外信:%s [h]求助\n\033[7m"
+	     "編號   日 期  作 者          信  件  標  題     \033[32m",
+	     HAS_PERM(PERM_NOOUTMAIL) ? "\033[31m關\033[m" : "開");
+    outs(buf);
+    buf[0] = 0;
+    if (mailsumlimit) {
+	snprintf(buf, sizeof(buf),
+		 "(容量:%d/%dk %d/%d篇)", mailsum, mailsumlimit,
+		 mailkeep, mailmaxkeep);
+    }
+    snprintf(buf, sizeof(buf), "%s%*s\033[m", buf, 29 - (int)strlen(buf), "");
+    outs(buf);
+}
+
+static void
+maildoent(int num, fileheader_t * ent)
+{
+    char           *title, *mark, color, type = "+ Mm"[(ent->filemode & 3)];
+
+    if (TagNum && !Tagger(atoi(ent->filename + 2), 0, TAG_NIN))
+	type = 'D';
+
+    title = subject(mark = ent->title);
+    if (title == mark) {
+	color = '1';
+	mark = "◇";
+    } else {
+	color = '3';
+	mark = "R:";
+    }
+
+    if (strncmp(currtitle, title, TTLEN))
+	prints("%5d %c %-7s%-15.14s%s %.46s\n", num, type,
+	       ent->date, ent->owner, mark, title);
+    else
+	prints("%5d %c %-7s%-15.14s\033[1;3%cm%s %.46s\033[0m\n", num, type,
+	       ent->date, ent->owner, color, mark, title);
+}
+
+static int
+m_idle(int ent, fileheader_t * fhdr, char *direct)
+{
+    t_idle();
+    return FULLUPDATE;
+}
+
+static int
+mail_del(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            genbuf[200];
+
+    if (fhdr->filemode & FILE_MARKED)
+	return DONOTHING;
+
+    getdata(1, 0, msg_del_ny, genbuf, 3, LCECHO);
+    if (genbuf[0] == 'y') {
+	strlcpy(currfile, fhdr->filename, sizeof(currfile));
+	if (!delete_file(direct, sizeof(*fhdr), ent, cmpfilename)) {
+	    setdirpath(genbuf, direct, fhdr->filename);
+	    unlink(genbuf);
+	    if ((currmode & MODE_SELECT)) {
+		int             index;
+		sethomedir(genbuf, cuser.userid);
+		index = getindex(genbuf, fhdr->filename, sizeof(fileheader_t));
+		delete_file(genbuf, sizeof(fileheader_t), index, cmpfilename);
+	    }
+	    return DIRCHANGED;
+	}
+    }
+    return FULLUPDATE;
+}
+
+static int
+mail_read(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            buf[64];
+    char            done, delete_it, replied;
+
+    clear();
+    setdirpath(buf, direct, fhdr->filename);
+    strncpy(currtitle, subject(fhdr->title), TTLEN);
+    done = delete_it = replied = NA;
+    while (!done) {
+	int             more_result = more(buf, YEA);
+
+	if (more_result != -1) {
+	    fhdr->filemode |= FILE_READ;
+	    if ((currmode & MODE_SELECT)) {
+		int             index;
+
+		index = getindex(currmaildir, fhdr->filename,
+				 sizeof(fileheader_t));
+		substitute_record(currmaildir, fhdr, sizeof(*fhdr), index);
+		substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+	    } else
+		substitute_record(currmaildir, fhdr, sizeof(*fhdr), ent);
+	}
+	switch (more_result) {
+	case 1:
+	    return READ_PREV;
+	case 2:
+	    return RELATE_PREV;
+	case 3:
+	    return READ_NEXT;
+	case 4:
+	    return RELATE_NEXT;
+	case 5:
+	    return RELATE_FIRST;
+	case 6:
+	    return FULLUPDATE;
+	case 7:
+	    mail_reply(ent, fhdr, direct);
+	    return FULLUPDATE;
+	case 8:
+	    multi_reply(ent, fhdr, direct);
+	    return FULLUPDATE;
+	}
+	move(b_lines, 0);
+	clrtoeol();
+	refresh();
+	outs(msg_mailer);
+
+	switch (egetch()) {
+	case 'r':
+	case 'R':
+	    replied = YEA;
+	    mail_reply(ent, fhdr, direct);
+	    break;
+	case 'x':
+	    m_forward(ent, fhdr, direct);
+	    break;
+	case 'y':
+	    multi_reply(ent, fhdr, direct);
+	    break;
+	case 'd':
+	    delete_it = YEA;
+	default:
+	    done = YEA;
+	}
+    }
+    if (delete_it)
+	mail_del(ent, fhdr, direct);
+    else {
+	fhdr->filemode |= FILE_READ;
+#ifdef POSTBUG
+	if (replied)
+	    bug_possible = YEA;
+#endif
+	if ((currmode & MODE_SELECT)) {
+	    int             index;
+
+	    index = getindex(currmaildir, fhdr->filename, sizeof(fileheader_t));
+	    substitute_record(currmaildir, fhdr, sizeof(*fhdr), index);
+	    substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+	} else
+	    substitute_record(currmaildir, fhdr, sizeof(*fhdr), ent);
+#ifdef POSTBUG
+	bug_possible = NA;
+#endif
+    }
+    return FULLUPDATE;
+}
+
+/* in boards/mail 回信給原作者，轉信站亦可 */
+int
+mail_reply(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            uid[STRLEN];
+    char           *t;
+    FILE           *fp;
+    char            genbuf[512];
+
+    stand_title("回  信");
+
+    /* 判斷是 boards 或 mail */
+    if (curredit & EDIT_MAIL)
+	setuserfile(quote_file, fhdr->filename);
+    else
+	setbfile(quote_file, currboard, fhdr->filename);
+
+    /* find the author */
+    strlcpy(quote_user, fhdr->owner, sizeof(quote_user));
+    if (strchr(quote_user, '.')) {
+	genbuf[0] = '\0';
+	if ((fp = fopen(quote_file, "r"))) {
+	    fgets(genbuf, sizeof(genbuf), fp);
+	    fclose(fp);
+	}
+	t = strtok(genbuf, str_space);
+	if (!strcmp(t, str_author1) || !strcmp(t, str_author2))
+	    strlcpy(uid, strtok(NULL, str_space), sizeof(uid));
+	else {
+	    outs("錯誤: 找不到作者。");
+	    pressanykey();
+	    return FULLUPDATE;
+	}
+    } else
+	strlcpy(uid, quote_user, sizeof(uid));
+
+    /* make the title */
+    do_reply_title(3, fhdr->title);
+    prints("\n收信人: %s\n標  題: %s\n", uid, save_title);
+
+    /* edit, then send the mail */
+    ent = curredit;
+    switch (do_send(uid, save_title)) {
+    case -1:
+	outs(err_uid);
+	break;
+    case -2:
+	outs(msg_cancel);
+	break;
+    case -3:
+	prints("使用者 [%s] 無法收信", uid);
+	break;
+    }
+    curredit = ent;
+    pressanykey();
+    return FULLUPDATE;
+}
+
+static int
+mail_edit(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            genbuf[200];
+
+    if (!HAS_PERM(PERM_SYSOP) &&
+	strcmp(cuser.userid, fhdr->owner) &&
+	strcmp("[備.忘.錄]", fhdr->owner))
+	return DONOTHING;
+
+    setdirpath(genbuf, direct, fhdr->filename);
+    vedit(genbuf, NA, NULL);
+    return FULLUPDATE;
+}
+
+static int
+mail_nooutmail(int ent, fileheader_t * fhdr, char *direct)
+{
+    cuser.userlevel ^= PERM_NOOUTMAIL;
+    passwd_update(usernum, &cuser);
+    return FULLUPDATE;
+
+}
+
+static int
+mail_mark(int ent, fileheader_t * fhdr, char *direct)
+{
+    fhdr->filemode ^= FILE_MARKED;
+
+    if ((currmode & MODE_SELECT)) {
+	int             index;
+
+	index = getindex(currmaildir, fhdr->filename, sizeof(fileheader_t));
+	substitute_record(currmaildir, fhdr, sizeof(*fhdr), index);
+	substitute_record(direct, fhdr, sizeof(*fhdr), ent);
+    } else
+	substitute_record(currmaildir, fhdr, sizeof(*fhdr), ent);
+    return PART_REDRAW;
+}
+
+/* help for mail reading */
+static char    *mail_help[] = {
+    "\0電子信箱操作說明",
+    "\01基本命令",
+    "(p)(↑)    前一篇文章",
+    "(n)(↓)    下一篇文章",
+    "(P)(PgUp)  前一頁",
+    "(N)(PgDn)  下一頁",
+    "(##)(cr)   跳到第 ## 筆",
+    "($)        跳到最後一筆",
+    "\01進階命令",
+    "(r)(→)/(R)讀信 / 回信",
+    "(O)        關閉/開啟 站外信件轉入",
+    "(c/z)      收入此信件進入私人信件夾/進入私人信件夾",
+    "(x/X)      轉達信件/轉錄文章到其他看板",
+    "(y)        群組回信",
+    "(F)        將信傳送回您的電子信箱      (u)水球整理寄回信箱",
+    "(d)        殺掉此信",
+    "(D)        殺掉指定範圍的信",
+    "(m)        將信標記，以防被清除",
+    "(^G)       立即重建信箱 (信箱毀損時用)",
+    "(t)        標記欲刪除信件",
+    "(^D)       刪除已標記信件",
+    NULL
+};
+
+static int
+m_help()
+{
+    show_help(mail_help);
+    return FULLUPDATE;
+}
+
+static int
+mail_cross_post(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            xboard[20], fname[80], xfpath[80], xtitle[80], inputbuf[10];
+    fileheader_t    xfile;
+    FILE           *xptr;
+    int             author = 0;
+    char            genbuf[200];
+    char            genbuf2[4];
+
+    move(2, 0);
+    clrtoeol();
+    move(3, 0);
+    clrtoeol();
+    move(1, 0);
+    generalnamecomplete("轉錄本文章於看板：", xboard, sizeof(xboard),
+			SHM->Bnumber,
+			completeboard_compar,
+			completeboard_permission,
+			completeboard_getname);
+    if (*xboard == '\0' || !haspostperm(xboard))
+	return FULLUPDATE;
+
+    ent = 1;
+    if (HAS_PERM(PERM_SYSOP) || !strcmp(fhdr->owner, cuser.userid)) {
+	getdata(2, 0, "(1)原文轉載 (2)舊轉錄格式？[1] ",
+		genbuf, 3, DOECHO);
+	if (genbuf[0] != '2') {
+	    ent = 0;
+	    getdata(2, 0, "保留原作者名稱嗎?[Y] ", inputbuf, 3, DOECHO);
+	    if (inputbuf[0] != 'n' && inputbuf[0] != 'N')
+		author = 1;
+	}
+    }
+    if (ent)
+	snprintf(xtitle, sizeof(xtitle), "[轉錄]%.66s", fhdr->title);
+    else
+	strlcpy(xtitle, fhdr->title, sizeof(xtitle));
+
+    snprintf(genbuf, sizeof(genbuf), "採用原標題《%.60s》嗎?[Y] ", xtitle);
+    getdata(2, 0, genbuf, genbuf2, sizeof(genbuf2), LCECHO);
+    if (*genbuf2 == 'n')
+	if (getdata(2, 0, "標題：", genbuf, TTLEN, DOECHO))
+	    strlcpy(xtitle, genbuf, sizeof(xtitle));
+
+    getdata(2, 0, "(S)存檔 (L)站內 (Q)取消？[Q] ", genbuf, 3, LCECHO);
+    if (genbuf[0] == 'l' || genbuf[0] == 's') {
+	int             currmode0 = currmode;
+
+	currmode = 0;
+	setbpath(xfpath, xboard);
+	stampfile(xfpath, &xfile);
+	if (author)
+	    strlcpy(xfile.owner, fhdr->owner, sizeof(xfile.owner));
+	else
+	    strlcpy(xfile.owner, cuser.userid, sizeof(xfile.owner));
+	strlcpy(xfile.title, xtitle, sizeof(xfile.title));
+	if (genbuf[0] == 'l') {
+	    xfile.filemode = FILE_LOCAL;
+	}
+	setuserfile(fname, fhdr->filename);
+	if (ent) {
+	    xptr = fopen(xfpath, "w");
+	    assert(xptr);
+
+	    strlcpy(save_title, xfile.title, sizeof(save_title));
+	    strlcpy(xfpath, currboard, sizeof(xfpath));
+	    strlcpy(currboard, xboard, sizeof(currboard));
+	    write_header(xptr);
+	    strlcpy(currboard, xfpath, sizeof(currboard));
+
+	    fprintf(xptr, "※ [本文轉錄自 %s 信箱]\n\n", cuser.userid);
+
+	    b_suckinfile(xptr, fname);
+	    addsignature(xptr, 0);
+	    fclose(xptr);
+	} else {
+	    unlink(xfpath);
+	    Link(fname, xfpath);
+	}
+
+	setbdir(fname, xboard);
+	append_record(fname, &xfile, sizeof(xfile));
+	setbtotal(getbnum(xboard));
+	if (!xfile.filemode)
+	    outgo_post(&xfile, xboard);
+	cuser.numposts++;
+	passwd_update(usernum, &cuser);
+	outs("文章轉錄完成");
+	pressanykey();
+	currmode = currmode0;
+    }
+    return FULLUPDATE;
+}
+
+int
+mail_man()
+{
+    char            buf[64], buf1[64];
+    if (HAS_PERM(PERM_MAILLIMIT)) {
+	int             mode0 = currutmp->mode;
+	int             stat0 = currstat;
+
+	sethomeman(buf, cuser.userid);
+	snprintf(buf1, sizeof(buf1), "%s 的信件夾", cuser.userid);
+	a_menu(buf1, buf, 1);
+	currutmp->mode = mode0;
+	currstat = stat0;
+	return FULLUPDATE;
+    }
+    return DONOTHING;
+}
+
+static int
+mail_cite(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            fpath[256];
+    char            title[TTLEN + 1];
+    static char     xboard[20];
+    char            buf[20];
+    int             bid;
+
+    setuserfile(fpath, fhdr->filename);
+    strlcpy(title, "◇ ", sizeof(title));
+    strncpy(title + 3, fhdr->title, TTLEN - 3);
+    title[TTLEN] = '\0';
+    a_copyitem(fpath, title, 0, 1);
+
+    if (cuser.userlevel >= PERM_BM) {
+	move(2, 0);
+	clrtoeol();
+	move(3, 0);
+	clrtoeol();
+	move(1, 0);
+
+	generalnamecomplete("輸入看板名稱 (直接Enter進入私人信件夾)：",
+			    buf, sizeof(buf),
+			    SHM->Bnumber,
+			    completeboard_compar,
+			    completeboard_permission,
+			    completeboard_getname);
+	if (*buf)
+	    strlcpy(xboard, buf, sizeof(xboard));
+	if (*xboard && ((bid = getbnum(xboard)) >= 0)){ /* XXXbid */
+	    setapath(fpath, xboard);
+	    setutmpmode(ANNOUNCE);
+	    a_menu(xboard, fpath, HAS_PERM(PERM_ALLBOARD) ? 2 :
+		   is_BM_cache(bid) ? 1 : 0);
+	} else {
+	    mail_man();
+	}
+	return FULLUPDATE;
+    } else {
+	mail_man();
+	return FULLUPDATE;
+    }
+}
+
+static int
+mail_save(int ent, fileheader_t * fhdr, char *direct)
+{
+    char            fpath[256];
+    char            title[TTLEN + 1];
+
+    if (HAS_PERM(PERM_MAILLIMIT)) {
+	setuserfile(fpath, fhdr->filename);
+	strlcpy(title, "◇ ", sizeof(title));
+	strncpy(title + 3, fhdr->title, TTLEN - 3);
+	title[TTLEN] = '\0';
+	a_copyitem(fpath, title, fhdr->owner, 1);
+	sethomeman(fpath, cuser.userid);
+	a_menu(cuser.userid, fpath, 1);
+	return FULLUPDATE;
+    }
+    return DONOTHING;
+}
+
+#ifdef OUTJOBSPOOL
+static int
+mail_waterball(int ent, fileheader_t * fhdr, char *direct)
+{
+    static char     address[60], cmode = 1;
+    char            fname[500], genbuf[200];
+    FILE           *fp;
+
+    if (!(strstr(fhdr->title, "熱線") && strstr(fhdr->title, "記錄"))) {
+	vmsg("必須是 熱線記錄 才能使用水球整理的唷!");
+	return 1;
+    }
+    if (!address[0])
+	strlcpy(address, cuser.email, sizeof(address));
+    move(b_lines - 8, 0);
+    outs("水球整理程式:\n"
+	 "系統將會按照和不同人丟的水球各自獨立\n"
+	 "於整點的時候 (尖鋒時段除外) 將資料整理好寄送給您\n\n\n");
+    if (address[0]) {
+	snprintf(genbuf, sizeof(genbuf), "寄給 [%s] 嗎(Y/N/Q)？[Y] ", address);
+	getdata(b_lines - 5, 0, genbuf, fname, 3, LCECHO);
+	if (fname[0] == 'q') {
+	    outmsg("取消處理");
+	    return 1;
+	}
+	if (fname[0] == 'n')
+	    address[0] = '\0';
+    }
+    if (!address[0]) {
+	getdata(b_lines - 5, 0, "請輸入郵件地址：", fname, 60, DOECHO);
+	if (fname[0] && strchr(fname, '.')) {
+	    strlcpy(address, fname, sizeof(address));
+	} else {
+	    vmsg("取消處理");
+	    return 1;
+	}
+    }
+    if (invalidaddr(address))
+	return -2;
+    if( strstr(address, ".bbs") && HAS_PERM(PERM_NOOUTMAIL) ){
+	move(b_lines - 4, 0);
+	outs("\n您必須要打開接受站外信, 水球整理系統才能寄入結果\n"
+	     "請麻煩到【郵件選單】按大寫 O改成接受站外信 (在右上角)\n"
+	     "再重新執行本功\能 :)\n");
+	vmsg("請打開站外信, 再重新執行本功\能");
+	return FULLUPDATE;
+    }
+
+    //snprintf(fname, sizeof(fname), "%d\n", cmode);
+    move(b_lines - 4, 0);
+    outs("系統提供兩種模式: \n"
+	 "模式 0: 精簡模式, 將不含顏色控制碼, 方便以純文字編輯器整理收藏\n"
+	 "模式 1: 華麗模式, 包含顏色控制碼等, 方便在 bbs上直接編輯收藏\n");
+    getdata(b_lines - 1, 0, "使用模式(0/1/Q)? [1]", fname, 3, LCECHO);
+    if (fname[0] == 'Q' || fname[0] == 'q') {
+	outmsg("取消處理");
+	return 1;
+    }
+    cmode = (fname[0] != '0' && fname[0] != '1') ? 1 : fname[0] - '0';
+
+    snprintf(fname, sizeof(fname), BBSHOME "/jobspool/water.src.%s-%d",
+	     cuser.userid, (int)now);
+    snprintf(genbuf, sizeof(genbuf), "cp " BBSHOME "/home/%c/%s/%s %s",
+	     cuser.userid[0], cuser.userid, fhdr->filename, fname);
+    system(genbuf);
+    /* dirty code ;x */
+    snprintf(fname, sizeof(fname), BBSHOME "/jobspool/water.des.%s-%d",
+	     cuser.userid, (int)now);
+    fp = fopen(fname, "wt");
+    assert(fp);
+    fprintf(fp, "%s\n%s\n%d\n", cuser.userid, address, cmode);
+    fclose(fp);
+    vmsg("設定完成, 系統將在下一個整點(尖鋒時段除外)將資料寄給您");
+    return FULLUPDATE;
+}
+#endif
+static struct onekey_t mail_comms[] = {
+    {'z', mail_man},
+    {'c', mail_cite},
+    {'s', mail_save},
+    {'d', mail_del},
+    {'D', del_range},
+    {'r', mail_read},
+    {'R', mail_reply},
+    {'E', mail_edit},
+    {'m', mail_mark},
+    {'O', mail_nooutmail},
+    {'T', edit_title},
+    {'x', m_forward},
+    {'X', mail_cross_post},
+    {Ctrl('G'), built_mail_index},	/* 修信箱 */
+    {'y', multi_reply},
+    {Ctrl('I'), m_idle},
+    {'h', m_help},
+#ifdef OUTJOBSPOOL
+    {'u', mail_waterball},
+#endif
+    {'\0', NULL}
+};
+
+int
+m_read()
+{
+    if (get_num_records(currmaildir, sizeof(fileheader_t))) {
+	curredit = EDIT_MAIL;
+	curredit &= ~EDIT_ITEM;
+	i_read(RMAIL, currmaildir, mailtitle, maildoent, mail_comms, -1);
+	curredit = 0;
+	currutmp->mailalert = load_mailalert(cuser.userid);
+	return 0;
+    } else {
+	outs("您沒有來信");
+	return XEASY;
+    }
+}
+
+/* 寄站內信 */
+static int
+send_inner_mail(char *fpath, char *title, char *receiver)
+{
+    char            genbuf[256];
+    fileheader_t    mymail;
+
+    if (!searchuser(receiver))
+	return -2;
+    sethomepath(genbuf, receiver);
+    stampfile(genbuf, &mymail);
+    if (!strcmp(receiver, cuser.userid)) {
+	strlcpy(mymail.owner, "[" BBSNAME "]", sizeof(mymail.owner));
+	mymail.filemode = FILE_READ;
+    } else
+	strlcpy(mymail.owner, cuser.userid, sizeof(mymail.owner));
+    strncpy(mymail.title, title, TTLEN);
+    unlink(genbuf);
+    Link(fpath, genbuf);
+    sethomedir(genbuf, receiver);
+    return do_append(genbuf, &mymail, sizeof(mymail));
+}
+
+#include <netdb.h>
+#include <pwd.h>
+#include <time.h>
+
+#ifndef USE_BSMTP
+static int
+bbs_sendmail(char *fpath, char *title, char *receiver)
+{
+    char           *ptr;
+    char            genbuf[256];
+    FILE           *fin, *fout;
+
+    /* 中途攔截 */
+    if ((ptr = strchr(receiver, ';'))) {
+	*ptr = '\0';
+    }
+    if ((ptr = strstr(receiver, str_mail_address)) || !strchr(receiver, '@')) {
+	char            hacker[20];
+	int             len;
+
+	if (strchr(receiver, '@')) {
+	    len = ptr - receiver;
+	    memcpy(hacker, receiver, len);
+	    hacker[len] = '\0';
+	} else
+	    strlcpy(hacker, receiver, sizeof(hacker));
+	return send_inner_mail(fpath, title, hacker);
+    }
+    /* Running the sendmail */
+    if (fpath == NULL) {
+	snprintf(genbuf, sizeof(genbuf),
+		 "/usr/sbin/sendmail %s > /dev/null", receiver);
+	fin = fopen("etc/confirm", "r");
+    } else {
+	snprintf(genbuf, sizeof(genbuf),
+		 "/usr/sbin/sendmail -f %s%s %s > /dev/null",
+		 cuser.userid, str_mail_address, receiver);
+	fin = fopen(fpath, "r");
+    }
+    fout = popen(genbuf, "w");
+    if (fin == NULL || fout == NULL) // XXX no fclose() if only one fopen succeed
+	return -1;
+
+    if (fpath)
+	fprintf(fout, "Reply-To: %s%s\nFrom: %s%s\n",
+		cuser.userid, str_mail_address, cuser.userid,
+		str_mail_address);
+    fprintf(fout, "To: %s\nSubject: %s\n", receiver, title);
+    fprintf(fout, "X-Disclaimer: " BBSNAME "對本信內容恕不負責。\n\n");
+
+    while (fgets(genbuf, 255, fin)) {
+	if (genbuf[0] == '.' && genbuf[1] == '\n')
+	    fputs(". \n", fout);
+	else
+	    fputs(genbuf, fout);
+    }
+    fclose(fin);
+    fprintf(fout, ".\n");
+    pclose(fout);
+    return 0;
+}
+#else				/* USE_BSMTP */
+
+int
+bsmtp(char *fpath, char *title, char *rcpt, int method)
+{
+    char            buf[80], *ptr;
+    time_t          chrono;
+    MailQueue       mqueue;
+
+    /* check if the mail is a inner mail */
+    if ((ptr = strstr(rcpt, str_mail_address)) || !strchr(rcpt, '@')) {
+	char            hacker[20];
+	int             len;
+
+	if (strchr(rcpt, '@')) {
+	    len = ptr - rcpt;
+	    memcpy(hacker, rcpt, len);
+	    hacker[len] = '\0';
+	} else
+	    strlcpy(hacker, rcpt, sizeof(hacker));
+	return send_inner_mail(fpath, title, hacker);
+    }
+    chrono = now;
+    if (method != MQ_JUSTIFY) {	/* 認證信 */
+	/* stamp the queue file */
+	strlcpy(buf, "out/", sizeof(buf));
+	for (;;) {
+	    snprintf(buf + 4, sizeof(buf) - 4, "M.%ld.A", ++chrono);
+	    if (!dashf(buf)) {
+		Link(fpath, buf);
+		break;
+	    }
+	}
+
+	fpath = buf;
+
+	strlcpy(mqueue.filepath, fpath, sizeof(mqueue.filepath));
+	strlcpy(mqueue.subject, title, sizeof(mqueue.subject));
+    }
+    /* setup mail queue */
+    mqueue.mailtime = chrono;
+    mqueue.method = method;
+    strlcpy(mqueue.sender, cuser.userid, sizeof(mqueue.sender));
+    strlcpy(mqueue.username, cuser.username, sizeof(mqueue.username));
+    strlcpy(mqueue.rcpt, rcpt, sizeof(mqueue.rcpt));
+    if (do_append("out/.DIR", (fileheader_t *) & mqueue, sizeof(mqueue)) < 0)
+	return 0;
+    return chrono;
+}
+#endif				/* USE_BSMTP */
+
+int
+doforward(char *direct, fileheader_t * fh, int mode)
+{
+    static char     address[60];
+    char            fname[500];
+    int             return_no;
+    char            genbuf[200];
+
+    if (!address[0])
+	strlcpy(address, cuser.email, sizeof(address));
+
+    if (address[0]) {
+	snprintf(genbuf, sizeof(genbuf),
+		 "確定轉寄給 [%s] 嗎(Y/N/Q)？[Y] ", address);
+	getdata(b_lines - 1, 0, genbuf, fname, 3, LCECHO);
+
+	if (fname[0] == 'q') {
+	    outmsg("取消轉寄");
+	    return 1;
+	}
+	if (fname[0] == 'n')
+	    address[0] = '\0';
+    }
+    if (!address[0]) {
+	do {
+	    getdata(b_lines - 1, 0, "請輸入轉寄地址：", fname, 60, DOECHO);
+	    if (fname[0]) {
+		if (strchr(fname, '.'))
+		    strlcpy(address, fname, sizeof(address));
+		else
+		    snprintf(address, sizeof(address),
+			     "%s.bbs@%s", fname, MYHOSTNAME);
+	    } else {
+		outmsg("取消轉寄");
+		return 1;
+	    }
+	} while (mode == 'Z' && strstr(address, MYHOSTNAME));
+    }
+    if (invalidaddr(address))
+	return -2;
+
+    snprintf(fname, sizeof(fname), "正轉寄給 %s, 請稍候...", address);
+    outmsg(fname);
+    move(b_lines - 1, 0);
+    refresh();
+
+    /* 追蹤使用者 */
+    if (HAS_PERM(PERM_LOGUSER)) {
+	char            msg[200];
+
+	snprintf(msg, sizeof(msg), "%s mailforward to %s at %s",
+		 cuser.userid, address, Cdate(&now));
+	log_user(msg);
+    }
+    if (mode == 'Z') {
+	snprintf(fname, sizeof(fname),
+		 TAR_PATH " cfz /tmp/home.%s.tgz home/%c/%s; "
+		 MUTT_PATH " -a /tmp/home.%s.tgz -s 'home.%s.tgz' '%s' </dev/null;"
+		 "rm /tmp/home.%s.tgz",
+		 cuser.userid, cuser.userid[0], cuser.userid,
+		 cuser.userid, cuser.userid, address, cuser.userid);
+	system(fname);
+	return 0;
+	snprintf(fname, sizeof(fname), TAR_PATH " cfz - home/%c/%s | "
+		"/usr/bin/uuencode %s.tgz > %s",
+		cuser.userid[0], cuser.userid, cuser.userid, direct);
+	system(fname);
+	strlcpy(fname, direct, sizeof(fname));
+    } else if (mode == 'U') {
+	char            tmp_buf[128];
+
+	snprintf(fname, sizeof(fname), "/tmp/bbs.uu%05d", currpid);
+	snprintf(tmp_buf, sizeof(tmp_buf),
+		 "/usr/bin/uuencode %s/%s uu.%05d > %s",
+		 direct, fh->filename, currpid, fname);
+	system(tmp_buf);
+    } else if (mode == 'F') {
+	char            tmp_buf[128];
+
+	snprintf(fname, sizeof(fname), "/tmp/bbs.f%05d", currpid);
+	snprintf(tmp_buf, sizeof(tmp_buf),
+		 "cp %s/%s %s", direct, fh->filename, fname);
+	system(tmp_buf);
+    } else
+	return -1;
+
+    return_no =
+#ifndef USE_BSMTP
+	bbs_sendmail(fname, fh->title, address);
+#else
+	bsmtp(fname, fh->title, address, mode);
+#endif
+    unlink(fname);
+    return (return_no);
+}
+
+int
+load_mailalert(char *userid)
+{
+    struct stat     st;
+    char            maildir[256];
+    int             fd;
+    register int    numfiles;
+    fileheader_t    my_mail;
+
+    sethomedir(maildir, userid);
+    if (!HAS_PERM(PERM_BASIC))
+	return 0;
+    if (stat(maildir, &st) < 0)
+	return 0;
+    numfiles = st.st_size / sizeof(fileheader_t);
+    if (numfiles <= 0)
+	return 0;
+
+    /* 看看有沒有信件還沒讀過？從檔尾回頭檢查，效率較高 */
+    if ((fd = open(maildir, O_RDONLY)) > 0) {
+	lseek(fd, st.st_size - sizeof(fileheader_t), SEEK_SET);
+	while (numfiles--) {
+	    read(fd, &my_mail, sizeof(fileheader_t));
+	    if (!(my_mail.filemode & FILE_READ)) {
+		close(fd);
+		return 1;
+	    }
+	    lseek(fd, -(off_t) 2 * sizeof(fileheader_t), SEEK_CUR);
+	}
+	close(fd);
+    }
+    return 0;
+}
+
+#ifdef  EMAIL_JUSTIFY
+static void
+mail_justify(userec_t muser)
+{
+    fileheader_t    mhdr;
+    char            title[128], buf1[80];
+    FILE           *fp;
+
+    sethomepath(buf1, muser.userid);
+    stampfile(buf1, &mhdr);
+    unlink(buf1);
+    strlcpy(mhdr.owner, cuser.userid, sizeof(mhdr.owner));
+    strncpy(mhdr.title, "[審核通過]", TTLEN);
+    mhdr.filemode = 0;
+
+    if (valid_ident(muser.email) && !invalidaddr(muser.email)) {
+	char            title[80], *ptr;
+	unsigned short  checksum;	/* 16-bit is enough */
+	char            ch;
+
+	checksum = searchuser(muser.userid);
+	ptr = muser.email;
+	while ((ch = *ptr++)) {
+	    if (ch <= ' ')
+		break;
+	    if (ch >= 'A' && ch <= 'Z')
+		ch |= 0x20;
+	    checksum = (checksum << 1) ^ ch;
+	}
+
+	snprintf(title, sizeof(title), "[PTT BBS]To %s(%d:%d) [User Justify]",
+		muser.userid, getuser(muser.userid) + MAGIC_KEY, checksum);
+	if (
+#ifndef USE_BSMTP
+	    bbs_sendmail(NULL, title, muser.email)
+#else
+	    bsmtp(NULL, title, muser.email, MQ_JUSTIFY);
+#endif
+	<0)
+	    Link("etc/bademail", buf1);
+	else
+	Link("etc/replyemail", buf1);
+    } else
+	Link("etc/bademail", buf1);
+    sethomedir(title, muser.userid);
+    append_record(title, &mhdr, sizeof(mhdr));
+}
+#endif				/* EMAIL_JUSTIFY */
diff --git a/pttbbs/mbbsd/mbbsd.c b/pttbbs/mbbsd/mbbsd.c
new file mode 100644
index 00000000..f4026102
--- /dev/null
+++ b/pttbbs/mbbsd/mbbsd.c
@@ -0,0 +1,1372 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define SOCKET_QLEN 4
+#define TH_LOW 100
+#define TH_HIGH 120
+
+static void     do_aloha(char *hello);
+
+#if 0
+static jmp_buf  byebye;
+#endif
+
+static char     remoteusername[40] = "?";
+
+static unsigned char enter_uflag;
+static int      use_shell_login_mode = 0;
+
+static struct sockaddr_in xsin;
+
+/* set signal handler, which won't be reset once signal comes */
+static void
+signal_restart(int signum, void (*handler) (int))
+{
+    struct sigaction act;
+    act.sa_handler = handler;
+    memset(&(act.sa_mask), 0, sizeof(sigset_t));
+    act.sa_flags = 0;
+    sigaction(signum, &act, NULL);
+}
+
+static void
+start_daemon()
+{
+    int             n, fd;
+
+    /*
+     * More idiot speed-hacking --- the first time conversion makes the C
+     * library open the files containing the locale definition and time zone.
+     * If this hasn't happened in the parent process, it happens in the
+     * children, once per connection --- and it does add up.
+     */
+    time_t          dummy = time(NULL);
+    struct tm      *dummy_time = localtime(&dummy);
+    char            buf[32];
+
+    strftime(buf, sizeof(buf), "%d/%b/%Y:%H:%M:%S", dummy_time);
+
+#ifndef NO_FORK
+    if ((n = fork())) {
+	exit(0);
+    }
+#endif
+
+    /* rocker.011018: it's a good idea to close all unexcept fd!! */
+    n = getdtablesize();
+    while (n)
+	close(--n);
+
+    /* in2: open /dev/null to fd:2 */
+    if( ((fd = open("/dev/null", O_WRONLY)) >= 0) && fd != 2 ){
+	dup2(fd, 2);
+	close(fd);
+    }
+
+    /*
+     * rocker.011018: we don't need to remember original tty, so request a
+     * new session id
+     */
+    setsid();
+
+    /*
+     * rocker.011018: after new session, we should insure the process is
+     * clean daemon
+     */
+#ifndef NO_FORK
+    if ((n = fork())) {
+	exit(0);
+    }
+#endif
+
+    if(getenv("SSH_CLIENT"))
+      unsetenv("SSH_CLIENT");
+}
+
+static void
+reapchild(int sig)
+{
+    int             state, pid;
+
+    while ((pid = waitpid(-1, &state, WNOHANG | WUNTRACED)) > 0);
+}
+
+#define BANNER \
+"【" BBSNAME "】◎ 台大流行網 ◎(" MYHOSTNAME ") 調幅(" MYIP ") "
+/* check load and print approriate banner string in buf */
+static int
+chkload(char *buf, int length)
+{
+    char            cpu_load[30];
+    int             i;
+
+    i = cpuload(cpu_load);
+
+    buf[0] = 0;
+#ifdef INSCREEN
+    if( i > MAX_CPULOAD ){
+	strlcpy(buf, BANNER "\r\n系統過載, 請稍後再來\r\n", length);
+    }
+#else
+    snprintf(buf, length, BANNER "%s\r\n",
+	    (i > MAX_CPULOAD ? "高負荷量，請稍後再來(請利用port 3000~3010連線)" : ""));
+#endif
+    return i > MAX_CPULOAD ? 1 : 0;
+}
+
+void
+log_user(char *msg)
+{
+    char            filename[200];
+
+    snprintf(filename, sizeof(filename), BBSHOME "/home/%c/%s/USERLOG",
+	     cuser.userid[0], cuser.userid);
+    log_file(filename, msg);
+}
+
+
+void
+log_usies(char *mode, char *mesg)
+{
+    char            genbuf[200];
+
+    if (!mesg)
+	snprintf(genbuf, sizeof(genbuf),
+		 cuser.userid[0] ? "%s %s %-12s Stay:%d (%s)" :
+		 "%s %s %s Stay:%d (%s)",
+		 Cdate(&now), mode, cuser.userid,
+		 (int)(now - login_start_time) / 60, cuser.username);
+    else
+	snprintf(genbuf, sizeof(genbuf),
+		 cuser.userid[0] ? "%s %s %-12s %s" : "%s %s %s%s",
+		 Cdate(&now), mode, cuser.userid, mesg);
+    log_file(FN_USIES, genbuf);
+
+    /* 追蹤使用者 */
+    if (HAS_PERM(PERM_LOGUSER))
+	log_user(genbuf);
+}
+
+static void
+setflags(int mask, int value)
+{
+    if (value)
+	cuser.uflag |= mask;
+    else
+	cuser.uflag &= ~mask;
+}
+
+void
+u_exit(char *mode)
+{
+    //userec_t xuser;
+    int             diff = (time(0) - login_start_time) / 60;
+
+    /* close fd 0 & 1 to terminate network */
+    close(0);
+    close(1);
+
+    reload_money();
+    auto_backup();
+    setflags(PAGER_FLAG, currutmp->pager != 1);
+    setflags(CLOAK_FLAG, currutmp->invisible);
+    save_brdbuf();
+
+    cuser.invisible = currutmp->invisible;
+    cuser.pager = currutmp->pager;
+    memcpy(cuser.mind, currutmp->mind, 4);
+    setutmpbid(0);
+    if (!(HAS_PERM(PERM_SYSOP) && HAS_PERM(PERM_DENYPOST)) &&
+	!currutmp->invisible)
+	do_aloha("<<下站通知>> -- 我走囉！");
+
+    purge_utmp(currutmp);
+    if ((cuser.uflag != enter_uflag) || (currmode & MODE_DIRTY) || diff) {
+	if (!diff && cuser.numlogins)
+	    cuser.numlogins = --cuser.numlogins;
+	/* Leeym 上站停留時間限制式 */
+    }
+    passwd_update(usernum, &cuser);
+    log_usies(mode, NULL);
+}
+
+void
+system_abort()
+{
+    if (currmode)
+	u_exit("ABORT");
+
+    clear();
+    refresh();
+    fprintf(stdout, "謝謝光臨, 記得常來喔 !\n");
+    exit(0);
+}
+
+void
+abort_bbs(int sig)
+{
+    if (currmode)
+	u_exit("AXXED");
+    exit(0);
+}
+
+static void
+abort_bbs_debug(int sig)
+{
+#ifdef DEBUGSLEEP
+    static int      reentrant = 0;
+
+    if (!reentrant) {
+	int             i;
+	/* close all file descriptors (including the network connection) */
+	for (i = 0; i < 256; ++i)
+	    close(i);
+	reentrant = 1;
+	if (currmode)
+	    u_exit("AXXED");
+	setproctitle("debug me!(%d)(%s,%d)", sig, cuser.userid, currstat);
+	sleep(3600);		/* wait 60 mins for debug */
+    }
+#endif
+    exit(0);
+}
+
+/* 登錄 BBS 程式 */
+static void
+mysrand()
+{
+    srand(time(NULL) + getpid());	/* 時間跟 pid 當 rand 的 seed */
+}
+
+int
+dosearchuser(char *userid)
+{
+    if ((usernum = getuser(userid)))
+	memcpy(&cuser, &xuser, sizeof(cuser));
+    else
+	memset(&cuser, 0, sizeof(cuser));
+    return usernum;
+}
+
+static void
+talk_request(int sig)
+{
+    bell();
+    bell();
+    if (currutmp->msgcount) {
+	char            buf[200];
+	char            timebuf[100];
+	time_t          now = time(0);
+
+	snprintf(buf, sizeof(buf),
+		 "\033[33;41m★%s\033[34;47m [%s] %s \033[0m",
+		 SHM->uinfo[currutmp->destuip].userid, my_ctime(&now,timebuf,sizeof(timebuf)),
+		 (currutmp->sig == 2) ? "重要消息廣播！(請Ctrl-U,l查看熱訊記錄)"
+		 : "呼叫、呼叫，聽到請回答");
+	move(0, 0);
+	clrtoeol();
+	outs(buf);
+	refresh();
+    } else {
+	unsigned char   mode0 = currutmp->mode;
+	char            c0 = currutmp->chatid[0];
+	screenline_t   *screen0 = calloc(t_lines, sizeof(screenline_t));
+
+	currutmp->mode = 0;
+	currutmp->chatid[0] = 1;
+	memcpy(screen0, big_picture, t_lines * sizeof(screenline_t));
+	talkreply();
+	currutmp->mode = mode0;
+	currutmp->chatid[0] = c0;
+	memcpy(big_picture, screen0, t_lines * sizeof(screenline_t));
+	free(screen0);
+	redoscr();
+    }
+}
+
+void
+show_call_in(int save, int which)
+{
+    char            buf[200];
+    snprintf(buf, sizeof(buf), "\033[1;33;46m★%s\033[37;45m %s \033[m",
+	     currutmp->msgs[which].userid, currutmp->msgs[which].last_call_in);
+    move(b_lines, 0);
+    clrtoeol();
+    refresh();
+    outmsg(buf);
+
+    if (save) {
+	char            genbuf[200];
+	time_t          now;
+	if (!fp_writelog) {
+	    sethomefile(genbuf, cuser.userid, fn_writelog);
+	    fp_writelog = fopen(genbuf, "a");
+	}
+	if (fp_writelog) {
+	    time(&now);
+	    fprintf(fp_writelog, "%s [%s]\n", buf, Cdatelite(&now));
+	}
+    }
+}
+
+static int
+add_history_water(water_t * w, msgque_t * msg)
+{
+    memcpy(&w->msg[w->top], msg, sizeof(msgque_t));
+    w->top++;
+    w->top %= WATERMODE(WATER_OFO) ? 5 : MAX_REVIEW;
+
+    if (w->count < MAX_REVIEW)
+	w->count++;
+
+    return w->count;
+}
+
+static int
+add_history(msgque_t * msg)
+{
+    int             i = 0, j, waterinit = 0;
+    water_t        *tmp;
+    if (WATERMODE(WATER_ORIG) || WATERMODE(WATER_NEW))
+	add_history_water(&water[0], msg);
+    if (WATERMODE(WATER_NEW) || WATERMODE(WATER_OFO)) {
+	for (i = 0; i < 5 && swater[i]; i++)
+	    if (swater[i]->pid == msg->pid)
+		break;
+	if (i == 5) {
+	    waterinit = 1;
+	    i = 4;
+	    memset(swater[4], 0, sizeof(water_t));
+	} else if (!swater[i]) {
+	    water_usies = i + 1;
+	    swater[i] = &water[i + 1];
+	    waterinit = 1;
+	}
+	tmp = swater[i];
+
+	if (waterinit) {
+	    memcpy(swater[i]->userid, msg->userid, sizeof(swater[i]->userid));
+	    swater[i]->pid = msg->pid;
+	}
+	if (!swater[i]->uin)
+	    swater[i]->uin = currutmp;
+
+	for (j = i; j > 0; j--)
+	    swater[j] = swater[j - 1];
+	swater[0] = tmp;
+	add_history_water(swater[0], msg);
+    }
+    if (WATERMODE(WATER_ORIG) || WATERMODE(WATER_NEW)) {
+	if (watermode > 0 &&
+	    (water_which == swater[0] || water_which == &water[0])) {
+	    if (watermode < water_which->count)
+		watermode++;
+	    t_display_new();
+	}
+    }
+    return i;
+}
+
+void
+write_request(int sig)
+{
+    int             i;
+
+    if (WATERMODE(WATER_OFO)) {
+	/*
+	 * sig = SIGUSR2 waterball come in 0       flush to water[]  (by
+	 * my_write2())
+	 */
+	if (sig != 0) {
+	    if (wmofo == 0)	/* 正在回水球 */
+		wmofo = 1;
+	    bell();
+	    show_call_in(1, currutmp->msgcount - 1);
+	    refresh();
+	}
+	if (sig == 0 ||		/* 回水球的時候又有水球進來, 回完後一次寫回去  */
+	    wmofo == -1) {	/* 不在回水球模式                              */
+	    do {
+		add_history(&currutmp->msgs[0]);
+		if (currutmp->msgcount--)
+		    for (i = 0; i < currutmp->msgcount; i++)
+			currutmp->msgs[i] = currutmp->msgs[i + 1];
+	    }
+	    while (currutmp->msgcount);
+	    currutmp->msgcount = 0;
+	}
+    } else {
+	if (currutmp->mode != 0 &&
+	    currutmp->pager != 0 &&
+	    cuser.userlevel != 0 &&
+	    currutmp->msgcount != 0 &&
+	    currutmp->mode != TALK &&
+	    currutmp->mode != EDITING &&
+	    currutmp->mode != CHATING &&
+	    currutmp->mode != PAGE &&
+	    currutmp->mode != IDLE &&
+	    currutmp->mode != MAILALL && currutmp->mode != MONITOR) {
+	    char            c0 = currutmp->chatid[0];
+	    int             currstat0 = currstat;
+	    unsigned char   mode0 = currutmp->mode;
+
+	    currutmp->mode = 0;
+	    currutmp->chatid[0] = 2;
+	    currstat = HIT;
+
+	    do {
+		bell();
+		show_call_in(1, 0);
+		igetch();
+		currutmp->msgcount--;
+		if (currutmp->msgcount >= MAX_MSGS) {
+		    /* this causes chaos... jochang */
+		    raise(SIGFPE);
+		}
+		add_history(&currutmp->msgs[0]);
+		for (i = 0; i < currutmp->msgcount; i++)
+		    currutmp->msgs[i] = currutmp->msgs[i + 1];
+	    }
+	    while (currutmp->msgcount);
+	    currutmp->chatid[0] = c0;
+	    currutmp->mode = mode0;
+	    currstat = currstat0;
+	} else {
+	    bell();
+	    show_call_in(1, 0);
+	    add_history(&currutmp->msgs[0]);
+
+	    refresh();
+	    currutmp->msgcount = 0;
+	}
+    }
+}
+
+static void
+multi_user_check()
+{
+    register userinfo_t *ui;
+    register pid_t  pid;
+    char            genbuf[3];
+
+    if (HAS_PERM(PERM_SYSOP))
+	return;			/* don't check sysops */
+
+    if (cuser.userlevel) {
+	if (!(ui = (userinfo_t *) search_ulist(usernum)))
+	    return;		/* user isn't logged in */
+
+	pid = ui->pid;
+	if (!pid /* || (kill(pid, 0) == -1) */ )
+	    return;		/* stale entry in utmp file */
+
+	getdata(b_lines - 1, 0, "您想刪除其他重複的 login (Y/N)嗎？[Y] ",
+		genbuf, 3, LCECHO);
+
+	if (genbuf[0] != 'n') {
+	    if (pid > 0)
+		kill(pid, SIGHUP);
+	    log_usies("KICK ", cuser.username);
+	} else {
+	    if (search_ulistn(usernum, 3) != NULL)
+		system_abort();	/* Goodbye(); */
+	}
+    } else {
+	/* allow multiple guest user */
+	if (search_ulistn(usernum, 100) != NULL) {
+	    outs("\n抱歉，目前已有太多 guest 在站上, 請用new註冊。\n");
+	    pressanykey();
+	    oflush();
+	    exit(1);
+	}
+    }
+}
+
+/* bad login */
+static char     str_badlogin[] = "logins.bad";
+
+static void
+logattempt(char *uid, char type)
+{
+    char            fname[40];
+    int             fd, len;
+    char            genbuf[200];
+
+    snprintf(genbuf, sizeof(genbuf), "%c%-12s[%s] %s@%s\n", type, uid,
+	    Cdate(&login_start_time), remoteusername, fromhost);
+    len = strlen(genbuf);
+    if ((fd = open(str_badlogin, O_WRONLY | O_CREAT | O_APPEND, 0644)) > 0) {
+	write(fd, genbuf, len);
+	close(fd);
+    }
+    if (type == '-') {
+	snprintf(genbuf, sizeof(genbuf),
+		 "[%s] %s\n", Cdate(&login_start_time), fromhost);
+	len = strlen(genbuf);
+	sethomefile(fname, uid, str_badlogin);
+	if ((fd = open(fname, O_WRONLY | O_CREAT | O_APPEND, 0644)) > 0) {
+	    write(fd, genbuf, len);
+	    close(fd);
+	}
+    }
+}
+
+static void
+login_query()
+{
+    char            uid[IDLEN + 1], passbuf[PASSLEN];
+    int             attempts;
+    char            genbuf[200];
+    resolve_garbage();
+    now = time(0);
+
+#ifdef DEBUG
+    move(1, 0);
+    prints("debugging mode\ncurrent pid: %d\n", getpid());
+#else
+    show_file("etc/Welcome", 1, -1, NO_RELOAD);
+#endif
+    output("1", 1);
+
+    /* hint */
+
+    attempts = 0;
+    while (1) {
+	if (attempts++ >= LOGINATTEMPTS) {
+	    more("etc/goodbye", NA);
+	    pressanykey();
+	    exit(1);
+	}
+#ifdef DEBUG
+	move(19, 0);
+	prints("current pid: %d ", getpid());
+#endif
+	getdata(20, 0, "請輸入代號，或以[guest]參觀，以[new]註冊：",
+		uid, sizeof(uid), DOECHO);
+	if (strcasecmp(uid, str_new) == 0) {
+#ifdef LOGINASNEW
+	    new_register();
+	    break;
+#else
+	    outs("本系統目前無法以 new 註冊, 請用 guest 進入\n");
+	    continue;
+#endif
+	} else if (uid[0] == '\0' || !dosearchuser(uid)) {
+	    outs(err_uid);
+	} else if (strcmp(uid, STR_GUEST)) {
+	    getdata(21, 0, MSG_PASSWD,
+		    passbuf, sizeof(passbuf), NOECHO);
+	    passbuf[8] = '\0';
+
+	    if (!checkpasswd(cuser.passwd, passbuf)
+		 /* || (HAS_PERM(PERM_SYSOP) && !use_shell_login_mode) */ ) {
+		logattempt(cuser.userid, '-');
+		outs(ERR_PASSWD);
+	    } else {
+		logattempt(cuser.userid, ' ');
+		if (strcasecmp("SYSOP", cuser.userid) == 0)
+		    cuser.userlevel = PERM_BASIC | PERM_CHAT | PERM_PAGE |
+			PERM_POST | PERM_LOGINOK | PERM_MAILLIMIT |
+			PERM_CLOAK | PERM_SEECLOAK | PERM_XEMPT |
+			PERM_DENYPOST | PERM_BM | PERM_ACCOUNTS |
+			PERM_CHATROOM | PERM_BOARD | PERM_SYSOP | PERM_BBSADM;
+		break;
+	    }
+	} else {		/* guest */
+	    cuser.userlevel = 0;
+	    cuser.uflag = COLOR_FLAG | PAGER_FLAG | BRDSORT_FLAG | MOVIE_FLAG;
+	    break;
+	}
+    }
+    multi_user_check();
+    sethomepath(genbuf, cuser.userid);
+    mkdir(genbuf, 0755);
+}
+
+void
+add_distinct(char *fname, char *line)
+{
+    FILE           *fp;
+    int             n = 0;
+
+    if ((fp = fopen(fname, "a+"))) {
+	char            buffer[80];
+	char            tmpname[100];
+	FILE           *fptmp;
+
+	strlcpy(tmpname, fname, sizeof(tmpname));
+	strcat(tmpname, "_tmp");
+	if (!(fptmp = fopen(tmpname, "w"))) {
+	    fclose(fp);
+	    return;
+	}
+	rewind(fp);
+	while (fgets(buffer, 80, fp)) {
+	    char           *p = buffer + strlen(buffer) - 1;
+
+	    if (p[-1] == '\n' || p[-1] == '\r')
+		p[-1] = 0;
+	    if (!strcmp(buffer, line))
+		break;
+	    sscanf(buffer + strlen(buffer) + 2, "%d", &n);
+	    fprintf(fptmp, "%s%c#%d\n", buffer, 0, n);
+	}
+
+	if (feof(fp))
+	    fprintf(fptmp, "%s%c#1\n", line, 0);
+	else {
+	    sscanf(buffer + strlen(buffer) + 2, "%d", &n);
+	    fprintf(fptmp, "%s%c#%d\n", buffer, 0, n + 1);
+	    while (fgets(buffer, 80, fp)) {
+		sscanf(buffer + strlen(buffer) + 2, "%d", &n);
+		fprintf(fptmp, "%s%c#%d\n", buffer, 0, n);
+	    }
+	}
+	fclose(fp);
+	fclose(fptmp);
+	unlink(fname);
+	rename(tmpname, fname);
+    }
+}
+
+void
+del_distinct(char *fname, char *line)
+{
+    FILE           *fp;
+    int             n = 0;
+
+    if ((fp = fopen(fname, "r"))) {
+	char            buffer[80];
+	char            tmpname[100];
+	FILE           *fptmp;
+
+	strlcpy(tmpname, fname, sizeof(tmpname));
+	strcat(tmpname, "_tmp");
+	if (!(fptmp = fopen(tmpname, "w"))) {
+	    fclose(fp);
+	    return;
+	}
+	rewind(fp);
+	while (fgets(buffer, 80, fp)) {
+	    char           *p = buffer + strlen(buffer) - 1;
+
+	    if (p[-1] == '\n' || p[-1] == '\r')
+		p[-1] = 0;
+	    if (!strcmp(buffer, line))
+		break;
+	    sscanf(buffer + strlen(buffer) + 2, "%d", &n);
+	    fprintf(fptmp, "%s%c#%d\n", buffer, 0, n);
+	}
+
+	if (!feof(fp))
+	    while (fgets(buffer, 80, fp)) {
+		sscanf(buffer + strlen(buffer) + 2, "%d", &n);
+		fprintf(fptmp, "%s%c#%d\n", buffer, 0, n);
+	    }
+	fclose(fp);
+	fclose(fptmp);
+	unlink(fname);
+	rename(tmpname, fname);
+    }
+}
+
+#ifdef WHERE
+static int
+where(char *from)
+{
+    register int    i = 0, count = 0, j;
+
+    for (j = 0; j < SHM->top; j++) {
+	char           *token = strtok(SHM->domain[j], "&");
+
+	i = 0;
+	count = 0;
+	while (token) {
+	    if (strstr(from, token))
+		count++;
+	    token = strtok(NULL, "&");
+	    i++;
+	}
+	if (i == count)
+	    break;
+    }
+    if (i != count)
+	return 0;
+    return j;
+}
+#endif
+
+static void
+check_BM(void)
+{
+    /* XXX: -_- */
+    int             i;
+
+    cuser.userlevel &= ~PERM_BM;
+    for( i = 0 ; i < numboards ; ++i )
+	if( is_BM_cache(i + 1) ) /* XXXbid */
+	    return;
+    //for (i = 0, bhdr = bcache; i < numboards && !is_BM(bhdr->BM); i++, bhdr++);
+}
+
+static void
+setup_utmp(int mode)
+{
+    userinfo_t      uinfo;
+    memset(&uinfo, 0, sizeof(uinfo));
+    uinfo.pid = currpid = getpid();
+    uinfo.uid = usernum;
+    uinfo.mode = currstat = mode;
+    uinfo.mailalert = load_mailalert(cuser.userid);
+
+    uinfo.userlevel = cuser.userlevel;
+    uinfo.sex = cuser.sex % 8;
+    uinfo.lastact = time(NULL);
+    strlcpy(uinfo.userid, cuser.userid, sizeof(uinfo.userid));
+    //strlcpy(uinfo.realname, cuser.realname, sizeof(uinfo.realname));
+    strlcpy(uinfo.username, cuser.username, sizeof(uinfo.username));
+    strlcpy(uinfo.from, fromhost, sizeof(uinfo.from));
+    uinfo.five_win = cuser.five_win;
+    uinfo.five_lose = cuser.five_lose;
+    uinfo.five_tie = cuser.five_tie;
+    uinfo.chc_win = cuser.chc_win;
+    uinfo.chc_lose = cuser.chc_lose;
+    uinfo.chc_tie = cuser.chc_tie;
+    uinfo.invisible = cuser.invisible % 2;
+    uinfo.pager = cuser.pager % 5;
+    memcpy(uinfo.mind, cuser.mind, 4);
+#ifdef WHERE
+    uinfo.from_alias = where(fromhost);
+#endif
+#ifndef FAST_LOGIN
+    setuserfile(buf, "remoteuser");
+
+    strlcpy(remotebuf, fromhost, sizeof(fromhost));
+    strcat(remotebuf, ctime(&now));
+    remotebuf[strlen(remotebuf) - 1] = 0;
+    add_distinct(buf, remotebuf);
+#endif
+    if (enter_uflag & CLOAK_FLAG)
+	uinfo.invisible = YEA;
+    getnewutmpent(&uinfo);
+    SHM->UTMPneedsort = 1;
+    if (!(cuser.numlogins % 20) && cuser.userlevel & PERM_BM)
+	check_BM();		/* Ptt 自動取下離職板主權力 */
+#ifndef _BBS_UTIL_C_
+    friend_load();
+    nice(3);
+#endif
+}
+
+static void
+user_login()
+{
+    char            i;
+    char            genbuf[200];
+    struct tm      *ptime, *tmp;
+    time_t          now;
+    int             a, ifbirth;
+
+    /* get local time */
+    time(&now);
+    ptime = localtime(&now);
+    
+    /* 初始化: random number 增加user跟時間的差異 */
+    mysrand();
+
+    /* show welcome_login */
+    ifbirth = (ptime->tm_mday == cuser.day &&
+	       ptime->tm_mon + 1 == cuser.month);
+    if (ifbirth)
+	more("etc/Welcome_birth", NA);
+    else {
+#ifndef MULTI_WELCOME_LOGIN
+	more("etc/Welcome_login", NA);
+#else
+	if( SHM->GV2.e.nWelcomes ){
+	    char            buf[80];
+	    snprintf(buf, sizeof(buf), "etc/Welcome_login.%d",
+		     (int)login_start_time % SHM->GV2.e.nWelcomes);
+	    more(buf, NA);
+	}
+#endif
+    }
+
+    log_usies("ENTER", fromhost);
+    setproctitle("%s: %s", margs, cuser.userid);
+    resolve_fcache();
+    resolve_boards();
+    memset(&water[0], 0, sizeof(water_t) * 6);
+    strlcpy(water[0].userid, " 全部 ", sizeof(water[0].userid));
+    /* 初始化 uinfo、flag、mode */
+    setup_utmp(LOGIN);
+    currmode = MODE_STARTED;
+    enter_uflag = cuser.uflag;
+    currutmp->birth = ifbirth;
+
+    tmp = localtime(&cuser.lastlogin);
+    if ((a = SHM->UTMPnumber) > SHM->max_user) {
+	SHM->max_user = a;
+	SHM->max_time = now;
+    }
+    init_brdbuf();
+    brc_initial(DEFAULT_BOARD);
+    set_board();
+
+    if (!(HAS_PERM(PERM_SYSOP) && HAS_PERM(PERM_DENYPOST)) &&
+	!currutmp->invisible)
+	do_aloha("<<上站通知>> -- 我來啦！");
+
+    if (cuser.userlevel) {	/* not guest */
+	move(t_lines - 4, 0);
+	prints("\033[m      歡迎您第 \033[1;33m%d\033[0;37m 度拜訪本站，"
+	       "上次您是從 \033[1;33m%s\033[0;37m 連往本站，\n"
+	       "     我記得那天是 \033[1;33m%s\033[0;37m。\n",
+	       ++cuser.numlogins, cuser.lasthost, Cdate(&cuser.lastlogin));
+	pressanykey();
+
+	if (currutmp->birth && tmp->tm_mday != ptime->tm_mday) {
+	    more("etc/birth.post", YEA);
+	    brc_initial("WhoAmI");
+	    set_board();
+	    do_post();
+	}
+	setuserfile(genbuf, str_badlogin);
+	if (more(genbuf, NA) != -1) {
+	    move(b_lines - 3, 0);
+	    prints("通常並沒有辦法知道該ip是誰所有, "
+		   "以及其意圖(是不小心按錯或有意測您密碼)\n"
+		   "若您有帳號被盜用疑慮, 請經常更改您的密碼或使用加密連線");
+	    if (getans("您要刪除以上錯誤嘗試的記錄嗎(Y/N)?[Y]") != 'n')
+		unlink(genbuf);
+	}
+	check_register();
+	strncpy(cuser.lasthost, fromhost, 16);
+	cuser.lasthost[15] = '\0';
+	restore_backup();
+    } else if (!strcmp(cuser.userid, STR_GUEST)) {
+	char           *nick[13] = {
+	    "椰子", "貝殼", "內衣", "寶特瓶", "翻車魚",
+	    "樹葉", "浮萍", "鞋子", "潛水艇", "魔王",
+	    "鐵罐", "考卷", "大美女"
+	};
+	char           *name[13] = {
+	    "大王椰子", "鸚鵡螺", "比基尼", "可口可樂", "仰泳的魚",
+	    "憶", "高岡屋", "AIR Jordon", "紅色十月號", "批踢踢",
+	    "SASAYA椰奶", "鴨蛋", "布魯克鱈魚香絲"
+	};
+	char           *addr[13] = {
+	    "天堂樂園", "大海", "綠島小夜曲", "美國", "綠色珊瑚礁",
+	    "遠方", "原本海", "NIKE", "蘇聯", "男八618室",
+	    "愛之味", "天上", "藍色珊瑚礁"
+	};
+	i = login_start_time % 13;
+	snprintf(cuser.username, sizeof(cuser.username),
+		 "海邊漂來的%s", nick[(int)i]);
+	strlcpy(currutmp->username, cuser.username,
+		sizeof(currutmp->username));
+	strlcpy(cuser.realname, name[(int)i], sizeof(cuser.realname));
+	//strlcpy(currutmp->realname, cuser.realname, sizeof(currutmp->realname));
+	strlcpy(cuser.address, addr[(int)i], sizeof(cuser.address));
+	cuser.sex = i % 8;
+	currutmp->pager = 2;
+	pressanykey();
+    } else
+	pressanykey();
+
+    if (!PERM_HIDE(currutmp))
+	cuser.lastlogin = login_start_time;
+
+#ifdef FOREIGN_REG
+    if ((cuser.uflag2 & FOREIGN) && !(cuser.uflag2 & LIVERIGHT)){
+	if (login_start_time - cuser.firstlogin > (FOREIGN_REG_DAY - 5) * 24 * 3600){
+	    mail_muser(cuser, "[出入境管理局]", "etc/foreign_expired_warn");
+	}
+	else if (login_start_time - cuser.firstlogin > FOREIGN_REG_DAY * 24 * 3600){
+	    cuser.userlevel &= ~(PERM_LOGINOK | PERM_POST);
+	    vmsg("警告：請至出入境管理局申請永久居留");
+	}
+    }
+#endif
+    passwd_update(usernum, &cuser);
+
+    for (i = 0; i < NUMVIEWFILE; i++)
+	if ((cuser.loginview >> i) & 1)
+	    more(loginview_file[(int)i][0], YEA);
+}
+
+static void
+do_aloha(char *hello)
+{
+    FILE           *fp;
+    char            userid[80];
+    char            genbuf[200];
+
+    setuserfile(genbuf, "aloha");
+    if ((fp = fopen(genbuf, "r"))) {
+	snprintf(genbuf, sizeof(genbuf), hello);
+	while (fgets(userid, 80, fp)) {
+	    userinfo_t     *uentp;
+	    if ((uentp = (userinfo_t *) search_ulist_userid(userid)) && 
+		    isvisible(uentp, currutmp)) {
+		my_write(uentp->pid, genbuf, uentp->userid, 2, NULL);
+	    }
+	}
+	fclose(fp);
+    }
+}
+
+static void
+do_term_init()
+{
+    term_init();
+    initscr();
+    if(use_shell_login_mode)
+	raise(SIGWINCH);
+}
+
+inline static void
+start_client()
+{
+#ifdef CPULIMIT
+    struct rlimit   rml;
+    rml.rlim_cur = CPULIMIT * 60;
+    rml.rlim_max = CPULIMIT * 60;
+    setrlimit(RLIMIT_CPU, &rml);
+#endif
+
+    /* system init */
+    nice(2);			/* Ptt: lower priority */
+    login_start_time = time(0);
+    currmode = 0;
+
+    signal(SIGHUP, abort_bbs);
+    signal(SIGTERM, abort_bbs);
+    signal(SIGPIPE, abort_bbs);
+
+    signal(SIGINT, abort_bbs_debug);
+    signal(SIGQUIT, abort_bbs_debug);
+    signal(SIGILL, abort_bbs_debug);
+    signal(SIGABRT, abort_bbs_debug);
+    signal(SIGFPE, abort_bbs_debug);
+    signal(SIGBUS, abort_bbs_debug);
+    signal(SIGSEGV, abort_bbs_debug);
+
+    signal_restart(SIGUSR1, talk_request);
+    signal_restart(SIGUSR2, write_request);
+
+    dup2(0, 1);
+
+    /* initialize passwd semaphores */
+    if (passwd_init())
+	exit(1);
+
+    do_term_init();
+    signal(SIGALRM, abort_bbs);
+    alarm(600);
+    login_query();		/* Ptt 加上login time out */
+    user_login();
+    m_init();
+
+    if (now - SHM->close_vote_time > 86400)
+	//改為一天一次
+    {
+	b_closepolls();
+	SHM->close_vote_time = now;
+    }
+    if (!(cuser.uflag & COLOR_FLAG))
+	showansi = 0;
+    signal(SIGALRM, SIG_IGN);
+    if (chkmailbox())
+	m_read();
+
+    domenu(MMENU, "主功\能表", (currutmp->mailalert ? 'M' : 'C'), cmdlist);
+}
+
+/* FSA (finite state automata) for telnet protocol */
+static void
+telnet_init()
+{
+    static char     svr[] = {
+	IAC, DO, TELOPT_TTYPE,
+	IAC, SB, TELOPT_TTYPE, TELQUAL_SEND, IAC, SE,
+	IAC, WILL, TELOPT_ECHO,
+	IAC, WILL, TELOPT_SGA
+    };
+    char           *cmd;
+    int             n, len;
+    struct timeval  to;
+    char            buf[64];
+    fd_set          ReadSet, r;
+    
+    FD_ZERO(&ReadSet);
+    FD_SET(0, &ReadSet);
+    for (n = 0, cmd = svr; n < 4; n++) {
+	len = (n == 1 ? 6 : 3);
+	write(0, cmd, len);
+	cmd += len;
+	to.tv_sec = 3;
+	to.tv_usec = 0;
+	r = ReadSet;
+	if (select(1, &r, NULL, NULL, &to) > 0)
+	    recv(0, buf, sizeof(buf), 0);
+    }
+}
+
+/* 取得 remote user name 以判定身份                */
+/*
+ * rfc931() speaks a common subset of the RFC 931, AUTH, TAP, IDENT and RFC
+ * 1413 protocols. It queries an RFC 931 etc. compatible daemon on a remote
+ * host to look up the owner of a connection. The information should not be
+ * used for authentication purposes. This routine intercepts alarm signals.
+ * 
+ * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
+ */
+
+#define STRN_CPY(d,s,l) { strncpy((d),(s),(l)); (d)[(l)-1] = 0; }
+#define RFC931_TIMEOUT   10
+#define RFC931_PORT     113	/* Semi-well-known port */
+#define ANY_PORT        0	/* Any old port will do */
+
+#if 0
+/* timeout - handle timeouts */
+static void
+timeout(int sig)
+{
+    longjmp(byebye, sig);
+}
+#endif
+
+static void
+getremotename(struct sockaddr_in * from, char *rhost, char *rname)
+{
+
+    /* get remote host name */
+
+#ifdef FAST_LOGIN
+    strcpy(rhost, (char *)inet_ntoa(from->sin_addr));
+#else
+    struct sockaddr_in our_sin;
+    struct sockaddr_in rmt_sin;
+    unsigned        rmt_port, rmt_pt;
+    unsigned        our_port, our_pt;
+    FILE           *fp;
+    char            buffer[512], user[80], *cp;
+    int             s;
+    static struct hostent *hp;
+
+
+    hp = NULL;
+    if (setjmp(byebye) == 0) {
+	signal(SIGALRM, timeout);
+	alarm(3);
+	hp = gethostbyaddr((char *)&from->sin_addr, sizeof(struct in_addr),
+			   from->sin_family);
+	alarm(0);
+    }
+    strcpy(rhost, hp ? hp->h_name : (char *)inet_ntoa(from->sin_addr));
+
+    /*
+     * Use one unbuffered stdio stream for writing to and for reading from
+     * the RFC931 etc. server. This is done because of a bug in the SunOS
+     * 4.1.x stdio library. The bug may live in other stdio implementations,
+     * too. When we use a single, buffered, bidirectional stdio stream ("r+"
+     * or "w+" mode) we read our own output. Such behaviour would make sense
+     * with resources that support random-access operations, but not with
+     * sockets.
+     */
+
+    s = sizeof(our_sin);
+    if (getsockname(0, (struct sockaddr *) & our_sin, &s) < 0)
+	return;
+
+    if ((s = socket(AF_INET, SOCK_STREAM, 0)) < 0)
+	return;
+
+    if (!(fp = fdopen(s, "r+"))) {
+	close(s);
+	return;
+    }
+    /* Set up a timer so we won't get stuck while waiting for the server. */
+    if (setjmp(byebye) == 0) {
+	signal(SIGALRM, timeout);
+	alarm(RFC931_TIMEOUT);
+
+	/*
+	 * Bind the local and remote ends of the query socket to the same IP
+	 * addresses as the connection under investigation. We go through all
+	 * this trouble because the local or remote system might have more
+	 * than one network address. The RFC931 etc. client sends only port
+	 * numbers; the server takes the IP addresses from the query socket.
+	 */
+	our_pt = ntohs(our_sin.sin_port);
+	our_sin.sin_port = htons(ANY_PORT);
+
+	rmt_sin = *from;
+	rmt_pt = ntohs(rmt_sin.sin_port);
+	rmt_sin.sin_port = htons(RFC931_PORT);
+
+	setbuf(fp, (char *)0);
+	s = fileno(fp);
+
+	if (bind(s, (struct sockaddr *) & our_sin, sizeof(our_sin)) >= 0 &&
+	  connect(s, (struct sockaddr *) & rmt_sin, sizeof(rmt_sin)) >= 0) {
+	    /*
+	     * Send query to server. Neglect the risk that a 13-byte write
+	     * would have to be fragmented by the local system and cause
+	     * trouble with buggy System V stdio libraries.
+	     */
+	    fprintf(fp, "%u,%u\r\n", rmt_pt, our_pt);
+	    fflush(fp);
+	    /*
+	     * Read response from server. Use fgets()/sscanf() so we can work
+	     * around System V stdio libraries that incorrectly assume EOF
+	     * when a read from a socket returns less than requested.
+	     */
+	    if (fgets(buffer, sizeof(buffer), fp) && !ferror(fp)
+		&& !feof(fp)
+		&& sscanf(buffer, "%u , %u : USERID :%*[^:]:%79s", &rmt_port,
+			  &our_port, user) == 3 && rmt_pt == rmt_port
+		&& our_pt == our_port) {
+
+		/*
+		 * Strip trailing carriage return. It is part of the
+		 * protocol, not part of the data.
+		 */
+		if ((cp = (char *)strchr(user, '\r')))
+		    *cp = 0;
+		strlcpy(rname, user, sizeof(user));
+	    }
+	}
+	alarm(0);
+    }
+    fclose(fp);
+#endif
+}
+
+static int
+bind_port(int port)
+{
+    int             sock, on;
+
+    sock = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
+
+    on = 1;
+    setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char *)&on, sizeof(on));
+    setsockopt(sock, SOL_SOCKET, SO_KEEPALIVE, (char *)&on, sizeof(on));
+
+    on = 0;
+    setsockopt(sock, SOL_SOCKET, SO_LINGER, (char *)&on, sizeof(on));
+
+    xsin.sin_port = htons(port);
+    if (bind(sock, (struct sockaddr *) & xsin, sizeof xsin) < 0) {
+	syslog(LOG_INFO, "bbsd bind_port can't bind to %d", port);
+	exit(1);
+    }
+    if (listen(sock, SOCKET_QLEN) < 0) {
+	syslog(LOG_INFO, "bbsd bind_port can't listen to %d", port);
+	exit(1);
+    }
+    return sock;
+}
+
+
+/*******************************************************/
+
+
+static int      shell_login(int argc, char *argv[], char *envp[]);
+static int      daemon_login(int argc, char *argv[], char *envp[]);
+static int      check_ban_and_load(int fd);
+
+int
+main(int argc, char *argv[], char *envp[])
+{
+    start_time = time(NULL);
+
+    /* avoid SIGPIPE */
+    signal(SIGPIPE, SIG_IGN);
+
+    /* avoid erroneous signal from other mbbsd */
+    signal(SIGUSR1, SIG_IGN);
+    signal(SIGUSR2, SIG_IGN);
+
+    attach_SHM();
+    if( (argc == 3 && shell_login(argc, argv, envp)) ||
+	(argc != 3 && daemon_login(argc, argv, envp)) )
+	start_client();
+
+    return 0;
+}
+
+static int
+shell_login(int argc, char *argv[], char *envp[])
+{
+
+    /* Give up root privileges: no way back from here */
+    setgid(BBSGID);
+    setuid(BBSUID);
+    chdir(BBSHOME);
+
+
+    use_shell_login_mode = 1;
+    initsetproctitle(argc, argv, envp);
+
+    /*
+     * copy fromindent: Standard input:1138: Error:Unexpected end of file the
+     * original "bbs"
+     */
+    if (argc > 1) {
+	strcpy(fromhost, argv[1]);
+	if (argc > 3)
+	    strlcpy(remoteusername, argv[3], sizeof(remoteusername));
+    }
+    close(2);
+    /* don't close fd 1, at least init_tty need it */
+
+    init_tty();
+    if (check_ban_and_load(0)) {
+	return 0;
+    }
+    return 1;
+}
+
+static int
+daemon_login(int argc, char *argv[], char *envp[])
+{
+    int             msock, csock;	/* socket for Master and Child */
+    FILE           *fp;
+    int             listen_port = 23;
+    int             len_of_sock_addr;
+    char            buf[256];
+
+    /* setup standalone */
+
+    start_daemon();
+
+    signal_restart(SIGCHLD, reapchild);
+
+    /* choose port */
+    if (argc == 1)
+	listen_port = 3006;
+    else if (argc >= 2)
+	listen_port = atoi(argv[1]);
+
+    snprintf(margs, sizeof(margs), "%s %d ", argv[0], listen_port);
+
+    /* port binding */
+    xsin.sin_family = AF_INET;
+    msock = bind_port(listen_port);
+    if (msock < 0) {
+	syslog(LOG_INFO, "mbbsd bind_port failed.\n");
+	exit(1);
+    }
+    initsetproctitle(argc, argv, envp);
+    setproctitle("%s: listening ", margs);
+
+    /* Give up root privileges: no way back from here */
+    setgid(BBSGID);
+    setuid(BBSUID);
+    chdir(BBSHOME);
+
+#ifndef NO_FORK
+#ifdef PRE_FORK
+    if( listen_port == 23 ){ // only pre-fork in port 23
+	int     i;
+	for( i = 0 ; i < PRE_FORK ; ++i )
+	    if( fork() <= 0 )
+		break;
+    }
+#endif
+#endif
+
+    snprintf(buf, sizeof(buf), "run/mbbsd.%d.%d.pid", listen_port, getpid());
+    if ((fp = fopen(buf, "w"))) {
+	fprintf(fp, "%d\n", getpid());
+	fclose(fp);
+    }
+
+    /* main loop */
+    for (;;) {
+	len_of_sock_addr = sizeof(xsin);
+	csock = accept(msock, (struct sockaddr *) & xsin, (socklen_t *) & len_of_sock_addr);
+
+	if (csock < 0) {
+	    if (errno != EINTR)
+		sleep(1);
+	    continue;
+	}
+	if (check_ban_and_load(csock)) {
+	    close(csock);
+	    continue;
+	}
+#ifdef NO_FORK
+	break;
+#else
+	if (fork() == 0)
+	    break;
+	else
+	    close(csock);
+#endif
+
+    }
+    /* here is only child running */
+
+    setproctitle("%s: ...login wait... ", margs);
+    close(msock);
+    dup2(csock, 0);
+    close(csock);
+
+    getremotename(&xsin, fromhost, remoteusername);
+    telnet_init();
+    return 1;
+}
+
+/*
+ * check if we're banning login and if the load is too high. if login is
+ * permitted, return 0; else return -1; approriate message is output to fd.
+ */
+static int
+check_ban_and_load(int fd)
+{
+    FILE           *fp;
+    static char     buf[256];
+    static time_t   chkload_time = 0;
+    static int      overload = 0;	/* overload or banned, update every 1
+					 * sec  */
+    static int      banned = 0;
+
+#ifdef INSCREEN
+    write(fd, INSCREEN, strlen(INSCREEN));
+#endif
+
+    if ((time(0) - chkload_time) > 1) {
+	overload = chkload(buf, sizeof(buf));
+	banned = !access(BBSHOME "/BAN", R_OK) &&
+	    (strcmp(fromhost, "localhost") != 0);
+	chkload_time = time(0);
+    }
+    write(fd, buf, strlen(buf));
+
+    if (banned && (fp = fopen(BBSHOME "/BAN", "r"))) {
+        // XXX this will mess up buf
+	while (fgets(buf, sizeof(buf), fp))
+	    write(fd, buf, strlen(buf));
+	fclose(fp);
+    }
+    if (SHM->UTMPnumber >= MAX_ACTIVE
+#ifdef DYMAX_ACTIVE
+	|| (SHM->GV2.e.dymaxactive > 2000 &&
+	    SHM->UTMPnumber >= SHM->GV2.e.dymaxactive)
+#endif
+	) {
+	++SHM->GV2.e.toomanyusers;
+	snprintf(buf, sizeof(buf), "由於人數過多，請您稍後再來。");
+	write(fd, buf, strlen(buf));
+	overload = 1;
+    }
+
+    if (banned || overload)
+	return -1;
+
+    return 0;
+}
diff --git a/pttbbs/mbbsd/menu.c b/pttbbs/mbbsd/menu.c
new file mode 100644
index 00000000..ca5b480f
--- /dev/null
+++ b/pttbbs/mbbsd/menu.c
@@ -0,0 +1,569 @@
+/* $Id$ */
+#include "bbs.h"
+
+/* help & menu processring */
+static int      refscreen = NA;
+extern char    *boardprefix;
+extern struct utmpfile_t *utmpshm;
+
+int
+egetch()
+{
+    int             rval;
+
+    while (1) {
+	rval = igetkey();
+	if (talkrequest) {
+	    talkreply();
+	    refscreen = YEA;
+	    return rval;
+	}
+	if (rval != Ctrl('L'))
+	    return rval;
+	redoscr();
+    }
+}
+
+extern userec_t cuser;
+extern char    *fn_board;
+extern char     board_hidden_status;
+
+void
+showtitle(char *title, char *mid)
+{
+    char            buf[40], numreg[50];
+    int             nreg, spc = 0, pad, bid;
+    boardheader_t   bh;
+    static char     lastboard[16] = {0};
+
+    spc = strlen(mid);
+    if (title[0] == 0)
+	title++;
+#ifdef DEBUG
+    else {
+	snprintf(numreg, sizeof(numreg),
+		 "\033[41;5m  current pid: %6d  " TITLE_COLOR,
+		 getpid());
+	mid = numreg;
+	spc = 22;
+    }
+#else
+    else if (currutmp->mailalert) {
+	mid = "\033[41;5m   郵差來按鈴囉   " TITLE_COLOR;
+	spc = 22;
+    } else if (HAS_PERM(PERM_SYSOP) && (nreg = dashs(fn_register) / 163) > 10) {
+	snprintf(numreg, sizeof(numreg),
+		 "\033[41;5m  有%03d/%03d未審核  " TITLE_COLOR,
+		 nreg, (int)dashs("register.new.tmp") / 163);
+	mid = numreg;
+	spc = 22;
+    }
+#endif
+    spc = 66 - strlen(title) - spc - strlen(currboard);
+    if (spc < 0)
+	spc = 0;
+    pad = 1 - (spc & 1);
+    memset(buf, ' ', spc >>= 1);
+    buf[spc] = '\0';
+
+    clear();
+    prints(TITLE_COLOR "【%s】%s\033[33m%s%s%s\033[3%s《",
+	   title, buf, mid, buf, " " + pad,
+	currmode & MODE_SELECT ? "6m系列" : currmode & MODE_ETC ? "5m其他" :
+	   currmode & MODE_DIGEST ? "2m文摘" : "7m看板");
+
+    if (strcmp(currboard, lastboard)) {	/* change board */
+	if (currboard[0] != 0 &&
+	    (bid = getbnum(currboard)) > 0 &&
+	    (get_record(fn_board, &bh, sizeof(bh), bid) != -1)) {
+	    board_hidden_status = ((bh.brdattr & BRD_HIDE) &&
+				   (bh.brdattr & BRD_POSTMASK));
+	    strncpy(lastboard, currboard, sizeof(lastboard));
+	}
+    }
+    if (board_hidden_status)
+	prints("\033[32m%s", currboard);
+    else
+	prints("%s", currboard);
+    prints("\033[3%dm》\033[0m\n", currmode & MODE_SELECT ? 6 :
+	   currmode & MODE_ETC ? 5 : currmode & MODE_DIGEST ? 2 : 7);
+}
+
+/* 動畫處理 */
+#define FILMROW 11
+static unsigned char menu_row = 12;
+static unsigned char menu_column = 20;
+static char     mystatus[160];
+
+static int
+u_movie()
+{
+    cuser.uflag ^= MOVIE_FLAG;
+    return 0;
+}
+
+void
+movie(int i)
+{
+    static short    history[MAX_HISTORY];
+    char           *myweek = "天一二三四五六";
+    const char     *msgs[] = {"關閉", "打開", "拔掉", "防水", "好友"};
+    struct tm      *ptime = localtime(&now);
+    int             j;
+
+    if ((currstat != CLASS) && (cuser.uflag & MOVIE_FLAG) &&
+	!SHM->Pbusystate && SHM->max_film > 0) {
+	if (currstat == PSALE) {
+	    i = PSALE;
+	    reload_money();
+	} else {
+	    do {
+		if (!i)
+		    i = 1 + (int)(((float)SHM->max_film *
+				   rand()) / (RAND_MAX + 1.0));
+
+		for (j = SHM->max_history; j >= 0; j--)
+		    if (i == history[j]) {
+			i = 0;
+			break;
+		    }
+	    } while (i == 0);
+	}
+
+	memmove(history, &history[1], SHM->max_history * sizeof(short));
+	history[SHM->max_history] = j = i;
+
+	if (i == 999)		/* Goodbye my friend */
+	    i = 0;
+
+	move(1, 0);
+	clrtoline(1 + FILMROW);	/* 清掉上次的 */
+	Jaky_outs(SHM->notes[i], 11);	/* 只印11行就好 */
+	outs(reset_color);
+    }
+    i = ptime->tm_wday << 1;
+    snprintf(mystatus, sizeof(mystatus),
+	     "\033[34;46m[%d/%d 星期%c%c %d:%02d]\033[1;33;45m%-14s"
+	     "\033[30;47m 目前坊裡有 \033[31m%d\033[30m人, 我是\033[31m%-12s"
+	     "\033[30m[扣機]\033[31m%s\033[0m",
+	     ptime->tm_mon + 1, ptime->tm_mday, myweek[i], myweek[i + 1],
+	     ptime->tm_hour, ptime->tm_min, currutmp->birth ?
+	     "生日要請客唷" : SHM->today_is,
+	     SHM->UTMPnumber, cuser.userid, msgs[currutmp->pager]);
+    outmsg(mystatus);
+    refresh();
+}
+
+static int
+show_menu(commands_t * p)
+{
+    register int    n = 0;
+    register char  *s;
+    const char     *state[4] = {"用功\型", "安逸型", "自定型", "SHUTUP"};
+    char            buf[80];
+
+    movie(currstat);
+
+    move(menu_row, 0);
+    while ((s = p[n].desc)) {
+	if (HAS_PERM(p[n].level)) {
+	    snprintf(buf, sizeof(buf), s + 2, state[cuser.proverb % 4]);
+	    prints("%*s  (\033[1;36m%c\033[0m)%s\n", menu_column, "", s[1],
+		   buf);
+	}
+	n++;
+    }
+    return n - 1;
+}
+
+void
+domenu(int cmdmode, char *cmdtitle, int cmd, commands_t cmdtable[])
+{
+    int             lastcmdptr;
+    int             n, pos, total, i;
+    int             err;
+    static char     cmd0[LOGIN];
+
+    /* XXX: 傳進來的 cmd 若權限不足, 則不知 cursor 在哪, 導致 crash */
+    if (cmd0[cmdmode])
+	cmd = cmd0[cmdmode];
+
+    setutmpmode(cmdmode);
+
+    showtitle(cmdtitle, BBSName);
+
+    total = show_menu(cmdtable);
+
+    outmsg(mystatus);
+    lastcmdptr = pos = 0;
+
+    do {
+	i = -1;
+	switch (cmd) {
+	case Ctrl('C'):
+	    cal();
+	    i = lastcmdptr;
+	    refscreen = YEA;
+	    break;
+	case Ctrl('I'):
+	    t_idle();
+	    refscreen = YEA;
+	    i = lastcmdptr;
+	    break;
+	case Ctrl('N'):
+	    New();
+	    refscreen = YEA;
+	    i = lastcmdptr;
+	    break;
+	case Ctrl('A'):
+	    if (mail_man() == FULLUPDATE)
+		refscreen = YEA;
+	    i = lastcmdptr;
+	    break;
+	case KEY_DOWN:
+	    i = lastcmdptr;
+	case KEY_HOME:
+	case KEY_PGUP:
+	    do {
+		if (++i > total)
+		    i = 0;
+	    } while (!HAS_PERM(cmdtable[i].level));
+	    break;
+	case KEY_END:
+	case KEY_PGDN:
+	    i = total;
+	    break;
+	case KEY_UP:
+	    i = lastcmdptr;
+	    do {
+		if (--i < 0)
+		    i = total;
+	    } while (!HAS_PERM(cmdtable[i].level));
+	    break;
+	case KEY_LEFT:
+	case 'e':
+	case 'E':
+	    if (cmdmode == MMENU)
+		cmd = 'G';
+	    else if ((cmdmode == MAIL) && chkmailbox())
+		cmd = 'R';
+	    else
+		return;
+	default:
+	    if ((cmd == 's' || cmd == 'r') &&
+	    (currstat == MMENU || currstat == TMENU || currstat == XMENU)) {
+		if (cmd == 's')
+		    ReadSelect();
+		else
+		    Read();
+		refscreen = YEA;
+		i = lastcmdptr;
+		break;
+	    }
+	    if (cmd == '\n' || cmd == '\r' || cmd == KEY_RIGHT) {
+		move(b_lines, 0);
+		clrtoeol();
+
+		currstat = XMODE;
+
+		if ((err = (*cmdtable[lastcmdptr].cmdfunc) ()) == QUIT)
+		    return;
+		currutmp->mode = currstat = cmdmode;
+
+		if (err == XEASY) {
+		    refresh();
+		    safe_sleep(1);
+		} else if (err != XEASY + 1 || err == FULLUPDATE)
+		    refscreen = YEA;
+
+		if (err != -1)
+		    cmd = cmdtable[lastcmdptr].desc[0];
+		else
+		    cmd = cmdtable[lastcmdptr].desc[1];
+		cmd0[cmdmode] = cmdtable[lastcmdptr].desc[0];
+	    }
+	    if (cmd >= 'a' && cmd <= 'z')
+		cmd &= ~0x20;
+	    while (++i <= total)
+		if (cmdtable[i].desc[1] == cmd)
+		    break;
+	}
+
+	if (i > total || !HAS_PERM(cmdtable[i].level))
+	    continue;
+
+	if (refscreen) {
+	    showtitle(cmdtitle, BBSName);
+
+	    show_menu(cmdtable);
+
+	    outmsg(mystatus);
+	    refscreen = NA;
+	}
+	cursor_clear(menu_row + pos, menu_column);
+	n = pos = -1;
+	while (++n <= (lastcmdptr = i))
+	    if (HAS_PERM(cmdtable[n].level))
+		pos++;
+
+	cursor_show(menu_row + pos, menu_column);
+    } while (((cmd = egetch()) != EOF) || refscreen);
+
+    abort_bbs(0);
+}
+/* INDENT OFF */
+
+/* administrator's maintain menu */
+static commands_t adminlist[] = {
+    {m_user, PERM_ACCOUNTS,           "UUser          使用者資料"},
+    {search_user_bypwd, PERM_SYSOP,   "SSearch User   特殊搜尋使用者"},
+    {search_user_bybakpwd,PERM_SYSOP, "OOld User data 查閱\備份使用者資料"},
+    {m_board, PERM_SYSOP,             "BBoard         設定看板"},
+    {m_register, PERM_SYSOP,          "RRegister      審核註冊表單"},
+    {cat_register, PERM_SYSOP,        "CCatregister   無法審核時用的"},
+    {x_file, PERM_SYSOP|PERM_VIEWSYSOP,     "XXfile         編輯系統檔案"},
+    {give_money, PERM_SYSOP|PERM_VIEWSYSOP, "GGivemoney     紅包雞"},
+#ifdef  HAVE_MAILCLEAN
+    {m_mclean, PERM_SYSOP,            "MMail Clean    清理使用者個人信箱"},
+#endif
+#ifdef  HAVE_REPORT
+    {m_trace, PERM_SYSOP,             "TTrace         設定是否記錄除錯資訊"},
+#endif
+    {NULL, 0, NULL}
+};
+
+/* mail menu */
+static commands_t maillist[] = {
+    {m_new, PERM_READMAIL,      "RNew           閱\讀新進郵件"},
+    {m_read, PERM_READMAIL,     "RRead          多功\能讀信選單"},
+    {m_send, PERM_BASIC,        "RSend          站內寄信"},
+    {x_love, PERM_LOGINOK,      "PPaper         \033[1;32m情書產生器\033[m "},
+    {mail_list, PERM_BASIC,     "RMail List     群組寄信"},
+    {setforward, PERM_LOGINOK,"FForward       \033[32m設定信箱自動轉寄\033[m"},
+    {m_sysop, 0,                "YYes, sir!     諂媚站長"},
+    {m_internet, PERM_INTERNET, "RInternet      寄信到 Internet"},
+    {mail_mbox, PERM_INTERNET,  "RZip UserHome  把所有私人資料打包回去"},
+    {built_mail_index, PERM_LOGINOK, "SSavemail      重建信箱索引"},
+    {mail_all, PERM_SYSOP,      "RAll           寄信給所有使用者"},
+    {NULL, 0, NULL}
+};
+
+/* Talk menu */
+static commands_t talklist[] = {
+    {t_users, 0,            "UUsers         完全聊天手冊"},
+    {t_pager, PERM_BASIC,   "PPager         切換呼叫器"},
+    {t_idle, 0,             "IIdle          發呆"},
+    {t_query, 0,            "QQuery         查詢網友"},
+    {t_qchicken, 0,         "WWatch Pet     查詢寵物"},
+    {t_talk, PERM_PAGE,     "TTalk          找人聊聊"},
+    {t_chat, PERM_CHAT,     "CChat          找家茶坊喫茶去"},
+    {t_display, 0,          "DDisplay       顯示上幾次熱訊"},
+    {NULL, 0, NULL}
+};
+
+/* name menu */
+static int t_aloha() {
+    friend_edit(FRIEND_ALOHA);
+    return 0;
+}
+
+static int t_special() {
+    friend_edit(FRIEND_SPECIAL);
+    return 0;
+}
+
+static commands_t namelist[] = {
+    {t_override, PERM_LOGINOK,"OOverRide      好友名單"},
+    {t_reject, PERM_LOGINOK,  "BBlack         壞人名單"},
+    {t_aloha,PERM_LOGINOK,    "AALOHA         上站通知名單"},
+#ifdef POSTNOTIFY
+    {t_post,PERM_LOGINOK,     "NNewPost       新文章通知名單"},
+#endif
+    {t_special,PERM_LOGINOK,  "SSpecial       其他特別名單"},
+    {NULL, 0, NULL}
+};
+
+/* User menu */
+static commands_t userlist[] = {
+    {u_info, PERM_LOGINOK,          "IInfo          設定個人資料與密碼"},
+    {calendar, PERM_LOGINOK,          "CCalendar      個人行事曆"},
+    {u_editcalendar, PERM_LOGINOK,    "EEditCalendar  編輯個人行事曆"},
+    {u_loginview, PERM_LOGINOK,     "LLogin View    選擇進站畫面"},
+    {u_ansi, 0, "AANSI          切換 ANSI \033[36m彩\033[35m色\033[37m/"
+     "\033[30;47m黑\033[1;37m白\033[m模示"},
+    {u_movie, 0,                    "MMovie         切換動畫模示"},
+#ifdef  HAVE_SUICIDE
+    {u_kill, PERM_BASIC,            "IKill          自殺！！"},
+#endif
+    {u_editplan, PERM_LOGINOK,      "QQueryEdit     編輯名片檔"},
+    {u_editsig, PERM_LOGINOK,       "SSignature     編輯簽名檔"},
+#if HAVE_FREECLOAK
+    {u_cloak, PERM_LOGINOK,           "CCloak         隱身術"},
+#else
+    {u_cloak, PERM_CLOAK,           "CCloak         隱身術"},
+#endif
+    {u_register, PERM_BASIC,        "RRegister      填寫《註冊申請單》"},
+    {u_list, PERM_SYSOP,            "UUsers         列出註冊名單"},
+    {NULL, 0, NULL}
+};
+
+/* XYZ tool menu */
+static commands_t xyzlist[] = {
+#ifdef  HAVE_LICENSE
+    {x_gpl, 0,       "LLicense       GNU 使用執照"},
+#endif
+#ifdef HAVE_INFO
+    {x_program, 0,   "PProgram       本程式之板本與板權宣告"},
+#endif
+    {x_boardman,0,   "MMan Boards    《看板精華區排行榜》"},
+//  {x_boards,0,     "HHot Boards    《看板人氣排行榜》"},
+    {x_history, 0,   "HHistory       《我們的成長》"},
+    {x_note, 0,      "NNote          《酸甜苦辣流言板》"},
+    {x_login,0,      "SSystem        《系統重要公告》"},
+    {x_week, 0,      "WWeek          《本週五十大熱門話題》"},
+    {x_issue, 0,     "IIssue         《今日十大熱門話題》"},
+    {x_today, 0,     "TToday         《今日上線人次統計》"},
+    {x_yesterday, 0, "YYesterday     《昨日上線人次統計》"},
+    {x_user100 ,0,   "UUsers         《使用者百大排行榜》"},
+    {x_birth, 0,     "BBirthday      《今日壽星大觀》"},
+    {p_sysinfo, 0,   "XXinfo         《查看系統資訊》"},
+    {NULL, 0, NULL}
+};
+
+/* Ptt money menu */
+static commands_t moneylist[] = {
+    {p_give, 0,         "00Give        給其他人錢"},
+    {save_violatelaw, 0,"11ViolateLaw  繳罰單"},
+#if !HAVE_FREECLOAK
+    {p_cloak, 0,        "22Cloak       切換 隱身/現身   $19  /次"},
+#endif
+    {p_from, 0,         "33From        暫時修改故鄉     $49  /次"},
+    {ordersong,0,       "44OSong       歐桑動態點歌機   $200 /次"},
+    {p_exmail, 0,       "55Exmail      購買信箱         $1000/封"},
+    {NULL, 0, NULL}
+};
+
+static int p_money() {
+    domenu(PSALE, "Ｐtt量販店", '0', moneylist);
+    return 0;
+};
+
+#if 0
+static commands_t jceelist[] = {
+    {x_90,PERM_LOGINOK,	     "0090 JCEE     【90學年度大學聯招查榜系統】"},
+    {x_89,PERM_LOGINOK,	     "1189 JCEE     【89學年度大學聯招查榜系統】"},
+    {x_88,PERM_LOGINOK,      "2288 JCEE     【88學年度大學聯招查榜系統】"},
+    {x_87,PERM_LOGINOK,      "3387 JCEE     【87學年度大學聯招查榜系統】"},
+    {x_86,PERM_LOGINOK,      "4486 JCEE     【86學年度大學聯招查榜系統】"},
+    {NULL, 0, NULL}
+};
+
+static int m_jcee() {
+    domenu(JCEE, "Ｐtt查榜系統", '0', jceelist);
+    return 0;
+}
+#endif
+
+static int forsearch();
+static int playground();
+
+/* Ptt Play menu */
+static commands_t playlist[] = {
+#if 0
+#if HAVE_JCEE
+    {m_jcee, PERM_LOGINOK,   "JJCEE        【 大學聯考查榜系統 】"},
+#endif
+#endif
+    {note, PERM_LOGINOK,     "NNote        【 刻刻流言板 】"},
+    {x_weather,0 ,           "WWeather     【 氣象預報 】"},
+/* XXX 壞掉了 */
+/*    {x_stock,0 ,             "SStock       【 股市行情 】"},*/
+    {forsearch,PERM_LOGINOK, "SSearchEngine【\033[1;35m Ｐtt搜尋器 \033[m】"},
+    {topsong,PERM_LOGINOK,   "TTop Songs   【\033[1;32m歐桑點歌排行榜\033[m】"},
+    {p_money,PERM_LOGINOK,   "PPay         【\033[1;31m Ｐtt量販店 \033[m】"},
+    {chicken_main,PERM_LOGINOK, "CChicken     "
+     "【\033[1;34m Ｐtt養雞場 \033[m】"},
+    {playground,PERM_LOGINOK, "AAmusement   【\033[1;33m Ｐtt遊樂場 \033[m】"},
+    {NULL, 0, NULL}
+};
+
+static commands_t plist[] = {
+
+/*    {p_ticket_main, PERM_LOGINOK,"00Pre         【 總統機 】"},
+      {alive, PERM_LOGINOK,        "00Alive       【  訂票雞  】"},
+*/
+    {ticket_main, PERM_LOGINOK,  "11Gamble      【 Ｐtt賭場 】"},
+    {guess_main, PERM_LOGINOK,   "22Guess number【 猜數字   】"},
+    {othello_main, PERM_LOGINOK, "33Othello     【 黑白棋   】"},
+//    {dice_main, PERM_LOGINOK,    "44Dice        【 玩骰子   】"},
+    {vice_main, PERM_LOGINOK,    "44Vice        【 發票對獎 】"},
+    {g_card_jack, PERM_LOGINOK,  "55Jack        【 黑傑克 】"},
+    {g_ten_helf, PERM_LOGINOK,   "66Tenhalf     【 十點半 】"},
+    {card_99, PERM_LOGINOK,      "77Nine        【 九十九 】"},
+    {NULL, 0, NULL}
+};
+
+static int playground() {
+    domenu(AMUSE, "Ｐtt遊樂場",'1',plist);
+    return 0;
+}
+
+static commands_t slist[] = {
+    {x_dict,0,                   "11Dictionary  "
+     "【\033[1;33m 趣味大字典 \033[m】"},
+    {x_mrtmap, 0,                "22MRTmap      "
+	 "【\033[1;34m  捷運地圖  \033[m】"},
+    {main_railway, PERM_LOGINOK,  "33Railway     "
+     "【\033[1;32m 火車表查詢 \033[m】"},
+    {NULL, 0, NULL}
+};
+
+static int forsearch() {
+    domenu(SREG, "Ｐtt搜尋器", '1', slist);
+    return 0;
+}
+
+/* main menu */
+
+int admin()
+{
+    domenu(ADMIN, "系統維護", 'X', adminlist);
+    return 0;
+}
+
+int Mail()
+{
+    domenu(MAIL, "電子郵件", 'R', maillist);
+    return 0;
+}
+
+int Talk()
+{
+    domenu(TMENU, "聊天說話", 'U', talklist);
+    return 0;
+}
+
+int User()
+{
+    domenu(UMENU, "個人設定", 'A', userlist);
+    return 0;
+}
+
+int Xyz()
+{
+    domenu(XMENU, "工具程式", 'M', xyzlist);
+    return 0;
+}
+
+int Play_Play()
+{
+    domenu(PMENU, "網路遊樂場", 'A', playlist);
+    return 0;
+}
+
+int Name_Menu()
+{
+    domenu(NMENU, "白色恐怖", 'O', namelist);
+    return 0;
+}
+ 
diff --git a/pttbbs/mbbsd/more.c b/pttbbs/mbbsd/more.c
new file mode 100644
index 00000000..00ecc824
--- /dev/null
+++ b/pttbbs/mbbsd/more.c
@@ -0,0 +1,589 @@
+/* $Id$ */
+#include "bbs.h"
+#define MORE_BUFSIZE	4096
+#define MORE_WINSIZE	4096
+#define STR_ANSICODE    "[0123456789;,"
+
+static int      more_base, more_size, more_head;
+static unsigned char more_pool[MORE_BUFSIZE];
+
+
+static char    *more_help[] = {
+    "\0閱\讀文章功\能鍵使用說明",
+    "\01游標移動功\能鍵",
+    "(↑)                  上捲一行",
+    "(↓)(Enter)           下捲一行",
+    "(^B)(PgUp)(BackSpace) 上捲一頁",
+    "(→)(PgDn)(Space)     下捲一頁",
+    "(0)(g)(Home)          檔案開頭",
+    "($)(G) (End)          檔案結尾",
+    "\01其他功\能鍵",
+    "(/)                   搜尋字串",
+    "(n/N)                 重複正/反向搜尋",
+    "(TAB)                 URL連結",
+    "(Ctrl-T)              存到暫存檔",
+    "(:/f/b)               跳至某頁/下/上篇",
+    "(F/B)                 跳至同一搜尋主題下/上篇",
+    "(a/A)                 跳至同一作者下/上篇",
+    "([/])                 主題式閱\讀 上/下",
+    "(t)                   主題式循序閱\讀",
+    "(Ctrl-C)              小計算機",
+    "(q)(←)               結束",
+    "(h)(H)(?)             輔助說明畫面",
+    NULL
+};
+
+int             beep = 0;
+
+static void
+more_goto(int fd, off_t off)
+{
+    int             base = more_base;
+
+    if (off < base || off >= base + more_size) {
+	more_base = base = off & (-MORE_WINSIZE);
+	lseek(fd, base, SEEK_SET);
+	more_size = read(fd, more_pool, MORE_BUFSIZE);
+    }
+    more_head = off - base;
+}
+
+static int
+more_readln(int fd, unsigned char *buf)
+{
+    int             ch;
+
+    unsigned char  *data, *tail, *cc;
+    int             len, bytes, in_ansi;
+    int             size, head, ansilen;
+
+    len = bytes = in_ansi = ansilen = 0;
+    tail = buf + ANSILINELEN - 1;
+    size = more_size;
+    head = more_head;
+    data = &more_pool[head];
+
+    do {
+	if (head >= size) {
+	    more_base += size;
+	    data = more_pool;
+	    more_size = size = read(fd, data, MORE_BUFSIZE);
+	    if (size == 0)
+		break;
+	    head = 0;
+	}
+	ch = *data++;
+	head++;
+	bytes++;
+	if (ch == '\n') {
+	    break;
+	}
+	if (ch == '\t') {
+	    do {
+		*buf++ = ' ';
+	    }
+	    while ((++len & 7) && len < t_columns);
+	} else if (ch == '\033') {
+	    if (atoi((char *)(data + 1)) > 47) {
+		if ((cc = (unsigned char *)strchr((char *)(data + 1), 'm')) != NULL) {
+		    ch = cc - data + 1;
+
+		    data += ch;
+		    head += ch;
+		    bytes += ch;
+		}
+	    } else {
+		if (showansi)
+		    *buf++ = ch;
+		in_ansi = 1;
+	    }
+	} else if (in_ansi) {
+	    if (showansi)
+		*buf++ = ch;
+	    if (!strchr(STR_ANSICODE, ch))
+		in_ansi = 0;
+	} else if (isprint2(ch)) {
+	    len++;
+	    *buf++ = ch;
+	}
+    } while (len < t_columns && buf < tail);
+    if(len==t_columns && head<size && *data=='\n') {
+      /* XXX: not handle head==size, should read data */
+      /* no extra newline dirty hack for exact 80byte line */
+      data++; bytes++; head++;
+    }
+    *buf = '\0';
+    more_head = head;
+    return bytes;
+}
+
+/*
+ * not used static int readln(FILE *fp, char *buf) { register int ch, i, len,
+ * bytes, in_ansi;
+ * 
+ * len = bytes = in_ansi = i = 0; while(len < 80 && i < ANSILINELEN && (ch =
+ * getc(fp)) != EOF) { bytes++; if(ch == '\n') break; else if(ch == '\t') do
+ * { buf[i++] = ' '; } while((++len & 7) && len < 80); else if(ch == '\a')
+ * beep = 1; else if(ch == '\033') { if(showansi) buf[i++] = ch; in_ansi = 1;
+ * } else if(in_ansi) { if(showansi) buf[i++] = ch;
+ * if(!strchr("[0123456789;,", ch)) in_ansi = 0; } else if(isprint2(ch)) {
+ * len++; buf[i++] = ch; } } buf[i] = '\0'; return bytes; }
+ */
+
+int
+more(char *fpath, int promptend)
+{
+    char    *head[4] = {"作者", "標題", "時間", "轉信"};
+    char           *ptr, *word = NULL, buf[ANSILINELEN + 1];
+    struct stat     st;
+
+    /* rocker */
+    //FILE * fp;
+    int             fd, fsize;
+
+    unsigned int    pagebreak[MAX_PAGES], pageno, lino = 0;
+    int             line, ch, viewed, pos, numbytes;
+    int             header = 0;
+    int             local = 0;
+    char            search_char0 = 0;
+    static char     search_str[81] = "";
+    typedef char   *(*FPTR) ();
+    static FPTR     fptr;
+    int             searching = 0;
+    int             scrollup = 0;
+    char           *printcolor[3] = {"44", "33;45", "0;34;46"}, color = 0;
+    /* Ptt */
+
+    memset(pagebreak, 0, sizeof(pagebreak));
+    if (*search_str)
+	search_char0 = *search_str;
+    *search_str = 0;
+
+    fd = open(fpath, O_RDONLY, 0600);
+    if (fd < 0)
+	return -1;
+
+    if (fstat(fd, &st) || ((fsize = st.st_size) <= 0) || S_ISDIR(st.st_mode)) {
+	close(fd);
+	//Ptt
+	    return -1;
+    }
+    pagebreak[0] = pageno = viewed = line = pos = 0;
+    clear();
+
+    /* rocker */
+
+    more_base = more_head = more_size = 0;
+
+    while ((numbytes = more_readln(fd, (unsigned char *)buf)) || (line == t_lines)) {
+	if (scrollup) {
+	    rscroll();
+	    move(0, 0);
+	}
+	if (numbytes) {		/* 一般資料處理 */
+	    if (!viewed) {	/* begin of file */
+		if (showansi) {	/* header processing */
+		    if (!strncmp(buf, str_author1, LEN_AUTHOR1)) {
+			line = 3;
+			word = buf + LEN_AUTHOR1;
+			local = 1;
+		    } else if (!strncmp(buf, str_author2, LEN_AUTHOR2)) {
+			line = 4;
+			word = buf + LEN_AUTHOR2;
+		    }
+		    while (pos < line) {
+			if (!pos && ((ptr = strstr(word, str_post1)) ||
+				     (ptr = strstr(word, str_post2)))) {
+			    ptr[-1] = '\0';
+			    prints("\033[47;34m %s \033[44;37m%-53.53s"
+				"\033[47;34m %.4s \033[44;37m%-13s\033[m\n",
+				   head[0], word, ptr, ptr + 5);
+			} else if (pos < line)
+			    prints("\033[47;34m %s \033[44;37m%-72.72s"
+				   "\033[m\n", head[pos], word);
+
+			viewed += numbytes;
+			numbytes = more_readln(fd, (unsigned char *)buf);
+
+			/* 第一行太長了 */
+			if (!pos && viewed > 79) {
+			    /* 第二行不是 [標....] */
+			    if (memcmp(buf, head[1], 2)) {
+				/* 讀下一行進來處理 */
+				viewed += numbytes;
+				numbytes = more_readln(fd, (unsigned char *)buf);
+			    }
+			}
+			pos++;
+		    }
+		    if (pos) {
+			header = 1;
+
+			prints("\033[36m%s\033[m\n", msg_seperator);
+			++line;
+			++pos;
+		    }
+		}
+		lino = pos;
+		word = NULL;
+	    }
+	    /* ※處理引用者 & 引言 */
+	    if ((buf[1] == ' ') && (buf[0] == ':' || buf[0] == '>'))
+		word = "\033[36m";
+	    else if (!strncmp(buf, "※", 2) || !strncmp(buf, "==>", 3))
+		word = "\033[32m";
+
+	    if (word)
+		outs(word);
+	    {
+		char            msg[500], *pos;
+
+		if (*search_str && (pos = fptr(buf, search_str))) {
+		    char            SearchStr[81];
+		    char            buf1[100], *pos1;
+
+		    strncpy(SearchStr, pos, strlen(search_str));
+		    SearchStr[strlen(search_str)] = 0;
+		    searching = 0;
+		    snprintf(msg, sizeof(msg),
+			     "%.*s\033[7m%s\033[m", pos - buf, buf,
+			     SearchStr);
+		    while ((pos = fptr(pos1 = pos + strlen(search_str),
+				       search_str))) {
+			snprintf(buf1, sizeof(buf1),
+				 "%.*s\033[7m%s\033[m", pos - pos1,
+				 pos1, SearchStr);
+			strlcat(msg, buf1, sizeof(msg));
+		    }
+		    strlcat(msg, pos1, sizeof(msg));
+		    outs(Ptt_prints(msg, NO_RELOAD));
+		} else
+		    outs(Ptt_prints(buf, NO_RELOAD));
+	    }
+	    if (word) {
+		outs("\033[m");
+		word = NULL;
+	    }
+	    outch('\n');
+
+	    if (beep) {
+		bell();
+		beep = 0;
+	    }
+	    if (line < b_lines)	/* 一般資料讀取 */
+		line++;
+
+	    if (line == b_lines && searching == -1) {
+		if (pageno > 0)
+		    more_goto(fd, viewed = pagebreak[--pageno]);
+		else
+		    searching = 0;
+		lino = pos = line = 0;
+		clear();
+		continue;
+	    }
+	    if (scrollup) {
+		move(line = b_lines, 0);
+		clrtoeol();
+		for (pos = 1; pos < b_lines; pos++)
+		    viewed += more_readln(fd, (unsigned char *)buf);
+	    } else if (pos == b_lines)	/* 捲動螢幕 */
+		scroll();
+	    else
+		pos++;
+
+	    if (!scrollup                   &&
+		++lino >= (unsigned)b_lines &&
+		pageno < MAX_PAGES - 1         ) {
+		pagebreak[++pageno] = viewed;
+		lino = 1;
+	    }
+	    if (scrollup) {
+		lino = scrollup;
+		scrollup = 0;
+	    }
+	    viewed += numbytes;	/* 累計讀過資料 */
+	} else
+	    line = b_lines;	/* end of END */
+
+	if (promptend &&
+	    ((!searching && line == b_lines) || viewed == fsize)) {
+	    /* Kaede 剛好 100% 時不停 */
+	    move(b_lines, 0);
+	    if (viewed == fsize) {
+		if (searching == 1)
+		    searching = 0;
+		color = 0;
+	    } else if (pageno == 1 && lino == 1) {
+		if (searching == -1)
+		    searching = 0;
+		color = 1;
+	    } else
+		color = 2;
+
+	    prints("\033[m\033[%sm  瀏覽 P.%d(%d%%)  %s  %-30.30s%s",
+		   printcolor[(int)color],
+		   pageno,
+		   (int)((viewed * 100) / fsize),
+		   "\033[31;47m",
+		   "(h)\033[30m求助  \033[31m→↓[PgUp][",
+		   "PgDn][Home][End]\033[30m游標移動  \033[31m←[q]\033[30m結束   \033[m");
+
+
+	    while (line == b_lines || (line > 0 && viewed == fsize)) {
+		switch ((ch = egetch())) {
+		case ':':
+		    {
+			char            buf[10];
+			int             i = 0;
+
+			getdata(b_lines - 1, 0, "Goto Page: ", buf, 5, DOECHO);
+			sscanf(buf, "%d", &i);
+			if (0 < i && i < MAX_PAGES && (i == 1 || pagebreak[i - 1]))
+			    pageno = i - 1;
+			else if (pageno)
+			    pageno--;
+			lino = line = 0;
+			break;
+		    }
+		case '/':
+		    {
+			char            ans[4] = "n";
+
+			*search_str = search_char0;
+			getdata_buf(b_lines - 1, 0, "[搜尋]關鍵字:", search_str,
+				    40, DOECHO);
+			if (*search_str) {
+			    searching = 1;
+			    if (getdata(b_lines - 1, 0, "區分大小寫(Y/N/Q)? [N] ",
+				   ans, sizeof(ans), LCECHO) && *ans == 'y')
+				fptr = strstr;
+			    else
+				fptr = strcasestr;
+			}
+			if (*ans == 'q')
+			    searching = 0;
+			if (pageno)
+			    pageno--;
+			lino = line = 0;
+			break;
+		    }
+		case 'n':
+		    if (*search_str) {
+			searching = 1;
+			if (pageno)
+			    pageno--;
+			lino = line = 0;
+		    }
+		    break;
+		case 'N':
+		    if (*search_str) {
+			searching = -1;
+			if (pageno)
+			    pageno--;
+			lino = line = 0;
+		    }
+		    break;
+		case 'r':
+		case 'R':
+		case 'Y':
+		    close(fd);
+		    return 7;
+		case 'y':
+		    close(fd);
+		    return 8;
+		case 'A':
+		    close(fd);
+		    return 9;
+		case 'a':
+		    close(fd);
+		    return 10;
+		case 'F':
+		    close(fd);
+		    return 11;
+		case 'B':
+		    close(fd);
+		    return 12;
+		case KEY_LEFT:
+		    close(fd);
+		    return 6;
+		case 'q':
+		    close(fd);
+		    return 0;
+		case 'b':
+		    close(fd);
+		    return 1;
+		case 'f':
+		    close(fd);
+		    return 3;
+		case ']':	/* Kaede 為了主題閱讀方便 */
+		    close(fd);
+		    return 4;
+		case '[':	/* Kaede 為了主題閱讀方便 */
+		    close(fd);
+		    return 2;
+		case '=':	/* Kaede 為了主題閱讀方便 */
+		    close(fd);
+		    return 5;
+		case Ctrl('F'):
+		case KEY_PGDN:
+		    line = 1;
+		    break;
+		case 't':
+		    if (viewed == fsize) {
+			close(fd);
+			return 4;
+		    }
+		    line = 1;
+		    break;
+		case ' ':
+		    if (viewed == fsize) {
+			close(fd);
+			return 3;
+		    }
+		    line = 1;
+		    break;
+		case KEY_RIGHT:
+		    if (viewed == fsize) {
+			close(fd);
+			return 0;
+		    }
+		    line = 1;
+		    break;
+		case '\r':
+		case '\n':
+		case KEY_DOWN:
+		    if (viewed == fsize ||
+			(promptend == 2 && (ch == '\r' || ch == '\n'))) {
+			close(fd);
+			return 3;
+		    }
+		    line = t_lines - 2;
+		    break;
+		case '$':
+		case 'G':
+		case KEY_END:
+		    line = t_lines;
+		    break;
+		case '0':
+		case 'g':
+		case KEY_HOME:
+		    pageno = line = 0;
+		    break;
+		case 'h':
+		case 'H':
+		case '?':
+		    /* Kaede Buggy ... */
+		    show_help(more_help);
+		    if (pageno)
+			pageno--;
+		    lino = line = 0;
+		    break;
+		case 'E':
+		    if (HAS_PERM(PERM_SYSOP) && strcmp(fpath, "etc/ve.hlp")) {
+			close(fd);
+			vedit(fpath, NA, NULL);
+			return 0;
+		    }
+		    break;
+		case Ctrl('C'):
+		    cal();
+		    if (pageno)
+			pageno--;
+		    lino = line = 0;
+		    break;
+
+		case Ctrl('T'):
+		    getdata(b_lines - 2, 0, "把這篇文章收入到暫存檔？[y/N] ",
+			    buf, 4, LCECHO);
+		    if (buf[0] == 'y') {
+			char            tmpbuf[128];
+
+			setuserfile(tmpbuf, ask_tmpbuf(b_lines - 1));
+			snprintf(buf, sizeof(buf),
+				 "cp -f %s %s", fpath, tmpbuf);
+			system(buf);
+		    }
+		    if (pageno)
+			pageno--;
+		    lino = line = 0;
+		    break;
+		case KEY_UP:
+		    line = -1;
+		    break;
+		case Ctrl('B'):
+		case KEY_PGUP:
+		    if (pageno > 1) {
+			if (lino < 2)
+			    pageno -= 2;
+			else
+			    pageno--;
+			lino = line = 0;
+		    } else if (pageno && lino > 1)
+			pageno = line = 0;
+		    break;
+		case Ctrl('H'):
+		    if (pageno > 1) {
+			if (lino < 2)
+			    pageno -= 2;
+			else
+			    pageno--;
+			lino = line = 0;
+		    } else if (pageno && lino > 1)
+			pageno = line = 0;
+		    else {
+			close(fd);
+			return 1;
+		    }
+		}
+	    }
+
+	    if (line > 0) {
+		move(b_lines, 0);
+		clrtoeol();
+		refresh();
+	    } else if (line < 0) {	/* Line scroll up */
+		if (pageno <= 1) {
+		    if (lino == 1 || !pageno) {
+			close(fd);
+			return 1;
+		    }
+		    if (header && lino <= 5) {
+			more_goto(fd, viewed = pagebreak[scrollup = lino =
+							 pageno = 0] = 0);
+			clear();
+		    }
+		}
+		if (pageno && (int)lino > 1 + local) {
+		    line = (lino - 2) - local;
+		    if (pageno > 1 && viewed == fsize)
+			line += local;
+		    scrollup = lino - 1;
+		    more_goto(fd, viewed = pagebreak[pageno - 1]);
+		    while (line--)
+			viewed += more_readln(fd, (unsigned char *)buf);
+		} else if (pageno > 1) {
+		    scrollup = b_lines - 1;
+		    line = (b_lines - 2) - local;
+		    more_goto(fd, viewed = pagebreak[--pageno - 1]);
+		    while (line--)
+			viewed += more_readln(fd, (unsigned char *)buf);
+		}
+		line = pos = 0;
+	    } else {
+		pos = 0;
+		more_goto(fd, viewed = pagebreak[pageno]);
+		move(0, 0);
+		clear();
+	    }
+	}
+    }
+
+    close(fd);
+    if (promptend) {
+	pressanykey();
+	clear();
+    } else
+	outs(reset_color);
+    return 0;
+}
diff --git a/pttbbs/mbbsd/name.c b/pttbbs/mbbsd/name.c
new file mode 100644
index 00000000..5c04a54a
--- /dev/null
+++ b/pttbbs/mbbsd/name.c
@@ -0,0 +1,706 @@
+/* $Id$ */
+#include "bbs.h"
+
+static word_t  *current = NULL;
+static char    *msg_more = "\033[7m-- More --\033[m";
+
+typedef char    (*arrptr)[];
+/* name complete for user ID */
+
+static int
+UserMaxLen(char cwlist[][IDLEN + 1], int cwnum, int morenum,
+	   int count)
+{
+    int             len, max = 0;
+
+    while (count-- > 0 && morenum < cwnum) {
+	len = strlen(cwlist[morenum++]);
+	if (len > max)
+	    max = len;
+    }
+    return max;
+}
+
+static int
+UserSubArray(char cwbuf[][IDLEN + 1], char cwlist[][IDLEN + 1],
+	     int cwnum, int key, int pos)
+{
+    int             key2, num = 0;
+    int             n, ch;
+
+    key = chartoupper(key);
+    if (key >= 'A' && key <= 'Z')
+	key2 = key | 0x20;
+    else
+	key2 = key;
+
+    for (n = 0; n < cwnum; n++) {
+	ch = cwlist[n][pos];
+	if (ch == key || ch == key2)
+	    strlcpy(cwbuf[num++], cwlist[n], sizeof(cwbuf[num]));
+    }
+    return num;
+}
+
+void
+FreeNameList()
+{
+    word_t         *p, *temp;
+
+    for (p = toplev; p; p = temp) {
+	temp = p->next;
+	free(p->word);
+	free(p);
+    }
+}
+
+void
+CreateNameList()
+{
+    if (toplev)
+	FreeNameList();
+    toplev = current = NULL;
+}
+
+void
+AddNameList(char *name)
+{
+    word_t         *node;
+
+    node = (word_t *) malloc(sizeof(word_t));
+    node->next = NULL;
+    node->word = (char *)malloc(strlen(name) + 1);
+    strcpy(node->word, name);
+
+    if (toplev)
+	current = current->next = node;
+    else
+	current = toplev = node;
+}
+
+int
+RemoveNameList(char *name)
+{
+    word_t         *curr, *prev = NULL;
+
+    for (curr = toplev; curr; curr = curr->next) {
+	if (!strcmp(curr->word, name)) {
+	    if (prev == NULL)
+		toplev = curr->next;
+	    else
+		prev->next = curr->next;
+
+	    if (curr == current)
+		current = prev;
+	    free(curr->word);
+	    free(curr);
+	    return 1;
+	}
+	prev = curr;
+    }
+    return 0;
+}
+
+int
+InNameList(char *name)
+{
+    word_t         *p;
+
+    for (p = toplev; p; p = p->next)
+	if (!strcmp(p->word, name))
+	    return 1;
+    return 0;
+}
+
+void
+ShowNameList(int row, int column, char *prompt)
+{
+    word_t         *p;
+
+    move(row, column);
+    clrtobot();
+    outs(prompt);
+
+    column = 80;
+    for (p = toplev; p; p = p->next) {
+	row = strlen(p->word) + 1;
+	if (column + row > 76) {
+	    column = row;
+	    outc('\n');
+	} else {
+	    column += row;
+	    outc(' ');
+	}
+	outs(p->word);
+    }
+}
+
+void
+ToggleNameList(int *reciper, char *listfile, char *msg)
+{
+    FILE           *fp;
+    char            genbuf[200];
+
+    if ((fp = fopen(listfile, "r"))) {
+	while (fgets(genbuf, STRLEN, fp)) {
+	    strtok(genbuf, str_space);
+	    if (!InNameList(genbuf)) {
+		AddNameList(genbuf);
+		(*reciper)++;
+	    } else {
+		RemoveNameList(genbuf);
+		(*reciper)--;
+	    }
+	}
+	fclose(fp);
+	ShowNameList(3, 0, msg);
+    }
+}
+
+static int
+NumInList(word_t * list)
+{
+    register int    i;
+
+    for (i = 0; list; i++)
+	list = list->next;
+    return i;
+}
+
+int
+chkstr(char *otag, char *tag, char *name)
+{
+    char            ch, *oname = name;
+
+    while (*tag) {
+	ch = *name++;
+	if (*tag != chartoupper(ch))
+	    return 0;
+	tag++;
+    }
+    if (*tag && *name == '\0')
+	strcpy(otag, oname);
+    return 1;
+}
+
+static word_t  *
+GetSubList(char *tag, word_t * list)
+{
+    word_t         *wlist, *wcurr;
+    char            tagbuf[STRLEN];
+    int             n;
+
+    wlist = wcurr = NULL;
+    for (n = 0; tag[n]; n++)
+	tagbuf[n] = chartoupper(tag[n]);
+    tagbuf[n] = '\0';
+
+    while (list) {
+	if (chkstr(tag, tagbuf, list->word)) {
+	    register word_t *node;
+
+	    node = (word_t *) malloc(sizeof(word_t));
+	    node->word = list->word;
+	    node->next = NULL;
+	    if (wlist)
+		wcurr->next = node;
+	    else
+		wlist = node;
+	    wcurr = node;
+	}
+	list = list->next;
+    }
+    return wlist;
+}
+
+static void
+ClearSubList(word_t * list)
+{
+    struct word_t  *tmp_list;
+
+    while (list) {
+	tmp_list = list->next;
+	free(list);
+	list = tmp_list;
+    }
+}
+
+static int
+MaxLen(word_t * list, int count)
+{
+    int             len = strlen(list->word);
+    int             t;
+
+    while (list && count) {
+	if ((t = strlen(list->word)) > len)
+	    len = t;
+	list = list->next;
+	count--;
+    }
+    return len;
+}
+
+void
+namecomplete(char *prompt, char *data)
+{
+    char           *temp;
+    word_t         *cwlist, *morelist;
+    int             x, y, origx, origy;
+    int             ch;
+    int             count = 0;
+    int             clearbot = NA;
+
+    if (toplev == NULL)
+	AddNameList("");
+    cwlist = GetSubList("", toplev);
+    morelist = NULL;
+    temp = data;
+
+    outs(prompt);
+    clrtoeol();
+    getyx(&y, &x);
+    getyx(&origy, &origx);
+    standout();
+    prints("%*s", IDLEN + 1, "");
+    standend();
+    move(y, x);
+    refresh();
+
+    while ((ch = igetch()) != EOF) {
+	if (ch == '\n' || ch == '\r') {
+	    *temp = '\0';
+	    outc('\n');
+	    if (NumInList(cwlist) == 1)
+		strcpy(data, cwlist->word);
+	    ClearSubList(cwlist);
+	    break;
+	}
+	if (ch == ' ') {
+	    int             col, len;
+
+	    if (NumInList(cwlist) == 1) {
+		strcpy(data, cwlist->word);
+		move(y, x);
+		outs(data + count);
+		count = strlen(data);
+		temp = data + count;
+		getyx(&y, &x);
+		continue;
+	    }
+	    clearbot = YEA;
+	    col = 0;
+	    if (!morelist)
+		morelist = cwlist;
+	    len = MaxLen(morelist, p_lines);
+	    move(2, 0);
+	    clrtobot();
+	    printdash("相關資訊一覽表");
+	    while (len + col < 80) {
+		int             i;
+
+		for (i = p_lines; (morelist) && (i > 0); i--) {
+		    move(3 + (p_lines - i), col);
+		    outs(morelist->word);
+		    morelist = morelist->next;
+		}
+		col += len + 2;
+		if (!morelist)
+		    break;
+		len = MaxLen(morelist, p_lines);
+	    }
+	    if (morelist) {
+		move(b_lines, 0);
+		outs(msg_more);
+	    }
+	    move(y, x);
+	    continue;
+	}
+	if (ch == '\177' || ch == '\010') {
+	    if (temp == data)
+		continue;
+	    temp--;
+	    count--;
+	    *temp = '\0';
+	    ClearSubList(cwlist);
+	    cwlist = GetSubList(data, toplev);
+	    morelist = NULL;
+	    x--;
+	    move(y, x);
+	    outc(' ');
+	    move(y, x);
+	    continue;
+	}
+	if (count < STRLEN && isprint(ch)) {
+	    word_t         *node;
+
+	    *temp++ = ch;
+	    count++;
+	    *temp = '\0';
+	    node = GetSubList(data, cwlist);
+	    if (node == NULL) {
+		temp--;
+		*temp = '\0';
+		count--;
+		continue;
+	    }
+	    ClearSubList(cwlist);
+	    cwlist = node;
+	    morelist = NULL;
+	    move(y, x);
+	    outc(ch);
+	    x++;
+	}
+    }
+    if (ch == EOF)
+	/* longjmp(byebye, -1); */
+	raise(SIGHUP);		/* jochang: don't know if this is
+				 * necessary... */
+    outc('\n');
+    refresh();
+    if (clearbot) {
+	move(2, 0);
+	clrtobot();
+    }
+    if (*data) {
+	move(origy, origx);
+	outs(data);
+	outc('\n');
+    }
+}
+
+void
+usercomplete(char *prompt, char *data)
+{
+    char           *temp;
+    char           *cwbuf, *cwlist;
+    int             cwnum, x, y, origx, origy;
+    int             clearbot = NA, count = 0, morenum = 0;
+    char            ch;
+
+    cwbuf = malloc(MAX_USERS * (IDLEN + 1));
+    cwlist = u_namearray((arrptr) cwbuf, &cwnum, "");
+    temp = data;
+
+    outs(prompt);
+    clrtoeol();
+    getyx(&y, &x);
+    getyx(&origy, &origx);
+    standout();
+    prints("%*s", IDLEN + 1, "");
+    standend();
+    move(y, x);
+    while ((ch = igetch()) != EOF) {
+	if (ch == '\n' || ch == '\r') {
+	    int             i;
+	    char           *ptr;
+
+	    *temp = '\0';
+	    outc('\n');
+	    ptr = (char *)cwlist;
+	    for (i = 0; i < cwnum; i++) {
+		if (strncasecmp(data, ptr, IDLEN + 1) == 0)
+		    strcpy(data, ptr);
+		ptr += IDLEN + 1;
+	    }
+	    break;
+	} else if (ch == ' ') {
+	    int             col, len;
+
+	    if (cwnum == 1) {
+		strcpy(data, (char *)cwlist);
+		move(y, x);
+		outs(data + count);
+		count = strlen(data);
+		temp = data + count;
+		getyx(&y, &x);
+		continue;
+	    }
+	    clearbot = YEA;
+	    col = 0;
+	    len = UserMaxLen((arrptr) cwlist, cwnum, morenum, p_lines);
+	    move(2, 0);
+	    clrtobot();
+	    printdash("使用者代號一覽表");
+	    while (len + col < 79) {
+		int             i;
+
+		for (i = 0; morenum < cwnum && i < p_lines; i++) {
+		    move(3 + i, col);
+		    prints("%s ", cwlist + (IDLEN + 1) * morenum++);
+		}
+		col += len + 2;
+		if (morenum >= cwnum)
+		    break;
+		len = UserMaxLen((arrptr) cwlist, cwnum, morenum, p_lines);
+	    }
+	    if (morenum < cwnum) {
+		move(b_lines, 0);
+		outs(msg_more);
+	    } else
+		morenum = 0;
+	    move(y, x);
+	    continue;
+	} else if (ch == '\177' || ch == '\010') {
+	    if (temp == data)
+		continue;
+	    temp--;
+	    count--;
+	    *temp = '\0';
+	    cwlist = u_namearray((arrptr) cwbuf, &cwnum, data);
+	    morenum = 0;
+	    x--;
+	    move(y, x);
+	    outc(' ');
+	    move(y, x);
+	    continue;
+	} else if (count < STRLEN && isprint(ch)) {
+	    int             n;
+
+	    *temp++ = ch;
+	    *temp = '\0';
+	    n = UserSubArray((arrptr) cwbuf, (arrptr) cwlist, cwnum, ch, count);
+	    if (n == 0) {
+		temp--;
+		*temp = '\0';
+		continue;
+	    }
+	    cwlist = cwbuf;
+	    count++;
+	    cwnum = n;
+	    morenum = 0;
+	    move(y, x);
+	    outc(ch);
+	    x++;
+	}
+    }
+    free(cwbuf);
+    if (ch == EOF)
+	/* longjmp(byebye, -1); */
+	raise(SIGHUP);		/* jochang: don't know if this is necessary */
+    outc('\n');
+    refresh();
+    if (clearbot) {
+	move(2, 0);
+	clrtobot();
+    }
+    if (*data) {
+	move(origy, origx);
+	outs(data);
+	outc('\n');
+    }
+}
+
+int
+gnc_findbound(char *str, int *START, int *END,
+	      size_t nmemb, int (*compar) (int, char *, int))
+{
+    int             start, end, mid, cmp, strl;
+    strl = strlen(str);
+    start = 0, end = nmemb - 1;
+    while (start != end && ((mid = (start + end) / 2) != start)) {
+	cmp = compar(mid, str, strl);
+	//cmp = strncasecmp(brdshm->sorted[0][mid]->brdname, str, strl);
+	if (cmp >= 0)
+	    end = mid;
+	else
+	    start = mid;
+    }
+    ++start;
+    if (compar(start, str, strl) != 0) {
+	*START = *END = -1;
+	return -1;
+    }
+    *START = start;
+
+    end = nmemb - 1;
+    while (start != end && ((mid = (start + end) / 2) != start)) {
+	cmp = compar(mid, str, strl);
+	//cmp = strncasecmp(brdshm->sorted[0][mid]->brdname, str, strl);
+	if (cmp <= 0)
+	    start = mid;
+	else
+	    end = mid;
+    }
+    *END = start;
+    return 0;
+}
+int
+gnc_completeone(char *data, int start, int end,
+		int (*permission) (int), char *(*getname) (int))
+{
+    int             i, count, at;
+    if (start < 0 || end < 0)
+	return -1;
+    for (i = start, at = count = 0; i <= end && count < 2; ++i)
+	if (permission(i)) {
+	    at = i;
+	    ++count;
+	}
+    if (count == 1) {
+	strcpy(data, getname(at));
+	return at;
+    }
+    return -1;
+}
+
+
+int
+generalnamecomplete(char *prompt, char *data, int len, size_t nmemb,
+		    int (*compar) (int, char *, int),
+		    int (*permission) (int), char *(*getname) (int))
+{
+    int             x, y, origx, origy, ch, i, morelist = -1, col, ret = -1;
+    int             start, end, ptr;
+    int             clearbot = NA;
+
+    outs(prompt);
+    clrtoeol();
+    getyx(&y, &x);
+    getyx(&origy, &origx);
+    standout();
+    prints("%*s", IDLEN + 1, "");
+    standend();
+    move(y, x);
+    refresh();
+    ptr = 0;
+    data[ptr] = 0;
+
+    while ((ch = igetch()) != EOF) {
+	if (ch == '\n' || ch == '\r') {
+	    data[ptr] = 0;
+	    outc('\n');
+	    if (ptr != 0) {
+		gnc_findbound(data, &start, &end, nmemb, compar);
+		ret = gnc_completeone(data, start, end, permission, getname);
+	    } else
+		ptr = -1;
+	    break;
+	} else if (ch == ' ') {
+	    if (ptr == 0)
+		continue;
+
+	    if (morelist == -1) {
+		if (gnc_findbound(data, &start, &end, nmemb, compar) == -1)
+		    continue;
+		if (gnc_completeone(data, start, end,
+				    permission, getname) >= 0) {
+		    move(origy, origx);
+		    outs(data);
+		    ptr = strlen(data);
+		    getyx(&y, &x);
+		    continue;
+		}
+		morelist = start;
+	    } else if (morelist > end)
+		continue;
+	    clearbot = YEA;
+	    move(2, 0);
+	    clrtobot();
+	    printdash("相關資訊一覽表");
+
+	    col = 0;
+	    while (len + col < 79) {
+		for (i = 0; morelist <= end && i < p_lines; ++morelist) {
+		    if (permission(morelist)) {
+			move(3 + i, col);
+			prints("%s ", getname(morelist));
+			++i;
+		    }
+		}
+
+		col += len + 2;
+	    }
+	    if (morelist != end + 1) {
+		move(b_lines, 0);
+		outs(msg_more);
+	    }
+	    move(y, x);
+	    continue;
+
+	} else if (ch == '\177' || ch == '\010') {	/* backspace */
+	    if (ptr == 0)
+		continue;
+	    morelist = -1;
+	    --ptr;
+	    --x;
+	    data[ptr] = 0;
+	    move(y, x);
+	    outc(' ');
+	    move(y, x);
+	    continue;
+	} else if (isprint(ch) && ptr <= (len - 2)) {
+	    morelist = -1;
+	    data[ptr] = ch;
+	    ++ptr;
+	    data[ptr] = 0;
+	    if (gnc_findbound(data, &start, &end, nmemb, compar) < 0)
+		data[--ptr] = 0;
+	    else {
+		for (i = start; i <= end; ++i)
+		    if (permission(i))
+			break;
+		if (i == end + 1)
+		    data[--ptr] = 0;
+		else {
+		    move(y, x);
+		    outc(ch);
+		    x++;
+		}
+	    }
+	}
+    }
+
+    outc('\n');
+    refresh();
+    if (clearbot) {
+	move(2, 0);
+	clrtobot();
+    }
+    if (*data) {
+	move(origy, origx);
+	outs(data);
+	outc('\n');
+    }
+    return ret;
+}
+
+/* general complete functions (brdshm) */
+int
+completeboard_compar(int where, char *str, int len)
+{
+    return strncasecmp(SHM->bsorted[0][where]->brdname, str, len);
+}
+
+int
+completeboard_permission(int where)
+{
+    return (Ben_Perm(SHM->bsorted[0][where]) &&
+	    !(SHM->bsorted[0][where]->brdattr & BRD_GROUPBOARD));
+}
+
+char           *
+completeboard_getname(int where)
+{
+    return SHM->bsorted[0][where]->brdname;
+}
+
+/* general complete functions (utmpshm) */
+int
+completeutmp_compar(int where, char *str, int len)
+{
+    return strncasecmp(SHM->sorted[SHM->currsorted][0][where]->userid,
+		       str, len);
+}
+
+int
+completeutmp_permission(int where)
+{
+    return (HAS_PERM(PERM_SYSOP) || HAS_PERM(PERM_SEECLOAK) ||
+	    !SHM->sorted[SHM->currsorted][0][where]->invisible);
+}
+
+char           *
+completeutmp_getname(int where)
+{
+    return SHM->sorted[SHM->currsorted][0][where]->userid;
+}
diff --git a/pttbbs/mbbsd/osdep.c b/pttbbs/mbbsd/osdep.c
new file mode 100644
index 00000000..4e6d286e
--- /dev/null
+++ b/pttbbs/mbbsd/osdep.c
@@ -0,0 +1,224 @@
+/* $Id$ */
+#include "bbs.h"
+
+#ifdef __linux__
+#include <sys/types.h>
+#include <string.h>
+
+/*   size_t
+ *   strlcat(char *dst, const char *src, size_t size);
+ */
+/*
+ * Copyright (c) 1998 Todd C. Miller <Todd.Miller@courtesan.com>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
+ * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+ * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+ * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/*
+ * Appends src to string dst of size siz (unlike strncat, siz is the
+ * full size of dst, not space left).  At most siz-1 characters
+ * will be copied.  Always NUL terminates (unless siz <= strlen(dst)).
+ * Returns strlen(src) + MIN(siz, strlen(initial dst)).
+ * If retval >= siz, truncation occurred.
+ */
+size_t
+strlcat(dst, src, siz)
+	char *dst;
+	const char *src;
+	size_t siz;
+{
+	char *d = dst;
+	const char *s = src;
+	size_t n = siz;
+	size_t dlen;
+
+	/* Find the end of dst and adjust bytes left but don't go past end */
+	while (n-- != 0 && *d != '\0')
+		d++;
+	dlen = d - dst;
+	n = siz - dlen;
+
+	if (n == 0)
+		return(dlen + strlen(s));
+	while (*s != '\0') {
+		if (n != 1) {
+			*d++ = *s;
+			n--;
+		}
+		s++;
+	}
+	*d = '\0';
+
+	return(dlen + (s - src));	/* count does not include NUL */
+}
+
+/* ------------------------------------------------------------------------ */
+
+/*   size_t
+ *   strlcpy(char *dst, const char *src, size_t size);
+ */
+
+/*
+ * Copyright (c) 1998 Todd C. Miller <Todd.Miller@courtesan.com>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
+ * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+ * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+ * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/*
+ * Copy src to string dst of size siz.  At most siz-1 characters
+ * will be copied.  Always NUL terminates (unless siz == 0).
+ * Returns strlen(src); if retval >= siz, truncation occurred.
+ */
+size_t strlcpy(dst, src, siz)
+	char *dst;
+	const char *src;
+	size_t siz;
+{
+	char *d = dst;
+	const char *s = src;
+	size_t n = siz;
+
+	/* Copy as many bytes as will fit */
+	if (n != 0 && --n != 0) {
+		do {
+			if ((*d++ = *s++) == 0)
+				break;
+		} while (--n != 0);
+	}
+
+	/* Not enough room in dst, add NUL and traverse rest of src */
+	if (n == 0) {
+		if (siz != 0)
+			*d = '\0';		/* NUL-terminate dst */
+		while (*s++)
+			;
+	}
+
+	return(s - src - 1);	/* count does not include NUL */
+}
+
+#endif
+
+#if __FreeBSD__
+
+#include <kvm.h>
+
+int
+cpuload(char *str)
+{
+    double          l[3] = {-1, -1, -1};
+    if (getloadavg(l, 3) != 3)
+	l[0] = -1;
+
+    if (str) {
+	if (l[0] != -1)
+	    sprintf(str, " %.2f %.2f %.2f", l[0], l[1], l[2]);
+	else
+	    strcpy(str, " (unknown) ");
+    }
+    return (int)l[0];
+}
+
+double
+swapused(long *total, long *used)
+{
+    double          percent = -1;
+    kvm_t          *kd;
+    struct kvm_swap swapinfo;
+    int             pagesize;
+
+    kd = kvm_open(NULL, NULL, NULL, O_RDONLY, NULL);
+    if (kd) {
+	if (kvm_getswapinfo(kd, &swapinfo, 1, 0) == 0) {
+	    pagesize = getpagesize();
+	    *total = swapinfo.ksw_total * pagesize;
+	    *used = swapinfo.ksw_used * pagesize;
+	    if (*total != 0)
+		percent = (double)*used / (double)*total;
+	}
+	kvm_close(kd);
+    }
+    return percent;
+}
+
+#else
+int
+cpuload(char *str)
+{
+    double          l[3] = {-1, -1, -1};
+    FILE           *fp;
+
+    if ((fp = fopen("/proc/loadavg", "r"))) {
+	if (fscanf(fp, "%lf %lf %lf", &l[0], &l[1], &l[2]) != 3)
+	    l[0] = -1;
+	fclose(fp);
+    }
+    if (str) {
+	if (l[0] != -1)
+	    snprintf(str, sizeof(str), " %.2f %.2f %.2f", l[0], l[1], l[2]);
+	else
+	    strcpy(str, " (unknown) ");
+    }
+    return (int)l[0];
+}
+
+double
+swapused(long *total, long *used)
+{
+    double          percent = -1;
+    char            buf[101];
+    FILE           *fp;
+
+    if ((fp = fopen("/proc/meminfo", "r"))) {
+	while (fgets(buf, 100, fp) && buf[0] != 'S');
+	if (sscanf(buf + 6, "%ld %ld", total, used) == 2)
+	    if (*total != 0)
+		percent = (double)*used / (double)*total;
+	fclose(fp);
+    }
+    return percent;
+}
+
+#endif
diff --git a/pttbbs/mbbsd/othello.c b/pttbbs/mbbsd/othello.c
new file mode 100644
index 00000000..96fea2e2
--- /dev/null
+++ b/pttbbs/mbbsd/othello.c
@@ -0,0 +1,563 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define LOGFILE "etc/othello.log"
+#define SECRET "etc/othello.secret"
+#define NR_TABLE 2
+
+#define true 1
+#define false 0
+#define STARTX 3
+#define STARTY 20
+#define NONE_CHESS "  "
+#define WHITE_CHESS "●"
+#define BLACK_CHESS "○"
+#define HINT_CHESS "＃"
+#define NONE  0
+#define HINT  1
+#define BLACK 2
+#define WHITE 3
+
+#define INVERT(COLOR) (((COLOR))==WHITE?BLACK:WHITE)
+
+static char     nowx = 3, nowy = 3;
+static char    *CHESS_TYPE[] = {NONE_CHESS, HINT_CHESS, BLACK_CHESS, WHITE_CHESS};
+static char     DIRX[] = {-1, -1, -1, 0, 1, 1, 1, 0};
+static char     DIRY[] = {-1, 0, 1, 1, 1, 0, -1, -1};
+static char     number[2];
+
+static char     pass = 0;
+static char     if_hint = 0;
+static int      think, which_table;
+
+static char     nowboard[10][10] =
+{{-1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, NONE, NONE, NONE, NONE, NONE, NONE, NONE, NONE, -1},
+{-1, -1, -1, -1, -1, -1, -1, -1, -1, -1}};
+static char     init_table[NR_TABLE + 1][5][5] = {
+    {{0, 0, 0, 0, 0},
+    {0, 30, -3, 2, 2},
+    {0, -3, -3, -1, -1},
+    {0, 2, -1, 1, 1},
+    {0, 2, -1, 1, 0}},
+
+    {{0, 0, 0, 0, 0},
+    {0, 70, 5, 20, 30},
+    {0, 5, -5, 3, 3},
+    {0, 20, 3, 5, 5},
+    {0, 30, 3, 5, 5}},
+
+    {{0, 0, 0, 0, 0},
+    {0, 5, 2, 2, 2},
+    {0, 2, 1, 1, 1},
+    {0, 2, 1, 1, 1},
+    {0, 2, 1, 1, 1}}
+};
+
+static char     table[NR_TABLE + 1][10][10];
+static void
+print_chess(int x, int y, char chess)
+{
+    move(STARTX - 1 + x * 2, STARTY - 2 + y * 4);
+    if (chess != HINT || if_hint == 1)
+	prints(CHESS_TYPE[(int)chess]);
+    else
+	prints(CHESS_TYPE[NONE]);
+    refresh();
+}
+
+static void
+printboard()
+{
+    int             i;
+
+    move(STARTX, STARTY);
+    prints("┌─┬─┬─┬─┬─┬─┬─┬─┐");
+    for (i = 0; i < 7; i++) {
+	move(STARTX + 1 + i * 2, STARTY);
+	prints("│  │  │  │  │  │  │  │  │");
+	move(STARTX + 2 + i * 2, STARTY);
+	prints("├─┼─┼─┼─┼─┼─┼─┼─┤");
+    }
+    move(STARTX + 1 + i * 2, STARTY);
+    prints("│  │  │  │  │  │  │  │  │");
+    move(STARTX + 2 + i * 2, STARTY);
+    prints("└─┴─┴─┴─┴─┴─┴─┴─┘");
+    print_chess(4, 4, WHITE);
+    print_chess(5, 5, WHITE);
+    print_chess(4, 5, BLACK);
+    print_chess(5, 4, BLACK);
+    move(3, 56);
+    prints("(黑)%s", cuser.userid);
+    move(3, 72);
+    prints(": 02");
+    move(4, 56);
+    prints("(白)電腦        : 02");
+    move(6, 56);
+    prints("＃  可以下之處");
+    move(7, 56);
+    prints("[q] 退出");
+    move(8, 56);
+    prints("[h] 開啟/關閉 提示");
+    move(9, 56);
+    prints("[Enter][Space] 下棋");
+    move(10, 56);
+    prints("上:↑, i");
+    move(11, 56);
+    prints("下:↓, k");
+    move(12, 56);
+    prints("左:←, j");
+    move(13, 56);
+    prints("右:→, l");
+}
+
+static int
+get_key(char nowx, char nowy)
+{
+    int             ch;
+
+    move(STARTX - 1 + nowx * 2, STARTY - 1 + nowy * 4);
+    ch = igetkey();
+    move(STARTX - 1 + nowx * 2, STARTY - 2 + nowy * 4);
+    if (nowboard[(int)nowx][(int)nowy] != HINT || if_hint == 1)
+	outs(CHESS_TYPE[(int)nowboard[(int)nowx][(int)nowy]]);
+    else
+	outs(CHESS_TYPE[NONE]);
+    return ch;
+}
+
+static int
+eatline(int i, int j, char color, int dir, char chessboard[][10])
+{
+    int             tmpx, tmpy;
+    char            tmpchess;
+
+    tmpx = i + DIRX[dir];
+    tmpy = j + DIRY[dir];
+    tmpchess = chessboard[tmpx][tmpy];
+    if (tmpchess == -1)
+	return false;
+    if (tmpchess != INVERT(color))
+	return false;
+
+    tmpx += DIRX[dir];
+    tmpy += DIRY[dir];
+    tmpchess = chessboard[tmpx][tmpy];
+    while (tmpchess != -1) {
+	if (tmpchess < BLACK)
+	    return false;
+	if (tmpchess == color) {
+	    while (i != tmpx || j != tmpy) {
+		chessboard[i][j] = color;
+		i += DIRX[dir];
+		j += DIRY[dir];
+	    }
+	    return true;
+	}
+	tmpx += DIRX[dir];
+	tmpy += DIRY[dir];
+	tmpchess = chessboard[tmpx][tmpy];
+    }
+    return false;
+}
+
+static int
+if_can_put(int x, int y, char color, char chessboard[][10])
+{
+    int             i, temp, checkx, checky;
+
+    if (chessboard[x][y] < BLACK)
+	for (i = 0; i < 8; i++) {
+	    checkx = x + DIRX[i];
+	    checky = y + DIRY[i];
+	    temp = chessboard[checkx][checky];
+	    if (temp < BLACK)
+		continue;
+	    if (temp != color)
+		while (chessboard[checkx += DIRX[i]][checky += DIRY[i]] > HINT)
+		    if (chessboard[checkx][checky] == color)
+			return true;
+	}
+    return false;
+}
+
+static int
+get_hint(char color)
+{
+    int             i, j, temp = 0;
+
+    for (i = 1; i <= 8; i++)
+	for (j = 1; j <= 8; j++) {
+	    if (nowboard[i][j] == HINT)
+		nowboard[i][j] = NONE;
+	    if (if_can_put(i, j, color, nowboard)) {
+		nowboard[i][j] = HINT;
+		temp++;
+	    }
+	    print_chess(i, j, nowboard[i][j]);
+	}
+    return temp;
+}
+
+static void
+eat(int x, int y, int color, char chessboard[][10])
+{
+    int             k;
+
+    for (k = 0; k < 8; k++)
+	eatline(x, y, color, k, chessboard);
+}
+
+static void
+end_of_game(int quit)
+{
+    FILE           *fp, *fp1;
+    char           *opponent[] = {"", "CD-65", "", "嬰兒", "小孩", "", "大人", "專家"};
+
+    move(STARTX - 1, 30);
+    prints("                         ");
+    move(22, 35);
+    fp = fopen(LOGFILE, "a");
+    if (!quit) {
+	fp1 = fopen(SECRET, "a");
+	if (fp1) {
+	    fprintf(fp1, "%d,%d,%s,%02d,%02d\n", think, which_table,
+		    cuser.userid, number[0], number[1]);
+	    fclose(fp1);
+	}
+    }
+    if (quit) {
+	if (number[0] == 2 && number[1] == 2) {
+	    if (fp)
+		fclose(fp);
+	    return;
+	}
+	fprintf(fp, "在%s級中, %s臨陣脫逃\n", opponent[think], cuser.userid);
+	if (fp)
+	    fclose(fp);
+	return;
+    }
+    if (number[0] > number[1]) {
+	prints("你贏了電腦%02d子", number[0] - number[1]);
+	if (think == 6 && number[0] - number[1] >= 50)
+	    demoney(200);
+	if (think == 7 && number[0] - number[1] >= 40)
+	    demoney(200);
+	if (fp)
+	    fprintf(fp, "在%s級中, %s以 %02d:%02d 贏了電腦%02d子\n",
+		    opponent[think], cuser.userid, number[0], number[1],
+		    number[0] - number[1]);
+    } else if (number[1] > number[0]) {
+	prints("電腦贏了你%02d子", number[1] - number[0]);
+	if (fp) {
+	    fprintf(fp, "在%s級中, ", opponent[think]);
+	    if (number[1] - number[0] > 20)
+		fprintf(fp, "電腦以 %02d:%02d 慘電%s %02d子\n", number[1],
+			number[0], cuser.userid, number[1] - number[0]);
+	    else
+		fprintf(fp, "電腦以 %02d:%02d 贏了%s %02d子\n", number[1],
+			number[0], cuser.userid, number[1] - number[0]);
+	}
+    } else {
+	prints("你和電腦打成平手!!");
+	if (fp)
+	    fprintf(fp, "在%s級中, %s和電腦以 %02d:%02d 打成了平手\n",
+		    opponent[think], cuser.userid, number[1], number[0]);
+    }
+    if (fp)
+	fclose(fp);
+    move(1, 1);
+    igetkey();
+}
+
+static void
+othello_redraw()
+{
+    int             i, j;
+
+    for (i = 1; i <= 8; i++)
+	for (j = 1; j <= 8; j++)
+	    print_chess(i, j, nowboard[i][j]);
+}
+
+static int
+player(char color)
+{
+    int             ch;
+
+    if (get_hint(color)) {
+	while (true) {
+	    ch = get_key(nowx, nowy);
+	    switch (ch) {
+	    case 'J':
+	    case 'j':
+	    case KEY_LEFT:
+		nowy--;
+		break;
+	    case 'L':
+	    case 'l':
+	    case KEY_RIGHT:
+		nowy++;
+		break;
+	    case 'I':
+	    case 'i':
+	    case KEY_UP:
+		nowx--;
+		break;
+	    case 'K':
+	    case 'k':
+	    case KEY_DOWN:
+		nowx++;
+		break;
+	    case ' ':
+	    case '\r':
+		if (nowboard[(int)nowx][(int)nowy] != HINT)
+		    break;
+		pass = 0;
+		nowboard[(int)nowx][(int)nowy] = color;
+		eat(nowx, nowy, color, nowboard);
+		print_chess(nowx, nowy, color);
+		return true;
+	    case 'q':
+		end_of_game(1);
+		return false;
+	    case 'H':
+	    case 'h':
+		if_hint = if_hint ^ 1;
+		othello_redraw();
+		break;
+	    }
+	    if (nowx == 9)
+		nowx = 1;
+	    if (nowx == 0)
+		nowx = 8;
+	    if (nowy == 9)
+		nowy = 1;
+	    if (nowy == 0)
+		nowy = 8;
+	}
+    } else {
+	pass++;
+	if (pass == 1) {
+	    move(23, 34);
+	    prints("你必需放棄這一步!!");
+	    igetch();
+	    move(28, 23);
+	    prints("                             ");
+	} else {
+	    end_of_game(0);
+	    return false;
+	}
+    }
+    return 0;
+}
+
+static void
+init()
+{
+    int             i, j, i1, j1;
+
+    nowx = 4;
+    nowy = 4;
+    number[0] = number[1] = 2;
+    for (i = 1; i <= 8; i++)
+	for (j = 1; j <= 8; j++) {
+	    i1 = 4.5 - abs(4.5 - i);
+	    j1 = 4.5 - abs(4.5 - j);
+	    table[0][i][j] = init_table[0][i1][j1];
+	    table[1][i][j] = init_table[1][i1][j1];
+	}
+    for (i = 1; i <= 8; i++)
+	for (j = 1; j <= 8; j++)
+	    nowboard[i][j] = NONE;
+    nowboard[4][4] = nowboard[5][5] = WHITE;
+    nowboard[4][5] = nowboard[5][4] = BLACK;
+}
+
+static void
+report()
+{
+    int             i, j;
+
+    number[0] = number[1] = 0;
+    for (i = 1; i <= 8; i++)
+	for (j = 1; j <= 8; j++)
+	    if (nowboard[i][j] == BLACK)
+		number[0]++;
+	    else if (nowboard[i][j] == WHITE)
+		number[1]++;
+    move(3, 60);
+    prints("%s", cuser.userid);
+    move(3, 72);
+    prints(": %02d", number[0]);
+    move(4, 60);
+    prints("電腦        : %02d", number[1]);
+}
+
+static int
+EVL(char chessboard[][10], int color, int table_number)
+{
+    int             points = 0, a, b;
+    for (a = 1; a <= 8; a++)
+	for (b = 1; b <= 8; b++)
+	    if (chessboard[a][b] > HINT) {
+		if (chessboard[a][b] == BLACK)
+		    points += table[table_number][a][b];
+		else
+		    points -= table[table_number][a][b];
+	    }
+    return ((color == BLACK) ? points : -points);
+}
+
+static int
+alphabeta(int alpha, int beta, int level, char chessboard[][10],
+	  int thinkstep, int color, int table)
+{
+    int             i, j, k, flag = 1;
+    char            tempboard[10][10];
+    if (level == thinkstep + 1)
+	return EVL(chessboard, (level & 1 ? color : ((color - 2) ^ 1) + 2),
+		   table);
+    for (i = 1; i <= 8; i++) {
+	for (j = 1; j <= 8; j++) {
+	    if (if_can_put(i, j, color, chessboard)) {
+		flag = 0;
+		memcpy(tempboard, chessboard, sizeof(char) * 100);
+		eat(i, j, color, tempboard);
+
+		k = alphabeta(alpha, beta, level + 1, tempboard, thinkstep,
+			      ((color - 2) ^ 1) + 2, table);
+		if (((level & 1) && k > alpha))
+		    alpha = k;
+		else if (!(level & 1) && k < beta)
+		    beta = k;
+		if (alpha >= beta)
+		    break;
+	    }
+	}
+    }
+    if (flag)
+	return EVL(chessboard, color, table);
+    return ((level & 1) ? alpha : beta);
+}
+
+static int
+Computer(int thinkstep, int table)
+{
+    int             i, j, maxi = 0, maxj = 0, level = 1;
+    char            chessboard[10][10];
+    int             alpha = -10000, k;
+    if ((number[0] + number[1]) > 44)
+	table = NR_TABLE;
+    for (i = 1; i <= 8; i++)
+	for (j = 1; j <= 8; j++) {
+	    if (if_can_put(i, j, WHITE, nowboard)) {
+		memcpy(chessboard, nowboard, sizeof(char) * 100);
+		eat(i, j, WHITE, chessboard);
+		k = alphabeta(alpha, 10000, level + 1, chessboard, thinkstep,
+			      BLACK, table);
+		if (k > alpha) {
+		    alpha = k;
+		    maxi = i;
+		    maxj = j;
+		}
+	    }
+	}
+    if (alpha != -10000) {
+	eat(maxi, maxj, WHITE, nowboard);
+	pass = 0;
+	nowx = maxi;
+	nowy = maxj;
+    } else {
+	move(23, 30);
+	prints("電腦放棄這一步棋!!");
+	pass++;
+	if (pass == 2) {
+	    move(23, 24);
+	    prints("                               ");
+	    end_of_game(0);
+	    return false;
+	}
+	igetch();
+	move(23, 24);
+	prints("                                  ");
+    }
+    return true;
+}
+
+static int
+choose()
+{
+    char            thinkstep[2];
+
+    move(2, 0);
+    prints("請選擇難度:");
+    move(5, 0);
+    prints("(1) CD-65\n");	/* 想 1 步 */
+    prints("(2) 嬰兒\n");	/* 想 3 步 */
+    prints("(3) 小孩\n");	/* 想 4 步 */
+    do {
+	getdata(4, 0, "請選擇一個對象和您對打:(1~5)",
+		thinkstep, sizeof(thinkstep), LCECHO);
+    } while (thinkstep[0] < '1' || thinkstep[0] > '3');
+    clear();
+    switch (thinkstep[0]) {
+    case '2':
+	thinkstep[0] = '3';
+	break;
+    case '3':
+	thinkstep[0] = '4';
+	break;
+    default:
+	thinkstep[0] = '1';
+	break;
+    }
+    return atoi(thinkstep);
+}
+
+#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
+
+int
+othello_main()
+{
+    lockreturn0(OTHELLO, LOCK_MULTI);
+    clear();
+    init();
+    think = choose();
+    showtitle("黑白棋", BBSName);
+    printboard();
+    which_table = rand() % NR_TABLE;
+    while (true) {
+	move(STARTX - 1, 30);
+	prints("輪到你下了...");
+	if (!player(BLACK))
+	    break;
+	report();
+	othello_redraw();
+	if (number[0] + number[1] == 64) {
+	    end_of_game(0);
+	    break;
+	}
+	move(STARTX - 1, 30);
+	prints("電腦思考中...");
+	refresh();
+	if (!Computer(think, which_table))
+	    break;
+	report();
+	othello_redraw();
+	if (number[0] + number[1] == 64) {
+	    end_of_game(0);
+	    break;
+	}
+    }
+    more(LOGFILE, YEA);
+    unlockutmpmode();
+    return 1;
+}
diff --git a/pttbbs/mbbsd/page.c b/pttbbs/mbbsd/page.c
new file mode 100644
index 00000000..81e0a7f5
--- /dev/null
+++ b/pttbbs/mbbsd/page.c
@@ -0,0 +1,158 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define hpressanykey(a) {move(22, 0); prints(a); pressanykey();}
+#define TITLE "\033[1;37;45m 火車查詢系統 \033[1;44;33m原作者:Heat\033[m"
+
+void
+print_station(const char *addr[6][100], int path, int *line, int *num)
+{
+	int i;
+	char genbuf[128];
+
+	*num = 0;
+	move(*line,0);
+	do{
+		for(i=0; i<7 && addr[path - 1][*num]!=NULL; i++){
+			sprintf(genbuf, " %2d.%-6s", (*num)+1, addr[path - 1][*num]);
+			(*num)++;
+			outs(genbuf);
+		}
+		outs("\n");
+		(*line)++;
+	}while(i==7);
+}
+
+int
+main_railway()
+{
+    fileheader_t    mhdr;
+    char            genbuf[200];
+    int             from, to, time_go, time_reach, date, path;
+    int             line, station_num;
+    char            tt[2], type[2];
+    char            command[256], buf[8];
+	static const char *addr[6][100] = {
+		{
+			"基隆", "八堵", "七堵", "五堵", "汐止", "南港", "松山", "台北", "萬華",
+			"板橋", "樹林", "山佳", "鶯歌", "桃園", "內壢", "中壢", "埔心", "楊梅",
+			"湖口", "新豐", "竹北", "新竹", "香山", "崎頂", "竹南", "造橋", "豐富",
+			"談文", "大山", "後龍", "龍港", "白沙屯", "新埔", "通霄", "苑裡",
+			"日南", "大甲", "臺中港", "清水", "沙鹿", "龍井", "大肚", "追分",
+			"苗栗", "南勢", "銅鑼", "三義", "勝興", "泰安", "后里", "豐原", "潭子",
+			"台中", "烏日", "成功\", "彰化", "花壇", "員林", "永靖", "社頭",
+			"田中", "二水", "林內", "石榴", "斗六", "斗南", "石龜", "大林",
+			"民雄", "嘉義", "水上", "南靖", "後壁", "新營", "柳營", "林鳳營",
+			"隆田", "拔林", "善化", "新市", "永康", "台南", "保安", "中洲",
+			"大湖", "路竹", "岡山", "橋頭", "楠梓", "左營", "高雄", "鳳山",
+			"九曲堂", "屏東", NULL
+		},
+		{
+			"樹林", "板橋", "萬華", "台北", "松山", "南港", "汐止", "基隆", "八堵",
+			"暖暖", "四腳亭", "瑞芳", "侯硐", "三貂嶺", "牡丹", "雙溪", "貢寮",
+			"福隆", "石城", "大里", "大溪", "龜山", "外澳", "頭城", "頂埔", "礁溪",
+			"四城", "宜蘭", "二結", "中里", "羅東", "冬山", "新馬", "蘇澳新站",
+			"蘇澳", "永樂", "東澳", "南澳", "武塔", "漢本", "和平", "和仁", "崇德",
+			"新城", "景美", "北埔", "花蓮", "吉安", "志學", "平和", "壽豐", "豐田",
+			"溪口", "南平", "鳳林", "萬榮", "光復", "大富", "富源", "瑞北", "瑞穗",
+			"三民", "玉里", "安通", "東里", "東竹", "富里", "池上", "海瑞", "關山",
+			"月美", "瑞和", "瑞源", "鹿野", "山里", "台東", NULL
+		},
+		{
+			"高雄", "鳳山", "後庄", "九曲堂", "六塊厝", "屏東", "歸來", "麟洛",
+			"西勢", "竹田", "潮州", "崁頂", "南州", "鎮安", "林邊", "佳冬", "東海",
+			"枋寮", "加祿", "內獅", "枋山", "古莊", "大武", "瀧溪", "多良", "金崙",
+			"太麻里", "知本", "康樂", "台東", NULL
+		},
+		{
+			"八堵", "暖暖", "四腳亭", "瑞芳", "侯硐", "三貂嶺", "大華", "十分",
+			"望古", "嶺腳", "平溪", "菁桐", NULL
+		},
+		{
+			"新竹", "竹中", "上員", "榮華", "竹東", "橫山", "九讚頭", "合興", "南河",
+			"內灣", NULL
+		},
+		{
+			"台中", "烏日", "成功\", "彰化", "花壇", "員林", "永靖", "社頭", "田中",
+			"二水", "源泉", "濁水", "龍泉", "集集", "水里", "車埕", NULL
+		}
+	};
+
+    setutmpmode(RAIL_WAY);
+    clear();
+    move(0, 25);
+    prints(TITLE);
+    move(1, 0);
+
+    getdata(3, 0, "\033[1;35m你確定要搜尋嗎?[y/n]:\033[m", buf, 2, LCECHO);
+    if (buf[0] != 'y' && buf[0] != 'Y')
+	return 0;
+    outs("\033[1;33m1.西部幹線(含台中線)  2.東部幹線(含北迴線)\n");
+    outs("\033[1;33m3.南迴線  4.平溪線  5.內灣線  6.集集線\n");
+    while (1)
+    if (getdata(7, 0, "\033[1;35m請選擇路線(1-6):\033[m", buf, 2, LCECHO) &&
+   	 (path = atoi(buf)) >= 1 && path <= 6)
+	    break;
+
+    clear();
+    move(0, 25);
+    prints(TITLE);
+	line = 3;
+	print_station(addr, path, &line, &station_num);
+    sprintf(genbuf, "\033[1;35m請輸入起站(1-%d):\033[m", station_num);
+    while (1)
+	if (getdata(line, 0, genbuf, buf, 3, LCECHO) && (from = atoi(buf)) >= 1 && from <= station_num)
+	   	break;
+    sprintf(genbuf, "\033[1;35m請輸入終站(1-%d):\033[m", station_num);
+    while (1)
+	if (getdata(line, 40, genbuf, buf, 3, LCECHO) && (to = atoi(buf)) >= 1 && to <= station_num)
+	   	break;
+	line++;
+	
+    while (1)
+	if (getdata(line, 0, "\033[1;35m請輸入時間區段(0-23) 由:\033[m",
+		    buf, 3, LCECHO) &&
+	    (time_go = atoi(buf)) >= 0 && time_go <= 23)
+	    break;
+    while (1)
+	if (getdata(line, 40, "\033[1;35m到:\033[m", buf, 3, LCECHO) &&
+	    (time_reach = atoi(buf)) >= 0 && time_reach <= 23)
+	    break;
+	line++;
+	if (path<=3){
+    while (1)
+		if (getdata(line, 0, "\033[1;35m想查詢 1:對號快車  2:普通平快\033[m",
+		    	type, 2, LCECHO) && (type[0] == '1' || type[0] == '2'))
+	    	break;
+		line++;
+	}
+    while (1)
+	if (getdata(line, 0, "\033[1;35m欲查詢 1:出發時間  2:到達時間\033[m",
+		    tt, sizeof(tt), LCECHO) &&
+	    (tt[0] == '1' || tt[0] == '2'))
+	    break;
+	line++;
+    while (1)
+	if (getdata(line, 0, "\033[1;35m請輸入欲查詢日期(0-29)天後\033[m",
+		    buf, 3, LCECHO) && (date = atoi(buf))>=0 && date<=29)
+	    break;
+	line++;
+
+    sethomepath(genbuf, cuser.userid);
+    stampfile(genbuf, &mhdr);
+    strlcpy(mhdr.owner, "Ptt搜尋器", sizeof(mhdr.owner));
+    strncpy(mhdr.title, "火車時刻搜尋結果", TTLEN);
+
+    snprintf(command, sizeof(command), "echo \"path=%d from-station=%s to-station=%s"
+	    " from-time=%02d to-time=%02d tt=%s type=%s date=%d\" | /home/bbs/bin/railway_wrapper.pl > %s",
+	    path, addr[path - 1][from - 1], addr[path - 1][to - 1], time_go, time_reach,
+	    (tt[0] == '1') ? "start" : "arriv",
+	    (type[0] == '1') ? "fast" : "slow", date, genbuf);
+
+    system(command);
+    sethomedir(genbuf, cuser.userid);
+    if (append_record(genbuf, &mhdr, sizeof(mhdr)) == -1)
+	return -1;
+    hpressanykey("\033[1;31m我們會把搜尋結果很快地寄給你唷  ^_^\033[m");
+    return 0;
+}
diff --git a/pttbbs/mbbsd/passwd.c b/pttbbs/mbbsd/passwd.c
new file mode 100644
index 00000000..7686e566
--- /dev/null
+++ b/pttbbs/mbbsd/passwd.c
@@ -0,0 +1,139 @@
+/* $Id$ */
+#include "bbs.h"
+
+static int      semid = -1;
+
+#ifndef SEM_R
+#define SEM_R 0400
+#endif
+
+#ifndef SEM_A
+#define SEM_A 0200
+#endif
+
+#ifndef __FreeBSD__
+union semun {
+    int             val;	/* value for SETVAL */
+    struct semid_ds *buf;	/* buffer for IPC_STAT & IPC_SET */
+    u_short        *array;	/* array for GETALL & SETALL */
+    struct seminfo *__buf;	/* buffer for IPC_INFO */
+};
+#endif
+
+int
+passwd_init()
+{
+    semid = semget(PASSWDSEM_KEY, 1, SEM_R | SEM_A | IPC_CREAT | IPC_EXCL);
+    if (semid == -1) {
+	if (errno == EEXIST) {
+	    semid = semget(PASSWDSEM_KEY, 1, SEM_R | SEM_A);
+	    if (semid == -1) {
+		perror("semget");
+		exit(1);
+	    }
+	} else {
+	    perror("semget");
+	    exit(1);
+	}
+    } else {
+	union semun     s;
+
+	s.val = 1;
+	if (semctl(semid, 0, SETVAL, s) == -1) {
+	    perror("semctl");
+	    exit(1);
+	}
+    }
+
+    return 0;
+}
+
+int
+passwd_update_money(int num)
+{
+    userec_t        user;
+    if (num < 1 || num > MAX_USERS)
+	return -1;
+    passwd_query(num, &user);
+    if (SHM->loaded)
+	user.money = moneyof(num);
+    passwd_update(num, &user);
+    return 0;
+}
+
+int
+passwd_update(int num, userec_t * buf)
+{
+    int             pwdfd;
+    if (num < 1 || num > MAX_USERS)
+	return -1;
+    buf->money = moneyof(num);
+    if ((pwdfd = open(fn_passwd, O_RDWR)) < 0)
+	exit(1);
+    lseek(pwdfd, sizeof(userec_t) * (num - 1), SEEK_SET);
+    write(pwdfd, buf, sizeof(userec_t));
+    close(pwdfd);
+    return 0;
+}
+
+int
+passwd_query(int num, userec_t * buf)
+{
+    int             pwdfd;
+    if (num < 1 || num > MAX_USERS)
+	return -1;
+    if ((pwdfd = open(fn_passwd, O_RDONLY)) < 0)
+	exit(1);
+    lseek(pwdfd, sizeof(userec_t) * (num - 1), SEEK_SET);
+    read(pwdfd, buf, sizeof(userec_t));
+    close(pwdfd);
+    return 0;
+}
+
+int
+passwd_apply(int (*fptr) (userec_t *))
+{
+    int             i;
+    userec_t        user;
+    for (i = 0; i < MAX_USERS; i++) {
+	passwd_query(i + 1, &user);
+	if ((*fptr) (&user) == QUIT)
+	    return QUIT;
+    }
+    return 0;
+}
+
+int
+passwd_apply2(int (*fptr)(int, userec_t *))
+{
+    int i;
+    userec_t        user;
+    for(i = 0; i < MAX_USERS; i++){
+	passwd_query(i + 1, &user);
+	if((*fptr)(i, &user) == QUIT)
+	    return QUIT;
+    }
+    return 0;
+}
+
+void
+passwd_lock()
+{
+    struct sembuf   buf = {0, -1, SEM_UNDO};
+
+    if (semop(semid, &buf, 1)) {
+	perror("semop");
+	exit(1);
+    }
+}
+
+void
+passwd_unlock()
+{
+    struct sembuf   buf = {0, 1, SEM_UNDO};
+
+    if (semop(semid, &buf, 1)) {
+	perror("semop");
+	exit(1);
+    }
+}
diff --git a/pttbbs/mbbsd/read.c b/pttbbs/mbbsd/read.c
new file mode 100644
index 00000000..009b6912
--- /dev/null
+++ b/pttbbs/mbbsd/read.c
@@ -0,0 +1,975 @@
+/* $Id$ */
+#include "bbs.h"
+
+static fileheader_t *headers = NULL;
+static int      last_line;
+static int      hit_thread;
+
+#include <sys/mman.h>
+
+/* ----------------------------------------------------- */
+/* Tag List 標籤                                         */
+/* ----------------------------------------------------- */
+void
+UnTagger(int locus)
+{
+    if (locus > TagNum)
+	return;
+
+    TagNum--;
+
+    if (TagNum > locus)
+	memcpy(&TagList[locus], &TagList[locus + 1],
+	       (TagNum - locus) * sizeof(TagItem));
+}
+
+int
+Tagger(time_t chrono, int recno, int mode)
+{
+    int             head, tail, posi = 0, comp;
+
+    for (head = 0, tail = TagNum - 1, comp = 1; head <= tail;) {
+	posi = (head + tail) >> 1;
+	comp = TagList[posi].chrono - chrono;
+	if (!comp) {
+	    break;
+	} else if (comp < 0) {
+	    head = posi + 1;
+	} else {
+	    tail = posi - 1;
+	}
+    }
+
+    if (mode == TAG_NIN) {
+	if (!comp && recno)	/* 絕對嚴謹：連 recno 一起比對 */
+	    comp = recno - TagList[posi].recno;
+	return comp;
+
+    }
+    if (!comp) {
+	if (mode != TAG_TOGGLE)
+	    return NA;
+
+	TagNum--;
+	memcpy(&TagList[posi], &TagList[posi + 1],
+	       (TagNum - posi) * sizeof(TagItem));
+    } else if (TagNum < MAXTAGS) {
+	TagItem        *tagp, buf[MAXTAGS];
+
+	tail = (TagNum - head) * sizeof(TagItem);
+	tagp = &TagList[head];
+	memcpy(buf, tagp, tail);
+	tagp->chrono = chrono;
+	tagp->recno = recno;
+	memcpy(++tagp, buf, tail);
+	TagNum++;
+    } else {
+	bell();
+	return 0;		/* full */
+    }
+    return YEA;
+}
+
+
+void
+EnumTagName(char *fname, int locus)
+{
+    snprintf(fname, sizeof(fname), "M.%d.A", (int)TagList[locus].chrono);
+}
+
+void
+EnumTagFhdr(fileheader_t * fhdr, char *direct, int locus)
+{
+    get_record(direct, fhdr, sizeof(fileheader_t), TagList[locus].recno);
+}
+
+/* -1 : 取消 */
+/* 0 : single article */
+/* ow: whole tag list */
+
+int
+AskTag(char *msg)
+{
+    char            buf[80];
+    int             num;
+
+    num = TagNum;
+    snprintf(buf, sizeof(buf), "◆ %s A)文章 T)標記 Q)uit?", msg);
+    switch (rget(b_lines - 1, buf)) {
+    case 'q':
+	num = -1;
+	break;
+    case 'a':
+	num = 0;
+    }
+    return num;
+}
+
+
+#include <sys/mman.h>
+
+#define BATCH_SIZE      65536
+
+char           *
+f_map(char *fpath, int *fsize)
+{
+    int             fd, size;
+    struct stat     st;
+
+    if ((fd = open(fpath, O_RDONLY)) < 0)
+	return (char *)-1;
+
+    if (fstat(fd, &st) || !S_ISREG(st.st_mode) || (size = st.st_size) <= 0) {
+	close(fd);
+	return (char *)-1;
+    }
+    fpath = (char *)mmap(NULL, size, PROT_READ, MAP_SHARED, fd, 0);
+    close(fd);
+    *fsize = size;
+    return fpath;
+}
+
+
+static int
+TagThread(char *direct)
+{
+    int             fsize, count;
+    char           *title, *fimage;
+    fileheader_t   *head, *tail;
+
+    fimage = f_map(direct, &fsize);
+    if (fimage == (char *)-1)
+	return DONOTHING;
+
+    head = (fileheader_t *) fimage;
+    tail = (fileheader_t *) (fimage + fsize);
+    count = 0;
+    do {
+	count++;
+	title = subject(head->title);
+	if (!strncmp(currtitle, title, TTLEN)) {
+	    if (!Tagger(atoi(head->filename + 2), count, TAG_INSERT))
+		break;
+	}
+    } while (++head < tail);
+
+    munmap(fimage, fsize);
+    return FULLUPDATE;
+}
+
+
+int
+TagPruner(int bid)
+{
+    boardheader_t  *bp;
+    assert(bid>0);
+    bp = getbcache(bid);
+    if (strcmp(bp->brdname, "Security") == 0)
+	return DONOTHING;
+    if (TagNum && ((currstat != READING) || (currmode & MODE_BOARD))) {
+	if (tolower(getans("刪除所有標記[N]?")) != 'y')
+	    return FULLUPDATE;
+	delete_range(currdirect, 0, 0);
+	TagNum = 0;
+	setbtotal(bid);
+	return NEWDIRECT;
+    }
+    return DONOTHING;
+}
+
+
+/* ----------------------------------------------------- */
+/* cursor & reading record position control              */
+/* ----------------------------------------------------- */
+keeploc_t      *
+getkeep(char *s, int def_topline, int def_cursline)
+{
+    static struct keeploc_t *keeplist = NULL;
+    struct keeploc_t *p;
+
+    if (def_cursline >= 0)
+	for (p = keeplist; p; p = p->next) {
+	    if (!strcmp(s, p->key)) {
+		if (p->crs_ln < 1)
+		    p->crs_ln = 1;
+		return p;
+	    }
+	}
+    else
+	def_cursline = -def_cursline;
+    p = (keeploc_t *) malloc(sizeof(keeploc_t));
+    p->key = (char *)malloc(strlen(s) + 1);
+    strcpy(p->key, s);
+    p->top_ln = def_topline;
+    p->crs_ln = def_cursline;
+    p->next = keeplist;
+    return (keeplist = p);
+}
+
+void
+fixkeep(char *s, int first)
+{
+    keeploc_t      *k;
+
+    k = getkeep(s, 1, 1);
+    if (k->crs_ln >= first) {
+	k->crs_ln = (first == 1 ? 1 : first - 1);
+	k->top_ln = (first < 11 ? 1 : first - 10);
+    }
+}
+
+/* calc cursor pos and show cursor correctly */
+static int
+cursor_pos(keeploc_t * locmem, int val, int from_top)
+{
+    int             top;
+
+    if (val > last_line) {
+	bell();
+	val = last_line;
+    }
+    if (val <= 0) {
+	bell();
+	val = 1;
+    }
+    top = locmem->top_ln;
+    if (val >= top && val < top + p_lines) {
+	cursor_clear(3 + locmem->crs_ln - top, 0);
+	locmem->crs_ln = val;
+	cursor_show(3 + val - top, 0);
+	return DONOTHING;
+    }
+    locmem->top_ln = val - from_top;
+    if (locmem->top_ln <= 0)
+	locmem->top_ln = 1;
+    locmem->crs_ln = val;
+    return PARTUPDATE;
+}
+
+static int
+move_cursor_line(keeploc_t * locmem, int mode)
+{
+    int             top, crs;
+    int             reload = 0;
+
+    top = locmem->top_ln;
+    crs = locmem->crs_ln;
+    if (mode == READ_PREV) {
+	if (crs <= top) {
+	    top -= p_lines - 1;
+	    if (top < 1)
+		top = 1;
+	    reload = 1;
+	}
+	if (--crs < 1) {
+	    crs = 1;
+	    reload = -1;
+	}
+    } else if (mode == READ_NEXT) {
+	if (crs >= top + p_lines - 1) {
+	    top += p_lines - 1;
+	    reload = 1;
+	}
+	if (++crs > last_line) {
+	    crs = last_line;
+	    reload = -1;
+	}
+    }
+    locmem->top_ln = top;
+    locmem->crs_ln = crs;
+    return reload;
+}
+
+static int
+thread(keeploc_t * locmem, int stype)
+{
+    static char     a_ans[32], t_ans[32];
+    char            ans[32], s_pmt[64];
+    register char  *tag, *query = NULL;
+    register int    now, pos, match, near = 0;
+    fileheader_t    fh;
+    int             circulate_flag = 1;	/* circulate at end or begin */
+
+    match = hit_thread = 0;
+    now = pos = locmem->crs_ln;
+    if (stype == 'A') {
+	if (!*currowner)
+	    return DONOTHING;
+	str_lower(a_ans, currowner);
+	query = a_ans;
+	circulate_flag = 0;
+	stype = 0;
+    } else if (stype == 'a') {
+	if (!*currowner)
+	    return DONOTHING;
+	str_lower(a_ans, currowner);
+	query = a_ans;
+	circulate_flag = 0;
+	stype = RS_FORWARD;
+    } else if (stype == '/') {
+	if (!*t_ans)
+	    return DONOTHING;
+	query = t_ans;
+	circulate_flag = 0;
+	stype = RS_TITLE | RS_FORWARD;
+    } else if (stype == '?') {
+	if (!*t_ans)
+	    return DONOTHING;
+	circulate_flag = 0;
+	query = t_ans;
+	stype = RS_TITLE;
+    } else if (stype & RS_RELATED) {
+	tag = headers[pos - locmem->top_ln].title;
+	if (stype & RS_CURRENT) {
+	    if (stype & RS_FIRST) {
+		if (!strncmp(currtitle, tag, TTLEN))
+		    return DONOTHING;
+		near = 0;
+	    }
+	    query = currtitle;
+	} else {
+	    query = subject(tag);
+	    if (stype & RS_FIRST) {
+		if (query == tag)
+		    return DONOTHING;
+		near = 0;
+	    }
+	}
+    } else if (!(stype & RS_THREAD)) {
+	query = (stype & RS_TITLE) ? t_ans : a_ans;
+	if (!*query && query == a_ans) {
+	    if (*currowner)
+		strlcpy(a_ans, currowner, sizeof(a_ans));
+	    else if (*currauthor)
+		strlcpy(a_ans, currauthor, sizeof(a_ans));
+	}
+	snprintf(s_pmt, sizeof(s_pmt),
+		 "%s搜尋%s [%s] ", (stype & RS_FORWARD) ? "往後" : "往前",
+		 (stype & RS_TITLE) ? "標題" : "作者", query);
+	getdata(b_lines - 1, 0, s_pmt, ans, sizeof(ans), DOECHO);
+	if (*ans)
+	    strcpy(query, ans);
+	else if (*query == '\0')
+	    return DONOTHING;
+    }
+    tag = fh.owner;
+
+    do {
+	if (!circulate_flag || stype & RS_RELATED) {
+	    if (stype & RS_FORWARD) {
+		if (++now > last_line)
+		    return DONOTHING;
+	    } else {
+		if (--now <= 0 || now < pos - 300) {
+		    if ((stype & RS_FIRST) && (near)) {
+			hit_thread = 1;
+			return cursor_pos(locmem, near, 10);
+		    }
+		    return DONOTHING;
+		}
+	    }
+	} else {
+	    if (stype & RS_FORWARD) {
+		if (++now > last_line)
+		    now = 1;
+	    } else if (--now <= 0)
+		now = last_line;
+	}
+
+	get_record(currdirect, &fh, sizeof(fileheader_t), now);
+
+	if (fh.owner[0] == '-')
+	    continue;
+
+	if (stype & RS_THREAD) {
+	    if (strncasecmp(fh.title, str_reply, 3)) {
+		hit_thread = 1;
+		return cursor_pos(locmem, now, 10);
+	    }
+	    continue;
+	}
+	if (stype & RS_TITLE)
+	    tag = subject(fh.title);
+
+	if (((stype & RS_RELATED) && !strncmp(tag, query, 40)) ||
+	    (!(stype & RS_RELATED) && ((query == currowner) ?
+				       !strcmp(tag, query) :
+				       strstr_lower(tag, query)))) {
+	    if ((stype & RS_FIRST) && tag != fh.title) {
+		near = now;
+		continue;
+	    }
+	    hit_thread = 1;
+	    match = cursor_pos(locmem, now, 10);
+	    if ((!(stype & RS_CURRENT)) &&
+		(stype & RS_RELATED) &&
+		strncmp(currtitle, query, TTLEN)) {
+		strncpy(currtitle, query, TTLEN);
+		match = PARTUPDATE;
+	    }
+	    break;
+	}
+    } while (now != pos);
+
+    return match;
+}
+
+
+#ifdef INTERNET_EMAIL
+static void
+mail_forward(fileheader_t * fhdr, char *direct, int mode)
+{
+    int             i;
+    char            buf[STRLEN];
+    char           *p;
+
+    strncpy(buf, direct, sizeof(buf));
+    if ((p = strrchr(buf, '/')))
+	*p = '\0';
+    switch (i = doforward(buf, fhdr, mode)) {
+    case 0:
+	outmsg(msg_fwd_ok);
+	break;
+    case -1:
+	outmsg(msg_fwd_err1);
+	break;
+    case -2:
+	outmsg(msg_fwd_err2);
+	break;
+    default:
+	break;
+    }
+    refresh();
+    sleep(1);
+}
+#endif
+
+static int
+select_read(keeploc_t * locmem, int sr_mode)
+{
+    char           *tag, *query = NULL, *temp;
+    fileheader_t    fh;
+    char            fpath[80], genbuf[MAXPATHLEN], buf3[5];
+    static char     t_ans[TTLEN + 1] = "";
+    static char     a_ans[TTLEN + 1] = "";
+    int             fd, fr, size = sizeof(fileheader_t);
+    struct stat     st;
+    /* rocker.011018: make a reference number for process article */
+    int             reference = 0;
+
+    if ((currmode & MODE_SELECT))
+	return -1;
+    if (sr_mode == RS_TITLE)
+	query = subject(headers[locmem->crs_ln - locmem->top_ln].title);
+    else if (sr_mode == RS_NEWPOST) {
+	strlcpy(buf3, "Re: ", sizeof(buf3));
+	query = buf3;
+    } 
+    else if (sr_mode == RS_THREAD) {
+    
+    } else {
+	char            buff[80];
+	char            newdata[35];
+
+	query = (sr_mode == RS_RELATED) ? t_ans : a_ans;
+	snprintf(buff, sizeof(buff), "搜尋%s [%s] ",
+		 (sr_mode == RS_RELATED) ? "標題" : "作者", query);
+	getdata(b_lines, 0, buff, newdata, sizeof(newdata), DOECHO);
+	if (newdata[0])
+	    strcpy(query, newdata);
+	if (!(*query))
+	    return DONOTHING;
+    }
+
+    if ((fd = open(currdirect, O_RDONLY, 0)) != -1) {
+	snprintf(genbuf, sizeof(genbuf), "SR.%s", cuser.userid);
+	if (currstat == RMAIL)
+	    sethomefile(fpath, cuser.userid, genbuf);
+	else
+	    setbfile(fpath, currboard, genbuf);
+	if (((fr = open(fpath, O_WRONLY | O_CREAT | O_TRUNC, 0600)) != -1)) {
+	    switch (sr_mode) {
+	    case RS_TITLE:
+		while (read(fd, &fh, size) == size) {
+		    ++reference;
+		    tag = subject(fh.title);
+		    if (!strncmp(tag, query, 40)) {
+			fh.money = reference | FHR_REFERENCE;
+			write(fr, &fh, size);
+		    }
+		}
+		break;
+	    case RS_RELATED:
+		while (read(fd, &fh, size) == size) {
+		    ++reference;
+		    tag = fh.title;
+		    if (strcasestr(tag, query)) {
+			fh.money = reference | FHR_REFERENCE;
+			write(fr, &fh, size);
+		    }
+		}
+		break;
+	    case RS_NEWPOST:
+		while (read(fd, &fh, size) == size) {
+		    ++reference;
+		    tag = fh.title;
+		    temp = strstr(tag, query);
+		    if (temp == NULL || temp != tag) {
+			fh.money = reference | FHR_REFERENCE;
+			write(fr, &fh, size);
+		    }
+		}
+	    case RS_AUTHOR:
+		while (read(fd, &fh, size) == size) {
+		    ++reference;
+		    tag = fh.owner;
+		    if (strcasestr(tag, query)) {
+			fh.money = reference | FHR_REFERENCE;
+			write(fr, &fh, size);
+		    }
+		}
+		break;
+		case RS_THREAD:
+		while (read(fd, &fh, size) == size) {
+		    ++reference;
+		    if (fh.filemode & FILE_MARKED) {
+			fh.money = reference | FHR_REFERENCE;
+			write(fr, &fh, size);
+		    }
+		}
+		break;
+	    }
+	    fstat(fr, &st);
+	    close(fr);
+	}
+	close(fd);
+	if (st.st_size) {
+	    currmode |= MODE_SELECT;
+	    strlcpy(currdirect, fpath, sizeof(currdirect));
+	}
+    }
+    return READ_REDRAW;
+}
+
+static int
+i_read_key(onekey_t * rcmdlist, keeploc_t * locmem, int ch, int bid)
+{
+    int             i, mode = DONOTHING;
+
+    switch (ch) {
+    case 'q':
+    case 'e':
+    case KEY_LEFT:
+	if(currmode & MODE_SELECT){
+	    char genbuf[256];
+	    int num;
+
+	    fileheader_t *fhdr = &headers[locmem->crs_ln - locmem->top_ln];
+
+	    board_select();
+	    setbdir(genbuf, currboard);
+
+	    locmem = getkeep(genbuf, 0, 1);
+	    locmem->crs_ln = getindex(genbuf, fhdr->filename, sizeof(fileheader_t));
+	    num = locmem->crs_ln - p_lines + 1;
+	    locmem->top_ln = num < 1 ? 1 : num;
+
+	    return NEWDIRECT;
+	}
+	return (currmode & MODE_ETC) ? board_etc() :
+	    (currmode & MODE_DIGEST) ? board_digest() : DOQUIT;
+    case Ctrl('L'):
+	redoscr();
+	break;
+	/*
+	 * case Ctrl('C'): cal(); return FULLUPDATE; break;
+	 */
+    case KEY_ESC:
+	if (KEY_ESC_arg == 'i') {
+	    t_idle();
+	    return FULLUPDATE;
+	}
+	break;
+    case Ctrl('H'):
+	if (select_read(locmem, RS_NEWPOST))
+	    return NEWDIRECT;
+	else
+	    return READ_REDRAW;
+    case 'a':
+    case 'A':
+	if (select_read(locmem, RS_AUTHOR))
+	    return NEWDIRECT;
+	else
+	    return READ_REDRAW;
+
+    case 'G':
+    if (select_read(locmem,RS_THREAD)) /* marked articles */
+      return NEWDIRECT;
+    else    
+      return READ_REDRAW;
+
+    case '/':
+    case '?':
+	if (select_read(locmem, RS_RELATED))
+	    return NEWDIRECT;
+	else
+	    return READ_REDRAW;
+    case 'S':
+	if (select_read(locmem, RS_TITLE))
+	    return NEWDIRECT;
+	else
+	    return READ_REDRAW;
+	/* quick search title first */
+    case '=':
+	return thread(locmem, RELATE_FIRST);
+    case '\\':
+	return thread(locmem, CURSOR_FIRST);
+	/* quick search title forword */
+    case ']':
+	return thread(locmem, RELATE_NEXT);
+    case '+':
+	return thread(locmem, CURSOR_NEXT);
+	/* quick search title backword */
+    case '[':
+	return thread(locmem, RELATE_PREV);
+    case '-':
+	return thread(locmem, CURSOR_PREV);
+    case '<':
+    case ',':
+	return thread(locmem, THREAD_PREV);
+    case '.':
+    case '>':
+	return thread(locmem, THREAD_NEXT);
+    case 'p':
+    case 'k':
+    case KEY_UP:
+	return cursor_pos(locmem, locmem->crs_ln - 1, p_lines - 2);
+    case 'n':
+    case 'j':
+    case KEY_DOWN:
+	return cursor_pos(locmem, locmem->crs_ln + 1, 1);
+    case ' ':
+    case KEY_PGDN:
+    case 'N':
+    case Ctrl('F'):
+	if (last_line >= locmem->top_ln + p_lines) {
+	    if (last_line > locmem->top_ln + p_lines)
+		locmem->top_ln += p_lines;
+	    else
+		locmem->top_ln += p_lines - 1;
+	    locmem->crs_ln = locmem->top_ln;
+	    return PARTUPDATE;
+	}
+	cursor_clear(3 + locmem->crs_ln - locmem->top_ln, 0);
+	locmem->crs_ln = last_line;
+	cursor_show(3 + locmem->crs_ln - locmem->top_ln, 0);
+	break;
+    case KEY_PGUP:
+    case Ctrl('B'):
+    case 'P':
+	if (locmem->top_ln > 1) {
+	    locmem->top_ln -= p_lines;
+	    if (locmem->top_ln <= 0)
+		locmem->top_ln = 1;
+	    locmem->crs_ln = locmem->top_ln;
+	    return PARTUPDATE;
+	}
+	break;
+    case KEY_END:
+    case '$':
+	if (last_line >= locmem->top_ln + p_lines) {
+	    locmem->top_ln = last_line - p_lines + 1;
+	    if (locmem->top_ln <= 0)
+		locmem->top_ln = 1;
+	    locmem->crs_ln = last_line;
+	    return PARTUPDATE;
+	}
+	cursor_clear(3 + locmem->crs_ln - locmem->top_ln, 0);
+	locmem->crs_ln = last_line;
+	cursor_show(3 + locmem->crs_ln - locmem->top_ln, 0);
+	break;
+    case 'F':
+    case 'U':
+	if (HAS_PERM(PERM_FORWARD)) {
+	    mail_forward(&headers[locmem->crs_ln - locmem->top_ln],
+			 currdirect, ch /* == 'U' */ );
+	    /* by CharlieL */
+	    return FULLUPDATE;
+	}
+	break;
+    case Ctrl('Q'):
+	return my_query(headers[locmem->crs_ln - locmem->top_ln].owner);
+    case Ctrl('S'):
+	if (HAS_PERM(PERM_ACCOUNTS)) {
+	    int             id;
+	    userec_t        muser;
+
+	    strlcpy(currauthor,
+		    headers[locmem->crs_ln - locmem->top_ln].owner,
+		    sizeof(currauthor));
+	    stand_title("使用者設定");
+	    move(1, 0);
+	    if ((id = getuser(headers[locmem->crs_ln - locmem->top_ln].owner))) {
+		memcpy(&muser, &xuser, sizeof(muser));
+		user_display(&muser, 1);
+		uinfo_query(&muser, 1, id);
+	    }
+	    return FULLUPDATE;
+	}
+	break;
+
+	/* rocker.011018: 採用新的tag模式 */
+    case 't':
+	/* 將原本在 Read() 裡面的 "TagNum = 0" 移至此處 */
+	if ((currstat & RMAIL && TagBoard != 0) ||
+		(!(currstat & RMAIL) && TagBoard != bid)) {
+	    if (currstat & RMAIL)
+		TagBoard = 0;
+	    else
+		TagBoard = bid;
+	    TagNum = 0;
+	}
+	/* rocker.011112: 解決再select mode標記文章的問題 */
+	if (Tagger(atoi(headers[locmem->crs_ln - locmem->top_ln].filename + 2),
+		   (currmode & MODE_SELECT) ?
+	 (headers[locmem->crs_ln - locmem->top_ln].money & ~FHR_REFERENCE) :
+		   locmem->crs_ln, TAG_TOGGLE))
+	    return POS_NEXT;
+	return DONOTHING;
+
+    case Ctrl('C'):
+	if (TagNum) {
+	    TagNum = 0;
+	    return FULLUPDATE;
+	}
+	return DONOTHING;
+
+    case Ctrl('T'):
+	return TagThread(currdirect);
+    case Ctrl('D'):
+	return TagPruner(bid);
+    case '\n':
+    case '\r':
+    case 'l':
+    case KEY_RIGHT:
+	ch = 'r';
+    default:
+	if( ch == 'h' && currmode & (MODE_ETC | MODE_DIGEST) )
+	    return DONOTHING;
+	for (i = 0; rcmdlist[i].fptr; i++) {
+	    if (rcmdlist[i].key == ch) {
+		mode = (*(rcmdlist[i].fptr)) (locmem->crs_ln,
+					      &headers[locmem->crs_ln -
+					       locmem->top_ln], currdirect);
+		break;
+	    }
+	}
+    }
+    return mode;
+}
+
+void
+i_read(int cmdmode, char *direct, void (*dotitle) (), void (*doentry) (), onekey_t * rcmdlist, int bidcache)
+{
+    keeploc_t      *locmem = NULL;
+    int             recbase = 0, mode, ch;
+    int             num = 0, entries = 0;
+    int             i;
+    int             jump = 0;
+    char            genbuf[4];
+    char            currdirect0[64];
+    int             last_line0 = last_line;
+    int             hit_thread0 = hit_thread;
+    fileheader_t   *headers0 = headers;
+
+    strlcpy(currdirect0, currdirect, sizeof(currdirect0));
+#define FHSZ    sizeof(fileheader_t)
+    /* Ptt: 這邊 headers 可以針對看板的最後 60 篇做 cache */
+    headers = (fileheader_t *) calloc(p_lines, FHSZ);
+    strlcpy(currdirect, direct, sizeof(currdirect));
+    mode = NEWDIRECT;
+
+    do {
+	/* 依據 mode 顯示 fileheader */
+	setutmpmode(cmdmode);
+	switch (mode) {
+	case NEWDIRECT:	/* 第一次載入此目錄 */
+	case DIRCHANGED:
+	    if (bidcache > 0 && !(currmode & (MODE_SELECT | MODE_DIGEST))){
+		if( (last_line = getbtotal(currbid)) == 0 ){
+		    setbtotal(currbid);
+		    last_line = get_num_records(currdirect, FHSZ);
+		}
+	    }
+	    else
+		last_line = get_num_records(currdirect, FHSZ);
+
+	    if (mode == NEWDIRECT) {
+		if (last_line == 0) {
+		    if (curredit & EDIT_ITEM) {
+			outs("沒有物品");
+			refresh();
+			goto return_i_read;
+		    } else if (curredit & EDIT_MAIL) {
+			outs("沒有來信");
+			refresh();
+			goto return_i_read;
+		    } else if (currmode & MODE_ETC) {
+			board_etc();	/* Kaede */
+			outmsg("尚未收錄其它文章");
+			refresh();
+		    } else if (currmode & MODE_DIGEST) {
+			board_digest();	/* Kaede */
+			outmsg("尚未收錄文摘");
+			refresh();
+		    } else if (currmode & MODE_SELECT) {
+			board_select();	/* Leeym */
+			outmsg("沒有此系列的文章");
+			refresh();
+		    } else {
+			getdata(b_lines - 1, 0,
+				"看板新成立 (P)發表文章 (Q)離開？[Q] ",
+				genbuf, 4, LCECHO);
+			if (genbuf[0] == 'p')
+			    do_post();
+			goto return_i_read;
+		    }
+		}
+		num = last_line - p_lines + 1;
+		locmem = getkeep(currdirect, num < 1 ? 1 : num, last_line);
+	    }
+	    recbase = -1;
+
+	case FULLUPDATE:
+	    (*dotitle) ();
+
+	case PARTUPDATE:
+	    if (last_line < locmem->top_ln + p_lines) {
+		if (bidcache > 0 && !(currmode & (MODE_SELECT | MODE_DIGEST)))
+		    num = getbtotal(currbid);
+		else
+		    num = get_num_records(currdirect, FHSZ);
+
+		if (last_line != num) {
+		    last_line = num;
+		    recbase = -1;
+		}
+	    }
+	    if (last_line == 0)
+		goto return_i_read;
+	    else if (recbase != locmem->top_ln) {
+		recbase = locmem->top_ln;
+		if (recbase > last_line) {
+		    recbase = last_line - p_lines + 1;
+		    if (recbase < 1)
+			recbase = 1;
+		    locmem->top_ln = recbase;
+		}
+		if( bidcache > 0 &&
+		    !(currmode & (MODE_SELECT | MODE_DIGEST)) &&
+		    (last_line - recbase) < DIRCACHESIZE )
+		    entries = get_fileheader_cache(currbid, currdirect,
+						   headers, recbase, p_lines);
+		else
+		    entries = get_records(currdirect, headers, FHSZ, recbase,
+					  p_lines);
+	    }
+	    if (locmem->crs_ln > last_line)
+		locmem->crs_ln = last_line;
+	    move(3, 0);
+	    clrtobot();
+	case PART_REDRAW:
+	    move(3, 0);
+	    for (i = 0; i < entries; i++)
+		(*doentry) (locmem->top_ln + i, &headers[i]);
+	case READ_REDRAW:
+	    outmsg(curredit & EDIT_ITEM ?
+		   "\033[44m 私人收藏 \033[30;47m 繼續? \033[m" :
+		   curredit & EDIT_MAIL ? msg_mailer : MSG_POSTER);
+	    break;
+	case READ_PREV:
+	case READ_NEXT:
+	case RELATE_PREV:
+	case RELATE_NEXT:
+	case RELATE_FIRST:
+	case POS_NEXT:
+	case 'A':
+	case 'a':
+	case '/':
+	case '?':
+	    jump = 1;
+	    break;
+	}
+
+	/* 讀取鍵盤，加以處理，設定 mode */
+	if (!jump) {
+	    assert(3 + locmem->crs_ln - locmem->top_ln>=0); // FIXME dunno why
+	    cursor_show(3 + locmem->crs_ln - locmem->top_ln, 0);
+	    ch = egetch();
+	    mode = DONOTHING;
+	} else
+	    ch = ' ';
+
+	if (mode == POS_NEXT) {
+	    mode = cursor_pos(locmem, locmem->crs_ln + 1, 1);
+	    if (mode == DONOTHING)
+		mode = PART_REDRAW;
+	    jump = 0;
+	} else if (ch >= '0' && ch <= '9') {
+	    if ((i = search_num(ch, last_line)) != -1)
+		mode = cursor_pos(locmem, i + 1, 10);
+	} else {
+	    if (!jump)
+		mode = i_read_key(rcmdlist, locmem, ch, currbid);
+	    while (mode == READ_NEXT || mode == READ_PREV ||
+		   mode == RELATE_FIRST || mode == RELATE_NEXT ||
+		   mode == RELATE_PREV || mode == THREAD_NEXT ||
+		   mode == THREAD_PREV || mode == 'A' || mode == 'a' ||
+		   mode == '/' || mode == '?') {
+		int             reload;
+
+		if (mode == READ_NEXT || mode == READ_PREV)
+		    reload = move_cursor_line(locmem, mode);
+		else {
+		    reload = thread(locmem, mode);
+		    if (!hit_thread) {
+			mode = FULLUPDATE;
+			break;
+		    }
+		}
+
+		if (reload == -1) {
+		    mode = FULLUPDATE;
+		    break;
+		} else if (reload) {
+		    recbase = locmem->top_ln;
+
+		    if (bidcache > 0 && !(currmode & (MODE_SELECT | MODE_DIGEST))
+			&& last_line - recbase < DIRCACHESIZE)
+			entries = get_fileheader_cache(currbid, currdirect,
+						 headers, recbase, p_lines);
+		    else
+			entries = get_records(currdirect, headers, FHSZ, recbase,
+					      p_lines);
+
+		    if (entries <= 0) {
+			last_line = -1;
+			break;
+		    }
+		}
+		num = locmem->crs_ln - locmem->top_ln;
+		if (headers[num].owner[0] != '-')
+		    mode = i_read_key(rcmdlist, locmem, ch, bidcache);
+	    }
+	}
+    } while (mode != DOQUIT);
+#undef  FHSZ
+
+return_i_read:
+    free(headers);
+    last_line = last_line0;
+    hit_thread = hit_thread0;
+    headers = headers0;
+    strlcpy(currdirect, currdirect0, sizeof(currdirect));
+    return;
+}
diff --git a/pttbbs/mbbsd/record.c b/pttbbs/mbbsd/record.c
new file mode 100644
index 00000000..e16b9404
--- /dev/null
+++ b/pttbbs/mbbsd/record.c
@@ -0,0 +1,591 @@
+/* $Id$ */
+#include "bbs.h"
+
+#undef  HAVE_MMAP
+#define BUFSIZE 512
+
+static void
+PttLock(int fd, int size, int mode)
+{
+    static struct flock lock_it;
+    int             ret;
+
+    lock_it.l_whence = SEEK_CUR;/* from current point */
+    lock_it.l_start = 0;	/* -"- */
+    lock_it.l_len = size;	/* length of data */
+    lock_it.l_type = mode;	/* set exclusive/write lock */
+    lock_it.l_pid = 0;		/* pid not actually interesting */
+    while ((ret = fcntl(fd, F_SETLKW, &lock_it)) < 0 && errno == EINTR);
+}
+
+#define safewrite       write
+
+int
+get_num_records(char *fpath, int size)
+{
+    struct stat     st;
+    if (stat(fpath, &st) == -1)
+	return 0;
+    return st.st_size / size;
+}
+
+int
+get_sum_records(char *fpath, int size)
+{
+    struct stat     st;
+    long            ans = 0;
+    FILE           *fp;
+    fileheader_t    fhdr;
+    char            buf[200], *p;
+
+    if (!(fp = fopen(fpath, "r")))
+	return -1;
+
+    strlcpy(buf, fpath, sizeof(buf));
+    p = strrchr(buf, '/');
+    assert(p);
+    p++;
+
+    while (fread(&fhdr, size, 1, fp) == 1) {
+	strcpy(p, fhdr.filename);
+	if (stat(buf, &st) == 0 && S_ISREG(st.st_mode) && st.st_nlink == 1)
+	    ans += st.st_size;
+    }
+    fclose(fp);
+    return ans / 1024;
+}
+
+int
+get_record(char *fpath, void *rptr, int size, int id)
+{
+    int             fd = -1;
+
+    if (id < 1 || (fd = open(fpath, O_RDONLY, 0)) != -1) {
+	if (lseek(fd, (off_t) (size * (id - 1)), SEEK_SET) != -1) {
+	    if (read(fd, rptr, size) == size) {
+		close(fd);
+		return 0;
+	    }
+	}
+	close(fd);
+    }
+    return -1;
+}
+
+int
+get_records(char *fpath, void *rptr, int size, int id, int number)
+{
+    int             fd;
+
+    if (id < 1 || (fd = open(fpath, O_RDONLY, 0)) == -1)
+	return -1;
+
+	if( flock(fd, LOCK_EX) < 0 ){
+	    close(fd);
+	    return -1;
+	}
+
+    if (lseek(fd, (off_t) (size * (id - 1)), SEEK_SET) == -1) {
+	close(fd);
+	return 0;
+    }
+    if ((id = read(fd, rptr, size * number)) == -1) {
+	close(fd);
+	return -1;
+    }
+    close(fd);
+    return id / size;
+}
+
+int
+lock_substitute_record(char *fpath, void *rptr, int size, int id, int mode)
+{
+    static  int     fd = -1;
+    switch( mode ){
+    case LOCK_EX:
+	if( id < 1 || (fd = open(fpath, O_RDWR | O_CREAT, 0644)) == -1 )
+	    return -1;
+
+	if( flock(fd, LOCK_EX) < 0 ){
+	    close(fd);
+	    return -1;
+	}
+	lseek(fd, (off_t) (size * (id - 1)), SEEK_SET);
+	read(fd, rptr, size);
+	return 0;
+
+    case LOCK_UN:
+	if( fd < 0 )
+	    return -1;
+	lseek(fd, (off_t) (size * (id - 1)), SEEK_SET);
+	write(fd, rptr, size);
+	flock(fd, LOCK_UN);
+	close(fd);
+	fd = -1;
+	return 0;
+
+    default:
+	return -1;
+    }
+}
+
+int
+substitute_record(char *fpath, void *rptr, int size, int id)
+{
+    int             fd;
+
+    if (id < 1 || (fd = open(fpath, O_WRONLY | O_CREAT, 0644)) == -1)
+	return -1;
+
+    lseek(fd, (off_t) (size * (id - 1)), SEEK_SET);
+    PttLock(fd, size, F_WRLCK);
+    safewrite(fd, rptr, size);
+    PttLock(fd, size, F_UNLCK);
+    close(fd);
+
+    return 0;
+}
+
+/* rocker.011022: 避免lock檔開啟時不正常斷線,造成永久lock */
+static int
+force_open(char *fname)
+{
+    int             fd;
+    time_t          expire;
+
+    expire = now - 3600;	/* lock 存在超過一個小時就是有問題! */
+
+    if (dasht(fname) < expire)
+	return -1;
+    unlink(fname);
+    fd = open(fname, O_WRONLY | O_TRUNC, 0644);
+
+    return fd;
+}
+
+
+#if !defined(_BBS_UTIL_C_)
+/* new/old/lock file processing */
+typedef struct nol_t {
+    char            newfn[256];
+    char            oldfn[256];
+    char            lockfn[256];
+}               nol_t;
+
+static void
+nolfilename(nol_t * n, char *fpath)
+{
+    snprintf(n->newfn, sizeof(n->newfn), "%s.new", fpath);
+    snprintf(n->oldfn, sizeof(n->oldfn), "%s.old", fpath);
+    snprintf(n->lockfn, sizeof(n->lockfn), "%s.lock", fpath);
+}
+
+int
+delete_record(char fpath[], int size, int id)
+{
+    nol_t           my;
+    char            abuf[BUFSIZE];
+    int             fdr, fdw, fd;
+    int             count;
+
+    nolfilename(&my, fpath);
+    if ((fd = open(my.lockfn, O_RDWR | O_CREAT | O_APPEND, 0644)) == -1)
+	return -1;
+
+    flock(fd, LOCK_EX);
+
+    if ((fdr = open(fpath, O_RDONLY, 0)) == -1) {
+	move(10, 10);
+	outs("delete_record failed!!! (open)");
+	pressanykey();
+	flock(fd, LOCK_UN);
+	close(fd);
+	return -1;
+    }
+    if (
+	((fdw = open(my.newfn, O_WRONLY | O_CREAT | O_EXCL, 0644)) == -1) &&
+	((fdw = force_open(my.newfn)) == -1)) {
+	flock(fd, LOCK_UN);
+	close(fd);
+	close(fdr);
+	return -1;
+    }
+    count = 1;
+    while (read(fdr, abuf, size) == size) {
+	if (id != count++ && (safewrite(fdw, abuf, size) == -1)) {
+	    unlink(my.newfn);
+	    close(fdr);
+	    close(fdw);
+	    flock(fd, LOCK_UN);
+	    close(fd);
+	    return -1;
+	}
+    }
+    close(fdr);
+    close(fdw);
+    if (Rename(fpath, my.oldfn) == -1 || Rename(my.newfn, fpath) == -1) {
+	flock(fd, LOCK_UN);
+	close(fd);
+	return -1;
+    }
+    flock(fd, LOCK_UN);
+    close(fd);
+    return 0;
+}
+
+#if 0
+static char    *
+title_body(char *title)
+{
+    if (!strncasecmp(title, str_reply, 3)) {
+	title += 3;
+	if (*title == ' ')
+	    title++;
+    }
+    return title;
+}
+#endif
+
+int
+delete_range(char *fpath, int id1, int id2)
+{
+    fileheader_t    fhdr;
+    nol_t           my;
+    char            fullpath[STRLEN], *t;
+    int             fdr, fdw, fd;
+    int             count;
+
+    nolfilename(&my, fpath);
+
+    if ((fd = open(my.lockfn, O_RDWR | O_CREAT | O_APPEND, 0644)) == -1)
+	return -1;
+
+    flock(fd, LOCK_EX);
+
+    if ((fdr = open(fpath, O_RDONLY, 0)) == -1) {
+	flock(fd, LOCK_UN);
+	close(fd);
+	return -1;
+    }
+    if (
+	((fdw = open(my.newfn, O_WRONLY | O_CREAT | O_EXCL, 0644)) == -1) &&
+	((fdw = force_open(my.newfn)) == -1)) {
+	close(fdr);
+	flock(fd, LOCK_UN);
+	close(fd);
+	return -1;
+    }
+    count = 1;
+    strlcpy(fullpath, fpath, sizeof(fullpath));
+    t = strrchr(fullpath, '/');
+    assert(t);
+    t++;
+
+    while (read(fdr, &fhdr, sizeof(fileheader_t)) == sizeof(fileheader_t)) {
+	strcpy(t, fhdr.filename);
+
+	/* rocker.011018: add new tag delete */
+	if (
+	    (fhdr.filemode & FILE_MARKED) ||	/* 標記 */
+	    (fhdr.filemode & FILE_DIGEST) ||	/* 文摘 */
+	    (id1 && (count < id1 || count > id2)) ||	/* range */
+	    (!id1 && Tagger(atoi(t + 2), count, TAG_NIN))) {	/* TagList */
+	    if ((safewrite(fdw, &fhdr, sizeof(fileheader_t)) == -1)) {
+		close(fdr);
+		close(fdw);
+		unlink(my.newfn);
+		flock(fd, LOCK_UN);
+		close(fd);
+		return -1;
+	    }
+	} else {
+	    //if (dashd(fullpath))
+		unlink(fullpath);
+	}
+	++count;
+    }
+    close(fdr);
+    close(fdw);
+    if (Rename(fpath, my.oldfn) == -1 || Rename(my.newfn, fpath) == -1) {
+	flock(fd, LOCK_UN);
+	close(fd);
+	return -1;
+    }
+    flock(fd, LOCK_UN);
+    close(fd);
+    return 0;
+}
+
+int
+search_rec(char *dirname, int (*filecheck) ())
+{
+    fileheader_t    fhdr;
+    FILE           *fp;
+    int             ans = 0;
+
+    if (!(fp = fopen(dirname, "r")))
+	return 0;
+
+    while (fread(&fhdr, sizeof(fhdr), 1, fp)) {
+	ans++;
+	if ((*filecheck) (&fhdr)) {
+	    fclose(fp);
+	    return ans;
+	}
+    }
+    fclose(fp);
+    return 0;
+}
+
+int             delete_files(char *dirname, int (*filecheck) (), int record){
+    fileheader_t    fhdr;
+    FILE           *fp, *fptmp;
+    int             ans = 0;
+    char            tmpfname[128];
+    char            genbuf[256];
+    char            deleted[256];
+    fileheader_t    delfh;
+    char            deletedDIR[] = "boards/d/deleted/.DIR";
+
+    strlcpy(deleted, "boards/d/deleted", sizeof(deleted));
+
+    if (!(fp = fopen(dirname, "r")))
+	return ans;
+
+    strlcpy(tmpfname, dirname, sizeof(tmpfname));
+    strcat(tmpfname, "_tmp");
+
+    if (!(fptmp = fopen(tmpfname, "w"))) {
+	fclose(fp);
+	return ans;
+    }
+    while (fread(&fhdr, sizeof(fhdr), 1, fp)) {
+	if ((*filecheck) (&fhdr)) {
+	    ans++;
+	    setdirpath(genbuf, dirname, fhdr.filename);
+	    if (record) {
+		deleted[14] = '\0';
+		stampfile(deleted, &delfh);
+		strlcpy(delfh.owner, fhdr.owner, sizeof(delfh.owner));
+		strlcpy(delfh.title, fhdr.title, sizeof(delfh.title));
+		Link(genbuf, deleted);
+		append_record(deletedDIR, &delfh, sizeof(delfh));
+	    }
+	    unlink(genbuf);
+	} else
+	    fwrite(&fhdr, sizeof(fhdr), 1, fptmp);
+    }
+
+    fclose(fp);
+    fclose(fptmp);
+    unlink(dirname);
+    Rename(tmpfname, dirname);
+
+    return ans;
+}
+
+int
+delete_file(char *dirname, int size, int ent, int (*filecheck) ())
+{
+    char            abuf[BUFSIZE];
+    int             fd;
+    struct stat     st;
+    long            numents;
+
+    if (ent < 1 || (fd = open(dirname, O_RDWR)) == -1)
+	return -1;
+    flock(fd, LOCK_EX);
+    fstat(fd, &st);
+    numents = ((long)st.st_size) / size;
+    if (((long)st.st_size) % size)
+	fprintf(stderr, "align err\n");
+    if (lseek(fd, (off_t) size * (ent - 1), SEEK_SET) != -1) {
+	if (read(fd, abuf, size) == size) {
+	    if ((*filecheck) (abuf)) {
+		int             i;
+
+		for (i = ent; i < numents; i++) {
+		    if (lseek(fd, (off_t) ((i) * size), SEEK_SET) == -1 ||
+			read(fd, abuf, size) != size ||
+			lseek(fd, (off_t) (i - 1) * size, SEEK_SET) == -1)
+			break;
+		    if (safewrite(fd, abuf, size) != size)
+			break;
+		}
+		ftruncate(fd, (off_t) size * (numents - 1));
+		flock(fd, LOCK_UN);
+		close(fd);
+		return 0;
+	    }
+	}
+    }
+    lseek(fd, 0, SEEK_SET);
+    ent = 1;
+    while (read(fd, abuf, size) == size) {
+	if ((*filecheck) (abuf)) {
+	    int             i;
+
+	    for (i = ent; i < numents; i++) {
+		if (lseek(fd, (off_t) (i + 1) * size, SEEK_SET) == -1 ||
+		    read(fd, abuf, size) != size ||
+		    lseek(fd, (off_t) (i) * size, SEEK_SET) == -1 ||
+		    safewrite(fd, abuf, size) != size)
+		    break;
+	    }
+	    ftruncate(fd, (off_t) size * (numents - 1));
+	    flock(fd, LOCK_UN);
+	    close(fd);
+	    return 0;
+	}
+	ent++;
+    }
+    flock(fd, LOCK_UN);
+    close(fd);
+    return -1;
+}
+
+#endif				/* !defined(_BBS_UTIL_C_) */
+
+int             apply_record(char *fpath, int (*fptr) (), int size){
+    char            abuf[BUFSIZE];
+    FILE           *fp;
+
+    if (!(fp = fopen(fpath, "r")))
+	return -1;
+
+    while (fread(abuf, 1, size, fp) == (size_t)size)
+	if ((*fptr) (abuf) == QUIT) {
+	    fclose(fp);
+	    return QUIT;
+	}
+    fclose(fp);
+    return 0;
+}
+
+/* mail / post 時，依據時間建立檔案，加上郵戳 */
+int
+stampfile(char *fpath, fileheader_t * fh)
+{
+    register char  *ip = fpath;
+    time_t          dtime = COMMON_TIME;
+    struct tm      *ptime;
+    int             fp = 0;
+
+    if (access(fpath, X_OK | R_OK | W_OK))
+	mkdir(fpath, 0755);
+
+    while (*(++ip));
+    *ip++ = '/';
+    do {
+	sprintf(ip, "M.%ld.A.%3.3X", ++dtime, rand() & 0xFFF);
+	if (fp == -1 && errno != EEXIST)
+	    return -1;
+    } while ((fp = open(fpath, O_CREAT | O_EXCL | O_WRONLY, 0644)) == -1);
+    close(fp);
+    memset(fh, 0, sizeof(fileheader_t));
+    strlcpy(fh->filename, ip, sizeof(fh->filename));
+    ptime = localtime(&dtime);
+    snprintf(fh->date, sizeof(fh->date),
+	     "%2d/%02d", ptime->tm_mon + 1, ptime->tm_mday);
+    return 0;
+}
+
+void
+stampdir(char *fpath, fileheader_t * fh)
+{
+    register char  *ip = fpath;
+    time_t          dtime = COMMON_TIME;
+    struct tm      *ptime;
+
+    if (access(fpath, X_OK | R_OK | W_OK))
+	mkdir(fpath, 0755);
+
+    while (*(++ip));
+    *ip++ = '/';
+    do {
+	sprintf(ip, "D%lX", ++dtime & 07777);
+    } while (mkdir(fpath, 0755) == -1);
+    memset(fh, 0, sizeof(fileheader_t));
+    strlcpy(fh->filename, ip, sizeof(fh->filename));
+    ptime = localtime(&dtime);
+    snprintf(fh->date, sizeof(fh->date),
+	     "%2d/%02d", ptime->tm_mon + 1, ptime->tm_mday);
+}
+
+void
+stamplink(char *fpath, fileheader_t * fh)
+{
+    register char  *ip = fpath;
+    time_t          dtime = COMMON_TIME;
+    struct tm      *ptime;
+
+    if (access(fpath, X_OK | R_OK | W_OK))
+	mkdir(fpath, 0755);
+
+    while (*(++ip));
+    *ip++ = '/';
+    do {
+	sprintf(ip, "S%lX", ++dtime);
+    } while (symlink("temp", fpath) == -1);
+    memset(fh, 0, sizeof(fileheader_t));
+    strlcpy(fh->filename, ip, sizeof(fh->filename));
+    ptime = localtime(&dtime);
+    snprintf(fh->date, sizeof(fh->date),
+	     "%2d/%02d", ptime->tm_mon + 1, ptime->tm_mday);
+}
+
+int
+do_append(char *fpath, fileheader_t * record, int size)
+{
+    int             fd;
+
+    if ((fd = open(fpath, O_WRONLY | O_CREAT, 0644)) == -1) {
+	perror("open");
+	return -1;
+    }
+    flock(fd, LOCK_EX);
+    lseek(fd, 0, SEEK_END);
+
+    safewrite(fd, record, size);
+
+    flock(fd, LOCK_UN);
+    close(fd);
+    return 0;
+}
+
+int
+append_record(char *fpath, fileheader_t * record, int size)
+{
+#if !defined(_BBS_UTIL_C_)
+    int             m, n;
+    if (get_num_records(fpath, sizeof(fileheader_t)) <= MAX_KEEPMAIL * 2) {
+	FILE           *fp;
+	char            buf[512], address[200];
+
+	for (n = strlen(fpath) - 1; fpath[n] != '/' && n > 0; n--);
+	strncpy(buf, fpath, n + 1);
+	buf[n + 1] = 0;
+	for (m = strlen(buf) - 2; buf[m] != '/' && m > 0; m--);
+	strcat(buf, ".forward");
+	if ((fp = fopen(buf, "r"))) {
+	    fscanf(fp, "%s", address);
+	    fclose(fp);
+	    if (buf[0] != 0 && buf[0] != ' ') {
+		buf[n + 1] = 0;
+		strcat(buf, record->filename);
+		do_append(fpath, record, size);
+#ifndef  USE_BSMTP
+		bbs_sendmail(buf, record->title, address);
+#else
+		bsmtp(buf, record->title, address, 0);
+#endif
+		return 0;
+	    }
+	}
+    }
+#endif
+
+    do_append(fpath, record, size);
+
+    return 0;
+}
diff --git a/pttbbs/mbbsd/register.c b/pttbbs/mbbsd/register.c
new file mode 100644
index 00000000..50ed3b29
--- /dev/null
+++ b/pttbbs/mbbsd/register.c
@@ -0,0 +1,333 @@
+/* $Id$ */
+#define _XOPEN_SOURCE
+
+#include "bbs.h"
+
+char           *
+genpasswd(char *pw)
+{
+    if (pw[0]) {
+	char            saltc[2], c;
+	int             i;
+
+	i = 9 * getpid();
+	saltc[0] = i & 077;
+	saltc[1] = (i >> 6) & 077;
+
+	for (i = 0; i < 2; i++) {
+	    c = saltc[i] + '.';
+	    if (c > '9')
+		c += 7;
+	    if (c > 'Z')
+		c += 6;
+	    saltc[i] = c;
+	}
+	return crypt(pw, saltc);
+    }
+    return "";
+}
+
+// NOTE it will clean string in "plain"
+int
+checkpasswd(char *passwd, char *plain)
+{
+    int             ok;
+    char           *pw;
+
+    ok = 0;
+    pw = crypt(plain, passwd);
+    if(pw && strcmp(pw, passwd)==0)
+	ok = 1;
+    memset(plain, 0, strlen(plain));
+
+    return ok;
+}
+
+/* 檢查 user 註冊情況 */
+int
+bad_user_id(char *userid)
+{
+    int             len, i;
+    len = strlen(userid);
+
+    if (len < 2)
+	return 1;
+
+    if (not_alpha(userid[0]))
+	return 1;
+    for (i = 1; i < len; i++)
+	/* DickG: 修正了只比較 userid 第一個字元的 bug */
+	if (not_alnum(userid[i]))
+	    return 1;
+
+    if (strcasecmp(userid, str_new) == 0)
+	return 1;
+
+    if (strcasestr(userid, "fuck") != NULL ||
+	strcasestr(userid, "shit") != NULL )
+	return 1;
+
+    /*
+     * while((ch = *(++userid))) if(not_alnum(ch)) return 1;
+     */
+    return 0;
+}
+
+/* -------------------------------- */
+/* New policy for allocate new user */
+/* (a) is the worst user currently  */
+/* (b) is the object to be compared */
+/* -------------------------------- */
+static int
+compute_user_value(userec_t * urec, time_t clock)
+{
+    int             value;
+
+    /* if (urec) has XEMPT permission, don't kick it */
+    if ((urec->userid[0] == '\0') || (urec->userlevel & PERM_XEMPT)
+    /* || (urec->userlevel & PERM_LOGINOK) */
+	|| !strcmp(STR_GUEST, urec->userid))
+	return 999999;
+    value = (clock - urec->lastlogin) / 60;	/* minutes */
+
+    /* new user should register in 30 mins */
+    if (strcmp(urec->userid, str_new) == 0)
+	return 30 - value;
+#if 0
+    if (!urec->numlogins)	/* 未 login 成功者，不保留 */
+	return -1;
+    if (urec->numlogins <= 3)	/* #login 少於三者，保留 20 天 */
+	return 20 * 24 * 60 - value;
+#endif
+    /* 未完成註冊者，保留 15 天 */
+    /* 一般情況，保留 120 天 */
+    return (urec->userlevel & PERM_LOGINOK ? 120 : 15) * 24 * 60 - value;
+}
+
+int
+check_and_expire_account(int uid, userec_t * urec)
+{
+    userec_t        zerorec;
+    char            genbuf[200], genbuf2[200];
+    int             val;
+    if ((val = compute_user_value(urec, now)) < 0) {
+	snprintf(genbuf, sizeof(genbuf), "#%d %-12s %15.15s %d %d %d",
+		uid, urec->userid, ctime(&(urec->lastlogin)) + 4,
+		urec->numlogins, urec->numposts, val);
+	if (val > -1 * 60 * 24 * 365) {
+	    memset(&zerorec, 0, sizeof(zerorec));
+	    log_usies("CLEAN", genbuf);
+	    snprintf(genbuf, sizeof(genbuf), "home/%c/%s", urec->userid[0],
+		    urec->userid);
+	    snprintf(genbuf2, sizeof(genbuf2), "tmp/%s", urec->userid);
+	    if (dashd(genbuf) && Rename(genbuf, genbuf2)) {
+		snprintf(genbuf, sizeof(genbuf),
+			 "/bin/rm -fr home/%c/%s >/dev/null 2>&1",
+			 urec->userid[0], urec->userid);
+		system(genbuf);
+	    }
+	    passwd_update(uid, &zerorec);
+	    remove_from_uhash(uid - 1);
+	    add_to_uhash(uid - 1, "");
+	} else {
+	    val = 0;
+	    log_usies("DATED", genbuf);
+	}
+    }
+    return val;
+}
+
+
+int
+getnewuserid()
+{
+    char            genbuf[50];
+    char    *fn_fresh = ".fresh";
+    userec_t        utmp, zerorec;
+    time_t          clock;
+    struct stat     st;
+    int             fd, i;
+
+    memset(&zerorec, 0, sizeof(zerorec));
+    clock = now;
+
+    /* Lazy method : 先找尋已經清除的過期帳號 */
+    if ((i = searchnewuser(0)) == 0) {
+	/* 每 1 個小時，清理 user 帳號一次 */
+	if ((stat(fn_fresh, &st) == -1) || (st.st_mtime < clock - 3600)) {
+	    if ((fd = open(fn_fresh, O_RDWR | O_CREAT, 0600)) == -1)
+		return -1;
+	    write(fd, ctime(&clock), 25);
+	    close(fd);
+	    log_usies("CLEAN", "dated users");
+
+	    fprintf(stdout, "尋找新帳號中, 請稍待片刻...\n\r");
+
+	    if ((fd = open(fn_passwd, O_RDWR | O_CREAT, 0600)) == -1)
+		return -1;
+
+	    /* 不曉得為什麼要從 2 開始... Ptt:因為SYSOP在1 */
+	    for (i = 2; i <= MAX_USERS; i++) {
+		passwd_query(i, &utmp);
+		check_and_expire_account(i, &utmp);
+	    }
+	}
+    }
+    passwd_lock();
+    i = searchnewuser(1);
+    if ((i <= 0) || (i > MAX_USERS)) {
+	passwd_unlock();
+	if (more("etc/user_full", NA) == -1)
+	    fprintf(stdout, "抱歉，使用者帳號已經滿了，無法註冊新的帳號\n\r");
+	safe_sleep(2);
+	exit(1);
+    }
+    snprintf(genbuf, sizeof(genbuf), "uid %d", i);
+    log_usies("APPLY", genbuf);
+
+    strlcpy(zerorec.userid, str_new, sizeof(zerorec.userid));
+    zerorec.lastlogin = clock;
+    passwd_update(i, &zerorec);
+    setuserid(i, zerorec.userid);
+    passwd_unlock();
+    return i;
+}
+
+void
+new_register()
+{
+    userec_t        newuser;
+    char            passbuf[STRLEN];
+    int             allocid, try, id;
+
+    memset(&newuser, 0, sizeof(newuser));
+    more("etc/register", NA);
+    try = 0;
+    while (1) {
+	if (++try >= 6) {
+	    outs("\n您嘗試錯誤的輸入太多，請下次再來吧\n");
+	    refresh();
+
+	    pressanykey();
+	    oflush();
+	    exit(1);
+	}
+	getdata(17, 0, msg_uid, newuser.userid,
+		sizeof(newuser.userid), DOECHO);
+
+	if (bad_user_id(newuser.userid))
+	    outs("無法接受這個代號，請使用英文字母，並且不要包含空格\n");
+	else if ((id = getuser(newuser.userid)) &&
+		 (id = check_and_expire_account(id, &xuser)) >= 0) {
+	    if (id == 999999)
+		outs("此代號已經有人使用 是不死之身");
+	    else {
+		snprintf(passbuf, sizeof(passbuf),
+			 "此代號已經有人使用 還有%d天才過期 \n", id / (60 * 24));
+		outs(passbuf);
+	    }
+	} else
+	    break;
+    }
+
+    try = 0;
+    while (1) {
+	if (++try >= 6) {
+	    outs("\n您嘗試錯誤的輸入太多，請下次再來吧\n");
+	    refresh();
+
+	    pressanykey();
+	    oflush();
+	    exit(1);
+	}
+	if ((getdata(19, 0, "請設定密碼：", passbuf,
+		     sizeof(passbuf), NOECHO) < 3) ||
+	    !strcmp(passbuf, newuser.userid)) {
+	    outs("密碼太簡單，易遭入侵，至少要 4 個字，請重新輸入\n");
+	    continue;
+	}
+	strncpy(newuser.passwd, passbuf, PASSLEN);
+	getdata(20, 0, "請檢查密碼：", passbuf, sizeof(passbuf), NOECHO);
+	if (strncmp(passbuf, newuser.passwd, PASSLEN)) {
+	    outs("密碼輸入錯誤, 請重新輸入密碼.\n");
+	    continue;
+	}
+	passbuf[8] = '\0';
+	strncpy(newuser.passwd, genpasswd(passbuf), PASSLEN);
+	break;
+    }
+    newuser.userlevel = PERM_DEFAULT;
+    newuser.uflag = COLOR_FLAG | BRDSORT_FLAG | MOVIE_FLAG;
+    newuser.uflag2 = FAVNEW_FLAG;
+    newuser.firstlogin = newuser.lastlogin = now;
+    newuser.money = 0;
+    newuser.pager = 1;
+    allocid = getnewuserid();
+    if (allocid > MAX_USERS || allocid <= 0) {
+	fprintf(stderr, "本站人口已達飽和！\n");
+	exit(1);
+    }
+    if (passwd_update(allocid, &newuser) == -1) {
+	fprintf(stderr, "客滿了，再見！\n");
+	exit(1);
+    }
+    setuserid(allocid, newuser.userid);
+    if (!dosearchuser(newuser.userid)) {
+	fprintf(stderr, "無法建立帳號\n");
+	exit(1);
+    }
+}
+
+
+void
+check_register()
+{
+    char           *ptr = NULL;
+
+    stand_title("請詳細填寫個人資料");
+
+    while (strlen(cuser.username) < 2)
+	getdata(2, 0, "綽號暱稱：", cuser.username,
+		sizeof(cuser.username), DOECHO);
+
+    for (ptr = cuser.username; *ptr; ptr++) {
+	if (*ptr == 9)		/* TAB convert */
+	    *ptr = ' ';
+    }
+    while (strlen(cuser.realname) < 4)
+	getdata(4, 0, "真實姓名：", cuser.realname,
+		sizeof(cuser.realname), DOECHO);
+
+    while (strlen(cuser.address) < 8)
+	getdata(6, 0, "聯絡地址：", cuser.address,
+		sizeof(cuser.address), DOECHO);
+
+
+    /*
+     * if(!strchr(cuser.email, '@')) { bell(); move(t_lines - 4, 0); prints("
+     * 您的權益，請填寫真實的 E-mail address，" "以資確認閣下身份，\n" "
+     * 033[44muser@domain_name\033[0m 或 \033[44muser"
+     * "@\\[ip_number\\]\033[0m。\n\n" "※ 如果您真的沒有 E-mail， turn]
+     * 即可。");
+     * 
+     * do { getdata(8, 0, "電子信箱：", cuser.email, sizeof(cuser.email),
+     * DOECHO); if(!cuser.email[0]) sprintf(cuser.email, "%s%s",
+     * cuser.userid, str_mail_address); } while(!strchr(cuser.email, '@'));
+     * 
+     * } */
+    if (!HAS_PERM(PERM_SYSOP) && !HAS_PERM(PERM_LOGINOK)) {
+	/* 回覆過身份認證信函，或曾經 E-mail post 過 */
+	clear();
+	move(9, 3);
+	prints("請詳填寫\033[32m註冊申請單\033[m，"
+	       "通告站長以獲得進階使用權力。\n\n\n\n");
+	u_register();
+    }
+#ifdef NEWUSER_LIMIT
+    if (!(cuser.userlevel & PERM_LOGINOK) && !HAS_PERM(PERM_SYSOP)) {
+	if (cuser.lastlogin - cuser.firstlogin < 3 * 86400)
+	    cuser.userlevel &= ~PERM_POST;
+	more("etc/newuser", YEA);
+    }
+#endif
+}
diff --git a/pttbbs/mbbsd/screen.c b/pttbbs/mbbsd/screen.c
new file mode 100644
index 00000000..bbe0e924
--- /dev/null
+++ b/pttbbs/mbbsd/screen.c
@@ -0,0 +1,573 @@
+/* $Id$ */
+#include "bbs.h"
+
+#ifdef SUPPORT_GB
+static int      current_font_type = TYPE_BIG5;
+static int      gbinited = 0;
+#endif
+#define o_clear()     output(clearbuf,clearbuflen)
+#define o_cleol()     output(cleolbuf,cleolbuflen)
+#define o_scrollrev() output(scrollrev,scrollrevlen)
+#define o_standup()   output(strtstandout,strtstandoutlen)
+#define o_standdown() output(endstandout,endstandoutlen)
+
+static unsigned char cur_ln = 0, cur_col = 0;
+static unsigned char docls, downfrom = 0;
+static unsigned char standing = NA;
+static int      scrollcnt, tc_col, tc_line;
+
+#define MODIFIED (1)		/* if line has been modifed, screen output */
+#define STANDOUT (2)		/* if this line has a standout region */
+
+int             tputs(const char *str, int affcnt, int (*putc) (int));
+
+void
+initscr()
+{
+    if (!big_picture) {
+	scr_lns = t_lines;
+	scr_cols = ANSILINELEN;
+	/* scr_cols = MIN(t_columns, ANSILINELEN); */
+	big_picture = (screenline_t *) calloc(scr_lns, sizeof(screenline_t));
+	docls = YEA;
+    }
+}
+
+void
+move(int y, int x)
+{
+    cur_col = x;
+    cur_ln = y;
+}
+
+void
+getyx(int *y, int *x)
+{
+    *y = cur_ln;
+    *x = cur_col;
+}
+
+static void
+rel_move(int was_col, int was_ln, int new_col, int new_ln)
+{
+    if (new_ln >= t_lines || new_col >= t_columns)
+	return;
+
+    tc_col = new_col;
+    tc_line = new_ln;
+    if (new_col == 0) {
+	if (new_ln == was_ln) {
+	    if (was_col)
+		ochar('\r');
+	    return;
+	} else if (new_ln == was_ln + 1) {
+	    ochar('\n');
+	    if (was_col)
+		ochar('\r');
+	    return;
+	}
+    }
+    if (new_ln == was_ln) {
+	if (was_col == new_col)
+	    return;
+
+	if (new_col == was_col - 1) {
+	    ochar(Ctrl('H'));
+	    return;
+	}
+    }
+    do_move(new_col, new_ln);
+}
+
+static void
+standoutput(char *buf, int ds, int de, int sso, int eso)
+{
+    int             st_start, st_end;
+
+    if (eso <= ds || sso >= de) {
+	output(buf + ds, de - ds);
+    } else {
+	st_start = MAX(sso, ds);
+	st_end = MIN(eso, de);
+	if (sso > ds)
+	    output(buf + ds, sso - ds);
+	o_standup();
+	output(buf + st_start, st_end - st_start);
+	o_standdown();
+	if (de > eso)
+	    output(buf + eso, de - eso);
+    }
+}
+
+void
+redoscr()
+{
+    register screenline_t *bp;
+    register int    i, j, len;
+
+    o_clear();
+    for (tc_col = tc_line = i = 0, j = roll; i < scr_lns; i++, j++) {
+	if (j >= scr_lns)
+	    j = 0;
+	bp = &big_picture[j];
+	if ((len = bp->len)) {
+	    rel_move(tc_col, tc_line, 0, i);
+	    if (bp->mode & STANDOUT)
+		standoutput((char *)bp->data, 0, len, bp->sso, bp->eso);
+	    else
+		output((char *)bp->data, len);
+	    tc_col += len;
+	    if (tc_col >= t_columns) {
+		/* XXX Is this code right? */
+		if (automargins)
+		    tc_col = t_columns - 1;
+		else {
+		    tc_col -= t_columns;
+		    tc_line++;
+		    if (tc_line >= t_lines)
+			tc_line = b_lines;
+		}
+	    }
+	    bp->mode &= ~(MODIFIED);
+	    bp->oldlen = len;
+	}
+    }
+    rel_move(tc_col, tc_line, cur_col, cur_ln);
+    docls = scrollcnt = 0;
+    oflush();
+}
+
+void
+refresh()
+{
+    /* TODO remove unnecessary refresh() call, to save CPU time */
+    register screenline_t *bp = big_picture;
+    register int    i, j, len;
+    if (num_in_buf())
+	return;
+
+    if ((docls) || (abs(scrollcnt) >= (scr_lns - 3))) {
+	redoscr();
+	return;
+    }
+    if (scrollcnt < 0) {
+	if (!scrollrevlen) {
+	    redoscr();
+	    return;
+	}
+	rel_move(tc_col, tc_line, 0, 0);
+	do {
+	    o_scrollrev();
+	} while (++scrollcnt);
+    } else if (scrollcnt > 0) {
+	rel_move(tc_col, tc_line, 0, b_lines);
+	do {
+	    ochar('\n');
+	} while (--scrollcnt);
+    }
+    for (i = 0, j = roll; i < scr_lns; i++, j++) {
+	if (j >= scr_lns)
+	    j = 0;
+	bp = &big_picture[j];
+	len = bp->len;
+	if (bp->mode & MODIFIED && bp->smod < len) {
+	    bp->mode &= ~(MODIFIED);
+	    if (bp->emod >= len)
+		bp->emod = len - 1;
+	    rel_move(tc_col, tc_line, bp->smod, i);
+
+	    if (bp->mode & STANDOUT)
+		standoutput((char *)bp->data, bp->smod, bp->emod + 1,
+			    bp->sso, bp->eso);
+	    else
+		output((char *)&bp->data[bp->smod], bp->emod - bp->smod + 1);
+	    tc_col = bp->emod + 1;
+	    if (tc_col >= t_columns) {
+		/* XXX Is this code right? */
+		if (automargins)
+		    tc_col = t_columns - 1;
+		else {
+		    tc_col -= t_columns;
+		    tc_line++;
+		    if (tc_line >= t_lines)
+			tc_line = b_lines;
+		}
+	    }
+	}
+	if (bp->oldlen > len) {
+	    /* XXX len/oldlen also count the length of escape sequence,
+	     * before we fix it, we must print \033[K everywhere */
+	    rel_move(tc_col, tc_line, len, i);
+	    o_cleol();
+	}
+	bp->oldlen = len;
+
+    }
+
+    rel_move(tc_col, tc_line, cur_col, cur_ln);
+
+    oflush();
+}
+
+void
+clear()
+{
+    register screenline_t *slp;
+
+    register int    i;
+
+    docls = YEA;
+    cur_col = cur_ln = roll = downfrom = i = 0;
+    do {
+	slp = &big_picture[i];
+	slp->mode = slp->len = slp->oldlen = 0;
+    } while (++i < scr_lns);
+}
+
+void
+clrtoeol()
+{
+    register screenline_t *slp;
+    register int    ln;
+
+    standing = NA;
+    if ((ln = cur_ln + roll) >= scr_lns)
+	ln -= scr_lns;
+    slp = &big_picture[ln];
+    if (cur_col <= slp->sso)
+	slp->mode &= ~STANDOUT;
+
+    if (cur_col > slp->oldlen) {
+	for (ln = slp->len; ln <= cur_col; ln++)
+	    slp->data[ln] = ' ';
+    }
+    if (cur_col < slp->oldlen) {
+	for (ln = slp->len; ln >= cur_col; ln--)
+	    slp->data[ln] = ' ';
+    }
+    slp->len = cur_col;
+}
+
+void
+clrtoline(int line)
+{
+    register screenline_t *slp;
+    register int    i, j;
+
+    for (i = cur_ln, j = i + roll; i < line; i++, j++) {
+	if (j >= scr_lns)
+	    j -= scr_lns;
+	slp = &big_picture[j];
+	slp->mode = slp->len = 0;
+	if (slp->oldlen)
+	    slp->oldlen = 255;
+    }
+}
+
+void
+clrtobot()
+{
+    clrtoline(scr_lns);
+}
+
+void
+outch(unsigned char c)
+{
+    register screenline_t *slp;
+    register int    i;
+
+    if ((i = cur_ln + roll) >= scr_lns)
+	i -= scr_lns;
+    slp = &big_picture[i];
+
+    if (c == '\n' || c == '\r') {
+	if (standing) {
+	    slp->eso = MAX(slp->eso, cur_col);
+	    standing = NA;
+	}
+	if ((i = cur_col - slp->len) > 0)
+	    memset(&slp->data[slp->len], ' ', i + 1);
+	slp->len = cur_col;
+	cur_col = 0;
+	if (cur_ln < scr_lns)
+	    cur_ln++;
+	return;
+    }
+    /*
+     * else if(c != '\033' && !isprint2(c)) { c = '*'; //substitute a '*' for
+     * non-printable }
+     */
+    if (cur_col >= slp->len) {
+	for (i = slp->len; i < cur_col; i++)
+	    slp->data[i] = ' ';
+	slp->data[cur_col] = '\0';
+	slp->len = cur_col + 1;
+    }
+    if (slp->data[cur_col] != c) {
+	slp->data[cur_col] = c;
+	if ((slp->mode & MODIFIED) != MODIFIED)
+	    slp->smod = slp->emod = cur_col;
+	slp->mode |= MODIFIED;
+	if (cur_col > slp->emod)
+	    slp->emod = cur_col;
+	if (cur_col < slp->smod)
+	    slp->smod = cur_col;
+    }
+    if (++cur_col >= scr_cols) {
+	if (standing && (slp->mode & STANDOUT)) {
+	    standing = 0;
+	    slp->eso = MAX(slp->eso, cur_col);
+	}
+	cur_col = 0;
+	if (cur_ln < scr_lns)
+	    cur_ln++;
+    }
+}
+
+static void
+parsecolor(char *buf)
+{
+    char           *val;
+    char            data[24];
+
+    data[0] = '\0';
+    val = (char *)strtok(buf, ";");
+
+    while (val) {
+	if (atoi(val) < 30) {
+	    if (data[0])
+		strcat(data, ";");
+	    strcat(data, val);
+	}
+	val = (char *)strtok(NULL, ";");
+    }
+    strlcpy(buf, data, sizeof(data));
+}
+
+#define NORMAL (00)
+#define ESCAPE (01)
+#define VTKEYS (02)
+
+void
+outc(unsigned char ch)
+{
+    if (showansi)
+	outch(ch);
+    else {
+	static char     buf[24];
+	static int      p = 0;
+	static int      mode = NORMAL;
+	int             i;
+
+	switch (mode) {
+	case NORMAL:
+	    if (ch == '\033')
+		mode = ESCAPE;
+	    else
+		outch(ch);
+	    return;
+	case ESCAPE:
+	    if (ch == '[')
+		mode = VTKEYS;
+	    else {
+		mode = NORMAL;
+		outch('');
+		outch(ch);
+	    }
+	    return;
+	case VTKEYS:
+	    if (ch == 'm') {
+		buf[p++] = '\0';
+		parsecolor(buf);
+	    } else if (((size_t)p < sizeof(buf)) && (not_alpha(ch))) {
+		buf[p++] = ch;
+		return;
+	    }
+	    if (buf[0]) {
+		outch('');
+		outch('[');
+
+		for (i = 0; buf[i]; i++)
+		    outch(buf[i]);
+		outch(ch);
+	    }
+	    p = 0;
+	    mode = NORMAL;
+	}
+    }
+}
+
+static void
+do_outs(char *str)
+{
+    while (*str) {
+	outc(*str++);
+    }
+}
+#ifdef SUPPORT_GB
+static void
+gb_init()
+{
+    if (current_font_type == TYPE_GB) {
+	hc_readtab(BBSHOME "/etc/hc.tab");
+    }
+    gbinited = 1;
+}
+
+static void
+gb_outs(char *str)
+{
+    do_outs(hc_convert_str(str, HC_BIGtoGB, HC_DO_SINGLE));
+}
+#endif
+int
+edit_outs(char *text)
+{
+    register int    column = 0;
+    register char   ch;
+#ifdef SUPPORT_GB
+    if (current_font_type == TYPE_GB)
+	text = hc_convert_str(text, HC_BIGtoGB, HC_DO_SINGLE);
+#endif
+    while ((ch = *text++) && (++column < t_columns))
+	outch(ch == 27 ? '*' : ch);
+
+    return 0;
+}
+
+void
+outs(char *str)
+{
+#ifdef SUPPORT_GB
+    if (current_font_type == TYPE_BIG5)
+#endif
+	do_outs(str);
+#ifdef SUPPORT_GB
+    else {
+	if (!gbinited)
+	    gb_init();
+	gb_outs(str);
+    }
+#endif
+}
+
+
+/* Jaky */
+void
+Jaky_outs(char *str, int line)
+{
+#ifdef SUPPORT_GB
+    if (current_font_type == TYPE_GB)
+	str = hc_convert_str(str, HC_BIGtoGB, HC_DO_SINGLE);
+#endif
+    while (*str && line) {
+	outc(*str);
+	if (*str == '\n')
+	    line--;
+	str++;
+    }
+}
+
+void
+outmsg(char *msg)
+{
+    move(b_lines, 0);
+    clrtoeol();
+#ifdef SUPPORT_GB
+    if (current_font_type == TYPE_GB)
+	msg = hc_convert_str(msg, HC_BIGtoGB, HC_DO_SINGLE);
+#endif
+    while (*msg)
+	outc(*msg++);
+}
+
+void
+prints(char *fmt,...)
+{
+    va_list         args;
+    char            buff[1024];
+
+    va_start(args, fmt);
+    vsnprintf(buff, sizeof(buff), fmt, args);
+    va_end(args);
+    outs(buff);
+}
+
+void
+mprints(int y, int x, char *str)
+{
+    move(y, x);
+    clrtoeol();
+    prints("%s",str);
+}
+
+void
+scroll()
+{
+    scrollcnt++;
+    if (++roll >= scr_lns)
+	roll = 0;
+    move(b_lines, 0);
+    clrtoeol();
+}
+
+void
+rscroll()
+{
+    scrollcnt--;
+    if (--roll < 0)
+	roll = b_lines;
+    move(0, 0);
+    clrtoeol();
+}
+
+void
+region_scroll_up(int top, int bottom)
+{
+    int             i;
+
+    if (top > bottom) {
+	i = top;
+	top = bottom;
+	bottom = i;
+    }
+    if (top < 0 || bottom >= scr_lns)
+	return;
+
+    for (i = top; i < bottom; i++)
+	big_picture[i] = big_picture[i + 1];
+    memset(big_picture + i, 0, sizeof(*big_picture));
+    memset(big_picture[i].data, ' ', scr_cols);
+    save_cursor();
+    change_scroll_range(top, bottom);
+    do_move(0, bottom);
+    scroll_forward();
+    change_scroll_range(0, scr_lns - 1);
+    restore_cursor();
+    refresh();
+}
+
+void
+standout()
+{
+    if (!standing && strtstandoutlen) {
+	register screenline_t *slp;
+
+	slp = &big_picture[((cur_ln + roll) % scr_lns)];
+	standing = YEA;
+	slp->sso = slp->eso = cur_col;
+	slp->mode |= STANDOUT;
+    }
+}
+
+void
+standend()
+{
+    if (standing && strtstandoutlen) {
+	register screenline_t *slp;
+
+	slp = &big_picture[((cur_ln + roll) % scr_lns)];
+	standing = NA;
+	slp->eso = MAX(slp->eso, cur_col);
+    }
+}
diff --git a/pttbbs/mbbsd/stuff.c b/pttbbs/mbbsd/stuff.c
new file mode 100644
index 00000000..aebba421
--- /dev/null
+++ b/pttbbs/mbbsd/stuff.c
@@ -0,0 +1,663 @@
+/* $Id$ */
+#include "bbs.h"
+
+/* ----------------------------------------------------- */
+/* set file path for boards/user home                    */
+/* ----------------------------------------------------- */
+static char    *str_home_file = "home/%c/%s/%s";
+static char    *str_board_file = "boards/%c/%s/%s";
+
+#define STR_DOTDIR  ".DIR"
+static char    *str_dotdir = STR_DOTDIR;
+
+void
+setcalfile(char *buf, char *userid)
+{
+    sprintf(buf, "home/%c/%s/calendar", userid[0], userid);
+}
+
+void
+sethomepath(char *buf, char *userid)
+{
+    sprintf(buf, "home/%c/%s", userid[0], userid);
+}
+
+void
+sethomedir(char *buf, char *userid)
+{
+    sprintf(buf, str_home_file, userid[0], userid, str_dotdir);
+}
+
+void
+sethomeman(char *buf, char *userid)
+{
+    sprintf(buf, str_home_file, userid[0], userid, "man");
+}
+
+void
+sethomefile(char *buf, char *userid, char *fname)
+{
+    sprintf(buf, str_home_file, userid[0], userid, fname);
+}
+
+void
+setuserfile(char *buf, char *fname)
+{
+    sprintf(buf, str_home_file, cuser.userid[0], cuser.userid, fname);
+}
+
+void
+setapath(char *buf, char *boardname)
+{
+    sprintf(buf, "man/boards/%c/%s", boardname[0], boardname);
+}
+
+void
+setadir(char *buf, char *path)
+{
+    sprintf(buf, "%s/%s", path, str_dotdir);
+}
+
+void
+setbpath(char *buf, char *boardname)
+{
+    sprintf(buf, "boards/%c/%s", boardname[0], boardname);
+}
+
+void
+setbdir(char *buf, char *boardname)
+{
+    sprintf(buf, str_board_file, boardname[0], boardname,
+	    currmode & MODE_ETC ? ".ETC" :
+	    (currmode & MODE_DIGEST ? fn_mandex : str_dotdir));
+}
+
+void
+setbfile(char *buf, char *boardname, char *fname)
+{
+    sprintf(buf, str_board_file, boardname[0], boardname, fname);
+}
+
+/*
+ * input	direct
+ * output	buf: copy direct
+ * 		fname: direct 的檔名部分
+ */
+void
+setdirpath(char *buf, char *direct, char *fname)
+{
+    strcpy(buf, direct);
+    direct = strrchr(buf, '/');
+    assert(direct);
+    strcpy(direct + 1, fname);
+}
+
+char           *
+subject(char *title)
+{
+    if (!strncasecmp(title, str_reply, 3)) {
+	title += 3;
+	if (*title == ' ')
+	    title++;
+    }
+    return title;
+}
+
+/* ----------------------------------------------------- */
+/* 字串轉換檢查函數                                      */
+/* ----------------------------------------------------- */
+int
+str_checksum(char *str)
+{
+    int             n = 1;
+    if (strlen(str) < 6)
+	return 0;
+    while (*str)
+	n += *(str++) * (n);
+    return n;
+}
+
+void
+str_lower(char *t, char *s)
+{
+    register unsigned char ch;
+
+    do {
+	ch = *s++;
+	*t++ = char_lower(ch);
+    } while (ch);
+}
+
+int
+strstr_lower(char *str, char *tag)
+{
+    char            buf[STRLEN];
+
+    str_lower(buf, str);
+    return (int)strstr(buf, tag);
+}
+
+void
+trim(char *buf)
+{				/* remove trailing space */
+    char           *p = buf;
+
+    while (*p)
+	p++;
+    while (--p >= buf) {
+	if (*p == ' ')
+	    *p = '\0';
+	else
+	    break;
+    }
+}
+
+/* ----------------------------------------------------- */
+/* 字串檢查函數：英文、數字、檔名、E-mail address        */
+/* ----------------------------------------------------- */
+int
+isprint2(char ch)
+{
+    return ((ch & 0x80) ? 1 : isprint(ch));
+    //return 1;
+}
+
+int
+not_alpha(char ch)
+{
+    return (ch < 'A' || (ch > 'Z' && ch < 'a') || ch > 'z');
+}
+
+int
+not_alnum(char ch)
+{
+    return (ch < '0' || (ch > '9' && ch < 'A') ||
+	    (ch > 'Z' && ch < 'a') || ch > 'z');
+}
+
+int
+invalid_pname(char *str)
+{
+    char           *p1, *p2, *p3;
+
+    p1 = str;
+    while (*p1) {
+	if (!(p2 = strchr(p1, '/')))
+	    p2 = str + strlen(str);
+	if (p1 + 1 > p2 || p1 + strspn(p1, ".") == p2)
+	    return 1;
+	for (p3 = p1; p3 < p2; p3++)
+	    if (not_alnum(*p3) && !strchr("@[]-._", *p3))
+		return 1;
+	p1 = p2 + (*p2 ? 1 : 0);
+    }
+    return 0;
+}
+
+int
+valid_ident(char *ident)
+{
+    char    *invalid[] = {"unknown@", "root@", "gopher@", "bbs@",
+    "@bbs", "guest@", "@ppp", "@slip", NULL};
+    char            buf[128];
+    int             i;
+
+    str_lower(buf, ident);
+    for (i = 0; invalid[i]; i++)
+	if (strstr(buf, invalid[i]))
+	    return 0;
+    return 1;
+}
+
+int
+is_uBM(char *list, char *id)
+{
+    register int    len;
+
+    if (list[0] == '[')
+	list++;
+    if (list[0] > ' ') {
+	len = strlen(id);
+	do {
+	    if (!strncasecmp(list, id, len)) {
+		list += len;
+		if ((*list == 0) || (*list == '/') ||
+		    (*list == ']') || (*list == ' '))
+		    return 1;
+	    }
+	    if ((list = strchr(list, '/')) != NULL)
+		list++;
+	    else
+		break;
+	} while (1);
+    }
+    return 0;
+}
+
+int
+is_BM(char *list)
+{
+    if (is_uBM(list, cuser.userid)) {
+	cuser.userlevel |= PERM_BM;	/* Ptt 自動加上BM的權利 */
+	return 1;
+    }
+    return 0;
+}
+
+int
+userid_is_BM(char *userid, char *list)
+{
+    register int    ch, len;
+
+    ch = list[0];
+    if ((ch > ' ') && (ch < 128)) {
+	len = strlen(userid);
+	do {
+	    if (!strncasecmp(list, userid, len)) {
+		ch = list[len];
+		if ((ch == 0) || (ch == '/') || (ch == ']'))
+		    return 1;
+	    }
+	    while ((ch = *list++)) {
+		if (ch == '/')
+		    break;
+	    }
+	} while (ch);
+    }
+    return 0;
+}
+
+/* ----------------------------------------------------- */
+/* 檔案檢查函數：檔案、目錄、屬於                        */
+/* ----------------------------------------------------- */
+off_t
+dashs(char *fname)
+{
+    struct stat     st;
+
+    if (!stat(fname, &st))
+	return st.st_size;
+    else
+	return -1;
+}
+
+long
+dasht(char *fname)
+{
+    struct stat     st;
+
+    if (!stat(fname, &st))
+	return st.st_mtime;
+    else
+	return -1;
+}
+
+int
+dashl(char *fname)
+{
+    struct stat     st;
+
+    return (lstat(fname, &st) == 0 && S_ISLNK(st.st_mode));
+}
+
+int
+dashf(char *fname)
+{
+    struct stat     st;
+
+    return (stat(fname, &st) == 0 && S_ISREG(st.st_mode));
+}
+
+int
+dashd(char *fname)
+{
+    struct stat     st;
+
+    return (stat(fname, &st) == 0 && S_ISDIR(st.st_mode));
+}
+
+int
+belong(char *filelist, char *key)
+{
+    FILE           *fp;
+    int             rc = 0;
+
+    if ((fp = fopen(filelist, "r"))) {
+	char            buf[STRLEN], *ptr;
+
+	while (fgets(buf, STRLEN, fp)) {
+	    if ((ptr = strtok(buf, str_space)) && !strcasecmp(ptr, key)) {
+		rc = 1;
+		break;
+	    }
+	}
+	fclose(fp);
+    }
+    return rc;
+}
+
+#ifndef _BBS_UTIL_C_ /* getdata_buf */
+time_t
+gettime(int line, time_t dt)
+{
+    char            yn[7];
+    struct tm      *ptime = localtime(&dt), endtime;
+
+    memcpy(&endtime, ptime, sizeof(struct tm));
+    snprintf(yn, sizeof(yn), "%4d", ptime->tm_year + 1900);
+    do {
+	getdata_buf(line, 0, "西元年:", yn, 5, LCECHO);
+    } while ((endtime.tm_year = atoi(yn) - 1900) < 0 || endtime.tm_year > 200);
+    snprintf(yn, sizeof(yn), "%d", ptime->tm_mon + 1);
+    do {
+	getdata_buf(line, 13, "月:", yn, 3, LCECHO);
+    } while ((endtime.tm_mon = atoi(yn) - 1) < 0 || endtime.tm_mon > 11);
+    snprintf(yn, sizeof(yn), "%d", ptime->tm_mday);
+    do {
+	getdata_buf(line, 22, "日:", yn, 3, LCECHO);
+    } while ((endtime.tm_mday = atoi(yn)) < 1 || endtime.tm_mday > 31);
+    snprintf(yn, sizeof(yn), "%d", ptime->tm_hour);
+    do {
+	getdata_buf(line, 31, "時(0-23):", yn, 3, LCECHO);
+    } while ((endtime.tm_hour = atoi(yn)) < 0 || endtime.tm_hour > 23);
+    return mktime(&endtime);
+}
+#endif
+
+char           *
+Cdate(time_t * clock)
+{
+    static char     foo[32];
+    struct tm      *mytm = localtime(clock);
+
+    strftime(foo, 32, "%m/%d/%Y %T %a", mytm);
+    return foo;
+}
+
+char           *
+Cdatelite(time_t * clock)
+{
+    static char     foo[32];
+    struct tm      *mytm = localtime(clock);
+
+    strftime(foo, 32, "%m/%d/%Y %T", mytm);
+    return foo;
+}
+
+char           *
+Cdatedate(time_t * clock)
+{
+    static char     foo[32];
+    struct tm      *mytm = localtime(clock);
+
+    strftime(foo, 32, "%m/%d/%Y", mytm);
+    return foo;
+}
+
+#ifndef _BBS_UTIL_C_
+/* 這一區都是有關於畫面處理的, 故 _BBS_UTIL_C_ 不須要 */
+static void
+capture_screen()
+{
+    char            fname[200];
+    FILE           *fp;
+    int             i;
+
+    getdata(b_lines - 2, 0, "把這個畫面收入到暫存檔？[y/N] ",
+	    fname, 4, LCECHO);
+    if (fname[0] != 'y')
+	return;
+
+    setuserfile(fname, ask_tmpbuf(b_lines - 1));
+    if ((fp = fopen(fname, "w"))) {
+	for (i = 0; i < scr_lns; i++)
+	    fprintf(fp, "%.*s\n", big_picture[i].len, big_picture[i].data);
+	fclose(fp);
+    }
+}
+
+void
+pressanykey()
+{
+    int             ch;
+
+    outmsg("\033[37;45;1m                        "
+	   "● 請按 \033[33m(Space/Return)\033[37m 繼續 ●"
+	   "       \033[33m(^T)\033[37m 存暫存檔   \033[m");
+    do {
+	ch = igetkey();
+
+	if (ch == Ctrl('T')) {
+	    capture_screen();
+	    break;
+	}
+    } while ((ch != ' ') && (ch != KEY_LEFT) && (ch != '\r') && (ch != '\n'));
+    move(b_lines, 0);
+    clrtoeol();
+    refresh();
+}
+
+int
+vmsg(const char *fmt,...)
+{
+    va_list         ap;
+    char            msg[80] = {0};
+    int             ch;
+
+    va_start(ap, fmt);
+    vsnprintf(msg, sizeof(msg), fmt, ap);
+    va_end(ap);
+
+    move(b_lines, 0);
+    clrtoeol();
+
+    if (*msg)
+	prints("\033[1;36;44m ◆ %-55.54s \033[33;46m \033[200m\033[1431m\033[506m[請按任意鍵繼續]\033[201m \033[m", msg);
+    else
+	outs("\033[46;1m                        \033[37m"
+	     "\033[200m\033[1431m\033[506m□ 請按 \033[33m(Space/Return)\033[37m 繼續 □\033[201m"
+	     "                       \033[m");
+
+    do {
+	ch = igetkey();
+
+	if (ch == Ctrl('T')) {
+	    capture_screen();
+	    break;
+	}
+    } while ((ch != ' ') && (ch != KEY_LEFT) && (ch != '\r') && (ch != '\n'));
+
+
+    move(b_lines, 0);
+    clrtoeol();
+    refresh();
+    return ch;
+}
+
+void
+bell()
+{
+    char            c;
+
+    c = Ctrl('G');
+    write(1, &c, 1);
+}
+
+int
+search_num(int ch, int max)
+{
+    int             clen = 1;
+    int             x, y;
+    char            genbuf[10];
+
+    outmsg("\033[7m 跳至第幾項：\033[m");
+    outc(ch);
+    genbuf[0] = ch;
+    getyx(&y, &x);
+    x--;
+    while ((ch = igetch()) != '\r') {
+	if (ch == 'q' || ch == 'e')
+	    return -1;
+	if (ch == '\n')
+	    break;
+	if (ch == '\177' || ch == Ctrl('H')) {
+	    if (clen == 0) {
+		bell();
+		continue;
+	    }
+	    clen--;
+	    move(y, x + clen);
+	    outc(' ');
+	    move(y, x + clen);
+	    continue;
+	}
+	if (!isdigit(ch)) {
+	    bell();
+	    continue;
+	}
+	if (x + clen >= scr_cols || clen >= 6) {
+	    bell();
+	    continue;
+	}
+	genbuf[clen++] = ch;
+	outc(ch);
+    }
+    genbuf[clen] = '\0';
+    move(b_lines, 0);
+    clrtoeol();
+    if (genbuf[0] == '\0')
+	return -1;
+    clen = atoi(genbuf);
+    if (clen == 0)
+	return 0;
+    if (clen > max)
+	return max;
+    return clen - 1;
+}
+
+void
+stand_title(char *title)
+{
+    clear();
+    prints("\033[1;37;46m【 %s 】\033[m\n", title);
+}
+
+void
+cursor_show(int row, int column)
+{
+    move(row, column);
+    outs(STR_CURSOR);
+    move(row, column + 1);
+}
+
+void
+cursor_clear(int row, int column)
+{
+    move(row, column);
+    outs(STR_UNCUR);
+}
+
+int
+cursor_key(int row, int column)
+{
+    int             ch;
+
+    cursor_show(row, column);
+    ch = egetch();
+    move(row, column);
+    outs(STR_UNCUR);
+    return ch;
+}
+
+void
+printdash(char *mesg)
+{
+    int             head = 0, tail;
+
+    if (mesg)
+	head = (strlen(mesg) + 1) >> 1;
+
+    tail = head;
+
+    while (head++ < 38)
+	outch('-');
+
+    if (tail) {
+	outch(' ');
+	outs(mesg);
+	outch(' ');
+    }
+    while (tail++ < 38)
+	outch('-');
+    outch('\n');
+}
+
+int
+log_file(char *filename, char *buf)
+{
+    FILE           *fp;
+
+    if ((fp = fopen(filename, "a")) != NULL) {
+	fputs(buf, fp);
+	if (!strchr(buf, '\n'))
+	    fputc('\n', fp);
+	fclose(fp);
+	return 0;
+    } else
+	return -1;
+}
+
+void
+show_help(char *helptext[])
+{
+    char           *str;
+    int             i;
+
+    clear();
+    for (i = 0; (str = helptext[i]); i++) {
+	if (*str == '\0')
+	    prints("\033[1m【 %s 】\033[0m\n", str + 1);
+	else if (*str == '\01')
+	    prints("\n\033[36m【 %s 】\033[m\n", str + 1);
+	else
+	    prints("        %s\n", str);
+    }
+    pressanykey();
+}
+#endif // _BBS_UTIL_C_
+
+/* ----------------------------------------------------- */
+/* use mmap() to malloc large memory in CRITICAL_MEMORY  */
+/* ----------------------------------------------------- */
+#ifdef CRITICAL_MEMORY
+void *MALLOC(int size)
+{
+    int     *p;
+    p = (int *)mmap(NULL, (size + 4), PROT_READ | PROT_WRITE, MAP_ANON, -1, 0);
+    p[0] = size;
+#if defined(DEBUG) && !defined(_BBS_UTIL_C_)
+    vmsg("critical malloc %d bytes", size);
+#endif
+    return (void *)&p[1];
+}
+
+void FREE(void *ptr)
+{
+    int     size = ((int *)ptr)[-1];
+    munmap((void *)(&(((int *)ptr)[-1])), size);
+#if defined(DEBUG) && !defined(_BBS_UTIL_C_)
+    vmsg("critical free %d bytes", size);
+#endif
+}
+#endif
+
+unsigned
+StringHash(unsigned char *s)
+{
+    unsigned int    v = 0;
+    while (*s) {
+	v = (v << 8) | (v >> 24);
+	v ^= toupper(*s++);	/* note this is case insensitive */
+    }
+    return (v * 2654435769UL) >> (32 - HASH_BITS);
+}
diff --git a/pttbbs/mbbsd/syspost.c b/pttbbs/mbbsd/syspost.c
new file mode 100644
index 00000000..39ccf97e
--- /dev/null
+++ b/pttbbs/mbbsd/syspost.c
@@ -0,0 +1,180 @@
+/* $Id$ */
+#include "bbs.h"
+
+int
+post_msg(char *bname, char *title, char *msg, char *author)
+{
+    FILE           *fp;
+    int             bid;
+    fileheader_t    fhdr;
+    char            genbuf[256];
+
+    /* 在 bname 板發表新文章 */
+    snprintf(genbuf, sizeof(genbuf), "boards/%c/%s", bname[0], bname);
+    stampfile(genbuf, &fhdr);
+    fp = fopen(genbuf, "w");
+
+    if (!fp)
+	return -1;
+
+    fprintf(fp, "作者: %s 看板: %s\n標題: %s \n", author, bname, title);
+    fprintf(fp, "時間: %s\n", ctime(&now));
+
+    /* 文章的內容 */
+    fprintf(fp, "%s", msg);
+    fclose(fp);
+
+    /* 將檔案加入列表 */
+    strlcpy(fhdr.title, title, sizeof(fhdr.title));
+    strlcpy(fhdr.owner, author, sizeof(fhdr.owner));
+    setbdir(genbuf, bname);
+    if (append_record(genbuf, &fhdr, sizeof(fhdr)) != -1)
+	if ((bid = getbnum(bname)) > 0)
+	    setbtotal(bid);
+    return 0;
+}
+
+int
+post_file(char *bname, char *title, char *filename, char *author)
+{
+    int             size = dashs(filename);
+    char           *msg;
+    FILE           *fp;
+
+    if (size <= 0)
+	return -1;
+    if (!(fp = fopen(filename, "r")))
+	return -1;
+    msg = (char *)malloc(size + 1);
+    size = fread(msg, 1, size, fp);
+    msg[size] = 0;
+    size = post_msg(bname, title, msg, author);
+    fclose(fp);
+    free(msg);
+    return size;
+}
+
+void
+post_change_perm(int oldperm, int newperm, char *sysopid, char *userid)
+{
+    FILE           *fp;
+    fileheader_t    fhdr;
+    char            genbuf[200], reason[30];
+    int             i, flag = 0;
+
+    strlcpy(genbuf, "boards/S/Security", sizeof(genbuf));
+    stampfile(genbuf, &fhdr);
+    if (!(fp = fopen(genbuf, "w")))
+	return;
+
+    fprintf(fp, "作者: [系統安全局] 看板: Security\n"
+	    "標題: [公安報告] 站長修改權限報告\n"
+	    "時間: %s\n", ctime(&now));
+    for (i = 5; i < NUMPERMS; i++) {
+	if (((oldperm >> i) & 1) != ((newperm >> i) & 1)) {
+	    fprintf(fp, "   站長\033[1;32m%s%s%s%s\033[m的權限\n",
+		    sysopid,
+	       (((oldperm >> i) & 1) ? "\033[1;33m關閉" : "\033[1;33m開啟"),
+		    userid, str_permid[i]);
+	    flag++;
+	}
+    }
+
+    if (flag) {
+	clrtobot();
+	clear();
+	while (!getdata_str(5, 0, "請輸入理由以示負責：",
+			    reason, sizeof(reason), DOECHO, "看板板主:"));
+	fprintf(fp, "\n   \033[1;37m站長%s修改權限理由是：%s\033[m",
+		cuser.userid, reason);
+	fclose(fp);
+
+	snprintf(fhdr.title, sizeof(fhdr.title),
+		 "[公安報告] 站長%s修改%s權限報告",
+		 cuser.userid, userid);
+	strlcpy(fhdr.owner, "[系統安全局]", sizeof(fhdr.owner));
+	append_record("boards/S/Security/.DIR", &fhdr, sizeof(fhdr));
+    } else
+	fclose(fp);
+}
+
+void
+post_violatelaw(char *crime, char *police, char *reason, char *result)
+{
+    char            genbuf[200];
+    fileheader_t    fhdr;
+    FILE           *fp;
+/*
+    strlcpy(genbuf, "boards/S/Security", sizeof(genbuf));
+    stampfile(genbuf, &fhdr);
+    if (!(fp = fopen(genbuf, "w")))
+	return;
+    fprintf(fp, "作者: [Ptt法院] 看板: Security\n"
+	    "標題: [報告] %-20s 違法判決報告\n"
+	    "時間: %s\n"
+	    "\033[1;32m%s\033[m判決：\n     \033[1;32m%s\033[m"
+	    "因\033[1;35m%s\033[m行為，\n違反本站站規，處以\033[1;35m%s\033[m，特此公告",
+	    crime, ctime(&now), police, crime, reason, result);
+    fclose(fp);
+    snprintf(fhdr.title, sizeof(fhdr.title),
+	     "[報告] %-20s 違法判決報告", crime);
+    strlcpy(fhdr.owner, "[Ptt法院]", sizeof(fhdr.owner));
+    append_record("boards/S/Security/.DIR", &fhdr, sizeof(fhdr));
+
+*/
+    strlcpy(genbuf, "boards/V/ViolateLaw", sizeof(genbuf));
+    stampfile(genbuf, &fhdr);
+    if (!(fp = fopen(genbuf, "w")))
+	return;
+    fprintf(fp, "作者: [Ptt法院] 看板: ViolateLaw\n"
+	    "標題: [報告] %-20s 違法判決報告\n"
+	    "時間: %s\n"
+	    "\033[1;32m%s\033[m判決：\n     \033[1;32m%s\033[m"
+	    "因\033[1;35m%s\033[m行為，\n違反本站站規，處以\033[1;35m%s\033[m，特此公告",
+	    crime, ctime(&now), police, crime, reason, result);
+    fclose(fp);
+    snprintf(fhdr.title, sizeof(fhdr.title),
+	     "[報告] %-20s 違法判決報告", crime);
+    strlcpy(fhdr.owner, "[Ptt法院]", sizeof(fhdr.owner));
+
+    append_record("boards/V/ViolateLaw/.DIR", &fhdr, sizeof(fhdr));
+
+}
+
+void
+post_newboard(char *bgroup, char *bname, char *bms)
+{
+    char            genbuf[256], title[128];
+    snprintf(title, sizeof(title), "[新板成立] %s", bname);
+    snprintf(genbuf, sizeof(genbuf),
+	     "%s 開了一個新板 %s : %s\n\n新任板主為 %s\n\n恭喜*^_^*\n",
+	     cuser.userid, bname, bgroup, bms);
+    post_msg("Record", title, genbuf, "[系統]");
+}
+
+void
+give_money_post(char *userid, int money)
+{
+    FILE           *fp;
+    fileheader_t    fhdr;
+    time_t          now = time(0);
+    char            genbuf[200];
+
+    strlcpy(genbuf, "boards/S/Security", sizeof(genbuf));
+    stampfile(genbuf, &fhdr);
+    if (!(fp = fopen(genbuf, "w")))
+	return;
+    fprintf(fp, "作者: [系統安全局] 看板: Security\n"
+	    "標題: [公安報告] 站長%s使用紅包機報告\n"
+	    "時間: %s\n", cuser.userid, ctime(&now));
+    clrtobot();
+    clear();
+    fprintf(fp, "\n   站長\033[1;32m%s\033[m給\033[1;33m%s %d 元\033[m",
+	    cuser.userid, userid, money);
+
+    fclose(fp);
+    snprintf(fhdr.title, sizeof(fhdr.title), "[公安報告] 站長%s使用紅包機報告",
+	     cuser.userid);
+    strlcpy(fhdr.owner, "[系統安全局]", sizeof(fhdr.owner));
+    append_record("boards/S/Security/.DIR", &fhdr, sizeof(fhdr));
+}
diff --git a/pttbbs/mbbsd/talk.c b/pttbbs/mbbsd/talk.c
new file mode 100644
index 00000000..9d244761
--- /dev/null
+++ b/pttbbs/mbbsd/talk.c
@@ -0,0 +1,2649 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define QCAST   int (*)(const void *, const void *)
+
+static char    *IdleTypeTable[] = {
+    "偶在花呆啦", "情人來電", "覓食中", "拜見周公", "假死狀態", "我在思考"
+};
+static char    *sig_des[] = {
+    "鬥雞", "聊天", "", "下棋", "象棋", "暗棋"
+};
+
+#define MAX_SHOW_MODE 4
+#define M_INT 15		/* monitor mode update interval */
+#define P_INT 20		/* interval to check for page req. in
+				 * talk/chat */
+#define BOARDFRI  1
+
+typedef struct talkwin_t {
+    int             curcol, curln;
+    int             sline, eline;
+}               talkwin_t;
+
+typedef struct pickup_t {
+    userinfo_t     *ui;
+    int             friend, uoffset;
+}               pickup_t;
+
+//extern int    bind( /* int,struct sockaddr *, int */ );
+//extern char  *getuserid();
+
+/* 記錄 friend 的 user number */
+//
+#define PICKUP_WAYS     7
+
+static char    *fcolor[11] = {
+    "", "\033[36m", "\033[32m", "\033[1;32m",
+    "\033[33m", "\033[1;33m", "\033[1;37m", "\033[1;37m",
+    "\033[31m", "\033[1;35m", "\033[1;36m"
+};
+static char     save_page_requestor[40];
+static char     page_requestor[40];
+static char     description[30];
+static FILE    *flog;
+
+int
+iswritable_stat(userinfo_t * uentp, int fri_stat)
+{
+    if (uentp == currutmp)
+	return 0;
+
+    if (HAS_PERM(PERM_SYSOP))
+	return 1;
+
+    if (!HAS_PERM(PERM_LOGINOK))
+	return 0;
+
+    return (uentp->pager != 3 && (fri_stat & HFM || uentp->pager != 4));
+}
+
+int
+isvisible_stat(userinfo_t * me, userinfo_t * uentp, int fri_stat)
+{
+    if (uentp->userid[0] == 0)
+	return 0;
+
+    if (PERM_HIDE(uentp) && !(PERM_HIDE(me)))	/* 對方紫色隱形而你沒有 */
+	return 0;
+    else if ((me->userlevel & PERM_SYSOP) ||
+	     ((fri_stat & HRM) && (fri_stat & HFM)))
+	/* 站長看的見任何人 */
+	return 1;
+
+    if (uentp->invisible && !(me->userlevel & PERM_SEECLOAK))
+	return 0;
+
+    return !(fri_stat & HRM);
+}
+
+char           *
+modestring(userinfo_t * uentp, int simple)
+{
+    static char     modestr[40];
+    char    *notonline = "不在站上";
+    register int    mode = uentp->mode;
+    register char  *word;
+    int             fri_stat;
+
+    /* for debugging */
+    if (mode >= MAX_MODES) {
+	syslog(LOG_WARNING, "what!? mode = %d", mode);
+	word = ModeTypeTable[mode % MAX_MODES];
+    } else
+	word = ModeTypeTable[mode];
+    fri_stat = friend_stat(currutmp, uentp);
+    if (!(HAS_PERM(PERM_SYSOP) || HAS_PERM(PERM_SEECLOAK)) &&
+	((uentp->invisible || (fri_stat & HRM)) &&
+	 !((fri_stat & HFM) && (fri_stat & HRM))))
+	return notonline;
+    else if (mode == EDITING) {
+	snprintf(modestr, sizeof(modestr), "E:%s",
+		ModeTypeTable[uentp->destuid < EDITING ? uentp->destuid :
+			      EDITING]);
+	word = modestr;
+    } else if (!mode && *uentp->chatid == 1) {
+	if (!simple)
+	    snprintf(modestr, sizeof(modestr),
+		     "回應 %s", getuserid(uentp->destuid));
+	else
+	    snprintf(modestr, sizeof(modestr), "回應呼叫");
+    } else if (!mode && *uentp->chatid == 2)
+	if (uentp->msgcount < 10) {
+	    char           *cnum[10] =
+	    {"", "一", "兩", "三", "四", "五", "六", "七",
+	    "八", "九"};
+	    snprintf(modestr, sizeof(modestr),
+		     "中%s顆水球", cnum[uentp->msgcount]);
+	} else
+	    snprintf(modestr, sizeof(modestr), "不行了 @_@");
+    else if (!mode && *uentp->chatid == 3)
+	snprintf(modestr, sizeof(modestr), "水球準備中");
+    else if (!mode)
+	return (uentp->destuid == 6) ? uentp->chatid :
+	    IdleTypeTable[(0 <= uentp->destuid && uentp->destuid < 6) ?
+			  uentp->destuid : 0];
+    else if (simple)
+	return word;
+    else if (uentp->in_chat && mode == CHATING)
+	snprintf(modestr, sizeof(modestr), "%s (%s)", word, uentp->chatid);
+    else if (mode == TALK) {
+	if (!isvisible_uid(uentp->destuid))	/* Leeym 對方(紫色)隱形 */
+	    snprintf(modestr, sizeof(modestr), "%s", "交談 空氣");
+	/* Leeym * 大家自己發揮吧！ */
+	else
+	    snprintf(modestr, sizeof(modestr),
+		     "%s %s", word, getuserid(uentp->destuid));
+    } else if (mode == M_FIVE) {
+	if (!isvisible_uid(uentp->destuid))
+	    snprintf(modestr, sizeof(modestr), "%s", "五子棋 空氣");
+	else
+	    snprintf(modestr, sizeof(modestr), "%s %s", word, getuserid(uentp->destuid));
+    } else if (mode == CHC) {
+	if (isvisible_uid(uentp->destuid))
+	    snprintf(modestr, sizeof(modestr), "%s", "下象棋");
+	else
+	    snprintf(modestr, sizeof(modestr),
+		     "下象棋 %s", getuserid(uentp->destuid));
+    } else if (mode != PAGE && mode != TQUERY)
+	return word;
+    else
+	snprintf(modestr, sizeof(modestr),
+		 "%s %s", word, getuserid(uentp->destuid));
+
+    return (modestr);
+}
+
+int
+set_friend_bit(userinfo_t * me, userinfo_t * ui)
+{
+    int             unum, *myfriends, hit = 0, n;
+
+    /* 判斷對方是否為我的朋友 ? */
+    unum = ui->uid;
+    myfriends = me->friend;
+    while ((n = *myfriends++)) {
+	if (unum == n) {
+	    hit = IFH;
+	    break;
+	}
+    }
+
+    /* 判斷我是否為對方的朋友 ? */
+    myfriends = ui->friend;
+    while ((unum = *myfriends++)) {
+	if (unum == me->uid) {
+	    hit |= HFM;
+	    break;
+	}
+    }
+
+    /* 判斷對方是否為我的仇人 ? */
+
+    unum = ui->uid;
+    myfriends = me->reject;
+    while ((n = *myfriends++)) {
+	if (unum == n) {
+	    hit |= IRH;
+	    break;
+	}
+    }
+
+    /* 判斷我是否為對方的仇人 ? */
+    myfriends = ui->reject;
+    while ((unum = *myfriends++)) {
+	if (unum == me->uid) {
+	    hit |= HRM;
+	    break;
+	}
+    }
+    return hit;
+}
+
+int
+reverse_friend_stat(int stat)
+{
+    int             stat1 = 0;
+    if (stat & IFH)
+	stat1 |= HFM;
+    if (stat & IRH)
+	stat1 |= HRM;
+    if (stat & HFM)
+	stat1 |= IFH;
+    if (stat & HRM)
+	stat1 |= IRH;
+    if (stat & IBH)
+	stat1 |= IBH;
+    return stat1;
+}
+
+int
+login_friend_online(void)
+{
+    userinfo_t     *uentp;
+    int             i, stat, stat1;
+    int             offset = (int)(currutmp - &SHM->uinfo[0]);
+    for (i = 0; i < SHM->UTMPnumber && currutmp->friendtotal < MAX_FRIEND; i++) {
+	uentp = (SHM->sorted[SHM->currsorted][0][i]);
+	if (uentp && uentp->uid && (stat = set_friend_bit(currutmp, uentp))) {
+	    stat1 = reverse_friend_stat(stat);
+	    stat <<= 24;
+	    stat |= (int)(uentp - &SHM->uinfo[0]);
+	    currutmp->friend_online[currutmp->friendtotal++] = stat;
+	    if (uentp != currutmp && uentp->friendtotal < MAX_FRIEND) {
+		stat1 <<= 24;
+		stat1 |= offset;
+		uentp->friend_online[uentp->friendtotal++] = stat1;
+	    }
+	}
+    }
+    return 0;
+}
+
+int
+logout_friend_online(userinfo_t * utmp)
+{
+    int             i, j, k;
+    int             offset = (int)(utmp - &SHM->uinfo[0]);
+    userinfo_t     *ui;
+    while (utmp->friendtotal > 0) {
+	i = utmp->friendtotal - 1;
+	j = (utmp->friend_online[i] & 0xFFFFFF);
+	utmp->friend_online[i] = 0;
+	ui = &SHM->uinfo[j];
+	if (ui->pid && ui != utmp) {
+	    for (k = 0; k < ui->friendtotal && k < MAX_FRIEND &&
+		 (int)(ui->friend_online[k] & 0xFFFFFF) != offset; k++);
+	    if (k < ui->friendtotal) {
+		ui->friendtotal--;
+		ui->friend_online[k] = ui->friend_online[ui->friendtotal];
+		ui->friend_online[ui->friendtotal] = 0;
+	    }
+	}
+	utmp->friendtotal--;
+	utmp->friend_online[utmp->friendtotal] = 0;
+    }
+    return 0;
+}
+
+
+int
+friend_stat(userinfo_t * me, userinfo_t * ui)
+{
+    int             i, j, hit = 0;
+    /* 看板好友 */
+    if (me->brc_id && ui->brc_id == me->brc_id) {
+	hit = IBH;
+    }
+    for (i = 0; me->friend_online[i] && i < MAX_FRIEND; i++) {
+	j = (me->friend_online[i] & 0xFFFFFF);
+	if (0 <= j && j < MAX_ACTIVE && ui == &SHM->uinfo[j]) {
+	    hit |= me->friend_online[i] >> 24;
+	    break;
+	}
+    }
+    if (PERM_HIDE(ui))
+	return hit & ST_FRIEND;
+    return hit;
+}
+
+int
+isvisible_uid(int tuid)
+{
+    userinfo_t     *uentp;
+
+    if (!tuid || !(uentp = search_ulist(tuid)))
+	return 1;
+    return isvisible(currutmp, uentp);
+}
+
+/* 真實動作 */
+static void
+my_kick(userinfo_t * uentp)
+{
+    char            genbuf[200];
+
+    getdata(1, 0, msg_sure_ny, genbuf, 4, LCECHO);
+    clrtoeol();
+    if (genbuf[0] == 'y') {
+	snprintf(genbuf, sizeof(genbuf),
+		 "%s (%s)", uentp->userid, uentp->username);
+	log_usies("KICK ", genbuf);
+	if ((uentp->pid <= 0 || kill(uentp->pid, SIGHUP) == -1) && (errno == ESRCH))
+	    purge_utmp(uentp);
+	outs("踢出去囉");
+    } else
+	outs(msg_cancel);
+    pressanykey();
+}
+
+static void
+chicken_query(char *userid)
+{
+    char            buf[100];
+
+    if (getuser(userid)) {
+	if (xuser.mychicken.name[0]) {
+	    time_diff(&(xuser.mychicken));
+	    if (!isdeadth(&(xuser.mychicken))) {
+		show_chicken_data(&(xuser.mychicken), NULL);
+		snprintf(buf, sizeof(buf),
+			 "\n\n以上是 %s 的寵物資料..", userid);
+		outs(buf);
+	    }
+	} else {
+	    move(1, 0);
+	    clrtobot();
+	    snprintf(buf, sizeof(buf), "\n\n%s 並沒有養寵物..", userid);
+	    outs(buf);
+	}
+	pressanykey();
+    }
+}
+
+int
+my_query(char *uident)
+{
+    userec_t        muser;
+    int             tuid, i, fri_stat = 0;
+    unsigned long int j;
+    userinfo_t     *uentp;
+    const char *money[10] =
+    {"債台高築", "赤貧", "清寒", "普通", "小康",
+    "小富", "中富", "大富翁", "富可敵國", "比爾蓋\天"};
+    const char *sex[8] =
+    {MSG_BIG_BOY, MSG_BIG_GIRL,
+	MSG_LITTLE_BOY, MSG_LITTLE_GIRL,
+    MSG_MAN, MSG_WOMAN, MSG_PLANT, MSG_MIME};
+
+    if ((tuid = getuser(uident))) {
+	memcpy(&muser, &xuser, sizeof(muser));
+	move(1, 0);
+	clrtobot();
+	move(1, 0);
+	setutmpmode(TQUERY);
+	currutmp->destuid = tuid;
+
+	j = muser.money;
+	for (i = 0; i < 10 && j > 10; i++)
+	    j /= 10;
+	prints("《ＩＤ暱稱》%s(%s)%*s《經濟狀況》%s\n",
+	       muser.userid,
+	       muser.username,
+	       26 - strlen(muser.userid) - strlen(muser.username), "",
+	       money[i]);
+	prints("《上站次數》%d次", muser.numlogins);
+	move(2, 40);
+	prints("《文章篇數》%d篇\n", muser.numposts);
+
+	if ((uentp = (userinfo_t *) search_ulist(tuid)))
+	    fri_stat = friend_stat(currutmp, uentp);
+	prints("\033[1;33m《目前動態》%-28.28s\033[m",
+	       (uentp && isvisible_stat(currutmp, uentp, fri_stat)) ?
+	       modestring(uentp, 0) : "不在站上");
+
+	outs(((uentp && uentp->mailalert) || load_mailalert(muser.userid))
+	     ? "《私人信箱》有新進信件還沒看\n" :
+	     "《私人信箱》所有信件都看過了\n");
+	prints("《上次上站》%-28.28s《上次故鄉》%s\n",
+	       Cdate(&muser.lastlogin),
+	       (muser.lasthost[0] ? muser.lasthost : "(不詳)"));
+	if ((uentp && ((fri_stat & HFM) || strcmp(muser.userid,cuser.userid) == 0) && !uentp->invisible))
+	    prints("《 性  別 》%-28.28s《私有財產》%d 銀兩\n",
+		   sex[muser.sex % 8],
+		   muser.money);
+	prints("《五子棋戰績》%3d 勝 %3d 敗 %3d 和      "
+	       "《象棋戰績》%3d 勝 %3d 敗 %3d 和",
+	       muser.five_win, muser.five_lose, muser.five_tie,
+	       muser.chc_win, muser.chc_lose, muser.chc_tie);
+	showplans(uident);
+	pressanykey();
+	return FULLUPDATE;
+    }
+    return DONOTHING;
+}
+
+static char     t_last_write[200] = "";
+
+void
+water_scr(water_t * tw, int which, char type)
+{
+    if (type == 1) {
+	int             i;
+	int             colors[] = {33, 37, 33, 37, 33};
+	move(8 + which, 28);
+	prints(" ");
+	move(8 + which, 28);
+	prints("\033[1;37;45m  %c %-14s \033[0m",
+	       tw->uin ? ' ' : 'x',
+	       tw->userid);
+	for (i = 0; i < 5; ++i) {
+	    move(16 + i, 4);
+	    prints(" ");
+	    move(16 + i, 4);
+	    if (tw->msg[(tw->top - i + 4) % 5].last_call_in[0] != 0)
+		prints("\033[0m   \033[1;%d;44m★%-64s\033[0m   \n",
+		       colors[i],
+		       tw->msg[(tw->top - i + 4) % 5].last_call_in);
+	    else
+		prints("\033[0m　\n");
+	}
+
+	move(21, 4);
+	prints(" ");
+	move(21, 4);
+	prints("\033[0m   \033[1;37;46m%-66s\033[0m   \n",
+	       tw->msg[5].last_call_in);
+
+	move(0, 0);
+	prints(" ");
+	move(0, 0);
+	prints("\033[0m反擊 %s:", tw->userid);
+	clrtoeol();
+	move(0, strlen(tw->userid) + 6);
+    } else {
+	move(8 + which, 28);
+	prints("123456789012345678901234567890");
+	move(8 + which, 28);
+	prints("\033[1;37;44m  %c %-13s　\033[0m",
+	       tw->uin ? ' ' : 'x',
+	       tw->userid);
+    }
+}
+
+void
+my_write2(void)
+{
+    int             i, ch, currstat0;
+    char            genbuf[256], msg[80], done = 0, c0, which;
+    water_t        *tw;
+    unsigned char   mode0;
+
+    if (swater[0] == NULL)
+	return;
+    wmofo = 0;
+    currstat0 = currstat;
+    c0 = currutmp->chatid[0];
+    mode0 = currutmp->mode;
+    currutmp->mode = 0;
+    currutmp->chatid[0] = 3;
+    currstat = DBACK;
+
+    //init screen
+	move(7, 28);
+    prints("\033[1;33;46m ↑ 水球反擊對象 ↓\033[0m");
+    for (i = 0; i < 5; ++i)
+	if (swater[i] == NULL || swater[i]->pid == 0)
+	    break;
+	else {
+	    if (swater[i]->uin &&
+		(swater[i]->pid != swater[i]->uin->pid ||
+		 swater[i]->userid[0] != swater[i]->uin->userid[0]))
+		swater[i]->uin = (userinfo_t *) search_ulist_pid(swater[i]->pid);
+	    water_scr(swater[i], i, 0);
+	}
+    move(15, 4);
+    prints("\033[0m \033[1;35m◇\033[1;36m────────────────"
+	   "─────────────────\033[1;35m◇\033[0m ");
+    move(22, 4);
+    prints(" \033[1;35m◇\033[1;36m────────────────"
+	   "─────────────────\033[1;35m◇\033[0m ");
+    water_scr(swater[0], 0, 1);
+    refresh();
+
+    which = 0;
+    do {
+	switch ((ch = igetkey())) {
+	case Ctrl('T'):
+	case KEY_UP:
+	    if (water_usies != 1) {
+		water_scr(swater[(int)which], which, 0);
+		which = (which - 1 + water_usies) % water_usies;
+		water_scr(swater[(int)which], which, 1);
+		refresh();
+	    }
+	    break;
+
+	case KEY_DOWN:
+	case Ctrl('R'):
+	    if (water_usies != 1) {
+		water_scr(swater[(int)which], which, 0);
+		which = (which + 1 + water_usies) % water_usies;
+		water_scr(swater[(int)which], which, 1);
+		refresh();
+	    }
+	    break;
+
+	case KEY_LEFT:
+	    done = 1;
+	    break;
+
+	default:
+	    done = 1;
+	    tw = swater[(int)which];
+
+	    if (!tw->uin)
+		break;
+
+	    if (ch != '\r' && ch != '\n') {
+		msg[0] = ch, msg[1] = 0;
+	    } else
+		msg[0] = 0;
+	    move(0, 0);
+	    prints("\033[m");
+	    clrtoeol();
+	    snprintf(genbuf, sizeof(genbuf), "攻擊 %s:", tw->userid);
+	    if (!oldgetdata(0, 0, genbuf, msg,
+			    80 - strlen(tw->userid) - 6, DOECHO))
+		break;
+
+	    if (my_write(tw->pid, msg, tw->userid, 4, tw->uin))
+		strncpy(tw->msg[5].last_call_in, t_last_write,
+			sizeof(tw->msg[5].last_call_in));
+	    break;
+	}
+    } while (!done);
+
+    currstat = currstat0;
+    currutmp->chatid[0] = c0;
+    currutmp->mode = mode0;
+    if (wmofo == 1)
+	write_request(0);
+    wmofo = -1;
+}
+
+/*
+ * 被呼叫的時機: 1. 丟群組水球 flag = 1 (pre-edit) 2. 回水球     flag = 0 3.
+ * 上站aloha  flag = 2 (pre-edit) 4. 廣播       flag = 3 if SYSOP, otherwise
+ * flag = 1 (pre-edit) 5. 丟水球     flag = 0 6. my_write2  flag = 4
+ * (pre-edit) but confirm
+ */
+int
+my_write(pid_t pid, char *prompt, char *id, int flag, userinfo_t * puin)
+{
+    int             len, currstat0 = currstat, fri_stat;
+    char            msg[80], destid[IDLEN + 1];
+    char            genbuf[200], buf[200], c0 = currutmp->chatid[0];
+    unsigned char   mode0 = currutmp->mode;
+    struct tm      *ptime;
+    userinfo_t     *uin;
+    uin = (puin != NULL) ? puin : (userinfo_t *) search_ulist_pid(pid);
+    strlcpy(destid, id, sizeof(destid));
+
+    if (!uin && !(flag == 0 && water_which->count > 0)) {
+	outmsg("\033[1;33;41m糟糕! 對方已落跑了(不在站上)! \033[37m~>_<~\033[m");
+	clrtoeol();
+	refresh();
+	watermode = -1;
+	return 0;
+    }
+    currutmp->mode = 0;
+    currutmp->chatid[0] = 3;
+    currstat = DBACK;
+
+    ptime = localtime(&now);
+
+    if (flag == 0) {
+	/* 一般水球 */
+	watermode = 0;
+	if (!(len = getdata(0, 0, prompt, msg, 56, DOECHO))) {
+	    outmsg("\033[1;33;42m算了! 放你一馬...\033[m");
+	    clrtoeol();
+	    refresh();
+	    currutmp->chatid[0] = c0;
+	    currutmp->mode = mode0;
+	    currstat = currstat0;
+	    watermode = -1;
+	    return 0;
+	}
+	if (watermode > 0) {
+	    int             i;
+
+	    i = (water_which->top - watermode + MAX_REVIEW) % MAX_REVIEW;
+	    uin = (userinfo_t *) search_ulist_pid(water_which->msg[i].pid);
+	    strlcpy(destid, water_which->msg[i].userid, sizeof(destid));
+	}
+    } else {
+	/* pre-edit 的水球 */
+	strlcpy(msg, prompt, sizeof(msg));
+	len = strlen(msg);
+    }
+
+    strip_ansi(msg, msg, 0);
+    if (uin && *uin->userid && (flag == 0 || flag == 4)) {
+	snprintf(buf, sizeof(buf), "丟給 %s : %s [Y/n]?", uin->userid, msg);
+	getdata(0, 0, buf, genbuf, 3, LCECHO);
+	if (genbuf[0] == 'n') {
+	    outmsg("\033[1;33;42m算了! 放你一馬...\033[m");
+	    clrtoeol();
+	    refresh();
+	    currutmp->chatid[0] = c0;
+	    currutmp->mode = mode0;
+	    currstat = currstat0;
+	    watermode = -1;
+	    return 0;
+	}
+    }
+    watermode = -1;
+    if (!uin || !*uin->userid || strcasecmp(destid, uin->userid)) {
+	outmsg("\033[1;33;41m糟糕! 對方已落跑了(不在站上)! \033[37m~>_<~\033[m");
+	clrtoeol();
+	refresh();
+	currutmp->chatid[0] = c0;
+	currutmp->mode = mode0;
+	currstat = currstat0;
+	return 0;
+    }
+    fri_stat = friend_stat(currutmp, uin);
+    if (flag != 2) {		/* aloha 的水球不用存下來 */
+	/* 存到自己的水球檔 */
+	if (!fp_writelog) {
+	    sethomefile(genbuf, cuser.userid, fn_writelog);
+	    fp_writelog = fopen(genbuf, "a");
+	}
+	if (fp_writelog) {
+	    fprintf(fp_writelog, "To %s: %s [%s]\n",
+		    uin->userid, msg, Cdatelite(&now));
+	    snprintf(t_last_write, 66, "To %s: %s", uin->userid, msg);
+	}
+    }
+    if (flag == 3 && uin->msgcount) {
+	/* 不懂 */
+	uin->destuip = currutmp - &SHM->uinfo[0];
+	uin->sig = 2;
+	if (uin->pid > 0)
+	    kill(uin->pid, SIGUSR1);
+    } else if (flag != 2 &&
+	       !HAS_PERM(PERM_SYSOP) &&
+	       (uin->pager == 3 ||
+		uin->pager == 2 ||
+		(uin->pager == 4 &&
+		 !(fri_stat & HFM))))
+	outmsg("\033[1;33;41m糟糕! 對方防水了! \033[37m~>_<~\033[m");
+    else {
+	if (uin->msgcount < MAX_MSGS) {
+	    unsigned char   pager0 = uin->pager;
+
+	    uin->pager = 2;
+	    uin->msgs[uin->msgcount].pid = currpid;
+	    strlcpy(uin->msgs[uin->msgcount].userid, cuser.userid,
+		    sizeof(uin->msgs[uin->msgcount].userid));
+	    strlcpy(uin->msgs[uin->msgcount++].last_call_in, msg,
+		    sizeof(uin->msgs[uin->msgcount].last_call_in));
+	    uin->pager = pager0;
+	} else if (flag != 2)
+	    outmsg("\033[1;33;41m糟糕! 對方不行了! (收到太多水球) \033[37m@_@\033[m");
+
+	if (uin->msgcount >= 1 && (uin->pid <= 0 || kill(uin->pid, SIGUSR2) == -1) && flag != 2)
+	    outmsg("\033[1;33;41m糟糕! 沒打中! \033[37m~>_<~\033[m");
+	else if (uin->msgcount == 1 && flag != 2)
+	    outmsg("\033[1;33;44m水球砸過去了! \033[37m*^o^*\033[m");
+	else if (uin->msgcount > 1 && uin->msgcount < MAX_MSGS && flag != 2)
+	    outmsg("\033[1;33;44m再補上一粒! \033[37m*^o^*\033[m");
+    }
+
+    clrtoeol();
+    refresh();
+
+    currutmp->chatid[0] = c0;
+    currutmp->mode = mode0;
+    currstat = currstat0;
+    return 1;
+}
+
+void
+t_display_new(void)
+{
+    static int      t_display_new_flag = 0;
+    int             i, off = 2;
+    if (t_display_new_flag)
+	return;
+    else
+	t_display_new_flag = 1;
+
+    if (WATERMODE(WATER_ORIG))
+	water_which = &water[0];
+    else
+	off = 3;
+
+    if (water[0].count && watermode > 0) {
+	move(1, 0);
+	outs("───────水─球─回─顧───");
+	outs(WATERMODE(WATER_ORIG) ?
+	     "──────用[Ctrl-R Ctrl-T]鍵切換─────" :
+	     "用[Ctrl-R Ctrl-T Ctrl-F Ctrl-G ]鍵切換────");
+	if (WATERMODE(WATER_NEW)) {
+	    move(2, 0);
+	    clrtoeol();
+	    for (i = 0; i < 6; i++) {
+		if (i > 0)
+		    if (swater[i - 1]) {
+
+			if (swater[i - 1]->uin &&
+			    (swater[i - 1]->pid != swater[i - 1]->uin->pid ||
+			     swater[i - 1]->userid[0] != swater[i - 1]->uin->userid[0]))
+			    swater[i - 1]->uin = (userinfo_t *) search_ulist_pid(swater[i - 1]->pid);
+			prints("%s%c%-13.13s\033[m",
+			       swater[i - 1] != water_which ? "" :
+			       swater[i - 1]->uin ? "\033[1;33;47m" :
+			       "\033[1;33;45m",
+			       !swater[i - 1]->uin ? '#' : ' ',
+			       swater[i - 1]->userid);
+		    } else
+			prints("              ");
+		else
+		    prints("%s 全部  \033[m",
+			   water_which == &water[0] ? "\033[1;33;47m " :
+			   " "
+			);
+	    }
+	}
+	for (i = 0; i < water_which->count; i++) {
+	    int             a = (water_which->top - i - 1 + MAX_REVIEW) % MAX_REVIEW, len = 75 - strlen(water_which->msg[a].last_call_in)
+	    - strlen(water_which->msg[a].userid);
+	    if (len < 0)
+		len = 0;
+
+	    move(i + (WATERMODE(WATER_ORIG) ? 2 : 3), 0);
+	    clrtoeol();
+	    if (watermode - 1 != i)
+		prints("\033[1;33;46m %s \033[37;45m %s \033[m%*s",
+		       water_which->msg[a].userid,
+		       water_which->msg[a].last_call_in, len,
+		       "");
+	    else
+		prints("\033[1;44m>\033[1;33;47m%s "
+		       "\033[37;45m %s \033[m%*s",
+		       water_which->msg[a].userid,
+		       water_which->msg[a].last_call_in,
+		       len, "");
+	}
+
+	if (t_last_write[0]) {
+	    move(i + off, 0);
+	    clrtoeol();
+	    prints(t_last_write);
+	    i++;
+	}
+	move(i + off, 0);
+	outs("──────────────────────"
+	     "─────────────────");
+	if (WATERMODE(WATER_NEW))
+	    while (i++ <= water[0].count) {
+		move(i + off, 0);
+		clrtoeol();
+	    }
+    }
+    t_display_new_flag = 0;
+}
+
+int
+t_display(void)
+{
+    char            genbuf[200], ans[4];
+    if (fp_writelog) {
+	fclose(fp_writelog);
+	fp_writelog = NULL;
+    }
+    setuserfile(genbuf, fn_writelog);
+    if (more(genbuf, YEA) != -1) {
+	move(b_lines - 4, 0);
+	outs("\033[1;33;45m★現在 Ptt提供創新的水球整理程式★\033[m\n"
+	     "您將水球存至信箱後, 在【郵件選單】該信件前按 u,\n"
+	     "系統即會將您的水球紀錄重新整理後寄送給您唷! \n");
+	getdata(b_lines - 1, 0, "清除(C) 移至備忘錄(M) 保留(R) (C/M/R)?[R]",
+		ans, sizeof(ans), LCECHO);
+	if (*ans == 'm') {
+	    fileheader_t    mymail;
+	    char            title[128], buf[80];
+
+	    sethomepath(buf, cuser.userid);
+	    stampfile(buf, &mymail);
+
+	    mymail.filemode = FILE_READ | FILE_HOLD;
+	    strlcpy(mymail.owner, "[備.忘.錄]", sizeof(mymail.owner));
+	    strlcpy(mymail.title, "熱線記錄", sizeof(mymail.title));
+	    sethomedir(title, cuser.userid);
+	    Rename(genbuf, buf);
+	    append_record(title, &mymail, sizeof(mymail));
+	} else if (*ans == 'c')
+	    unlink(genbuf);
+	return FULLUPDATE;
+    }
+    return DONOTHING;
+}
+
+static void
+do_talk_nextline(talkwin_t * twin)
+{
+    twin->curcol = 0;
+    if (twin->curln < twin->eline)
+	++(twin->curln);
+    else
+	region_scroll_up(twin->sline, twin->eline);
+    move(twin->curln, twin->curcol);
+}
+
+static void
+do_talk_char(talkwin_t * twin, int ch)
+{
+    screenline_t   *line;
+    int             i;
+    char            ch0, buf[81];
+
+    if (isprint2(ch)) {
+	ch0 = big_picture[twin->curln].data[twin->curcol];
+	if (big_picture[twin->curln].len < 79)
+	    move(twin->curln, twin->curcol);
+	else
+	    do_talk_nextline(twin);
+	outc(ch);
+	++(twin->curcol);
+	line = big_picture + twin->curln;
+	if (twin->curcol < line->len) {	/* insert */
+	    ++(line->len);
+	    memcpy(buf, line->data + twin->curcol, 80);
+	    save_cursor();
+	    do_move(twin->curcol, twin->curln);
+	    ochar(line->data[twin->curcol] = ch0);
+	    for (i = twin->curcol + 1; i < line->len; i++)
+		ochar(line->data[i] = buf[i - twin->curcol - 1]);
+	    restore_cursor();
+	}
+	line->data[line->len] = 0;
+	return;
+    }
+    switch (ch) {
+    case Ctrl('H'):
+    case '\177':
+	if (twin->curcol == 0)
+	    return;
+	line = big_picture + twin->curln;
+	--(twin->curcol);
+	if (twin->curcol < line->len) {
+	    --(line->len);
+	    save_cursor();
+	    do_move(twin->curcol, twin->curln);
+	    for (i = twin->curcol; i < line->len; i++)
+		ochar(line->data[i] = line->data[i + 1]);
+	    line->data[i] = 0;
+	    ochar(' ');
+	    restore_cursor();
+	}
+	move(twin->curln, twin->curcol);
+	return;
+    case Ctrl('D'):
+	line = big_picture + twin->curln;
+	if (twin->curcol < line->len) {
+	    --(line->len);
+	    save_cursor();
+	    do_move(twin->curcol, twin->curln);
+	    for (i = twin->curcol; i < line->len; i++)
+		ochar(line->data[i] = line->data[i + 1]);
+	    line->data[i] = 0;
+	    ochar(' ');
+	    restore_cursor();
+	}
+	return;
+    case Ctrl('G'):
+	bell();
+	return;
+    case Ctrl('B'):
+	if (twin->curcol > 0) {
+	    --(twin->curcol);
+	    move(twin->curln, twin->curcol);
+	}
+	return;
+    case Ctrl('F'):
+	if (twin->curcol < 79) {
+	    ++(twin->curcol);
+	    move(twin->curln, twin->curcol);
+	}
+	return;
+    case KEY_TAB:
+	twin->curcol += 8;
+	if (twin->curcol > 80)
+	    twin->curcol = 80;
+	move(twin->curln, twin->curcol);
+	return;
+    case Ctrl('A'):
+	twin->curcol = 0;
+	move(twin->curln, twin->curcol);
+	return;
+    case Ctrl('K'):
+	clrtoeol();
+	return;
+    case Ctrl('Y'):
+	twin->curcol = 0;
+	move(twin->curln, twin->curcol);
+	clrtoeol();
+	return;
+    case Ctrl('E'):
+	twin->curcol = big_picture[twin->curln].len;
+	move(twin->curln, twin->curcol);
+	return;
+    case Ctrl('M'):
+    case Ctrl('J'):
+	line = big_picture + twin->curln;
+	strncpy(buf, (char *)line->data, line->len);
+	buf[line->len] = 0;
+	do_talk_nextline(twin);
+	break;
+    case Ctrl('P'):
+	line = big_picture + twin->curln;
+	strncpy(buf, (char *)line->data, line->len);
+	buf[line->len] = 0;
+	if (twin->curln > twin->sline) {
+	    --(twin->curln);
+	    move(twin->curln, twin->curcol);
+	}
+	break;
+    case Ctrl('N'):
+	line = big_picture + twin->curln;
+	strncpy(buf, (char *)line->data, line->len);
+	buf[line->len] = 0;
+	if (twin->curln < twin->eline) {
+	    ++(twin->curln);
+	    move(twin->curln, twin->curcol);
+	}
+	break;
+    }
+    trim(buf);
+    if (*buf)
+	fprintf(flog, "%s%s: %s%s\n",
+		(twin->eline == b_lines - 1) ? "\033[1;35m" : "",
+		(twin->eline == b_lines - 1) ?
+		getuserid(currutmp->destuid) : cuser.userid, buf,
+		(ch == Ctrl('P')) ? "\033[37;45m(Up)\033[m" : "\033[m");
+}
+
+static void
+do_talk(int fd)
+{
+    struct talkwin_t mywin, itswin;
+    char            mid_line[128], data[200];
+    int             i, datac, ch;
+    int             im_leaving = 0;
+    FILE           *log;
+    struct tm      *ptime;
+    char            genbuf[200], fpath[100];
+
+    ptime = localtime(&now);
+
+    sethomepath(fpath, cuser.userid);
+    strlcpy(fpath, tempnam(fpath, "talk_"), sizeof(fpath));
+    flog = fopen(fpath, "w");
+
+    setuserfile(genbuf, fn_talklog);
+
+    if ((log = fopen(genbuf, "w")))
+	fprintf(log, "[%d/%d %d:%02d] & %s\n",
+		ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_hour,
+		ptime->tm_min, save_page_requestor);
+    setutmpmode(TALK);
+
+    ch = 58 - strlen(save_page_requestor);
+    snprintf(genbuf, sizeof(genbuf), "%s【%s", cuser.userid, cuser.username);
+    i = ch - strlen(genbuf);
+    if (i >= 0)
+	i = (i >> 1) + 1;
+    else {
+	genbuf[ch] = '\0';
+	i = 1;
+    }
+    memset(data, ' ', i);
+    data[i] = '\0';
+
+    snprintf(mid_line, sizeof(mid_line),
+	     "\033[1;46;37m  談天說地  \033[45m%s%s】"
+	     " 與  %s%s\033[0m", data, genbuf, save_page_requestor, data);
+
+    memset(&mywin, 0, sizeof(mywin));
+    memset(&itswin, 0, sizeof(itswin));
+
+    i = b_lines >> 1;
+    mywin.eline = i - 1;
+    itswin.curln = itswin.sline = i + 1;
+    itswin.eline = b_lines - 1;
+
+    clear();
+    move(i, 0);
+    outs(mid_line);
+    move(0, 0);
+
+    add_io(fd, 0);
+
+    while (1) {
+	ch = igetkey();
+	if (ch == I_OTHERDATA) {
+	    datac = recv(fd, data, sizeof(data), 0);
+	    if (datac <= 0)
+		break;
+	    for (i = 0; i < datac; i++)
+		do_talk_char(&itswin, data[i]);
+	} else {
+	    if (ch == Ctrl('C')) {
+		if (im_leaving)
+		    break;
+		move(b_lines, 0);
+		clrtoeol();
+		outs("再按一次 Ctrl-C 就正式中止談話囉！");
+		im_leaving = 1;
+		continue;
+	    }
+	    if (im_leaving) {
+		move(b_lines, 0);
+		clrtoeol();
+		im_leaving = 0;
+	    }
+	    switch (ch) {
+	    case KEY_LEFT:	/* 把2byte的鍵改為一byte */
+		ch = Ctrl('B');
+		break;
+	    case KEY_RIGHT:
+		ch = Ctrl('F');
+		break;
+	    case KEY_UP:
+		ch = Ctrl('P');
+		break;
+	    case KEY_DOWN:
+		ch = Ctrl('N');
+		break;
+	    }
+	    data[0] = (char)ch;
+	    if (send(fd, data, 1, 0) != 1)
+		break;
+	    if (log)
+		fprintf(log, "%c", (ch == Ctrl('M')) ? '\n' : (char)*data);
+	    do_talk_char(&mywin, *data);
+	}
+    }
+    if (log)
+	fclose(log);
+
+    add_io(0, 0);
+    close(fd);
+
+    if (flog) {
+	char            ans[4];
+	int             i;
+
+	fprintf(flog, "\n\033[33;44m離別畫面 [%s] ...     \033[m\n",
+		Cdatelite(&now));
+	for (i = 0; i < scr_lns; i++)
+	    fprintf(flog, "%.*s\n", big_picture[i].len, big_picture[i].data);
+	fclose(flog);
+	more(fpath, NA);
+	getdata(b_lines - 1, 0, "清除(C) 移至備忘錄(M). (C/M)?[C]",
+		ans, sizeof(ans), LCECHO);
+	if (*ans == 'm') {
+	    fileheader_t    mymail;
+	    char            title[128];
+
+	    sethomepath(genbuf, cuser.userid);
+	    stampfile(genbuf, &mymail);
+	    mymail.filemode = FILE_READ | FILE_HOLD;
+	    strlcpy(mymail.owner, "[備.忘.錄]", sizeof(mymail.owner));
+	    snprintf(mymail.title, sizeof(mymail.title),
+		     "對話記錄 \033[1;36m(%s)\033[m",
+		     getuserid(currutmp->destuid));
+	    sethomedir(title, cuser.userid);
+	    Rename(fpath, genbuf);
+	    append_record(title, &mymail, sizeof(mymail));
+	} else
+	    unlink(fpath);
+	flog = 0;
+    }
+    setutmpmode(XINFO);
+}
+
+#define lockreturn(unmode, state) if(lockutmpmode(unmode, state)) return
+
+static void
+my_talk(userinfo_t * uin, int fri_stat)
+{
+    int             sock, msgsock, length, ch, error = 0;
+    struct sockaddr_in server;
+    pid_t           pid;
+    char            c;
+    char            genbuf[4];
+
+    unsigned char   mode0 = currutmp->mode;
+
+    ch = uin->mode;
+    strlcpy(currauthor, uin->userid, sizeof(currauthor));
+
+    if (ch == EDITING || ch == TALK || ch == CHATING || ch == PAGE ||
+	ch == MAILALL || ch == MONITOR || ch == M_FIVE || ch == CHC ||
+	(!ch && (uin->chatid[0] == 1 || uin->chatid[0] == 3)) ||
+	uin->lockmode == M_FIVE || uin->lockmode == CHC) {
+	outs("人家在忙啦");
+    } else if (!HAS_PERM(PERM_SYSOP) &&
+	       (((fri_stat & HRM) && !(fri_stat & HFM)) ||
+		((!uin->pager) && !(fri_stat & HFM)))) {
+	outs("對方關掉呼叫器了");
+    } else if (!HAS_PERM(PERM_SYSOP) &&
+	     (((fri_stat & HRM) && !(fri_stat & HFM)) || uin->pager == 2)) {
+	outs("對方拔掉呼叫器了");
+    } else if (!HAS_PERM(PERM_SYSOP) &&
+	       !(fri_stat & HFM) && uin->pager == 4) {
+	outs("對方只接受好友的呼叫");
+    } else if (!(pid = uin->pid) /* || (kill(pid, 0) == -1) */ ) {
+	//resetutmpent();
+	outs(msg_usr_left);
+    } else {
+	showplans(uin->userid);
+	getdata(2, 0, "要和他(她) (T)談天(F)下五子棋(P)鬥寵物"
+		"(C)下象棋(D)下暗棋(N)沒事找錯人了?[N] ", genbuf, 4, LCECHO);
+	switch (*genbuf) {
+	case 'y':
+	case 't':
+	    uin->sig = SIG_TALK;
+	    break;
+	case 'f':
+	    lockreturn(M_FIVE, LOCK_THIS);
+	    uin->sig = SIG_GOMO;
+	    break;
+	case 'c':
+	    lockreturn(CHC, LOCK_THIS);
+	    uin->sig = SIG_CHC;
+	    break;
+	case 'd':
+	    uin->sig = SIG_DARK;
+	    break;
+	case 'p':
+	    reload_chicken();
+	    getuser(uin->userid);
+	    if (uin->lockmode == CHICKEN || currutmp->lockmode == CHICKEN)
+		error = 1;
+	    if (!cuser.mychicken.name[0] || !xuser.mychicken.name[0])
+		error = 2;
+	    if (error) {
+		outmsg(error == 2 ? "並非兩人都養寵物" :
+		       "有一方的寵物正在使用中");
+		bell();
+		refresh();
+		sleep(1);
+		return;
+	    }
+	    uin->sig = SIG_PK;
+	    break;
+	default:
+	    return;
+	}
+
+	uin->turn = 1;
+	currutmp->turn = 0;
+	strlcpy(uin->mateid, currutmp->userid, sizeof(uin->mateid));
+	strlcpy(currutmp->mateid, uin->userid, sizeof(currutmp->mateid));
+
+	sock = socket(AF_INET, SOCK_STREAM, 0);
+	if (sock < 0) {
+	    perror("sock err");
+	    unlockutmpmode();
+	    return;
+	}
+	server.sin_family = PF_INET;
+	server.sin_addr.s_addr = INADDR_ANY;
+	server.sin_port = 0;
+	if (bind(sock, (struct sockaddr *) & server, sizeof(server)) < 0) {
+	    close(sock);
+	    perror("bind err");
+	    unlockutmpmode();
+	    return;
+	}
+	length = sizeof(server);
+	if (getsockname(sock, (struct sockaddr *) & server, (socklen_t *) & length) < 0) {
+	    close(sock);
+	    perror("sock name err");
+	    unlockutmpmode();
+	    return;
+	}
+	currutmp->sockactive = YEA;
+	currutmp->sockaddr = server.sin_port;
+	currutmp->destuid = uin->uid;
+	setutmpmode(PAGE);
+	uin->destuip = currutmp - &SHM->uinfo[0];
+	if (pid > 0)
+	    kill(pid, SIGUSR1);
+	clear();
+	prints("正呼叫 %s.....\n鍵入 Ctrl-D 中止....", uin->userid);
+
+	listen(sock, 1);
+	add_io(sock, 5);
+	while (1) {
+	    ch = igetch();
+	    if (ch == I_TIMEOUT) {
+		ch = uin->mode;
+		if (!ch && uin->chatid[0] == 1 &&
+		    uin->destuip == currutmp - &SHM->uinfo[0]) {
+		    bell();
+		    outmsg("對方回應中...");
+		    refresh();
+		} else if (ch == EDITING || ch == TALK || ch == CHATING ||
+			   ch == PAGE || ch == MAILALL || ch == MONITOR ||
+			   ch == M_FIVE || ch == CHC ||
+			   (!ch && (uin->chatid[0] == 1 ||
+				    uin->chatid[0] == 3))) {
+		    add_io(0, 0);
+		    close(sock);
+		    currutmp->sockactive = currutmp->destuid = 0;
+		    outmsg("人家在忙啦");
+		    pressanykey();
+		    unlockutmpmode();
+		    return;
+		} else {
+#ifdef linux
+		    add_io(sock, 20);	/* added for linux... achen */
+#endif
+		    move(0, 0);
+		    outs("再");
+		    bell();
+
+		    uin->destuip = currutmp - &SHM->uinfo[0];
+		    if (pid <= 0 || kill(pid, SIGUSR1) == -1) {
+#ifdef linux
+			add_io(sock, 20);	/* added 4 linux... achen */
+#endif
+			outmsg(msg_usr_left);
+			refresh();
+			pressanykey();
+			unlockutmpmode();
+			return;
+		    }
+		    continue;
+		}
+	    }
+	    if (ch == I_OTHERDATA)
+		break;
+
+	    if (ch == '\004') {
+		add_io(0, 0);
+		close(sock);
+		currutmp->sockactive = currutmp->destuid = 0;
+		unlockutmpmode();
+		return;
+	    }
+	}
+
+	msgsock = accept(sock, (struct sockaddr *) 0, (socklen_t *) 0);
+	if (msgsock == -1) {
+	    perror("accept");
+	    unlockutmpmode();
+	    return;
+	}
+	add_io(0, 0);
+	close(sock);
+	currutmp->sockactive = NA;
+	read(msgsock, &c, sizeof c);
+
+	if (c == 'y') {
+	    snprintf(save_page_requestor, sizeof(save_page_requestor),
+		     "%s (%s)", uin->userid, uin->username);
+	    /* gomo */
+	    switch (uin->sig) {
+	    case SIG_DARK:
+		main_dark(msgsock, uin);
+		break;
+	    case SIG_PK:
+		chickenpk(msgsock);
+		break;
+	    case SIG_GOMO:
+		gomoku(msgsock);
+		break;
+	    case SIG_CHC:
+		chc(msgsock);
+		break;
+	    case SIG_TALK:
+	    default:
+		do_talk(msgsock);
+	    }
+	} else {
+	    move(9, 9);
+	    outs("【回音】 ");
+	    switch (c) {
+	    case 'a':
+		outs("我現在很忙，請等一會兒再 call 我，好嗎？");
+		break;
+	    case 'b':
+		prints("對不起，我有事情不能跟你 %s....", sig_des[uin->sig]);
+		break;
+	    case 'd':
+		outs("我要離站囉..下次再聊吧..........");
+		break;
+	    case 'c':
+		outs("請不要吵我好嗎？");
+		break;
+	    case 'e':
+		outs("找我有事嗎？請先來信唷....");
+		break;
+	    case 'f':
+		{
+		    char            msgbuf[60];
+
+		    read(msgsock, msgbuf, 60);
+		    prints("對不起，我現在不能跟你 %s，因為\n", sig_des[uin->sig]);
+		    move(10, 18);
+		    outs(msgbuf);
+		}
+		break;
+	    case '1':
+		prints("%s？先拿100銀兩來..", sig_des[uin->sig]);
+		break;
+	    case '2':
+		prints("%s？先拿1000銀兩來..", sig_des[uin->sig]);
+		break;
+	    default:
+		prints("我現在不想 %s 啦.....:)", sig_des[uin->sig]);
+	    }
+	    close(msgsock);
+	}
+    }
+    currutmp->mode = mode0;
+    currutmp->destuid = 0;
+    unlockutmpmode();
+    pressanykey();
+}
+
+/* 選單式聊天介面 */
+#define US_PICKUP       1234
+#define US_RESORT       1233
+#define US_ACTION       1232
+#define US_REDRAW       1231
+
+static void
+t_showhelp()
+{
+    clear();
+
+    outs("\033[36m【 休閒聊天使用說明 】\033[m\n\n"
+	 "(←)(e)         結束離開             (h)             看使用說明\n"
+	 "(↑)/(↓)(n)    上下移動             (TAB)           切換排序方式\n"
+	 "(PgUp)(^B)      上頁選單             ( )(PgDn)(^F)   下頁選單\n"
+	 "(Hm)/($)(Ed)    首/尾                (S)             來源/好友描述/戰績 切換\n"
+	 "(m)             寄信                 (q/c)           查詢網友/寵物\n"
+	 "(r)             閱\讀信件             (l/C)           看上次熱訊/切換隱身\n"
+	 "(f)             全部/好友列表        (數字)          跳至該使用者\n"
+	 "(p)             切換呼叫器           (g/i)           給錢/切換心情\n"
+	 "(a/d/o)         好友 增加/刪除/修改  (/)(s)          網友ID/暱稱搜尋\n"
+	 "(N)             修改暱稱");
+
+    if (HAS_PERM(PERM_PAGE)) {
+	outs("\n\n\033[36m【 交談專用鍵 】\033[m\n"
+	     "(→)(t)(Enter)  跟他／她聊天\n"
+	     "(w)             熱線 Call in\n"
+	     "(^W)切換水球方式 一般 / 進階 / 未來\n"
+	     "(b)             對好友廣播 (一定要在好友列表中)\n"
+	     "(^R)            即時回應 (有人 Call in 你時)");
+    }
+    if (HAS_PERM(PERM_SYSOP)) {
+	outs("\n\n\033[36m【 站長專用鍵 】\033[m\n\n");
+	outs("(u)/(H)         設定使用者資料/切換隱形模式\n");
+	outs("(K)             把壞蛋踢出去\n");
+#if defined(SHOWBOARD) && defined(DEBUG)
+	outs("(Y)             顯示正在看什麼板\n");
+#endif
+    }
+    pressanykey();
+}
+
+/*
+ * static int listcuent(userinfo_t * uentp) { if((!uentp->invisible ||
+ * HAS_PERM(PERM_SYSOP) || HAS_PERM(PERM_SEECLOAK)))
+ * AddNameList(uentp->userid); return 0; }
+ * 
+ * static void creat_list() { CreateNameList(); apply_ulist(listcuent); }
+ */
+
+/* Kaede show friend description */
+static char    *
+friend_descript(userinfo_t * uentp)
+{
+    char    *space_buf = "";
+    static char     desc_buf[80];
+    char            fpath[80], name[IDLEN + 2], *desc, *ptr;
+    int             len, flag;
+    FILE           *fp;
+    char            genbuf[200];
+
+    if((set_friend_bit(currutmp,uentp)|IFH)==0)
+	return space_buf;
+
+    setuserfile(fpath, friend_file[0]);
+
+    if ((fp = fopen(fpath, "r"))) {
+	snprintf(name, sizeof(name), "%s ", uentp->userid);
+	len = strlen(name);
+	desc = genbuf + 13;
+
+	/* TODO maybe none linear search, or fread, or cache */
+	while ((flag = (int)fgets(genbuf, STRLEN, fp))) {
+	    if (!memcmp(genbuf, name, len)) {
+		if ((ptr = strchr(desc, '\n')))
+		    ptr[0] = '\0';
+		break;
+	    }
+	}
+	fclose(fp);
+	if (flag)
+	    strlcpy(desc_buf, desc, sizeof(desc_buf));
+	else
+	    return space_buf;
+
+	return desc_buf;
+    } else
+	return space_buf;
+}
+
+/* XXX 為什麼 diff 是 time_t */
+static char    *
+descript(int show_mode, userinfo_t * uentp, time_t diff)
+{
+    switch (show_mode) {
+	case 1:
+	return friend_descript(uentp);
+    case 0:
+	return (((uentp->pager != 2 && uentp->pager != 3 && diff) ||
+		 HAS_PERM(PERM_SYSOP)) ?
+#ifdef WHERE
+		uentp->from_alias ? SHM->replace[uentp->from_alias] :
+		uentp->from
+#else
+		uentp->from
+#endif
+		: "*");
+    case 2:
+	snprintf(description, sizeof(description),
+		 "%3d/%3d/%3d", uentp->five_win,
+		 uentp->five_lose, uentp->five_tie);
+	description[20] = 0;
+	return description;
+    case 3:
+	snprintf(description, sizeof(description),
+		 "%3d/%3d/%3d", uentp->chc_win,
+		 uentp->chc_lose, uentp->chc_tie);
+	description[20] = 0;
+	return description;
+    default:
+	syslog(LOG_WARNING, "damn!!! what's wrong?? show_mode = %d",
+	       show_mode);
+	return "";
+    }
+}
+
+/*
+ * userlist
+ * 
+ * 有別於其他大部份 bbs在實作使用者名單時, 都是將所有 online users 取一份到
+ * local space 中, 按照所須要的方式 sort 好 (如按照 userid , 五子棋, 來源等
+ * 等) . 這將造成大量的浪費: 為什麼每個人都要為了產生這一頁僅 20 個人的資料
+ * 而去 sort 其他一萬人的資料?
+ *
+ * 一般來說, 一份完整的使用者名單可以分成「好友區」和「非好友區」. 不同人的
+ * 「好友區」應該會長的不一樣, 不過「非好友區」應該是長的一樣的. 針對這項特
+ * 性, 兩區有不同的實作方式.
+ *
+ * + 好友區
+ *   好友區只有在排列方式為 [嗨! 朋友] 的時候「可能」會用到.
+ *   每個 process可以透過 currutmp->friend_online[]得到互相間有好友關係的資
+ *   料 (不包括板友, 板友是另外生出來的) 不過 friend_online[]是 unorder的.
+ *   所以須要先把所有的人拿出來, 重新 sort 一次.
+ *   好友區 (互相任一方有設好友+ 板友) 最多只會有 MAX_FRIENDS個
+ *   因為產生好友區的 cost 相當高, "能不產生就不要產生"
+ *
+ * + 非好友區
+ *   透過 shmctl utmpsortd , 定期 (通常一秒一次) 將全站的人按照各種不同的方
+ *   式 sort 好, 放置在 SHM->sorted中.
+ *
+ * 接下來, 我們每次只從確定的起始位置拿, 特別是除非有須要, 不然不會去產生好
+ * 友區. 
+ *
+ * 各個 function 摘要
+ * sort_cmpfriend()   sort function, key: friend type
+ * pickup_maxpages()  # pages of userlist
+ * pickup_myfriend()  產生好友區
+ * pickup_bfriend()   產生板友
+ * pickup()           產生某一頁使用者名單
+ * draw_pickup()      把畫面輸出
+ * userlist()         主函式, 負責呼叫 pickup()/draw_pickup() 以及按鍵處理
+ *
+ * SEE ALSO
+ *     include/pttstruct.h
+ *
+ * BUGS
+ *     搜尋的時候沒有辦法移到該人上面
+ *
+ * AUTHOR
+ *     in2 <in2@in2home.org>
+ */
+char    nPickups;
+
+static int
+sort_cmpfriend(const void *a, const void *b)
+{
+    if (((((pickup_t *) a)->friend) & ST_FRIEND) ==
+	((((pickup_t *) b)->friend) & ST_FRIEND))
+	return strcasecmp(((pickup_t *) a)->ui->userid,
+			  ((pickup_t *) b)->ui->userid);
+    else
+	return (((pickup_t *) b)->friend & ST_FRIEND) -
+	    (((pickup_t *) a)->friend & ST_FRIEND);
+}
+
+int
+pickup_maxpages(int pickupway, int nfriends)
+{
+    int             number;
+    if (cuser.uflag & FRIEND_FLAG)
+	number = nfriends;
+    else
+	number = SHM->UTMPnumber +
+	    (pickupway == 0 ? nfriends : 0);
+    return (number - 1) / nPickups + 1;
+}
+
+static int
+pickup_myfriend(pickup_t * friends,
+		int *myfriend, int *friendme, int *badfriend)
+{
+    userinfo_t     *uentp;
+    int             i, where, frstate, ngets = 0;
+
+    *badfriend = 0;
+    *myfriend = *friendme = 1;
+    for (i = 0; currutmp->friend_online[i] && i < MAX_FRIEND; ++i) {
+	where = currutmp->friend_online[i] & 0xFFFFFF;
+	if (0 <= where && where < MAX_ACTIVE &&
+	    (uentp = &SHM->uinfo[where]) && uentp->pid &&
+	    uentp != currutmp &&
+	    isvisible_stat(currutmp, uentp,
+			   frstate =
+			   currutmp->friend_online[i] >> 24)){
+	    if( frstate & IRH )
+		++*badfriend;
+	    if( !(frstate & IRH) || ((frstate & IRH) && (frstate & IFH)) ){
+		friends[ngets].ui = uentp;
+		friends[ngets].uoffset = where;
+		friends[ngets++].friend = frstate;
+		if (frstate & IFH)
+		    ++* myfriend;
+		if (frstate & HFM)
+		    ++* friendme;
+	    }
+	}
+    }
+    /* 把自己加入好友區 */
+    friends[ngets].ui = currutmp;
+    friends[ngets++].friend = (IFH | HFM);
+    return ngets;
+}
+
+static int
+pickup_bfriend(pickup_t * friends, int base)
+{
+    userinfo_t     *uentp;
+    int             i, ngets = 0;
+    int             currsorted = SHM->currsorted, number = SHM->UTMPnumber;
+    friends = friends + base;
+    for (i = 0; i < number && ngets < MAX_FRIEND - base; ++i) {
+	uentp = SHM->sorted[currsorted][0][i];
+	if (uentp && uentp->pid && uentp->brc_id == currutmp->brc_id &&
+	    currutmp != uentp && isvisible(currutmp, uentp) &&
+	    (base || !(friend_stat(currutmp, uentp) & (IFH | HFM)))) {
+	    friends[ngets].ui = uentp;
+	    friends[ngets++].friend = IBH;
+	}
+    }
+    return ngets;
+}
+
+static void
+pickup(pickup_t * currpickup, int pickup_way, int *page,
+       int *nfriend, int *myfriend, int *friendme, int *bfriend, int *badfriend)
+{
+    /* avoid race condition */
+    int             currsorted = SHM->currsorted;
+    int             utmpnumber = SHM->UTMPnumber;
+    int             friendtotal = currutmp->friendtotal;
+
+    userinfo_t    **utmp;
+    int             which, sorted_way, size = 0, friend;
+
+    if (friendtotal == 0)
+	*myfriend = *friendme = 1;
+
+    /* 產生好友區 */
+    which = *page * nPickups;
+    if( (cuser.uflag & FRIEND_FLAG) || /* 只顯示好友模式 */
+	((pickup_way == 0) &&          /* [嗨! 朋友] mode */
+	 (
+	  /* 含板友, 好友區最多只會有 (friendtotal + 板友) 個*/
+	  (currutmp->brc_id && which < (friendtotal + 1 +
+					bcache[currutmp->brc_id-1].nuser)) ||
+	  
+	  /* 不含板友, 最多只會有 friendtotal個 */
+	  (!currutmp->brc_id && which < friendtotal + 1)
+	  ))) {
+	pickup_t        friends[MAX_FRIEND];
+
+	*nfriend = pickup_myfriend(friends, myfriend, friendme, badfriend);
+
+	if (pickup_way == 0 && currutmp->brc_id != 0)
+	    *bfriend = pickup_bfriend(friends, *nfriend);
+	else
+	    *bfriend = 0;
+	*nfriend += *bfriend;
+	if (*nfriend > which) {
+	    /* 只有在要秀出才有必要 sort */
+	    qsort(friends, *nfriend, sizeof(pickup_t), sort_cmpfriend);
+	    size = *nfriend - which;
+	    if (size > nPickups)
+		size = nPickups;
+	    memcpy(currpickup, friends + which, sizeof(pickup_t) * size);
+	}
+    } else
+	*nfriend = 0;
+
+    if (!(cuser.uflag & FRIEND_FLAG) && size < nPickups) {
+	sorted_way = ((pickup_way == 0) ? 0 : (pickup_way - 1));
+	utmp = SHM->sorted[currsorted][sorted_way];
+	which = *page * nPickups - *nfriend;
+	if (which < 0)
+	    which = 0;
+	for (; which < utmpnumber && size < nPickups; which++) {
+	    friend = friend_stat(currutmp, utmp[which]);
+	    if ((pickup_way ||
+		 (currutmp != utmp[which] && !(friend & ST_FRIEND))) &&
+		isvisible(currutmp, utmp[which])) {
+		currpickup[size].ui = utmp[which];
+		currpickup[size++].friend = friend;
+	    }
+	}
+    }
+
+    for (; size < nPickups; ++size)
+	currpickup[size].ui = 0;
+}
+
+static void
+draw_pickup(int drawall, pickup_t * pickup, int pickup_way,
+	    int page, int show_mode, int show_uid, int show_board,
+	    int show_pid, int myfriend, int friendme, int bfriend, int badfriend)
+{
+    char           *msg_pickup_way[PICKUP_WAYS] = {
+	"嗨! 朋友", "網友代號", "網友動態", "發呆時間", "來自何方", " 五子棋 ", "  象棋  "
+    };
+    char           *MODE_STRING[MAX_SHOW_MODE] = {
+	"故鄉", "好友描述", "五子棋戰績", "象棋戰績"
+    };
+    char            pagerchar[5] = "* -Wf";
+
+    userinfo_t     *uentp;
+    int             i, ch, state, friend;
+    char            mind[5];
+#ifdef SHOW_IDLE_TIME
+    char            idlestr[32];
+    int             idletime;
+#endif
+
+    if (drawall) {
+	showtitle((cuser.uflag & FRIEND_FLAG) ? "好友列表" : "休閒聊天",
+		  BBSName);
+	prints("\n"
+	       "\033[7m  %s P%c代號         %-17s%-17s%-13s%-10s\033[m\n",
+	       show_uid ? "UID" : "No.",
+	       (HAS_PERM(PERM_SEECLOAK) || HAS_PERM(PERM_SYSOP)) ? 'C' : ' ',
+	       "暱稱",
+	       MODE_STRING[show_mode],
+	       show_board ? "Board" : "動態",
+	       show_pid ? "       PID" : "備註  發呆"
+	    );
+	move(b_lines, 0);
+	outs("\033[31;47m(TAB/f)\033[30m排序/好友 \033[31m(t)\033[30m聊天 "
+	     "\033[31m(a/d/o)\033[30m交友 \033[31m(q)\033[30m查詢 "
+	     "\033[31m(w)\033[30m水球 \033[31m(m)\033[30m寄信 \033[31m(h)"
+	     "\033[30m線上輔助 \033[m");
+    }
+    move(1, 0);
+    prints("  排序：[%s] 上站人數：%-4d\033[1;32m我的朋友：%-3d"
+	   "\033[33m與我為友：%-3d\033[36m板友：%-4d\033[31m壞人："
+	   "%-2d\033[m\n",
+	   msg_pickup_way[pickup_way], SHM->UTMPnumber,
+	   myfriend, friendme, currutmp->brc_id ? (bfriend + 1) : 0, badfriend);
+
+    for (i = 0, ch = page * nPickups + 1; i < nPickups; ++i, ++ch) {
+	move(i + 3, 0);
+	prints("a");
+	move(i + 3, 0);
+	uentp = pickup[i].ui;
+	friend = pickup[i].friend;
+	if (uentp == NULL) {
+	    prints("\n");
+	    continue;
+	}
+	if (!uentp->pid) {
+	    prints("%5d   < 離站中..>\n", ch);
+	    continue;
+	}
+	if (PERM_HIDE(uentp))
+	    state = 9;
+	else if (currutmp == uentp)
+	    state = 10;
+	else if (friend & IRH && !(friend & IFH))
+	    state = 8;
+	else
+	    state = (friend & ST_FRIEND) >> 2;
+
+#ifdef SHOW_IDLE_TIME
+	idletime = (now - uentp->lastact);
+	if (idletime > 86400)
+	    strlcpy(idlestr, " -----", sizeof(idlestr));
+	else if (idletime >= 3600)
+	    snprintf(idlestr, sizeof(idlestr), "%3dh%02d",
+		     idletime / 3600, (idletime / 60) % 60);
+	else if (idletime > 0)
+	    snprintf(idlestr, sizeof(idlestr), "%3d'%02d",
+		     idletime / 60, idletime % 60);
+	else
+	    strlcpy(idlestr, "      ", sizeof(idlestr));
+#endif
+
+	if ((uentp->userlevel & PERM_VIOLATELAW))
+	    memcpy(mind, "通緝", 4);
+	else if (uentp->birth)
+	    memcpy(mind, "壽星", 4);
+	else
+	    memcpy(mind, uentp->mind, 4);
+	mind[4] = 0;
+	prints("%5d %c%c%s%-13s%-17.16s\033[m%-17.16s%-13.13s"
+	       "\33[33m%-4.4s\33[m%s\n",
+
+	/* list number or uid */
+#ifdef SHOWUID
+	       show_uid ? uentp->uid :
+#endif
+	       ch,
+
+	/* super friend or pager */
+	       (friend & HRM) ? 'X' : pagerchar[uentp->pager % 5],
+
+	/* visibility */
+	       (uentp->invisible ? ')' : ' '),
+
+	/* color of userid, userid */
+	       fcolor[state], uentp->userid,
+
+	/* nickname */
+	       uentp->username,
+
+	/* from */
+	       descript(show_mode, uentp,
+			uentp->pager & !(friend & HRM)),
+
+	/* board or mode */
+#if defined(SHOWBOARD) && defined(DEBUG)
+	       show_board ? (uentp->brc_id == 0 ? "" :
+			     bcache[uentp->brc_id - 1].brdname) :
+#endif
+	/* %-13.13s */
+	       modestring(uentp, 0),
+
+	/* memo */
+	       mind,
+
+	/* idle */
+#ifdef SHOW_IDLE_TIME
+	       idlestr
+#else
+	       ""
+#endif
+	    );
+
+	refresh();
+    }
+}
+
+int
+call_in(userinfo_t * uentp, int fri_stat)
+{
+    if (iswritable_stat(uentp, fri_stat)) {
+	char            genbuf[60];
+	snprintf(genbuf, sizeof(genbuf), "Call-In %s ：", uentp->userid);
+	my_write(uentp->pid, genbuf, uentp->userid, 0, NULL);
+	return 1;
+    }
+    return 0;
+}
+
+inline static void
+userlist(void)
+{
+    pickup_t       *currpickup;
+    userinfo_t     *uentp;
+    static char     show_mode = 0;
+    static char     show_uid = 0;
+    static char     show_board = 0;
+    static char     show_pid = 0;
+    char            genbuf[256], skippickup = 0, redraw, redrawall;
+    int             page, offset, pickup_way, ch, leave, fri_stat;
+    int             nfriend, myfriend, friendme, bfriend, badfriend, i;
+    time_t          lastupdate;
+
+    nPickups = b_lines - 3;
+    currpickup = (pickup_t *)malloc(sizeof(pickup_t) * nPickups);
+    page = offset = 0;
+    pickup_way = 0;
+    leave = 0;
+    redrawall = 1;
+    /*
+     * 各個 flag :
+     * redraw:    重新 pickup(), draw_pickup() (僅中間區, 不含標題列等等)
+     * redrawall: 全部重畫 (含標題列等等, 須再指定 redraw 才會有效)
+     * leave:     離開使用者名單
+     */
+    while (!leave) {
+	if( !skippickup )
+	    pickup(currpickup, pickup_way, &page,
+		   &nfriend, &myfriend, &friendme, &bfriend, &badfriend);
+	draw_pickup(redrawall, currpickup, pickup_way, page,
+		    show_mode, show_uid, show_board, show_pid,
+		    myfriend, friendme, bfriend, badfriend);
+
+	/*
+	 * 如果因為換頁的時候, 這一頁有的人數比較少,
+	 * (通常都是最後一頁人數不滿的時候) 那要重新計算 offset
+	 * 以免指到沒有人的地方
+	 */
+	if (offset == -1 || currpickup[offset].ui == NULL) {
+	    for (offset = (offset == -1 ? nPickups - 1 : offset);
+		 offset >= 0; --offset)
+		if (currpickup[offset].ui != NULL)
+		    break;
+	    if (offset == -1) {
+		if (--page < 0)
+		    page = pickup_maxpages(pickup_way, nfriend) - 1;
+		offset = 0;
+		continue;
+	    }
+	}
+	skippickup = redraw = redrawall = 0;
+	lastupdate = now;
+	while (!redraw) {
+	    ch = cursor_key(offset + 3, 0);
+	    uentp = currpickup[offset].ui;
+	    fri_stat = currpickup[offset].friend;
+
+	    if (ch == KEY_RIGHT || ch == '\n' || ch == '\r')
+		ch = 't';
+
+	    switch (ch) {
+	    case KEY_LEFT:
+	    case 'e':
+	    case 'E':
+		redraw = leave = 1;
+		break;
+
+	    case KEY_TAB:
+		pickup_way = (pickup_way + 1) % PICKUP_WAYS;
+		redraw = 1;
+		redrawall = 1;
+		break;
+
+	    case KEY_DOWN:
+	    case 'n':
+	    case 'j':
+		if (++offset == nPickups || currpickup[offset].ui == NULL) {
+		    redraw = 1;
+		    if (++page >= pickup_maxpages(pickup_way,
+						  nfriend))
+			offset = page = 0;
+		    else
+			offset = 0;
+		}
+		break;
+
+	    case '0':
+	    case KEY_HOME:
+		page = offset = 0;
+		redraw = 1;
+		break;
+
+	    case 'H':
+		if (HAS_PERM(PERM_SYSOP)) {
+		    currutmp->userlevel ^= PERM_DENYPOST;
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'D':
+		if (HAS_PERM(PERM_SYSOP)) {
+		    char            buf[100];
+		    snprintf(buf, sizeof(buf),
+			     "代號 [%s]：", currutmp->userid);
+		    if (!getdata(1, 0, buf, currutmp->userid,
+				 sizeof(buf), DOECHO))
+			strlcpy(currutmp->userid, cuser.userid, sizeof(currutmp->userid));
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'F':
+		if (HAS_PERM(PERM_SYSOP)) {
+		    char            buf[100];
+
+		    snprintf(buf, sizeof(buf), "故鄉 [%s]：", currutmp->from);
+		    if (!getdata(1, 0, buf, currutmp->from,
+				 sizeof(currutmp->from), DOECHO))
+			strncpy(currutmp->from, buf, 23);
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'C':
+#if !HAVE_FREECLOAK
+		if (HAS_PERM(PERM_CLOAK))
+#endif
+		{
+		    currutmp->invisible ^= 1;
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case ' ':
+	    case KEY_PGDN:
+	    case Ctrl('F'):{
+		    int             newpage;
+		    if ((newpage = page + 1) >= pickup_maxpages(pickup_way,
+								nfriend))
+			newpage = offset = 0;
+		    if (newpage != page) {
+			page = newpage;
+			redraw = 1;
+		    } else if (now >= lastupdate + 2)
+			redrawall = redraw = 1;
+		}
+		break;
+
+	    case KEY_UP:
+	    case 'k':
+		if (--offset == -1) {
+		    offset = nPickups - 1;
+		    if (--page == -1)
+			page = pickup_maxpages(pickup_way, nfriend)
+			    - 1;
+		    redraw = 1;
+		}
+		break;
+
+	    case KEY_PGUP:
+	    case Ctrl('B'):
+	    case 'P':
+		if (--page == -1)
+		    page = pickup_maxpages(pickup_way, nfriend) - 1;
+		offset = 0;
+		redraw = 1;
+		break;
+
+	    case KEY_END:
+	    case '$':
+		page = pickup_maxpages(pickup_way, nfriend) - 1;
+		offset = -1;
+		redraw = 1;
+		break;
+
+	    case '/':
+		/*
+		 * getdata_buf(b_lines-1,0,"請輸入暱稱關鍵字:", keyword,
+		 * sizeof(keyword), DOECHO); state = US_PICKUP;
+		 */
+		break;
+
+	    case 's':
+		if (!(cuser.uflag & FRIEND_FLAG)) {
+		    int             si;	/* utmpshm->sorted[X][0][si] */
+		    int             fi;	/* allpickuplist[fi] */
+		    char            swid[IDLEN + 1];
+		    move(1, 0);
+		    si = generalnamecomplete(msg_uid, swid,
+					     sizeof(swid), SHM->UTMPnumber,
+					     completeutmp_compar,
+					     completeutmp_permission,
+					     completeutmp_getname);
+		    if (si >= 0) {
+			pickup_t        friends[MAX_FRIEND + 1];
+			int             nGots, i;
+			userinfo_t **utmp =
+			    SHM->sorted[SHM->currsorted]
+			    [((pickup_way == 0) ? 0 : (pickup_way - 1))];
+			
+			fi = utmp[si] - &SHM->uinfo[0];
+
+			nGots = pickup_myfriend(friends, &myfriend,
+						&friendme, &badfriend);
+			for (i = 0; i < nGots; ++i)
+			    if (friends[i].uoffset == fi)
+				break;
+
+			fi = 0;
+			offset = 0;
+			if( i != nGots ){
+			    page = i / nPickups;
+			    for( ; i < nGots && fi < nPickups ; ++i )
+				if( isvisible(currutmp, friends[i].ui) )
+				    currpickup[fi++] = friends[i];
+			    i = 0;
+			}
+			else{
+			    page = (si + nGots) / nPickups;
+			    i = si;
+			}
+
+			for( ; fi < nPickups && i < SHM->UTMPnumber ; ++i )
+			    if( isvisible(currutmp, utmp[i]) ){
+				currpickup[fi].ui = utmp[i];
+				currpickup[fi++].friend = 0;
+			    }
+			skippickup = 1;
+		    }
+		    redrawall = redraw = 1;
+		}
+		/*
+		 * if ((i = search_pickup(num, actor, pklist)) >= 0) num = i;
+		 * state = US_ACTION;
+		 */
+		break;
+
+	    case '1':
+	    case '2':
+	    case '3':
+	    case '4':
+	    case '5':
+	    case '6':
+	    case '7':
+	    case '8':
+	    case '9':
+		{		/* Thor: 可以打數字跳到該人 */
+		    int             tmp;
+		    if ((tmp = search_num(ch, SHM->UTMPnumber)) >= 0) {
+			if (tmp / nPickups == page) {
+			    /*
+			     * in2:目的在目前這一頁, 直接 更新 offset ,
+			     * 不用重畫畫面
+			     */
+			    offset = tmp % nPickups;
+			} else {
+			    page = tmp / nPickups;
+			    offset = tmp % nPickups;
+			}
+			redrawall = redraw = 1;
+		    }
+		}
+		break;
+
+#ifdef SHOWUID
+	    case 'U':
+		if (HAS_PERM(PERM_SYSOP)) {
+		    show_uid ^= 1;
+		    redrawall = redraw = 1;
+		}
+		break;
+#endif
+#if defined(SHOWBOARD) && defined(DEBUG)
+	    case 'Y':
+		if (HAS_PERM(PERM_SYSOP)) {
+		    show_board ^= 1;
+		    redrawall = redraw = 1;
+		}
+		break;
+#endif
+#ifdef  SHOWPID
+	    case '#':
+		if (HAS_PERM(PERM_SYSOP)) {
+		    show_pid ^= 1;
+		    redrawall = redraw = 1;
+		}
+		break;
+#endif
+
+	    case 'b':		/* broadcast */
+		if (cuser.uflag & FRIEND_FLAG || HAS_PERM(PERM_SYSOP)) {
+		    char            ans[4];
+
+		    if (!getdata(0, 0, "廣播訊息:", genbuf, 60, DOECHO))
+			break;
+		    if (getdata(0, 0, "確定廣播? [Y]",
+				ans, sizeof(ans), LCECHO) &&
+			*ans == 'n')
+			break;
+		    if (!(cuser.uflag & FRIEND_FLAG) && HAS_PERM(PERM_SYSOP)) {
+			getdata(1, 0, "再次確定站長廣播? [N]",
+				ans, sizeof(ans), LCECHO);
+			if( *ans != 'y' && *ans != 'Y' ){
+			    vmsg("abort");
+			    break;
+			}
+			for (i = 0; i < SHM->UTMPnumber; ++i) {
+			    uentp = SHM->sorted[SHM->currsorted][0][i];
+			    if (uentp->pid && kill(uentp->pid, 0) != -1)
+				my_write(uentp->pid, genbuf,
+					 uentp->userid, 1, NULL);
+			    if (i % 100 == 0)
+				sleep(1);
+			}
+		    } else {
+			userinfo_t     *uentp;
+			int             where, frstate;
+			for (i = 0; currutmp->friend_online[i] &&
+			     i < MAX_FRIEND; ++i) {
+			    where = currutmp->friend_online[i] & 0xFFFFFF;
+			    if (0 <= where && where < MAX_ACTIVE &&
+				(uentp = &SHM->uinfo[where]) &&
+				uentp->pid &&
+				isvisible_stat(currutmp, uentp,
+					       frstate =
+					   currutmp->friend_online[i] >> 24)
+				&& kill(uentp->pid, 0) != -1 &&
+				uentp->pager != 3 &&
+				(uentp->pager != 4 || frstate & HFM) &&
+				!(frstate & IRH)) {
+				my_write(uentp->pid, genbuf,
+					 uentp->userid, 1, NULL);
+			    }
+			}
+		    }
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'S':		/* 顯示好友描述 */
+		show_mode = (show_mode+1) % MAX_SHOW_MODE;
+		redrawall = redraw = 1;
+		break;
+
+	    case 'u':		/* 線上修改資料 */
+		if (HAS_PERM(PERM_ACCOUNTS)) {
+		    int             id;
+		    userec_t        muser;
+		    strlcpy(currauthor, uentp->userid, sizeof(currauthor));
+		    stand_title("使用者設定");
+		    move(1, 0);
+		    if ((id = getuser(uentp->userid)) > 0) {
+			memcpy(&muser, &xuser, sizeof(muser));
+			user_display(&muser, 1);
+			uinfo_query(&muser, 1, id);
+		    }
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'i':{
+		    char            mindbuf[5];
+		    getdata(b_lines - 1, 0, "現在的心情? ",
+			    mindbuf, sizeof(mindbuf), DOECHO);
+		    if (strcmp(mindbuf, "通緝") == 0)
+			vmsg("不可以把自己設通緝啦!");
+		    else if (strcmp(mindbuf, "壽星") == 0)
+			vmsg("你不是今天生日欸!");
+		    else
+			memcpy(currutmp->mind, mindbuf, 4);
+		}
+		redrawall = redraw = 1;
+		break;
+
+	    case Ctrl('S'):
+		break;
+
+	    case 't':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    if (uentp->pid != currpid &&
+			strcmp(uentp->userid, cuser.userid) != 0) {
+			move(1, 0);
+			clrtobot();
+			move(3, 0);
+			my_talk(uentp, fri_stat);
+			redrawall = redraw = 1;
+		    }
+		}
+		break;
+	    case 'K':
+		if (HAS_PERM(PERM_ACCOUNTS)) {
+		    my_kick(uentp);
+		    redrawall = redraw = 1;
+		}
+		break;
+	    case 'w':
+		if (call_in(uentp, fri_stat))
+		    redrawall = redraw = 1;
+		break;
+	    case 'a':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    friend_add(uentp->userid, FRIEND_OVERRIDE,uentp->username);
+		    friend_load();
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'd':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    friend_delete(uentp->userid, FRIEND_OVERRIDE);
+		    friend_load();
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'o':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    t_override();
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'f':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    cuser.uflag ^= FRIEND_FLAG;
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'g':
+		if (HAS_PERM(PERM_LOGINOK) &&
+		    strcmp(uentp->userid, cuser.userid) != 0) {
+		    move(b_lines - 2, 0);
+		    snprintf(genbuf, sizeof(genbuf),
+			     "要給 %s 多少錢呢?  ", uentp->userid);
+		    outs(genbuf);
+		    if (getdata(b_lines - 1, 0, "[銀行轉帳]: ",
+				genbuf, 7, LCECHO)) {
+			clrtoeol();
+			if ((ch = atoi(genbuf)) <= 0 || ch <= give_tax(ch))
+			    break;
+			reload_money();
+
+			if (ch > cuser.money) {
+			    outs("\033[41m 現金不足~~\033[m");
+			} else {
+			    deumoney(uentp->uid, ch - give_tax(ch));
+			    snprintf(genbuf, sizeof(genbuf),
+				     "\033[44m 嗯..還剩下 %d 錢.."
+				     "\033[m", demoney(-ch));
+			    outs(genbuf);
+			    snprintf(genbuf, sizeof(genbuf),
+				     "%s\t給%s\t%d\t%s", cuser.userid,
+				     uentp->userid, ch,
+				     ctime(&currutmp->lastact));
+			    log_file(FN_MONEY, genbuf);
+			    mail_redenvelop(cuser.userid, uentp->userid,
+					    ch - give_tax(ch), 'Y');
+			}
+		    } else {
+			clrtoeol();
+			outs("\033[41m 交易取消! \033[m");
+		    }
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'm':
+		if (HAS_PERM(PERM_BASIC)) {
+		    stand_title("寄  信");
+		    prints("[寄信] 收信人：%s", uentp->userid);
+		    my_send(uentp->userid);
+		    setutmpmode(LUSERS);
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'q':
+		strlcpy(currauthor, uentp->userid, sizeof(currauthor));
+		my_query(uentp->userid);
+		setutmpmode(LUSERS);
+		redrawall = redraw = 1;
+		break;
+
+	    case 'c':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    chicken_query(uentp->userid);
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'l':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    t_display();
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'h':
+		t_showhelp();
+		redrawall = redraw = 1;
+		break;
+
+	    case 'p':
+		if (HAS_PERM(PERM_BASIC)) {
+		    t_pager();
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case Ctrl('W'):
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    int             tmp;
+		    char           *wm[3] = {"一般", "進階", "未來"};
+		    tmp = cuser.uflag2 & WATER_MASK;
+		    cuser.uflag2 -= tmp;
+		    tmp = (tmp + 1) % 3;
+		    cuser.uflag2 |= tmp;
+		    move(4, 0);
+		    prints("系統提供 一般 進階 未來 三種模式\n"
+			   "在切換後請正常下線再重新登入, 以確保結構正確\n"
+			   "目前切換到 %s 水球模式\n", wm[tmp]);
+		    refresh();
+		    sleep(2);
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'r':
+		if (HAS_PERM(PERM_LOGINOK)) {
+		    m_read();
+		    setutmpmode(LUSERS);
+		    redrawall = redraw = 1;
+		}
+		break;
+
+	    case 'N':
+		oldgetdata(1, 0, "新的暱稱: ",
+			cuser.username, sizeof(cuser.username), DOECHO);
+		strcpy(currutmp->username, cuser.username);
+		redrawall = redraw = 1;
+		break;
+
+	    default:
+		if (now >= lastupdate + 2)
+		    redraw = 1;
+	    }
+	}
+    }
+    free(currpickup);
+}
+
+int
+t_users(void)
+{
+    int             destuid0 = currutmp->destuid;
+    int             mode0 = currutmp->mode;
+    int             stat0 = currstat;
+
+    if( cuser.userid[0] != currutmp->userid[0] ){
+	if( HAS_PERM(PERM_SYSOP) )
+	    vmsg("warning: currutmp userid is changed");
+	else
+	    abort_bbs(0);
+    }
+    setutmpmode(LUSERS);
+    userlist();
+    currutmp->mode = mode0;
+    currutmp->destuid = destuid0;
+    currstat = stat0;
+    return 0;
+}
+
+int
+t_pager(void)
+{
+    currutmp->pager = (currutmp->pager + 1) % 5;
+    return 0;
+}
+
+int
+t_idle(void)
+{
+    int             destuid0 = currutmp->destuid;
+    int             mode0 = currutmp->mode;
+    int             stat0 = currstat;
+    char            genbuf[20];
+    char            buf[80], passbuf[PASSLEN];
+
+    setutmpmode(IDLE);
+    getdata(b_lines - 1, 0, "理由：[0]發呆 (1)接電話 (2)覓食 (3)打瞌睡 "
+	    "(4)裝死 (5)羅丹 (6)其他 (Q)沒事？", genbuf, 3, DOECHO);
+    if (genbuf[0] == 'q' || genbuf[0] == 'Q') {
+	currutmp->mode = mode0;
+	currstat = stat0;
+	return 0;
+    } else if (genbuf[0] >= '1' && genbuf[0] <= '6')
+	currutmp->destuid = genbuf[0] - '0';
+    else
+	currutmp->destuid = 0;
+
+    if (currutmp->destuid == 6)
+	if (!cuser.userlevel ||
+	    !getdata(b_lines - 1, 0, "發呆的理由：",
+		     currutmp->chatid, sizeof(currutmp->chatid), DOECHO))
+	    currutmp->destuid = 0;
+    do {
+	move(b_lines - 2, 0);
+	clrtoeol();
+	snprintf(buf, sizeof(buf),
+		 "(鎖定螢幕)發呆原因: %s", (currutmp->destuid != 6) ?
+		 IdleTypeTable[currutmp->destuid] : currutmp->chatid);
+	outs(buf);
+	refresh();
+	getdata(b_lines - 1, 0, MSG_PASSWD, passbuf, sizeof(passbuf), NOECHO);
+	passbuf[8] = '\0';
+    }
+    while (!checkpasswd(cuser.passwd, passbuf) &&
+	   strcmp(STR_GUEST, cuser.userid));
+
+    currutmp->mode = mode0;
+    currutmp->destuid = destuid0;
+    currstat = stat0;
+
+    return 0;
+}
+
+int
+t_qchicken(void)
+{
+    char            uident[STRLEN];
+
+    stand_title("查詢寵物");
+    usercomplete(msg_uid, uident);
+    if (uident[0])
+	chicken_query(uident);
+    return 0;
+}
+
+int
+t_query(void)
+{
+    char            uident[STRLEN];
+
+    stand_title("查詢網友");
+    usercomplete(msg_uid, uident);
+    if (uident[0])
+	my_query(uident);
+    return 0;
+}
+
+int
+t_talk()
+{
+    char            uident[16];
+    int             tuid, unum, ucount;
+    userinfo_t     *uentp;
+    char            genbuf[4];
+    /*
+     * if (count_ulist() <= 1){ outs("目前線上只有您一人，快邀請朋友來光臨【"
+     * BBSNAME "】吧！"); return XEASY; }
+     */
+    stand_title("打開話匣子");
+    generalnamecomplete(msg_uid, uident, sizeof(uident),
+			SHM->UTMPnumber,
+			completeutmp_compar,
+			completeutmp_permission,
+			completeutmp_getname);
+    if (uident[0] == '\0')
+	return 0;
+
+    move(3, 0);
+    if (!(tuid = searchuser(uident)) || tuid == usernum) {
+	outs(err_uid);
+	pressanykey();
+	return 0;
+    }
+    /* multi-login check */
+    unum = 1;
+    while ((ucount = count_logins(tuid, 0)) > 1) {
+	outs("(0) 不想 talk 了...\n");
+	count_logins(tuid, 1);
+	getdata(1, 33, "請選擇一個聊天對象 [0]：", genbuf, 4, DOECHO);
+	unum = atoi(genbuf);
+	if (unum == 0)
+	    return 0;
+	move(3, 0);
+	clrtobot();
+	if (unum > 0 && unum <= ucount)
+	    break;
+    }
+
+    if ((uentp = (userinfo_t *) search_ulistn(tuid, unum)))
+	my_talk(uentp, friend_stat(currutmp, uentp));
+
+    return 0;
+}
+
+/* 有人來串門子了，回應呼叫器 */
+static userinfo_t *uip;
+void
+talkreply(void)
+{
+    struct hostent *h;
+    char            buf[4];
+    struct sockaddr_in sin;
+    char            genbuf[200];
+    int             a, sig = currutmp->sig;
+
+    talkrequest = NA;
+    uip = &SHM->uinfo[currutmp->destuip];
+    snprintf(page_requestor, sizeof(page_requestor),
+	     "%s (%s)", uip->userid, uip->username);
+    currutmp->destuid = uip->uid;
+    currstat = REPLY;		/* 避免出現動畫 */
+
+    clear();
+
+    prints("\n\n");
+    prints("       (Y) 讓我們 %s 吧！"
+	   "     (A) 我現在很忙，請等一會兒再 call 我\n", sig_des[sig]);
+    prints("       (N) 我現在不想 %s"
+	   "      (B) 對不起，我有事情不能跟你 %s\n",
+	   sig_des[sig], sig_des[sig]);
+    prints("       (C) 請不要吵我好嗎？"
+	   "     (D) 我要離站囉..下次再聊吧.......\n");
+    prints("       (E) 有事嗎？請先來信"
+	   "     (F) \033[1;33m我自己輸入理由好了...\033[m\n");
+    prints("       (1) %s？先拿100銀兩來"
+	   "  (2) %s？先拿1000銀兩來..\n\n", sig_des[sig], sig_des[sig]);
+
+    getuser(uip->userid);
+    currutmp->msgs[0].pid = uip->pid;
+    strlcpy(currutmp->msgs[0].userid, uip->userid, sizeof(currutmp->msgs[0].userid));
+    strlcpy(currutmp->msgs[0].last_call_in, "呼叫、呼叫，聽到請回答 (Ctrl-R)",
+	    sizeof(currutmp->msgs[0].last_call_in));
+    prints("對方來自 [%s]，共上站 %d 次，文章 %d 篇\n",
+	   uip->from, xuser.numlogins, xuser.numposts);
+    showplans(uip->userid);
+    show_call_in(0, 0);
+
+    snprintf(genbuf, sizeof(genbuf),
+	     "你想跟 %s %s啊？請選擇(Y/N/A/B/C/D/E/F/1/2)[N] ",
+	     page_requestor, sig_des[sig]);
+    getdata(0, 0, genbuf, buf, sizeof(buf), LCECHO);
+
+    if (uip->mode != PAGE) {
+	snprintf(genbuf, sizeof(genbuf),
+		 "%s已停止呼叫，按Enter繼續...", page_requestor);
+	getdata(0, 0, genbuf, buf, sizeof(buf), LCECHO);
+	return;
+    }
+    currutmp->msgcount = 0;
+    strlcpy(save_page_requestor, page_requestor, sizeof(save_page_requestor));
+    memset(page_requestor, 0, sizeof(page_requestor));
+    if (!(h = gethostbyname("localhost"))) {
+	perror("gethostbyname");
+	return;
+    }
+    memset(&sin, 0, sizeof(sin));
+    sin.sin_family = h->h_addrtype;
+    memcpy(&sin.sin_addr, h->h_addr, h->h_length);
+    sin.sin_port = uip->sockaddr;
+    a = socket(sin.sin_family, SOCK_STREAM, 0);
+    if ((connect(a, (struct sockaddr *) & sin, sizeof(sin)))) {
+	perror("connect err");
+	return;
+    }
+    if (!buf[0] || !strchr("yabcdef12", buf[0]))
+	buf[0] = 'n';
+    write(a, buf, 1);
+    if (buf[0] == 'f' || buf[0] == 'F') {
+	if (!getdata(b_lines, 0, "不能的原因：", genbuf, 60, DOECHO))
+	    strlcpy(genbuf, "不告訴你咧 !! ^o^", sizeof(genbuf));
+	write(a, genbuf, 60);
+    }
+    uip->destuip = currutmp - &SHM->uinfo[0];
+    if (buf[0] == 'y')
+	switch (sig) {
+	case SIG_DARK:
+	    main_dark(a, uip);
+	    break;
+	case SIG_PK:
+	    chickenpk(a);
+	    break;
+	case SIG_GOMO:
+	    gomoku(a);
+	    break;
+	case SIG_CHC:
+	    chc(a);
+	    break;
+	case SIG_TALK:
+	default:
+	    do_talk(a);
+	}
+    else
+	close(a);
+    clear();
+}
+
+/* 網友動態簡表 */
+/*
+ * not used static int shortulist(userinfo_t * uentp) { static int lineno,
+ * fullactive, linecnt; static int moreactive, page, num; char uentry[50];
+ * int state;
+ * 
+ * if (!lineno){ lineno = 3; page = moreactive ? (page + p_lines * 3) : 0;
+ * linecnt = num = moreactive = 0; move(1, 70); prints("Page: %d", page /
+ * (p_lines) / 3 + 1); move(lineno, 0); }
+ * 
+ * if (uentp == NULL){ int finaltally;
+ * 
+ * clrtoeol(); move(++lineno, 0); clrtobot(); finaltally = fullactive; lineno =
+ * fullactive = 0; return finaltally; }
+ * 
+ * if ((!HAS_PERM(PERM_SYSOP) && !HAS_PERM(PERM_SEECLOAK) && uentp->invisible)
+ * || ((friend_stat(currutmp, uentp) & HRM) && !HAS_PERM(PERM_SYSOP))){ if
+ * (lineno >= b_lines) return 0; if (num++ < page) return 0; memset(uentry, '
+ * ', 25); uentry[25] = '\0'; } else{ fullactive++; if (lineno >= b_lines){
+ * moreactive = 1; return 0; } if (num++ < page) return 0;
+ * 
+ * state = (currutmp == uentp) ? 10 :
+ * (friend_stat(currutmp,uentp)&ST_FRIEND)>>2;
+ * 
+ * if (PERM_HIDE(uentp)) state = 9;
+ * 
+ * sprintf(uentry, "%s%-13s%c%-10s%s ", fcolor[state], uentp->userid,
+ * uentp->invisible ? '#' : ' ', modestring(uentp, 1), state ? "\033[0m" :
+ * ""); } if (++linecnt < 3){ strcat(uentry, "│"); outs(uentry); } else{
+ * outs(uentry); linecnt = 0; clrtoeol(); move(++lineno, 0); } return 0; }
+ */
diff --git a/pttbbs/mbbsd/term.c b/pttbbs/mbbsd/term.c
new file mode 100644
index 00000000..54acc2a6
--- /dev/null
+++ b/pttbbs/mbbsd/term.c
@@ -0,0 +1,140 @@
+/* $Id$ */
+#include "bbs.h"
+
+int             tgetent(const char *bp, char *name);
+char           *tgetstr(const char *id, char **area);
+int             tgetflag(const char *id);
+int             tgetnum(const char *id);
+int             tputs(const char *str, int affcnt, int (*putc) (int));
+char           *tparm(const char *str,...);
+char           *tgoto(const char *cap, int col, int row);
+
+static struct termios tty_state, tty_new;
+
+/* ----------------------------------------------------- */
+/* basic tty control                                     */
+/* ----------------------------------------------------- */
+void
+init_tty()
+{
+    if (tcgetattr(1, &tty_state) < 0) {
+	syslog(LOG_ERR, "tcgetattr(): %m");
+	return;
+    }
+    memcpy(&tty_new, &tty_state, sizeof(tty_new));
+    tty_new.c_lflag &= ~(ICANON | ECHO | ISIG);
+    /*
+     * tty_new.c_cc[VTIME] = 0; tty_new.c_cc[VMIN] = 1;
+     */
+    tcsetattr(1, TCSANOW, &tty_new);
+    system("stty raw -echo");
+}
+
+/* ----------------------------------------------------- */
+/* init tty control code                                 */
+/* ----------------------------------------------------- */
+
+
+#define TERMCOMSIZE (40)
+
+#if 0
+static char    *outp;
+static int     *outlp;
+
+static int
+outcf(int ch)
+{
+    if (*outlp < TERMCOMSIZE) {
+	(*outlp)++;
+	*outp++ = ch;
+    }
+    return 0;
+}
+#endif
+
+#ifndef __linux__
+static void
+term_resize(int sig)
+{
+    struct winsize  newsize;
+    screenline_t   *new_picture;
+
+    signal(SIGWINCH, SIG_IGN);	/* Don't bother me! */
+    ioctl(0, TIOCGWINSZ, &newsize);
+
+    /* make sure reasonable size */
+    newsize.ws_row = MAX(24, MIN(100, newsize.ws_row));
+    newsize.ws_col = MAX(80, MIN(200, newsize.ws_col));
+
+    if (newsize.ws_row > t_lines) {
+	new_picture = (screenline_t *) calloc(newsize.ws_row,
+					      sizeof(screenline_t));
+	if (new_picture == NULL) {
+	    syslog(LOG_ERR, "calloc(): %m");
+	    return;
+	}
+	memcpy(new_picture, big_picture, t_lines * sizeof(screenline_t));
+	free(big_picture);
+	big_picture = new_picture;
+    }
+    t_lines = newsize.ws_row;
+    t_columns = newsize.ws_col;
+    scr_lns = t_lines;	/* XXX: scr_lns 跟 t_lines 有什麼不同, 為何分成兩個 */
+    b_lines = t_lines - 1;
+    p_lines = t_lines - 4;
+
+    signal(SIGWINCH, term_resize);
+}
+#endif
+
+int
+term_init()
+{
+#ifndef __linux__
+    signal(SIGWINCH, term_resize);
+#endif
+    return YEA;
+}
+
+char            term_buf[32];
+
+void
+do_move(int destcol, int destline)
+{
+    char            buf[16], *p;
+
+    snprintf(buf, sizeof(buf), "\33[%d;%dH", destline + 1, destcol + 1);
+    for (p = buf; *p; p++)
+	ochar(*p);
+}
+
+void
+save_cursor()
+{
+    ochar('\33');
+    ochar('7');
+}
+
+void
+restore_cursor()
+{
+    ochar('\33');
+    ochar('8');
+}
+
+void
+change_scroll_range(int top, int bottom)
+{
+    char            buf[16], *p;
+
+    snprintf(buf, sizeof(buf), "\33[%d;%dr", top + 1, bottom + 1);
+    for (p = buf; *p; p++)
+	ochar(*p);
+}
+
+void
+scroll_forward()
+{
+    ochar('\33');
+    ochar('D');
+}
diff --git a/pttbbs/mbbsd/topsong.c b/pttbbs/mbbsd/topsong.c
new file mode 100644
index 00000000..81f4d0c6
--- /dev/null
+++ b/pttbbs/mbbsd/topsong.c
@@ -0,0 +1,81 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define MAX_SONGS 300
+#define QCAST     int (*)(const void *, const void *)
+
+typedef struct songcmp_t {
+    char            name[100];
+    char            cname[100];
+    long int        count;
+}               songcmp_t;
+
+static long int totalcount = 0;
+
+static int
+count_cmp(songcmp_t * b, songcmp_t * a)
+{
+    return (a->count - b->count);
+}
+
+int
+topsong()
+{
+    more(FN_TOPSONG, YEA);
+    return 0;
+}
+
+static int
+strip_blank(char *cbuf, char *buf)
+{
+    for (; *buf; buf++)
+	if (*buf != ' ')
+	    *cbuf++ = *buf;
+    *cbuf = 0;
+    return 0;
+}
+
+void
+sortsong()
+{
+    FILE           *fo, *fp = fopen(BBSHOME "/" FN_USSONG, "r");
+    songcmp_t       songs[MAX_SONGS + 1];
+    int             n;
+    char            buf[256], cbuf[256];
+
+    memset(songs, 0, sizeof(songs));
+    if (!fp)
+	return;
+    if (!(fo = fopen(FN_TOPSONG, "w"))) {
+	fclose(fp);
+	return;
+    }
+    totalcount = 0;
+    /* XXX: 除了前 MAX_SONGS 首, 剩下不會排序 */
+    while (fgets(buf, 200, fp)) {
+	strtok(buf, "\n\r");
+	strip_blank(cbuf, buf);
+	if (!cbuf[0] || !isprint2(cbuf[0]))
+	    continue;
+
+	for (n = 0; n < MAX_SONGS && songs[n].name[0]; n++)
+	    if (!strcmp(songs[n].cname, cbuf))
+		break;
+	strlcpy(songs[n].name, buf, sizeof(songs[n].name));
+	strlcpy(songs[n].cname, cbuf, sizeof(songs[n].cname));
+	songs[n].count++;
+	totalcount++;
+    }
+    qsort(songs, MAX_SONGS, sizeof(songcmp_t), (QCAST) count_cmp);
+    fprintf(fo,
+	    "    \033[36m──\033[37m名次\033[36m──────\033[37m歌"
+	    "  名\033[36m───────────\033[37m次數\033[36m"
+	    "──\033[32m共%ld次\033[36m──\033[m\n", totalcount);
+    for (n = 0; n < 100 && songs[n].name[0]; n++) {
+	fprintf(fo, "      %5d. %-38.38s %4ld \033[32m[%.2f]\033[m\n", n + 1,
+		songs[n].name, songs[n].count,
+		(float)songs[n].count / totalcount);
+    }
+    fclose(fp);
+    fclose(fo);
+}
diff --git a/pttbbs/mbbsd/user.c b/pttbbs/mbbsd/user.c
new file mode 100644
index 00000000..c55b1335
--- /dev/null
+++ b/pttbbs/mbbsd/user.c
@@ -0,0 +1,1495 @@
+/* $Id$ */
+#include "bbs.h"
+
+static char    *sex[8] = {
+    MSG_BIG_BOY, MSG_BIG_GIRL, MSG_LITTLE_BOY, MSG_LITTLE_GIRL,
+    MSG_MAN, MSG_WOMAN, MSG_PLANT, MSG_MIME
+};
+
+int
+u_loginview()
+{
+    int             i;
+    unsigned int    pbits = cuser.loginview;
+    char            choice[5];
+
+    clear();
+    move(4, 0);
+    for (i = 0; i < NUMVIEWFILE; i++)
+	prints("    %c. %-20s %-15s \n", 'A' + i,
+	       loginview_file[i][1], ((pbits >> i) & 1 ? "ˇ" : "Ｘ"));
+
+    clrtobot();
+    while (getdata(b_lines - 1, 0, "請按 [A-N] 切換設定，按 [Return] 結束：",
+		   choice, sizeof(choice), LCECHO)) {
+	i = choice[0] - 'a';
+	if (i >= NUMVIEWFILE || i < 0)
+	    bell();
+	else {
+	    pbits ^= (1 << i);
+	    move(i + 4, 28);
+	    prints((pbits >> i) & 1 ? "ˇ" : "Ｘ");
+	}
+    }
+
+    if (pbits != cuser.loginview) {
+	cuser.loginview = pbits;
+	passwd_update(usernum, &cuser);
+    }
+    return 0;
+}
+
+void
+user_display(userec_t * u, int real)
+{
+    int             diff = 0;
+    char            genbuf[200];
+
+    clrtobot();
+    prints(
+	   "        \033[30;41m┴┬┴┬┴┬\033[m  \033[1;30;45m    使 用 者"
+	   " 資 料        "
+	   "     \033[m  \033[30;41m┴┬┴┬┴┬\033[m\n");
+    prints("                代號暱稱: %s(%s)\n"
+	   "                真實姓名: %s"
+#ifdef FOREIGN_REG
+	   " %s%s"
+#endif
+	   "\n"
+	   "                居住住址: %s\n"
+	   "                電子信箱: %s\n"
+	   "                性    別: %s\n"
+	   "                銀行帳戶: %d 銀兩\n",
+	   u->userid, u->username, u->realname,
+#ifdef FOREIGN_REG
+	   u->uflag2 & FOREIGN ? "(外籍: " : "",
+	   u->uflag2 & FOREIGN ?
+		(u->uflag2 & LIVERIGHT) ? "永久居留)" : "未取得居留權)"
+		: "",
+#endif
+	   u->address, u->email,
+	   sex[u->sex % 8], u->money);
+
+    sethomedir(genbuf, u->userid);
+    prints("                私人信箱: %d 封  (購買信箱: %d 封)\n"
+	   "                手機號碼: %010d\n"
+	   "                生    日: %02i/%02i/%02i\n"
+	   "                小雞名字: %s\n",
+	   get_num_records(genbuf, sizeof(fileheader_t)),
+	   u->exmailbox, u->mobile,
+	   u->month, u->day, u->year % 100, u->mychicken.name);
+    prints("                註冊日期: %s", ctime(&u->firstlogin));
+    prints("                前次光臨: %s", ctime(&u->lastlogin));
+    prints("                前次點歌: %s", ctime(&u->lastsong));
+    prints("                上站文章: %d 次 / %d 篇\n",
+	   u->numlogins, u->numposts);
+
+    if (real) {
+	strlcpy(genbuf, "bTCPRp#@XWBA#VSM0123456789ABCDEF", sizeof(genbuf));
+	for (diff = 0; diff < 32; diff++)
+	    if (!(u->userlevel & (1 << diff)))
+		genbuf[diff] = '-';
+	prints("                認證資料: %s\n"
+	       "                user權限: %s\n",
+	       u->justify, genbuf);
+    } else {
+	diff = (now - login_start_time) / 60;
+	prints("                停留期間: %d 小時 %2d 分\n",
+	       diff / 60, diff % 60);
+    }
+
+    /* Thor: 想看看這個 user 是那些板的板主 */
+    if (u->userlevel >= PERM_BM) {
+	int             i;
+	boardheader_t  *bhdr;
+
+	outs("                擔任板主: ");
+
+	for (i = 0, bhdr = bcache; i < numboards; i++, bhdr++) {
+	    if (is_uBM(bhdr->BM, u->userid)) {
+		outs(bhdr->brdname);
+		outc(' ');
+	    }
+	}
+	outc('\n');
+    }
+    outs("        \033[30;41m┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴┬┴"
+	 "┬┴┬┴┬┴┬\033[m");
+
+    outs((u->userlevel & PERM_LOGINOK) ?
+	 "\n您的註冊程序已經完成，歡迎加入本站" :
+	 "\n如果要提昇權限，請參考本站公佈欄辦理註冊");
+
+#ifdef NEWUSER_LIMIT
+    if ((u->lastlogin - u->firstlogin < 3 * 86400) && !HAS_PERM(PERM_POST))
+	outs("\n新手上路，三天後開放權限");
+#endif
+}
+
+void
+mail_violatelaw(char *crime, char *police, char *reason, char *result)
+{
+    char            genbuf[200];
+    fileheader_t    fhdr;
+    FILE           *fp;
+    snprintf(genbuf, sizeof(genbuf), "home/%c/%s", crime[0], crime);
+    stampfile(genbuf, &fhdr);
+    if (!(fp = fopen(genbuf, "w")))
+	return;
+    fprintf(fp, "作者: [Ptt法院]\n"
+	    "標題: [報告] 違法判決報告\n"
+	    "時間: %s\n"
+	    "\033[1;32m%s\033[m判決：\n     \033[1;32m%s\033[m"
+	    "因\033[1;35m%s\033[m行為，\n違反本站站規，處以\033[1;35m%s\033[m，特此通知"
+	"\n請到 PttLaw 查詢相關法規資訊，並到 Play-Pay-ViolateLaw 繳交罰單",
+	    ctime(&now), police, crime, reason, result);
+    fclose(fp);
+    snprintf(fhdr.title, sizeof(fhdr.title), "[報告] 違法判決報告");
+    strlcpy(fhdr.owner, "[Ptt法院]", sizeof(fhdr.owner));
+    snprintf(genbuf, sizeof(genbuf), "home/%c/%s/.DIR", crime[0], crime);
+    append_record(genbuf, &fhdr, sizeof(fhdr));
+}
+
+static void
+violate_law(userec_t * u, int unum)
+{
+    char            ans[4], ans2[4];
+    char            reason[128];
+    move(1, 0);
+    clrtobot();
+    move(2, 0);
+    prints("(1)Cross-post (2)亂發廣告信 (3)亂發連鎖信\n");
+    prints("(4)騷擾站上使用者 (8)其他以罰單處置行為\n(9)砍 id 行為\n");
+    getdata(5, 0, "(0)結束", ans, sizeof(ans), DOECHO);
+    switch (ans[0]) {
+    case '1':
+	snprintf(reason, sizeof(reason), "%s", "Cross-post");
+	break;
+    case '2':
+	snprintf(reason, sizeof(reason), "%s", "亂發廣告信");
+	break;
+    case '3':
+	snprintf(reason, sizeof(reason), "%s", "亂發連鎖信");
+	break;
+    case '4':
+	while (!getdata(7, 0, "請輸入被檢舉理由以示負責：", reason, 50, DOECHO));
+	strcat(reason, "[騷擾站上使用者]");
+	break;
+    case '8':
+    case '9':
+	while (!getdata(6, 0, "請輸入理由以示負責：", reason, 50, DOECHO));
+	break;
+    default:
+	return;
+    }
+    getdata(7, 0, msg_sure_ny, ans2, sizeof(ans2), LCECHO);
+    if (*ans2 != 'y')
+	return;
+    if (ans[0] == '9') {
+	char            src[STRLEN], dst[STRLEN];
+	snprintf(src, sizeof(src), "home/%c/%s", u->userid[0], u->userid);
+	snprintf(dst, sizeof(dst), "tmp/%s", u->userid);
+	Rename(src, dst);
+	log_usies("KILL", u->userid);
+	post_violatelaw(u->userid, cuser.userid, reason, "砍除 ID");
+	u->userid[0] = '\0';
+	setuserid(unum, u->userid);
+	passwd_update(unum, u);
+    } else {
+	u->userlevel |= PERM_VIOLATELAW;
+	u->vl_count++;
+	passwd_update(unum, u);
+	post_violatelaw(u->userid, cuser.userid, reason, "罰單處份");
+	mail_violatelaw(u->userid, cuser.userid, reason, "罰單處份");
+    }
+    pressanykey();
+}
+
+static void Customize(void)
+{
+    char    ans[4], done = 0, mindbuf[5];
+    char    *wm[3] = {"一般", "進階", "未來"};
+
+    showtitle("個人化設定", "個人化設定");
+    memcpy(mindbuf, &currutmp->mind, 4);
+    mindbuf[4] = 0;
+    while( !done ){
+	move(2, 0);
+	prints("您目前的個人化設定: ");
+	move(4, 0);
+	prints("%-30s%10s\n", "A. 水球模式",
+	       wm[(cuser.uflag2 & WATER_MASK)]);
+	prints("%-30s%10s\n", "B. 接受站外信",
+	       ((cuser.userlevel & PERM_NOOUTMAIL) ? "否" : "是"));
+	prints("%-30s%10s\n", "C. 新板自動進我的最愛",
+	       ((cuser.uflag2 & FAVNEW_FLAG) ? "是" : "否"));
+	prints("%-30s%10s\n", "D. 目前的心情", mindbuf);
+	prints("%-30s%10s\n", "E. 高亮度顯示我的最愛", 
+	       ((cuser.uflag2 & FAVNOHILIGHT) ? "否" : "是"));
+	getdata(b_lines - 1, 0, "請按 [A-E] 切換設定，按 [Return] 結束：",
+		ans, sizeof(ans), DOECHO);
+
+	switch( ans[0] ){
+	case 'A':
+	case 'a':{
+	    int     currentset = cuser.uflag2 & WATER_MASK;
+	    currentset = (currentset + 1) % 3;
+	    cuser.uflag2 &= ~WATER_MASK;
+	    cuser.uflag2 |= currentset;
+	    vmsg("修正水球模式後請正常離線再重新上線");
+	}
+	    break;
+	case 'B':
+	case 'b':
+	    cuser.userlevel ^= PERM_NOOUTMAIL;
+	    break;
+	case 'C':
+	case 'c':
+	    cuser.uflag2 ^= FAVNEW_FLAG;
+	    break;
+	case 'D':
+	case 'd':{
+	    getdata(b_lines - 1, 0, "現在的心情? ",
+		    mindbuf, sizeof(mindbuf), DOECHO);
+	    if (strcmp(mindbuf, "通緝") == 0)
+		vmsg("不可以把自己設通緝啦!");
+	    else if (strcmp(mindbuf, "壽星") == 0)
+		vmsg("你不是今天生日欸!");
+	    else
+		memcpy(currutmp->mind, mindbuf, 4);
+	}
+	    break;
+	case 'E':
+	case 'e':
+	    cuser.uflag2 ^= FAVNOHILIGHT;
+	    break;
+	default:
+	    done = 1;
+	}
+    }
+    pressanykey();
+}
+
+void
+uinfo_query(userec_t * u, int real, int unum)
+{
+    userec_t        x;
+    register int    i = 0, fail, mail_changed;
+    int             uid;
+    char            ans[4], buf[STRLEN], *p;
+    char            genbuf[200], reason[50];
+    unsigned long int money = 0;
+    fileheader_t    fhdr;
+    int             flag = 0, temp = 0, money_change = 0;
+
+    FILE           *fp;
+
+    fail = mail_changed = 0;
+
+    memcpy(&x, u, sizeof(userec_t));
+    getdata(b_lines - 1, 0, real ?
+	    "(1)改資料(2)設密碼(3)設權限(4)砍帳號(5)改ID"
+	    "(6)殺/復活寵物(7)審判 [0]結束 " :
+	    "請選擇 (1)修改資料 (2)設定密碼 (C) 個人化設定 ==> [0]結束 ",
+	    ans, sizeof(ans), DOECHO);
+
+    if (ans[0] > '2' && ans[0] != 'C' && ans[0] != 'c' && !real)
+	ans[0] = '0';
+
+    if (ans[0] == '1' || ans[0] == '3') {
+	clear();
+	i = 2;
+	move(i++, 0);
+	outs(msg_uid);
+	outs(x.userid);
+    }
+    switch (ans[0]) {
+    case 'C':
+    case 'c':
+	Customize();
+	return;
+    case '7':
+	violate_law(&x, unum);
+	return;
+    case '1':
+	move(0, 0);
+	outs("請逐項修改。");
+
+	getdata_buf(i++, 0, " 暱 稱  ：", x.username,
+		    sizeof(x.username), DOECHO);
+	if (real) {
+	    getdata_buf(i++, 0, "真實姓名：",
+			x.realname, sizeof(x.realname), DOECHO);
+#ifdef FOREIGN_REG
+	    getdata_buf(i++, 0, cuser.uflag2 & FOREIGN ? "護照號碼" : "身分證號：", x.ident, sizeof(x.ident), DOECHO);
+#else
+	    getdata_buf(i++, 0, "身分證號：", x.ident, sizeof(x.ident), DOECHO);
+#endif
+	    getdata_buf(i++, 0, "居住地址：",
+			x.address, sizeof(x.address), DOECHO);
+	}
+	snprintf(buf, sizeof(buf), "%010d", x.mobile);
+	getdata_buf(i++, 0, "手機號碼：", buf, 11, LCECHO);
+	x.mobile = atoi(buf);
+	getdata_str(i++, 0, "電子信箱[變動要重新認證]：", buf, 50, DOECHO,
+		    x.email);
+	if (strcmp(buf, x.email) && strchr(buf, '@')) {
+	    strlcpy(x.email, buf, sizeof(x.email));
+	    mail_changed = 1 - real;
+	}
+	snprintf(genbuf, sizeof(genbuf), "%i", (u->sex + 1) % 8);
+	getdata_str(i++, 0, "性別 (1)葛格 (2)姐接 (3)底迪 (4)美眉 (5)薯叔 "
+		    "(6)阿姨 (7)植物 (8)礦物：",
+		    buf, 3, DOECHO, genbuf);
+	if (buf[0] >= '1' && buf[0] <= '8')
+	    x.sex = (buf[0] - '1') % 8;
+	else
+	    x.sex = u->sex % 8;
+
+	while (1) {
+	    int             len;
+
+	    snprintf(genbuf, sizeof(genbuf), "%02i/%02i/%02i",
+		     u->month, u->day, u->year % 100);
+	    len = getdata_str(i, 0, "生日 月月/日日/西元：", buf, 9,
+			      DOECHO, genbuf);
+	    if (len && len != 8)
+		continue;
+	    if (!len) {
+		x.month = u->month;
+		x.day = u->day;
+		x.year = u->year;
+	    } else if (len == 8) {
+		x.month = (buf[0] - '0') * 10 + (buf[1] - '0');
+		x.day = (buf[3] - '0') * 10 + (buf[4] - '0');
+		x.year = (buf[6] - '0') * 10 + (buf[7] - '0');
+	    } else
+		continue;
+	    if (!real && (x.month > 12 || x.month < 1 || x.day > 31 ||
+			  x.day < 1 || x.year > 90 || x.year < 40))
+		continue;
+	    i++;
+	    break;
+	}
+	if (real) {
+	    unsigned long int l;
+	    if (HAS_PERM(PERM_BBSADM)) {
+		snprintf(genbuf, sizeof(genbuf), "%d", x.money);
+		if (getdata_str(i++, 0, "銀行帳戶：", buf, 10, DOECHO, genbuf))
+		    if ((l = atol(buf)) != 0) {
+			if (l != (unsigned)x.money) {
+			    money_change = 1;
+			    money = x.money;
+			    x.money = l;
+			}
+		    }
+	    }
+	    snprintf(genbuf, sizeof(genbuf), "%d", x.exmailbox);
+	    if (getdata_str(i++, 0, "購買信箱數：", buf, sizeof(buf),
+			    DOECHO, genbuf))
+		if ((l = atol(buf)) != 0)
+		    x.exmailbox = (int)l;
+
+	    getdata_buf(i++, 0, "認證資料：", x.justify,
+			sizeof(x.justify), DOECHO);
+	    getdata_buf(i++, 0, "最近光臨機器：",
+			x.lasthost, sizeof(x.lasthost), DOECHO);
+
+	    snprintf(genbuf, sizeof(genbuf), "%d", x.numlogins);
+	    if (getdata_str(i++, 0, "上線次數：", buf, 10, DOECHO, genbuf))
+		if ((fail = atoi(buf)) >= 0)
+		    x.numlogins = fail;
+
+	    snprintf(genbuf, sizeof(genbuf), "%d", u->numposts);
+	    if (getdata_str(i++, 0, "文章數目：", buf, 10, DOECHO, genbuf))
+		if ((fail = atoi(buf)) >= 0)
+		    x.numposts = fail;
+	    snprintf(genbuf, sizeof(genbuf), "%d", u->vl_count);
+	    if (getdata_str(i++, 0, "違法記錄：", buf, 10, DOECHO, genbuf))
+		if ((fail = atoi(buf)) >= 0)
+		    x.vl_count = fail;
+
+	    snprintf(genbuf, sizeof(genbuf),
+		     "%d/%d/%d", u->five_win, u->five_lose, u->five_tie);
+	    if (getdata_str(i++, 0, "五子棋戰績 勝/敗/和：", buf, 16, DOECHO,
+			    genbuf))
+		while (1) {
+		    p = strtok(buf, "/\r\n");
+		    if (!p)
+			break;
+		    x.five_win = atoi(p);
+		    p = strtok(NULL, "/\r\n");
+		    if (!p)
+			break;
+		    x.five_lose = atoi(p);
+		    p = strtok(NULL, "/\r\n");
+		    if (!p)
+			break;
+		    x.five_tie = atoi(p);
+		    break;
+		}
+	    snprintf(genbuf, sizeof(genbuf),
+		     "%d/%d/%d", u->chc_win, u->chc_lose, u->chc_tie);
+	    if (getdata_str(i++, 0, "象棋戰績 勝/敗/和：", buf, 16, DOECHO,
+			    genbuf))
+		while (1) {
+		    p = strtok(buf, "/\r\n");
+		    if (!p)
+			break;
+		    x.chc_win = atoi(p);
+		    p = strtok(NULL, "/\r\n");
+		    if (!p)
+			break;
+		    x.chc_lose = atoi(p);
+		    p = strtok(NULL, "/\r\n");
+		    if (!p)
+			break;
+		    x.chc_tie = atoi(p);
+		    break;
+		}
+#ifdef FOREIGN_REG
+	    if (getdata_str(i++, 0, "國籍 1)本國 2)外國：", buf, 2, DOECHO, x.uflag2 & FOREIGN ? "2" : "1"))
+		if ((fail = atoi(buf)) > 0){
+		    if (fail == 2){
+			x.uflag2 |= FOREIGN;
+		    }
+		    else
+			x.uflag2 &= ~FOREIGN;
+		}
+	    if (x.uflag2 & FOREIGN)
+		if (getdata_str(i++, 0, "永久居留權 1)是 2)否：", buf, 2, DOECHO, x.uflag2 & LIVERIGHT ? "1" : "2")){
+		    if ((fail = atoi(buf)) > 0){
+			if (fail == 1){
+			    x.uflag2 |= LIVERIGHT;
+			    x.userlevel |= (PERM_LOGINOK | PERM_POST);
+			}
+			else{
+			    x.uflag2 &= ~LIVERIGHT;
+			    x.userlevel &= ~(PERM_LOGINOK | PERM_POST);
+			}
+		    }
+		}
+#endif
+	    fail = 0;
+	}
+	break;
+
+    case '2':
+	i = 19;
+	if (!real) {
+	    if (!getdata(i++, 0, "請輸入原密碼：", buf, PASSLEN, NOECHO) ||
+		!checkpasswd(u->passwd, buf)) {
+		outs("\n\n您輸入的密碼不正確\n");
+		fail++;
+		break;
+	    }
+	} else {
+	    char            witness[3][32];
+	    for (i = 0; i < 3; i++) {
+		if (!getdata(19 + i, 0, "請輸入協助證明之使用者：",
+			     witness[i], sizeof(witness[i]), DOECHO)) {
+		    outs("\n不輸入則無法更改\n");
+		    fail++;
+		    break;
+		} else if (!(uid = getuser(witness[i]))) {
+		    outs("\n查無此使用者\n");
+		    fail++;
+		    break;
+		} else {
+		    userec_t        atuser;
+		    passwd_query(uid, &atuser);
+		    if (now - atuser.firstlogin < 6 * 30 * 24 * 60 * 60) {
+			outs("\n註冊未超過半年，請重新輸入\n");
+			i--;
+		    }
+		}
+	    }
+	    if (i < 3)
+		break;
+	    else
+		i = 20;
+	}
+
+	if (!getdata(i++, 0, "請設定新密碼：", buf, PASSLEN, NOECHO)) {
+	    outs("\n\n密碼設定取消, 繼續使用舊密碼\n");
+	    fail++;
+	    break;
+	}
+	strncpy(genbuf, buf, PASSLEN);
+
+	getdata(i++, 0, "請檢查新密碼：", buf, PASSLEN, NOECHO);
+	if (strncmp(buf, genbuf, PASSLEN)) {
+	    outs("\n\n新密碼確認失敗, 無法設定新密碼\n");
+	    fail++;
+	    break;
+	}
+	buf[8] = '\0';
+	strncpy(x.passwd, genpasswd(buf), PASSLEN);
+	if (real)
+	    x.userlevel &= (!PERM_LOGINOK);
+	break;
+
+    case '3':
+	i = setperms(x.userlevel, str_permid);
+	if ((unsigned)i == x.userlevel)
+	    fail++;
+	else {
+	    flag = 1;
+	    temp = x.userlevel;
+	    x.userlevel = i;
+	}
+	break;
+
+    case '4':
+	i = QUIT;
+	break;
+
+    case '5':
+	if (getdata_str(b_lines - 3, 0, "新的使用者代號：", genbuf, IDLEN + 1,
+			DOECHO, x.userid)) {
+	    if (searchuser(genbuf)) {
+		outs("錯誤! 已經有同樣 ID 的使用者");
+		fail++;
+	    } else
+		strlcpy(x.userid, genbuf, sizeof(x.userid));
+	}
+	break;
+    case '6':
+	if (x.mychicken.name[0])
+	    x.mychicken.name[0] = 0;
+	else
+	    strlcpy(x.mychicken.name, "[死]", sizeof(x.mychicken.name));
+	break;
+    default:
+	return;
+    }
+
+    if (fail) {
+	pressanykey();
+	return;
+    }
+    getdata(b_lines - 1, 0, msg_sure_ny, ans, 3, LCECHO);
+    if (*ans == 'y') {
+	if (flag)
+	    post_change_perm(temp, i, cuser.userid, x.userid);
+	if (strcmp(u->userid, x.userid)) {
+	    char            src[STRLEN], dst[STRLEN];
+
+	    sethomepath(src, u->userid);
+	    sethomepath(dst, x.userid);
+	    Rename(src, dst);
+	    setuserid(unum, x.userid);
+	}
+	memcpy(u, &x, sizeof(x));
+	if (mail_changed) {
+#ifdef EMAIL_JUSTIFY
+	    x.userlevel &= ~PERM_LOGINOK;
+	    mail_justify();
+#endif
+	}
+	if (i == QUIT) {
+	    char            src[STRLEN], dst[STRLEN];
+
+	    snprintf(src, sizeof(src), "home/%c/%s", x.userid[0], x.userid);
+	    snprintf(dst, sizeof(dst), "tmp/%s", x.userid);
+	    if (Rename(src, dst)) {
+		snprintf(genbuf, sizeof(genbuf),
+			 "/bin/rm -fr %s >/dev/null 2>&1", src);
+		/*
+		 * do not remove system(genbuf);
+		 */
+	    }
+	    log_usies("KILL", x.userid);
+	    x.userid[0] = '\0';
+	    setuserid(unum, x.userid);
+	} else
+	    log_usies("SetUser", x.userid);
+	if (money_change)
+	    setumoney(unum, x.money);
+	passwd_update(unum, &x);
+	if (money_change) {
+	    strlcpy(genbuf, "boards/S/Security", sizeof(genbuf));
+	    stampfile(genbuf, &fhdr);
+	    if (!(fp = fopen(genbuf, "w")))
+		return;
+
+	    fprintf(fp, "作者: [系統安全局] 看板: Security\n"
+		    "標題: [公安報告] 站長修改金錢報告\n"
+		    "時間: %s\n"
+		    "   站長\033[1;32m%s\033[m把\033[1;32m%s\033[m"
+		    "的錢從\033[1;35m%ld\033[m改成\033[1;35m%d\033[m",
+		    ctime(&now), cuser.userid, x.userid, money, x.money);
+
+	    clrtobot();
+	    clear();
+	    while (!getdata(5, 0, "請輸入理由以示負責：",
+			    reason, sizeof(reason), DOECHO));
+
+	    fprintf(fp, "\n   \033[1;37m站長%s修改錢理由是：%s\033[m",
+		    cuser.userid, reason);
+	    fclose(fp);
+	    snprintf(fhdr.title, sizeof(fhdr.title),
+		     "[公安報告] 站長%s修改%s錢報告", cuser.userid,
+		     x.userid);
+	    strlcpy(fhdr.owner, "[系統安全局]", sizeof(fhdr.owner));
+	    append_record("boards/S/Security/.DIR", &fhdr, sizeof(fhdr));
+	}
+    }
+}
+
+int
+u_info()
+{
+    move(2, 0);
+    user_display(&cuser, 0);
+    uinfo_query(&cuser, 0, usernum);
+    //strlcpy(currutmp->realname, cuser.realname, sizeof(currutmp->realname));
+    strlcpy(currutmp->username, cuser.username, sizeof(currutmp->username));
+    return 0;
+}
+
+int
+u_ansi()
+{
+    showansi ^= 1;
+    cuser.uflag ^= COLOR_FLAG;
+    outs(reset_color);
+    return 0;
+}
+
+int
+u_cloak()
+{
+    outs((currutmp->invisible ^= 1) ? MSG_CLOAKED : MSG_UNCLOAK);
+    return XEASY;
+}
+
+int
+u_switchproverb()
+{
+    /* char *state[4]={"用功\型","安逸型","自定型","SHUTUP"}; */
+    char            buf[100];
+
+    cuser.proverb = (cuser.proverb + 1) % 4;
+    setuserfile(buf, fn_proverb);
+    if (cuser.proverb == 2 && dashd(buf)) {
+	FILE           *fp = fopen(buf, "a");
+	assert(fp);
+
+	fprintf(fp, "座右銘狀態為[自定型]要記得設座右銘的內容唷!!");
+	fclose(fp);
+    }
+    passwd_update(usernum, &cuser);
+    return 0;
+}
+
+int
+u_editproverb()
+{
+    char            buf[100];
+
+    setutmpmode(PROVERB);
+    setuserfile(buf, fn_proverb);
+    move(1, 0);
+    clrtobot();
+    outs("\n\n 請一行一行依序鍵入想系統提醒你的內容,\n"
+	 " 儲存後記得把狀態設為 [自定型] 才有作用\n"
+	 " 座右銘最多100條");
+    pressanykey();
+    vedit(buf, NA, NULL);
+    return 0;
+}
+
+void
+showplans(char *uid)
+{
+    char            genbuf[200];
+
+    sethomefile(genbuf, uid, fn_plans);
+    if (!show_file(genbuf, 7, MAX_QUERYLINES, ONLY_COLOR))
+	prints("《個人名片》%s 目前沒有名片", uid);
+}
+
+int
+showsignature(char *fname, int *j)
+{
+    FILE           *fp;
+    char            buf[256];
+    int             i, num = 0;
+    char            ch;
+
+    clear();
+    move(2, 0);
+    setuserfile(fname, "sig.0");
+    *j = strlen(fname) - 1;
+
+    for (ch = '1'; ch <= '9'; ch++) {
+	fname[*j] = ch;
+	if ((fp = fopen(fname, "r"))) {
+	    prints("\033[36m【 簽名檔.%c 】\033[m\n", ch);
+	    for (i = 0; i < MAX_SIGLINES && fgets(buf, sizeof(buf), fp); i++)
+		outs(buf);
+	    num++;
+	    fclose(fp);
+	}
+    }
+    return num;
+}
+
+int
+u_editsig()
+{
+    int             aborted;
+    char            ans[4];
+    int             j;
+    char            genbuf[200];
+
+    showsignature(genbuf, &j);
+
+    getdata(0, 0, "簽名檔 (E)編輯 (D)刪除 (Q)取消？[Q] ",
+	    ans, sizeof(ans), LCECHO);
+
+    aborted = 0;
+    if (ans[0] == 'd')
+	aborted = 1;
+    if (ans[0] == 'e')
+	aborted = 2;
+
+    if (aborted) {
+	if (!getdata(1, 0, "請選擇簽名檔(1-9)？[1] ", ans, sizeof(ans), DOECHO))
+	    ans[0] = '1';
+	if (ans[0] >= '1' && ans[0] <= '9') {
+	    genbuf[j] = ans[0];
+	    if (aborted == 1) {
+		unlink(genbuf);
+		outs(msg_del_ok);
+	    } else {
+		setutmpmode(EDITSIG);
+		aborted = vedit(genbuf, NA, NULL);
+		if (aborted != -1)
+		    outs("簽名檔更新完畢");
+	    }
+	}
+	pressanykey();
+    }
+    return 0;
+}
+
+int
+u_editplan()
+{
+    char            genbuf[200];
+
+    getdata(b_lines - 1, 0, "名片 (D)刪除 (E)編輯 [Q]取消？[Q] ",
+	    genbuf, 3, LCECHO);
+
+    if (genbuf[0] == 'e') {
+	int             aborted;
+
+	setutmpmode(EDITPLAN);
+	setuserfile(genbuf, fn_plans);
+	aborted = vedit(genbuf, NA, NULL);
+	if (aborted != -1)
+	    outs("名片更新完畢");
+	pressanykey();
+	return 0;
+    } else if (genbuf[0] == 'd') {
+	setuserfile(genbuf, fn_plans);
+	unlink(genbuf);
+	outmsg("名片刪除完畢");
+    }
+    return 0;
+}
+
+int
+u_editcalendar()
+{
+    char            genbuf[200];
+
+    getdata(b_lines - 1, 0, "行事曆 (D)刪除 (E)編輯 [Q]取消？[Q] ",
+	    genbuf, 3, LCECHO);
+
+    if (genbuf[0] == 'e') {
+	int             aborted;
+
+	setutmpmode(EDITPLAN);
+	setcalfile(genbuf, cuser.userid);
+	aborted = vedit(genbuf, NA, NULL);
+	if (aborted != -1)
+	    outs("行事曆更新完畢");
+	pressanykey();
+	return 0;
+    } else if (genbuf[0] == 'd') {
+	setcalfile(genbuf, cuser.userid);
+	unlink(genbuf);
+	outmsg("行事曆刪除完畢");
+    }
+    return 0;
+}
+
+/* 使用者填寫註冊表格 */
+static void
+getfield(int line, char *info, char *desc, char *buf, int len)
+{
+    char            prompt[STRLEN];
+    char            genbuf[200];
+
+    snprintf(genbuf, sizeof(genbuf), "原先設定：%-30.30s (%s)", buf, info);
+    move(line, 2);
+    outs(genbuf);
+    snprintf(prompt, sizeof(prompt), "%s：", desc);
+    if (getdata_str(line + 1, 2, prompt, genbuf, len, DOECHO, buf))
+	strcpy(buf, genbuf);
+    move(line, 2);
+    prints("%s：%s", desc, buf);
+    clrtoeol();
+}
+
+static int
+removespace(char *s)
+{
+    int             i, index;
+
+    for (i = 0, index = 0; s[i]; i++) {
+	if (s[i] != ' ')
+	    s[index++] = s[i];
+    }
+    s[index] = '\0';
+    return index;
+}
+
+static int
+ispersonalid(char *inid)
+{
+    char           *lst = "ABCDEFGHJKLMNPQRSTUVXYWZIO", id[20];
+    int             i, j, cksum;
+
+    strlcpy(id, inid, sizeof(id));
+    i = cksum = 0;
+    if (!isalpha(id[0]) && (strlen(id) != 10))
+	return 0;
+    if (!(id[1] == '1' || id[1] == '2'))
+	return 0;
+    id[0] = toupper(id[0]);
+
+    if( strcmp(id, "A100000001") == 0 ||
+	strcmp(id, "A200000003") == 0 ||
+	strcmp(id, "A123456789") == 0    )
+	return 0;
+    /* A->10, B->11, ..H->17,I->34, J->18... */
+    while (lst[i] != id[0])
+	i++;
+    i += 10;
+    id[0] = i % 10 + '0';
+    if (!isdigit(id[9]))
+	return 0;
+    cksum += (id[9] - '0') + (i / 10);
+
+    for (j = 0; j < 9; ++j) {
+	if (!isdigit(id[j]))
+	    return 0;
+	cksum += (id[j] - '0') * (9 - j);
+    }
+    return (cksum % 10) == 0;
+}
+
+static char    *
+getregcode(char *buf)
+{
+    sprintf(buf, "%s", crypt(cuser.userid, "02"));
+    return buf;
+}
+
+static int
+isvalidemail(char *email)
+{
+    FILE           *fp;
+    char            buf[128], *c;
+    if (!strstr(email, "@"))
+	return 0;
+    for (c = strstr(email, "@"); *c != 0; ++c)
+	if ('A' <= *c && *c <= 'Z')
+	    *c += 32;
+
+    if ((fp = fopen("etc/banemail", "r"))) {
+	while (fgets(buf, sizeof(buf), fp)) {
+	    if (buf[0] == '#')
+		continue;
+	    buf[strlen(buf) - 1] = 0;
+	    if (buf[0] == 'A' && strcmp(&buf[1], email) == 0)
+		return 0;
+	    if (buf[0] == 'P' && strstr(email, &buf[1]))
+		return 0;
+	    if (buf[0] == 'S' && strcmp(strstr(email, "@") + 1, &buf[1]) == 0)
+		return 0;
+	}
+	fclose(fp);
+    }
+    return 1;
+}
+
+static void
+toregister(char *email, char *genbuf, char *phone, char *career, char fore,
+	   char *ident, char *rname, char *addr, char *mobile)
+{
+    FILE           *fn;
+    char            buf[128];
+
+    sethomefile(buf, cuser.userid, "justify.wait");
+    if (phone[0] != 0) {
+	fn = fopen(buf, "w");
+	assert(fn);
+	fprintf(fn, "%s\n%s\n%s\n%s\n%s\n%s\n",
+		phone, career, ident, rname, addr, mobile);
+	fclose(fn);
+    }
+    clear();
+    stand_title("認證設定");
+    move(2, 0);
+    outs("您好, 本站認證認證的方式有:\n"
+	 "  1.若您有 E-Mail  (本站不接受 yahoo, kimo等免費的 E-Mail)\n"
+	 "    請輸入您的 E-Mail , 我們會寄發含有認證碼的信件給您\n"
+	 "    收到後請到 (U)ser => (R)egister 輸入認證碼, 即可通過認證\n"
+	 "\n"
+	 "  2.若您沒有 E-Mail , 請輸入 x ,\n"
+	 "    我們會由站長親自審核您的註冊資料\n"
+	 "************************************************************\n"
+	 "* 注意!                                                    *\n"
+	 "* 您應該會在輸入完成後十分鐘內收到認證信, 若過久未收到,    *\n"
+	 "* 或輸入後發生認證碼錯誤, 麻煩重填一次 E-Mail 或改手動認證 *\n"
+	 "************************************************************\n");
+
+#ifdef HAVEMOBILE
+    outs("  3.若您有手機門號且想採取手機簡訊認證的方式 , 請輸入 m \n"
+	 "    我們將會寄發含有認證碼的簡訊給您 \n"
+	 "    收到後請到(U)ser => (R)egister 輸入認證碼, 即可通過認證\n");
+#endif
+
+    while (1) {
+	email[0] = 0;
+	getfield(15, "身分認證用", "E-Mail Address", email, 50);
+	if (strcmp(email, "x") == 0 || strcmp(email, "X") == 0)
+	    break;
+#ifdef HAVEMOBILE
+	else if (strcmp(email, "m") == 0 || strcmp(email, "M") == 0) {
+	    if (isvalidmobile(mobile)) {
+		char            yn[3];
+		getdata(16, 0, "請再次確認您輸入的手機號碼正確嘛? [y/N]",
+			yn, sizeof(yn), LCECHO);
+		if (yn[0] == 'Y' || yn[0] == 'y')
+		    break;
+	    } else {
+		move(17, 0);
+		prints("指定的手機號碼不合法,"
+		       "若您無手機門號請選擇其他方式認證");
+	    }
+
+	}
+#endif
+	else if (isvalidemail(email)) {
+	    char            yn[3];
+	    getdata(16, 0, "請再次確認您輸入的 E-Mail 位置正確嘛? [y/N]",
+		    yn, sizeof(yn), LCECHO);
+	    if (yn[0] == 'Y' || yn[0] == 'y')
+		break;
+	} else {
+	    move(17, 0);
+	    prints("指定的 E-Mail 不合法,"
+		   "若您無 E-Mail 請輸入 x由站長手動認證");
+	}
+    }
+    strncpy(cuser.email, email, sizeof(cuser.email));
+    if (strcasecmp(email, "x") == 0) {	/* 手動認證 */
+	if ((fn = fopen(fn_register, "a"))) {
+	    fprintf(fn, "num: %d, %s", usernum, ctime(&now));
+	    fprintf(fn, "uid: %s\n", cuser.userid);
+	    fprintf(fn, "ident: %s\n", ident);
+	    fprintf(fn, "name: %s\n", rname);
+	    fprintf(fn, "career: %s\n", career);
+	    fprintf(fn, "addr: %s\n", addr);
+	    fprintf(fn, "phone: %s\n", phone);
+	    fprintf(fn, "mobile: %s\n", mobile);
+	    fprintf(fn, "email: %s\n", email);
+	    fprintf(fn, "----\n");
+	    fclose(fn);
+	}
+    } else {
+	char            tmp[IDLEN + 1];
+	if (phone != NULL) {
+#ifdef HAVEMOBILE
+	    if (strcmp(email, "m") == 0 || strcmp(email, "M") == 0)
+		sprintf(genbuf, sizeof(genbuf),
+			"%s:%s:<Mobile>", phone, career);
+	    else
+#endif
+		snprintf(genbuf, sizeof(genbuf),
+			 "%s:%s:<Email>", phone, career);
+	    strncpy(cuser.justify, genbuf, REGLEN);
+	    sethomefile(buf, cuser.userid, "justify");
+	}
+	snprintf(buf, sizeof(buf),
+		 "您在 " BBSNAME " 的認證碼: %s", getregcode(genbuf));
+	strlcpy(tmp, cuser.userid, sizeof(tmp));
+	strlcpy(cuser.userid, "SYSOP", sizeof(cuser.userid));
+#ifdef HAVEMOBILE
+	if (strcmp(email, "m") == 0 || strcmp(email, "M") == 0)
+	    mobile_message(mobile, buf);
+	else
+#endif
+	    bsmtp("etc/registermail", buf, email, 0);
+	strlcpy(cuser.userid, tmp, sizeof(cuser.userid));
+	outs("\n\n\n我們即將寄出認證信 (您應該會在 10 分鐘內收到)\n"
+	     "收到後您可以跟據認證信標題的認證碼\n"
+	     "輸入到 (U)ser -> (R)egister 後就可以完成註冊");
+	pressanykey();
+	return;
+    }
+}
+
+static int HaveRejectStr(char *s, char **rej)
+{
+    int     i;
+    char    *ptr, *rejectstr[] =
+	{"幹", "阿", "不", "你媽", "某", "笨", "呆", "..", "xx",
+	 "你管", "管我", "猜", "天才", "超人", 
+	 "ㄅ", "ㄆ", "ㄇ", "ㄈ", "ㄉ", "ㄊ", "ㄋ", "ㄌ", "ㄍ", "ㄎ", "ㄏ",
+	 "ㄐ", "ㄑ", "ㄒ", "ㄓ",/*"ㄔ",*/    "ㄕ", "ㄖ", "ㄗ", "ㄘ", "ㄙ",
+	 "ㄧ", "ㄨ", "ㄩ", "ㄚ", "ㄛ", "ㄜ", "ㄝ", "ㄞ", "ㄟ", "ㄠ", "ㄡ",
+	 "ㄢ", "ㄣ", "ㄤ", "ㄥ", "ㄦ", NULL};
+
+    if( rej != NULL )
+	for( i = 0 ; rej[i] != NULL ; ++i )
+	    if( strstr(s, rej[i]) )
+		return 1;
+
+    for( i = 0 ; rejectstr[i] != NULL ; ++i )
+	if( strstr(s, rejectstr[i]) )
+	    return 1;
+
+    if( (ptr = strstr(s, "ㄔ")) != NULL ){
+	if( ptr != s && strncmp(ptr - 1, "都市", 4) == 0 )
+	    return 0;
+	return 1;
+    }
+    return 0;
+}
+
+static char *isvalidname(char *rname)
+{
+    char    *rejectstr[] =
+	{"肥", "胖", "豬頭", "小白", "小明", "路人", "老王", "老李", "寶貝",
+	 "先生", "師哥", "老頭", "小姊", "小姐", "美女", "小妹", "大頭", 
+	 "公主", "同學", "寶寶", "公子", "大頭", NULL};
+    if( removespace(rname) && rname[0] < 0 &&
+	strlen(rname) >= 4 &&
+	!HaveRejectStr(rname, rejectstr) &&
+	strncmp(rname, "小", 2) != 0   && //起頭是「小」
+	strncmp(rname, "我是", 4) != 0 && //起頭是「我是」
+	!(strlen(rname) == 4 && strncmp(&rname[2], "兒", 2) == 0) &&
+	!(strlen(rname) >= 4 && strncmp(&rname[0], &rname[2], 2) == 0))
+	return NULL;
+    return "您的輸入不正確";
+}
+
+static char *isvalidcareer(char *career)
+{
+    char    *rejectstr[] = {NULL};
+    if (!(removespace(career) && career[0] < 0 && strlen(career) >= 6) ||
+	strcmp(career, "家裡") == 0 || HaveRejectStr(career, rejectstr) )
+	return "您的輸入不正確";
+    if (strcmp(&career[strlen(career) - 2], "大") == 0 ||
+	strcmp(&career[strlen(career) - 4], "大學") == 0 ) 
+	return "麻煩請加學校系所";
+    return NULL;
+}
+
+static char *isvalidaddr(char *addr)
+{
+    char    *rejectstr[] =
+	{"地球", "銀河", "火星", NULL};
+
+    if (!removespace(addr) || addr[0] > 0 || strlen(addr) < 15) 
+	return "這個地址並不合法";
+    if (strstr(addr, "信箱") != NULL || strstr(addr, "郵政") != NULL) 
+	return "抱歉我們不接受郵政信箱";
+    if ((strstr(addr, "市") == NULL && strstr(addr, "巿") == NULL &&
+	 strstr(addr, "縣") == NULL && strstr(addr, "室") == NULL) ||
+	HaveRejectStr(addr, rejectstr)             ||
+	strcmp(&addr[strlen(addr) - 2], "段") == 0 ||
+	strcmp(&addr[strlen(addr) - 2], "路") == 0 ||
+	strcmp(&addr[strlen(addr) - 2], "巷") == 0 ||
+	strcmp(&addr[strlen(addr) - 2], "弄") == 0 ||
+	strcmp(&addr[strlen(addr) - 2], "區") == 0 ||
+	strcmp(&addr[strlen(addr) - 2], "市") == 0 ||
+	strcmp(&addr[strlen(addr) - 2], "街") == 0    )
+	return "這個地址並不合法";
+    return NULL;
+}
+
+static char *isvalidphone(char *phone)
+{
+    if (strstr(phone, "(") || strstr(phone, ")") || strstr(phone, "-")){
+	return "電話請不加 ( ) - 符號";
+    }
+    if (!removespace(phone) || phone[0] != '0' ||
+	strlen(phone) < 9 || phone[1] == '0' ||
+	strstr(phone, "00000000") != NULL ||
+	strstr(phone, "22222222") != NULL    ) {
+	return "這個電話號碼並不合法(請含區碼)" ;
+    }
+    return NULL;
+}
+
+int
+u_register(void)
+{
+    char            rname[21], addr[51], ident[12], mobile[21];
+    char            fore[2];
+    char            phone[21], career[41], email[51], birthday[9], sex_is[2],
+                    year, mon, day;
+    char            inregcode[14], regcode[50];
+    char            ans[3], *ptr, *errcode;
+    char            genbuf[200];
+    FILE           *fn;
+
+    if (cuser.userlevel & PERM_LOGINOK) {
+	outs("您的身份確認已經完成，不需填寫申請表");
+	return XEASY;
+    }
+    if ((fn = fopen(fn_register, "r"))) {
+	while (fgets(genbuf, STRLEN, fn)) {
+	    if ((ptr = strchr(genbuf, '\n')))
+		*ptr = '\0';
+	    if (strncmp(genbuf, "uid: ", 5) == 0 &&
+		strcmp(genbuf + 5, cuser.userid) == 0) {
+		fclose(fn);
+		outs("您的註冊申請單尚在處理中，請耐心等候");
+		return XEASY;
+	    }
+	}
+	fclose(fn);
+    }
+    strlcpy(ident, cuser.ident, sizeof(ident));
+    strlcpy(rname, cuser.realname, sizeof(rname));
+    strlcpy(addr, cuser.address, sizeof(addr));
+    strlcpy(email, cuser.email, sizeof(email));
+    snprintf(mobile, sizeof(mobile), "0%09d", cuser.mobile);
+    if (cuser.month == 0 && cuser.day && cuser.year == 0)
+	birthday[0] = 0;
+    else
+	snprintf(birthday, sizeof(birthday), "%02i/%02i/%02i",
+		 cuser.month, cuser.day, cuser.year % 100);
+    sex_is[0] = (cuser.sex % 8) + '1';
+    sex_is[1] = 0;
+    career[0] = phone[0] = '\0';
+    sethomefile(genbuf, cuser.userid, "justify.wait");
+    if ((fn = fopen(genbuf, "r"))) {
+	fgets(phone, 21, fn);
+	phone[strlen(phone) - 1] = 0;
+	fgets(career, 41, fn);
+	career[strlen(career) - 1] = 0;
+	fgets(ident, 12, fn);
+	ident[strlen(ident) - 1] = 0;
+	fgets(rname, 21, fn);
+	rname[strlen(rname) - 1] = 0;
+	fgets(addr, 51, fn);
+	addr[strlen(addr) - 1] = 0;
+	fgets(mobile, 21, fn);
+	mobile[strlen(mobile) - 1] = 0;
+	fclose(fn);
+    }
+
+    if (cuser.year != 0 &&	/* 已經第一次填過了~ ^^" */
+	strcmp(cuser.email, "x") != 0 &&	/* 上次手動認證失敗 */
+	strcmp(cuser.email, "X") != 0) {
+	clear();
+	stand_title("EMail認證");
+	move(2, 0);
+	prints("%s(%s) 您好，請輸入您的認證碼。\n"
+	       "或您可以輸入 x來重新填寫 E-Mail 或改由站長手動認證",
+	       cuser.userid, cuser.username);
+	inregcode[0] = 0;
+	getdata(10, 0, "您的輸入: ", inregcode, sizeof(inregcode), DOECHO);
+	if (strcmp(inregcode, getregcode(regcode)) == 0) {
+	    int             unum;
+	    if ((unum = getuser(cuser.userid)) == 0) {
+		outs("系統錯誤，查無此人\n\n");
+		pressanykey();
+		u_exit("getuser error");
+		exit(0);
+	    }
+	    mail_muser(cuser, "[註冊成功\囉]", "etc/registeredmail");
+	    if(cuser.uflag2 & FOREIGN)
+		mail_muser(cuser, "[出入境管理局]", "etc/foreign_welcome");
+	    cuser.userlevel |= (PERM_LOGINOK | PERM_POST);
+	    prints("\n註冊成功\, 重新上站後將取得完整權限\n"
+		   "請按下任一鍵跳離後重新上站~ :)");
+	    sethomefile(genbuf, cuser.userid, "justify.wait");
+	    unlink(genbuf);
+	    pressanykey();
+	    u_exit("registed");
+	    exit(0);
+	    return QUIT;
+	} else if (strcmp(inregcode, "x") != 0 && strcmp(inregcode, "X") != 0) {
+	    outs("認證碼錯誤\n");
+	    pressanykey();
+	}
+	toregister(email, genbuf, phone, career, fore[0], ident, rname, addr, mobile);
+	return FULLUPDATE;
+    }
+
+    getdata(b_lines - 1, 0, "您確定要填寫註冊單嗎(Y/N)？[N] ",
+	    ans, sizeof(ans), LCECHO);
+    if (ans[0] != 'y')
+	return FULLUPDATE;
+
+    move(2, 0);
+    clrtobot();
+    while (1) {
+	clear();
+	move(1, 0);
+	prints("%s(%s) 您好，請據實填寫以下的資料:",
+	       cuser.userid, cuser.username);
+#ifdef FOREIGN_REG
+	getfield(2, "Y/n", "是否為本國籍？", fore, 2);
+    	if (fore[0] == 'n')
+	    fore[0] |= FOREIGN;
+	else
+	    fore[0] = 0;
+	if (!fore[0]){
+#endif
+	    while( 1 ){
+		getfield(3, "D123456789", "身分證號", ident, 11);
+		if ('a' <= ident[0] && ident[0] <= 'z')
+		    ident[0] -= 32;
+		if( ispersonalid(ident) )
+		    break;
+		vmsg("您的輸入不正確(若有問題麻煩至SYSOP板)");
+	    }
+#ifdef FOREIGN_REG
+	}
+	else{
+	    int i;
+	    while( 1 ){
+		getfield(3, "0123456789", "護照號碼", ident, 11);
+		move(5, 2);
+		prints("注意：護照號碼有誤者將無法取得進一步的權限！");
+		getdata(6, 0, "是否確定(Y/N)", ans, sizeof(ans), LCECHO);
+		if (ans[0] == 'y' || ans[0] == 'Y')
+		    break;
+		vmsg("請重新輸入(若有問題麻煩至SYSOP板)");
+	    }
+	    for(i = 0; ans[i] != 0; i++)
+		if ('a' <= ident[0] && ident[0] <= 'z')
+		    ident[0] -= 32;
+	    if( ispersonalid(ident) ){
+		fore[0] = 0;
+		vmsg("您的身份已更改為本國籍");
+	    }
+	}
+#endif
+	while (1) {
+	    getfield(8, "請用中文", "真實姓名", rname, 20);
+	    if( (errcode = isvalidname(rname)) == NULL )
+		break;
+	    else
+		vmsg(errcode);
+	}
+
+	move(7, 0);
+	prints("麻煩您盡量詳細的填寫您的服務單位, 大專院校請麻煩"
+	       "加系所, 公司單位請加職稱");
+	while (1) {
+	    getfield(9, "學校(含\033[1;33m系所年級\033[m)或單位職稱",
+		     "服務單位", career, 40);
+	    if( (errcode = isvalidcareer(career)) == NULL )
+		break;
+	    else
+		vmsg(errcode);
+	}
+	while (1) {
+	    getfield(11, "含\033[1;33m縣市\033[m及門寢號碼"
+		     "(台北請加\033[1;33m行政區\033[m)",
+		     "目前住址", addr, 50);
+	    if( (errcode = isvalidaddr(addr)) == NULL )
+		break;
+	    else
+		vmsg(errcode);
+	}
+	while (1) {
+	    getfield(13, "不加-(), 包括長途區號", "連絡電話", phone, 11);
+	    if( (errcode = isvalidphone(phone)) == NULL )
+		break;
+	    else
+		vmsg(errcode);
+	}
+	getfield(15, "只輸入數字 如:0912345678 (可不填)",
+		 "手機號碼", mobile, 20);
+	while (1) {
+	    int             len;
+
+	    getfield(17, "月月/日日/西元 如:09/27/76", "生日", birthday, 9);
+	    len = strlen(birthday);
+	    if (!len) {
+		snprintf(birthday, sizeof(birthday), "%02i/%02i/%02i",
+			 cuser.month, cuser.day, cuser.year % 100);
+		mon = cuser.month;
+		day = cuser.day;
+		year = cuser.year;
+	    } else if (len == 8) {
+		mon = (birthday[0] - '0') * 10 + (birthday[1] - '0');
+		day = (birthday[3] - '0') * 10 + (birthday[4] - '0');
+		year = (birthday[6] - '0') * 10 + (birthday[7] - '0');
+	    } else{
+		vmsg("您的輸入不正確");
+		continue;
+	    }
+	    if (mon > 12 || mon < 1 || day > 31 || day < 1 || year > 90 ||
+		year < 40){
+		vmsg("您的輸入不正確");
+		continue;
+	    }
+	    break;
+	}
+	getfield(19, "1.葛格 2.姐接 ", "性別", sex_is, 2);
+	getdata(20, 0, "以上資料是否正確(Y/N)？(Q)取消註冊 [N] ",
+		ans, sizeof(ans), LCECHO);
+	if (ans[0] == 'q')
+	    return 0;
+	if (ans[0] == 'y')
+	    break;
+    }
+    strlcpy(cuser.ident, ident, sizeof(cuser.ident));
+    strlcpy(cuser.realname, rname, sizeof(cuser.realname));
+    strlcpy(cuser.address, addr, sizeof(cuser.address));
+    strlcpy(cuser.email, email, sizeof(cuser.email));
+    cuser.mobile = atoi(mobile);
+    cuser.sex = (sex_is[0] - '1') % 8;
+    cuser.month = mon;
+    cuser.day = day;
+    cuser.year = year;
+#ifdef FOREIGN_REG
+    if (fore[0])
+	cuser.uflag2 |= FOREIGN;
+    else
+	cuser.uflag2 &= ~FOREIGN;
+#endif
+    trim(career);
+    trim(addr);
+    trim(phone);
+
+    toregister(email, genbuf, phone, career, fore[0], ident, rname, addr, mobile);
+
+    clear();
+    move(9, 3);
+    prints("最後Post一篇\033[32m自我介紹文章\033[m給大家吧，"
+	   "告訴所有老骨頭\033[31m我來啦^$。\\n\n\n\n");
+    pressanykey();
+    cuser.userlevel |= PERM_POST;
+    brc_initial("WhoAmI");
+    set_board();
+    do_post();
+    cuser.userlevel &= ~PERM_POST;
+    return 0;
+}
+
+/* 列出所有註冊使用者 */
+static int      usercounter, totalusers;
+static ushort   u_list_special;
+
+static int
+u_list_CB(userec_t * uentp)
+{
+    static int      i;
+    char            permstr[8], *ptr;
+    register int    level;
+
+    if (uentp == NULL) {
+	move(2, 0);
+	clrtoeol();
+	prints("\033[7m  使用者代號   %-25s   上站  文章  %s  "
+	       "最近光臨日期     \033[0m\n",
+	       "綽號暱稱",
+	       HAS_PERM(PERM_SEEULEVELS) ? "等級" : "");
+	i = 3;
+	return 0;
+    }
+    if (bad_user_id(uentp->userid))
+	return 0;
+
+    if ((uentp->userlevel & ~(u_list_special)) == 0)
+	return 0;
+
+    if (i == b_lines) {
+	prints("\033[34;46m  已顯示 %d/%d 人(%d%%)  \033[31;47m  "
+	       "(Space)\033[30m 看下一頁  \033[31m(Q)\033[30m 離開  \033[m",
+	       usercounter, totalusers, usercounter * 100 / totalusers);
+	i = igetch();
+	if (i == 'q' || i == 'Q')
+	    return QUIT;
+	i = 3;
+    }
+    if (i == 3) {
+	move(3, 0);
+	clrtobot();
+    }
+    level = uentp->userlevel;
+    strlcpy(permstr, "----", sizeof(permstr));
+    if (level & PERM_SYSOP)
+	permstr[0] = 'S';
+    else if (level & PERM_ACCOUNTS)
+	permstr[0] = 'A';
+    else if (level & PERM_DENYPOST)
+	permstr[0] = 'p';
+
+    if (level & (PERM_BOARD))
+	permstr[1] = 'B';
+    else if (level & (PERM_BM))
+	permstr[1] = 'b';
+
+    if (level & (PERM_XEMPT))
+	permstr[2] = 'X';
+    else if (level & (PERM_LOGINOK))
+	permstr[2] = 'R';
+
+    if (level & (PERM_CLOAK | PERM_SEECLOAK))
+	permstr[3] = 'C';
+
+    ptr = (char *)Cdate(&uentp->lastlogin);
+    ptr[18] = '\0';
+    prints("%-14s %-27.27s%5d %5d  %s  %s\n",
+	   uentp->userid,
+	   uentp->username,
+	   uentp->numlogins, uentp->numposts,
+	   HAS_PERM(PERM_SEEULEVELS) ? permstr : "", ptr);
+    usercounter++;
+    i++;
+    return 0;
+}
+
+int
+u_list()
+{
+    char            genbuf[3];
+
+    setutmpmode(LAUSERS);
+    u_list_special = usercounter = 0;
+    totalusers = SHM->number;
+    if (HAS_PERM(PERM_SEEULEVELS)) {
+	getdata(b_lines - 1, 0, "觀看 [1]特殊等級 (2)全部？",
+		genbuf, 3, DOECHO);
+	if (genbuf[0] != '2')
+	    u_list_special = PERM_BASIC | PERM_CHAT | PERM_PAGE | PERM_POST | PERM_LOGINOK | PERM_BM;
+    }
+    u_list_CB(NULL);
+    if (passwd_apply(u_list_CB) == -1) {
+	outs(msg_nobody);
+	return XEASY;
+    }
+    move(b_lines, 0);
+    clrtoeol();
+    prints("\033[34;46m  已顯示 %d/%d 的使用者(系統容量無上限)  "
+	   "\033[31;47m  (請按任意鍵繼續)  \033[m", usercounter, totalusers);
+    egetch();
+    return 0;
+}
diff --git a/pttbbs/mbbsd/var.c b/pttbbs/mbbsd/var.c
new file mode 100644
index 00000000..9c2c443c
--- /dev/null
+++ b/pttbbs/mbbsd/var.c
@@ -0,0 +1,635 @@
+/* $Id$ */
+#define INCLUDE_VAR_H
+#include "bbs.h"
+
+char           *str_permid[] = {
+    "基本權力",			/* PERM_BASIC */
+    "進入聊天室",		/* PERM_CHAT */
+    "找人聊天",			/* PERM_PAGE */
+    "發表文章",			/* PERM_POST */
+    "註冊程序認證",		/* PERM_LOGINOK */
+    "信件無上限",		/* PERM_MAILLIMIT */
+    "隱身術",			/* PERM_CLOAK */
+    "看見忍者",			/* PERM_SEECLOAK */
+    "永久保留帳號",		/* PERM_XEMPT */
+    "站長隱身術",		/* PERM_DENYPOST */
+    "板主",			/* PERM_BM */
+    "帳號總管",			/* PERM_ACCOUNTS */
+    "聊天室總管",		/* PERM_CHATCLOAK */
+    "看板總管",			/* PERM_BOARD */
+    "站長",			/* PERM_SYSOP */
+    "BBSADM",			/* PERM_POSTMARK */
+    "不列入排行榜",		/* PERM_NOTOP */
+    "違法通緝中",		/* PERM_VIOLATELAW */
+    "不接受站外的信",		/* PERM_ */
+    "沒想到",			/* PERM_ */
+    "視覺站長",			/* PERM_VIEWSYSOP */
+    "觀察使用者行蹤",		/* PERM_LOGUSER */
+    "精華區總整理權",		/* PERM_Announce */
+    "公關組",			/* PERM_RELATION */
+    "特務組",			/* PERM_SMG */
+    "程式組",			/* PERM_PRG */
+    "活動組",			/* PERM_ACTION */
+    "美工組",			/* PERM_PAINT */
+    "立法組",			/* PERM_LAW */
+    "小組長",			/* PERM_SYSSUBOP */
+    "一級主管",			/* PERM_LSYSOP */
+    "Ｐｔｔ"			/* PERM_PTT */
+};
+
+char           *str_permboard[] = {
+    "不可 Zap",			/* BRD_NOZAP */
+    "不列入統計",		/* BRD_NOCOUNT */
+    "不轉信",			/* BRD_NOTRAN */
+    "群組板",			/* BRD_GROUPBOARD */
+    "隱藏板",			/* BRD_HIDE */
+    "限制(不需設定)",		/* BRD_POSTMASK */
+    "匿名板",			/* BRD_ANONYMOUS */
+    "預設匿名板",		/* BRD_DEFAULTANONYMOUS */
+    "違法改進中看板",		/* BRD_BAD */
+    "連署專用看板",		/* BRD_VOTEBOARD */
+    "已警告要廢除",		/* BRD_WARNEL */
+    "熱門看板群組",		/* BRD_TOP */
+    "不可推薦",                 /* BRD_NORECOMMEND */
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+    "沒想到",
+};
+
+int             usernum;
+int             currmode = 0;
+int             curredit = 0;
+int             showansi = 1;
+int             paste_level;
+int             currbid;
+char            quote_file[80] = "\0";
+char            quote_user[80] = "\0";
+char            paste_title[STRLEN];
+char            paste_path[256];
+char            currtitle[TTLEN + 1] = "\0";
+char            vetitle[TTLEN + 1] = "\0";
+char            currowner[IDLEN + 2] = "\0";
+char            currauthor[IDLEN + 2] = "\0";
+char            currfile[FNLEN];/* current file name @ bbs.c mail.c */
+char            currboard[IDLEN + 2];
+char            currBM[IDLEN * 3 + 10];
+char            reset_color[4] = "\033[m";
+char            margs[64] = "\0";	/* main argv list */
+pid_t           currpid;	/* current process ID */
+time_t          login_start_time;
+time_t          start_time;
+time_t          paste_time;
+userec_t        cuser;		/* current user structure */
+userec_t        xuser;		/* lookup user structure */
+crosspost_t     postrecord;	/* anti cross post */
+unsigned int    currbrdattr;
+unsigned int    currstat;
+unsigned char   currfmode;	/* current file mode */
+
+/* global string variables */
+/* filename */
+
+char           *fn_passwd = FN_PASSWD;
+char           *fn_board = FN_BOARD;
+char           *fn_note_ans = FN_NOTE_ANS;
+char           *fn_register = "register.new";
+char           *fn_plans = "plans";
+char           *fn_writelog = "writelog";
+char           *fn_talklog = "talklog";
+char           *fn_overrides = FN_OVERRIDES;
+char           *fn_reject = FN_REJECT;
+char           *fn_canvote = FN_CANVOTE;
+char           *fn_notes = "notes";
+char           *fn_water = FN_WATER;
+char           *fn_visable = FN_VISABLE;
+char           *fn_mandex = "/.Names";
+char           *fn_proverb = "proverb";
+
+/* are descript in userec.loginview */
+
+char           *loginview_file[NUMVIEWFILE][2] = {
+    {FN_NOTE_ANS, "酸甜苦辣流言板"},
+    {FN_TOPSONG, "點歌排行榜"},
+    {"etc/topusr", "十大排行榜"},
+    {"etc/topusr100", "百大排行榜"},
+    {"etc/birth.today", "今日壽星"},
+    {"etc/weather.tmp", "天氣快報"},
+    {"etc/stock.tmp", "股市快報"},
+    {"etc/day", "今日十大話題"},
+    {"etc/week", "一週五十大話題"},
+    {"etc/today", "今天上站人次"},
+    {"etc/yesterday", "昨日上站人次"},
+    {"etc/history", "歷史上的今天"},
+    {"etc/topboardman", "精華區排行榜"},
+    {"etc/topboard.tmp", "看板人氣排行榜"}
+};
+
+/* message */
+char           *msg_seperator = MSG_SEPERATOR;
+char           *msg_mailer = MSG_MAILER;
+char           *msg_shortulist = MSG_SHORTULIST;
+
+char           *msg_cancel = MSG_CANCEL;
+char           *msg_usr_left = MSG_USR_LEFT;
+char           *msg_nobody = MSG_NOBODY;
+
+char           *msg_sure_ny = MSG_SURE_NY;
+char           *msg_sure_yn = MSG_SURE_YN;
+
+char           *msg_bid = MSG_BID;
+char           *msg_uid = MSG_UID;
+
+char           *msg_del_ok = MSG_DEL_OK;
+char           *msg_del_ny = MSG_DEL_NY;
+
+char           *msg_fwd_ok = MSG_FWD_OK;
+char           *msg_fwd_err1 = MSG_FWD_ERR1;
+char           *msg_fwd_err2 = MSG_FWD_ERR2;
+
+char           *err_board_update = ERR_BOARD_UPDATE;
+char           *err_bid = ERR_BID;
+char           *err_uid = ERR_UID;
+char           *err_filename = ERR_FILENAME;
+
+char           *str_mail_address = "." BBSUSER "@" MYHOSTNAME;
+char           *str_new = "new";
+char           *str_reply = "Re: ";
+char           *str_space = " \t\n\r";
+char           *str_sysop = "SYSOP";
+char           *str_author1 = STR_AUTHOR1;
+char           *str_author2 = STR_AUTHOR2;
+char           *str_post1 = STR_POST1;
+char           *str_post2 = STR_POST2;
+char           *BBSName = BBSNAME;
+
+/* #define MAX_MODES 78 */
+/* MAX_MODES is defined in common.h */
+
+char           *ModeTypeTable[MAX_MODES] = {
+    "發呆",			/* IDLE */
+    "主選單",			/* MMENU */
+    "系統維護",			/* ADMIN */
+    "郵件選單",			/* MAIL */
+    "交談選單",			/* TMENU */
+    "使用者選單",		/* UMENU */
+    "XYZ 選單",			/* XMENU */
+    "分類看板",			/* CLASS */
+    "Play選單",			/* PMENU */
+    "編特別名單",		/* NMENU */
+    "Ｐtt量販店",		/* PSALE */
+    "發表文章",			/* POSTING */
+    "看板列表",			/* READBRD */
+    "閱\讀文章",		/* READING */
+    "新文章列表",		/* READNEW */
+    "選擇看板",			/* SELECT */
+    "讀信",			/* RMAIL */
+    "寫信",			/* SMAIL */
+    "聊天室",			/* CHATING */
+    "其他",			/* XMODE */
+    "尋找好友",			/* FRIEND */
+    "上線使用者",		/* LAUSERS */
+    "使用者名單",		/* LUSERS */
+    "追蹤站友",			/* MONITOR */
+    "呼叫",			/* PAGE */
+    "查詢",			/* TQUERY */
+    "交談",			/* TALK  */
+    "編名片檔",			/* EDITPLAN */
+    "編簽名檔",			/* EDITSIG */
+    "投票中",			/* VOTING */
+    "設定資料",			/* XINFO */
+    "寄給站長",			/* MSYSOP */
+    "汪汪汪",			/* WWW */
+    "打大老二",			/* BIG2 */
+    "回應",			/* REPLY */
+    "被水球打中",		/* HIT */
+    "水球準備中",		/* DBACK */
+    "筆記本",			/* NOTE */
+    "編輯文章",			/* EDITING */
+    "發系統通告",		/* MAILALL */
+    "摸兩圈",			/* MJ */
+    "電腦擇友",			/* P_FRIEND */
+    "上站途中",			/* LOGIN */
+    "查字典",			/* DICT */
+    "打橋牌",			/* BRIDGE */
+    "找檔案",			/* ARCHIE */
+    "打地鼠",			/* GOPHER */
+    "看News",			/* NEWS */
+    "情書產生器",		/* LOVE */
+    "編輯輔助器",		/* EDITEXP */
+    "申請IP位址",		/* IPREG */
+    "網管辦公中",		/* NetAdm */
+    "虛擬實業坊",		/* DRINK */
+    "計算機",			/* CAL */
+    "編輯座右銘",		/* PROVERB */
+    "公佈欄",			/* ANNOUNCE */
+    "刻流言板",			/* EDNOTE */
+    "英漢翻譯機",		/* CDICT */
+    "檢視自己物品",		/* LOBJ */
+    "點歌",			/* OSONG */
+    "正在玩小雞",		/* CHICKEN */
+    "玩彩券",			/* TICKET */
+    "猜數字",			/* GUESSNUM */
+    "遊樂場",			/* AMUSE */
+    "黑白棋",			/* OTHELLO */
+    "玩骰子",			/* DICE */
+    "發票對獎",			/* VICE */
+    "逼逼摳ing",		/* BBCALL */
+    "繳罰單",			/* CROSSPOST */
+    "五子棋",			/* M_FIVE */
+    "21點ing",			/* JACK_CARD */
+    "10點半ing",		/* TENHALF */
+    "超級九十九",		/* CARD_99 */
+    "火車查詢",			/* RAIL_WAY */
+    "搜尋選單",			/* SREG */
+    "下象棋",			/* CHC */
+    "下暗琪",			/* DARK */
+    "NBA大猜測"			/* TMPJACK */
+    "Ｐtt查榜系統",		/* JCEE */
+    "重編文章"			/* REEDIT */
+    "部落格",                   /* BLOGGING */
+    "", /* for future usage */
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    "",
+    ""
+};
+
+/* indict.c */
+char            dict[41], database[41];
+
+/* term.c */
+int             b_lines = 23;
+int             t_lines = 24;
+int             p_lines = 20;
+int             t_columns = 80;
+char           *strtstandout = "\33[7m";
+int             strtstandoutlen = 4;
+char           *endstandout = "\33[m";
+int             endstandoutlen = 3;
+char           *clearbuf = "\33[H\33[J";
+int             clearbuflen = 6;
+char           *cleolbuf = "\33[K";
+int             cleolbuflen = 3;
+char           *scrollrev = "\33M";
+int             scrollrevlen = 2;
+int             automargins = 1;
+
+/* io.c */
+time_t          now;
+int             KEY_ESC_arg;
+int             watermode = -1;
+int             wmofo = -1;
+/*
+ * WATERMODE(WATER_ORIG) | WATERMODE(WATER_NEW): Ptt 水球回顧 e = -1
+ * 沒在回水球 = 0   在回上一顆水球  (Ctrl-R) > 0   在回前 n 顆水球 (Ctrl-R
+ * Ctrl-R)
+ * 
+ * WATERMODE(WATER_OFO)  by in2 wmofo     = -1  沒在回水球 = 0   正在回水球 = 1
+ * 回水球間又接到水球 wmofo     >=0 時收到水球將只顯示, 不會到water[]裡,
+ * 待回完水球的時候一次寫入.
+ */
+
+
+/* cache.c */
+int             numboards = -1;
+int            *GLOBALVAR;
+SHM_t          *SHM;
+boardheader_t  *bcache;
+userinfo_t     *currutmp;
+
+/* board.c */
+int             class_bid = 0;
+int             brc_num;
+int             brc_list[BRC_MAXNUM];
+
+/* read.c */
+int             TagNum;			/* tag's number */
+TagItem         TagList[MAXTAGS];	/* ascending list */
+int		TagBoard = -1;		/* TagBoard = 0 : user's mailbox
+					   TagBoard > 0 : bid where last taged*/
+char            currdirect[64];
+
+/* edit.c */
+char            save_title[STRLEN];
+
+/* bbs.c */
+time_t          board_visit_time;
+char            real_name[IDLEN + 1];
+int             local_article;
+
+/* mbbsd.c */
+int             talkrequest = NA;
+char            fromhost[STRLEN] = "\0";
+char            water_usies = 0;
+FILE           *fp_writelog = NULL;
+water_t         water[6], *swater[6], *water_which = &water[0];
+
+/* announce.c */
+char            trans_buffer[256];
+
+/* chc_play.c */
+rc_t            chc_from, chc_to, chc_select, chc_cursor;
+int             chc_lefttime;
+int             chc_my, chc_turn, chc_selected, chc_firststep;
+char            chc_warnmsg[64], *chc_mateid;
+int             chc_hiswin, chc_hislose, chc_histie;
+
+/* screen.c */
+screenline_t   *big_picture = NULL;
+unsigned char   scr_lns;
+unsigned short  scr_cols;
+char            roll;
+
+/* gomo.c */
+char            ku[BRDSIZ][BRDSIZ];
+unsigned char  *pat, *adv;
+unsigned char  *pat_gomoku /* [1954] */ =
+ /* 0 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 16 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x44\x55\xcc\x00\x00\x00\x00"
+ /* 32 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x44\x00\x33\x00\x00\x00"
+ /* 48 */ "\x00\x22\x00\x55\x00\x22\x00\x00\x00\x44\x33\x66\x55\xcc\x33\x66"
+ /* 64 */ "\x55\xcc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00"
+ /* 80 */ "\x55\x00\x55\x00\x05\x00\x55\x02\x46\x00\xaa\x00\x00\x55\x00\x55"
+ /* 96 */ "\x00\x05\x00\x55\x00\x05\x00\x55\x00\x00\x44\xcc\x44\xcc\x05\xbb"
+ /* 112 */ "\x44\xcc\x05\xbb\x44\xcc\x05\xbb\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 128 */ "\x00\x00\x33\x00\x00\x00\x44\x00\x00\x00\x00\x00\x33\x00\x44\x00"
+ /* 144 */ "\x33\x22\x66\x00\x55\x55\xcc\x00\x33\x00\x00\x00\x00\x22\x00\x55"
+ /* 160 */ "\x00\x22\x00\x55\x00\x02\x00\x05\x00\x22\x00\x00\x33\x44\x33\x66"
+ /* 176 */ "\x55\xcc\x33\x66\x55\xcc\x33\x46\x05\xbb\x33\x66\x55\xcc\x00\x00"
+ /* 192 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x44\x00\x00\x00"
+ /* 208 */ "\x33\x00\x00\x22\x55\x22\x55\x02\x05\x22\x55\x02\x46\x22\xaa\x55"
+ /* 224 */ "\xcc\x22\x55\x02\x46\x22\xaa\x00\x22\x55\x22\x55\x02\x05\x22\x55"
+ /* 240 */ "\x02\x05\x22\x55\x02\x05\x22\x55\x02\x05\x22\x55\x02\x44\x66\xcc"
+ /* 256 */ "\x66\xcc\x46\xbb\x66\xcc\x46\xbb\x66\xcc\x46\xbb\x66\xcc\x46\xbb"
+ /* 272 */ "\x66\xcc\x46\xbb\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00"
+ /* 288 */ "\x00\x00\x44\x00\x00\x00\x33\x00\x22\x22\x66\x00\x00\x00\x00\x00"
+ /* 304 */ "\x03\x00\x44\x00\x33\x22\x66\x00\x55\x55\xcc\x00\x33\x22\x66\x00"
+ /* 320 */ "\x55\x55\xcc\x00\x03\x00\x00\x00\x00\x02\x00\x55\x00\x02\x00\x55"
+ /* 336 */ "\x00\x02\x00\x05\x00\x02\x00\x55\x00\x02\x02\x46\x00\x02\x00\x55"
+ /* 352 */ "\x55\x05\x55\x46\xaa\xcc\x55\x46\xaa\xcc\x55\x06\x5a\xbb\x55\x46"
+ /* 368 */ "\xaa\xcc\x55\x06\x5a\xbb\x55\x46\xaa\xcc\x00\x00\x00\x00\x00\x00"
+ /* 384 */ "\x00\x00\x00\x00\x03\x00\x00\x00\x44\x00\x00\x00\x33\x00\x22\x22"
+ /* 400 */ "\x66\x00\x00\x00\x55\x00\x55\x55\x05\x55\x05\x55\x05\x55\x05\x55"
+ /* 416 */ "\x46\x55\x5a\xaa\xcc\x55\x05\x55\x46\x55\x5a\xaa\xcc\x55\x05\x55"
+ /* 432 */ "\x06\x55\x0a\x55\x55\x05\x55\x05\x55\x05\x55\x05\x55\x05\x55\x05"
+ /* 448 */ "\x55\x05\x55\x05\x55\x05\x55\x05\x55\x46\x55\x05\x55\x5a\x55\x5a"
+ /* 464 */ "\xaa\xcc\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb"
+ /* 480 */ "\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb"
+ /* 496 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x44\x00"
+ /* 512 */ "\x00\x00\x33\x00\x22\x22\x66\x00\x00\x00\x55\x00\x55\x55\xcc\x00"
+ /* 528 */ "\x00\x00\x00\x00\x33\x00\x44\x00\x33\x22\x66\x00\x55\x55\xcc\x00"
+ /* 544 */ "\x33\x22\x66\x00\x55\x55\xcc\x00\x33\x02\x46\x00\x05\x05\xbb\x00"
+ /* 560 */ "\x33\x00\x00\x00\x00\x22\x00\x55\x00\x22\x00\x55\x00\x02\x00\x05"
+ /* 576 */ "\x00\x22\x00\x55\x00\x02\x02\x46\x00\x22\x00\xaa\x00\x55\x55\xcc"
+ /* 592 */ "\x00\x22\x00\x00\x33\x44\x33\x66\x55\xcc\x33\x66\x55\xcc\x33\x46"
+ /* 608 */ "\x05\xbb\x33\x66\x55\xcc\x33\x46\x05\xbb\x33\x66\x55\xcc\x33\x46"
+ /* 624 */ "\x05\xbb\x33\x66\x55\xcc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 640 */ "\x03\x00\x00\x00\x44\x00\x00\x00\x33\x00\x22\x22\x66\x00\x00\x00"
+ /* 656 */ "\x55\x00\x55\x55\xcc\x00\x00\x00\x33\x00\x00\x22\x55\x22\x55\x02"
+ /* 672 */ "\x05\x22\x55\x02\x46\x22\xaa\x55\xcc\x22\x55\x02\x46\x22\xaa\x55"
+ /* 688 */ "\xcc\x22\x55\x02\x06\x22\x5a\x05\xbb\x22\x55\x02\x46\x22\xaa\x00"
+ /* 704 */ "\x22\x55\x22\x55\x02\x05\x22\x55\x02\x05\x22\x55\x02\x05\x22\x55"
+ /* 720 */ "\x02\x05\x22\x55\x02\x46\x22\x55\x02\x5a\x22\xaa\x55\xcc\x22\x55"
+ /* 736 */ "\x02\x05\x22\x55\x02\x44\x66\xcc\x66\xcc\x46\xbb\x66\xcc\x46\xbb"
+ /* 752 */ "\x66\xcc\x46\xbb\x66\xcc\x46\xbb\x66\xcc\x46\xbb\x66\xcc\x46\xbb"
+ /* 768 */ "\x66\xcc\x46\xbb\x66\xcc\x46\xbb\x66\xcc\x46\xbb\x00\x00\x00\x00"
+ /* 784 */ "\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x44\x00\x00\x00\x33\x00"
+ /* 800 */ "\x22\x22\x66\x00\x00\x00\x55\x00\x55\x55\xcc\x00\x00\x00\x33\x00"
+ /* 816 */ "\x22\x22\x66\x00\x00\x00\x00\x00\x03\x00\x44\x00\x33\x22\x66\x00"
+ /* 832 */ "\x55\x55\xcc\x00\x33\x22\x66\x00\x55\x55\xcc\x00\x03\x02\x46\x00"
+ /* 848 */ "\x05\x05\xbb\x00\x33\x22\x66\x00\x55\x55\xcc\x00\x03\x00\x00\x00"
+ /* 864 */ "\x00\x02\x00\x55\x00\x02\x00\x55\x00\x02\x00\x05\x00\x02\x00\x55"
+ /* 880 */ "\x00\x02\x02\x46\x00\x02\x00\xaa\x00\x55\x55\xcc\x00\x02\x00\x55"
+ /* 896 */ "\x00\x02\x02\x46\x00\x02\x00\x55\x55\x05\x55\x46\xaa\xcc\x55\x46"
+ /* 912 */ "\xaa\xcc\x55\x06\x5a\xbb\x55\x46\xaa\xcc\x55\x06\x5a\xbb\x55\x46"
+ /* 928 */ "\xaa\xcc\x55\x06\x5a\xbb\x55\x46\xaa\xcc\x55\x06\x5a\xbb\x55\x46"
+ /* 944 */ "\xaa\xcc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00"
+ /* 960 */ "\x44\x00\x00\x00\x33\x00\x22\x22\x66\x00\x00\x00\x55\x00\x55\x55"
+ /* 976 */ "\xcc\x00\x00\x00\x33\x00\x22\x22\x66\x00\x00\x00\x55\x00\x55\x55"
+ /* 992 */ "\x05\x55\x05\x55\x05\x55\x05\x55\x46\x55\x5a\xaa\xcc\x55\x05\x55"
+ /* 1008 */ "\x46\x55\x5a\xaa\xcc\x55\x05\x55\x06\x55\x0a\x5a\xbb\x55\x05\x55"
+ /* 1024 */ "\x46\x55\x5a\xaa\xcc\x55\x05\x55\x06\x55\x0a\x55\x55\x05\x55\x05"
+ /* 1040 */ "\x55\x05\x55\x05\x55\x05\x55\x05\x55\x05\x55\x05\x55\x05\x55\x05"
+ /* 1056 */ "\x55\x46\x55\x05\x55\x5a\x55\x5a\xaa\xcc\x55\x05\x55\x05\x55\x05"
+ /* 1072 */ "\x55\x46\x55\x05\x55\x5a\x55\x5a\xaa\xcc\xcc\xbb\xcc\xbb\xcc\xbb"
+ /* 1088 */ "\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb"
+ /* 1104 */ "\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb"
+ /* 1120 */ "\xcc\xbb\xcc\xbb\xcc\xbb\xcc\xbb\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 1136 */ "\x00\x00\x33\x00\x00\x00\x44\x00\x00\x00\x33\x00\x22\x22\x66\x00"
+ /* 1152 */ "\x00\x00\x55\x00\x55\x55\xcc\x00\x00\x00\x33\x00\x22\x22\x66\x00"
+ /* 1168 */ "\x00\x00\x55\x00\x55\x55\xcc\x00\x00\x00\x00\x00\x33\x00\x44\x00"
+ /* 1184 */ "\x33\x22\x66\x00\x55\x55\xcc\x00\x33\x22\x66\x00\x55\x55\xcc\x00"
+ /* 1200 */ "\x33\x02\x46\x00\x05\x05\xbb\x00\x33\x22\x66\x00\x55\x55\xcc\x00"
+ /* 1216 */ "\x33\x02\x46\x00\x05\x05\xbb\x00\x33\x00\x00\x00\x00\x22\x00\x55"
+ /* 1232 */ "\x00\x22\x00\x55\x00\x02\x00\x05\x00\x22\x00\x55\x00\x02\x02\x46"
+ /* 1248 */ "\x00\x22\x00\xaa\x00\x55\x55\xcc\x00\x22\x00\x55\x00\x02\x02\x46"
+ /* 1264 */ "\x00\x22\x00\xaa\x00\x55\x55\xcc\x00\x22\x00\x00\x03\x44\x33\x66"
+ /* 1280 */ "\x55\xcc\x33\x66\x55\xcc\x03\x46\x05\xbb\x33\x66\x55\xcc\x03\x46"
+ /* 1296 */ "\x05\xbb\x33\x66\x55\xcc\x03\x46\x05\xbb\x33\x66\x55\xcc\x03\x46"
+ /* 1312 */ "\x05\xbb\x33\x66\x55\xcc\x03\x46\x05\xbb\x33\x66\x55\xcc\x00\x00"
+ /* 1328 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x44\x00\x00\x00"
+ /* 1344 */ "\x33\x00\x22\x22\x66\x00\x00\x00\x55\x00\x55\x55\xcc\x00\x00\x00"
+ /* 1360 */ "\x33\x00\x22\x22\x66\x00\x00\x00\x55\x00\x55\x55\xcc\x00\x00\x00"
+ /* 1376 */ "\x03\x00\x00\x02\x55\x02\x55\x02\x05\x02\x55\x02\x46\x02\xaa\x55"
+ /* 1392 */ "\xcc\x02\x55\x02\x46\x02\xaa\x55\xcc\x02\x55\x02\x06\x02\x5a\x05"
+ /* 1408 */ "\xbb\x02\x55\x02\x46\x02\xaa\x55\xcc\x02\x55\x02\x06\x02\x5a\x05"
+ /* 1424 */ "\xbb\x02\x55\x02\x46\x02\xaa\x00\x02\x55\x02\x55\x02\x05\x02\x55"
+ /* 1440 */ "\x02\x05\x02\x55\x02\x05\x02\x55\x02\x05\x02\x55\x02\x46\x02\x55"
+ /* 1456 */ "\x02\x5a\x02\xaa\x55\xcc\x02\x55\x02\x05\x02\x55\x02\x46\x02\x55"
+ /* 1472 */ "\x02\x5a\x02\xaa\x55\xcc\x02\x55\x02\x05\x02\x55\x02\x05\x46\xcc"
+ /* 1488 */ "\x46\xcc\x06\xbb\x46\xcc\x06\xbb\x46\xcc\x06\xbb\x46\xcc\x06\xbb"
+ /* 1504 */ "\x46\xcc\x06\xbb\x46\xcc\x06\xbb\x46\xcc\x06\xbb\x46\xcc\x06\xbb"
+ /* 1520 */ "\x46\xcc\x06\xbb\x46\xcc\x06\xbb\x46\xcc\x06\xbb\x46\xcc\x06\xbb"
+ /* 1536 */ "\x46\xcc\x06\xbb\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00"
+ /* 1552 */ "\x00\x00\x44\x00\x00\x00\x33\x00\x22\x22\x66\x00\x00\x00\x55\x00"
+ /* 1568 */ "\x55\x55\xcc\x00\x00\x00\x33\x00\x22\x22\x66\x00\x00\x00\x55\x00"
+ /* 1584 */ "\x55\x55\xcc\x00\x00\x00\x33\x00\x02\x02\x46\x00\x00\x00\x00\x00"
+ /* 1600 */ "\x03\x00\x44\x00\x33\x22\x66\x00\x55\x55\xcc\x00\x33\x22\x66\x00"
+ /* 1616 */ "\x55\x55\xcc\x00\x03\x02\x46\x00\x05\x05\xbb\x00\x33\x22\x66\x00"
+ /* 1632 */ "\x55\x55\xcc\x00\x03\x02\x46\x00\x05\x05\xbb\x00\x33\x22\x66\x00"
+ /* 1648 */ "\x55\x55\xcc\x00\x03\x00\x00\x00\x00\x02\x00\x55\x00\x02\x00\x55"
+ /* 1664 */ "\x00\x02\x00\x05\x00\x02\x00\x55\x00\x02\x02\x46\x00\x02\x00\xaa"
+ /* 1680 */ "\x00\x55\x55\xcc\x00\x02\x00\x55\x00\x02\x02\x46\x00\x02\x00\xaa"
+ /* 1696 */ "\x00\x55\x55\xcc\x00\x02\x00\x55\x00\x02\x02\x06\x00\x02\x00\x05"
+ /* 1712 */ "\x05\x05\x05\x46\x5a\xcc\x05\x46\x5a\xcc\x05\x06\x0a\xbb\x05\x46"
+ /* 1728 */ "\x5a\xcc\x05\x06\x0a\xbb\x05\x46\x5a\xcc\x05\x06\x0a\xbb\x05\x46"
+ /* 1744 */ "\x5a\xcc\x05\x06\x0a\xbb\x05\x46\x5a\xcc\x05\x06\x0a\xbb\x05\x46"
+ /* 1760 */ "\x5a\xcc\x05\x06\x0a\xbb\x05\x46\x5a\xcc\x00\x00\x00\x00\x00\x00"
+ /* 1776 */ "\x00\x00\x00\x00\x03\x00\x00\x00\x44\x00\x00\x00\x33\x00\x22\x22"
+ /* 1792 */ "\x66\x00\x00\x00\x55\x00\x55\x55\xcc\x00\x00\x00\x33\x00\x22\x22"
+ /* 1808 */ "\x66\x00\x00\x00\x55\x00\x55\x55\xcc\x00\x00\x00\x03\x00\x02\x02"
+ /* 1824 */ "\x46\x00\x00\x00\x05\x00\x05\x05\x05\x05\x05\x05\x05\x05\x05\x05"
+ /* 1840 */ "\x46\x05\x5a\x5a\xcc\x05\x05\x05\x46\x05\x5a\x5a\xcc\x05\x05\x05"
+ /* 1856 */ "\x06\x05\x0a\x0a\xbb\x05\x05\x05\x46\x05\x5a\x5a\xcc\x05\x05\x05"
+ /* 1872 */ "\x06\x05\x0a\x0a\xbb\x05\x05\x05\x46\x05\x5a\x5a\xcc\x05\x05\x05"
+ /* 1888 */ "\x06\x05\x0a\x05\x05\x05\x05\x05\x05\x05\x05\x05\x05\x05\x05\x05"
+ /* 1904 */ "\x05\x05\x05\x05\x05\x05\x05\x05\x05\x46\x05\x05\x05\x5a\x05\x5a"
+ /* 1920 */ "\x5a\xcc\x05\x05\x05\x05\x05\x05\x05\x46\x05\x05\x05\x5a\x05\x5a"
+ /* 1936 */ "\x5a\xcc\x05\x05\x05\x05\x05\x05\x05\x06\x05\x05\x05\x0a\x05\x0a"
+ /* 1952 */ "\x0a";
+
+unsigned char  *adv_gomoku /* [978] */ =
+ /* 0 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 16 */ "\x00\x00\x00\x00\xa0\x00\xa0\x00\x04\x00\x04\x00\x00\xd0\x00\xd0"
+ /* 32 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 48 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 64 */ "\x00\x70\x00\x00\x00\x00\xa0\x00\xa1\x00\x00\x00\xa0\x00\x04\x00"
+ /* 80 */ "\x04\x00\x00\x00\x04\x00\xd0\xd0\x00\xd0\x00\xd0\x00\xd0\x00\x00"
+ /* 96 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x70\x08\x08\x00\x08\x00\x08\x00"
+ /* 112 */ "\x08\x00\x08\x00\x40\x40\x00\x40\x00\x40\x00\x40\x00\x40\x00\x00"
+ /* 128 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70"
+ /* 144 */ "\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\xa1\x00\x00\x00\xa1\x00"
+ /* 160 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 176 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 192 */ "\x00\x00\x00\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 208 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 224 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 240 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x00\x00"
+ /* 256 */ "\x00\x70\x21\x00\x00\x00\x00\x00\x00\x00\xa0\x00\xa1\x00\x00\x00"
+ /* 272 */ "\xa1\x00\x00\x00\xa0\x00\x00\x00\xa0\x00\x04\x00\x04\x00\x00\x00"
+ /* 288 */ "\x04\x00\x00\x00\x04\x00\x00\x00\x04\x00\xd0\xd0\x00\xd0\x00\xd0"
+ /* 304 */ "\x00\xd0\x00\xd0\x00\xd0\x00\xd0\x00\xd0\x00\x00\x00\x00\x00\x00"
+ /* 320 */ "\x00\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\x00\x70\x08\x08\x00"
+ /* 336 */ "\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00"
+ /* 352 */ "\x40\x40\x00\x40\x00\x40\x00\x40\x00\x40\x00\x40\x00\x40\x00\x40"
+ /* 368 */ "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 384 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x00\x00\x00\x70"
+ /* 400 */ "\x21\x00\x00\x00\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\xa1\x00"
+ /* 416 */ "\x00\x00\xa1\x00\x00\x00\x00\x00\x00\x00\xa1\x00\x00\x00\x00\x00"
+ /* 432 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 448 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 464 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 480 */ "\x00\x00\x70\x21\x00\x00\x00\x00\x00\x00\x70\x21\x00\x00\x00\x00"
+ /* 496 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 512 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 528 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 544 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 560 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x00\x00\x00\x70\x21\x00"
+ /* 576 */ "\x00\x00\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\x00\x00\xa0\x00"
+ /* 592 */ "\xa1\x00\x00\x00\xa1\x00\x00\x00\xa0\x00\x00\x00\xa1\x00\x00\x00"
+ /* 608 */ "\xa0\x00\x00\x00\xa0\x00\x04\x00\x04\x00\x00\x00\x04\x00\x00\x00"
+ /* 624 */ "\x04\x00\x00\x00\x04\x00\x00\x00\x04\x00\x00\x00\x04\x00\x00\xd0"
+ /* 640 */ "\x00\xd0\x00\x00\x00\xd0\x00\x00\x00\xd0\x00\x00\x00\xd0\x00\x00"
+ /* 656 */ "\x00\xd0\x00\x00\x00\xd0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 672 */ "\x70\x21\x00\x00\x00\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\x00"
+ /* 688 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 704 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 720 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 736 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 752 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 768 */ "\x00\x00\x00\x00\x00\x00\x00\x70\x00\x00\x00\x70\x21\x00\x00\x00"
+ /* 784 */ "\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\x00\x70\x00\x00\x00\x00"
+ /* 800 */ "\x00\x00\xa1\x00\x00\x00\xa1\x00\x00\x00\x00\x00\x00\x00\xa1\x00"
+ /* 816 */ "\x00\x00\x00\x00\x00\x00\xa1\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 832 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 848 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 864 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 880 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x21"
+ /* 896 */ "\x00\x00\x00\x00\x00\x00\x70\x21\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 912 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 928 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 944 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 960 */ "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
+ /* 976 */ "\x00";
+
+/* name.c */
+word_t         *toplev;
+
+#ifndef _BBS_UTIL_C_
+/* menu.c */
+commands_t      cmdlist[] = {
+    {admin, PERM_SYSOP | PERM_VIEWSYSOP, "00Admin       【 系統維護區 】"},
+    {Announce, 0, "AAnnounce     【 精華公佈欄 】"},
+    {Boards, 0, "FFavorite     【 我 的 最愛 】"},
+    {root_board, 0, "CClass        【 分組討論區 】"},
+    {Mail, PERM_BASIC, "MMail         【 私人信件區 】"},
+    {Talk, 0, "TTalk         【 休閒聊天區 】"},
+    {User, 0, "UUser         【 個人設定區 】"},
+    {Xyz, 0, "XXyz          【 系統工具區 】"},
+    {Play_Play, PERM_BASIC, "PPlay         【 娛樂/休閒生活】"},
+    {Name_Menu, PERM_LOGINOK, "NNamelist     【 編特別名單 】"},
+    {Goodbye, 0, "GGoodbye       離開，再見……"},
+    {NULL, 0, NULL}
+};
+#endif
+
+/* friend.c */
+/* Ptt 各種特別名單的檔名 */
+char           *friend_file[8] = {
+    FN_OVERRIDES,
+    FN_REJECT,
+    "alohaed",
+    "postlist",
+    "",
+    FN_CANVOTE,
+    FN_WATER,
+    FN_VISABLE
+};
+
+#ifdef PTTBBS_UTIL
+    #ifdef OUTTA_TIMER
+	#define COMMON_TIME (SHM->GV2.e.now)
+    #else
+	#define COMMON_TIME (time(0))
+    #endif
+#else
+    #define COMMON_TIME (now)
+#endif
diff --git a/pttbbs/mbbsd/vice.c b/pttbbs/mbbsd/vice.c
new file mode 100644
index 00000000..d66f498d
--- /dev/null
+++ b/pttbbs/mbbsd/vice.c
@@ -0,0 +1,152 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define VICE_PLAY   BBSHOME "/etc/vice/vice.play"
+#define VICE_DATA   "vice.new"
+#define VICE_BINGO  BBSHOME "/etc/vice.bingo"
+#define VICE_SHOW   BBSHOME "/etc/vice.show"
+#define VICE_LOST   BBSHOME "/etc/vice/vice.lost"
+#define VICE_WIN    BBSHOME "/etc/vice/vice.win"
+#define VICE_END    BBSHOME "/etc/vice/vice.end"
+#define VICE_NO     BBSHOME "/etc/vice/vice.no"
+#define MAX_NO_PICTURE   2
+#define MAX_WIN_PICTURE  2
+#define MAX_LOST_PICTURE 3
+#define MAX_END_PICTURE  5
+
+static int
+vice_load(char tbingo[6][15])
+{
+    FILE           *fb = fopen(VICE_BINGO, "r");
+    char            buf[16], *ptr;
+    int             i = 0;
+    if (!fb)
+	return -1;
+    bzero((char *)tbingo, 6*15);
+    while (i < 6 && fgets(buf, 15, fb)) {
+	if ((ptr = strchr(buf, '\n')))
+	    *ptr = 0;
+	strcpy(tbingo[i++], buf);
+    }
+    fclose(fb);
+    return 0;
+}
+
+static int
+check(char tbingo[6][15], char *data)
+{
+    int             i = 0, j;
+
+    if (!strcmp(data, tbingo[0]))
+	return 8;
+
+    for (j = 8; j > 0; j--)
+	for (i = 1; i < 6; i++)
+	    if (!strncmp(data + 8 - j, tbingo[i] + 8 - j, j))
+		return j - 1;
+    return 0;
+}
+/* TODO Ptt:showfile ran_showfile more 三者要合 */
+static int
+ran_showfile(int y, int x, char *filename, int maxnum)
+{
+    FILE           *fs;
+    char            buf[512];
+
+    bzero(buf, sizeof(buf));
+    snprintf(buf, sizeof(buf), "%s%d", filename, rand() % maxnum + 1);
+    if (!(fs = fopen(buf, "r"))) {
+	move(10, 10);
+	prints("can't open file: %s", buf);
+	return 0;
+    }
+    move(y, x);
+
+    while (fgets(buf, sizeof(buf), fs))
+	prints("%s", buf);
+
+    fclose(fs);
+    return 1;
+}
+
+static int
+ran_showmfile(char *filename, int maxnum)
+{
+    char            buf[256];
+
+    snprintf(buf, sizeof(buf), "%s%d", filename, rand() % maxnum + 1);
+    return more(buf, YEA);
+}
+
+
+int
+vice_main()
+{
+    FILE           *fd;
+    char            tbingo[6][15];
+    char            buf_data[256],
+                    serial[16], ch[2], *ptr;
+    int             TABLE[] = {0, 10, 200, 1000, 4000, 10000, 40000, 100000, 200000};
+    int             total = 0, money, i = 4, j = 0;
+
+    setuserfile(buf_data, VICE_DATA);
+    if (!dashf(buf_data)) {
+	ran_showmfile(VICE_NO, MAX_NO_PICTURE);
+	return 0;
+    }
+    if (vice_load(tbingo) < 0)
+	return -1;
+    clear();
+    ran_showfile(0, 0, VICE_PLAY, 1);
+    ran_showfile(10, 0, VICE_SHOW, 1);
+
+    if (!(fd = fopen(buf_data, "r")))
+	return 0;
+    j = 0;
+    i = 0;
+    move(10, 24);
+    clrtoeol();
+    prints("這一期的發票號碼");
+    while (fgets(serial, 15, fd)) {
+	if ((ptr = strchr(serial, '\r')))
+	    *ptr = 0;
+	if (j == 0)
+	    i++;
+	if( i >= 14 )
+	    break;
+	move(10 + i, 24 + j);
+	prints("%s", serial);
+	j += 9;
+	j %= 45;
+    }
+    getdata(8, 0, "按'c'開始對獎了(或是任意鍵離開)): ",
+	    ch, sizeof(ch), LCECHO);
+    if (ch[0] != 'c' || lockutmpmode(VICE, LOCK_MULTI)) {
+	fclose(fd);
+	return 0;
+    }
+    showtitle("發票對獎", BBSNAME);
+    rewind(fd);
+    while (fgets(serial, 15, fd)) {
+	if ((ptr = strchr(serial, '\n')))
+	    *ptr = 0;
+	money = TABLE[check(tbingo, serial)];
+	total += money;
+	prints("%s 中了 %d\n", serial, money);
+    }
+    pressanykey();
+    if (total > 0) {
+	ran_showmfile(VICE_WIN, MAX_WIN_PICTURE);
+	move(22, 0);
+	clrtoeol();
+	prints("全部的發票中了 %d 塊錢\n", total);
+	demoney(total);
+    } else
+	ran_showmfile(VICE_LOST, MAX_LOST_PICTURE);
+
+    fclose(fd);
+    unlink(buf_data);
+    pressanykey();
+    unlockutmpmode();
+    return 0;
+}
diff --git a/pttbbs/mbbsd/vote.c b/pttbbs/mbbsd/vote.c
new file mode 100644
index 00000000..0d5bd1c8
--- /dev/null
+++ b/pttbbs/mbbsd/vote.c
@@ -0,0 +1,1089 @@
+/* $Id$ */
+#include "bbs.h"
+
+static int      total;
+
+static char     STR_bv_control[] = "control";	/* 投票日期 選項 */
+static char     STR_bv_desc[] = "desc";	/* 投票目的 */
+static char     STR_bv_ballots[] = "ballots";
+static char     STR_bv_flags[] = "flags";
+static char     STR_bv_comments[] = "comments";	/* 投票者的建議 */
+static char     STR_bv_limited[] = "limited";	/* 私人投票 */
+static char     STR_bv_title[] = "vtitle";
+
+static char     STR_bv_results[] = "results";
+
+static char     STR_new_control[] = "control0\0";	/* 投票日期 選項 */
+static char     STR_new_desc[] = "desc0\0";	/* 投票目的 */
+static char     STR_new_ballots[] = "ballots0\0";
+static char     STR_new_flags[] = "flags0\0";
+static char     STR_new_comments[] = "comments0\0";	/* 投票者的建議 */
+static char     STR_new_limited[] = "limited0\0";	/* 私人投票 */
+static char     STR_new_title[] = "vtitle0\0";
+
+int
+strip_ansi(char *buf, char *str, int mode)
+{
+    register int    ansi, count = 0;
+
+    for (ansi = 0; *str /* && *str != '\n' */ ; str++) {
+	if (*str == 27) {
+	    if (mode) {
+		if (buf)
+		    *buf++ = *str;
+		count++;
+	    }
+	    ansi = 1;
+	} else if (ansi && strchr("[;1234567890mfHABCDnsuJKc=n", *str)) {
+	    if ((mode == NO_RELOAD && !strchr("c=n", *str)) ||
+		(mode == ONLY_COLOR && strchr("[;1234567890m", *str))) {
+		if (buf)
+		    *buf++ = *str;
+		count++;
+	    }
+	    if (strchr("mHn ", *str))
+		ansi = 0;
+	} else {
+	    ansi = 0;
+	    if (buf)
+		*buf++ = *str;
+	    count++;
+	}
+    }
+    if (buf)
+	*buf = '\0';
+    return count;
+}
+
+void
+b_suckinfile(FILE * fp, char *fname)
+{
+    FILE           *sfp;
+
+    if ((sfp = fopen(fname, "r"))) {
+	char            inbuf[256];
+
+	while (fgets(inbuf, sizeof(inbuf), sfp))
+	    fputs(inbuf, fp);
+	fclose(sfp);
+    }
+}
+
+static void
+b_count(char *buf, int counts[])
+{
+    char            inchar;
+    int             fd;
+
+    memset(counts, 0, 31 * sizeof(counts[0]));
+    total = 0;
+    if ((fd = open(buf, O_RDONLY)) != -1) {
+	flock(fd, LOCK_EX);	/* Thor: 防止多人同時算 */
+	while (read(fd, &inchar, 1) == 1) {
+	    counts[(int)(inchar - 'A')]++;
+	    total++;
+	}
+	flock(fd, LOCK_UN);
+	close(fd);
+    }
+}
+
+
+static int
+b_nonzeroNum(char *buf)
+{
+    int             i = 0;
+    char            inchar;
+    int             fd;
+
+    if ((fd = open(buf, O_RDONLY)) != -1) {
+	while (read(fd, &inchar, 1) == 1)
+	    if (inchar)
+		i++;
+	close(fd);
+    }
+    return i;
+}
+
+static void
+vote_report(char *bname, char *fname, char *fpath)
+{
+    register char  *ip;
+    time_t          dtime;
+    int             fd, bid;
+    fileheader_t    header;
+
+    ip = fpath;
+    while (*(++ip));
+    *ip++ = '/';
+
+    /* get a filename by timestamp */
+
+    dtime = now;
+    for (;;) {
+	sprintf(ip, "M.%ld.A", ++dtime);
+	fd = open(fpath, O_CREAT | O_EXCL | O_WRONLY, 0644);
+	if (fd >= 0)
+	    break;
+	dtime++;
+    }
+    close(fd);
+
+    unlink(fpath);
+    link(fname, fpath);
+
+    /* append record to .DIR */
+
+    memset(&header, 0, sizeof(fileheader_t));
+    strlcpy(header.owner, "[馬路探子]", sizeof(header.owner));
+    snprintf(header.title, sizeof(header.title), "[%s] 看板 選情報導", bname);
+    {
+	register struct tm *ptime = localtime(&dtime);
+
+	snprintf(header.date, sizeof(header.date),
+		 "%2d/%02d", ptime->tm_mon + 1, ptime->tm_mday);
+    }
+    strlcpy(header.filename, ip, sizeof(header.filename));
+
+    strcpy(ip, ".DIR");
+    if ((fd = open(fpath, O_WRONLY | O_CREAT, 0644)) >= 0) {
+	flock(fd, LOCK_EX);
+	lseek(fd, 0, SEEK_END);
+	write(fd, &header, sizeof(fileheader_t));
+	flock(fd, LOCK_UN);
+	close(fd);
+	if ((bid = getbnum(bname)) > 0)
+	    setbtotal(bid);
+
+    }
+}
+
+static void
+b_result_one(boardheader_t * fh, int ind)
+{
+    FILE           *cfp, *tfp, *frp, *xfp;
+    char           *bname;
+    char            buf[STRLEN];
+    char            inbuf[80];
+    int             counts[31];
+    int             num;
+    int             junk;
+    char            b_control[64];
+    char            b_newresults[64];
+    char            b_report[64];
+    time_t          closetime;
+
+    fh->bvote--;
+
+    if (fh->bvote == 0)
+	fh->bvote = 2;
+    else if (fh->bvote == 2)
+	fh->bvote = 1;
+
+    if (ind) {
+	snprintf(STR_new_ballots, sizeof(STR_new_ballots), "%s%d", STR_bv_ballots, ind);
+	snprintf(STR_new_control, sizeof(STR_new_control),"%s%d", STR_bv_control, ind);
+	snprintf(STR_new_desc, sizeof(STR_new_desc), "%s%d", STR_bv_desc, ind);
+	snprintf(STR_new_flags, sizeof(STR_new_flags), "%s%d", STR_bv_flags, ind);
+	snprintf(STR_new_comments, sizeof(STR_new_comments), "%s%d", STR_bv_comments, ind);
+	snprintf(STR_new_limited, sizeof(STR_new_limited), "%s%d", STR_bv_limited, ind);
+	snprintf(STR_new_title, sizeof(STR_new_title), "%s%d", STR_bv_title, ind);
+    } else {
+	strlcpy(STR_new_ballots, STR_bv_ballots, sizeof(STR_new_ballots));
+	strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+	strlcpy(STR_new_desc, STR_bv_desc, sizeof(STR_new_desc));
+	strlcpy(STR_new_flags, STR_bv_flags, sizeof(STR_new_flags));
+	strlcpy(STR_new_comments, STR_bv_comments, sizeof(STR_new_comments));
+	strlcpy(STR_new_limited, STR_bv_limited, sizeof(STR_new_limited));
+	strlcpy(STR_new_title, STR_bv_title, sizeof(STR_new_title));
+    }
+
+    bname = fh->brdname;
+
+    setbfile(buf, bname, STR_new_control);
+    cfp = fopen(buf, "r");
+    fscanf(cfp, "%d\n%lu\n", &junk, &closetime);
+    fclose(cfp);
+
+    setbfile(b_control, bname, "tmp");
+    if (rename(buf, b_control) == -1)
+	return;
+    setbfile(buf, bname, STR_new_flags);
+    num = b_nonzeroNum(buf);
+    unlink(buf);
+    setbfile(buf, bname, STR_new_ballots);
+    b_count(buf, counts);
+    unlink(buf);
+
+    setbfile(b_newresults, bname, "newresults");
+    if ((tfp = fopen(b_newresults, "w")) == NULL)
+	return;
+
+    setbfile(buf, bname, STR_new_title);
+
+    if ((xfp = fopen(buf, "r"))) {
+	fgets(inbuf, sizeof(inbuf), xfp);
+	fprintf(tfp, "%s\n◆ 投票名稱: %s\n\n", msg_seperator, inbuf);
+	fclose(xfp);
+    }
+    fprintf(tfp, "%s\n◆ 投票中止於: %s\n\n◆ 票選題目描述:\n\n",
+	    msg_seperator, ctime(&closetime));
+    fh->vtime = now;
+
+    setbfile(buf, bname, STR_new_desc);
+
+    b_suckinfile(tfp, buf);
+    unlink(buf);
+
+    if ((cfp = fopen(b_control, "r"))) {
+	fgets(inbuf, sizeof(inbuf), cfp);
+	fgets(inbuf, sizeof(inbuf), cfp);
+	fprintf(tfp, "\n◆投票結果:(共有 %d 人投票,每人最多可投 %d 票)\n",
+		num, junk);
+	while (fgets(inbuf, sizeof(inbuf), cfp)) {
+	    inbuf[(strlen(inbuf) - 1)] = '\0';
+	    num = counts[inbuf[0] - 'A'];
+	    fprintf(tfp, "    %-42s %3d 票   %02.2f%%\n", inbuf + 3, num,
+		    (float)(num * 100) / (float)(total));
+	}
+	fclose(cfp);
+    }
+    unlink(b_control);
+
+    fprintf(tfp, "%s\n◆ 使用者建議：\n\n", msg_seperator);
+    setbfile(buf, bname, STR_new_comments);
+    b_suckinfile(tfp, buf);
+    unlink(buf);
+
+    fprintf(tfp, "%s\n◆ 總票數 = %d 票\n\n", msg_seperator, total);
+    fclose(tfp);
+
+    setbfile(b_report, bname, "report");
+    if ((frp = fopen(b_report, "w"))) {
+	b_suckinfile(frp, b_newresults);
+	fclose(frp);
+    }
+    snprintf(inbuf, sizeof(inbuf), "boards/%c/%s", bname[0], bname);
+    vote_report(bname, b_report, inbuf);
+    if (!(fh->brdattr & BRD_NOCOUNT)) {
+	snprintf(inbuf, sizeof(inbuf), "boards/%c/%s", 'R', "Record");
+	vote_report(bname, b_report, inbuf);
+    }
+    unlink(b_report);
+
+    tfp = fopen(b_newresults, "a");
+    setbfile(buf, bname, STR_bv_results);
+    b_suckinfile(tfp, buf);
+    fclose(tfp);
+    Rename(b_newresults, buf);
+}
+
+static void
+b_result(boardheader_t * fh)
+{
+    FILE           *cfp;
+    time_t          closetime;
+    int             i;
+    char            buf[STRLEN];
+    char            temp[STRLEN];
+
+    for (i = 0; i < 20; i++) {
+	if (i)
+	    snprintf(STR_new_control, sizeof(STR_new_control), "%s%d", STR_bv_control, i);
+	else
+	    strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+
+	setbfile(buf, fh->brdname, STR_new_control);
+	cfp = fopen(buf, "r");
+	if (!cfp)
+	    continue;
+	fgets(temp, sizeof(temp), cfp);
+	fscanf(cfp, "%lu\n", &closetime);
+	fclose(cfp);
+	if (closetime < now)
+	    b_result_one(fh, i);
+    }
+}
+
+static int
+b_close(boardheader_t * fh)
+{
+
+    if (fh->bvote == 2) {
+	if (fh->vtime < now - 3 * 86400) {
+	    fh->bvote = 0;
+	    return 1;
+	} else
+	    return 0;
+    }
+    b_result(fh);
+    return 1;
+}
+
+int
+b_closepolls()
+{
+    char    *fn_vote_polling = ".polling";
+    boardheader_t  *fhp;
+    FILE           *cfp;
+    int             pos, dirty;
+    time_t          last;
+    char            timebuf[100];
+
+    /* Edited by CharlieL for can't auto poll bug */
+
+    if ((cfp = fopen(fn_vote_polling, "r"))) {
+	fgets(timebuf, 100 * sizeof(char), cfp);
+	sscanf(timebuf, "%lu", &last);
+	fclose(cfp);
+	if (last + 3600 >= now)
+	    return 0;
+    }
+    if ((cfp = fopen(fn_vote_polling, "w")) == NULL)
+	return 0;
+    fprintf(cfp, "%lu\n%s\n", now, ctime(&now));
+    fclose(cfp);
+
+    dirty = 0;
+    for (fhp = bcache, pos = 1; pos <= numboards; fhp++, pos++) {
+	if (fhp->bvote && b_close(fhp)) {
+	    if (substitute_record(fn_board, fhp, sizeof(*fhp), pos) == -1)
+		outs(err_board_update);
+	    dirty = 1;
+	}
+    }
+    if (dirty)			/* vote flag changed */
+	reset_board(pos);
+
+    return 0;
+}
+
+static int
+vote_view(char *bname, int index)
+{
+    boardheader_t  *fhp;
+    FILE           *fp;
+    char            buf[STRLEN], genbuf[STRLEN], inbuf[STRLEN];
+    struct stat     stbuf;
+    int             fd, num = 0, i, pos, counts[31];
+    time_t          closetime;
+
+    if (index) {
+	snprintf(STR_new_ballots, sizeof(STR_new_ballots),"%s%d", STR_bv_ballots, index);
+	snprintf(STR_new_control, sizeof(STR_new_control), "%s%d", STR_bv_control, index);
+	snprintf(STR_new_desc, sizeof(STR_new_desc), "%s%d", STR_bv_desc, index);
+	snprintf(STR_new_flags, sizeof(STR_new_flags), "%s%d", STR_bv_flags, index);
+	snprintf(STR_new_comments, sizeof(STR_new_comments), "%s%d", STR_bv_comments, index);
+	snprintf(STR_new_limited, sizeof(STR_new_limited), "%s%d", STR_bv_limited, index);
+	snprintf(STR_new_title, sizeof(STR_new_title), "%s%d", STR_bv_title, index);
+    } else {
+	strlcpy(STR_new_ballots, STR_bv_ballots, sizeof(STR_new_ballots));
+	strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+	strlcpy(STR_new_desc, STR_bv_desc, sizeof(STR_new_desc));
+	strlcpy(STR_new_flags, STR_bv_flags, sizeof(STR_new_flags));
+	strlcpy(STR_new_comments, STR_bv_comments, sizeof(STR_new_comments));
+	strlcpy(STR_new_limited, STR_bv_limited, sizeof(STR_new_limited));
+	strlcpy(STR_new_title, STR_bv_title, sizeof(STR_new_title));
+    }
+
+    setbfile(buf, bname, STR_new_ballots);
+    if ((fd = open(buf, O_RDONLY)) > 0) {
+	fstat(fd, &stbuf);
+	close(fd);
+    } else
+	stbuf.st_size = 0;
+
+    setbfile(buf, bname, STR_new_title);
+    move(0, 0);
+    clrtobot();
+
+    if ((fp = fopen(buf, "r"))) {
+	fgets(inbuf, sizeof(inbuf), fp);
+	prints("\n投票名稱: %s", inbuf);
+	fclose(fp);
+    }
+    setbfile(buf, bname, STR_new_control);
+    fp = fopen(buf, "r");
+    fgets(inbuf, sizeof(inbuf), fp);
+    fscanf(fp, "%lu\n", &closetime);
+
+    prints("\n◆ 預知投票紀事: 每人最多可投 %d 票,目前共有 %d 票,\n"
+	   "本次投票將結束於 %s", atoi(inbuf), (int)stbuf.st_size,
+	   ctime(&closetime));
+
+    /* Thor: 開放 票數 預知 */
+    setbfile(buf, bname, STR_new_flags);
+    num = b_nonzeroNum(buf);
+
+    setbfile(buf, bname, STR_new_ballots);
+    b_count(buf, counts);
+
+    prints("共有 %d 人投票\n", num);
+    total = 0;
+
+    while (fgets(inbuf, sizeof(inbuf), fp)) {
+	inbuf[(strlen(inbuf) - 1)] = '\0';
+	inbuf[30] = '\0';	/* truncate */
+	i = inbuf[0] - 'A';
+	num = counts[i];
+	move(i % 15 + 6, i / 15 * 40);
+	prints("  %-32s%3d 票", inbuf, num);
+	total += num;
+    }
+    fclose(fp);
+    pos = getbnum(bname);
+    fhp = bcache + pos - 1;
+    move(t_lines - 3, 0);
+    prints("◆ 目前總票數 = %d 票", total);
+    getdata(b_lines - 1, 0, "(A)取消投票 (B)提早開票 (C)繼續？[C] ", genbuf,
+	    4, LCECHO);
+    if (genbuf[0] == 'a') {
+	setbfile(buf, bname, STR_new_control);
+	unlink(buf);
+	setbfile(buf, bname, STR_new_flags);
+	unlink(buf);
+	setbfile(buf, bname, STR_new_ballots);
+	unlink(buf);
+	setbfile(buf, bname, STR_new_desc);
+	unlink(buf);
+	setbfile(buf, bname, STR_new_limited);
+	unlink(buf);
+	setbfile(buf, bname, STR_new_title);
+	unlink(buf);
+
+	if (fhp->bvote)
+	    fhp->bvote--;
+	if (fhp->bvote == 2)
+	    fhp->bvote = 1;
+
+	if (substitute_record(fn_board, fhp, sizeof(*fhp), pos) == -1)
+	    outs(err_board_update);
+	reset_board(pos);
+    } else if (genbuf[0] == 'b') {
+	b_result_one(fhp, index);
+	if (substitute_record(fn_board, fhp, sizeof(*fhp), pos) == -1)
+	    outs(err_board_update);
+
+	reset_board(pos);
+    }
+    return FULLUPDATE;
+}
+
+static int
+vote_view_all(char *bname)
+{
+    int             i;
+    int             x = -1;
+    FILE           *fp, *xfp;
+    char            buf[STRLEN], genbuf[STRLEN];
+    char            inbuf[80];
+
+    strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+    strlcpy(STR_new_title, STR_bv_title, sizeof(STR_new_title));
+    setbfile(buf, bname, STR_new_control);
+    move(0, 0);
+    if ((fp = fopen(buf, "r"))) {
+	prints("(0) ");
+	x = 0;
+	fclose(fp);
+
+	setbfile(buf, bname, STR_new_title);
+	if ((xfp = fopen(buf, "r"))) {
+	    fgets(inbuf, sizeof(inbuf), xfp);
+	    fclose(xfp);
+	} else
+	    strlcpy(inbuf, "無標題", sizeof(inbuf));
+	prints("%s\n", inbuf);
+    }
+    for (i = 1; i < 20; i++) {
+	snprintf(STR_new_control, sizeof(STR_new_control),
+		 "%s%d", STR_bv_control, i);
+	snprintf(STR_new_title, sizeof(STR_new_title),
+		 "%s%d", STR_bv_title, i);
+	setbfile(buf, bname, STR_new_control);
+	if ((fp = fopen(buf, "r"))) {
+	    prints("(%d) ", i);
+	    x = i;
+	    fclose(fp);
+
+	    setbfile(buf, bname, STR_new_title);
+	    if ((xfp = fopen(buf, "r"))) {
+		fgets(inbuf, sizeof(inbuf), xfp);
+		fclose(xfp);
+	    } else
+		strlcpy(inbuf, "無標題", sizeof(inbuf));
+	    prints("%s\n", inbuf);
+	}
+    }
+
+    if (x < 0)
+	return FULLUPDATE;
+    snprintf(buf, sizeof(buf), "要看幾號投票 [%d] ", x);
+
+    getdata(b_lines - 1, 0, buf, genbuf, 4, LCECHO);
+
+
+    if (atoi(genbuf) < 0 || atoi(genbuf) > 20)
+	snprintf(genbuf, sizeof(genbuf), "%d", x);
+    if (genbuf[0] != '0')
+	snprintf(STR_new_control, sizeof(STR_new_control),
+		 "%s%d", STR_bv_control, atoi(genbuf));
+    else
+	strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+
+    setbfile(buf, bname, STR_new_control);
+
+    if ((fp = fopen(buf, "r"))) { // TODO try access()
+	fclose(fp);
+	return vote_view(bname, atoi(genbuf));
+    } else
+	return FULLUPDATE;
+}
+
+static int
+vote_maintain(char *bname)
+{
+    FILE           *fp = NULL;
+    char            inbuf[STRLEN], buf[STRLEN];
+    int             num = 0, aborted, pos, x, i;
+    time_t          closetime;
+    boardheader_t  *fhp;
+    char            genbuf[4];
+
+    if (!(currmode & MODE_BOARD))
+	return 0;
+    if ((pos = getbnum(bname)) <= 0)
+	return 0;
+
+    stand_title("舉辦投票");
+    fhp = bcache + pos - 1;
+
+    /* CharlieL */
+    if (fhp->bvote != 2 && fhp->bvote != 0) {
+	getdata(b_lines - 1, 0,
+		"(V)觀察目前投票 (M)舉辦新投票 (A)取消所有投票 (Q)繼續 [Q]",
+		genbuf, 4, LCECHO);
+	if (genbuf[0] == 'v')
+	    return vote_view_all(bname);
+	else if (genbuf[0] == 'a') {
+	    fhp->bvote = 0;
+
+	    setbfile(buf, bname, STR_bv_control);
+	    unlink(buf);
+	    setbfile(buf, bname, STR_bv_flags);
+	    unlink(buf);
+	    setbfile(buf, bname, STR_bv_ballots);
+	    unlink(buf);
+	    setbfile(buf, bname, STR_bv_desc);
+	    unlink(buf);
+	    setbfile(buf, bname, STR_bv_limited);
+	    unlink(buf);
+	    setbfile(buf, bname, STR_bv_title);
+	    unlink(buf);
+
+	    for (i = 1; i < 20; i++) {
+		snprintf(STR_new_ballots, sizeof(STR_new_ballots),
+			 "%s%d", STR_bv_ballots, i);
+		snprintf(STR_new_control, sizeof(STR_new_control),
+			 "%s%d", STR_bv_control, i);
+		snprintf(STR_new_desc, sizeof(STR_new_desc),
+			 "%s%d", STR_bv_desc, i);
+		snprintf(STR_new_flags, sizeof(STR_new_flags),
+			 "%s%d", STR_bv_flags, i);
+		snprintf(STR_new_comments, sizeof(STR_new_comments),
+			 "%s%d", STR_bv_comments, i);
+		snprintf(STR_new_limited, sizeof(STR_new_limited),
+			 "%s%d", STR_bv_limited, i);
+		snprintf(STR_new_title, sizeof(STR_new_title),
+			 "%s%d", STR_bv_title, i);
+
+		setbfile(buf, bname, STR_new_control);
+		unlink(buf);
+		setbfile(buf, bname, STR_new_flags);
+		unlink(buf);
+		setbfile(buf, bname, STR_new_ballots);
+		unlink(buf);
+		setbfile(buf, bname, STR_new_desc);
+		unlink(buf);
+		setbfile(buf, bname, STR_new_limited);
+		unlink(buf);
+		setbfile(buf, bname, STR_new_title);
+		unlink(buf);
+	    }
+	    if (substitute_record(fn_board, fhp, sizeof(*fhp), pos) == -1)
+		outs(err_board_update);
+
+	    return FULLUPDATE;
+	} else if (genbuf[0] != 'm' || fhp->bvote >= 20)
+	    return FULLUPDATE;
+    }
+    strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+    setbfile(buf, bname, STR_new_control);
+    x = 0;
+    while (x < 20 && (fp = fopen(buf, "r")) != NULL) { // TODO try access()
+	fclose(fp);
+	x++;
+	snprintf(STR_new_control, sizeof(STR_new_control),
+		 "%s%d", STR_bv_control, x);
+	setbfile(buf, bname, STR_new_control);
+    }
+    if (x >= 20)
+	return FULLUPDATE;
+    if (x) {
+	snprintf(STR_new_ballots, sizeof(STR_new_ballots), "%s%d", STR_bv_ballots, x);
+	snprintf(STR_new_control, sizeof(STR_new_control), "%s%d", STR_bv_control, x);
+	snprintf(STR_new_desc, sizeof(STR_new_desc), "%s%d", STR_bv_desc, x);
+	snprintf(STR_new_flags, sizeof(STR_new_flags), "%s%d", STR_bv_flags, x);
+	snprintf(STR_new_comments, sizeof(STR_new_comments), "%s%d", STR_bv_comments, x);
+	snprintf(STR_new_limited, sizeof(STR_new_limited), "%s%d", STR_bv_limited, x);
+	snprintf(STR_new_title, sizeof(STR_new_title), "%s%d", STR_bv_title, x);
+    } else {
+	strlcpy(STR_new_ballots, STR_bv_ballots, sizeof(STR_new_ballots));
+	strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+	strlcpy(STR_new_desc, STR_bv_desc, sizeof(STR_new_desc));
+	strlcpy(STR_new_flags, STR_bv_flags, sizeof(STR_new_flags));
+	strlcpy(STR_new_comments, STR_bv_comments, sizeof(STR_new_comments));
+	strlcpy(STR_new_limited, STR_bv_limited, sizeof(STR_new_limited));
+	strlcpy(STR_new_title, STR_bv_title, sizeof(STR_new_title));
+    }
+    clear();
+    move(0, 0);
+    prints("第 %d 號投票\n", x);
+    setbfile(buf, bname, STR_new_title);
+    getdata(4, 0, "請輸入投票名稱:", inbuf, 50, LCECHO);
+    if (inbuf[0] == '\0')
+	strlcpy(inbuf, "不知名的", sizeof(inbuf));
+    fp = fopen(buf, "w");
+    assert(fp);
+    fprintf(fp, "%s", inbuf);
+    fclose(fp);
+
+    prints("按任何鍵開始編輯此次 [投票宗旨]");
+    pressanykey();
+    setbfile(buf, bname, STR_new_desc);
+    aborted = vedit(buf, NA, NULL);
+    if (aborted == -1) {
+	clear();
+	outs("取消此次投票");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    aborted = 0;
+    setbfile(buf, bname, STR_new_flags);
+    unlink(buf);
+
+    getdata(4, 0,
+	    "是否限定投票者名單：(y)編輯可投票人員名單[n]任何人皆可投票:[N]",
+	    inbuf, 2, LCECHO);
+    setbfile(buf, bname, STR_new_limited);
+    if (inbuf[0] == 'y') {
+	fp = fopen(buf, "w");
+	assert(fp);
+	fprintf(fp, "此次投票設限");
+	fclose(fp);
+	friend_edit(FRIEND_CANVOTE);
+    } else {
+	if (dashf(buf))
+	    unlink(buf);
+    }
+    clear();
+    getdata(0, 0, "此次投票進行幾天 (一到十天)？", inbuf, 4, DOECHO);
+
+    closetime = atoi(inbuf);
+    if (closetime <= 0)
+	closetime = 1;
+    else if (closetime > 10)
+	closetime = 10;
+
+    closetime = closetime * 86400 + now;
+    setbfile(buf, bname, STR_new_control);
+    fp = fopen(buf, "w");
+    assert(fp);
+    fprintf(fp, "00\n%lu\n", closetime);
+
+    outs("\n請依序輸入選項, 按 ENTER 完成設定");
+    num = 0;
+    while (!aborted) {
+	if( num % 15 == 0 ){
+	    for( i = num ; i < num + 15 ; ++i ){
+		snprintf(buf, sizeof(buf), "\033[1;30m%c)\033[m ", i + 'A');
+		move((i % 15) + 2, (i / 15) * 40);
+		prints(buf);
+	    }
+	    refresh();
+	}
+	snprintf(buf, sizeof(buf), "%c) ", num + 'A');
+	getdata((num % 15) + 2, (num / 15) * 40, buf,
+		inbuf, 37, DOECHO);
+	if (*inbuf) {
+	    fprintf(fp, "%1c) %s\n", (num + 'A'), inbuf);
+	    num++;
+	}
+	if ((*inbuf == '\0' && num >= 1) || num == 30)
+	    aborted = 1;
+    }
+    snprintf(buf, sizeof(buf), "請問每人最多可投幾票？([1]∼%d): ", num);
+
+    getdata(t_lines - 3, 0, buf, inbuf, 3, DOECHO);
+
+    if (atoi(inbuf) <= 0 || atoi(inbuf) > num)
+	strlcpy(inbuf, "1", sizeof(inbuf));
+
+    rewind(fp);
+    fprintf(fp, "%2d\n", MAX(1, atoi(inbuf)));
+    fclose(fp);
+
+    if (fhp->bvote == 2)
+	fhp->bvote = 0;
+    else if (fhp->bvote == 1)
+	fhp->bvote = 2;
+    else if (fhp->bvote == 2)
+	fhp->bvote = 1;
+
+    fhp->bvote++;
+
+    if (substitute_record(fn_board, fhp, sizeof(*fhp), pos) == -1)
+	outs(err_board_update);
+    reset_board(pos);
+    outs("開始投票了！");
+
+    return FULLUPDATE;
+}
+
+static int
+vote_flag(char *bname, int index, char val)
+{
+    char            buf[256], flag;
+    int             fd, num, size;
+
+    if (index)
+	snprintf(STR_new_flags, sizeof(STR_new_flags), "%s%d", STR_bv_flags, index);
+    else
+	strlcpy(STR_new_flags, STR_bv_flags, sizeof(STR_new_flags));
+
+    num = usernum - 1;
+    setbfile(buf, bname, STR_new_flags);
+    if ((fd = open(buf, O_RDWR | O_CREAT, 0600)) == -1)
+	return -1;
+    size = lseek(fd, 0, SEEK_END);
+    memset(buf, 0, sizeof(buf));
+    while (size <= num) {
+	write(fd, buf, sizeof(buf));
+	size += sizeof(buf);
+    }
+    lseek(fd, num, SEEK_SET);
+    read(fd, &flag, 1);
+    if (flag == 0 && val != 0) {
+	lseek(fd, num, SEEK_SET);
+	write(fd, &val, 1);
+    }
+    close(fd);
+    return flag;
+}
+
+static int
+same(char compare, char list[], int num)
+{
+    int             n;
+    int             rep = 0;
+
+    for (n = 0; n < num; n++) {
+	if (compare == list[n])
+	    rep = 1;
+	if (rep == 1)
+	    list[n] = list[n + 1];
+    }
+    return rep;
+}
+
+static int
+user_vote_one(char *bname, int ind)
+{
+    FILE           *cfp, *fcm;
+    char            buf[STRLEN];
+    boardheader_t  *fhp;
+    int             pos = 0, i = 0, count = 0, tickets, fd;
+    char            inbuf[80], choices[31], vote[4], chosen[31];
+    time_t          closetime;
+
+    if (ind) {
+	snprintf(STR_new_ballots, sizeof(STR_new_ballots), "%s%d", STR_bv_ballots, ind);
+	snprintf(STR_new_control, sizeof(STR_new_control), "%s%d", STR_bv_control, ind);
+	snprintf(STR_new_desc, sizeof(STR_new_desc), "%s%d", STR_bv_desc, ind);
+	snprintf(STR_new_flags, sizeof(STR_new_flags),"%s%d", STR_bv_flags, ind);
+	snprintf(STR_new_comments, sizeof(STR_new_comments), "%s%d", STR_bv_comments, ind);
+	snprintf(STR_new_limited, sizeof(STR_new_limited), "%s%d", STR_bv_limited, ind);
+    } else {
+	strlcpy(STR_new_ballots, STR_bv_ballots, sizeof(STR_new_ballots));
+	strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+	strlcpy(STR_new_desc, STR_bv_desc, sizeof(STR_new_desc));
+	strlcpy(STR_new_flags, STR_bv_flags, sizeof(STR_new_flags));
+	strlcpy(STR_new_comments, STR_bv_comments, sizeof(STR_new_comments));
+	strlcpy(STR_new_limited, STR_bv_limited, sizeof(STR_new_limited));
+    }
+
+    setbfile(buf, bname, STR_new_control);
+    cfp = fopen(buf, "r");
+    if (!cfp)
+	return FULLUPDATE;
+
+    setbfile(buf, bname, STR_new_limited);	/* Ptt */
+    if (dashf(buf)) {
+	setbfile(buf, bname, FN_CANVOTE);
+	if (!belong(buf, cuser.userid)) {
+	    fclose(cfp);
+	    outs("\n\n對不起! 這是私人投票..你並沒有受邀唷!");
+	    pressanykey();
+	    return FULLUPDATE;
+	} else {
+	    outs("\n\n恭喜你受邀此次私人投票....<按任意鍵檢視此次受邀名單>");
+	    pressanykey();
+	    more(buf, YEA);
+	}
+    }
+    if (vote_flag(bname, ind, '\0')) {
+	outs("\n\n此次投票，你已投過了！");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    setutmpmode(VOTING);
+    setbfile(buf, bname, STR_new_desc);
+    more(buf, YEA);
+
+    stand_title("投票箱");
+    if ((pos = getbnum(bname)) <= 0)
+	return 0;
+
+    fhp = bcache + pos - 1;
+    fgets(inbuf, sizeof(inbuf), cfp);
+    tickets = atoi(inbuf);
+    fscanf(cfp, "%lu\n", &closetime);
+
+    prints("投票方式：確定好您的選擇後，輸入其代碼(A, B, C...)即可。\n"
+	   "此次投票你可以投 %1d 票。"
+	   "按 0 取消投票 , 1 完成投票\n"
+	   "此次投票將結束於：%s \n",
+	   tickets, ctime(&closetime));
+    move(5, 0);
+    memset(choices, 0, sizeof(choices));
+    memset(chosen, 0, sizeof(chosen));
+
+    while (fgets(inbuf, sizeof(inbuf), cfp)) {
+	move((count % 15) + 5, (count / 15) * 40);
+	prints(" %s", strtok(inbuf, "\n\0"));
+	choices[count++] = inbuf[0];
+    }
+    fclose(cfp);
+
+    while (1) {
+	vote[0] = vote[1] = '\0';
+	move(t_lines - 2, 0);
+	prints("你還可以投 %2d 票", tickets - i);
+	getdata(t_lines - 4, 0, "輸入您的選擇: ", vote, sizeof(vote), DOECHO);
+	*vote = toupper(*vote);
+	if (vote[0] == '0' || (!vote[0] && !i)) {
+	    outs("記的再來投喔!!");
+	    break;
+	} else if (vote[0] == '1' && i);
+	else if (!vote[0])
+	    continue;
+	else if (index(choices, vote[0]) == NULL)	/* 無效 */
+	    continue;
+	else if (same(vote[0], chosen, i)) {
+	    move(((vote[0] - 'A') % 15) + 5, (((vote[0] - 'A')) / 15) * 40);
+	    prints(" ");
+	    i--;
+	    continue;
+	} else {
+	    if (i == tickets)
+		continue;
+	    chosen[i] = vote[0];
+	    move(((vote[0] - 'A') % 15) + 5, (((vote[0] - 'A')) / 15) * 40);
+	    prints("*");
+	    i++;
+	    continue;
+	}
+
+	if (vote_flag(bname, ind, vote[0]) != 0)
+	    prints("重複投票! 不予計票。");
+	else {
+	    setbfile(buf, bname, STR_new_ballots);
+	    if ((fd = open(buf, O_WRONLY | O_CREAT | O_APPEND, 0600)) == 0)
+		outs("無法投入票匭\n");
+	    else {
+		struct stat     statb;
+		char            buf[3], mycomments[3][74], b_comments[80];
+
+		for (i = 0; i < 3; i++)
+		    strlcpy(mycomments[i], "\n", sizeof(mycomments[i]));
+
+		flock(fd, LOCK_EX);
+		for (count = 0; count < 31; count++) {
+		    if (chosen[count])
+			write(fd, &chosen[count], 1);
+		}
+		flock(fd, LOCK_UN);
+		fstat(fd, &statb);
+		close(fd);
+		getdata(b_lines - 2, 0,
+			"您對這次投票有什麼寶貴的意見嗎？(y/n)[N]",
+			buf, 3, DOECHO);
+		if (buf[0] == 'Y' || buf[0] == 'y') {
+		    do {
+			move(5, 0);
+			clrtobot();
+			outs("請問您對這次投票有什麼寶貴的意見？"
+			     "最多三行，按[Enter]結束");
+			for (i = 0; (i < 3) &&
+			     getdata(7 + i, 0, "：",
+				     mycomments[i], sizeof(mycomments[i]),
+				     DOECHO); i++);
+			getdata(b_lines - 2, 0, "(S)儲存 (E)重新來過 "
+				"(Q)取消？[S]", buf, 3, LCECHO);
+		    } while (buf[0] == 'E' || buf[0] == 'e');
+		    if (buf[0] == 'Q' || buf[0] == 'q')
+			break;
+		    setbfile(b_comments, bname, STR_new_comments);
+		    if (mycomments[0])
+			if ((fcm = fopen(b_comments, "a"))) {
+			    fprintf(fcm,
+				    "\033[36m○使用者\033[1;36m %s "
+				    "\033[;36m的建議：\033[m\n",
+				    cuser.userid);
+			    for (i = 0; i < 3; i++)
+				fprintf(fcm, "    %s\n", mycomments[i]);
+			    fprintf(fcm, "\n");
+			    fclose(fcm);
+			}
+		}
+		move(b_lines - 1, 0);
+		prints("已完成投票！\n");
+	    }
+	}
+	break;
+    }
+    pressanykey();
+    return FULLUPDATE;
+}
+
+static int
+user_vote(char *bname)
+{
+    int             pos;
+    boardheader_t  *fhp;
+    char            buf[STRLEN];
+    FILE           *fp, *xfp;
+    int             i, x = -1;
+    char            genbuf[STRLEN];
+    char            inbuf[80];
+
+    if ((pos = getbnum(bname)) <= 0)
+	return 0;
+
+    fhp = bcache + pos - 1;
+
+    move(0, 0);
+    clrtobot();
+
+    if (fhp->bvote == 2 || fhp->bvote == 0) {
+	outs("\n\n目前並沒有任何投票舉行。");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    if (!HAS_PERM(PERM_LOGINOK)) {
+	outs("\n對不起! 您未滿二十歲, 還沒有投票權喔!");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+    strlcpy(STR_new_title, STR_bv_title, sizeof(STR_new_title));
+    setbfile(buf, bname, STR_new_control);
+    move(0, 0);
+    if ((fp = fopen(buf, "r"))) {
+	prints("(0) ");
+	x = 0;
+	fclose(fp);
+
+	setbfile(buf, bname, STR_new_title);
+	if ((xfp = fopen(buf, "r"))) {
+	    fgets(inbuf, sizeof(inbuf), xfp);
+	    fclose(xfp);
+	} else
+	    strlcpy(inbuf, "無標題", sizeof(inbuf));
+	prints("%s\n", inbuf);
+    }
+    for (i = 1; i < 20; i++) {
+	snprintf(STR_new_control, sizeof(STR_new_control),
+		 "%s%d", STR_bv_control, i);
+	snprintf(STR_new_title, sizeof(STR_new_title),
+		 "%s%d", STR_bv_title, i);
+	setbfile(buf, bname, STR_new_control);
+	if ((fp = fopen(buf, "r"))) {
+	    prints("(%d) ", i);
+	    x = i;
+	    fclose(fp);
+
+	    setbfile(buf, bname, STR_new_title);
+	    if ((xfp = fopen(buf, "r"))) {
+		fgets(inbuf, sizeof(inbuf), xfp);
+		fclose(xfp);
+	    } else
+		strlcpy(inbuf, "無標題", sizeof(inbuf));
+	    prints("%s\n", inbuf);
+	}
+    }
+
+    if (x < 0)
+	return FULLUPDATE;
+
+    snprintf(buf, sizeof(buf), "要投幾號投票 [%d] ", x);
+
+    getdata(b_lines - 1, 0, buf, genbuf, 4, LCECHO);
+
+    if (atoi(genbuf) < 0 || atoi(genbuf) > 20)
+	snprintf(genbuf, sizeof(genbuf), "%d", x);
+
+    if (genbuf[0] != '0')
+	snprintf(STR_new_control, sizeof(STR_new_control),
+		 "%s%d", STR_bv_control, atoi(genbuf));
+    else
+	strlcpy(STR_new_control, STR_bv_control, sizeof(STR_new_control));
+
+    setbfile(buf, bname, STR_new_control);
+
+    if ((fp = fopen(buf, "r"))) { // TODO try access()
+	fclose(fp);
+
+	return user_vote_one(bname, atoi(genbuf));
+    } else
+	return FULLUPDATE;
+}
+
+static int
+vote_results(char *bname)
+{
+    char            buf[STRLEN];
+
+    setbfile(buf, bname, STR_bv_results);
+    if (more(buf, YEA) == -1)
+	outs("\n目前沒有任何投票的結果。");
+    return FULLUPDATE;
+}
+
+int
+b_vote_maintain()
+{
+    return vote_maintain(currboard);
+}
+
+int
+b_vote()
+{
+    return user_vote(currboard);
+}
+
+int
+b_results()
+{
+    return vote_results(currboard);
+}
diff --git a/pttbbs/mbbsd/voteboard.c b/pttbbs/mbbsd/voteboard.c
new file mode 100644
index 00000000..a0db074e
--- /dev/null
+++ b/pttbbs/mbbsd/voteboard.c
@@ -0,0 +1,438 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define VOTEBOARD "NewBoard"
+
+void
+do_voteboardreply(fileheader_t * fhdr)
+{
+    char            genbuf[1024];
+    char            reason[50];
+    char            fpath[80];
+    char            oldfpath[80];
+    char            opnion[10];
+    char           *ptr;
+    FILE           *fp;
+    fileheader_t    votefile;
+    int             len;
+    int             i, j;
+    int             fd;
+    time_t          endtime;
+    int             hastime = 0;
+
+
+    clear();
+    if (!(currmode & MODE_POST)) {
+	move(5, 10);
+	outs("對不起，您目前無法在此發表文章！");
+	pressanykey();
+	return;
+    }
+    setbpath(fpath, currboard);
+    stampfile(fpath, &votefile);
+
+    setbpath(oldfpath, currboard);
+
+    strcat(oldfpath, "/");
+    strcat(oldfpath, fhdr->filename);
+
+    fp = fopen(oldfpath, "r");
+    assert(fp);
+
+    len = strlen(cuser.userid);
+
+    while (fgets(genbuf, sizeof(genbuf), fp)) {
+	if (!strncmp(genbuf, "連署結束時間", 12)) {
+	    hastime = 1;
+	    ptr = strchr(genbuf, '(');
+	    assert(ptr);
+	    sscanf(ptr + 1, "%ld", &endtime);
+	    if (endtime < now) {
+		prints("連署時間已過");
+		pressanykey();
+		fclose(fp);
+		return;
+	    }
+	}
+	if (!strncmp(genbuf + 4, cuser.userid, len)) {
+	    move(5, 10);
+	    prints("您已經連署過本篇了");
+	    opnion[0] = 'n';
+	    getdata(7, 0, "要修改您之前的連署嗎？(Y/N) [N]", opnion, 3, LCECHO);
+	    if (opnion[0] != 'y') {
+		fclose(fp);
+		return;
+	    }
+	    strlcpy(reason, genbuf + 19, sizeof(reason));
+	}
+    }
+    fclose(fp);
+
+    if ((fd = open(oldfpath, O_RDONLY)) == -1)
+	return;
+
+    fp = fopen(fpath, "w");
+
+    if (!fp)
+	return;
+    i = 0;
+    while (fp) {
+	j = 0;
+	do {
+	    if (read(fd, genbuf + j, 1) <= 0) {
+		flock(fd, LOCK_UN);
+		close(fd);
+		fclose(fp);
+		unlink(fpath);
+		return;
+	    }
+	    j++;
+	} while (genbuf[j - 1] != '\n');
+	genbuf[j] = '\0';
+	i++;
+	if (!strncmp("----------", genbuf, 10))
+	    break;
+	if (i > 3)
+	    prints(genbuf);
+	fprintf(fp, "%s", genbuf);
+    }
+    if (!hastime) {
+	now += 14 * 24 * 60 * 60;
+	fprintf(fp, "連署結束時間: (%ld)%s", now, ctime(&now));
+	now -= 14 * 24 * 60 * 60;
+    }
+    fprintf(fp, "%s", genbuf);
+
+    do {
+	if (!getdata(18, 0, "請問您 (Y)支持 (N)反對 這個議題：", opnion, 3, LCECHO)) {
+	    flock(fd, LOCK_UN);
+	    close(fd);
+	    fclose(fp);
+	    unlink(fpath);
+	    return;
+	}
+    } while (opnion[0] != 'y' && opnion[0] != 'n');
+
+    if (!getdata(20, 0, "請問您與這個議題的關係或連署理由為何：",
+		 reason, sizeof(reason), DOECHO)) {
+	flock(fd, LOCK_UN);
+	close(fd);
+	fclose(fp);
+	unlink(fpath);
+	return;
+    }
+    flock(fd, LOCK_EX);
+    i = 0;
+
+    while (fp) {
+	i++;
+	j = 0;
+	do {
+	    if (read(fd, genbuf + j, 1) <= 0) {
+		flock(fd, LOCK_UN);
+		close(fd);
+		fclose(fp);
+		unlink(fpath);
+		return;
+	    }
+	    j++;
+	} while (genbuf[j - 1] != '\n');
+	genbuf[j] = '\0';
+	if (!strncmp("----------", genbuf, 10))
+	    break;
+	if (strncmp(genbuf + 4, cuser.userid, len))
+	    fprintf(fp, "%3d.%s", i, genbuf + 4);
+	else
+	    i--;
+    }
+    if (opnion[0] == 'y')
+	fprintf(fp, "%3d.%-15s%-34s 來源:%s\n", i, cuser.userid, reason, cuser.lasthost);
+    i = 0;
+    fprintf(fp, "%s", genbuf);
+    while (fp) {
+	i++;
+	j = 0;
+	do {
+	    if (!read(fd, genbuf + j, 1))
+		break;
+	    j++;
+	} while (genbuf[j - 1] != '\n');
+	genbuf[j] = '\0';
+	if (j <= 3)
+	    break;
+	if (strncmp(genbuf + 4, cuser.userid, len))
+	    fprintf(fp, "%3d.%s", i, genbuf + 4);
+	else
+	    i--;
+    }
+    if (opnion[0] == 'n')
+	fprintf(fp, "%3d.%-15s%-34s 來源:%s\n", i, cuser.userid, reason, cuser.lasthost);
+    flock(fd, LOCK_UN);
+    close(fd);
+    fclose(fp);
+    unlink(oldfpath);
+    rename(fpath, oldfpath);
+}
+
+int
+do_voteboard()
+{
+    fileheader_t    votefile;
+    char            topic[100];
+    char            title[80];
+    char            genbuf[1024];
+    char            fpath[80];
+    FILE           *fp;
+    int             temp, i;
+
+    clear();
+    if (!(currmode & MODE_POST)) {
+	move(5, 10);
+	outs("對不起，您目前無法在此發表文章！");
+	pressanykey();
+	return FULLUPDATE;
+    }
+    move(0, 0);
+    clrtobot();
+    prints("您正在使用 PTT 的連署系統\n");
+    prints("本連署系統將詢問您一些問題，請小心回答才能開始連署\n");
+    prints("任意提出連署案者，將被列入本系統不受歡迎使用者喔\n");
+    pressanykey();
+    move(0, 0);
+    clrtobot();
+    prints("(1)申請新板 (2)廢除舊板 (3)連署板主 (4)罷免板主\n");
+    if (!strcmp(currboard, VOTEBOARD))
+	prints("(5)連署小組長 (6)罷免小組長 ");
+    if (!strcmp(currboard, VOTEBOARD) && HAS_PERM(PERM_SYSOP))
+	prints("(7)站民公投");
+    prints("(8)申請新群組");
+
+    do {
+	getdata(3, 0, "請輸入連署類別：", topic, 3, DOECHO);
+	temp = atoi(topic);
+    } while (temp <= 0 && temp >= 9);
+
+    switch (temp) {
+    case 1:
+	do {
+	    if (!getdata(4, 0, "請輸入看板英文名稱：", topic, IDLEN + 1, DOECHO))
+		return FULLUPDATE;
+	    else if (invalid_brdname(topic))
+		outs("不是正確的看板名稱");
+	    else if (getbnum(topic) > 0)
+		outs("本名稱已經存在");
+	    else
+		break;
+	} while (temp > 0);
+	snprintf(title, sizeof(title), "[申請新板] %s", topic);
+	snprintf(genbuf, sizeof(genbuf),
+		 "%s\n\n%s%s\n%s", "申請新板", "英文名稱: ", topic, "中文名稱: ");
+
+	if (!getdata(5, 0, "請輸入看板中文名稱：", topic, 20, DOECHO))
+	    return FULLUPDATE;
+	strcat(genbuf, topic);
+	strcat(genbuf, "\n看板類別: ");
+	if (!getdata(6, 0, "請輸入看板類別：", topic, 20, DOECHO))
+	    return FULLUPDATE;
+	strcat(genbuf, topic);
+	strcat(genbuf, "\n板主名單: ");
+	getdata(7, 0, "請輸入板主名單：", topic, IDLEN * 3 + 3, DOECHO);
+	strcat(genbuf, topic);
+	strcat(genbuf, "\n申請原因: \n");
+	outs("請輸入申請原因(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 9; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 9)
+	    return FULLUPDATE;
+	break;
+    case 2:
+	do {
+	    if (!getdata(4, 0, "請輸入看板英文名稱：", topic, IDLEN + 1, DOECHO))
+		return FULLUPDATE;
+	    else if (getbnum(topic) <= 0)
+		outs("本名稱並不存在");
+	    else
+		break;
+	} while (temp > 0);
+	snprintf(title, sizeof(title), "[廢除舊板] %s", topic);
+	snprintf(genbuf, sizeof(genbuf),
+		 "%s\n\n%s%s\n", "廢除舊板", "英文名稱: ", topic);
+	strcat(genbuf, "\n廢除原因: \n");
+	outs("請輸入廢除原因(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 8; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 8)
+	    return FULLUPDATE;
+
+	break;
+    case 3:
+	do {
+	    if (!getdata(4, 0, "請輸入看板英文名稱：", topic, IDLEN + 1, DOECHO))
+		return FULLUPDATE;
+	    else if (getbnum(topic) <= 0)
+		outs("本名稱並不存在");
+	    else
+		break;
+	} while (temp > 0);
+	snprintf(title, sizeof(title), "[連署板主] %s", topic);
+	snprintf(genbuf, sizeof(genbuf), "%s\n\n%s%s\n%s%s", "連署板主", "英文名稱: ", topic, "申請 ID : ", cuser.userid);
+	strcat(genbuf, "\n申請政見: \n");
+	outs("請輸入申請政見(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 8; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 8)
+	    return FULLUPDATE;
+	break;
+    case 4:
+	do {
+	    if (!getdata(4, 0, "請輸入看板英文名稱：", topic, IDLEN + 1, DOECHO))
+		return FULLUPDATE;
+	    else if ((i = getbnum(topic)) <= 0)
+		outs("本名稱並不存在");
+	    else
+		break;
+	} while (temp > 0);
+	snprintf(title, sizeof(title), "[罷免板主] %s", topic);
+	snprintf(genbuf, sizeof(genbuf),
+		 "%s\n\n%s%s\n%s", "罷免板主", "英文名稱: ",
+		 topic, "板主 ID : ");
+	do {
+	    if (!getdata(6, 0, "請輸入板主ID：", topic, IDLEN + 1, DOECHO))
+		return FULLUPDATE;
+	    else if (!userid_is_BM(topic, bcache[i - 1].BM))
+		outs("不是該板的板主");
+	    else
+		break;
+	} while (temp > 0);
+	strcat(genbuf, topic);
+	strcat(genbuf, "\n罷免原因: \n");
+	outs("請輸入罷免原因(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 8; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 8)
+	    return FULLUPDATE;
+	break;
+    case 5:
+	if (!getdata(4, 0, "請輸入小組中英文名稱：", topic, 30, DOECHO))
+	    return FULLUPDATE;
+	snprintf(title, sizeof(title), "[連署小組長] %s", topic);
+	snprintf(genbuf, sizeof(genbuf),
+		 "%s\n\n%s%s\n%s%s", "連署小組長", "小組名稱: ",
+		 topic, "申請 ID : ", cuser.userid);
+	strcat(genbuf, "\n申請政見: \n");
+	outs("請輸入申請政見(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 8; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 8)
+	    return FULLUPDATE;
+	break;
+    case 6:
+
+	if (!getdata(4, 0, "請輸入小組中英文名稱：", topic, 30, DOECHO))
+	    return FULLUPDATE;
+	snprintf(title, sizeof(title), "[罷免小組長] %s", topic);
+	snprintf(genbuf, sizeof(genbuf), "%s\n\n%s%s\n%s",
+		 "罷免小組長", "小組名稱: ", topic, "小組長 ID : ");
+	if (!getdata(6, 0, "請輸入小組長ID：", topic, IDLEN + 1, DOECHO))
+	    return FULLUPDATE;
+	strcat(genbuf, topic);
+	strcat(genbuf, "\n罷免原因: \n");
+	outs("請輸入罷免原因(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 8; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 8)
+	    return FULLUPDATE;
+	break;
+    case 7:
+	if (!HAS_PERM(PERM_SYSOP))
+	    return FULLUPDATE;
+	if (!getdata(4, 0, "請輸入公投主題：", topic, 30, DOECHO))
+	    return FULLUPDATE;
+	snprintf(title, sizeof(title), "%s %s", "[站民公投]", topic);
+	snprintf(genbuf, sizeof(genbuf),
+		 "%s\n\n%s%s\n", "站民公投", "公投主題: ", topic);
+	strcat(genbuf, "\n公投原因: \n");
+	outs("請輸入公投原因(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 8; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 8)
+	    return FULLUPDATE;
+	break;
+    case 8:
+	if (!getdata(4, 0, "請輸入群組中英文名稱：", topic, 30, DOECHO))
+	    return FULLUPDATE;
+	snprintf(title, sizeof(title), "[申請新群組] %s", topic);
+	snprintf(genbuf, sizeof(genbuf), "%s\n\n%s%s\n%s%s",
+		 "申請群組", "群組名稱: ", topic, "申請 ID : ", cuser.userid);
+	strcat(genbuf, "\n申請政見: \n");
+	outs("請輸入申請政見(至多五行)，要清楚填寫不然不會核准喔");
+	for (i = 8; i < 13; i++) {
+	    if (!getdata(i, 0, "：", topic, 60, DOECHO))
+		break;
+	    strcat(genbuf, topic);
+	    strcat(genbuf, "\n");
+	}
+	if (i == 8)
+	    return FULLUPDATE;
+	break;
+    default:
+	return FULLUPDATE;
+    }
+    strcat(genbuf, "連署結束時間: ");
+    now += 14 * 24 * 60 * 60;
+    snprintf(topic, sizeof(topic), "(%ld)", now);
+    strcat(genbuf, topic);
+    strcat(genbuf, ctime(&now));
+    now -= 14 * 24 * 60 * 60;
+    strcat(genbuf, "----------支持----------\n");
+    strcat(genbuf, "----------反對----------\n");
+    outs("開始連署嘍");
+    setbpath(fpath, currboard);
+    stampfile(fpath, &votefile);
+
+    if (!(fp = fopen(fpath, "w"))) {
+	outs("開檔失敗，請稍候重來一次");
+	return FULLUPDATE;
+    }
+    fprintf(fp, "%s%s %s%s\n%s%s\n%s%s", "作者: ", cuser.userid,
+	    "看板: ", currboard,
+	    "標題: ", title,
+	    "時間: ", ctime(&now));
+    fprintf(fp, "%s\n", genbuf);
+    fclose(fp);
+    strlcpy(votefile.owner, cuser.userid, sizeof(votefile.owner));
+    strlcpy(votefile.title, title, sizeof(votefile.title));
+    setbdir(genbuf, currboard);
+    if (append_record(genbuf, &votefile, sizeof(votefile)) != -1)
+	setbtotal(currbid);
+    do_voteboardreply(&votefile);
+    return FULLUPDATE;
+}
diff --git a/pttbbs/mbbsd/xyz.c b/pttbbs/mbbsd/xyz.c
new file mode 100644
index 00000000..6e517fe5
--- /dev/null
+++ b/pttbbs/mbbsd/xyz.c
@@ -0,0 +1,495 @@
+/* $Id$ */
+#include "bbs.h"
+
+#if 0
+/* 各種統計及相關資訊列表 */
+/* Ptt90年度大學聯招查榜系統  */
+int
+x_90()
+{
+    strcpy(dict, "(90)准考證號/姓名/學校/科系/類組");
+    strcpy(database, "etc/90");
+    use_dict();
+    return 0;
+}
+
+/* Ptt89年度大學聯招查榜系統  */
+int
+x_89()
+{
+    strcpy(dict, "(89)准考證號/姓名/學校/科系/類組");
+    strcpy(database, "etc/89");
+    use_dict();
+    return 0;
+}
+/* Ptt88年度大學聯招查榜系統  */
+int
+x_88()
+{
+    strcpy(dict, "(88)准考證號/姓名/學校/科系/類組");
+    strcpy(database, "etc/88");
+    use_dict();
+    return 0;
+}
+/* Ptt87年度大學聯招查榜系統  */
+int
+x_87()
+{
+    strcpy(dict, "(87)准考證號/姓名/學校/科系");
+    strcpy(database, "etc/87");
+    use_dict();
+    return 0;
+}
+
+/* Ptt86年度大學聯招查榜系統  */
+int
+x_86()
+{
+    strcpy(dict, "(86)准考證號/姓名/學校/科系");
+    strcpy(database, "etc/86");
+    use_dict();
+    return 0;
+}
+
+#endif
+int
+x_boardman()
+{
+    more("etc/topboardman", YEA);
+    return 0;
+}
+
+int
+x_user100()
+{
+    more("etc/topusr100", YEA);
+    return 0;
+}
+
+int
+x_history()
+{
+    more("etc/history", YEA);
+    return 0;
+}
+
+#ifdef HAVE_X_BOARDS
+static int
+x_boards()
+{
+    more("etc/topboard.tmp", YEA);
+    return 0;
+}
+#endif
+
+int
+x_birth()
+{
+    more("etc/birth.today", YEA);
+    return 0;
+}
+
+int
+x_weather()
+{
+    more("etc/weather.tmp", YEA);
+    return 0;
+}
+
+int
+x_mrtmap()
+{
+    more("etc/MRT.map", YEA);
+	return 0;
+}
+
+int
+x_stock()
+{
+    more("etc/stock.tmp", YEA);
+    return 0;
+}
+
+int
+x_note()
+{
+    more(fn_note_ans, YEA);
+    return 0;
+}
+
+int
+x_issue()
+{
+    more("etc/day", YEA);
+    return 0;
+}
+
+int
+x_week()
+{
+    more("etc/week", YEA);
+    return 0;
+}
+
+int
+x_today()
+{
+    more("etc/today", YEA);
+    return 0;
+}
+
+int
+x_yesterday()
+{
+    more("etc/yesterday", YEA);
+    return 0;
+}
+
+int
+x_login()
+{
+    more("etc/Welcome_login.0", YEA);
+    return 0;
+}
+
+#ifdef HAVE_INFO
+static int
+x_program()
+{
+    more("etc/version", YEA);
+    return 0;
+}
+#endif
+
+#ifdef HAVE_LICENSE
+static int
+x_gpl()
+{
+    more("etc/GPL", YEA);
+    return 0;
+}
+#endif
+
+int
+note()
+{
+    char    *fn_note_tmp = "note.tmp";
+    char    *fn_note_dat = "note.dat";
+    int             total = 0, i, collect, len;
+    struct stat     st;
+    char            buf[256], buf2[80];
+    int             fd, fx;
+    FILE           *fp, *foo;
+
+    typedef struct notedata_t {
+	time_t          date;
+	char            userid[IDLEN + 1];
+	char            username[19];
+	char            buf[3][80];
+    }               notedata_t;
+    notedata_t      myitem;
+
+    if (cuser.money < 5) {
+	outmsg("\033[1;41m 哎呀! 要投五銀才能留言...沒錢耶..\033[m");
+	clrtoeol();
+	refresh();
+	return 0;
+    }
+    setutmpmode(EDNOTE);
+    do {
+	myitem.buf[0][0] = myitem.buf[1][0] = myitem.buf[2][0] = '\0';
+	move(12, 0);
+	clrtobot();
+	outs("\n投五銀... 嗶... 請留言 (至多三行)，按[Enter]結束");
+	for (i = 0; (i < 3) && getdata(16 + i, 0, "：", myitem.buf[i],
+				       sizeof(myitem.buf[i]) - 5, DOECHO)
+	     && *myitem.buf[i]; i++);
+	getdata(b_lines - 1, 0, "(S)儲存 (E)重新來過 (Q)取消？[S] ",
+		buf, 3, LCECHO);
+
+	if (buf[0] == 'q' || (i == 0 && *buf != 'e'))
+	    return 0;
+    } while (buf[0] == 'e');
+    demoney(-5);
+    strcpy(myitem.userid, cuser.userid);
+    strncpy(myitem.username, cuser.username, 18);
+    myitem.username[18] = '\0';
+    myitem.date = now;
+
+    /* begin load file */
+    if ((foo = fopen(".note", "a")) == NULL)
+	return 0;
+
+    if ((fp = fopen(fn_note_ans, "w")) == NULL) {
+	fclose(fp);
+	return 0;
+    }
+
+    if ((fx = open(fn_note_tmp, O_WRONLY | O_CREAT, 0644)) <= 0) {
+	fclose(foo);
+	fclose(fp);
+	return 0;
+    }
+
+    if ((fd = open(fn_note_dat, O_RDONLY)) == -1)
+	total = 1;
+    else if (fstat(fd, &st) != -1) {
+	total = st.st_size / sizeof(notedata_t) + 1;
+	if (total > MAX_NOTE)
+	    total = MAX_NOTE;
+    }
+    fputs("\033[1;31;44m☉┬──────────────┤"
+	  "\033[37m酸甜苦辣板\033[31m├──────────────┬☉"
+	  "\033[m\n", fp);
+    collect = 1;
+
+    while (total) {
+	snprintf(buf, sizeof(buf), "\033[1;31m╭┤\033[32m %s \033[37m(%s)",
+		myitem.userid, myitem.username);
+	len = strlen(buf);
+
+	for (i = len; i < 71; i++)
+	    strcat(buf, " ");
+	snprintf(buf2, sizeof(buf2), " \033[1;36m%.16s\033[31m   ├╮\033[m\n",
+		Cdate(&(myitem.date)));
+	strcat(buf, buf2);
+	fputs(buf, fp);
+	if (collect)
+	    fputs(buf, foo);
+	for (i = 0; i < 3 && *myitem.buf[i]; i++) {
+	    fprintf(fp, "\033[1;31m│\033[m%-74.74s\033[1;31m│\033[m\n",
+		    myitem.buf[i]);
+	    if (collect)
+		fprintf(foo, "\033[1;31m│\033[m%-74.74s\033[1;31m│\033[m\n",
+			myitem.buf[i]);
+	}
+	fputs("\033[1;31m╰┬───────────────────────"
+	      "────────────┬╯\033[m\n", fp);
+
+	if (collect) {
+	    fputs("\033[1;31m╰┬─────────────────────"
+		  "──────────────┬╯\033[m\n", foo);
+	    fclose(foo);
+	    collect = 0;
+	}
+	write(fx, &myitem, sizeof(myitem));
+
+	if (--total)
+	    read(fd, (char *)&myitem, sizeof(myitem));
+    }
+    fputs("\033[1;31;44m☉┴───────────────────────"
+	  "────────────┴☉\033[m\n", fp);
+    fclose(fp);
+    close(fd);
+    close(fx);
+    Rename(fn_note_tmp, fn_note_dat);
+    more(fn_note_ans, YEA);
+    return 0;
+}
+
+static void
+mail_sysop()
+{
+    FILE           *fp;
+    char            genbuf[200];
+
+    if ((fp = fopen("etc/sysop", "r"))) {
+	int             i, j;
+	char           *ptr;
+
+	typedef struct sysoplist_t {
+	    char            userid[IDLEN + 1];
+	    char            duty[40];
+	}               sysoplist_t;
+	sysoplist_t     sysoplist[9];
+
+	j = 0;
+	while (fgets(genbuf, 128, fp)) {
+	    if ((ptr = strchr(genbuf, '\n'))) {
+		*ptr = '\0';
+		if ((ptr = strchr(genbuf, ':'))) {
+		    *ptr = '\0';
+		    do {
+			i = *++ptr;
+		    } while (i == ' ' || i == '\t');
+		    if (i) {
+			strcpy(sysoplist[j].userid, genbuf);
+			strcpy(sysoplist[j++].duty, ptr);
+		    }
+		}
+	    }
+	}
+	fclose(fp);
+
+	move(12, 0);
+	clrtobot();
+	prints("%16s   %-18s權責劃分\n\n", "編號", "站長 ID");
+
+	for (i = 0; i < j; i++)
+	    prints("%15d.   \033[1;%dm%-16s%s\033[0m\n",
+		 i + 1, 31 + i % 7, sysoplist[i].userid, sysoplist[i].duty);
+	prints("%-14s0.   \033[1;%dm離開\033[0m", "", 31 + j % 7);
+	getdata(b_lines - 1, 0, "                   請輸入代碼[0]：",
+		genbuf, 4, DOECHO);
+	i = genbuf[0] - '0' - 1;
+	if (i >= 0 && i < j) {
+	    clear();
+	    do_send(sysoplist[i].userid, NULL);
+	}
+    }
+}
+
+int
+m_sysop()
+{
+    setutmpmode(MSYSOP);
+    mail_sysop();
+    return 0;
+}
+
+void 
+log_memoryusage(void)
+{
+  int use=((int)sbrk(0)-0x8048000)/1024;
+  if(use<500)
+    use=499;
+  if(use>1000)
+    use=1000;
+  GLOBALVAR[use/100-4]++; // use [0]~[6]
+}
+
+int
+Goodbye()
+{
+    char            genbuf[100];
+
+    getdata(b_lines - 1, 0, "您確定要離開【 " BBSNAME " 】嗎(Y/N)？[N] ",
+	    genbuf, 3, LCECHO);
+
+    if (*genbuf != 'y')
+	return 0;
+
+    movie(999);
+    if (cuser.userlevel) {
+	getdata(b_lines - 1, 0,
+		"(G)隨風而逝 (M)托夢站長 (N)酸甜苦辣流言板？[G] ",
+		genbuf, 3, LCECHO);
+	if (genbuf[0] == 'm')
+	    mail_sysop();
+	else if (genbuf[0] == 'n')
+	    note();
+    }
+    log_memoryusage();
+    clear();
+    prints("\033[1;36m親愛的 \033[33m%s(%s)\033[36m，別忘了再度光臨\033[45;33m"
+	   " %s \033[40;36m！\n以下是您在站內的註冊資料:\033[0m\n",
+	   cuser.userid, cuser.username, BBSName);
+    user_display(&cuser, 0);
+    pressanykey();
+
+    more("etc/Logout", NA);
+    pressanykey();
+    u_exit("EXIT ");
+    return QUIT;
+}
+
+/* 支援外掛程式 : tin、gopher、www、bbsnet、game、csh */
+#define LOOKFIRST       (0)
+#define LOOKLAST        (1)
+#define QUOTEMODE       (2)
+#define MAXCOMSZ        (1024)
+#define MAXARGS         (40)
+#define MAXENVS         (20)
+#define BINDIR          BBSHOME"/bin/"
+
+#ifdef HAVE_TIN
+static int
+x_tin()
+{
+    clear();
+    return exec_cmd(NEWS, YEA, "bin/tin.sh", "TIN");
+}
+#endif
+
+#ifdef HAVE_GOPHER
+static int
+x_gopher()
+{
+    clear();
+    return exec_cmd(GOPHER, YEA, "bin/gopher.sh", "GOPHER");
+}
+#endif
+
+#ifdef HAVE_WWW
+static int
+x_www()
+{
+    return exec_cmd(WWW, NA, "bin/www.sh", "WWW");
+}
+#endif
+
+#ifdef HAVE_IRC
+static int
+x_irc()
+{
+    return exec_cmd(XMODE, NA, "bin/irc.sh", "IRC");
+}
+#endif
+
+#ifdef HAVE_ARCHIE
+static int
+x_archie()
+{
+    char            buf[STRLEN], ans[4];
+    char            genbuf1[100], genbuf2[200];
+    char           *s;
+
+    setutmpmode(ARCHIE);
+    clear();
+    outs("\n歡迎光臨【\033[1;33;44m" BBSNAME "\033[m】使用 "
+	 "\033[32mARCHIE\033[m 功\能\n");
+    outs("\n本功\能將為您列出在哪個 FTP 站存有您欲尋找的檔案.\n");
+    outs("\n請輸入欲搜尋的字串, 或直接按 <ENTER> 取消。\n");
+    outs("\n                            coder by Harimau\n");
+    outs("                              modified by Leeym\n");
+    getdata(13, 0, "搜尋字串：", buf, 20, DOECHO, 0);
+    if (buf[0] == '\0') {
+	prints("\n取消搜尋.....\n");
+	pressanykey();
+	return;
+    }
+    for (s = buf; *s != '\0'; s++) {
+	if (isspace(*s)) {
+	    prints("\n一次只能搜尋一個字串啦, 不能太貪心喔!!");
+	    pressanykey();
+	    return;
+	}
+    }
+    bbssetenv("ARCHIESTRING", buf);
+    exec_cmd(ARCHIE, YEA, "bin/archie.sh", ARCHIE);
+    log_usies("ARCHIE", "");
+    strcpy(genbuf1, buf);
+    snprintf(buf, sizeof(buf), BBSHOME "/tmp/archie.%s", cuser.userid);
+    if (dashf(buf)) {
+	getdata(0, 0, "要將結果寄回信箱嗎(Y/N)？[N]",
+		ans, sizeof(ans), DOECHO, 0);
+	if (*ans == 'y') {
+	    fileheader_t    mhdr;
+	    char            title[128], buf1[80];
+
+	    sethomepath(buf1, cuser.userid);
+	    stampfile(buf1, &mhdr);
+	    strcpy(mhdr.owner, cuser.userid);
+	    sprintf(genbuf2, sizeof(genbuf2),
+		    "Archie 搜尋檔案: %s 結果", genbuf1);
+	    strcpy(mhdr.title, genbuf2);
+	    mhdr.filemode = 0;
+	    sethomedir(title, cuser.userid);
+	    append_record(title, &mhdr, sizeof(mhdr));
+	    Link(buf, buf1);
+	}
+	more(buf, YEA);
+	unlink(buf);
+    }
+}
+#endif				/* HAVE_ARCHIE */
diff --git a/pttbbs/pttbbs.mk b/pttbbs/pttbbs.mk
new file mode 100644
index 00000000..90e9c36f
--- /dev/null
+++ b/pttbbs/pttbbs.mk
@@ -0,0 +1,50 @@
+# $Id: pttbbs.mk,v 1.8 2003/07/22 03:51:43 in2 Exp $
+# 定義基本初值
+BBSHOME?=	$(HOME)
+BBSHOME?=	/home/bbs
+OSTYPE!=	uname
+CC?=		gcc
+CCACHE!=	which ccache|sed -e 's/^.*\///'
+PTT_CFLAGS=	-Wall -pipe -DBBSHOME='"$(BBSHOME)"' -I../include
+PTT_LDFLAGS=	-pipe -Wall
+PTT_LIBS=	-lcrypt
+
+# enable assert()
+#PTT_CFLAGS+=	-DNDEBUG 
+
+# FreeBSD特有的環境
+CFLAGS_FreeBSD=	-DHAVE_SETPROCTITLE
+LDFLAGS_FreeBSD=
+LIBS_FreeBSD=	-lkvm
+
+# Linux特有的環境
+# CFLAGS_linux=   -DHAVE_DES_CRYPT -DLinux
+CFLAGS_Linux=	
+LDFLAGS_Linux=	-pipe -Wall 
+LIBS_Linux=	
+
+# CFLAGS, LDFLAGS, LIBS 加入 OS 相關參數
+PTT_CFLAGS+=	$(CFLAGS_$(OSTYPE))
+PTT_LDFLAGS+=	$(LDFLAGS_$(OSTYPE))
+PTT_LIBS+=	$(LIBS_$(OSTYPE))
+
+# 若有定義 GDB或 DEBUG, 則加入 -g , 否則用 -O
+.if defined(GDB) || defined(DEBUG)
+CFLAGS=		-g $(PTT_CFLAGS)
+LDFLAGS=	-g $(PTT_LDFLAGS) $(PTT_LIBS)
+.else
+CFLAGS+=	-O2 -Os -fomit-frame-pointer -fstrength-reduce \
+		-fthread-jumps -fexpensive-optimizations \
+		$(PTT_CFLAGS)
+LDFLAGS+=	-O2 $(PTT_LDFLAGS) $(PTT_LIBS)
+.endif
+
+# 若有定義 DEBUG, 則在 CFLAGS內定義 DEBUG
+.if defined(DEBUG)
+CFLAGS+=	-DDEBUG
+.endif
+
+# 若有定義 NO_FORK, 則在 CFLAGS內定義 NO_FORK
+.if defined(NO_FORK)
+CFLAGS+=	-DNO_FORK
+.endif
diff --git a/pttbbs/pttpi/README b/pttbbs/pttpi/README
new file mode 100644
index 00000000..8f60ff6c
--- /dev/null
+++ b/pttbbs/pttpi/README
@@ -0,0 +1,4 @@
+PTT Programming Interface
+
+這目前還是一個實驗性的東西,
+它還不穩定, 沒有效率, 沒有經過完整測試, 並且 spec 還在編修中.
diff --git a/pttbbs/pttpi/cgi/Makefile b/pttbbs/pttpi/cgi/Makefile
new file mode 100644
index 00000000..8b7b61a1
--- /dev/null
+++ b/pttbbs/pttpi/cgi/Makefile
@@ -0,0 +1,16 @@
+# $Id$
+
+.include "../../pttbbs.mk"
+
+CFLAGS+=	-I../../include `xmlrpc-c-config cgi-server --cflags`
+LDFLAGS+=	`xmlrpc-c-config cgi-server --libs`
+
+UTIL_OBJS=	\
+	../../util/util_cache.o ../../util/util_record.o ../../util/util_passwd.o 
+all:	pttpi.cgi
+
+pttpi.cgi: pttpi.c
+	$(CC) $(CFLAGS) $(LDFLAGS) -o pttpi.cgi pttpi.c $(UTIL_OBJS)
+
+clean:
+	rm -f *.cgi *~
diff --git a/pttbbs/pttpi/cgi/pttpi.c b/pttbbs/pttpi/cgi/pttpi.c
new file mode 100644
index 00000000..28ec6197
--- /dev/null
+++ b/pttbbs/pttpi/cgi/pttpi.c
@@ -0,0 +1,249 @@
+/* $Id$ */
+#include "bbs.h"
+#include "pierr.h"
+#include <xmlrpc.h>
+#include <xmlrpc_cgi.h>
+
+extern SHM_t *SHM;
+typedef xmlrpc_int32 int32;
+
+#define errorexit() if( env->fault_occurred ) return NULL
+int check_board_and_permission(int bid)
+{
+    return (bid < 0 || bid > MAX_BOARD ||
+	    !bcache[bid].brdname[0]    ||
+	    (bcache[bid].brdattr & BRD_HIDE)  ||
+	    (bcache[bid].level && !(bcache[bid].brdattr & BRD_POSTMASK) &&
+	     (bcache[bid].level & 
+	      ~(PERM_BASIC|PERM_CHAT|PERM_PAGE|PERM_POST|PERM_LOGINOK))));
+}
+
+#define check_bp_return(bid)						\
+    if( check_board_and_permission(bid) )				\
+        return xmlrpc_build_value(env, "{s:i}",				\
+				  "errno", PIERR_NOBRD);
+
+#define errorreturn(returncode)						\
+    return xmlrpc_build_value(env, "{s:i}",				\
+                              "errno", returncode)
+
+xmlrpc_value *
+getBid(xmlrpc_env *env, xmlrpc_value *param_array, void *user_data)
+{
+    /* !!! overwrite util_cache.c !!! */
+    char    *brdname;
+    int     bid;
+
+    xmlrpc_parse_value(env, param_array, "(s)", &brdname);
+    errorexit();
+
+    bid = getbnum(brdname);
+    return xmlrpc_build_value(env, "{s:i,s:s,s:i}",
+			      "errno", (bid == -1 ? PIERR_NOBRD : PIERR_OK),
+			      "brdname", brdname,
+			      "bid", (int32)bid);
+}
+
+xmlrpc_value *
+getBrdInfo(xmlrpc_env *env, xmlrpc_value *param_array, void *user_data)
+{
+    int32 bid;
+
+    xmlrpc_parse_value(env, param_array, "(i)", &bid);
+    errorexit();
+    check_bp_return(bid);
+
+    return xmlrpc_build_value(env, "{s:i,s:s,s:i,s:6,s:6,s:i}",
+			      "errno",   PIERR_OK,
+			      "brdname", bcache[bid].brdname,
+			      "bid",     (int32)bid,
+			      "title",   bcache[bid].title, strlen(bcache[bid].title),
+			      "BM",      bcache[bid].BM, strlen(bcache[bid].BM),
+			      "nuser",   bcache[bid].nuser);
+}
+
+char *getpath(int bid, char *fn)
+{
+    static  char    fpath[MAXPATHLEN];
+    if( fn == NULL )
+	fn = "";
+    snprintf(fpath, sizeof(fpath), "boards/%c/%s/%s",
+	     bcache[bid].brdname[0], bcache[bid].brdname, fn);
+    return fpath;
+}
+
+int getfilesize(int bid, char *fn, int *fd)
+{
+    struct  stat    sb;
+    if( fd == NULL ){
+	if( stat(getpath(bid, fn), &sb) < 0 )
+	    return -1;
+    }
+    else {
+	if( (*fd = open(getpath(bid, fn), O_RDONLY)) < 0 )
+	    return -1;
+	if( fstat(*fd, &sb) < 0 ){
+	    close(*fd);
+	    return -1;
+	}
+    }
+    return sb.st_size;
+}
+
+xmlrpc_value *
+getNarticle(xmlrpc_env *env, xmlrpc_value *param_array, void *user_data)
+{
+    int     bid, nas;
+
+    xmlrpc_parse_value(env, param_array, "(i)", &bid);
+    errorexit();
+    check_bp_return(bid);
+    nas = getfilesize(bid, ".DIR", NULL);
+
+    return xmlrpc_build_value(env, "{s:i,s:i}",
+			      "errno",    (nas == -1 ? PIERR_INT : PIERR_OK),
+			      "narticle", nas / sizeof(fileheader_t));
+}
+
+xmlrpc_value *
+class_list(xmlrpc_env *env, xmlrpc_value *param_array, void *user_data)
+{
+    int     bid;
+    boardheader_t *bptr;
+    xmlrpc_value  *ret, *t;
+
+    xmlrpc_parse_value(env, param_array, "(i)", &bid);
+    errorexit();
+
+    if( bid != 0 )
+	check_bp_return(bid);
+
+    if( bid != 0 && !(bcache[bid].brdattr & BRD_GROUPBOARD) )
+	errorreturn(PIERR_NOTCLASS);
+
+    ret = xmlrpc_build_value(env, "()");
+    for( bptr = bcache[bid].firstchild[0] ;
+	 bptr != (boardheader_t*)~0      ;
+	 bptr = bptr->next[0]              ){
+	if( check_board_and_permission(bptr - bcache) )
+	    continue;
+	t = xmlrpc_build_value(env, "{s:i,s:s,s:6,s:i,s:6,s:i,s:b}",
+			       "bid",     (int32)(bptr - bcache),
+			       "brdname", bptr->brdname,
+			       "title",   bptr->title + 5, strlen(bptr->title) - 5,
+			       "gid",     bptr->gid,
+			       "BM",      bptr->BM, strlen(bptr->BM),
+			       "nuser",   (int32)bptr->nuser,
+			       "isclass", (xmlrpc_bool)
+			                  (bptr->brdattr & BRD_GROUPBOARD) ? 1 : 0
+			       );
+	xmlrpc_array_append_item(env, ret, t);
+    }
+    return ret;
+}
+
+xmlrpc_value *
+article_list(xmlrpc_env *env, xmlrpc_value *param_array, void *user_data)
+{
+#define MAXGETARTICLES 20
+    xmlrpc_value *ret, *t;
+    fileheader_t art[MAXGETARTICLES];
+    int32   bid, from, nArticles, fd, nGets, i;
+
+    xmlrpc_parse_value(env, param_array, "(ii)", &bid, &from);
+    errorexit();
+    check_bp_return(bid);
+
+    if( (nArticles = getfilesize(bid, ".DIR", &fd)) < 0 )
+	errorreturn(PIERR_INT);
+    nArticles /= sizeof(fileheader_t);
+    
+    if( from < 0 )
+	from += nArticles;
+    if( from < 0 || from > nArticles ){
+	close(fd);
+	errorreturn(PIERR_NOMORE);
+    }
+
+    nGets = (((from + MAXGETARTICLES) < nArticles) ?
+	     MAXGETARTICLES : (nArticles - from));
+    if( (nGets = read(fd, art, nGets * sizeof(fileheader_t))) < 0 ){
+	close(fd);
+	errorreturn(PIERR_INT);
+    }
+    close(fd);
+    nGets /= sizeof(fileheader_t);
+
+    ret = xmlrpc_build_value(env, "()");
+    for( i = 0 ; i < nGets ; ++i ){
+	t = xmlrpc_build_value(env, "{s:i,s:s,s:i,s:s,s:s,s:6}",
+			       "articleid", (int32)(from + i),
+			       "filename",  art[i].filename,
+			       "recommend", (int32)art[i].recommend,
+			       "owner",     art[i].owner,
+			       "date",      art[i].date,
+			       "title",     art[i].title, strlen(art[i].title)
+			       );
+	xmlrpc_array_append_item(env, ret, t);
+    }
+    return ret;
+}
+
+xmlrpc_value *
+_article_readfn(xmlrpc_env *env, int bid, char *fn)
+{
+    char    *content;
+    int     fd, size;
+    xmlrpc_value *ret;
+    if( (size = getfilesize(bid, fn, &fd)) < 0 )
+	errorreturn(PIERR_INT);
+
+    content = (char *)malloc(sizeof(char) * size);
+    read(fd, content, size);
+    close(fd);
+    ret = xmlrpc_build_value(env, "{s:6}", "content", content, size);
+    free(content);
+
+    return ret;
+}
+
+xmlrpc_value *
+article_readfn(xmlrpc_env *env, xmlrpc_value *param_array, void *user_data)
+{
+    int     bid;
+    char    *fn;
+
+    xmlrpc_parse_value(env, param_array, "(is)", &bid, &fn);
+    errorexit();
+
+    if( fn == NULL || (fn[0] != 'M' && fn[0] != 'G') || fn[1] != '.' )
+	errorreturn(PIERR_NOBRD);
+    check_bp_return(bid);
+
+    return _article_readfn(env, bid, fn);
+}
+
+int main(int argc, char **argv)
+{
+    attach_SHM();
+    chdir(BBSHOME);
+    xmlrpc_cgi_init(XMLRPC_CGI_NO_FLAGS);
+    xmlrpc_cgi_add_method_w_doc("board.getBid", &getBid, NULL, "?",
+				"get bid from brdname");
+    xmlrpc_cgi_add_method_w_doc("board.getBrdInfo", &getBrdInfo, NULL, "?",
+				"get board information");
+    xmlrpc_cgi_add_method_w_doc("board.getNarticle", &getNarticle, NULL, "?",
+				"get # articles in the board");
+
+    xmlrpc_cgi_add_method_w_doc("class.list", &class_list, NULL, "?",
+				"list (C)lass");
+
+    xmlrpc_cgi_add_method_w_doc("article.list", &article_list, NULL, "?",
+				"article list");
+    xmlrpc_cgi_add_method_w_doc("article.readfn", &article_readfn, NULL, "?",
+				"read the article by filename");
+
+    xmlrpc_cgi_process_call();
+    xmlrpc_cgi_cleanup();
+    return 0;
+}
diff --git a/pttbbs/pttpi/cgi/t/.cvsignore b/pttbbs/pttpi/cgi/t/.cvsignore
new file mode 100644
index 00000000..9f20a79c
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/.cvsignore
@@ -0,0 +1 @@
+host.pl
diff --git a/pttbbs/pttpi/cgi/t/article.list.pl b/pttbbs/pttpi/cgi/t/article.list.pl
new file mode 100644
index 00000000..9943741a
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/article.list.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+# $Id$
+use Frontier::Client;
+use Frontier::RPC2;
+use MIME::Base64;
+use Data::Dumper;
+do 'host.pl';
+
+$bid = $ARGV[0] || 0;
+
+$server = Frontier::Client->new(url => $server_url);
+$result = $server->call('article.list',
+			$bid, # bid
+			0);   # from # article
+
+print Dumper($result);
diff --git a/pttbbs/pttpi/cgi/t/article.readfn.pl b/pttbbs/pttpi/cgi/t/article.readfn.pl
new file mode 100644
index 00000000..805948ff
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/article.readfn.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+# $Id$
+use Frontier::Client;
+use Frontier::RPC2;
+use MIME::Base64;
+use Data::Dumper;
+do 'host.pl';
+
+$bid = $ARGV[0] || 0;
+$fn = $ARGV[1] || 'M.1047292518.A.48E';
+
+$server = Frontier::Client->new(url => $server_url);
+$result = $server->call('article.readfn', $bid, $fn);
+
+print decode_base64($result->{content}->value());
diff --git a/pttbbs/pttpi/cgi/t/board.getBid.pl b/pttbbs/pttpi/cgi/t/board.getBid.pl
new file mode 100644
index 00000000..0e542f5c
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/board.getBid.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+# $Id$
+use Frontier::Client;
+use Data::Dumper;
+do 'host.pl';
+
+$brdname = $ARGV[0] || 'SYSOP';
+$server = Frontier::Client->new(url => $server_url);
+$result = $server->call('board.getBid', $brdname);
+
+print "board.getBid($brdname) from $server_url:\n";
+print Dumper($result);
diff --git a/pttbbs/pttpi/cgi/t/board.getBrdInfo.pl b/pttbbs/pttpi/cgi/t/board.getBrdInfo.pl
new file mode 100644
index 00000000..4de62ca2
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/board.getBrdInfo.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+# $Id$
+use Frontier::Client;
+use Frontier::RPC2;
+use MIME::Base64;
+use Data::Dumper;
+do 'host.pl';
+
+$bid = $ARGV[0] || 0;
+
+$server = Frontier::Client->new(url => $server_url);
+$result = $server->call('board.getBrdInfo', $bid);
+
+print Dumper($result);
+print decode_base64($result->{title}->value());
diff --git a/pttbbs/pttpi/cgi/t/board.getNarticle.pl b/pttbbs/pttpi/cgi/t/board.getNarticle.pl
new file mode 100644
index 00000000..1cc0a422
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/board.getNarticle.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+# $Id$
+use Frontier::Client;
+use Frontier::RPC2;
+use MIME::Base64;
+use Data::Dumper;
+do 'host.pl';
+
+$bid = $ARGV[0] || 0;
+
+$server = Frontier::Client->new(url => $server_url);
+$result = $server->call('board.getNarticle', $bid);
+
+print Dumper($result);
diff --git a/pttbbs/pttpi/cgi/t/class.list.pl b/pttbbs/pttpi/cgi/t/class.list.pl
new file mode 100644
index 00000000..f328caf3
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/class.list.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+# $Id$
+use Frontier::Client;
+use Frontier::RPC2;
+use MIME::Base64;
+use Data::Dumper;
+do 'host.pl';
+
+$bid = $ARGV[0] || 0;
+
+$server = Frontier::Client->new(url => $server_url);
+$result = $server->call('class.list', $bid);
+
+print Dumper($result);
diff --git a/pttbbs/pttpi/cgi/t/host.pl.sample b/pttbbs/pttpi/cgi/t/host.pl.sample
new file mode 100644
index 00000000..72669230
--- /dev/null
+++ b/pttbbs/pttpi/cgi/t/host.pl.sample
@@ -0,0 +1,2 @@
+#!/usr/bin/perl
+$server_url = 'http://host_to_pttpi/path_to_pttpi/pttpi.cgi'
diff --git a/pttbbs/pttpi/doc/spec b/pttbbs/pttpi/doc/spec
new file mode 100644
index 00000000..e1460030
--- /dev/null
+++ b/pttbbs/pttpi/doc/spec
@@ -0,0 +1,50 @@
+board.getBid	get bid from board name
+input	(s)
+	(board name)
+output	({s:i, s:s, s:i})
+	{errno   => errno,
+	 brdname => boardname,
+	 bid     => boardid} (bid = -1 if error)
+
+
+board.getBrdInfo
+get board information (by bid)
+input	(i)
+	(bid)
+output	({s:i,s:s,s:i,s:6,s:6,s:i})
+	{errno   => errno,
+	 brdname => boardname
+	 bid     => bid,
+	 title   => title (Base64),
+	 BM      => board manager(s) (Base64),
+	 nuser   => #users in this board,
+	}
+
+board.getNarticle
+get # articles in the board
+input	(i)
+	(bid)
+output	({s:i, s:s, s:i})
+	{errno    => errno,
+	 narticle => #articles in the board}
+
+article.list
+get article list of bid
+input	(ii)
+	(bid, from # article)
+output:	({s:i,s:s,s:i,s:s,s:s,s:6}...)
+	[{articleid => article id,
+	  filename  => file name,
+	  recommend => recommend,
+	  owner     => owner's userid,
+	  date      => date (format: mm/dd),
+	  title     => article title (Base64)},
+	 {...},...]
+
+article.readfn
+read article by bid and filename
+input	(is)
+	(bid, filename)
+output	({s:6})
+	{content => content}
+
diff --git a/pttbbs/pttpi/include/pierr.h b/pttbbs/pttpi/include/pierr.h
new file mode 100644
index 00000000..da462a36
--- /dev/null
+++ b/pttbbs/pttpi/include/pierr.h
@@ -0,0 +1,9 @@
+#ifndef _PIERR_H_
+#define _PIERR_H_
+
+#define	PIERR_OK	(int32)0	/* no error */
+#define	PIERR_INT	(int32)1	/* internal error (ex: syscall failure) */
+#define	PIERR_NOBRD	(int32)2	/* no such board or permission denied */
+#define	PIERR_NOMORE	(int32)3	/* no more data */
+#define	PIERR_NOTCLASS	(int32)4	/* this bid is NOT class */
+#endif
diff --git a/pttbbs/sample/LocalVars.pm b/pttbbs/sample/LocalVars.pm
new file mode 100644
index 00000000..70b4925f
--- /dev/null
+++ b/pttbbs/sample/LocalVars.pm
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+package LocalVars;
+require Exporter;
+@ISA = qw/Exporter/;
+@EXPORT = qw/
+    $hostname $MYHOSTNAME $FQDN $SMTPSERVER
+    $BBSHOME $JOBSPOOL $TMP
+    $TAR $LYNX $GREP
+    $BLOGDATA $BLOGCACHE
+    $BLOGdbname $BLOGdbhost $BLOGdbuser $BLOGdbpasswd $BLOGdefault
+/;
+
+# host
+$hostname = 'ptt';
+$MYHOSTNAME = 'ptt.cc';
+$FQDN = 'ptt.csie.ntu.edu.tw';
+$SMTPSERVER = 'ptt2.csie.ntu.edu.tw';
+
+# dir
+$BBSHOME = '/home/bbs';
+$JOBSPOOL = "$BBSHOME/jobspool";
+$TMP = '/tmp';
+
+# program
+$TAR = '/usr/bin/tar';
+$LYNX = '/usr/local/bin/lynx';   # /usr/ports/www/lynx
+$GREP = '/usr/bin/grep';
+
+# BLOG:
+#    $BLOGDATA 是用來放置 Blog 資料的路徑
+#    $BLOGCACHE是用來放置 Template compiled 資料的路徑,
+#              須為 apache owner 可寫入
+$BLOGDATA = '/home/bbs/blog/data';
+$BLOGCACHE = '/home/bbs/blog/cache';
+$BLOGdbname = 'myblog';
+$BLOGdbhost = 'localhost';
+$BLOGdbuser = 'root';
+$BLOGdbpasswd = '';
+$BLOGdefault = 'Blog';
+
+1;
diff --git a/pttbbs/sample/Makefile b/pttbbs/sample/Makefile
new file mode 100644
index 00000000..832eba59
--- /dev/null
+++ b/pttbbs/sample/Makefile
@@ -0,0 +1,11 @@
+SUBDIR=etc innd
+BBSHOME?=$(HOME)
+
+all:
+
+install:
+	@for i in $(SUBDIR); do\
+		cd $$i;\
+		$(MAKE) BBSHOME=$(BBSHOME) $@;\
+		cd ..;\
+	done
diff --git a/pttbbs/sample/crontab b/pttbbs/sample/crontab
new file mode 100644
index 00000000..5cda4092
--- /dev/null
+++ b/pttbbs/sample/crontab
@@ -0,0 +1,108 @@
+# 信件紀錄
+20	7	*	*	*	bin/mailog.sh
+
+# 每天 2:00, 11:00, 16:00, 21:00 開獎
+0 2,11,16,21	*	*	*	bin/openticket.sh
+
+# 每天早上清除過期使用者
+# warning:  目前這個程式無法正常運作, 且可能會搞爛整個密碼檔!!
+#10	7	*	*	*	bin/reaper
+
+# 每個小時 1分執行上站人次統計
+1	*	*	*	*	bin/account
+
+# 每個小時 10 分執行熱門話題統計
+#50	*	*	*	*	bin/parse_news
+10	*	*	*	*	bin/poststat /home/bbs
+
+# 每天 5:30 執行使用者排行榜更新
+30	5	*	*	*	bin/topusr 10 etc/topusr
+30	5	*	*	*	bin/topusr 100 etc/topusr100
+30	5	*	*	*	bin/yearsold
+30	5	*	*	*	bin/horoscope
+
+# 每個月初一, 十五點歌排行榜
+20	6	1,15	*	*	bin/topsong.sh
+
+# 每週三, 六統計轉信所有板
+35	6	*	*	6	bin/showboard .BOARDS > etc/BOARD.rec
+
+# 每天清 logins.bad
+20	3	*	*	*	/bin/rm -f logins.bad
+
+# 清版 (視情況用每天或每週)
+20	3	*	*	1	bin/expire
+
+# 清使用者目錄
+1	7	*	*	1	bin/deluserfile
+
+# 每週二早上 4:30 , 將 BBS boards 中超過七天的 SR. 系列及 ~/tmp/的檔案砍掉, 
+30	4	*	*	2	/usr/bin/find /home/bbs/boards/ -mtime +7 -name SR\* -exec rm -f {} ';'
+30	4	*	*	2	/bin/rm -f ~/tmp/*
+
+# 每天執行一次生日程式
+1	2	*	*	*	bin/birth
+
+# 每星期二五砍掉 boards/d/deleted
+20	6	*	*	2,5	/bin/rm -rf boards/d/deleted; mkdir boards/d/deleted
+
+# 除每月一號整個重新計算精華區, 其他都只在星期二, 四, 六算有更動過的
+# 計算前先砍掉 deleted的精華區
+20	6	*	*	*	/bin/rm -rf man/boards/d/deleted; mkdir man/boards/d/deleted
+30	6	1	*	*	bin/mandex
+30	6	2-31	*	2,4,6	bin/mandex -x
+
+# 每天發票開獎
+40	6	*	*	*	bin/openvice
+
+# 每天砍掉點歌超過 5天檔案
+0	7	*	*	*	/usr/bin/find /home/bbs/etc/SONGO/M* -mtime +5 -exec rm -f {} ';'
+
+# 天氣, 股票
+0 5,11,17,23	*	*	*	bin/weather.sh
+20	12	*	*	*	bin/stock.sh
+
+# 每個月十號早上 3:50 , 將 BBS 系統中長度為零的檔案砍掉
+50	3	10	*	*	/usr/bin/find /home/bbs/boards/*/ -size 0 -exec rm -f {} ';' ; /usr/bin/find /home/bbs/home/*/ -size 0 -exec rm -f {} ';'
+
+# 每天早上 6:50 備份 .PASSWDS, .BRD
+50	6	*	*	*	bin/backpasswd.sh
+
+
+# mrtg每五分鐘計算一次
+#*/5	*	*	*	*	bin/shmctl utmpnum > /tmp/utmpnum
+
+# ???
+10	7	*	*	*	bin/buildAnnounce
+#10	7	*	*	*	bin/toplazyBM.sh
+#10	7	*	*	*	bin/toplazyBBM.sh
+#*/5	*	*	*	*	bin/shmsweep
+#*/10	*	*	*	*	bin/userlist
+
+# 轉信
+*/30	*	*	*	*	(kill -0 `cat /tmp/innbbsd-7777.pid` || innd/innbbsd 7777)
+0,30	2-21	*	*	*	innd/bbslink /home/bbs
+0	3	*	*	*	bin/inndBM
+10	3	*	*	*	innd/ctlinnbbsd reload
+17,47	2,4-21	*	*	*	innd/bbsnnrpall.auto.sh
+40	3	*	*	*	/bin/mv innd/bbslog innd/bbslog.old
+40	2	*	*	*	/bin/mv innd/log/inndBM.log innd/log/inndBM.log.old
+40	2	*	*	*	/bin/mv innd/log/inndBM.log.err innd/log/inndBM.log.err.old
+
+# jobspool
+10	3-20	*	*	*	bin/waterball.pl
+30	3	*	*	*	bin/tarqueue.pl
+
+# 每日備份
+30	3	*	*	*	bin/dailybackup.pl
+
+# 每日砍除 ALLPOST
+30	5	*	*	*	/bin/rm boards/A/ALLPOST; mkdir bords/A/ALLPOST
+
+# utmpfix
+0	2-20	*	*	*	bin/shmctl utmpfix -n
+0	21	*	*	*	bin/shmctl utmpfix -t 10800
+10	21	*	*	*	bin/shmctl utmpfix -t 7200
+20	21	*	*	*	bin/shmctl utmpfix -t 3600
+30,40,50 21	*	*	*	bin/shmctl utmpfix -t 1800
+*/20 22,23,0,1	*	*	*	bin/shmctl utmpfix -t 1200
diff --git a/pttbbs/sample/crontab.old b/pttbbs/sample/crontab.old
new file mode 100644
index 00000000..edec7b89
--- /dev/null
+++ b/pttbbs/sample/crontab.old
@@ -0,0 +1,56 @@
+20 7 * * * bin/mailog.sh > /dev/null
+20 6 * * * rm -f out/*; rm -f out/.DIR
+
+# 每天 12:00 17:00 20:00 00:00 開獎。 
+0 2,11,16,21 * * * bin/openticket.sh > /dev/null
+
+# 每天早上清除過期使用者
+10 7 * * * bin/reaper > /dev/null 2> /dev/null
+
+# 每個小時 1 分執行上站人次統計
+1 * * * * bin/account > /dev/null 2> /dev/null
+
+# 每個小時 10 分執行熱門話題統計
+50 * * * * bin/parse_news
+10 * * * * bin/poststat /home/bbs > /dev/null
+
+# 每天5:30執行使用者排行榜更新
+30 5 * * * bin/topusr 10 etc/topusr > /dev/null
+30 3 * * * bin/topusr 100 etc/topusr100 > /dev/null
+30 5 * * * bin/yearsold > /dev/null
+30 5 * * * bin/horoscope
+
+# 每個月一, 十五號點歌排行榜 
+20 6 1,15 * *  bin/topsong.sh
+
+# 每週三,六統計轉信所有板
+35 6 * * 6 bin/showboard ~/.BOARDS > ~/etc/BOARD.rec
+
+# 每週一早上把user home清一清
+20 3 * * * (/bin/rm -f logins.bad; bin/expire ) > /dev/null
+1  7 * * 1 bin/deluserfile > /dev/null
+
+# 每週二早上 4:30 , 將 BBS boards 中超過七天的 SR. 系列的檔案砍掉
+30 4 * * 2 /usr/bin/find /home/bbs/boards/ -mtime +7 -name SR\* -exec rm -f {} ';'
+30 4 * * 2 /bin/rm -f ~/tmp/* 
+
+# 每天執行一次生日程式
+1 2 * * * bin/birth  > /dev/null
+
+# 每天精華區index一次 index前砍掉deleted的精華區
+15 6 * * * rm -rf man/boards/deleted
+20 6 * * * bin/mandex > /dev/null
+30 6 * * * bin/openvice > /dev/null
+
+# 每天砍掉點歌超過5天檔案
+40 6 * * * ( find /home/bbs/etc/SONGO/M* -mtime +5 -exec rm -f {} ';' )
+
+#天氣股票
+0 5,11,17,23 * * * bin/weather.sh > /dev/null
+20 12 * * * bin/stock.sh > /dev/null
+
+# 每個月一號早上 3:50 , 將 BBS 系統中長度為零的檔案砍掉
+50 3 1 * * ( /usr/bin/find /home1/bbs -size 0 -exec rm -f {} ';' )
+
+#每天早上 6:30 把bbs中的home和passwords備份
+30 6 * * * bin/backpasswd.sh > /dev/null
diff --git a/pttbbs/sample/etc/@five b/pttbbs/sample/etc/@five
new file mode 100644
index 00000000..8c51c8d6
--- /dev/null
+++ b/pttbbs/sample/etc/@five
@@ -0,0 +1,16 @@
+    A B C D E F G H I J K L M N O
+ 15┌┬┬┬┬┬┬┬┬┬┬┬┬┬┐
+ 14├┼┼┼┼┼┼┼┼┼┼┼┼┼┤      [q] 認輸離開
+ 13├┼┼┼┼┼┼┼┼┼┼┼┼┼┤      [u] 悔棋 
+ 12├┼┼┼┼┼┼┼┼┼┼┼┼┼┤      [p] 要求和棋
+ 11├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+ 10├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  9├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  8├┼┼┼┼┼┼┼┼┼┼┼┼┼┤     [歡迎到five_chess討論五子棋喔]
+  7├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  6├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  5├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  4├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  3├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  2├┼┼┼┼┼┼┼┼┼┼┼┼┼┤
+  1└┴┴┴┴┴┴┴┴┴┴┴┴┴┘
diff --git a/pttbbs/sample/etc/Logout b/pttbbs/sample/etc/Logout
new file mode 100644
index 00000000..c1552af8
--- /dev/null
+++ b/pttbbs/sample/etc/Logout
@@ -0,0 +1,20 @@
+
+▆█                      ▏                        總    監
+                    ▍  ▏▋◤  ◥                   (root)
+                    ▎  ▌▌ PTT                    DavidYu
+              ︳  ▏▊◤ ◤ I`ll   
+             ／ ▋▌      be back!                  執行製作
+            ／ ◢／       ◣                        (bbsadm)
+           ▊◢◣●◤ ▆▃▃◣  ◢                   DavidYu
+         ▋▂██         ◢  ◤                    導    演
+          ▋                                         (sysop)
+                        ─▏                      DomaDoma Ricas   
+      ▄▄▂▍            ▍                      keelar   stary
+    ▋    ◥              ▌       
+    ▊▅▁  ◥╴          ▎                        美術指導
+▇▄▂◥╴╴╴／◥▄▃▁                      Skyline(視覺站長) Vica 
+    ◢█◤        ◥                                精 華 區
+  ◢◤◢▅▂  ▇▄▂▂▁▂                           cbcdf
+    ▋      ▆▂    ◥  ◤                          特別感謝
+    ▍          ▆▂▉  ◣                          *s
+    　Ｓｋｙｊａｄｅ◣  ◤                     (本站的最佳主角喔)
diff --git a/pttbbs/sample/etc/MRT.map b/pttbbs/sample/etc/MRT.map
new file mode 100644
index 00000000..aac37d4f
--- /dev/null
+++ b/pttbbs/sample/etc/MRT.map
@@ -0,0 +1,62 @@
+
+          ●淡水                              ※ 感謝本站 MRT 板提供 ※
+          ��
+          ○紅樹林
+          ��
+          ○竹圍                         ▆▆▆▆▆▆▆▆
+          ��                            ▋'            ' ▋
+          ○關渡                       ▋新店             ▋
+          ��                           ▋＿＿        ＿＿ ▋
+          ○忠義                      ▋ ▏  ▏      ▏  ▏▋
+          ��    �歈龤�新北投          ▋ ▏  ▏      ▏  ▏▋
+          �耤堡龤盟���                ▋ ▏  ▏      ▏  ▏▋
+            復  北  ○奇岩            ▆▆▆▆▆▆▆▆▆▆▆
+            興  投  ��                ███████████
+            崗      ○唭哩岸          ███████████
+                    ��                ███████████
+                    ○石牌            ◥█████████◤
+                    ��                    ■          ■
+                    ○明德             ______  ___ _________________
+                    ��                ____   |/  /___  __ \____  __/
+                    ○芝山           ____/ /|_/ /___/ /_/ /___/ /
+                    ��              ____/ /  / /___/ _, _/___/ /
+                    ○士林         ____/_/  /_/___/_/ |_|___/_/
+                    ��
+                    ○劍潭
+                    ��
+                    ○圓山
+                    ��
+                    ○民權西路      �搳堡龤堡龤堡龤堡龤堡龤堡龤堡�
+                    ��              ��                          ○
+                    ○雙連          ○中                        ��
+                    ��              ��山      國                ●
+                    ○中山    忠  南●國  忠  父
+                    ��    善  孝  京��中  孝  紀  市
+                西  ��    導  新  東○    敦  念  政
+                門  ��    寺  生  路��    化  館  府  �搳堡龤堡龤�
+        �歈����龤盟�◎���龤堡龤堡��龤盟��龤堡龤堡龤堡���永  後  昆
+        ��      ��  ��台北車站      ��忠孝復興          春  山  陽
+        ��      ��  ��              ��                      埤
+  龍山寺○      ��  ○臺大醫院      ○大安
+        ��      ��  ��              ��
+        ��      ��  ��              ○科技大樓
+  江子翠○      ○��◎中正紀念堂    �裺���
+        ��   小南門 ��                  ��
+    新埔●          ◎古亭              ○六張犁
+        ��        �歈���                ��
+    板橋○    頂溪○  ○台電大樓        ○麟光
+        ��        ��  ��                ��
+    府中○永安市場○  ○公館            ○辛亥
+        ��        ��  ��                ��
+    湳子○    景安○  ○萬隆            ○萬芳醫院
+        ��        ��  ��                ��
+    海山○  南勢角●  ○景美            �耤堡龤堡龤�
+        ��            ��                  萬  木  動
+    土城○            ○大坪林            芳  柵  物
+        ��            ��                  社      園
+    永寧●            ○七張              區
+                      ��
+                      ○新店市公所
+                      ��
+                      ●新店
+
diff --git a/pttbbs/sample/etc/Makefile b/pttbbs/sample/etc/Makefile
new file mode 100644
index 00000000..6a2755ef
--- /dev/null
+++ b/pttbbs/sample/etc/Makefile
@@ -0,0 +1,22 @@
+SUBDIR=chickens
+BBSHOME?=$(HOME)
+TARGET=$(BBSHOME)/etc/
+FILES=	@five		Welcome		register	today_boring	\
+	Welcome_birth	domain_name_query		registered	\
+	ve.hlp		Logout		Welcome_login	expire.conf	\
+	registeredmail	MRT.map		bad_host	feast		\
+	registermail	Makefile	banemail	goodbye		\
+	sysop
+
+all:
+
+install_sub:
+	@for i in $(SUBDIR); do\
+		cd $$i;\
+		$(MAKE) BBSHOME=$(BBSHOME) install;\
+		cd ..;\
+	done
+
+install: install_sub
+	install -d $(TARGET)
+	install -c -m 644 $(FILES) $(TARGET)
diff --git a/pttbbs/sample/etc/Welcome b/pttbbs/sample/etc/Welcome
new file mode 100644
index 00000000..c8abb5a0
--- /dev/null
+++ b/pttbbs/sample/etc/Welcome
@@ -0,0 +1,18 @@
+
+Welcome to ...
+
+
+
+
+
+ ____  _   _     ____  ____ ____
+|  _ \| |_| |_  | __ )| __ ) ___|
+| |_) | __| __| |  _ \|  _ \___ \
+|  __/| |_| |_  | |_) | |_) |__) |
+|_|    \__|\__| |____/|____/____/
+
+
+
+
+
+歡迎蒞臨◎PttBBS◎目前站上有[*u]人
diff --git a/pttbbs/sample/etc/Welcome_birth b/pttbbs/sample/etc/Welcome_birth
new file mode 100644
index 00000000..5ea57404
--- /dev/null
+++ b/pttbbs/sample/etc/Welcome_birth
@@ -0,0 +1,23 @@
+    嗨*s 忙嗎? 不要忘記自己的生日喔!! 記得發表感言... 
+
+                ╭╮╭╮╭──╮╭──╮╭──╮╭╮╭╮
+                │╰╯││ ☆ ││ ☆ ││ ☆ ││╰╯│
+                │╭╮││╭╮││╭─╯│╭─╯╰╮╭╯
+                ╰╯╰╯╰╯╰╯╰╯    ╰╯      ╰╯
+                              ╭╮
+        ╭╮     ☆ ╭──╮╭╯╰╮╭╮        ╭╮╭──╮╭╮╭╮
+        │╰─╮╭╮│╭─╯╰╮╭╯│╰─╮╭─╯││ ☆ ││╰╯│
+        │ ☆ │││││      │╰╮│╭╮││ ☆ ││╭╮│╰╮╭╯
+        ╰──╯╰╯╰╯      ╰─╯╰╯╰╯╰──╯╰╯╰╯  ╰╯
+
+贈詩一首送佳人,              ☉  ☉  ☉  ☉          批踢踢實業坊全體員工
+予時霜雪臘月天;             ╭╮╭╮╭╮╭╮
+祝音輕吟繞東海,           ╭┴┴┴┴┴┴┴┴╮    誠心的祝福!
+汝影蹤跡現南山;           │☆★☆★☆★☆★│    一個人生的另一個階段就此開始
+生機蓬勃冬不斷,         ╭┴────────┴╮  望能一帆風順.
+日轉星移待明春;         �澺���������������������
+快意暢活人間行,         │��������������������│
+樂音環身樂自添.       ┌┴──────────┴┐
+                      └────────────┘
+   ★★祝你生日快樂★祝你生日快樂★祝你生日快樂★祝你生日快樂★祝你生日快樂★
+   ▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
diff --git a/pttbbs/sample/etc/Welcome_login b/pttbbs/sample/etc/Welcome_login
new file mode 100644
index 00000000..8a2fe993
--- /dev/null
+++ b/pttbbs/sample/etc/Welcome_login
@@ -0,0 +1,12 @@
+
+
+
+
+
+
+
+
+                               歡迎使用 PttBBS ！
+
+
+           有任何問題請到 ptt.csie.ntu.edu.tw 的 PttCurrent 板討論唷!
diff --git a/pttbbs/sample/etc/bad_host b/pttbbs/sample/etc/bad_host
new file mode 100644
index 00000000..e69de29b
--- /dev/null
+++ b/pttbbs/sample/etc/bad_host
diff --git a/pttbbs/sample/etc/banemail b/pttbbs/sample/etc/banemail
new file mode 100644
index 00000000..03286bf0
--- /dev/null
+++ b/pttbbs/sample/etc/banemail
@@ -0,0 +1,22 @@
+# 用來設定哪些信箱不接受
+# 開頭 A表示全部 match的時候就不接受 (ex: 不歡迎的使用者)
+# 開頭 P表示 match這個部份就不接受
+# 開頭 S表示不接受這台 server
+#--
+# 不接受打 ip 的mail server
+P@[
+Purl.com.tw
+P.bbs@
+Skkcity.com.tw
+Syahoo.com
+Syahoo.com.tw
+Syahoo.com.hk
+Skimo.com.tw
+Skimo.com
+Ssinamail.com
+Spchome.com.tw
+Shotmail.com
+Smsn.com
+Syam.com
+Syammail.com
+Smail.taipeilink.net
diff --git a/pttbbs/sample/etc/chickens/Makefile b/pttbbs/sample/etc/chickens/Makefile
new file mode 100644
index 00000000..37d46a1b
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/Makefile
@@ -0,0 +1,23 @@
+BBSHOME?=$(HOME)
+TARGET=$(BBSHOME)/etc/chickens/
+FILES=	buymedicine buyoo clean deadth eat food hit kiss\
+	medicine nofood nohp nosatis oo read sell toofat tootired\
+	a0 a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16\
+	b0 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16\
+	c0 c1 c2 c3 c4 c5 c6 c7 c8 c9 c10 c11 c12 c13 c14 c15 c16\
+	d0 d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 d11 d12 d13 d14 d15 d16\
+	e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16\
+	f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16\
+	g0 g1 g2 g3 g4 g5 g6 g7 g8 g9 g10 g11 g12 g13 g14 g15 g16\
+	h0 h1 h2 h3 h4 h5 h6 h7 h8 h9 h10 h11 h12 h13 h14 h15 h16\
+	i0 i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16\
+	j0 j1 j2 j3 j4 j5 j6 j7 j8 j9 j10 j11 j12 j13 j14 j15 j16\
+	k0 k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11 k12 k13 k14 k15 k16\
+	l0 l1 l2 l3 l4 l5 l6 l7 l8 l9 l10 l11 l12 l13 l14 l15 l16\
+	m0 m1 m2 m3 m4 m5 m6 m7 m8 m9 m10 m11 m12 m13 m14 m15 m16
+
+all:
+
+install:
+	install -d $(TARGET)
+	install -c -m 644 $(FILES) $(TARGET)
diff --git a/pttbbs/sample/etc/chickens/a0 b/pttbbs/sample/etc/chickens/a0
new file mode 100644
index 00000000..db81a6e2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a0
@@ -0,0 +1,11 @@
+
+
+                 //／
+                ☆   
+            ●●     
+           ●●●    
+            ●●     
+                     
+
+
+
diff --git a/pttbbs/sample/etc/chickens/a1 b/pttbbs/sample/etc/chickens/a1
new file mode 100644
index 00000000..e0517a99
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a1
@@ -0,0 +1,11 @@
+
+
+
+               ？？
+         ▂██▂      ★！！
+          ●  ●    ╱//
+          ●  ● |/
+         ／●●／|
+        /|\
+
+
diff --git a/pttbbs/sample/etc/chickens/a10 b/pttbbs/sample/etc/chickens/a10
new file mode 100644
index 00000000..f57b0c1d
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a10
@@ -0,0 +1,15 @@
+                              ◢◢
+                            ◤   ●
+           ● ●●          ●  ◎●
+        ● ●  ●  ●       ●     ◣
+      ●  ● ● ●  ●●● ●    ●
+     ● ●  ●  ●               ●
+    ● ●  ●    ●               ●
+   ●  ● ●      ●              ●
+   ●     ●       ●            ●
+                     ●●●╲●●               ●●   ●●
+                     ╱      ╲                ●●● ●●●
+                    /\╲      /\╲              ●●   ●●
+
+
+
diff --git a/pttbbs/sample/etc/chickens/a11 b/pttbbs/sample/etc/chickens/a11
new file mode 100644
index 00000000..34c70f42
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a11
@@ -0,0 +1,15 @@
+                              ◢◢
+                            ◤   ●
+           ● ●●          ●  ◎●
+        ● ●  ●  ●       ●     ◣
+      ●  ● ● ●  ●●● ●    ●        ●●       ●●
+     ● ●  ●  ●               ●       ● ☉●    ● ☉●
+    ● ●  ●    ●               ●      ●    ◣   ●    ◣
+   ●  ● ●      ●              ●     ●    ●   ●    ●
+   ●     ●       ●            ●      ●    ●   ●    ●
+                     ●●●╲●●         ●●●     ●●●
+                     ╱      ╲           ／   ＼    ／   ＼
+                    /\╲      /\╲       /|\    /|\ /|\    /|\
+
+
+
diff --git a/pttbbs/sample/etc/chickens/a12 b/pttbbs/sample/etc/chickens/a12
new file mode 100644
index 00000000..1f5a40e6
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a12
@@ -0,0 +1,13 @@
+                              ◢◢
+            ●●            ◤   ●
+        ● ● ●●          ●  ◎●
+     ● ● ●  ●  ●       ●     ◣
+   ● ●  ● ● ● ● ●● ●    ●
+  ● ● ●  ●  ●  ●         ●●
+    ● ●  ●    ●  ●        ● ●
+   ●  ● ●      ●   ●     ●  ●
+   ●     ●       ●     ●●   ●
+                     ●●●╲●●
+                     ╱      ╲
+                    /\╲      /\╲
+
diff --git a/pttbbs/sample/etc/chickens/a13 b/pttbbs/sample/etc/chickens/a13
new file mode 100644
index 00000000..2304849a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a13
@@ -0,0 +1,14 @@
+
+                                                     ◢◢
+                                                   ◤   ●
+                            ＊＊ ● ●●          ●  ◎●
+                      ＊      ● ●  ●  ●       ●     ◣
+                  ＊        ●  ● ● ● ● ●● ●    ●
+              ＊           ●  ● ●  ●  ●         ●●
+          ＊ ＊           ●  ●  ●   ●  ●        ● ●
+       ＊  ＊             ●  ●  ●    ●   ●     ●  ●
+ ＊  ＊   ＊              ●             ●     ●●   ●
+  ＊    ＊                                 ●●●╲●●
+                                           ╱      ╲
+                                          /\╲      /\╲
+
diff --git a/pttbbs/sample/etc/chickens/a14 b/pttbbs/sample/etc/chickens/a14
new file mode 100644
index 00000000..c8fc7efa
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a14
@@ -0,0 +1,17 @@
+                                                  ◢◢
+                                                ◤   ●
+                            ＊● ●●          ●  ●●
+                      ＊   ● ●  ●  ●       ●     ◣       殺氣！！
+                  ＊     ●  ● ● ● ● ●● ●    ●
+              ＊        ●  ● ●  ●  ●         ●●             鬥氣！！
+          ＊ ＊        ●  ●  ●   ●  ●        ● ●       ◥
+       ＊  ＊          ●  ●  ●    ●   ●     ●  ●      ◣●-
+ ＊  ＊   ＊           ●             ●     ●●   ●         |●-
+  ＊    ＊                              ●●●╲●●            |●/ / /
+                                        ╱      ╲               | ●●●<
+                                       /\╲      /\╲               \ \ \
+
+
+
+
+
diff --git a/pttbbs/sample/etc/chickens/a15 b/pttbbs/sample/etc/chickens/a15
new file mode 100644
index 00000000..79457982
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a15
@@ -0,0 +1,15 @@
+
+                       嘿嘿！I CATCH YOU！！       ◢◢      /
+                                                 ◤   ●  | ●<
+                            ＊ ● ●●          ●  ∩● |●\ \
+                      ＊    ● ●  ●  ●       ●     ◣●\
+                  ＊      ●  ● ● ● ● ●● ●    ● /●\
+              ＊         ●  ● ●  ●  ●         ●●  /●\
+          ＊ ＊         ●  ●  ●   ●  ●        ● ●    ●◥
+       ＊  ＊           ●  ●  ●    ●   ●     ●  ●     ◣  ﹏help...
+ ＊  ＊   ＊            ●             ●     ●●   ●
+  ＊    ＊                               ●●●●╲●
+                                            ╱     ╲
+                                           /\╲     /\╲
+
+
diff --git a/pttbbs/sample/etc/chickens/a16 b/pttbbs/sample/etc/chickens/a16
new file mode 100644
index 00000000..79457982
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a16
@@ -0,0 +1,15 @@
+
+                       嘿嘿！I CATCH YOU！！       ◢◢      /
+                                                 ◤   ●  | ●<
+                            ＊ ● ●●          ●  ∩● |●\ \
+                      ＊    ● ●  ●  ●       ●     ◣●\
+                  ＊      ●  ● ● ● ● ●● ●    ● /●\
+              ＊         ●  ● ●  ●  ●         ●●  /●\
+          ＊ ＊         ●  ●  ●   ●  ●        ● ●    ●◥
+       ＊  ＊           ●  ●  ●    ●   ●     ●  ●     ◣  ﹏help...
+ ＊  ＊   ＊            ●             ●     ●●   ●
+  ＊    ＊                               ●●●●╲●
+                                            ╱     ╲
+                                           /\╲     /\╲
+
+
diff --git a/pttbbs/sample/etc/chickens/a2 b/pttbbs/sample/etc/chickens/a2
new file mode 100644
index 00000000..6308e505
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a2
@@ -0,0 +1,14 @@
+      ！！！     ╲\\
+               ﹌   ▎
+              ●●  █︴
+            ●   ● █
+        ☆       ● ▎
+        ∣\╲   ●
+
+          ●   ●
+         ／● ●＼
+        /|\     /|\   ╲∣／  ＼∣／
+        ﹌﹌      ﹌               
+
+
+
diff --git a/pttbbs/sample/etc/chickens/a3 b/pttbbs/sample/etc/chickens/a3
new file mode 100644
index 00000000..d076a956
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a3
@@ -0,0 +1,13 @@
+            ●●
+          ●   ●
+         ●   ＞●
+         ●      ◣
+          ●    ●
+         ●      ●     //╱
+         ●      ●    ☆
+          ●●●●╲|/   ●
+          ╱        |     ●      ●●
+         /|\        ●    ●    ●    ●
+                      ●●     ●      ● 
+                      ﹌﹌
+
diff --git a/pttbbs/sample/etc/chickens/a4 b/pttbbs/sample/etc/chickens/a4
new file mode 100644
index 00000000..ea9d6535
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a4
@@ -0,0 +1,13 @@
+           ●●●
+         ●     ●     ？？？ 
+        ●     ☉●
+         ●        ◣
+          ●     ●             ？？
+        ●    ●  ●              ●  ∪  ●
+       ● �  ●    ●              ●▕  ●
+       ●●●      ●                ●●
+          ●●●●●                   ▍
+          ／     ＼                ＊  ▍ ＊
+         /|\      /|\               ＊ ▍＊
+                                      ＊＊   
+
diff --git a/pttbbs/sample/etc/chickens/a5 b/pttbbs/sample/etc/chickens/a5
new file mode 100644
index 00000000..9a014666
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a5
@@ -0,0 +1,15 @@
+                                 My Brother？？
+                   ●●●
+                 ●      ●                 ▋
+               ●          ●              ●●
+               ●  ☉  ☉  ●            ●    ●
+                ●        ●            ●      ●
+               ●   ◥◤   ●            ●    ●
+              ●            ●          ●      ●
+               ●          ●          ●   酒   ●
+              /  ●●●●●  \         ●        ●
+             /|\             /|\        ●●●●●
+
+
+
+
diff --git a/pttbbs/sample/etc/chickens/a6 b/pttbbs/sample/etc/chickens/a6
new file mode 100644
index 00000000..e85fba5a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a6
@@ -0,0 +1,13 @@
+                   ●●●
+          ●     ●      ●     ●
+         ● ● ●          ● ● ●
+         ●    ●  ∩  ∩  ●    ●           ！！！！ 
+          ●    ●        ●    ●
+            ● ●   ◥◤   ● ●             ＼／
+              ●            ●               ◎◎        .
+              ●            ●               ●●      .  .
+               ●          ●                   .       .
+              ╱ ●●●●● ╲                   .     . .
+            / | \           / | \                  . .    . . .
+
+
diff --git a/pttbbs/sample/etc/chickens/a7 b/pttbbs/sample/etc/chickens/a7
new file mode 100644
index 00000000..6b245d46
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a7
@@ -0,0 +1,16 @@
+                     ◢◢ 
+                   ◤   ●         I see you！！
+                   ●  ◎●
+                   ●   ↘◣ 
+     ●●●        ●   ●↘
+      ●   ●●● ●    ●  ↘
+       ●                ●   ↘
+         ●               ●    ↘
+           ●            ●       ↘
+            ●●●╲●●              .. ！！！！
+             ╱     ╲                ∩
+          /\╲       /\╲              ∟﹏
+
+
+
+
diff --git a/pttbbs/sample/etc/chickens/a8 b/pttbbs/sample/etc/chickens/a8
new file mode 100644
index 00000000..9482ca62
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a8
@@ -0,0 +1,13 @@
+                              ◢◢
+                            ◤   ●
+           ● ●●          ●  ◎●
+        ● ●  ●  ●       ●     ◣
+      ●  ● ● ●  ●●● ●    ●
+     ● ●  ●  ●               ●
+    ● ●  ●    ●               ●
+   ●  ● ●      ●              ●
+   ●     ●       ●            ●
+                     ●●●╲●●
+                     ╱      ╲
+                    /\╲      /\╲
+
diff --git a/pttbbs/sample/etc/chickens/a9 b/pttbbs/sample/etc/chickens/a9
new file mode 100644
index 00000000..e2010a91
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/a9
@@ -0,0 +1,14 @@
+                              ◢◢        ◣◣
+                            ◤   ●      ●   ◥
+           ● ●●          ●  ◎●    ●◎  ●
+        ● ●  ●  ●       ●     ◣  ◢     ●
+      ●  ● ● ●  ●●● ●    ●      ●   ●        ●●●
+     ● ●  ●  ●               ●      ●    ● ●●    ●
+    ● ●  ●    ●               ●    ●               ●
+   ●  ● ●      ●              ●   ●              ●
+   ●     ●       ●            ●     ●            ●
+                     ●●●╲●●          ●●╱●●
+                     ╱      ╲              ╱     ╲ 
+                    /\╲      /\╲        ╱/\     ╱/\
+
+
diff --git a/pttbbs/sample/etc/chickens/b0 b/pttbbs/sample/etc/chickens/b0
new file mode 100644
index 00000000..5df42752
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b0
@@ -0,0 +1,9 @@
+
+
+
+
+                                              
+                                  ◤  ◥      
+                                    美        
+                                  ◥  ◤      
+                                              
diff --git a/pttbbs/sample/etc/chickens/b1 b/pttbbs/sample/etc/chickens/b1
new file mode 100644
index 00000000..0f6bb405
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b1
@@ -0,0 +1,9 @@
+
+
+                                                  
+                                 ◤ ▂◥          
+                                  ▃ ▃           
+                                  ◥O◤           
+                                  ● ●           
+                                 ◥   ◤          
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b10 b/pttbbs/sample/etc/chickens/b10
new file mode 100644
index 00000000..920fd9a9
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b10
@@ -0,0 +1,14 @@
+
+                                                  
+                                ◤▂▂ ◥         
+                                  ︵ ︵           
+                                  ● ︽  —☆     
+                                 ◥ ▼◤          
+                                 ◤▼◥           
+                                  口口            
+                                                  
+                                ◤/II\◥          
+                                                  
+                                                  
+                                   ▄             
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b11 b/pttbbs/sample/etc/chickens/b11
new file mode 100644
index 00000000..920fd9a9
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b11
@@ -0,0 +1,14 @@
+
+                                                  
+                                ◤▂▂ ◥         
+                                  ︵ ︵           
+                                  ● ︽  —☆     
+                                 ◥ ▼◤          
+                                 ◤▼◥           
+                                  口口            
+                                                  
+                                ◤/II\◥          
+                                                  
+                                                  
+                                   ▄             
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b12 b/pttbbs/sample/etc/chickens/b12
new file mode 100644
index 00000000..0519b4ed
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b12
@@ -0,0 +1,15 @@
+
+                                ◤▂▂◥         
+                                  ︵︵           
+                                  ●●           
+                                 ◥▼◤          
+                                 ◤▼◥          
+                                  ◥◤           
+                                                 
+                                  IIII           
+                                 I●●I          
+                                IIIIIIII         
+                                IIIIIIII         
+                                IIIIIIII         
+                                                 
+                                   ▄            
diff --git a/pttbbs/sample/etc/chickens/b13 b/pttbbs/sample/etc/chickens/b13
new file mode 100644
index 00000000..84f408bf
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b13
@@ -0,0 +1,17 @@
+                                                 
+                                ◤▂▂◥  �e     
+                                  ︵︵           
+                                  ︽︽           
+                                ◥◥◤◤         
+                                 ◤▼◥          
+                                   ▼            
+                                    :            
+                                    :            
+                                    :            
+                                  ∥∥           
+                                  ∥∥           
+                                  ∥∥           
+                                  ∥∥           
+                                   ｜            
+                                   ▄            
+                                                 
diff --git a/pttbbs/sample/etc/chickens/b14 b/pttbbs/sample/etc/chickens/b14
new file mode 100644
index 00000000..1c7cd389
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b14
@@ -0,0 +1,16 @@
+
+                                ●▅▅●         
+                              ◤  ︵︵  ◥       
+                                  ●●           
+                              ◥ ◥▼◤ ◤       
+                                 ◤▼◥          
+                                    �]           
+                              ▄        ▄       
+                              ▄▄IIII▄▄       
+                                 IIIIII          
+                                IIIIIIII         
+                                IIIIIIII         
+                                IIIIIIII         
+                                   ｜            
+                                   ▄            
+                                                 
diff --git a/pttbbs/sample/etc/chickens/b15 b/pttbbs/sample/etc/chickens/b15
new file mode 100644
index 00000000..0e325c1c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b15
@@ -0,0 +1,17 @@
+
+                                ◤    ◥         
+                                    ︵           
+                                  ◤●           
+                                  ◥◤ ▌        
+                               ▌◤▼◥▌        
+                               ▌  �p  ▌        
+                               ▌      ▌        
+                                  IIII           
+                                 IIIIII          
+                                IIIIIIII         
+                                IIIIIIII         
+                                IIIIIIII         
+                                IIIIIIII         
+                                                 
+                                   ▄            
+                                                 
diff --git a/pttbbs/sample/etc/chickens/b16 b/pttbbs/sample/etc/chickens/b16
new file mode 100644
index 00000000..b25212a0
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b16
@@ -0,0 +1,18 @@
+                                                 
+                                ◤    ◥         
+                                    ︵           
+                                  ◤︽           
+                                  ◥◤ ▌        
+                               ▌◤▼◥▌        
+                               ▌  �W  ▌        
+                               ▌  ｜  ▌        
+                               ▌ ◤◥ ▌        
+                               ▌ IIII█         
+                               ▌ IIII█         
+                                  IIII           
+                                  IIII           
+                                  IIII           
+                                   ｜            
+                                   ▄            
+                                                 
+
diff --git a/pttbbs/sample/etc/chickens/b2 b/pttbbs/sample/etc/chickens/b2
new file mode 100644
index 00000000..ffbe656a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b2
@@ -0,0 +1,11 @@
+
+
+                                                  
+                                 ◤   ◥          
+                                   . .    呀      
+                                  ◥O◤           
+                                  ● ●           
+                                  ◤ ◥           
+                                   _ _            
+                                                  
+
diff --git a/pttbbs/sample/etc/chickens/b3 b/pttbbs/sample/etc/chickens/b3
new file mode 100644
index 00000000..68a81361
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b3
@@ -0,0 +1,10 @@
+
+
+                                                  
+                                 ◤▂▂◥         
+                                   ︵︵           
+                                  ◥▼◤          
+                                  ●  ●          
+                                  ◤  ◥          
+                                    ▃            
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b4 b/pttbbs/sample/etc/chickens/b4
new file mode 100644
index 00000000..fde65f4c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b4
@@ -0,0 +1,11 @@
+
+
+                                                  
+                                 ◤▂▂◥         
+                                   ︵︵           
+                                  ◥▼◤          
+                                  ●  ●          
+                                  ◤  ◥          
+                                                  
+                                    ▃            
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b5 b/pttbbs/sample/etc/chickens/b5
new file mode 100644
index 00000000..b74b0bfb
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b5
@@ -0,0 +1,12 @@
+
+
+                                                  
+                                 ◤▂▂◥         
+                                   ︵︵           
+                                  ◥▼◤          
+                                   ◥◤           
+                                                  
+                                 ◤    ◥         
+                                                  
+                                    ▃            
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b6 b/pttbbs/sample/etc/chickens/b6
new file mode 100644
index 00000000..279b0c2a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b6
@@ -0,0 +1,12 @@
+
+
+                                                  
+                                 ◤▂▂◥         
+                                   ︵︵           
+                                  ◥▼◤          
+                                   ◥◤           
+                                    :             
+                                 ◤    ◥         
+                                                  
+                                    ▃            
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b7 b/pttbbs/sample/etc/chickens/b7
new file mode 100644
index 00000000..279b0c2a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b7
@@ -0,0 +1,12 @@
+
+
+                                                  
+                                 ◤▂▂◥         
+                                   ︵︵           
+                                  ◥▼◤          
+                                   ◥◤           
+                                    :             
+                                 ◤    ◥         
+                                                  
+                                    ▃            
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b8 b/pttbbs/sample/etc/chickens/b8
new file mode 100644
index 00000000..0b429152
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b8
@@ -0,0 +1,13 @@
+
+
+                                                  
+                                ◤▂▂ ◥         
+                                  ︵ ︵           
+                                  ● ︽  —☆     
+                                 ◥ ▼◤          
+                                 ◤▼◥           
+                                  口口            
+                                ◤/II\◥          
+                                                  
+                                   ▄             
+                                                  
diff --git a/pttbbs/sample/etc/chickens/b9 b/pttbbs/sample/etc/chickens/b9
new file mode 100644
index 00000000..0b429152
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/b9
@@ -0,0 +1,13 @@
+
+
+                                                  
+                                ◤▂▂ ◥         
+                                  ︵ ︵           
+                                  ● ︽  —☆     
+                                 ◥ ▼◤          
+                                 ◤▼◥           
+                                  口口            
+                                ◤/II\◥          
+                                                  
+                                   ▄             
+                                                  
diff --git a/pttbbs/sample/etc/chickens/buymedicine b/pttbbs/sample/etc/chickens/buymedicine
new file mode 100644
index 00000000..5fe11de7
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/buymedicine
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+         W R I G L E Y'S       ◥
+  ψ《ＤＯＵＢＬＥＭＩＮＴ》     ▔▔▔▔▔▍
+          CHEWING  GUM           ＩＮＴ》  ▍
+ ◥                            ◥          ▍
+   ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
+
+
+                            買口香糖當感冒藥...
diff --git a/pttbbs/sample/etc/chickens/buyoo b/pttbbs/sample/etc/chickens/buyoo
new file mode 100644
index 00000000..21d5f32a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/buyoo
@@ -0,0 +1,14 @@
+
+                  │                    │
+                  ▲____________________▲
+                  Ⅲ    ◢◣ ┼ ◢◣    Ⅲ
+                  ≡    田田    田田    ≡
+        ▲        █====田田====田田====█        ▲
+        █ΨΨΨΨ█ΠΠΠΠΠΠΠΠΠΠ█ΨΨΨΨ█
+        ▕▔▔▔◥◎◤▔▔▔▔▔▔▔▔◥◎◤▔▔▔▏
+        ▕  田田  █  田田  田田  田田  █  田田  ▏
+        ▕  田田  █  田田§▉▉§田田  █  田田  ▏
+      ▕※※※※※█※※※※▉▉※※※※█※※※※※▏
+  ■══════════◢�������灨岷丐丐丐丐丐丐丐丐丐丑�
+
+                          到教堂求得神奇大補丸一顆
diff --git a/pttbbs/sample/etc/chickens/c0 b/pttbbs/sample/etc/chickens/c0
new file mode 100644
index 00000000..388926ab
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c0
@@ -0,0 +1,8 @@
+
+
+                                  ◢█◣
+                                   \█/     哇∼哇∼
+                                  ◥Ｏ◤
+                                  ／╱█
+                                  ╱██
+                                  ◥█◤
diff --git a/pttbbs/sample/etc/chickens/c1 b/pttbbs/sample/etc/chickens/c1
new file mode 100644
index 00000000..8311a4af
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c1
@@ -0,0 +1,9 @@
+
+                                ◢
+                          ████    什麼是勇士啊？
+                          █◤︵◥◣
+                        ◥██�i█
+                          ◥██◤
+                          ◢ ▼ ◣
+                          █ ◎ █
+
diff --git a/pttbbs/sample/etc/chickens/c10 b/pttbbs/sample/etc/chickens/c10
new file mode 100644
index 00000000..bfafeffc
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c10
@@ -0,0 +1,11 @@
+                       ◣
+                       ████         朝真暮偽誰能辨
+                     ██◤◥█
+                     █◤▌██◤         智愚永是兩公平
+                     ◤◥██◤
+                  ◥█◎◤▼◥◎█◤
+                    ◥█  ╳  █◤
+                    █◥  癡  ◤█
+          ◥█◣    █◢        █
+                ███●▄▄▄▄▄▄▄▄▄▄▄▄◤
+                    ▋◥
diff --git a/pttbbs/sample/etc/chickens/c11 b/pttbbs/sample/etc/chickens/c11
new file mode 100644
index 00000000..0170493b
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c11
@@ -0,0 +1,10 @@
+
+                             ◥█◣      ◢
+                                   ████     人稱一流刀一流
+                        ◥◣▍     █◤◥██
+◢████████████●██ ◥██▌◥█    刀稱一流人一流
+                        ◢◤█     ◥██◤◥
+                            ██◣ ◥ ▼ ◤ ◢████▅
+                                █◣ ◥◤ ◢█
+                                ██◣  ◢██
+                                ██  武  ██
diff --git a/pttbbs/sample/etc/chickens/c12 b/pttbbs/sample/etc/chickens/c12
new file mode 100644
index 00000000..020ae4ca
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c12
@@ -0,0 +1,12 @@
+
+                 ◣      ◢█◤
+                 ████           東風吹醒英雄夢
+               ██◤◥█
+               █◤▌██◤           笑對千山萬重天
+               ◤◥██◤
+          ◣◥█◎◤▼◥◎█◤◢
+            ◣◥█  ╳  █◤◢
+◢█◣        █◥  殺  ◤█
+◤  ◥█◣    █◢◤      █
+          ███●▄▄▄▄▄▄▄▄▄▄▄▄▄◤
+              ▋◥◣
diff --git a/pttbbs/sample/etc/chickens/c13 b/pttbbs/sample/etc/chickens/c13
new file mode 100644
index 00000000..f842255c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c13
@@ -0,0 +1,11 @@
+          ◥█◣      ◢
+                ████        寒劍默聽君子意
+                █◤◥██
+              ◥██▌◥█        傲視人間笑紅塵
+                ◥██◤◥
+       ◥◥ ▽ ◤◤▼◥◥ ▽ ◤◤
+         ◥◥◤◤  ∣  ◥◥◤◤
+           ◥◤█  天  █◥◤  
+               ◥◣    █◢◤  
+                 ◥███●▄▄▄▄▄▄▄▄▄▄▄▄▄◤
+                       ▋◥◣  
diff --git a/pttbbs/sample/etc/chickens/c14 b/pttbbs/sample/etc/chickens/c14
new file mode 100644
index 00000000..35636ed9
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c14
@@ -0,0 +1,12 @@
+                   ◥█◣      ◢
+                         ████           一簫一劍平生意
+                         █◤◥██     ▍
+                       ◥██▌◥█     █   負盡狂名十五年
+                         ◥██◤◥     █
+                  ◣◥◥◤◤▼◥◥◤◤◢█
+                    ◣◥█□╳□█◤◢
+        ◢█◣        █◥◣╳  ◤◢  
+        ◤  ◥█◣    █◢◤悟        
+                  ███●▄▄▄▄▄▄▄▄▄▄▄▄▄▄◤
+                      ▋◥◣∣        
+                          ◤∣        
diff --git a/pttbbs/sample/etc/chickens/c15 b/pttbbs/sample/etc/chickens/c15
new file mode 100644
index 00000000..89822c4f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c15
@@ -0,0 +1,12 @@
+    ◣          ◣    ◢
+    ◥          ◥    ◤       ◢                   簫中弦音藏柔情
+         ◣◥█◣      ◢      ◤                    劍下腥血記恨仇
+ ◥◣    ◥      ████   ◢     ◢◤       ◢◤    來何洶湧需揮劍
+    ◥◣   ◣    █◤◥██ ◤  ◢◤     ◢◤          去向纏綿可復簫
+           ◥  ◥██▌◥█               ◣
+  ◥◣  ◣◥     ◥██◤◥   ◤◢      ◢◤
+          ◣◥██◤▼◥██◤◢████●▄▄▄▄▄▄▄▄▄▄▄▄▄▄◤
+          ◢◣◥×□╳□×◤◢◣      ▆◥◣
+        ◢    ◣◥  ╳  ◤◢    ◣        ◤
+      ◢      █◣  怒  ◢        ◣
+    ◢        █  ███            ◣
diff --git a/pttbbs/sample/etc/chickens/c16 b/pttbbs/sample/etc/chickens/c16
new file mode 100644
index 00000000..93b54373
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c16
@@ -0,0 +1,11 @@
+
+       愛落紅塵心已死                                    ◢
+                                                 ◢████
+        持刀抱劍了一生                           ██◤◥██
+                                ◢               ██  ▌◥█
+                                ◥◣      ◣◥ ◢████◤◥   ◤◢
+◥▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄●████◣◥██◤▼◥██◤◢
+                                ◢◤▆        ◣◥█  ╳  █◤◢◣
+                                ◥            █◣◥  ╳  ◤◢  █◣
+          ∼刀狂劍痴∼                        ██◣  隱  ◢█  ██◣
+                                              ██████  █  ███◣
diff --git a/pttbbs/sample/etc/chickens/c2 b/pttbbs/sample/etc/chickens/c2
new file mode 100644
index 00000000..19901098
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c2
@@ -0,0 +1,9 @@
+
+                          ◣
+                          ████
+                        ◢◤︵◥█
+                          █�i██◤
+                          ◥██◤
+                          ◢ ▼ ◣
+                        ◢◤ ◎ ◥◣
+                          █    █
diff --git a/pttbbs/sample/etc/chickens/c3 b/pttbbs/sample/etc/chickens/c3
new file mode 100644
index 00000000..362d06f0
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c3
@@ -0,0 +1,8 @@
+
+                              ◣
+                              ████
+                            ◢◤︵◥█
+                              █�i██◤
+                              ◥██◤
+                        ███◥ ▼ ◤███
+                                ◥◤  
diff --git a/pttbbs/sample/etc/chickens/c4 b/pttbbs/sample/etc/chickens/c4
new file mode 100644
index 00000000..88095521
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c4
@@ -0,0 +1,11 @@
+
+                              ��
+                              �i
+                              �i           ◢     你！敢接受我的挑戰嗎？
+                              �i     ████
+                              �i     █◤︵◥█
+                              �i   ◥██�i█◥
+                            ◥●◤   ◥██◤
+                              ███◥█▼█◤███▅
+                              █   ◢ ███ ◣
+                                 ◢   █勇█   ◣
diff --git a/pttbbs/sample/etc/chickens/c5 b/pttbbs/sample/etc/chickens/c5
new file mode 100644
index 00000000..ad2311ba
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c5
@@ -0,0 +1,12 @@
+
+
+                      ��
+                      �i
+                      �i           ◢     你！敢接受我的挑戰嗎？
+                      �i     ████
+                      �i     █◤︵◥█
+                      �i   ◥██�i█◥
+                    ◥●◤   ◥██◤
+                      ███◥█▼█◤███▅
+                      █   ◢ ███ ◣
+                         ◢   █勇█   ◣
diff --git a/pttbbs/sample/etc/chickens/c6 b/pttbbs/sample/etc/chickens/c6
new file mode 100644
index 00000000..ee018e38
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c6
@@ -0,0 +1,10 @@
+
+                     ��       ◣
+                     �i       ████    放馬過來！
+                     �i     █◤︵██
+                     �i     ◤█�i◥█◤
+                     �i       ◥██◤
+                     �i    ◢█◤▼◥█◣
+                   ◥●◤  ◢◤█╳██◣
+                   ▆███◤█  忍  █  ◣
+                     █      █      █  █
diff --git a/pttbbs/sample/etc/chickens/c7 b/pttbbs/sample/etc/chickens/c7
new file mode 100644
index 00000000..0db89687
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c7
@@ -0,0 +1,12 @@
+
+         ��
+         �i                 別 人 的 失 敗 就 是 我 的 快 樂 啦 ！
+         �i       ◣
+         �i       ████
+         �i     █◤︵◥█
+         �i     ◤█�i██◤
+         �i       ◥██◤
+         �i    ◥█◣▼◢█◤
+       ◥●◤  ◢◤◥█◤█◣
+         ███◤█      █  ◣
+         █      █  命  █  █
diff --git a/pttbbs/sample/etc/chickens/c8 b/pttbbs/sample/etc/chickens/c8
new file mode 100644
index 00000000..22be6bab
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c8
@@ -0,0 +1,12 @@
+                                      ◢
+                                ████       雙腳踢翻塵世浪
+                                █◤◥██
+                              ◥██▌◥█      一肩擔盡古今愁
+                                ◥██◤◥
+                             █∞◤▼◥∞█
+                             █◤      ◥█
+                             ◤█  狂  █◥
+                               ◥◣    █◢
+                                 ◥███●▄▄▄▄▄▄▄▄▄▄▄▄▄◤
+                                 ◢    ▋◥
+                                 ◤
diff --git a/pttbbs/sample/etc/chickens/c9 b/pttbbs/sample/etc/chickens/c9
new file mode 100644
index 00000000..676a0da9
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/c9
@@ -0,0 +1,11 @@
+         ◣
+         ◥◣
+           ◥◣                     ◣
+             ◥◣                   ████        征衣紅塵化雲煙
+               ◥◣               ██◤◥█
+                 ◥◣             █◤▌██◤       江湖落拓不知年
+                   ◥◣           ◤◥██◤
+                     ◥◣     ◢██◣ ▼ ◢██◣
+                       ◥◣     ◢◤◥◣◢◤◥◣
+                        ◥█◣◢◤  ◣◥◤◢  █
+                          ▆█◤    ◥ 劍 ◤  █
diff --git a/pttbbs/sample/etc/chickens/clean b/pttbbs/sample/etc/chickens/clean
new file mode 100644
index 00000000..9d9118a3
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/clean
@@ -0,0 +1,14 @@
+          �����朅�_____________________▕▔▔▏_______▕＼___
+          �矙��朅�______________  ／▏ ●  ●_________●▕___
+          �矙��矙鱌_____________▕ ● _________▕ ）____●___
+          �����朅�______________●_____________●____________
+            ����              ����������
+                             『████
+                               ████
+             ▁▁▁▁▁▁▁▁◎████
+             ▆▆▆▆▆▆▆▆▉████
+             ◥���������������� ��
+                  ◥█████����
+                  ◢����������
+                  ▔▔▔▔▔▔
+                                洗洗澡..清除便便..
diff --git a/pttbbs/sample/etc/chickens/d0 b/pttbbs/sample/etc/chickens/d0
new file mode 100644
index 00000000..ea818c4d
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d0
@@ -0,0 +1,10 @@
+
+             |/╱
+             ☆
+               
+        ●●   
+       ●蛛●  
+        ●●   
+               
+
+
diff --git a/pttbbs/sample/etc/chickens/d1 b/pttbbs/sample/etc/chickens/d1
new file mode 100644
index 00000000..91e04a2f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d1
@@ -0,0 +1,9 @@
+
+        生命？？
+            ﹏
+    ╲\|   ●●
+     ★       ●︴     ★
+ ！！        ●       ◢▎
+     ●  ●             ◣
+      ●●         \|/  ▎\|/  \|/
+       ﹌                           
diff --git a/pttbbs/sample/etc/chickens/d10 b/pttbbs/sample/etc/chickens/d10
new file mode 100644
index 00000000..714254ea
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d10
@@ -0,0 +1,11 @@
+
+         ●● ●      ！！！！
+      ●        ●                         ∩\
+     ●   ☆      ●  ●●\\     ！！！！  ||∣
+     ●       ★    ●     ☉              ||∣
+      ●●   ●  ● ●       ◣          ☉___________
+       ●/_●﹍●  ●\_ ︼︾             ☉---︶︶︶︶ . . . . . .
+      ●\ ●\  ●/  ●/                    ||∣
+       ◥  ◥  ▼   ◤                     ∪/
+
+
diff --git a/pttbbs/sample/etc/chickens/d11 b/pttbbs/sample/etc/chickens/d11
new file mode 100644
index 00000000..b7e86634
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d11
@@ -0,0 +1,15 @@
+
+                         等等我！！       ◢◣◢◣
+                                          ████
+                                          ◥██◤
+        ●● ●                             ◥◤
+     ●   ☆   ●
+   ●   ★       ●  ●●\\         ●●
+   ●         ☆   ●     ∩      ●     ●  ●●\
+    ●  ●  ●  ●●        ◣   ●        ●   ∩
+      ●▅●▅●▅--●▃︼︾      ▅●▅●▅ ●▃ ◣
+     ●/ ●/ ●/     \●         //   //  //    \\
+     ◥\ ◥\ ◥\     |◤         \|   \|  \|    |/
+                                                    
+
+
diff --git a/pttbbs/sample/etc/chickens/d12 b/pttbbs/sample/etc/chickens/d12
new file mode 100644
index 00000000..ab421653
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d12
@@ -0,0 +1,13 @@
+                              ▂◢▂  ▂◢▂  ▂▎
+                                    ◥ .    ◥  ▎
+                                       .        ▎
+        ●● ●                        .        ▎
+     ●   ☆   ●                  ＞●●∠     ▎
+   ●   ★       ●  ●●\\        —●●－     ▎
+   ●         ☆   ●     ∩        / OO \      ▎
+    ●  ●  ●  ●●        ◣                  ▎
+      ●▅●▅●▅--●▃︼︾                    ▎
+     ●/ ●/ ●/     ●/                        ▎
+     ◥\ ◥\ ◥\     ◤
+                                                  
+
diff --git a/pttbbs/sample/etc/chickens/d13 b/pttbbs/sample/etc/chickens/d13
new file mode 100644
index 00000000..48cef654
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d13
@@ -0,0 +1,13 @@
+                             小魔星？？
+               ● ● ●
+            ●      ＊  ●
+          ●   ＊          ●    ●●\\
+         ●         ＊       ●●   ︵●
+         ●  ＊                     ∩ ●
+          ●  ●＊ ● ＊●●●           ◣
+            ●   ●/ |●╱ ●\ ● ●●︼
+           ●/—●/—●\     ●\
+           ●\   ●\ ●\       ●\
+           ◤     ◥  ◥        ◥           \|/  \|/
+                                                     
+
diff --git a/pttbbs/sample/etc/chickens/d14 b/pttbbs/sample/etc/chickens/d14
new file mode 100644
index 00000000..02f91a47
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d14
@@ -0,0 +1,13 @@
+                                                ︵   ︵
+                              鬥！！      ╲╱ /  |╱ | ︴
+         ● ● ●                         ◎◎/  ╱   / ︴
+      ●  ＊     ●                        ▼●╱   ／/
+    ●＊ ＊ ＊ ＊  ●    ●●\\           / / 》_╱ ╱
+   ●   ＊    ＊     ●●   ︵●          / /○ _╱
+   ●  ＊ ＊ ＊ ＊          ● ●         /／ ● ﹏
+    ●＊● ＊●    ●●          ◣       ●  ●
+      ●   ●/  /● ●\ ╲●︾︼          ●●
+     ●/—●/—\●﹉ ●\                 ╱
+     \●  \●   \●   \●            ☆
+      ◥   ◥    ◥    ◥
+
diff --git a/pttbbs/sample/etc/chickens/d15 b/pttbbs/sample/etc/chickens/d15
new file mode 100644
index 00000000..2c305cb5
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d15
@@ -0,0 +1,11 @@
+                ●         ●   ●●\\
+            ●      ＊      ●●    ︽●
+          ●   ＊                   ▼ ●
+         ●         ＊     ●| ●       ◣
+         ●  ＊            ●|╱ ●●︼/
+          ●  ●＊ ●  ● //●\    _______   ＼／
+            ●/  ●/ ●/_／   ●\ < ﹍/﹍/╲\＞＜
+           ●/--●/--●\       ◥●\_\_ ╱○●▼/
+            ●\  ●\  ●\       ●●●Ω Ω Ω
+             ◥   ◥   ◥      ╱
+
diff --git a/pttbbs/sample/etc/chickens/d16 b/pttbbs/sample/etc/chickens/d16
new file mode 100644
index 00000000..2c305cb5
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d16
@@ -0,0 +1,11 @@
+                ●         ●   ●●\\
+            ●      ＊      ●●    ︽●
+          ●   ＊                   ▼ ●
+         ●         ＊     ●| ●       ◣
+         ●  ＊            ●|╱ ●●︼/
+          ●  ●＊ ●  ● //●\    _______   ＼／
+            ●/  ●/ ●/_／   ●\ < ﹍/﹍/╲\＞＜
+           ●/--●/--●\       ◥●\_\_ ╱○●▼/
+            ●\  ●\  ●\       ●●●Ω Ω Ω
+             ◥   ◥   ◥      ╱
+
diff --git a/pttbbs/sample/etc/chickens/d2 b/pttbbs/sample/etc/chickens/d2
new file mode 100644
index 00000000..b256f5e5
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d2
@@ -0,0 +1,11 @@
+      ▆▆▆▆▆▆▆
+           .
+           .
+           .
+           .
+       ＞●●∠             \★/  \★/
+       —●●－    喔？     ◢▎  ◢▎
+        / OO \                ◣    ◣
+                         \|/  ▎\|/ ▎  \|/
+                                             
+
diff --git a/pttbbs/sample/etc/chickens/d3 b/pttbbs/sample/etc/chickens/d3
new file mode 100644
index 00000000..c0dacb46
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d3
@@ -0,0 +1,16 @@
+       ▆▆▆▆▆▆▆▆
+              .
+              .
+              .
+              .     嘿嘿！dinner？
+          ＞●●＜
+          —●●—
+           /☉☉\
+             \/        ？？
+
+                        >♁﹏﹏ \|/  \|/
+                                         
+
+
+
+
diff --git a/pttbbs/sample/etc/chickens/d4 b/pttbbs/sample/etc/chickens/d4
new file mode 100644
index 00000000..a11683f0
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d4
@@ -0,0 +1,12 @@
+         ▆▆▆▆▆▆▆▆
+                  .
+                  .
+                  .
+                  .     嘿嘿！BIG DINNER！！
+              —●●—
+              ＞ ● ＜
+              ／∩∩＼      ？？？
+                （）
+                            >●O● ﹏﹏
+                             ^ ^ ^          
+
diff --git a/pttbbs/sample/etc/chickens/d5 b/pttbbs/sample/etc/chickens/d5
new file mode 100644
index 00000000..30ca6a2c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d5
@@ -0,0 +1,14 @@
+           ▆▆▆▆▆▆▆▆
+                  .
+                  .
+                  .
+             \    .   /   ☆
+              ╲◢◣╱       ★
+             \—██—/
+          ☆ /—██—\     倒吊太久會不會腦充血啊？？
+              ╱＊＊╲
+             /  （）  \   ☆
+         ★
+
+
+
diff --git a/pttbbs/sample/etc/chickens/d6 b/pttbbs/sample/etc/chickens/d6
new file mode 100644
index 00000000..7e30c6b6
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d6
@@ -0,0 +1,12 @@
+
+                      ●●        可怕嗎？？
+              \     ●    ●     /
+               ╲＿●      ●＿╱          快閃！！！
+                  ＿●    ●＿
+               \╱ ＿●  ●＿ ╲/           ◎●／
+                 ╱ ●    ● ╲         . . ●◎＼
+                ╱‾●︵︵●‾╲    .  .
+               /    ◥◎◎◤    \  .   .
+                     （  ）          .   .
+                                           . . .
+
diff --git a/pttbbs/sample/etc/chickens/d7 b/pttbbs/sample/etc/chickens/d7
new file mode 100644
index 00000000..535e5503
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d7
@@ -0,0 +1,16 @@
+                    .
+                    .            陷阱？？？
+                 ●●
+         \     ●    ●     /
+          ╲＿●      ●＿╱    ▃▃◢▃▃▃◢▃
+             ＿●    ●＿     ＸＸＸＸＸ◥ＸＸＸＸ
+          \╱ ＿●  ●＿ ╲/ＸＸＸＸＸ \/  ＸＸ help﹏
+            ╱ ●    ● ╲   ＸＸＸＸ ◎●︴ＸＸ▎
+           ╱‾●︵︵●‾╲    ◥ＸＸ ●◎  ＸＸ◤
+          /    ◥∩∩◤    \    ◥ＸＸ﹌   ＸＸ ▎
+                （  ）            ◥ＸＸＸＸＸ◥
+                                    ◥ＸＸＸ    ▎╲∣/   \|╱
+
+
+
+
diff --git a/pttbbs/sample/etc/chickens/d8 b/pttbbs/sample/etc/chickens/d8
new file mode 100644
index 00000000..ed46f5e9
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d8
@@ -0,0 +1,14 @@
+
+                                      //╱   流星！！
+                                     ☆
+             ● ●
+          ●      ●  ●●\\
+         ●         ●     ∩      許個願吧！
+         ●         ●       ◣       快快長大！！
+           ▅●▅●▅  ●▃︾
+          //   //  //     \\
+          \|   \|  \|     |/     \|/   \|╱  \|／
+                                                   
+
+
+
diff --git a/pttbbs/sample/etc/chickens/d9 b/pttbbs/sample/etc/chickens/d9
new file mode 100644
index 00000000..409ae520
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/d9
@@ -0,0 +1,13 @@
+
+                                  // ╱
+             ●● ●             //╱    隕石？？
+          ●   Χ   ●          ★
+        ●   Χ       ●  ●●\\
+        ●         Χ   ●     ＞
+         ●  ●   ●  ●         ◣    許願的代價？
+           ●/▅●▅●/▅● ︼︾
+          ●\ ●\  ●\  ●\
+           ◥  ◥   ◥   ◥         \|／  \|/  \|/
+                                                      
+
+
diff --git a/pttbbs/sample/etc/chickens/deadth b/pttbbs/sample/etc/chickens/deadth
new file mode 100644
index 00000000..ff9b3687
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/deadth
@@ -0,0 +1,15 @@
+
+
+
+                                ╭╮﹏﹏{{
+                             ◥███◤
+                              @`@`〝
+                               "_   
+                              ▄▄
+                      ぬ███    
+                           █     
+                                  
+                                  
+                            ╭┘ │              
+                            └─-┘
+                                        嗚 死翹翹了 下次再來吧~~~~
diff --git a/pttbbs/sample/etc/chickens/e0 b/pttbbs/sample/etc/chickens/e0
new file mode 100644
index 00000000..b66f2972
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e0
@@ -0,0 +1,6 @@
+
+
+                                ●●
+                               ●●●
+                                ●●
+
diff --git a/pttbbs/sample/etc/chickens/e1 b/pttbbs/sample/etc/chickens/e1
new file mode 100644
index 00000000..b66f2972
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e1
@@ -0,0 +1,6 @@
+
+
+                                ●●
+                               ●●●
+                                ●●
+
diff --git a/pttbbs/sample/etc/chickens/e10 b/pttbbs/sample/etc/chickens/e10
new file mode 100644
index 00000000..72d37fd8
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e10
@@ -0,0 +1,12 @@
+
+                              ◣◣◢◢
+                           ◣◣◣◣◣◢
+                          ●●●●●●●●
+                    ��  ●●●╳●●╳●●●    ��
+              ������   ●●▼▼▼▼▼▼▼●●  ������
+                  ����  ●●            ●● �����    ◤
+                         ●●▲▲▲▲▲●●  ��●◤◤◤
+                    ●  ●●●●●●●●●● ◤●● ◤
+                  ●●●●●●●●●●●●●●● ◤◤
+                    ●   ●●●●●●●●●●◤◤● �
+                       ●●●●●●●●●●●●●
diff --git a/pttbbs/sample/etc/chickens/e11 b/pttbbs/sample/etc/chickens/e11
new file mode 100644
index 00000000..1579e557
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e11
@@ -0,0 +1,14 @@
+
+                                  ◢◢◢
+                               ◢◢◢◢◢◢
+             ����             ●●●●●●◢◢◢     ◢
+             ������          ●●◢◣●●●◢◢    ◎◎
+                  ��        ●●●●●●●●◢◢◎◎◎
+         ����     ������   ▼▼▼▼▼▼●●◢◎◎◎◎
+         ��    ����                     ●●●◎◎
+            �������� ●    ▲▲▲▲▲▲●●●◢◢◢
+            ��    ●●●●●●●●●●●●●◢◢      ◢
+                         ●●●●●●●●●●◢◢    ◢◢
+                   ●●●●●●●●●●●●●◣◣◣◢◢◢
+                      ●  ●●●●●●●●●●●●◣◣◢
+
diff --git a/pttbbs/sample/etc/chickens/e12 b/pttbbs/sample/etc/chickens/e12
new file mode 100644
index 00000000..0a05bc8a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e12
@@ -0,0 +1,15 @@
+
+     ◎           ◎      ◣◣                               ◎
+                        ◣◣◣◣
+           ◣      ◣◣●●●●●     ◎    ◢◢
+           ◎◎      ◣●●●●●●        ◢◢◢◢
+            ◎◎◎◣◣●●●●����●      ●●●●◢
+           ◎◎◎◎◣●●●●●●●● ◎ ●����●●◢◢    ◢
+      ◎    ◎◎◣◣●●●●●◥◥◥◥  ●●●●●●◢   ◎◎
+             ◎◣◣◣●●●●●         ◤◤●●●●◢◢◎◎           ◎
+              ◣◣◣●●●●●●             ●●●●◢◢◎
+         ◣    ◣◣◣●●●●●●●◢    ◣●●●●●●◢◢
+        ◣◣ ◢◢◢●●●●●●●●●● ●●●●●●●●◢◢   ◢
+         ◣◣◢◢◢●●●●●●●●●●  ●●●●●●●●◣◣◢◢
+
+
diff --git a/pttbbs/sample/etc/chickens/e13 b/pttbbs/sample/etc/chickens/e13
new file mode 100644
index 00000000..7fcee5e0
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e13
@@ -0,0 +1,14 @@
+
+                                ◢◢◢                  ◢
+                              ◢◢◢◢◢◢           ◎◎◎
+               ����          ●●●●●●◢◢◢    ◎◎◎◎
+               ������       ●●╳●●●●◢◢   ◎◎◎◎◎
+                  ��       ●●●●●●●●◢◢◎◎◎◎◎
+         ����  �� ������  ▼▼▼▼▼▼●●◢◎◎◎◎◎◎
+         ��    ����       ●●●        ●●●◎◎◎◎◎
+            �������� ●        ●●    ●●●◢◢◎◎
+            ��    ●●●  ▲▲▲▲▲▲▲●●●◢◢
+                       ●●●●●●●●●●●◢◢    ◢◢
+                   ●●●●●●●●●●●●●◣◣◣◢◢◢
+                      ●  ●●●●●●●●●●●●◣◣◢
+
diff --git a/pttbbs/sample/etc/chickens/e14 b/pttbbs/sample/etc/chickens/e14
new file mode 100644
index 00000000..5685534b
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e14
@@ -0,0 +1,13 @@
+
+                                            ◢◢◢                     ◢
+                                           ◢◢◢◢◢                ◎◎
+                                          ●●●●●●◢◢         ◎◎◎
+                                        ●●●●●●●◢        � ◎◎◎◎
+                                        ●����●●●●●◢◢    ◎◎◎◎◎
+                                       ●●●●●●●●●◢◢   ◎◎◎◎◎
+                                       ◤◤◤◤◤◤●●●●◢◢◎◎◎◎
+                                       ●●●     ●●●●◢◢◎◎◎
+            ●●                  ●        ●●   ●●●●◢◢◎◎
+           ●●●     ●●         ●  ◣◣●●●●●●●●◢◢◢    ◢
+            ●●     ●●●     ●●●●●●●●●●●●●●●◣◣  ◢◢
+                      ●●               ●●●●●●●●●●●◣◢◢◢
diff --git a/pttbbs/sample/etc/chickens/e15 b/pttbbs/sample/etc/chickens/e15
new file mode 100644
index 00000000..b1c406be
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e15
@@ -0,0 +1,13 @@
+
+      ◣                   ◣◣◣       ����
+      ◎◎                ◣◣◣◣◣    ����                ����
+     ◎◎◎◎        ◣◣●●●●●●     ��              ������
+      ◎◎◎◎◎     ◣●●●●●●●●         ����
+       ◎◎◎◎◎ ◣◣●●●●●●╳●●    ��������   �
+        ◎◎◎◎   ◣●●●●◥◥◥◥◥◥ ●     ��    ����
+     �    ◎◎ ◣◣●●●●●�   ●●●●●    ����      ��
+           ◎◎◣◣◣●●●● ●●        ������������
+       ◣    ◎◣◣◣●●●●●◢◢◢◢◢   ●    ����
+       ◣◣   ◣◣◣●●●●●●●●●●   ●        ��     ����
+        ◣◣  ◢◢◢●●●●●●●●●●●●●●   ����     ����
+         ◣◣◢◢◢●●●●●●●●●●            ����
diff --git a/pttbbs/sample/etc/chickens/e16 b/pttbbs/sample/etc/chickens/e16
new file mode 100644
index 00000000..c607a360
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e16
@@ -0,0 +1,14 @@
+
+                                     ◢◢◢          ◢
+                                    ◢◢◢◢◢      ●●◢         ◢
+                                   ●●●●●●◢◢●︽●◢      ◎◎
+                                 ●●●●●●●◢   ●●◢      ◎◎◎
+                                 ●����●●●●●◢◢  ●◣     ◎◎◎◎
+                                ●●●●●●●●●◢◢   ●◢  ◎◎◎◎
+         ◣                     ◤◤◤●●●●●●●◢◢     ◎◎◎
+      ◣●●                 ●        ●●●●●●◢◢   ◎◎◎◎
+     ◣●●●     ◣        ●         ●●●●●●◢◢◎◎◎
+◢◢●●●●   ◣●●�  ● ●   ◣●●●●●●●●●◢◢◢
+              ◣●︽●   ●●●●●●●●●●●●●●●◣◣  ◢
+         ◢◢●●●●   ●      ●●●●●●●●●●●●◣◢◢
+
diff --git a/pttbbs/sample/etc/chickens/e2 b/pttbbs/sample/etc/chickens/e2
new file mode 100644
index 00000000..d975147c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e2
@@ -0,0 +1,6 @@
+
+
+                                ●●◢
+                               ●●●◢
+                                ●●●●◣◣
+
diff --git a/pttbbs/sample/etc/chickens/e3 b/pttbbs/sample/etc/chickens/e3
new file mode 100644
index 00000000..244f71d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e3
@@ -0,0 +1,6 @@
+                                ◢◢
+                               ●●●◢
+                              ●︽︽●◢
+                              ●●●●◢◢
+                               ●●●●●◣◣◢
+
diff --git a/pttbbs/sample/etc/chickens/e4 b/pttbbs/sample/etc/chickens/e4
new file mode 100644
index 00000000..d6b05b44
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e4
@@ -0,0 +1,8 @@
+
+                               ◢◢◢
+                              ●●●●◢
+                             ●●●●●◢
+                            ●●▼▼●◢◢
+                             ●●▲●●●◢◢    ◢
+                              ●●●●●●●◣◣◢
+
diff --git a/pttbbs/sample/etc/chickens/e5 b/pttbbs/sample/etc/chickens/e5
new file mode 100644
index 00000000..a78b2df8
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e5
@@ -0,0 +1,9 @@
+
+                              ◢◢◢
+                             ●●●●◢
+                            ●◣●◢●◢◢
+                           ●●●●●●◢
+                          ●●▼▼▼●●◢◢
+                           ●●▲▲●●●●◢◢    ◢
+                            ●●●●●●●●◣◣◢◢◢
+
diff --git a/pttbbs/sample/etc/chickens/e6 b/pttbbs/sample/etc/chickens/e6
new file mode 100644
index 00000000..66af6938
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e6
@@ -0,0 +1,9 @@
+
+                             ◢◢◢◢
+                            ●●●●◢◢
+                           ●︽●︽●●◢◢
+                          ●●●●●●●◢
+                          ●▼▼▼▼●●◢◢◢
+                          ●●▲▲●●●●◢        ◢
+                           ●●●●●●●●◣◣  ◢◢
+                            ●●●●●●●●●◣◢◢
diff --git a/pttbbs/sample/etc/chickens/e7 b/pttbbs/sample/etc/chickens/e7
new file mode 100644
index 00000000..fc0b8270
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e7
@@ -0,0 +1,11 @@
+
+                       ◣◣◣◣
+                  ◣◣●●●●●                ����
+               ◣◣●●●●����●               ����         ����
+                ◣◣●●●●●●●      ����                 ����
+             ◣◣◣●●●●●●◥◥   ������           ◎
+              ◣◣●●●●●                 ����������             ◎
+             ◣◣●●●●●●●●◢      ����      ����
+         ◣  ◣◣●●●●●●●●●       ����                    ◎
+        ◣◣◢◢●●●●●●●●●
+
diff --git a/pttbbs/sample/etc/chickens/e8 b/pttbbs/sample/etc/chickens/e8
new file mode 100644
index 00000000..6841430c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e8
@@ -0,0 +1,11 @@
+
+                                  ◣◣
+                                 ◣◣◣◣
+                             ◣◣●●●●●
+                              ◣●◣●●◢●
+                           ◣◣●●●●●●●
+                            ◣◣●▼▼▼▼▼●
+                         ◣◣◣●●▲▲▲▲●
+                    ◣    ◣◣●●�歈�●●�歈�
+                   ◣◣◢◢●●●●●●●●●
+                    ◣◢◢●●●●●●●●●�
diff --git a/pttbbs/sample/etc/chickens/e9 b/pttbbs/sample/etc/chickens/e9
new file mode 100644
index 00000000..1c475487
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/e9
@@ -0,0 +1,12 @@
+
+                                  ◣◣
+                               ◣◣◣◣◣
+                              ◣●●●●●
+                            ◣●●●◥◤●●
+                         ◣◣●●▼▼▼◥◥◥    ����
+                          ◣◣●●           ������
+               ◣    ◣◣●●●●▲▲▲▲▲▲     ����
+                ◣    ◣◣●●●●●●●�翦���
+               ◣◣◣◢◢●●●●●●●●●●
+                ◣◣◢●●●●●●●●●●●
+
diff --git a/pttbbs/sample/etc/chickens/eat b/pttbbs/sample/etc/chickens/eat
new file mode 100644
index 00000000..03f3a578
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/eat
@@ -0,0 +1,14 @@
+
+
+
+
+                                 _._     ／
+               ╮           ▁  ��  ╮  ▼         　╭
+              （）         [≡   ###/   │          （）
+               ∥      ▕   ▔          ▔   ▏      ∥
+               │      ▕︽︽︽︽︽︽︽︽︽︽▏　    │
+               ╰���踛�           �矱      　  ���踛灨�
+                   ∥             ≡       　    ∥
+                 ╭┴╮         ╭┴╮   　    ╭┴╮
+                 ▔  ▔         ▔  ▔         ▔  ▔
+                                吃飯囉~~~~~~~~
diff --git a/pttbbs/sample/etc/chickens/f0 b/pttbbs/sample/etc/chickens/f0
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f0
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/f1 b/pttbbs/sample/etc/chickens/f1
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f1
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/f10 b/pttbbs/sample/etc/chickens/f10
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f10
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/f11 b/pttbbs/sample/etc/chickens/f11
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f11
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/f12 b/pttbbs/sample/etc/chickens/f12
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f12
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/f13 b/pttbbs/sample/etc/chickens/f13
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f13
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/f14 b/pttbbs/sample/etc/chickens/f14
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f14
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/f15 b/pttbbs/sample/etc/chickens/f15
new file mode 100644
index 00000000..df160353
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f15
@@ -0,0 +1,15 @@
+                                         ●●●●●●
+                                  ●    ●           ●
+                                ●  ●●              ●
+                                ●          ●         ●
+                                  ●●●                ●
+                                ●                      ●
+                                 ●  ●●                ●
+                                   ●  ●                ●
+                                       ●        ●  ●    ●
+                                       ●          ●      ●
+                                       ●                  ●
+                                         ●              ●
+                                         ●  ●●  ●●●
+                                         ●  ●●  ●
+                                           ●    ●
diff --git a/pttbbs/sample/etc/chickens/f16 b/pttbbs/sample/etc/chickens/f16
new file mode 100644
index 00000000..100d4260
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f16
@@ -0,0 +1,15 @@
+                                           ●●●●●●●
+                                         ●          ●●●
+                                       ●    ●    ●  ●●●
+                                   ●●●●●●●        ●●
+                                   ●          ●          ●
+                                   ●●●●●●●          ●
+                                   ●        ●            ●
+                                   ●●●●●●            ●
+                                   ●                    ●
+                                   ●                    ●
+                                     ●                ●
+                                  ●●  ●            ●
+                                  ●      ●●●●●●  ●●
+                                    ●                      ●
+                               ●●●                     ●●
diff --git a/pttbbs/sample/etc/chickens/f2 b/pttbbs/sample/etc/chickens/f2
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f2
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/f3 b/pttbbs/sample/etc/chickens/f3
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f3
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/f4 b/pttbbs/sample/etc/chickens/f4
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f4
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/f5 b/pttbbs/sample/etc/chickens/f5
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f5
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/f6 b/pttbbs/sample/etc/chickens/f6
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f6
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/f7 b/pttbbs/sample/etc/chickens/f7
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f7
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/f8 b/pttbbs/sample/etc/chickens/f8
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f8
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/f9 b/pttbbs/sample/etc/chickens/f9
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/f9
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/food b/pttbbs/sample/etc/chickens/food
new file mode 100644
index 00000000..bb686d2f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/food
@@ -0,0 +1,14 @@
+
+                                      
+                             ▄▄▄   
+                               ◤◤   
+                             ELEVEN   
+                               █     
+                          █▃▃▃▃█
+                       //////
+  　                        
+           ((((((     ●●- >        Ｍaｒsｈaｋt
+           ▄▄▄ˍ  ╰▼  ╯         妙天小廚師 
+                   \－．    >>
+                      ：    
+                                    來買食物啦....
diff --git a/pttbbs/sample/etc/chickens/g0 b/pttbbs/sample/etc/chickens/g0
new file mode 100644
index 00000000..1ed07519
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g0
@@ -0,0 +1,5 @@
+
+                                ●●
+                               ●●●
+                                ●●╯�
+
diff --git a/pttbbs/sample/etc/chickens/g1 b/pttbbs/sample/etc/chickens/g1
new file mode 100644
index 00000000..1ed07519
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g1
@@ -0,0 +1,5 @@
+
+                                ●●
+                               ●●●
+                                ●●╯�
+
diff --git a/pttbbs/sample/etc/chickens/g10 b/pttbbs/sample/etc/chickens/g10
new file mode 100644
index 00000000..cf4c0f14
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g10
@@ -0,0 +1,13 @@
+
+                       ◣    ◢         ◣    ◢         ◣    ◢
+                      ●●●●●       ●●●●●       ●●●●●
+      ☉＊♁☆       ●        ●     ●        ●     ●        ●
+     ☆＊☉＊＊      ● ╳  ╳ ●     ● ︽  ︽ ●     ● 〥  〥 ●
+     ＊♁＊☉＊   ��  ●      ●       ●      ●       ●      ●
+      ＊♁＊☆    ��    ●  ●           ●  ●           ●  ●
+     �����稙����  �� ●        ●      ●      ● ������●      ●
+         ��  �    ��●          ●     ●      ● ��  ��●�     ●
+         ��       ��●          ●    ●        ●��  ��●      ●
+       ���嘵�        ●●●●●●      ●●●●●        ●●●●
+
+
diff --git a/pttbbs/sample/etc/chickens/g11 b/pttbbs/sample/etc/chickens/g11
new file mode 100644
index 00000000..0c6390f8
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g11
@@ -0,0 +1,15 @@
+
+                                  ◣    ◢
+                                ●●●●●●
+                               ●          ● 
+                               ●  ﹏  ﹏  ●
+                               ● ═ ● ═ ●
+                                ●   ﹌   ●
+                                  ●    ●
+                                ●        ●
+                               ●          ●
+                               ●          ● ����������������
+                              ●            ●����������������
+                               ●●●●●●● 
+
+
diff --git a/pttbbs/sample/etc/chickens/g12 b/pttbbs/sample/etc/chickens/g12
new file mode 100644
index 00000000..326c650d
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g12
@@ -0,0 +1,15 @@
+
+                          ◣    ◢   ●●●●●●●
+                        ●●●●●●●●●●●●●●
+                       ●          ●  ●●●●●●●
+                       ● 〥    〥 ●     ●●●●●●
+                       ● ═ ● ═ ●    ●    ●●●●
+                        ●   ∼   ●    ●
+                          ●    ●     ●
+                         ●      ●   ●���
+                       ●●●●●●●● ��
+                      ●●●●●●●●����
+                      ●     ╳     ●��
+                       ●●●●●●●
+
+
diff --git a/pttbbs/sample/etc/chickens/g13 b/pttbbs/sample/etc/chickens/g13
new file mode 100644
index 00000000..0b6e8b53
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g13
@@ -0,0 +1,14 @@
+         ●      ●
+        ●●●●●●     ◣   ◣
+       ●          ●   ●●●●●
+       ●  ︽  ︽  ●  ●        ●
+        ● ＞●＜ ●   ● ︽  ︽ ●
+         ●      ●     ●＞●＜●
+         ●●■●●      ●●●●
+ ����  ●    ■  ●     ●�      ●
+   �� ●     ■   ●    ●        ● ����
+   ��●      ▼   ●    ●         ●��
+   ��●           ●    ●         ●��
+      ●●●●●●●    ●●●●●●�
+
+
diff --git a/pttbbs/sample/etc/chickens/g14 b/pttbbs/sample/etc/chickens/g14
new file mode 100644
index 00000000..12c177ea
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g14
@@ -0,0 +1,14 @@
+
+                       ●      ●
+                      ●●●●●●        ◣    ◢
+                     ●          ●      ●●●●●
+                     ● ●    ● ●     ●        ●
+                     ● ＞ ● ＜ ● ●●● 〥  〥 ●
+�                     ●   ∼   ●  ●● ●═◆═●
+         ◣  ◢         ═●●═    ●●   ●●●
+        ●●●●      ●        ●  ●● ●�     ●
+       ●   �  ●   ●            ●●●●        ●   ◣◢
+       ● ☉☉ ●  ●              ●●●          ●●◤◥�
+        ●    ●   ●              ●●●          ● ☉☉●
+     ��●●●●●   ●●●●●●●●   ●●●●●●●●●●��
+
diff --git a/pttbbs/sample/etc/chickens/g15 b/pttbbs/sample/etc/chickens/g15
new file mode 100644
index 00000000..05757960
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g15
@@ -0,0 +1,14 @@
+
+
+          ●        ●
+         ●●●●●●●
+        ●              ●●●●●      雙下巴都跑出來了呢！
+       ● ＃  ＃                  ●
+      ● ═●═                    ●
+      ●   ︵                       ●
+      ●                            ●
+       ●  ︾                       ●
+         ●                        ●●
+          ●●●●●●●●●●●●●  ●●●●●●●
+
+
diff --git a/pttbbs/sample/etc/chickens/g16 b/pttbbs/sample/etc/chickens/g16
new file mode 100644
index 00000000..03e4ebaa
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g16
@@ -0,0 +1,14 @@
+
+                         ●●
+                     ╮  ● ●     ●●
+              ●●● ╰╮●  ●    ●  ●
+      ●●●●      ● ╰╮     ●●   ●●●        ●
+       ●●   （  ∥ ◤  ╰──╮       ●   ●    ●
+         ●       ●     ●●  ╰╮    ●     ●  ●
+     ●●●   （  ∥ ◣  ●  ●  ╰╮●      ●   ●       ●●●●
+       ●●              ●   ●   ╰╮     ●    ●      ●●●●●
+         ●                          │   ●    ●       ●●●●●●
+           ●                        ╰╮● ●●          ●●●●●
+              ●●●●●●●●●●●● ╰─────────●●●●
+
+
diff --git a/pttbbs/sample/etc/chickens/g2 b/pttbbs/sample/etc/chickens/g2
new file mode 100644
index 00000000..032a3e61
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g2
@@ -0,0 +1,5 @@
+
+                                        ●●●
+                                       ●ＯＯ●
+                                        ●●●��
+
diff --git a/pttbbs/sample/etc/chickens/g3 b/pttbbs/sample/etc/chickens/g3
new file mode 100644
index 00000000..5e65b34d
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g3
@@ -0,0 +1,6 @@
+
+                                ◣  ◢
+                                ●●●
+                               ●ＯＯ●��
+                               ●●●●���
+
diff --git a/pttbbs/sample/etc/chickens/g4 b/pttbbs/sample/etc/chickens/g4
new file mode 100644
index 00000000..5e8a7520
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g4
@@ -0,0 +1,6 @@
+
+                                ◣    ◢
+                                ●●●●
+                               ●Ο  Ο●��
+                               ●≡◆≡●��
+                                ●●●● ��
diff --git a/pttbbs/sample/etc/chickens/g5 b/pttbbs/sample/etc/chickens/g5
new file mode 100644
index 00000000..7bd2bea7
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g5
@@ -0,0 +1,8 @@
+
+                                ◣    ◢
+                               ●●●●●   ��
+                              ● Ω  Ω ●  ��
+                              ● ≧◆≦ ●����
+                               ●●●●● ��
+                                ●    ●
+
diff --git a/pttbbs/sample/etc/chickens/g6 b/pttbbs/sample/etc/chickens/g6
new file mode 100644
index 00000000..87477217
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g6
@@ -0,0 +1,10 @@
+
+                                 ◣�     ◢
+                                ●●●●●●   �����
+                               ● 〥    〥 ●  �矙�
+                               ● ＞ ● ＜ ●  ��
+                                ●   ﹀   ●   ��
+                                 ●●●●●●●●
+                                ●●●●●●●
+
+
diff --git a/pttbbs/sample/etc/chickens/g7 b/pttbbs/sample/etc/chickens/g7
new file mode 100644
index 00000000..08e1a435
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g7
@@ -0,0 +1,11 @@
+
+                                  ●      ●
+                                 ●●●●●●
+                                ●          ●●●
+                               ● 〥   〥        ●        ●
+                               ● ＞●＜          ●  ●●  ●
+                               ●   ∪            ● ●  ●●
+                                ●               ● ●
+                                 ●●●●●●●●●
+                                ●● ●●●●●
+
diff --git a/pttbbs/sample/etc/chickens/g8 b/pttbbs/sample/etc/chickens/g8
new file mode 100644
index 00000000..3de22b49
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g8
@@ -0,0 +1,14 @@
+
+                                               ●
+                                              ●
+                          ◣�    ◣ � ●●●  ●
+                         ●●●●●●●    ● ●
+                        ●                  ●●
+                       ●  ◣  ◢           ●●        �
+                       ●  ＞●＜          ●●
+                       ● ◤    ◥        ●●
+                        ● ◣  ◢      ●●◤◤
+                         ●●●●●●●◤◤
+                        ◤◤  ◤◤
+
+
diff --git a/pttbbs/sample/etc/chickens/g9 b/pttbbs/sample/etc/chickens/g9
new file mode 100644
index 00000000..c0274032
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/g9
@@ -0,0 +1,14 @@
+                                ◢ ◢
+                              ●●●●              ●
+                            ●         ●         ●
+                           ● ●         ●      ●
+                          ●═             ●      ●
+                         ●●●               ●     ●
+        ●●              ●● ●               ●  ●
+         ●        ◢      ●    ●             ●●
+        ●       ◢■◢     ●    ●          ●
+        ●     � ◥■◥     ●      ●      ●
+         ●        ◥      ●        ●   ●
+           ●●●●●●●●        ●●●
+
+
diff --git a/pttbbs/sample/etc/chickens/h0 b/pttbbs/sample/etc/chickens/h0
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h0
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/h1 b/pttbbs/sample/etc/chickens/h1
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h1
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/h10 b/pttbbs/sample/etc/chickens/h10
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h10
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/h11 b/pttbbs/sample/etc/chickens/h11
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h11
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/h12 b/pttbbs/sample/etc/chickens/h12
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h12
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/h13 b/pttbbs/sample/etc/chickens/h13
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h13
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/h14 b/pttbbs/sample/etc/chickens/h14
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h14
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/h15 b/pttbbs/sample/etc/chickens/h15
new file mode 100644
index 00000000..df160353
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h15
@@ -0,0 +1,15 @@
+                                         ●●●●●●
+                                  ●    ●           ●
+                                ●  ●●              ●
+                                ●          ●         ●
+                                  ●●●                ●
+                                ●                      ●
+                                 ●  ●●                ●
+                                   ●  ●                ●
+                                       ●        ●  ●    ●
+                                       ●          ●      ●
+                                       ●                  ●
+                                         ●              ●
+                                         ●  ●●  ●●●
+                                         ●  ●●  ●
+                                           ●    ●
diff --git a/pttbbs/sample/etc/chickens/h16 b/pttbbs/sample/etc/chickens/h16
new file mode 100644
index 00000000..100d4260
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h16
@@ -0,0 +1,15 @@
+                                           ●●●●●●●
+                                         ●          ●●●
+                                       ●    ●    ●  ●●●
+                                   ●●●●●●●        ●●
+                                   ●          ●          ●
+                                   ●●●●●●●          ●
+                                   ●        ●            ●
+                                   ●●●●●●            ●
+                                   ●                    ●
+                                   ●                    ●
+                                     ●                ●
+                                  ●●  ●            ●
+                                  ●      ●●●●●●  ●●
+                                    ●                      ●
+                               ●●●                     ●●
diff --git a/pttbbs/sample/etc/chickens/h2 b/pttbbs/sample/etc/chickens/h2
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h2
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/h3 b/pttbbs/sample/etc/chickens/h3
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h3
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/h4 b/pttbbs/sample/etc/chickens/h4
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h4
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/h5 b/pttbbs/sample/etc/chickens/h5
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h5
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/h6 b/pttbbs/sample/etc/chickens/h6
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h6
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/h7 b/pttbbs/sample/etc/chickens/h7
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h7
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/h8 b/pttbbs/sample/etc/chickens/h8
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h8
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/h9 b/pttbbs/sample/etc/chickens/h9
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/h9
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/hit b/pttbbs/sample/etc/chickens/hit
new file mode 100644
index 00000000..2fe4b736
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/hit
@@ -0,0 +1,14 @@
+
+
+
+
+
+              ◤ "                                           >< 
+             �d▃                            █              ﹌ 
+                 ███                          █      █ �f�f █
+               `` ▊ ●."                 █             █  ▊  █
+           ◢▇◥◣                                        ◢ ▇◣
+           .�o  .�o                                        �o,  �o,
+
+
+                                      嘿 打架練身體..
diff --git a/pttbbs/sample/etc/chickens/i0 b/pttbbs/sample/etc/chickens/i0
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i0
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/i1 b/pttbbs/sample/etc/chickens/i1
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i1
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/i10 b/pttbbs/sample/etc/chickens/i10
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i10
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/i11 b/pttbbs/sample/etc/chickens/i11
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i11
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/i12 b/pttbbs/sample/etc/chickens/i12
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i12
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/i13 b/pttbbs/sample/etc/chickens/i13
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i13
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/i14 b/pttbbs/sample/etc/chickens/i14
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i14
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/i15 b/pttbbs/sample/etc/chickens/i15
new file mode 100644
index 00000000..df160353
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i15
@@ -0,0 +1,15 @@
+                                         ●●●●●●
+                                  ●    ●           ●
+                                ●  ●●              ●
+                                ●          ●         ●
+                                  ●●●                ●
+                                ●                      ●
+                                 ●  ●●                ●
+                                   ●  ●                ●
+                                       ●        ●  ●    ●
+                                       ●          ●      ●
+                                       ●                  ●
+                                         ●              ●
+                                         ●  ●●  ●●●
+                                         ●  ●●  ●
+                                           ●    ●
diff --git a/pttbbs/sample/etc/chickens/i16 b/pttbbs/sample/etc/chickens/i16
new file mode 100644
index 00000000..100d4260
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i16
@@ -0,0 +1,15 @@
+                                           ●●●●●●●
+                                         ●          ●●●
+                                       ●    ●    ●  ●●●
+                                   ●●●●●●●        ●●
+                                   ●          ●          ●
+                                   ●●●●●●●          ●
+                                   ●        ●            ●
+                                   ●●●●●●            ●
+                                   ●                    ●
+                                   ●                    ●
+                                     ●                ●
+                                  ●●  ●            ●
+                                  ●      ●●●●●●  ●●
+                                    ●                      ●
+                               ●●●                     ●●
diff --git a/pttbbs/sample/etc/chickens/i2 b/pttbbs/sample/etc/chickens/i2
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i2
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/i3 b/pttbbs/sample/etc/chickens/i3
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i3
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/i4 b/pttbbs/sample/etc/chickens/i4
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i4
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/i5 b/pttbbs/sample/etc/chickens/i5
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i5
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/i6 b/pttbbs/sample/etc/chickens/i6
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i6
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/i7 b/pttbbs/sample/etc/chickens/i7
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i7
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/i8 b/pttbbs/sample/etc/chickens/i8
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i8
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/i9 b/pttbbs/sample/etc/chickens/i9
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/i9
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/j0 b/pttbbs/sample/etc/chickens/j0
new file mode 100644
index 00000000..0aeb9433
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j0
@@ -0,0 +1,8 @@
+
+
+
+                            ●●
+                           ●●●   ▲
+                            ●● ●●●
+
+                                有尾巴的惡魔卵
diff --git a/pttbbs/sample/etc/chickens/j1 b/pttbbs/sample/etc/chickens/j1
new file mode 100644
index 00000000..2f5324a9
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j1
@@ -0,0 +1,9 @@
+
+
+
+                                       ▲
+                                    ▼●●●
+                               ▲    ●●●●
+                              ●●    ●●●
+                                 ●●●
+
diff --git a/pttbbs/sample/etc/chickens/j10 b/pttbbs/sample/etc/chickens/j10
new file mode 100644
index 00000000..ca0238c3
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j10
@@ -0,0 +1,12 @@
+                                     ▲
+                                    ●●
+                               ●●●●●●▼
+                              ●●◢●●●●
+                             ●●●●●●●●    ▲
+                             ▼   ●●●●●    ●●
+                                   ●●●●    ●●●
+                            ▲    ●●●●      ●
+                           ●●●●●●●●    ●
+                            ●●●●●●  ●●●
+                                 ●    ●
+                              ●●●  ●●●
diff --git a/pttbbs/sample/etc/chickens/j11 b/pttbbs/sample/etc/chickens/j11
new file mode 100644
index 00000000..67acda5c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j11
@@ -0,0 +1,12 @@
+
+               我有手了！嚇死你！
+                        ▲      ▲
+                ●     ●●    ●●     ●
+                 ●   ●●●●●●●   ●
+                  ● ●●●●●●●● ●    ▲
+                    ●●◣●●●◢●●     ●●
+                     ●●●●●●●●     ●●●
+                      ●▼▼▼▼▼● ●    ●
+                    ● ●●●●●●   ●●●
+                   ●         ●
+                ●●●       ●●●
diff --git a/pttbbs/sample/etc/chickens/j12 b/pttbbs/sample/etc/chickens/j12
new file mode 100644
index 00000000..f5368760
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j12
@@ -0,0 +1,11 @@
+
+                        ▲      ▲
+                ●     ●●    ●●     ●
+                 ●   ●●●●●●●   ●
+                  ● ●●●●●●●● ●    ▲
+                    ●●◣●●●◢●●     ●●
+                     ●●●●●●●●     ●●●
+                      ●▼▼▼▼▼● ●    ●
+                    ● ●●●●●●   ●●●
+                   ●         ●
+                ●●●       ●●●
diff --git a/pttbbs/sample/etc/chickens/j13 b/pttbbs/sample/etc/chickens/j13
new file mode 100644
index 00000000..22721b27
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j13
@@ -0,0 +1,12 @@
+          ●  ●   ▲          ▲
+           ●●   ●●        ●●
+            ●   ●●●●●●●●●
+           ●   ●●●●●●●●●●
+          ●   ●●◣●●●●●◢●●
+           ● ●●●●●●●●●●●●
+  ●         ●●▼▼▼▼▼▼▼▼▼●●
+ ●●●●     ●                    ● ●
+▲●●  ●     ●▲▲▲▲▲▲▲▲▲●   ●
+         ●●● ●●●●●●●●●●    ●●
+                   ●●       ●●      ● ●
+                ●●●●     ●●●●
diff --git a/pttbbs/sample/etc/chickens/j14 b/pttbbs/sample/etc/chickens/j14
new file mode 100644
index 00000000..774d0ce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j14
@@ -0,0 +1,13 @@
+
+                           ▲          ▲
+                 ●●●   ●●        ●●   ●●●
+                ●●  ● ●●●●●●●●● ●  ●●
+               ▼▼     ●●●●●●●●●●     ▼▼
+                       ●●◣●●●●●◢●●
+             ●●●● ●●●●●●●●●●●● ●●●●
+          ●         ●●▼▼▼▼▼▼▼▼▼●●
+         ●●●●     ●                    ●
+        ▲●●  ●     ●▲▲▲▲▲▲▲▲▲●
+                 ●●● ●●●●●●●●●●
+                           ●●       ●●
+                        ●●●●     ●●●●
diff --git a/pttbbs/sample/etc/chickens/j15 b/pttbbs/sample/etc/chickens/j15
new file mode 100644
index 00000000..774d0ce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j15
@@ -0,0 +1,13 @@
+
+                           ▲          ▲
+                 ●●●   ●●        ●●   ●●●
+                ●●  ● ●●●●●●●●● ●  ●●
+               ▼▼     ●●●●●●●●●●     ▼▼
+                       ●●◣●●●●●◢●●
+             ●●●● ●●●●●●●●●●●● ●●●●
+          ●         ●●▼▼▼▼▼▼▼▼▼●●
+         ●●●●     ●                    ●
+        ▲●●  ●     ●▲▲▲▲▲▲▲▲▲●
+                 ●●● ●●●●●●●●●●
+                           ●●       ●●
+                        ●●●●     ●●●●
diff --git a/pttbbs/sample/etc/chickens/j16 b/pttbbs/sample/etc/chickens/j16
new file mode 100644
index 00000000..788ee97b
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j16
@@ -0,0 +1,13 @@
+                    吼！！！我是大魔王！！！
+                   ▲                    ▲
+     ●●●●     ●●                  ●●     ●●●●
+    ●●●  ●   ●●●●●●●●●●●●●●   ●  ●●●
+   ●●●    ● ●●●●●●●●●●●●●●● ●    ●●●
+  ▼▼▼       ●●◣●●●●●●●●●●◢●●       ▼▼▼
+              ●●●●●●●●●●●●●●●●●
+             ●●▼▼▼▼▼▼▼▼▼▼▼▼▼▼●●     ●●
+    ●     ● ●                              ● ●●●
+     ●   ●   ●▲▲▲▲▲▲▲▲▲▲▲▲▲▲●        ●●
+  ●●●●      ●●●●●●●●●●●●●●● ●●          ●●▼
+                   ●●                 ●●      ●●●●●●●●
+              ●●●●●               ●●●●●              ●
diff --git a/pttbbs/sample/etc/chickens/j2 b/pttbbs/sample/etc/chickens/j2
new file mode 100644
index 00000000..03ef58fc
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j2
@@ -0,0 +1,7 @@
+
+
+                                       ▲  ▲
+                                      ●●●●
+                                     ●●●●●
+                                ●    ●●●●
+                               ▲●●●
diff --git a/pttbbs/sample/etc/chickens/j3 b/pttbbs/sample/etc/chickens/j3
new file mode 100644
index 00000000..593a726b
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j3
@@ -0,0 +1,10 @@
+
+                                          ▲▲
+                                         ●●●
+                                        ●●●●       ▲
+                                       ●◢●◣●     ●●
+                                       ●●●●●    ●●●
+                                       ●●●●●     ●
+                                        ●●●● ●  ●
+                                                  ●●
+
diff --git a/pttbbs/sample/etc/chickens/j4 b/pttbbs/sample/etc/chickens/j4
new file mode 100644
index 00000000..e2e31934
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j4
@@ -0,0 +1,9 @@
+
+
+                     ▲    ▲
+                    ●●●●●       ▲
+                   ●●●●●●     ●●
+                  ●●●●●●●   ●●●
+                   ●●●●●●     ●
+                    ●●●●●     ●
+                            ●●●●
diff --git a/pttbbs/sample/etc/chickens/j5 b/pttbbs/sample/etc/chickens/j5
new file mode 100644
index 00000000..2554d000
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j5
@@ -0,0 +1,12 @@
+                             ▲    ▲
+                            ●●●●●
+                           ●●●●●●
+                          ●●︽●︽●●
+                           ●●●●●●
+                            ●●●●●
+                                   ●
+                                    ●
+                                   ●
+                                ●●●
+                                 ●●
+                                  ▼
diff --git a/pttbbs/sample/etc/chickens/j6 b/pttbbs/sample/etc/chickens/j6
new file mode 100644
index 00000000..79484d50
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j6
@@ -0,0 +1,9 @@
+
+
+                             ▲    ▲
+                  ▲        ●●●●●
+                 ●●      ●●●●●●
+                ●●●    ●●◣●◢●●
+                   ●      ●●●●●●
+                    ●      ●●●●●
+                     ●●●●
diff --git a/pttbbs/sample/etc/chickens/j7 b/pttbbs/sample/etc/chickens/j7
new file mode 100644
index 00000000..93ffcac6
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j7
@@ -0,0 +1,10 @@
+
+
+                             ▲    ▲         ▲
+                            ●●●●●       ●●
+                           ●●●●●●     ●●●
+                          ●●◣●◢●●     ●
+                           ●●●●●●     ●
+                            ●●●●● ●●●
+                             ●    ●
+                          ●●●  ●●●
diff --git a/pttbbs/sample/etc/chickens/j8 b/pttbbs/sample/etc/chickens/j8
new file mode 100644
index 00000000..c86b6f4a
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j8
@@ -0,0 +1,10 @@
+
+
+                        ▲           ▲
+                    ●●●●●▼     ●●
+                   ●●●●●●     ●●●
+                  ●●◣●◢●●     ●
+              ●   ●●●●●●     ●
+               ●● ●●●●● ●●●
+                ●       ●
+                        ●●●
diff --git a/pttbbs/sample/etc/chickens/j9 b/pttbbs/sample/etc/chickens/j9
new file mode 100644
index 00000000..a902e57c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/j9
@@ -0,0 +1,11 @@
+
+                              ▲      ▲
+                             ●●    ●●
+                            ●●●●●●●
+                           ●●●●●●●●
+                   ▲     ●●◣●●●◢●●
+                  ●●     ●●●●●●●●
+                 ●●●     ●▼▼▼▼▼●
+                    ●    ● ●●●●●●
+                     ●●●     ●      ●
+                             ●●●    ●●●
diff --git a/pttbbs/sample/etc/chickens/k0 b/pttbbs/sample/etc/chickens/k0
new file mode 100644
index 00000000..2c1f12a0
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k0
@@ -0,0 +1,13 @@
+
+(1)我要成為忍者!
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                    ▌ ▌ ◥
+                                  ◣    ◢
+                                 ◣ ◥◤ ◢
+                                 █ ██ █
+                                 █ ██ █
+                                    ██
+                                  ◢◤◥◣
+
diff --git a/pttbbs/sample/etc/chickens/k1 b/pttbbs/sample/etc/chickens/k1
new file mode 100644
index 00000000..836976bd
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k1
@@ -0,0 +1,11 @@
+大師!請收我為徒吧!
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                    ▌ ▌ ◥
+                                  ◣    ◢
+                                 ◣ ◥◤ ◢
+                                 █████
+                                    ██
+                                    ██
+                                  ◢◤◥◣
diff --git a/pttbbs/sample/etc/chickens/k10 b/pttbbs/sample/etc/chickens/k10
new file mode 100644
index 00000000..6bf8c59e
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k10
@@ -0,0 +1,13 @@
+忍者五術-心
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                   ◣  ◢ ◤
+                                  ◥██◤
+                                 ◣ ◥◤ ◢
+                                 █◣  ◢█
+                                  ████
+                                  ████
+
+                                  ◢██◣
+                                  ◥██◤
diff --git a/pttbbs/sample/etc/chickens/k11 b/pttbbs/sample/etc/chickens/k11
new file mode 100644
index 00000000..bc2a19cc
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k11
@@ -0,0 +1,13 @@
+水土風水心...合體!!
+                           ◢                 ◣
+                       ◢◢██◣         ◢██◣◣
+                       ◤◥◤◥█         █◤◥◤◥
+                        ◣  ◢ ◥         ◤ ◣  ◢ 
+                       ◥██◤             ◥██◤
+                     ██ ◤  ◢██    ██◣ ◥ ██
+                        ◣  ◢                ◣  ◢
+                         ██                  ██
+                       ███                  ███
+                         █▌                   █▌
+                       ◢ ◥                    ◤ ◣
+                          ◢                    ◣
diff --git a/pttbbs/sample/etc/chickens/k12 b/pttbbs/sample/etc/chickens/k12
new file mode 100644
index 00000000..4cf65887
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k12
@@ -0,0 +1,12 @@
+合體後成為高級忍者,氣勢駭人!
+                                   ◢█◤
+                               ◥◢███◣
+                                 ◤◥◤◥█◣
+                                  ◣  ◢ ◥█
+                                 ◥██◤  ◤
+                            ◣ ◥  ◥◤  ◤ ◢
+                            ◥ █◣    ◢█ ◤
+                           ◥  █  ██  █  ◤
+                          ◥◥ █ ███ █ ◤◤
+                           ◥◥   ███   ◤◤
+                           ◥◥◥  ██  ◤◤◤
diff --git a/pttbbs/sample/etc/chickens/k13 b/pttbbs/sample/etc/chickens/k13
new file mode 100644
index 00000000..faa26334
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k13
@@ -0,0 +1,12 @@
+速度超快,你看得到嗎?
+                                   ◢█◤
+                               ◥◢██████◤ ◤
+                                 ◤◥◤◥██◤ ◤
+                                  ◣  ◢ ◤
+                                 ◥██◤
+                          ███◥◥◤    ◤███ █
+                                  ◣    ◢
+                                    ██
+                                   ██  █    █
+                                  ██  █    █
+                                     ██  █    █
diff --git a/pttbbs/sample/etc/chickens/k14 b/pttbbs/sample/etc/chickens/k14
new file mode 100644
index 00000000..4d875ce4
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k14
@@ -0,0 +1,12 @@
+這是我自創的武器-十字刀!
+                                   ◢█◤
+                               ◥◢███◣
+                                 ◤◥◤◥█◣
+                        ◢        ◣  ◢ ◥█   ◣
+                        █       ◥██◤  ◤   █
+                    ◥███◣◥  ◥  ◤  ◤◢███◤
+                        ███  ◣ ◥◤ ◢  ███
+                        ◤         ██         ◥
+                                  ███
+                                  ███
+                                   ██
diff --git a/pttbbs/sample/etc/chickens/k15 b/pttbbs/sample/etc/chickens/k15
new file mode 100644
index 00000000..d2b7f59b
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k15
@@ -0,0 +1,14 @@
+成為終極之-白忍!
+                                 ◢███◤
+                             ◣  ████◣ ◢
+                           ◢  ◢◤◥◤◥█◣ ◣
+                         ◣       ◣  ◢ ██  ◢
+                     ◣◢        ◥██◤█◤    ◣◢
+                             ◥   ◥  ◤ ◤◤
+                 █  ████  ◣  ◥◤  ◢  ████  █
+                        █        ███        █
+                         █       ███       █
+                            █   ████   █
+                                 ████
+創 世 奇 俠 敗 腳 下 寰 宇 武 典 握 手 中
+   天 下 無 敵 第 一 人               哈!
diff --git a/pttbbs/sample/etc/chickens/k16 b/pttbbs/sample/etc/chickens/k16
new file mode 100644
index 00000000..d2b7f59b
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k16
@@ -0,0 +1,14 @@
+成為終極之-白忍!
+                                 ◢███◤
+                             ◣  ████◣ ◢
+                           ◢  ◢◤◥◤◥█◣ ◣
+                         ◣       ◣  ◢ ██  ◢
+                     ◣◢        ◥██◤█◤    ◣◢
+                             ◥   ◥  ◤ ◤◤
+                 █  ████  ◣  ◥◤  ◢  ████  █
+                        █        ███        █
+                         █       ███       █
+                            █   ████   █
+                                 ████
+創 世 奇 俠 敗 腳 下 寰 宇 武 典 握 手 中
+   天 下 無 敵 第 一 人               哈!
diff --git a/pttbbs/sample/etc/chickens/k2 b/pttbbs/sample/etc/chickens/k2
new file mode 100644
index 00000000..5ed4647f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k2
@@ -0,0 +1,10 @@
+皇帝召見,成為正式忍者!
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                    ▌ ▌ ◥
+                                  ◣    ◢
+                                 ◣ ◥◤ ◢
+                                 █ █ ██
+                                 █ █ █
+                                  ◤█ ◥◣
diff --git a/pttbbs/sample/etc/chickens/k3 b/pttbbs/sample/etc/chickens/k3
new file mode 100644
index 00000000..aa8a6519
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k3
@@ -0,0 +1,11 @@
+什麼?只要蒙面就可以了?
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                    ▌ ▌ ◥
+                                  ◥██◤
+                                 ◣ ◥◤ ◢
+                               ██ ██ ██
+                                    ██
+                                    ██
+                                  ◢◤◥◣
diff --git a/pttbbs/sample/etc/chickens/k4 b/pttbbs/sample/etc/chickens/k4
new file mode 100644
index 00000000..b7e0c1c8
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k4
@@ -0,0 +1,12 @@
+哈!變成中級忍者了,好神氣!
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                   ◣  ◢ ◥
+                               █ ◥██◤ █
+                               █◣ ◥◤ ◢█
+                                   ◣  ◢
+                                  ◢██◣
+                                  █◤◥█
+                                 █      █
+                               ◢          ◣
diff --git a/pttbbs/sample/etc/chickens/k5 b/pttbbs/sample/etc/chickens/k5
new file mode 100644
index 00000000..120b52ac
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k5
@@ -0,0 +1,12 @@
+最簡單的-隱身術...
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                   ◣  ◢ ◥
+                                  ◥██◤
+                                █        █            
+                                     ◢◤               
+                                   █ █◤              
+                                 █     █◤            
+                               █   ●   █◤   ◢█◤  
+                               █         ████◤    
diff --git a/pttbbs/sample/etc/chickens/k6 b/pttbbs/sample/etc/chickens/k6
new file mode 100644
index 00000000..0d869ccc
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k6
@@ -0,0 +1,13 @@
+忍者五術-火
+                                      ◢
+                                  ◢◢██◣
+                                  ◤◥◤◥█
+                                   ◣  ◢ ◥
+                           ◣     ◥██◤     ◢
+                             ██◣ ◥◤ ◢██
+                                   ◣  ◢
+                                    ██
+                             ◣    ███    ◢
+                              ◣    ██    ◢
+                            ◣ ◣◣ ◥◤ ◢◢ ◢
+                              ◣◣◣◢◣◢◢◢
diff --git a/pttbbs/sample/etc/chickens/k7 b/pttbbs/sample/etc/chickens/k7
new file mode 100644
index 00000000..fb24da23
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k7
@@ -0,0 +1,14 @@
+忍者五術-土
+                                      ◢
+                                  ◢◢██◣
+                              ◣  ◤◥◤◥█◢
+                                ◣ ◣  ◢ ◥
+                                █◥██◤█
+                                 ◣ ◥◤ ◢
+                                   ◣  ◢
+                                    ██
+                                   ███
+                                    ██
+                                 ◣ ◥◤ ◢
+                                  ◣◥◤◢
+                                    ◣◢
diff --git a/pttbbs/sample/etc/chickens/k8 b/pttbbs/sample/etc/chickens/k8
new file mode 100644
index 00000000..4e73a12c
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k8
@@ -0,0 +1,10 @@
+忍者五術-風
+                                      ◢
+                                  ◢◢██◣
+                         ◢◣     ◤◥◤◥█   ◢◣
+                       ◢██◣    ◣  ◢ ◥ ◢██◣
+                     ◢████◣ ◥██◤ ◢████◣
+                             ◥█◣ ◥◤ ◢█◤
+                                █ ◣  ◢ █
+                                █  ██  █
+                                   ◤  ◥
diff --git a/pttbbs/sample/etc/chickens/k9 b/pttbbs/sample/etc/chickens/k9
new file mode 100644
index 00000000..cda73fd8
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/k9
@@ -0,0 +1,11 @@
+忍者五術-水
+                             ●       ◢ ────         
+                              ●  ◢◢██◣ ──         
+                               ● ◤◥◤◥█◤ ──       
+                                ● ◣  ◢  ───         
+                                  ◥██◤██ ──       
+                              ██◣◥◤ ◢◤ ────    
+                                    ◣ ◢█  ◢█◥ ───
+                                     █████ ───    
+                                       ███ ─────  
+                                             ◥ ───    
diff --git a/pttbbs/sample/etc/chickens/kiss b/pttbbs/sample/etc/chickens/kiss
new file mode 100644
index 00000000..fdf155ee
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/kiss
@@ -0,0 +1,14 @@
+
+
+                           oo$$$$oooo  ooo$$$$$$oo
+                         o$$$$$$$$$$$$$$$$$$$$$$$$$$o
+                        o$$$$$$$$$$$$$$$$$$$$$$$$$$$$o
+                        $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
+                        $$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
+                        "$$$$$$$$$$$$$$$$$$$$$$$$$$$"
+                         "$$$$$$$$$$$$$$$$$$$$$$$$$"
+                           "$$$$$$$$$$$$$$$$$$$$$"
+                             ""$$$$$$$$$$$$$$$$"
+                                ""$$$$$$$$$""
+                                    ""$""         
+                                                來...親一個!!
diff --git a/pttbbs/sample/etc/chickens/l0 b/pttbbs/sample/etc/chickens/l0
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l0
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/l1 b/pttbbs/sample/etc/chickens/l1
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l1
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/l10 b/pttbbs/sample/etc/chickens/l10
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l10
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/l11 b/pttbbs/sample/etc/chickens/l11
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l11
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/l12 b/pttbbs/sample/etc/chickens/l12
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l12
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/l13 b/pttbbs/sample/etc/chickens/l13
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l13
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/l14 b/pttbbs/sample/etc/chickens/l14
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l14
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/l15 b/pttbbs/sample/etc/chickens/l15
new file mode 100644
index 00000000..df160353
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l15
@@ -0,0 +1,15 @@
+                                         ●●●●●●
+                                  ●    ●           ●
+                                ●  ●●              ●
+                                ●          ●         ●
+                                  ●●●                ●
+                                ●                      ●
+                                 ●  ●●                ●
+                                   ●  ●                ●
+                                       ●        ●  ●    ●
+                                       ●          ●      ●
+                                       ●                  ●
+                                         ●              ●
+                                         ●  ●●  ●●●
+                                         ●  ●●  ●
+                                           ●    ●
diff --git a/pttbbs/sample/etc/chickens/l16 b/pttbbs/sample/etc/chickens/l16
new file mode 100644
index 00000000..100d4260
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l16
@@ -0,0 +1,15 @@
+                                           ●●●●●●●
+                                         ●          ●●●
+                                       ●    ●    ●  ●●●
+                                   ●●●●●●●        ●●
+                                   ●          ●          ●
+                                   ●●●●●●●          ●
+                                   ●        ●            ●
+                                   ●●●●●●            ●
+                                   ●                    ●
+                                   ●                    ●
+                                     ●                ●
+                                  ●●  ●            ●
+                                  ●      ●●●●●●  ●●
+                                    ●                      ●
+                               ●●●                     ●●
diff --git a/pttbbs/sample/etc/chickens/l2 b/pttbbs/sample/etc/chickens/l2
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l2
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/l3 b/pttbbs/sample/etc/chickens/l3
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l3
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/l4 b/pttbbs/sample/etc/chickens/l4
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l4
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/l5 b/pttbbs/sample/etc/chickens/l5
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l5
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/l6 b/pttbbs/sample/etc/chickens/l6
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l6
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/l7 b/pttbbs/sample/etc/chickens/l7
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l7
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/l8 b/pttbbs/sample/etc/chickens/l8
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l8
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/l9 b/pttbbs/sample/etc/chickens/l9
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/l9
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/m0 b/pttbbs/sample/etc/chickens/m0
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m0
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/m1 b/pttbbs/sample/etc/chickens/m1
new file mode 100644
index 00000000..36f55c21
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m1
@@ -0,0 +1,9 @@
+
+
+                                  ●●●
+                                ● ●● ●
+                               ●●●●●●
+                               ●●●●●●
+                               ●●    ●●
+                                ●●  ●● 
+                                 ●●●●
diff --git a/pttbbs/sample/etc/chickens/m10 b/pttbbs/sample/etc/chickens/m10
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m10
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/m11 b/pttbbs/sample/etc/chickens/m11
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m11
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/m12 b/pttbbs/sample/etc/chickens/m12
new file mode 100644
index 00000000..8646bce2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m12
@@ -0,0 +1,14 @@
+                            ●●●●●●
+                         ●    ●    ●●
+                       ●  ●      ●  ●●
+                     ●●              ●●●
+                   ●              ●    ●●
+                   ●●●●●●●●      ●●
+                    ●                  ●●
+                       ●        ●  ●    ●
+                       ●        ●  ●    ●
+                       ●          ●      ●
+                         ●              ●
+                           ●  ●●●  ●
+                            ●  ●  ●  ●
+                              ●      ●
diff --git a/pttbbs/sample/etc/chickens/m13 b/pttbbs/sample/etc/chickens/m13
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m13
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/m14 b/pttbbs/sample/etc/chickens/m14
new file mode 100644
index 00000000..ba9d1d34
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m14
@@ -0,0 +1,14 @@
+                                                   ●●●●
+                                          ●●●●●●●●
+                                        ●●●●●●●●●●
+                                      ●●●●●●●●●●●●
+                                      ●    ●●●●●●●●●
+                                    ●●    ●            ●●
+                                    ●●●●                ●
+                                      ●                    ●
+                                        ●●            ●●
+                                      ●    ●●●●●●  ●
+                                      ●                  ●
+                                        ●                  ●
+                                          ●                ●
+                                        ●●●            ●●
diff --git a/pttbbs/sample/etc/chickens/m15 b/pttbbs/sample/etc/chickens/m15
new file mode 100644
index 00000000..df160353
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m15
@@ -0,0 +1,15 @@
+                                         ●●●●●●
+                                  ●    ●           ●
+                                ●  ●●              ●
+                                ●          ●         ●
+                                  ●●●                ●
+                                ●                      ●
+                                 ●  ●●                ●
+                                   ●  ●                ●
+                                       ●        ●  ●    ●
+                                       ●          ●      ●
+                                       ●                  ●
+                                         ●              ●
+                                         ●  ●●  ●●●
+                                         ●  ●●  ●
+                                           ●    ●
diff --git a/pttbbs/sample/etc/chickens/m16 b/pttbbs/sample/etc/chickens/m16
new file mode 100644
index 00000000..100d4260
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m16
@@ -0,0 +1,15 @@
+                                           ●●●●●●●
+                                         ●          ●●●
+                                       ●    ●    ●  ●●●
+                                   ●●●●●●●        ●●
+                                   ●          ●          ●
+                                   ●●●●●●●          ●
+                                   ●        ●            ●
+                                   ●●●●●●            ●
+                                   ●                    ●
+                                   ●                    ●
+                                     ●                ●
+                                  ●●  ●            ●
+                                  ●      ●●●●●●  ●●
+                                    ●                      ●
+                               ●●●                     ●●
diff --git a/pttbbs/sample/etc/chickens/m2 b/pttbbs/sample/etc/chickens/m2
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m2
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/m3 b/pttbbs/sample/etc/chickens/m3
new file mode 100644
index 00000000..6714c9d2
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m3
@@ -0,0 +1,12 @@
+
+
+
+                          ●●●●●●
+                        ●            ●
+                      ●    ●    ●    ●
+                      ●                ●
+                      ●      ●●      ●
+                      ●                ●
+                      ●                ●
+                        ●            ●
+                          ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/m4 b/pttbbs/sample/etc/chickens/m4
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m4
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/m5 b/pttbbs/sample/etc/chickens/m5
new file mode 100644
index 00000000..723291ae
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m5
@@ -0,0 +1,13 @@
+
+
+
+                              ●●●●●●
+                            ●            ●
+                          ●  ●        ●  ●
+                          ●                ●
+                          ●      ●●      ●
+                        ●●●    ●●      ●●
+                          ●                ●
+                            ●  ●●●●  ●
+                              ●      ●  ●
+                                        ●
diff --git a/pttbbs/sample/etc/chickens/m6 b/pttbbs/sample/etc/chickens/m6
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m6
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/m7 b/pttbbs/sample/etc/chickens/m7
new file mode 100644
index 00000000..d3edcf12
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m7
@@ -0,0 +1,14 @@
+
+
+
+                                   ●●●●●●
+                           ●    ●           ●
+                          ●  ●●              ●
+                          ●          ●         ●
+                            ●●●                ●
+                          ●                      ●
+                          ●  ●●                ●
+                           ●  ●                ●
+                              ●                ●
+                                 ●            ●
+                                   ●●●●●●
diff --git a/pttbbs/sample/etc/chickens/m8 b/pttbbs/sample/etc/chickens/m8
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m8
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/m9 b/pttbbs/sample/etc/chickens/m9
new file mode 100644
index 00000000..b5c8367f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/m9
@@ -0,0 +1,15 @@
+                               ●●          ●●
+                             ●●●●      ●●●●
+                             ●●●●●●●●●●●
+                             ●                  ●
+                              ●    ●      ●    ●
+                            ●                      ●
+                            ●        ●●●        ●
+                              ●                  ●
+                             ●    ●          ●  ●
+                              ●●            ●●●
+                              ●                  ●
+                                ●              ●
+                                  ●  ●●●  ●
+                                   ●  ●    ●
+                                     ●
diff --git a/pttbbs/sample/etc/chickens/medicine b/pttbbs/sample/etc/chickens/medicine
new file mode 100644
index 00000000..2bde35ed
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/medicine
@@ -0,0 +1,14 @@
+
+
+
+[1;36                             ������
+                              ����
+                    ▁▁▁▃  ��  ▁▁▁▃
+                      ══☉  ��    ══◎
+                    ◤    ◥  ��  ◤    ◥
+                  ╭─────�鞷w────╮
+                  │ pepper   ��    salt  │
+                  │◥����◤  ��  ◥����◤│
+                 \�薋����������嘵�����������/
+
+                                        吃藥囉~~~
diff --git a/pttbbs/sample/etc/chickens/nofood b/pttbbs/sample/etc/chickens/nofood
new file mode 100644
index 00000000..d784c9e0
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/nofood
@@ -0,0 +1,18 @@
+
+                   ＼  ／      ◤  ／◥     ●●●
+                  — ● —       ◤◥      ●●●●
+                   ／  ＼      ●-●─      ●●●●
+                              ��   ﹉��█    ●●●
+                         █    �i�i◤  █
+                         █  ◤◥ˍ／��█◥
+                     ████  �i�i�i  █  
+                             ◥      ◥█◤
+                      ◥ ◤◥ ��   ███
+                    ��     ◥◥█●███
+                     ☉ ☉   ◥◥◤◥    ◤
+                   ◥                ◥�� ��▁▂▃▄
+                                 ▃                 
+                               ◤                   
+                     ��◤█                         
+                         ████  ████  ,,.....
+                                餓過頭了 離家出走...
diff --git a/pttbbs/sample/etc/chickens/nohp b/pttbbs/sample/etc/chickens/nohp
new file mode 100644
index 00000000..474f9c63
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/nohp
@@ -0,0 +1,16 @@
+
+                     ▆███████▆
+                   �i██████████
+                  �i███████████
+    ▍           �i██     ██     ███
+  ▍▍▍        �i�i█       █       �i█�i
+▍▍▍▍▍        �i█       �i       �i█
+▍▍▍▍▍          �i▁  ° �i  ° ▁█
+████�i           �f █▅██▅█ �f
+████�i           �i�i█▂█▂█�i█
+ ███�i            �i �n▌▋▋▌▊ █
+  ██�i             �i              █
+   �o▌               █            █
+   �o▌           �d   �m�m▌▌▌▌█  ▂
+   �o▌     �d▃▃      ██████    ▃▃▃
+                                        體力(HP)耗盡 死掉了 :~~
diff --git a/pttbbs/sample/etc/chickens/nosatis b/pttbbs/sample/etc/chickens/nosatis
new file mode 100644
index 00000000..c8495275
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/nosatis
@@ -0,0 +1,6 @@
+
+哼
+
+我不滿意你這個爛保母
+
+Byebye
diff --git a/pttbbs/sample/etc/chickens/oo b/pttbbs/sample/etc/chickens/oo
new file mode 100644
index 00000000..e316b055
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/oo
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+                              λ
+                             ●●
+                            ●●●
+                             ●●
+                               ●                      
+
+                                        吃大補丸解除疲勞吧
diff --git a/pttbbs/sample/etc/chickens/read b/pttbbs/sample/etc/chickens/read
new file mode 100644
index 00000000..e4060357
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/read
@@ -0,0 +1,14 @@
+
+
+
+
+
+            ▃▃▃▃
+               ��    |/   ＿＿
+             ▁▆▂  ▇ ▕::::▏
+          �歈������������稙�������
+          │     ＝     │  ＝  │
+          ├──────┼───┤
+          │            │  ＝　│
+          │　　　　　　├───┤
+                                        用功時間囉.....
diff --git a/pttbbs/sample/etc/chickens/sell b/pttbbs/sample/etc/chickens/sell
new file mode 100644
index 00000000..e253e3d0
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/sell
@@ -0,0 +1,23 @@
+
+    *                        ︱                       *
+                　＼         ︱        ／　                   
+       ｜         　＼       ｜      ／　      ＊              
+     ＼｜／         　＼     │  　／　                        
+   －－も－－　        ◢█████◣            
+     ／｜＼            █◤＼│／◥█                  
+       ｜    - - ----－◥－─＊─－█－---- - -  
+                           ／│＼  █　                ＊      
+ ＊                      ／  ｜  ◢◤                          
+                       ／｛㎜★㎜｝＼                          
+                     ／    (▄▄)    ＼                        
+           ＊      ／       ▆▆       ＼                      
+                            ██                               
+             │             ██     *      　  ｜             
+         ＼  │  ／         ██              ＼｜／           
+           ／｜＼           ██           -----┼-----        
+       ……（※）……       ██              ／｜＼           
+           ＼｜／           ██                ｜             
+         ／  │  ＼         ██                               
+   *         │            (����)                     *        
+                            ▔▔       終於解脫了 ^_^....
+
diff --git a/pttbbs/sample/etc/chickens/toofat b/pttbbs/sample/etc/chickens/toofat
new file mode 100644
index 00000000..b20a502e
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/toofat
@@ -0,0 +1,17 @@
+
+
+
+
+                              .-.,     ,.-.
+                        '-.  /:::\\   //:::\  .-'
+                        '-.\|':':' `"` ':':'|/.-'
+                        `-./`. .-=-. .-=-. .`\.-`
+                          /=- /     |     \ -=\
+                         ;   |      |      |   ;
+                         |=-.|______|______|.-=|
+                         |==  \  0 /_\ 0  /  ==|
+                         |=   /'---( )---'\   =|
+                          \   \:   .'.   :/   /
+                           `\= '--`   `--' =/'
+                             `-=._     _.=-'
+                                  `"""`   肥胖過度..撐死了..
diff --git a/pttbbs/sample/etc/chickens/tootired b/pttbbs/sample/etc/chickens/tootired
new file mode 100644
index 00000000..a1f0429f
--- /dev/null
+++ b/pttbbs/sample/etc/chickens/tootired
@@ -0,0 +1,15 @@
+
+
+                ┼┼┼┼┼┼┼┼┼ ▁▂▃  ┼┼┼┼┼
+                ┼┼┼┼┼▄█▄   ◆◆▕  ◤  ◥◥┼
+                ┼┼┼┼/  ☉☉    ◥��◤   ｏｏ  \┼
+                ▃__◤ ∼◥▆▂▌◤  o▏   ◥��◤  ┼
+                  ▔◥ ∼◤◥◥◥█▕O▎▌     ▃▃┼
+                -------◥◥◥◥◥◥█ｏ◤  █●  ◤█
+                 ◥____◥▆▆◥◥ ≡≡≡≡▌▌▌▌▌▌
+                ◢ ◥█�歈���������������◤ ▆▆▊▃ 
+                ▄▄ ◥��◥   ◥  ▆█ ▊█ █  ▊   
+                ▌     ◥◥   ◥  █   ▊ ▌█  ▊█ 
+                ▌   ◢��◤   ◥◣◤   ▊ ▌█  ◥   
+
+                                操勞過度.....累倒了......
diff --git a/pttbbs/sample/etc/domain_name_query b/pttbbs/sample/etc/domain_name_query
new file mode 100644
index 00000000..cc3a05f2
--- /dev/null
+++ b/pttbbs/sample/etc/domain_name_query
@@ -0,0 +1,256 @@
+# '#'自之後可以加註解
+#
+# 下面這'@'行不可拿掉
+# 查無佌住址
+@@@@@@@@@@@@@@  ----------
+
+# 255.255.255.255   各人專屬請放這邊
+
+# 學校 或 團體
+# 群組請由小到大排列
+
+pclab&csie          bc的pclab
+.ee.ntu.            台大電機學院
+jan.csie.ntu        台大資訊地下一月
+feb.csie.ntu        台大資訊地下二月
+mar.csie.ntu        台大資訊地下三月
+apr.csie.ntu        台大資訊地下四月
+may.csie.ntu        台大資訊地下五月
+jun.csie.ntu        台大資訊地下六月
+sep.csie.ntu        台大資訊地下九月
+snoopy.csie         史奴比工作站
+csie.ntu            台大資訊系
+140.112.28.         台大資訊系
+140.112.29.         台大資訊系
+140.112.30.         台大資訊系
+140.112.31.         台大資訊系
+#140.112.4          台大資訊系
+phys.ntu            台大物理系
+scorpio.im.ntu      台大資管scorpio
+im.ntu              台大管院
+ccnet1.ntu          台大宿舍DNS
+cc.ntu.             台大計算雞中心
+140.112.3.          台大計算雞中心
+
+140.112.10.         台大土木系
+140.112.11.         台大土木系
+140.112.12.         台大土木系
+140.112.13.         台大土木系
+ce.ntu              台大土木系
+
+140.112.15.         台大志鴻館
+
+140.112.16.         台大新工學院大樓
+140.112.17.         台大電機學院
+140.112.18.         台大電機學院
+140.112.19.         台大電機學院
+140.112.20.         台大電機學院
+140.112.21.         台大電機學院
+
+140.112.22.         台大化工系
+140.112.23.         台大化工系
+140.112.26.         台大造船系
+
+140.112.169.        台大研二小套房
+140.112.174.        台大女九紗棉坊
+140.112.216.        台大女三甜蜜窩
+140.112.220.        台大女一大閨房
+140.112.221.        台大女一大閨房
+140.112.224.        台大女七成衣場
+140.112.225.        台大女五針織室
+140.112.239.        台大男一窩
+140.112.240.        台大男一窩
+140.112.241.        台大男一窩
+140.112.242.        台大男一窩
+140.112.243.        台大男三屋
+140.112.244.        台大男三屋
+140.112.245.        台大男五房
+140.112.246.        台大男五房
+140.112.247.        台大男六眷
+140.112.248.        台大男六眷
+140.112.249.        台大男七窯
+140.112.250.        台大男七窯
+140.112.251.        台大男八別墅
+140.112.252.        台大男八別墅
+140.112.253.        台大男八別墅
+
+.m1.ntu             台大男一窩
+.m2.ntu             台大男二館
+.m3.ntu             台大男三屋
+.m4.ntu             台大男四所
+.m5.ntu             台大男五房
+.m6.ntu             台大男六眷
+.m7.ntu             台大男七窯
+.m8.ntu             台大男八莊
+.g2.ntu             台大研二小套房
+.f1.ntu             台大女一大閨房
+.f2.ntu             台大女二蜜月屋
+.f3.ntu             台大女三甜蜜窩
+.f4.ntu             台大女四高崗屋
+.f5.ntu             台大女五針織室
+.f6.ntu             台大女六婚紗廊
+.f7.ntu             台大女七成衣場
+.f8.ntu             台大女八染衣塘
+.f9.ntu             台大女九紗棉坊
+
+green.ev.ntu.       台大環工所
+.ie.ntu.edu.tw      台大工工所
+140.112.36.         台大工工所(新工樓)
+140.112.38.         台大應力所
+140.112.39.         台大城鄉所
+140.112.40.         台大水工所(新工樓)
+140.112.42.         台大電機舊館
+140.112.43.         台大機械系
+140.112.44.         台大機械系
+140.112.46.         台大機械系
+math.ntu            台大數學系
+140.112.50.         台大數學館
+140.112.52.         台大物理系
+140.112.54.         台大化學系
+140.112.56.         台大地質系
+140.112.58.         台大動物系
+140.112.60.         台大植物系
+140.112.61.         台大植研大樓
+psy.ntu             台大心理系
+140.112.62.         台大心理系
+140.112.64.         台大地理系
+140.112.65.         台大全球變遷/凝態中心
+140.112.66.         台大大氣系
+140.112.67.         台大大氣系
+140.112.68.         台大海洋所
+140.112.69.         台大海洋所
+140.112.70.         台大漁科所
+140.112.72.         台大生化所
+140.112.74.         台大農藝系
+140.112.75.         台大生統教室
+140.112.76.         台大農工系
+140.112.78.         台大農化系
+140.112.80.         台大植病系
+140.112.81.         台大昆蟲館
+140.112.82.         台大森林系
+140.112.84.         台大畜產系
+140.112.86.         台大農經系
+140.112.88.         台大園藝系
+140.112.89.         台大工廠
+140.112.92.         台大農推系
+140.112.94.         台大農機系
+140.112.96.         台大獸醫系
+140.112.99.         台大衛生組
+140.112.111.        台大活動中心
+140.112.120.        台大活動中心
+140.112.100.        台大植病系養蟲館
+140.112.106.        台大資管系
+140.112.108.        台大管院計中
+140.112.110.        台大管院計中
+140.112.120.        台大醫學校區
+140.112.136.        台大公衛系
+140.112.141.        台大中文系/外文系
+140.112.142.        台大歷史系/藝術史所
+140.112.143.        台大哲學系/農業陳列廣
+140.112.145.        台大闈場及普通教室
+140.112.146.        台大日文系/戲刻所/語言所
+140.112.150.        台大舊法學院,法圖
+140.112.153.        台大新聞所
+140.112.155.        台大三研所
+140.112.156.        台大社會系
+140.112.157.        台大社會系
+140.112.160.        台大行政大樓
+140.112.178.        台大學生住宿服務組
+140.112.181.        台大管理學院
+140.112.182.        台大新工樓
+140.112.183.        台大農業自動化教室
+lib.ntu.            台大總圖
+
+.admin.yzu          元智網推
+.dorm.ccu.e         中正大旅社
+.mayju.com          梅竹山莊
+as.ntu.             台大大氣系
+csie.nctu.          交大資工
+www.nia.            國立藝術學院www
+nia.edu.tw          國立藝術學院
+163.18.             高雄甘蔗園
+203.64.3.           國立藝術學院
+140.119.            政治大學
+cc.ntnu.            師大計中
+140.122.            師範大學
+k2.dorm.nc          成大光二8舍
+cc.nctu.            交大計中
+php&cc.nctu.        交大計中
+nchu                中興大學
+linux.na.ntu.       台大造船中心
+140.112.8.          台大計算雞中心
+140.112.7.          台大計中PC室
+cc.ncku.            成大計中
+stmail.fju.         輔大計中
+IP&dialup.ntu.      計中撥接系統
+im.ntu.edu.         台大資管
+med.mc.ntu.         台大醫院網路部
+mc.ntu.             台大醫院網路部
+139.175.            SeedNet
+.seed.net.tw        SeedNet
+210.64.             HiNet
+168.95.             Hinet
+.ts.hin             HiNet
+.hinet.             HiNet
+cc.chpi.            中華工學院
+.nctu.              交通大學
+.cc.nccu.edu.tw     政大計中
+.nccu.edu.tw        政治大學
+.AB.                清大宿舍
+.ncku.              成大
+.seeder.            阿波羅資訊網
+iis.                中研院資訊所
+sinica.             中央研究院
+ntust.              台科大
+scu.                東吳大學
+fju.                輔仁大學
+nthu.               清華大學
+thu.                東海大學
+ntu.edu             台灣大學
+ntut.edu            台北科技大學
+140.112             台灣大學
+cgu.                長庚大學
+ntou.               海洋大學
+NTOU.               海洋大學
+NCTU.               交通宿舍
+140.125             雲林科技大學
+tpml.edu.tw         台北市立圖書館
+ntnu.               師範大學
+ficnet.net          大眾網路
+tku.                淡江大學
+shu.                世新大學
+ncue.               彰化師範大學
+ncu.                中央大學
+ntnu.               師範大學
+140.115             中央大學
+ndhu.               東華大學
+iii                 資策會
+nsysu.              中山大學
+ethome              東森寬頻
+tmc.edu.tw          台北醫學院
+ym.edu.tw           陽明大學
+chu.edu.tw          中華大學
+140.138             元智大學
+140.128             東海大學
+140.120             中興大學
+ntpu.               台北大學
+yzu.edu.tw          元智大學
+cyut.edu.tw         朝陽科技大學
+fg.tp.              北一女
+nhltc.              花蓮師範學院
+tceb.               台中市府教育局
+ntcic.              台中技術學院
+jhnc.tp.            北市誠正國中
+dyu.                大葉大學
+ilc.edu.            宜蘭縣教育資訊網
+ks.edu.             高雄縣教育網
+cma.                陸軍官校
+ssvs.tp.            松山家商
+csmc.               中山醫學院
+ttu.                大同大學
+cmc.                中國醫藥學院
+kmu.                高雄醫學大學
+tmtc.               北市師範學院
+140.117.            中山大學
+210.208.            SayHiNet無限撥接
+ck.tp.edu.tw        建國中學
diff --git a/pttbbs/sample/etc/expire.conf b/pttbbs/sample/etc/expire.conf
new file mode 100644
index 00000000..9cb8340d
--- /dev/null
+++ b/pttbbs/sample/etc/expire.conf
@@ -0,0 +1,4 @@
+# board         days    max     min
+# ---------------------------------------
+cvslog          999     9999
+asciiart         50     3000
diff --git a/pttbbs/sample/etc/feast b/pttbbs/sample/etc/feast
new file mode 100644
index 00000000..e4ea9199
--- /dev/null
+++ b/pttbbs/sample/etc/feast
@@ -0,0 +1,48 @@
+01 01 元旦放假
+01 02 元旦隔天不放假
+01 11 司法節
+01 23 自由日
+02 14 情人節
+02 28 二二八紀念
+03 01 兵役節
+03 05 童軍節
+03 12 植樹節
+03 14 白色情人節
+03 17 國醫節
+03 21 氣象節
+03 29 青年節
+04 01 愚人節
+04 04 婦幼節
+04 04 兒童節
+04 05 清明節
+04 21 創站週年慶
+05 01 勞動節
+05 04 文藝節
+06 03 禁煙節
+06 09 鐵路節
+06 06 工程師節
+06 15 警察節
+07 01 公路節
+07 03 合作節
+07 04 美國獨立紀念日
+07 11 航海節
+07 14 法國國慶
+08 08 八八父親節
+08 14 空軍節
+09 01 記者節
+09 03 軍人節
+09 09 狗狗節
+09 18 九一八事變
+09 28 教師節
+10 10 國慶日
+10 21 華僑節
+10 25 台灣光復節
+10 31 蔣公誕辰
+11 11 工業節
+11 12 國父誕辰
+11 15 台灣大學校慶
+12 01 世界愛滋日
+12 10 世界人權節
+12 13 三商週年慶
+12 24 X'masEve
+12 25 聖誕節
diff --git a/pttbbs/sample/etc/goodbye b/pttbbs/sample/etc/goodbye
new file mode 100644
index 00000000..38f8aac9
--- /dev/null
+++ b/pttbbs/sample/etc/goodbye
@@ -0,0 +1,19 @@
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再見再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+再見再見再見再見再見┌─────────────┐再見再見再再見再見再見再見再
+再見再見再見再見再見│   請仔細回憶您的密碼，   │─┐再見再再見再見再見再見再
+再見再見再見再見再見│   如果真的忘記密碼了，   │  │再見再再見再見再見再見再
+再見再見再見再見再見│   請用[new]重新註冊吧！  │  │再見再再見再見再見再見再
+再見再見再見再見再見│   亂踹密碼會留下記錄喔。 │  │再見再再見再見再見再見再
+再見再見再見再見再見└─────────────┘  │再見再再見再見再見再見再
+再見再見再見再見再見再見└─────────────┘再見再再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+再見再見再見再見再見再見再見再見再見再見再見再見再見再見再再再見再見再見再見再
+如果您發現您的ID不見了, 而且不是因為太久沒來被砍者
+請通知站務管理員, 切勿重新new 原來的ID, 否則所有記
+錄和金錢將會歸零
diff --git a/pttbbs/sample/etc/register b/pttbbs/sample/etc/register
new file mode 100644
index 00000000..5772eb2c
--- /dev/null
+++ b/pttbbs/sample/etc/register
@@ -0,0 +1,17 @@
+┌─────────────────────────────────────┐
+│                     請參考下列的範例填寫您的註冊資料：                   │
+├───────────────────┬─────────────────┤
+│請輸入代號: piggy                     │ 輸入您想用的英文代號             │
+│請設定密碼: I'mPig                    │ 請設定密碼，不過螢幕上應該看不見 │
+│請檢查密碼: I'mPig                    │ 請再次輸入密碼，以示確定         │
+│                                      │ Kermit 使用者請打 vt320          │
+│您的暱稱: 豬年生的美眉                │ 您發表文章用的筆名或綽號         │
+│真實姓名: 朱曉媚                      │ 您的真實姓名                     │
+│目前住址: 新竹縣子虛鄉烏有村543號     │ 您目前的聯絡地址(詳細填寫)       │
+│網路郵件地址: whoami@cs.ntnu.edu.tw   │ 您的 E-Mail address              │
+└───────────────────┴─────────────────┘
+   ※ 在本站註冊者，代表願意尊從本站制度與站規，否則請離開。
+   ※ 代號 [ID] 至少要兩個字，不宜採用數字。
+   ※ 密碼      至少要四個字，不可與 [ID] 雷同，不宜全部小寫。
+   ※ 請確實按照規定詳細填寫，否則不予通過！
+   ※ 以上資料缺一不可，敬請合作！
diff --git a/pttbbs/sample/etc/registered b/pttbbs/sample/etc/registered
new file mode 100644
index 00000000..1b52a301
--- /dev/null
+++ b/pttbbs/sample/etc/registered
@@ -0,0 +1,21 @@
+        �歈����歈���������
+        �僓����僓��������� 審核通過 
+◇──  �裺����裺���������────────────────────────◇
+
+      嗨嗨，*s你好：
+
+      我親自幫你審核通過囉 ^o^
+
+      若還不能Post請重新login一次 ^_^ (要換身份囉)
+
+
+
+      祝      使用愉快
+
+      記得常常來玩喔.... ^_^
+
+
+
+
+                                                        站長~~
+◇────────────────────────────────────◇
diff --git a/pttbbs/sample/etc/registeredmail b/pttbbs/sample/etc/registeredmail
new file mode 100644
index 00000000..255f2708
--- /dev/null
+++ b/pttbbs/sample/etc/registeredmail
@@ -0,0 +1,21 @@
+        �歈����歈���������
+        �僓����僓��������� EMail認證通過 
+◇──  �裺����裺���������────────────────────────◇
+
+      嗨嗨，*s你好：
+
+      歡迎加入 ptt2 的行列 ^o^
+
+      若還不能Post請重新login一次 ^_^ (要換身份囉)
+
+
+
+      祝      使用愉快
+
+      記得常常來玩喔.... ^_^
+
+
+
+
+                                                        站長~~
+◇────────────────────────────────────◇
diff --git a/pttbbs/sample/etc/registermail b/pttbbs/sample/etc/registermail
new file mode 100644
index 00000000..aa38aef1
--- /dev/null
+++ b/pttbbs/sample/etc/registermail
@@ -0,0 +1,11 @@
+親愛的使用者您好:
+
+	歡迎您到 ptt2 註冊,
+	請直接到 (U)ser -> (R)egister 填入您的認證碼 (在主旨上)
+	即可通過認證取得所有功能喔~ :)
+	如果有須要服務的地方,
+	請到 SYSOP板, 我們會竭誠為您服務~ :)
+
+						ptt站長群敬上
+
+注意: 若您並沒有至 ptt2 註冊, 請直接刪除這封信.
diff --git a/pttbbs/sample/etc/sysop b/pttbbs/sample/etc/sysop
new file mode 100644
index 00000000..d0276ccd
--- /dev/null
+++ b/pttbbs/sample/etc/sysop
@@ -0,0 +1,6 @@
+in2:             程設站長/root
+clifflu:         程設站長
+CChess:          看板總管
+windsheep:       看板總管
+ltlmouse:        帳號總管
+Sunicer:         帳號總管
diff --git a/pttbbs/sample/etc/today_boring b/pttbbs/sample/etc/today_boring
new file mode 100644
index 00000000..12e39ce2
--- /dev/null
+++ b/pttbbs/sample/etc/today_boring
@@ -0,0 +1,22 @@
+ [ 牡羊時 ]
+ [ 牡羊時 ]
+ [ 金牛時 ]
+ [ 金牛時 ]
+ [ 雙子時 ]
+ [ 雙子時 ]
+ [ 巨蟹時 ]
+ [ 巨蟹時 ]
+ [ 獅子時 ]
+ [ 獅子時 ]
+ [ 處女時 ]
+ [ 處女時 ]
+ [ 天秤時 ]
+ [ 天秤時 ]
+ [ 雙魚時 ]
+ [ 雙魚時 ]
+ [ 射手時 ]
+ [ 射手時 ]
+ [ 魔羯時 ]
+ [ 魔羯時 ]
+ [ 水瓶時 ]
+ [ 水瓶時 ]
diff --git a/pttbbs/sample/etc/ve.hlp b/pttbbs/sample/etc/ve.hlp
new file mode 100644
index 00000000..c1688bf2
--- /dev/null
+++ b/pttbbs/sample/etc/ve.hlp
@@ -0,0 +1,127 @@
+                         【一般指令】
+  ^X       檔案處理                     ^L         重新顯示畫面
+  ^V       切換ANSI色彩                 ^Z         顯示本求助畫面
+  ^Q       不存檔離開                   ^G         插入圖片文字庫
+                        【游標移動指令】
+  ←       往後移動一格                 ^A,Home    移到此行開頭
+  →       往前移動一格                 ^E,End     移到此行結尾
+  ↑,^P    往上移動一行                 (ESC-,)    移到檔案開頭
+  ↓       往下移動一行                 (ESC-.),^T 移到檔案結尾
+  ^B,PgUp  往上移動一頁                 ^F,PgDn    往下移動一頁
+  ^S       尋找字串                     (ESC-L)    跳至指定行
+  (ESC-n)  再往後找                     (ESC-p)    再往前找
+  (ESC-])  尋找對稱括弧                 (ESC-x)    回到前一位置
+  (ESC-f)  往前一字                     (ESC-b)    後退一字
+                        【刪除插入指令】
+  ^D,Del   刪除目前的字元               ^H,BS      刪除前一個字元
+  ^K       刪除游標之後至行尾           ^Y         刪除目前這行
+  ^O,Ins   切換 插入/覆蓋               
+  (ESC-d)  刪除一字                     (ESC-0~9)  貼上暫存檔 0-9 
+
+                    【ANSI│黑紅綠黃藍紫靛白】
+
+                     前景│3031323334353637
+                     背景│4041424344454647
+   Ctrl-V:  切換 ANSI-color 模式，「所見即所得」，可立即編修
+   Ctrl-C:  「直覺式」插入彩色碼，可輕易為文字「著色」 (in ANSI-color mode)
+      支援 ANSI color 編輯模式... 不只是預覽而已
+      同時, ctrl-C 在 ANSI mode 下可以輸入顏色...
+      有三種模式....
+      w 代表 白字
+      wb 代表白字黑底
+      1wb 代表高亮白字黑底..
+      支援 overwrite & insert , 可輕易編輯類似 Welcome 畫面
+      因某種原因, 取消在 ansi editing 下的 backspace功能:P
+                        【區塊處理命令】
+                (ESC-l), (ESC-SPACE) 設定標記區
+                ^W      Cut, 把標記區剪至暫存檔 0
+                (ESC-c) Copy, 把標記區拷貝至暫存檔 0
+                或者再按一次(ESC-SPACE)確定標記區範圍，確定範圍後:
+                   0: Cut, 把標記區剪至暫存檔 0
+                   5: Copy, 把標記區拷貝至暫存檔 5
+                   6-9: Cut or Copy
+                   q: 取消
+         當需要刪「很多」行時，試試 ESC-SPC 吧 :>
+         若需要把文章�堛滿u部分」取出時，ESC-SPC 也適用。
+         (ESC-0/5)  Paste, 直接貼上暫存檔 0/5
+         (ESC-6-9)  貼上暫存檔 6-9 ，貼上前先預覽
+         (ESC-j)    將標記區往左移
+         (ESC-k)    將標記區往右移
+         (ESC-u)    取消標記區
+                           【特殊指令】
+   ^U       輸入 ESC 碼(以 * 表示)      ^C         還原/設定 ANSI 色彩
+   (ESC-y)  救回誤刪行                  ^_(Ctrl-/),(ESC--)    復原目前行
+   (ESC-A)  切換ANSI彩色模式            (ESC-I)    切換縮排(indent)模式
+   (ESC-P)  切換注音直接打模式          (ESC-R)    切換 modem ASCII 上傳模式
+   ^R       顯示上次扣應訊息            (ESC-U)    使用者列表
+   (ESC-i)  進入發呆模式
+
+
+> -------------------------------------------------------------------------- <
+
+ ASCⅡ上色基礎教學
+
+ <<<<<<<<<<<<<<<<<<<<<<<< $ 教  學  開  始 $ >>>>>>>>>>>>>>>>>>>>>>>>>>>>
+      首先，告訴你一件最重要的事，在往後的教學中所有的 * 號都是按 Esc 鍵
+  兩次產生的，以其他方式，如：直接按 * 號，所產生的都無法執行。
+      對了， * 號產生的方式在聯工是按 Esc 兩次，但在其他地方可就不一定了
+  ，可能是 Ctrl + U 產生的，總之，若不清楚，按 Ctrl + Z 線上輔助說明看看
+  就知道了，反正，現在的你，應該是只有在聯工上玩吧！所以，就以聯工的方式
+  教你，以後有到別站時，再教你吧！
+      先告訴你一些基本的色彩控制參數：(記住！m 一定是小寫！！)
+       參   數   色彩            舉     例     說     明
+      --------- ------ ----------------------------------------------
+            ############ 以下為暗色系列的前景色彩 ############
+       *[0;30m   黑色   *[0;30;47m測試一下 ==> 測試一下
+       *[0;31m   紅色   *[0;31m測試一下 ==> 測試一下
+       *[0;32m   綠色   *[0;32m測試一下 ==> 測試一下
+       *[0;33m  土棕色  *[0;33m測試一下 ==> 測試一下
+       *[0;34m   深藍   *[0;34m測試一下 ==> 測試一下
+       *[0;35m   紫色   *[0;35m測試一下 ==> 測試一下
+       *[0;36m   淺藍   *[0;36m測試一下 ==> 測試一下
+       *[0;37m   白色   *[0;37m測試一下 ==> 測試一下
+            ############ 以下為亮色系列的前景色彩 ############
+       *[1;30m  深灰色  *[1;30m測試一下 ==> 測試一下
+       *[1;31m  亮紅色  *[1;31m測試一下 ==> 測試一下
+       *[1;32m  亮綠色  *[1;32m測試一下 ==> 測試一下
+       *[1;33m   黃色   *[1;33m測試一下 ==> 測試一下
+       *[1;34m  亮深藍  *[1;34m測試一下 ==> 測試一下
+       *[1;35m  亮紫色  *[1;35m測試一下 ==> 測試一下
+       *[1;36m  亮淺藍  *[1;36m測試一下 ==> 測試一下
+       *[1;37m  亮白色  *[1;37m測試一下 ==> 測試一下
+            ############## 以 下 為 背 景 色 彩 ##############
+            ############# 所有文字顏色皆以黃色顯示 ###########
+      *[1;33;40m 黑色   *[1;33;40m測試一下 ==> 測試一下
+      *[1;33;41m 紅色   *[1;33;41m測試一下 ==> 測試一下
+      *[1;33;42m 綠色   *[1;33;42m測試一下 ==> 測試一下
+      *[1;33;43m 棕色   *[1;33;43m測試一下 ==> 測試一下
+      *[1;33;44m 深藍   *[1;33;44m測試一下 ==> 測試一下
+      *[1;33;45m 紫色   *[1;33;45m測試一下 ==> 測試一下
+      *[1;33;46m 淺藍   *[1;33;46m測試一下 ==> 測試一下
+      *[1;33;47m 白色   *[1;33;47m測試一下 ==> 測試一下
+      以上的所有舉例皆是修飾過後的結果，若真照舉例寫，不但沒達到原先預期
+  效果，反而可能會導致天下大亂。前景(即文字部份)和背景(即底色)的修飾方式
+  不一樣，先說前景的修飾方式。
+      再舉個例吧！將 "測試一下" 上色，之後的都不上色，若 *[1;33m測試一下
+  這種寫法，其後面所有的文字都會變成黃色：
+ 
+                 *[1;33m測試一下xxxx ==> 測試一下xxxx
+      會產生如上結果，若要將 xxxx 變回原色，則可：
+ 
+         *[1;33m測試一下*[mxxxx ==> 測試一下xxxx
+      加個 *[m 或 *[0m 就可以解決，但若想把 xxxx 變成其他顏色，則：
+ 
+         *[1;33m測試一下*[0;36mxxxx ==> 測試一下xxxx
+      總之，在想改變色彩的部份加上想改變的色彩參數；在想停止上色的地方加
+  上 *[m 或 *[0m 即可！
+      以上，為前景色的修飾方式，接著，說說背景色的修飾方式，說完就下課了
+  唷！
+      背景色的寫法很奇怪，以下舉例說明一下：
+ 
+         *[1;33;43m測試一下*[m     ==> 測試一下
+         *[1;33;43m  測試一下*[m   ==>   測試一下
+         *[1;33;43m  測試一下  *[m ==>   測試一下  
+     它會因為你參數的位置不同，而產生不同的結果，以此特性，將背景色多加活
+  用，你也能做出出色的簽名檔、計畫檔....等。
+     好啦！下課囉！開始做些試驗吧！看看有哪裡還不懂的，再告訴我！^_^
+ <<<<<<<<<<<<<<<<<<<<<<<<<<<<< $ E N D $ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
diff --git a/pttbbs/sample/innd/Makefile b/pttbbs/sample/innd/Makefile
new file mode 100644
index 00000000..853ba0db
--- /dev/null
+++ b/pttbbs/sample/innd/Makefile
@@ -0,0 +1,9 @@
+BBSHOME?=$(HOME)
+TARGET=$(BBSHOME)/innd/
+FILES=bbsname.bbs newsfeeds.bbs nodelist.bbs ntu.active
+
+all:
+
+install:
+	install -d $(TARGET)
+	install -c -m 644 $(FILES) $(TARGET)
diff --git a/pttbbs/sample/innd/bbsname.bbs b/pttbbs/sample/innd/bbsname.bbs
new file mode 100644
index 00000000..72db534d
--- /dev/null
+++ b/pttbbs/sample/innd/bbsname.bbs
@@ -0,0 +1 @@
+ptt2
diff --git a/pttbbs/sample/innd/newsfeeds.bbs b/pttbbs/sample/innd/newsfeeds.bbs
new file mode 100644
index 00000000..c32b8042
--- /dev/null
+++ b/pttbbs/sample/innd/newsfeeds.bbs
@@ -0,0 +1,3 @@
+#  newsgroups                           board           news server
+#-------------------------------------  --------------  -----------
+#tw.bbs.test				test		ntu
diff --git a/pttbbs/sample/innd/nodelist.bbs b/pttbbs/sample/innd/nodelist.bbs
new file mode 100644
index 00000000..d5784970
--- /dev/null
+++ b/pttbbs/sample/innd/nodelist.bbs
@@ -0,0 +1,4 @@
+# name          hostname & domainname                    full name
+#-------        ----------------------------------      ------------
+#ptt2		ptt2.csie.ntu.edu.tw	IHAVE(7777)	Ptt2
+#ntu		news.ntu.edu.tw		POST(119)	NTU News Server
diff --git a/pttbbs/sample/innd/ntu.active b/pttbbs/sample/innd/ntu.active
new file mode 100644
index 00000000..3825d9ea
--- /dev/null
+++ b/pttbbs/sample/innd/ntu.active
@@ -0,0 +1 @@
+tw.bbs.chat 0000000000 0000000000 y
diff --git a/pttbbs/sample/pttbbs.conf b/pttbbs/sample/pttbbs.conf
new file mode 100644
index 00000000..8811b6d9
--- /dev/null
+++ b/pttbbs/sample/pttbbs.conf
@@ -0,0 +1,111 @@
+/* $Id: pttbbs.conf,v 1.14 2003/07/06 03:41:08 in2 Exp $ */
+
+/* 定義 BBS 站名位址 */
+#define BBSNAME         "新批踢踢"			/* 中文站名 */
+#define MYHOSTNAME      "ptt2.cc"          		/* 網路位址 */
+#define MYIP            "140.112.30.143"		/* IP位址 */
+
+/* 定義系統資訊 */
+#define BBSUSER         "bbs"
+#define BBSUID          9999
+#define BBSGID          99
+
+/* 最大編輯行數, 以防有惡意使用使 post 巨大文章 */
+#define MAX_EDIT_LINE   2048
+
+/* 若定義, 則可以免費隱形 */
+#define HAVE_FREECLOAK  1
+
+/* 可以設定多重進站畫面 */
+#define MULTI_WELCOME_LOGIN
+
+/* 最大 CPU負荷, 超過的時候將拒決 login */
+#define MAX_CPULOAD	(400)
+
+/* 最多註冊人數, 每個人會用掉 21 bytes 的 shared-memory */
+#define MAX_USERS	(150000)
+
+/* 最多同時上線人數, 每個人會用掉 3456 bytes 的 shared-memory */
+#define MAX_ACTIVE	(4096)
+
+/* 最大開板個數, 每個會用掉 6420 bytes 的 shared-memory */
+#define	MAX_BOARD	(8192)
+
+/* 幫忙寄信的 server, 一般設成自己(即ip: 127.0.0.1)就可以 */
+#define	RELAY_SERVER_IP	"127.0.0.1"
+
+/* 抬頭色彩 */
+#define TITLE_COLOR "\33[0;1;37;46m"
+
+/* 若定義, 則所有編輯文章最下方都會加入編輯來源.
+   否則只有 SYSOP板會加入來源                    */
+//#define ALL_REEDIT_LOG
+
+/* 定義看板好友名單將會在幾秒鐘後失效強迫重載 */
+#define HBFLexpire	(432000)
+
+/* 定義是否使用外籍使用者註冊
+   及外國人最長居留時間，之後需向站方申請永久居留權 */
+#define FOREIGN_REG
+#define FOREIGN_REG_DAY 30
+
+/* 板主可以按大寫 H切換隱形與否 */
+#define BMCHS
+
+/* 水球整理, 看板備份等等外部程式 */
+#define OUTJOBSPOOL
+
+/* 若定義, 則不能舉辦賭盤 */
+#define NO_GAMBLE
+
+/* 可動態透過 GLOBALVAR[9]調整使用者上限 */
+#define	DYMAX_ACTIVE
+
+/* 程式最多可以跑多久 (in min) 因為有的時候會出現跑不停的 process */
+#define CPULIMIT	1
+
+/* 若定義, 若程式失敗, 會等待 86400 秒以讓 gdb來 attach */
+#define DEBUGSLEEP
+
+/* 若定義, 用一個奇怪的數字來檢查我的最愛和看板列表是否錯誤 */
+#define MEM_CHECK 0x98761234
+
+/* 若定義, 則可在外部 (shmctl cmsignal) 要求將 mbbsd將 zapbuf 釋放掉.
+   會使用非正規的記憶體要求函式. (目前只在 FreeBSD上測試過)
+   !!請注意!!
+   除非您確切知道這個能能在做什麼並且有須要,
+   否則請不要打開這個功能!!                                           */
+//#define CRITICAL_MEMORY
+//#define CMSIGNAL        SIGINFO
+
+/* 設定最大可再買幾封信箱 (default: 1000) */
+#define MAX_EXKEEPMAIL    (1000)
+
+/* 對於 port 23的, 會預先 fork 幾隻出來. 如此在系統負荷高的時候,
+   仍可有好的上站率 */
+//#define PRE_FORK 10
+
+/* 若定義, 則由 shmctl utmpsortd 將 time(NULL) 寫入 SHM->GV2.e.now,
+   則不須每個 mbbsd都自己透過 time(NULL) 取得時間, 導致大量的 system call.
+   須要加跑 shmctl timed 來提供時間                                        */
+//#define OUTTA_TIMER
+
+/* 若定義, 則啟動 bbs中連至 BLOG 的 interface
+   請參閱 pttbbs/blog/ */
+//#define BLOGDB_HOST   "10.1.1.1"
+//#define BLOGDB_USER   "USER"
+//#define BLOGDB_PASSWD "PASSWORD"
+//#define BLOGDB_DB     "DATABASE"
+//#define BLOGDB_PORT   3306
+//#define BLOGDB_SOCK   NULL
+
+/* 若定義, 則在文章列表的時候不同日期會標上不同顏色 */
+//#define COLORDATE
+
+/* 若定義, 則會在 read socket的時候, 則會跳過讀入時第一個 byte 是 -1
+    (即 telnet 的 control packet), 可避免循環錯誤 */
+//#define SKIP_TELNET_CONTROL_SIGNAL
+
+/* 前進站畫面 */
+#define INSCREEN \
+"前進站畫面 (請至 pttbbs.conf 修改您的前進站畫面)"
diff --git a/pttbbs/sample/pttbbs.sh b/pttbbs/sample/pttbbs.sh
new file mode 100755
index 00000000..24d19106
--- /dev/null
+++ b/pttbbs/sample/pttbbs.sh
@@ -0,0 +1,34 @@
+#!/bin/sh
+# 請注意! 這個檔案將以 root 的權限執行.
+# 預設使用 bbs這個帳號, 安裝目錄為 /home/bbs
+
+case "$1" in
+start)
+	# 初始化 shared-memory, 載入 uhash, utmpsortd, timed(if necessary)
+	/usr/bin/su -fm bbs -c /home/bbs/bin/shmctl init
+
+	# 寄信至站外
+	/usr/bin/su -fm bbs -c /home/bbs/bin/outmail &
+
+	# 轉信
+	/usr/bin/su -fm bbs -c /home/bbs/innd/innbbsd &
+
+	# 啟動 port 23 (port 23須使用 root 才能進行 bind ) 以其他
+	/home/bbs/bin/bbsctl start
+
+	# 提示
+	echo -n ' mbbsd'
+	;;
+stop)
+	/usr/bin/killall outmail
+	/usr/bin/killall innbbsd
+	/usr/bin/killall mbbsd
+	/usr/bin/killall shmctl
+	/bin/sleep 2; /usr/bin/killall shmctl
+	;;
+*)
+	echo "Usage: `basename $0` {start|stop}" >&2
+	;;
+esac
+
+exit 0
diff --git a/pttbbs/sample/rc.local b/pttbbs/sample/rc.local
new file mode 100644
index 00000000..c266f9bf
--- /dev/null
+++ b/pttbbs/sample/rc.local
@@ -0,0 +1,7 @@
+#!/bin/sh
+# WARNING: this script is run by root!!
+
+/usr/bin/su bbsadm -c /home/bbs/bin/shmctl init
+/usr/bin/su bbsadm -c /home/bbs/bin/outmail&
+/usr/bin/su bbsadm -c /home/bbs/innd/innbbsd 7777
+/home/bbs/bin/bbsctl start
diff --git a/pttbbs/staticweb/article.html b/pttbbs/staticweb/article.html
new file mode 100644
index 00000000..0d7d3e57
--- /dev/null
+++ b/pttbbs/staticweb/article.html
@@ -0,0 +1,18 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center"><tr><td>
+[% IF gb %]艘啣[% ELSE %]看板[% END %]: <a href="/man.pl/[% brdname %]/[% IF gb %]?gb=1[% END %]">[% brdname %]</a><br />
+<a href="./[% IF gb %]?gb=1[% END %]">[% IF gb %]隙奻珜[% ELSE %]回上頁[% END %]</a><br />
+<hr />
+</tr></td><tr><td>
+<font size=+2><pre>
+[% content %]
+</pre></font>
+</td></tr><tr><td>
+<hr>
+<a href="./[% IF gb %]?gb=1[% END %]">[% IF gb %]隙奻珜[% ELSE %]回上頁[% END %]</a><br />
+<a href="telnet://ptt.cc">[% IF gb %]蠶杺杺妗珛溶[% ELSE %]批踢踢實業坊[% END %]</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+
+</body>
+</html>
diff --git a/pttbbs/staticweb/b2g.pm b/pttbbs/staticweb/b2g.pm
new file mode 100644
index 00000000..c7cf318d
--- /dev/null
+++ b/pttbbs/staticweb/b2g.pm
@@ -0,0 +1,13985 @@
+package b2g;
+use Exporter;
+use vars qw(%b2g);
+
+%b2g = (
+'　' => '﹛',
+'，' => 'ㄛ',
+'、' => '﹜',
+'。' => '﹝',
+'．' => 'ㄝ',
+'•' => '﹞',
+'；' => '˙',
+'：' => 'ㄩ',
+'？' => 'ˋ',
+'！' => 'ㄐ',
+'︰' => 'ㄩ',
+'…' => '＃',
+'‥' => '“',
+'﹐' => 'ㄛ',
+'､' => '﹜',
+'﹒' => 'ㄝ',
+'·' => '﹞',
+'﹔' => '˙',
+'﹕' => 'ㄩ',
+'﹖' => 'ˋ',
+'﹗' => 'ㄐ',
+'｜' => '��',
+'–' => '求',
+'︱' => '��',
+'—' => '〞',
+'︳' => '估',
+'╴' => '��',
+'︴' => '佐',
+'﹏\' => '姊',
+'（' => 'ㄗ',
+'）' => 'ㄘ',
+'︵' => 'ㄗ',
+'︶' => '艮',
+'｛' => '��',
+'｝' => '��',
+'︷' => '佞',
+'︸' => '伴',
+'〔' => '〃',
+'〕' => '○',
+'︹' => '色',
+'︺' => '艾',
+'【' => '▽',
+'】' => '▼',
+'︻' => '佇',
+'︼' => '佗',
+'《' => '▲',
+'》' => '◎',
+'︽' => '行',
+'︾' => '衣',
+'〈' => '●',
+'〉' => '△',
+'︿' => '＿',
+'﹀' => 'ˍ',
+'「' => '☆',
+'」' => '★',
+'﹁' => '西',
+'﹂' => '阡',
+'『' => '◇',
+'』' => '◆',
+'﹃' => '串',
+'﹄' => '亨',
+'﹙' => 'ㄗ',
+'﹚' => 'ㄘ',
+'﹛' => '��',
+'﹜' => '��',
+'﹝' => '〃',
+'﹞' => '○',
+'‘' => '＆',
+'’' => '＊',
+'“' => '※',
+'”' => '§',
+'〝' => '��',
+'〞' => 'ㄑ',
+'‵' => '��',
+'′' => '∩',
+'＃' => 'ㄒ',
+'＆' => 'ㄕ',
+'＊' => 'ㄙ',
+'※' => '↗',
+'§' => '∫',
+'〃' => '”',
+'○' => '♀',
+'●' => '♂',
+'△' => '→',
+'▲' => '↖',
+'◎' => '♁',
+'☆' => '∵',
+'★' => '∴',
+'◇' => '☉',
+'◆' => '↑',
+'□' => '↓',
+'■' => '←',
+'▽' => '��',
+'▼' => '��',
+'㊣' => '呼',
+'℅' => '沁',
+'‾' => '‘',
+'￣' => '��',
+'＿' => '��',
+'ˍ' => 'ㄜ',
+'﹉' => '姑',
+'﹊' => '姆',
+'﹍' => '始',
+'﹎' => '姓',
+'﹋' => '姐',
+'﹌' => '姍',
+'﹟' => 'ㄒ',
+'﹠' => 'ㄕ',
+'﹡' => 'ㄙ',
+'＋' => 'ㄚ',
+'－' => 'ㄜ',
+'×' => '℅',
+'÷' => '‾',
+'±' => '㊣',
+'√' => '﹟',
+'＜' => 'ˉ',
+'＞' => 'ˇ',
+'＝' => 'ˊ',
+'≦' => '≒',
+'≧' => '≡',
+'≠' => '≧',
+'∞' => '﹢',
+'≒' => '沌',
+'≡' => '√',
+'﹢' => '��',
+'﹣' => '��',
+'﹤' => '��',
+'﹥' => '��',
+'﹦' => '��',
+'∼' => '‵',
+'∩' => '﹎',
+'∪' => '﹍',
+'⊥' => '﹠',
+'∠' => '＋',
+'∟' => '沐',
+'⊿' => '沒',
+'㏒' => '咎',
+'㏑' => '命',
+'∫' => '÷',
+'∮' => '±',
+'∵' => '﹣',
+'∴' => '﹤',
+'♀' => '﹦',
+'♂' => '﹥',
+'♁' => '��',
+'☉' => '×',
+'↑' => '∥',
+'↓' => '∣',
+'←' => '↘',
+'→' => '↙',
+'↖' => '沉',
+'↗' => '沅',
+'↙' => '汪',
+'↘' => '沛',
+'∥' => '′',
+'∣' => '��',
+'／' => 'ㄞ',
+'＼' => '��',
+'／' => 'ㄞ',
+'＼' => '��',
+'＄' => '∠',
+'¥' => 'ㄓ',
+'〒' => '��',
+'¢' => '⊿',
+'£' => '㏒',
+'％' => 'ㄔ',
+'＠' => '��',
+'℃' => '⊥',
+'℉' => '沈',
+'﹩' => '��',
+'﹪' => '��',
+'﹫' => '��',
+'㏕' => '固',
+'㎜' => '呶',
+'㎝' => '和',
+'㎞' => '咚',
+'㏎' => '咋',
+'㎡' => '呢',
+'㎎' => '咐',
+'㎏' => '呱',
+'㏄' => '周',
+'°' => '∼',
+'兙' => '��',
+'兛' => '��',
+'兞' => '��',
+'兝\' => '��',
+'兡' => '��',
+'兣' => '��',
+'嗧' => '��',
+'瓩' => '��',
+'糎' => '嘻',
+'▁' => '肝',
+'▂' => '肘',
+'▃' => '肛',
+'▄' => '肚',
+'▅' => '育',
+'▆' => '良',
+'▇' => '芒',
+'█' => '��',
+'▏' => '��',
+'▎' => '��',
+'▍' => '��',
+'▌' => '��',
+'▋' => '��',
+'▊' => '��',
+'▉' => '��',
+'┼' => '拈',
+'┴' => '拂',
+'┬' => '房',
+'┤' => '怕',
+'├' => '念',
+'▔' => '��',
+'─' => '岸',
+'│' => '岫',
+'▕' => '��',
+'┌' => '庚',
+'┐' => '庖',
+'└' => '弩',
+'┘' => '彼',
+'╭' => '秀',
+'╮' => '禿',
+'╰' => '系',
+'╯' => '究',
+'═' => '／',
+'╞' => '忿',
+'╪' => '押',
+'╡' => '怡',
+'◢' => '��',
+'◣' => '��',
+'◥' => '��',
+'◤' => '��',
+'╱' => '罕',
+'╲' => '肖',
+'╳' => '肓',
+'０' => 'ㄟ',
+'１' => 'ㄠ',
+'２' => 'ㄡ',
+'３' => 'ㄢ',
+'４' => 'ㄣ',
+'５' => 'ㄤ',
+'６' => 'ㄥ',
+'７' => 'ㄦ',
+'８' => 'ㄧ',
+'９' => 'ㄨ',
+'Ⅰ' => 'ｉ',
+'Ⅱ' => 'ｊ',
+'Ⅲ' => 'ｋ',
+'Ⅳ' => 'ｌ',
+'Ⅴ' => 'ｍ',
+'Ⅵ' => 'ｎ',
+'Ⅶ' => 'ｏ',
+'Ⅷ' => 'ｐ',
+'Ⅸ' => 'ｑ',
+'Ⅹ' => 'ｒ',
+'〡' => '咖',
+'〢' => '呸',
+'〣' => '咕',
+'〤' => '咀',
+'〥' => '呻',
+'〦' => '呷',
+'〧' => '咄',
+'〨' => '咒',
+'〩' => '恅',
+'十' => '坋',
+'卄' => '�`',
+'卅' => '埵',
+'Ａ' => '��',
+'Ｂ' => '��',
+'Ｃ' => '��',
+'Ｄ' => '��',
+'Ｅ' => '��',
+'Ｆ' => '��',
+'Ｇ' => '��',
+'Ｈ' => '��',
+'Ｉ' => '��',
+'Ｊ' => '��',
+'Ｋ' => '��',
+'Ｌ' => '��',
+'Ｍ' => '��',
+'Ｎ' => '��',
+'Ｏ' => '��',
+'Ｐ' => '��',
+'Ｑ' => '��',
+'Ｒ' => '��',
+'Ｓ' => '��',
+'Ｔ' => '��',
+'Ｕ' => '��',
+'Ｖ' => '��',
+'Ｗ' => '��',
+'Ｘ' => '��',
+'Ｙ' => '��',
+'Ｚ' => '��',
+'ａ' => '��',
+'ｂ' => '��',
+'ｃ' => '��',
+'ｄ' => '��',
+'ｅ' => '��',
+'ｆ' => '��',
+'ｇ' => '��',
+'ｈ' => '��',
+'ｉ' => '��',
+'ｊ' => '��',
+'ｋ' => '��',
+'ｌ' => '��',
+'ｍ' => '��',
+'ｎ' => '��',
+'ｏ' => '��',
+'ｐ' => '��',
+'ｑ' => '��',
+'ｒ' => '��',
+'ｓ' => '��',
+'ｔ' => '��',
+'ｕ' => '��',
+'ｖ' => '��',
+'ｗ' => '��',
+'ｘ' => '��',
+'ｙ' => '��',
+'ｚ' => '��',
+'Α' => '式',
+'Β' => '弛',
+'Γ' => '忙',
+'Δ' => '忖',
+'Ε' => '戎',
+'Ζ' => '戌',
+'Η' => '戍',
+'Θ' => '成',
+'Ι' => '扣',
+'Κ' => '扛',
+'Λ' => '托',
+'Μ' => '收',
+'Ν' => '早',
+'Ξ' => '旨',
+'Ο' => '旬',
+'Π' => '旭',
+'Ρ' => '曲',
+'Σ' => '曳',
+'Τ' => '有',
+'Υ' => '朽',
+'Φ' => '朴',
+'Χ' => '朱',
+'Ψ' => '朵',
+'Ω' => '次',
+'α\' => '汐',
+'β' => '汕',
+'γ' => '污',
+'δ' => '汛',
+'ε' => '汍',
+'ζ' => '汎',
+'η' => '灰',
+'θ' => '牟',
+'ι' => '牝',
+'κ' => '百',
+'λ' => '竹',
+'μ' => '米',
+'ν' => '糸',
+'ξ' => '缶',
+'ο' => '羊',
+'π' => '羽',
+'ρ' => '老',
+'σ' => '考',
+'τ' => '而',
+'υ' => '耒',
+'φ' => '耳',
+'χ' => '聿',
+'ψ' => '肉',
+'ω' => '肋',
+'ㄅ' => '乳',
+'ㄆ' => '事',
+'ㄇ' => '些',
+'ㄈ' => '亞',
+'ㄉ' => '享',
+'ㄊ' => '京',
+'ㄋ' => '佯',
+'ㄌ' => '依',
+'ㄍ' => '侍',
+'ㄎ' => '佳',
+'ㄏ' => '使',
+'ㄐ' => '佬',
+'ㄑ' => '供',
+'ㄒ' => '例',
+'ㄓ' => '來',
+'ㄔ' => '侃',
+'ㄕ' => '佰',
+'ㄖ' => '併',
+'ㄗ' => '侈',
+'ㄘ' => '佩',
+'ㄙ' => '佻',
+'ㄚ' => '侖',
+'ㄛ' => '佾',
+'ㄜ' => '侏',
+'ㄝ' => '侑',
+'ㄞ' => '佺',
+'ㄟ' => '兔',
+'ㄠ' => '兒',
+'ㄡ' => '兕',
+'ㄢ' => '兩',
+'ㄣ' => '具',
+'ㄤ' => '其',
+'ㄥ' => '典',
+'ㄦ' => '冽',
+'ㄧ' => '函',
+'ㄨ' => '刻',
+'ㄩ' => '券',
+'˙' => '步',
+'ˉ' => '‘',
+'ˊ' => '杓',
+'ˇ' => '’',
+'ˋ' => '��',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'一' => '珨',
+'乙' => '眣',
+'丁' => '間',
+'七' => 'ほ',
+'乃' => '騰',
+'九' => '嬝',
+'了' => '賸',
+'二' => '媼',
+'人' => '��',
+'儿' => '嫁',
+'入' => '��',
+'八' => '匐',
+'几' => '撓',
+'刀' => '絮',
+'刁' => '街',
+'力' => '薯',
+'匕' => '堸',
+'十' => '坋',
+'卜' => '眺',
+'又' => '衱',
+'三' => '��',
+'下' => '狟',
+'丈' => '桾',
+'上' => '奻',
+'丫' => '挩',
+'丸' => '侳',
+'凡' => '歇',
+'久' => '壅',
+'么\' => '繫',
+'也' => '珩',
+'乞' => 'ゎ',
+'于' => '衾',
+'亡' => '厗',
+'兀' => '堧',
+'刃' => '��',
+'勺' => '屺',
+'千' => 'ロ',
+'叉' => '脫',
+'口' => '諳',
+'土' => '芩',
+'士' => '尪',
+'夕' => '浀',
+'大' => '湮',
+'女' => '躓',
+'子' => '赽',
+'孑' => '篊',
+'孓' => '箵',
+'寸' => '渡',
+'小' => '苤',
+'尢' => '痼',
+'尸' => '坌',
+'山' => '刓',
+'川' => '捶',
+'工' => '馱',
+'己' => '撩',
+'已' => '眒',
+'巳' => '侒',
+'巾' => '踫',
+'干' => '補',
+'廾' => '甝',
+'弋' => '蒏',
+'弓' => '僮',
+'才' => '符',
+'丑' => '堯',
+'丐' => '堣',
+'不' => '祥',
+'中' => '笢',
+'丰' => '猿',
+'丹' => '竣',
+'之' => '眳',
+'尹' => '窇',
+'予' => '軑',
+'云' => '堁',
+'井' => '凝',
+'互' => '誑',
+'五' => '拻',
+'亢' => '蕩',
+'仁' => '��',
+'什' => '妦',
+'仃' => '崹',
+'仆' => 'ど',
+'仇' => '喫',
+'仍' => '��',
+'今' => '踏',
+'介' => '賡',
+'仄' => '媃',
+'元' => '啋',
+'允' => '埰',
+'內' => '囀',
+'六' => '鞠',
+'兮' => '殽',
+'公' => '鼠',
+'冗' => '��',
+'凶' => '倜',
+'分' => '煦',
+'切' => 'з',
+'刈' => '尌',
+'勻' => '埱',
+'勾' => '僑',
+'勿' => '昦',
+'化' => '趙',
+'匹' => 'ぁ',
+'午' => '敁',
+'升' => '汔',
+'卅' => '埵',
+'卞' => '勗',
+'厄' => '塌',
+'友' => '衭',
+'及' => '摯',
+'反' => '毀',
+'壬' => '��',
+'天' => '毞',
+'夫' => '痲',
+'太' => '怮',
+'夭' => '堬',
+'孔' => '謂',
+'少' => '屾',
+'尤' => '蚧',
+'尺' => '喜',
+'屯' => '迋',
+'巴' => '匙',
+'幻' => '酵',
+'廿' => '堨',
+'弔' => '裂',
+'引' => '竘',
+'心' => '陑',
+'戈' => '資',
+'戶' => '誧',
+'手' => '忒',
+'扎' => '崨',
+'支' => '盓',
+'文' => '恅',
+'斗' => '須',
+'斤' => '踝',
+'方' => '源',
+'日' => '��',
+'曰' => '堇',
+'月' => '堎',
+'木' => '躂',
+'欠' => 'Й',
+'止' => '砦',
+'歹' => '渦',
+'毋' => '拺',
+'比' => '掀',
+'毛' => '禱',
+'氏' => '庌',
+'水' => '阨',
+'火' => '鳶',
+'爪' => '蛈',
+'父' => '虜',
+'爻' => '堻',
+'片' => 'え',
+'牙' => '挴',
+'牛' => '籟',
+'犬' => '��',
+'王' => '卼',
+'丙' => '梡',
+'世' => '岍',
+'丕' => '塈',
+'且' => 'й',
+'丘' => '⑧',
+'主' => '翋',
+'乍' => '敓',
+'乏' => '椰',
+'乎' => '綱',
+'以' => '眕',
+'付' => '葆',
+'仔' => '豝',
+'仕' => '帊',
+'他' => '坻',
+'仗' => '梋',
+'代' => '測',
+'令' => '鍔',
+'仙' => '珈',
+'仞' => '嵀',
+'充' => '喃',
+'兄' => '倗',
+'冉' => '��',
+'冊' => '聊',
+'冬' => '隄',
+'凹' => '側',
+'出' => '堤',
+'凸' => '芧',
+'刊' => '膳',
+'加' => '樓',
+'功\' => '髡',
+'包' => '婦',
+'匆' => '棍',
+'北' => '控',
+'匝' => '婧',
+'仟' => 'ヰ',
+'半' => '圉',
+'卉' => '雒',
+'卡' => '縐',
+'占' => '梩',
+'卯' => '簾',
+'卮' => '奡',
+'去' => '��',
+'可' => '褫',
+'古' => '嘉',
+'右' => '衵',
+'召' => '欸',
+'叮' => '閎',
+'叩' => '萰',
+'叨' => '葍',
+'叼' => '蛤',
+'司' => '侗',
+'叵' => '媝',
+'叫' => '請',
+'另' => '鍚',
+'只' => '硐',
+'史' => '妢',
+'叱' => '蒆',
+'台' => '怢',
+'句' => '曆',
+'叭' => '務',
+'叻' => '葽',
+'四' => '侐',
+'囚' => '⑵',
+'外' => '俋',
+'央' => '栝',
+'失' => '囮',
+'奴' => '贖',
+'奶' => '騷',
+'孕' => '婕',
+'它' => '坳',
+'尼' => '攝',
+'巨' => '操',
+'巧' => 'б',
+'左' => '酘',
+'市' => '庈',
+'布' => '票',
+'平' => 'す',
+'幼' => '衿',
+'弁' => '袲',
+'弘' => '精',
+'弗' => '艇',
+'必' => '斛',
+'戊' => '昡',
+'打' => '湖',
+'扔' => '��',
+'扒' => '勒',
+'扑' => 'で',
+'斥' => '喇',
+'旦' => '筒',
+'朮' => '扲',
+'本' => '掛',
+'未' => '帤',
+'末' => '藺',
+'札' => '崥',
+'正' => '淏',
+'母' => '譫',
+'民' => '鏍',
+'氐' => '媯',
+'永' => '蚗',
+'汁' => '眴',
+'汀' => '矷',
+'氾' => '滓',
+'犯' => '溢',
+'玄' => '哱',
+'玉' => '迶',
+'瓜' => '圖',
+'瓦' => '俓',
+'甘' => '裘',
+'生' => '汜',
+'用' => '蚚',
+'甩' => '辿',
+'田' => '泬',
+'由' => '蚕',
+'甲' => '樅',
+'申' => '扠',
+'疋' => '鼀',
+'白' => '啞',
+'皮' => '々',
+'皿' => '鏤',
+'目' => '醴',
+'矛' => '穫',
+'矢' => '妐',
+'石' => '坒',
+'示' => '尨',
+'禾' => '睽',
+'穴' => '悃',
+'立' => '蕾',
+'丞' => '堜',
+'丟' => '隍',
+'乒' => 'さ',
+'乓' => '籤',
+'乩' => '媕',
+'亙' => '堥',
+'交' => '蝠',
+'亦' => '砫',
+'亥' => '漸',
+'仿' => '溘',
+'伉' => '惉',
+'伙' => '鳴',
+'伊' => '畛',
+'伕' => '痲',
+'伍' => '斪',
+'伐' => '極',
+'休' => '倎',
+'伏' => '睦',
+'仲' => '笯',
+'件' => '璃',
+'任' => '��',
+'仰' => '欯',
+'仳' => '幄',
+'份' => '爺',
+'企' => 'わ',
+'伋' => '��',
+'光' => '嫖',
+'兇' => '倜',
+'兆' => '欳',
+'先' => '珂',
+'全' => '��',
+'共' => '僕',
+'再' => '婬',
+'冰' => '梨',
+'列' => '蹈',
+'刑' => '倢',
+'划' => '赫',
+'刎' => '尰',
+'刖' => '踾',
+'劣' => '輾',
+'匈' => '倧',
+'匡' => '選',
+'匠' => '蔔',
+'印' => '荂',
+'危' => '峉',
+'吉' => '憚',
+'吏' => '環',
+'同' => '肮',
+'吊' => '裂',
+'吐' => '苂',
+'吁' => '郚',
+'吋' => '渡',
+'各' => '跪',
+'向' => '砃',
+'名' => '靡',
+'合' => '磁',
+'吃' => '勛',
+'后' => '綴',
+'吆' => '葴',
+'吒\' => '葚',
+'因' => '秪',
+'回' => '隙',
+'囝' => '麀',
+'圳' => '詀',
+'地' => '華',
+'在' => '婓',
+'圭' => '寧',
+'圬' => '訹',
+'圯' => '詄',
+'圩' => '詍',
+'夙' => '渼',
+'多' => '嗣',
+'夷' => '痁',
+'夸' => '蹂',
+'妄' => '咥',
+'奸' => '潮',
+'妃' => '漦',
+'好' => '疑',
+'她' => '坴',
+'如' => '��',
+'妁' => '潁',
+'字' => '趼',
+'存' => '湔',
+'宇' => '迻',
+'守' => '忐',
+'宅' => '晙',
+'安' => '假',
+'寺' => '侁',
+'尖' => '潑',
+'屹' => '砣',
+'州' => '笣',
+'帆' => '楞',
+'并' => '甜',
+'年' => '爛',
+'式' => '宒',
+'弛' => '啼',
+'忙' => '疆',
+'忖' => '瞁',
+'戎' => '��',
+'戌' => '剚',
+'戍' => '旴',
+'成' => '傖',
+'扣' => '諶',
+'扛' => '蕈',
+'托' => '迖',
+'收' => '彶',
+'早' => '婌',
+'旨' => '祤',
+'旬' => '悎',
+'旭' => '哢',
+'曲' => '⑻',
+'曳' => '珝',
+'有' => '衄',
+'朽' => '冓',
+'朴' => 'は',
+'朱' => '紾',
+'朵' => '嗡',
+'次' => '棒',
+'此' => '森',
+'死' => '侚',
+'氖' => '騫',
+'汝' => '��',
+'汗' => '犒',
+'汙' => '拹',
+'江' => '蔬',
+'池' => '喀',
+'汐' => '洢',
+'汕' => '囟',
+'污' => '拹',
+'汛' => '挬',
+'汍' => '��',
+'汎' => '滓',
+'灰' => '閡',
+'牟' => '觸',
+'牝' => '膷',
+'百' => '啃',
+'竹' => '罣',
+'米' => '譙',
+'糸' => '鏻',
+'缶' => '騞',
+'羊' => '栺',
+'羽' => '迼',
+'老' => '橾',
+'考' => '蕉',
+'而' => '奧',
+'耒' => '鼩',
+'耳' => '嫉',
+'聿' => '穛',
+'肉' => '��',
+'肋' => '澀',
+'肌' => '慼',
+'臣' => '頃',
+'自' => '赻',
+'至' => '祫',
+'臼' => '彊',
+'舌' => '忕',
+'舛' => '漍',
+'舟' => '笸',
+'艮' => '轘',
+'色' => '伎',
+'艾' => '鬲',
+'虫' => '單',
+'血' => '悛',
+'行' => '俴',
+'衣' => '畟',
+'西' => '昹',
+'阡' => '筀',
+'串' => '揹',
+'亨' => '箋',
+'位' => '弇',
+'住' => '蛂',
+'佇' => '悹',
+'佗' => '晬',
+'佞' => '惌',
+'伴' => '圈',
+'佛' => '痰',
+'何' => '睡',
+'估' => '嘛',
+'佐' => '酚',
+'佑' => '衶',
+'伽' => '暀',
+'伺' => '侜',
+'伸' => '扥',
+'佃' => '菔',
+'佔' => '梩',
+'似' => '侔',
+'但' => '筍',
+'佣' => '荈',
+'作' => '釬',
+'你' => '斕',
+'伯' => '皎',
+'低' => '腴',
+'伶' => '鍥',
+'余' => '豻',
+'佝' => '愔',
+'佈' => '票',
+'佚' => '惄',
+'兌' => '募',
+'克' => '親',
+'免' => '轎',
+'兵' => '條',
+'冶' => '珣',
+'冷' => '濮',
+'別' => '梗',
+'判' => '瓚',
+'利' => '瞳',
+'刪' => '刉',
+'刨' => '蘸',
+'劫' => '誶',
+'助' => '翑',
+'努' => '贗',
+'劬' => '蛨',
+'匣' => '牰',
+'即' => '撈',
+'卵' => '覲',
+'吝' => '醞',
+'吭\' => '諮',
+'吞' => '迒',
+'吾' => '挓',
+'否' => '瘁',
+'呎' => '喜',
+'吧' => '勘',
+'呆' => '渭',
+'呃' => '萺',
+'吳' => '挔',
+'呈' => '傘',
+'呂' => '臍',
+'君' => '澱',
+'吩' => '煜',
+'告' => '豢',
+'吹' => '斯',
+'吻' => '恉',
+'吸' => '柲',
+'吮' => '丳',
+'吵' => '陶',
+'吶' => '霰',
+'吠' => '溴',
+'吼' => '綾',
+'呀' => '挼',
+'吱' => '眹',
+'含' => '漪',
+'吟' => '窉',
+'听' => '泭',
+'囪' => '棋',
+'困' => '嬪',
+'囤' => '嗓',
+'囫' => '僔',
+'坊' => '溶',
+'坑' => '諧',
+'址' => '硊',
+'坍' => '怌',
+'均' => '歙',
+'坎' => '臻',
+'圾' => '僵',
+'坐' => '釴',
+'坏' => '輓',
+'圻' => '詒',
+'壯' => '袕',
+'夾' => '標',
+'妝' => '衒',
+'妒' => '催',
+'妨' => '溥',
+'妞' => '璊',
+'妣' => '澒',
+'妙' => '鏝',
+'妖' => '毦',
+'妍' => '潾',
+'妤' => '璆',
+'妓' => '樣',
+'妊' => '��',
+'妥' => '邰',
+'孝' => '苠',
+'孜' => '谻',
+'孚' => '篎',
+'孛' => '媄',
+'完' => '俇',
+'宋' => '冼',
+'宏' => '粽',
+'尬' => '痸',
+'局' => '擁',
+'屁' => 'い',
+'尿' => '續',
+'尾' => '帣',
+'岐' => '嶊',
+'岑' => '嶍',
+'岔' => '舶',
+'岌' => '嵺',
+'巫' => '拵',
+'希' => '洷',
+'序' => '唗',
+'庇' => '敏',
+'床' => '散',
+'廷' => '祂',
+'弄' => '讀',
+'弟' => '萊',
+'彤' => '肸',
+'形' => '倛',
+'彷' => '摴',
+'役' => '砢',
+'忘' => '咭',
+'忌' => '暴',
+'志' => '祩',
+'忍' => '��',
+'忱' => '鹿',
+'快' => '辦',
+'忸' => '碭',
+'忪' => '碪',
+'戒' => '賭',
+'我' => '扂',
+'抄' => '陪',
+'抗' => '蕨',
+'抖' => '順',
+'技' => '撮',
+'扶' => '痴',
+'抉' => '橄',
+'扭' => '聾',
+'把' => '參',
+'扼' => '塭',
+'找' => '梑',
+'批' => '蠶',
+'扳' => '售',
+'抒' => '忻',
+'扯' => '雀',
+'折' => '殏',
+'扮' => '啁',
+'投' => '芘',
+'抓' => '蚰',
+'抑' => '眚',
+'抆' => '�^',
+'改' => '蜊',
+'攻' => '馴',
+'攸' => '惎',
+'旱' => '熊',
+'更' => '載',
+'束' => '旰',
+'李' => '燠',
+'杏' => '倬',
+'材' => '第',
+'村' => '游',
+'杜' => '債',
+'杖' => '桱',
+'杞' => '頧',
+'杉' => '冱',
+'杆' => '裝',
+'杠' => '話',
+'杓' => '頛',
+'杗' => '�n',
+'步' => '祭',
+'每' => '藩',
+'求' => '⑴',
+'汞' => '僖',
+'沙' => '伈',
+'沁' => 'ц',
+'沈' => '朻',
+'沉' => '麥',
+'沅' => '蜠',
+'沛' => '驛',
+'汪' => '匽',
+'決' => '樵',
+'沐' => '蜲',
+'汰' => '怑',
+'沌' => '蜭',
+'汨' => '蜼',
+'沖' => '喳',
+'沒' => '羶',
+'汽' => 'イ',
+'沃' => '挋',
+'汲' => '撲',
+'汾' => '煆',
+'汴' => '蜺',
+'沆' => '蜵',
+'汶' => '蜱',
+'沍' => '渃',
+'沔\' => '蜪',
+'沘' => '�a',
+'沂' => '疺',
+'灶' => '婜',
+'灼' => '觖',
+'災' => '婐',
+'灸' => '奮',
+'牢' => '檣',
+'牡' => '警',
+'牠' => '坳',
+'狄' => '菸',
+'狂' => '遼',
+'玖' => '墾',
+'甬' => '薿',
+'甫' => '蒂',
+'男' => '鹹',
+'甸' => '菟',
+'皂' => '婂',
+'盯' => '閒',
+'矣' => '眑',
+'私' => '佌',
+'秀' => '凅',
+'禿' => '芮',
+'究' => '噶',
+'系' => '炵',
+'罕' => '滷',
+'肖' => '苳',
+'肓' => '蹅',
+'肝' => '裕',
+'肘' => '紵',
+'肛' => '誇',
+'肚' => '傳',
+'育' => '郤',
+'良' => '謎',
+'芒' => '璽',
+'芋' => '郠',
+'芍' => '屼',
+'見' => '獗',
+'角' => '褒',
+'言' => '晟',
+'谷' => '嗷',
+'豆' => '飪',
+'豕' => '鼮',
+'貝' => '探',
+'赤' => '喪',
+'走' => '軗',
+'足' => '逋',
+'身' => '旯',
+'車' => '陬',
+'辛' => '釓',
+'辰' => '魚',
+'迂' => '衯',
+'迆' => '暲',
+'迅' => '捃',
+'迄' => 'ア',
+'巡' => '挐',
+'邑' => '眧',
+'邢' => '俵',
+'邪' => '訄',
+'邦' => '堊',
+'那' => '饒',
+'酉' => '衃',
+'釆' => '粒',
+'里' => '爵',
+'防' => '滅',
+'阮' => '��',
+'阱' => '筘',
+'阪' => '筅',
+'阬' => '諧',
+'並' => '甜',
+'乖' => '墊',
+'乳' => '��',
+'事' => '岈',
+'些' => '虳',
+'亞' => '捚',
+'享' => '砅',
+'京' => '儔',
+'佯' => '栮',
+'依' => '甡',
+'侍' => '帎',
+'佳' => '槽',
+'使' => '妏',
+'佬' => '檗',
+'供' => '鼎',
+'例' => '瞰',
+'來' => '懂',
+'侃' => '朁',
+'佰' => '唱',
+'併' => '甜',
+'侈' => '喂',
+'佩' => '驚',
+'佻' => '椄',
+'侖' => '贅',
+'佾' => '棓',
+'侏' => '椌',
+'侑' => '晪',
+'佺' => '��',
+'兔' => '芤',
+'兒' => '嫁',
+'兕' => '渽',
+'兩' => '謗',
+'具' => '撿',
+'其' => 'む',
+'典' => '萎',
+'冽' => '渮',
+'函' => '滲',
+'刻' => '覦',
+'券' => '��',
+'刷' => '芃',
+'刺' => '棧',
+'到' => '善',
+'刮' => '團',
+'制' => '秶',
+'剁' => '嗥',
+'劾' => '衈',
+'劻' => '��',
+'卒' => '逑',
+'協' => '衪',
+'卓' => '袗',
+'卑' => '掠',
+'卦' => '寑',
+'卷' => '橙',
+'卸' => '迠',
+'卹' => '哧',
+'取' => '��',
+'叔' => '忴',
+'受' => '忳',
+'味' => '庤',
+'呵' => '瘉',
+'咖' => '縉',
+'呸' => '邏',
+'咕' => '嗾',
+'咀' => '擋',
+'呻' => '扚',
+'呷' => '菙',
+'咄' => '葟',
+'咒' => '紸',
+'咆' => '臢',
+'呼' => '網',
+'咐' => '蛻',
+'呱' => '葋',
+'呶' => '葰',
+'和' => '睿',
+'咚' => '葂',
+'呢' => '儸',
+'周' => '笚',
+'咋' => '捰',
+'命' => '韜',
+'咎' => '憑',
+'固' => '嘐',
+'垃' => '嶼',
+'坷' => '螃',
+'坪' => 'ざ',
+'坩' => '詑',
+'坡' => 'ぞ',
+'坦' => '拊',
+'坤' => '壑',
+'坼\' => '豟',
+'夜' => '珗',
+'奉' => '畸',
+'奇' => 'も',
+'奈' => '鰓',
+'奄' => '栟',
+'奔' => '掉',
+'妾' => '瑼',
+'妻' => 'ぺ',
+'委' => '巹',
+'妹' => '藤',
+'妮' => '屬',
+'姑' => '嘔',
+'姆' => '譟',
+'姐' => '賬',
+'姍' => '璈',
+'始' => '宎',
+'姓' => '俷',
+'姊' => '璇',
+'妯' => '璅',
+'妳' => '斕',
+'姒' => '璁',
+'姅' => '��',
+'孟' => '譁',
+'孤' => '嗽',
+'季' => '撫',
+'宗' => '跁',
+'定' => '隅',
+'官' => '夥',
+'宜' => '皊',
+'宙' => '紺',
+'宛' => '剄',
+'尚' => '奾',
+'屈' => '⑽',
+'居' => '懈',
+'屆' => '趣',
+'岷' => '廕',
+'岡' => '詳',
+'岸' => '偉',
+'岩' => '旂',
+'岫' => '廑',
+'岱' => '廗',
+'岳' => '埬',
+'帘' => '螫',
+'帚' => '紽',
+'帖' => '泃',
+'帕' => '鰻',
+'帛' => '盔',
+'帑' => '僰',
+'幸' => '倷',
+'庚' => '軾',
+'店' => '虛',
+'府' => '葬',
+'底' => '菁',
+'庖' => '瑲',
+'延' => '晊',
+'弦' => '玾',
+'弧' => '說',
+'弩' => '殢',
+'往' => '厘',
+'征' => '涽',
+'彿' => '痰',
+'彼' => '捨',
+'忝' => '蓇',
+'忠' => '笳',
+'忽' => '綺',
+'念' => '癩',
+'忿' => '牒',
+'怏' => '碥',
+'怔' => '涺',
+'怯' => 'к',
+'怵' => '硾',
+'怖' => '窕',
+'怪' => '墅',
+'怕' => '鷓',
+'怡' => '禊',
+'性' => '俶',
+'怩' => '碬',
+'怫' => '碢',
+'怛' => '碞',
+'或' => '麼',
+'戕' => '蜛',
+'房' => '滇',
+'戾' => '懤',
+'所' => '垀',
+'承' => '創',
+'拉' => '嶺',
+'拌' => '啗',
+'拄' => '羝',
+'抿' => '鏘',
+'拂' => '痳',
+'抹' => '蘑',
+'拒' => '擇',
+'招' => '桸',
+'披' => '蠹',
+'拓' => '阹',
+'拔' => '匿',
+'拋' => '纔',
+'拈' => '灌',
+'抨' => '髑',
+'抽' => '喲',
+'押' => '挹',
+'拐' => '塹',
+'拙' => '袛',
+'拇' => '譬',
+'拍' => '鼴',
+'抵' => '萋',
+'拚' => '皙',
+'抱' => '惕',
+'拘' => '憶',
+'拖' => '迍',
+'拗' => '皵',
+'拆' => '莞',
+'抬' => '怬',
+'拎' => '醜',
+'放' => '溫',
+'斧' => '葦',
+'於' => '衾',
+'旺' => '咺',
+'昔' => '昺',
+'易' => '眢',
+'昌' => '荻',
+'昆' => '壎',
+'昂' => '偕',
+'明' => '隴',
+'昀' => '篔',
+'昏' => '餉',
+'昕' => '篹',
+'昊' => '篕',
+'昇' => '汔',
+'服' => '督',
+'朋' => '攬',
+'杭' => '獐',
+'枋' => '駔',
+'枕' => '淠',
+'東' => '陲',
+'果' => '彆',
+'杳' => '餖',
+'杷' => '駎',
+'枇' => '餑',
+'枝' => '皉',
+'林' => '輿',
+'杯' => '戚',
+'杰' => '豌',
+'板' => '啣',
+'枉' => '厖',
+'松' => '侂',
+'析' => '昴',
+'杵' => '駜',
+'枚' => '繹',
+'枓' => '��',
+'杼' => '駉',
+'杪' => '餔',
+'杲' => '篚',
+'欣' => '釔',
+'武' => '挕',
+'歧' => 'ゃ',
+'歿\' => '殪',
+'氓' => '疇',
+'氛' => '煬',
+'泣' => 'ゥ',
+'注' => '蛁',
+'泳' => '蚞',
+'沱' => '裮',
+'泌' => '蹼',
+'泥' => '懾',
+'河' => '碩',
+'沽' => '嘗',
+'沾' => '桭',
+'沼' => '梌',
+'波' => '疏',
+'沫' => '蘊',
+'法' => '楊',
+'泓' => '裼',
+'沸' => '煩',
+'泄' => '邿',
+'油' => '蚐',
+'況' => '錶',
+'沮' => '據',
+'泗' => '蜑',
+'泅' => '⑷',
+'泱' => '蜰',
+'沿' => '朓',
+'治' => '笥',
+'泡' => '邐',
+'泛' => '滓',
+'泊' => '眼',
+'沬' => '�i',
+'泯' => '裶',
+'泜' => '��',
+'泖' => '裱',
+'泠' => '裧',
+'炕' => '蕃',
+'炎' => '朒',
+'炒' => '陷',
+'炊' => '普',
+'炙' => '笵',
+'爬' => '鰾',
+'爭' => '淰',
+'爸' => '啄',
+'版' => '唳',
+'牧' => '鐘',
+'物' => '昜',
+'狀' => '袨',
+'狎' => '摥',
+'狙' => '憾',
+'狗' => '僩',
+'狐' => '緒',
+'玩' => '俙',
+'玨' => '谾',
+'玟' => '諙',
+'玫' => '繭',
+'玥' => '則',
+'甽' => '峽',
+'疝' => '謰',
+'疙' => '貲',
+'疚' => '憊',
+'的' => '腔',
+'盂' => '衴',
+'盲' => '瓣',
+'直' => '眻',
+'知' => '眭',
+'矽' => '朏',
+'社' => '扦',
+'祀' => '擫',
+'祁' => 'り',
+'秉' => '梂',
+'秈' => '覹',
+'空' => '諾',
+'穹' => '騇',
+'竺' => '鬊',
+'糾' => '壁',
+'罔' => '嵙',
+'羌' => 'Ф',
+'羋' => '娷',
+'者' => '氪',
+'肺' => '煎',
+'肥' => '滔',
+'肢' => '眱',
+'肱' => '蹁',
+'股' => '嘖',
+'肫' => '踰',
+'肩' => '潛',
+'肴' => '躽',
+'肪' => '溝',
+'肯' => '諫',
+'臥' => '拏',
+'臾' => '籈',
+'舍' => '忔',
+'芳' => '滂',
+'芝' => '皏',
+'芙' => '傰',
+'芭' => '剪',
+'芽' => '捁',
+'芟' => '嗊',
+'芹' => 'т',
+'花' => '豪',
+'芬' => '煉',
+'芥' => '賣',
+'芯' => '郋',
+'芸' => '傺',
+'芣' => '釁',
+'芰' => '僋',
+'芾' => '傱',
+'芷' => '剺',
+'虎' => '誥',
+'虱' => '坉',
+'初' => '場',
+'表' => '桶',
+'軋' => '崏',
+'迎' => '茩',
+'返' => '殿',
+'近' => '輪',
+'邵' => '幵',
+'邸' => '菕',
+'邱' => '⑨',
+'邶' => '缿',
+'采' => '粒',
+'金' => '踢',
+'長' => '酗',
+'門' => '藷',
+'阜' => '虞',
+'陀' => '邲',
+'阿' => '陝',
+'阻' => '郯',
+'附' => '蜇',
+'陂' => '粨',
+'隹' => '鶹',
+'雨' => '迾',
+'青' => 'ч',
+'非' => '準',
+'亟' => '婼',
+'亭' => '秅',
+'亮' => '謠',
+'信' => '陓',
+'侵' => 'н',
+'侯' => '綜',
+'便' => '晞',
+'俠' => '狨',
+'俑' => '椓',
+'俏' => 'ё',
+'保' => '悵',
+'促' => '棻',
+'侶' => '舊',
+'俘' => '睞',
+'俟' => '椐',
+'俊' => '縑',
+'俗' => '匋',
+'侮' => '斿',
+'俐' => '瞬',
+'俄' => '塘',
+'係' => '炵',
+'俚' => '棫',
+'俎' => '殔',
+'俞\' => '貤',
+'侷' => '擁',
+'兗' => '湢',
+'冒' => '簸',
+'冑' => '遶',
+'冠' => '夢',
+'剎' => '价',
+'剃' => '殀',
+'削' => '祅',
+'前' => 'ヶ',
+'剌' => '嵋',
+'剋' => '親',
+'則' => '寀',
+'勇' => '蚋',
+'勉' => '辭',
+'勃' => '痕',
+'勁' => '麩',
+'匍' => '湇',
+'南' => '鰍',
+'卻' => '��',
+'厚' => '綠',
+'叛' => '竊',
+'咬' => '狶',
+'哀' => '飢',
+'咨' => '訰',
+'哎' => '陞',
+'哉' => '婭',
+'咸' => '玶',
+'咦' => '葇',
+'咳' => '褥',
+'哇' => '阺',
+'哂' => '葯',
+'咽' => '捗',
+'咪' => '蛷',
+'品' => 'こ',
+'哄' => '箏',
+'哈' => '慇',
+'咯' => '罹',
+'咫' => '槶',
+'咱' => '婤',
+'咻' => '萫',
+'咩' => '蜄',
+'咧' => '萻',
+'咿' => '葠',
+'囿' => '僨',
+'垂' => '晶',
+'型' => '倰',
+'垠' => '跇',
+'垣' => '圊',
+'垢' => '兢',
+'城' => '傑',
+'垮' => '踹',
+'垓' => '跍',
+'奕' => '瘏',
+'契' => 'ゑ',
+'奏' => '軠',
+'奎' => '錫',
+'奐' => '蛩',
+'姜' => '蔽',
+'姘' => '瘞',
+'姿' => '訬',
+'姣' => '瘥',
+'姨' => '盉',
+'娃' => '俅',
+'姥' => '檐',
+'姪' => '硍',
+'姚' => '狾',
+'姦' => '潮',
+'威' => '哏',
+'姻' => '窆',
+'孩' => '滯',
+'宣' => '哫',
+'宦' => '鄞',
+'室' => '弅',
+'客' => '諦',
+'宥' => '撊',
+'封' => '猾',
+'屎' => '妧',
+'屏' => 'そ',
+'屍' => '坌',
+'屋' => '挌',
+'峙' => '秸',
+'峒' => '廒',
+'巷' => '砏',
+'帝' => '著',
+'帥' => '邟',
+'帟' => '��',
+'幽' => '蚅',
+'庠' => '瑮',
+'度' => '僅',
+'建' => '膘',
+'弈' => '畹',
+'弭' => '殦',
+'彥' => '栫',
+'很' => '竭',
+'待' => '渾',
+'徊' => '輔',
+'律' => '薺',
+'徇' => '摲',
+'後' => '綴',
+'徉' => '摳',
+'怒' => '躑',
+'思' => '佷',
+'怠' => '窗',
+'急' => '摹',
+'怎' => '崋',
+'怨' => '埳',
+'恍' => '鉼',
+'恰' => 'ョ',
+'恨' => '管',
+'恢' => '閥',
+'恆' => '箝',
+'恃' => '庍',
+'恬' => '泮',
+'恫' => '雯',
+'恪' => '耤',
+'恤' => '哧',
+'扁' => '晦',
+'拜' => '問',
+'挖' => '阼',
+'按' => '偌',
+'拼' => 'ぐ',
+'拭' => '岋',
+'持' => '厥',
+'拮' => '盝',
+'拽' => '蚹',
+'指' => '硌',
+'拱' => '僭',
+'拷' => '蕭',
+'拯' => '淂',
+'括' => '嬤',
+'拾' => '夆',
+'拴' => '邥',
+'挑' => '泔',
+'挂' => '境',
+'政' => '淉',
+'故' => '嘟',
+'斫' => '簀',
+'施' => '囥',
+'既' => '暫',
+'春' => '景',
+'昭' => '桻',
+'映' => '茬',
+'昧' => '藪',
+'是' => '岆',
+'星' => '陎',
+'昨' => '酖',
+'昱' => '篘',
+'昤' => '�`',
+'曷' => '篢',
+'柿' => '岏',
+'染' => '��',
+'柱' => '翐',
+'柔' => '��',
+'某' => '議',
+'柬' => '潤',
+'架' => '殤',
+'枯\' => '豫',
+'柵' => '掑',
+'柩' => '駌',
+'柯' => '螞',
+'柄' => '梟',
+'柑' => '裡',
+'枴' => '塹',
+'柚' => '髲',
+'查' => '脤',
+'枸' => '魴',
+'柏' => '啡',
+'柞' => '酓',
+'柳' => '霞',
+'枰' => '骳',
+'柙' => '髫',
+'柢' => '魱',
+'柝' => '魆',
+'柒' => 'ま',
+'歪' => '俉',
+'殃' => '栴',
+'殆' => '渺',
+'段' => '僇',
+'毒' => '馮',
+'毗' => '讒',
+'氟' => '睛',
+'泉' => '��',
+'洋' => '栥',
+'洲' => '粔',
+'洪' => '粹',
+'流' => '霜',
+'津' => '踩',
+'洌' => '銫',
+'洱' => '媽',
+'洞' => '韌',
+'洗' => '炴',
+'活' => '魂',
+'洽' => 'ヨ',
+'派' => '巖',
+'洶' => '倵',
+'洛' => '醫',
+'泵' => '掙',
+'洹' => '銦',
+'洧' => '銚',
+'洸' => '��',
+'洩' => '邿',
+'洮' => '銢',
+'洵' => '鉽',
+'洎' => '銎',
+'洫' => '銂',
+'炫' => '嚃',
+'為' => '峈',
+'炳' => '殺',
+'炬' => '暹',
+'炯' => '噯',
+'炭' => '抰',
+'炸' => '旍',
+'炮' => '蘿',
+'炤' => '桽',
+'爰' => '趧',
+'牲' => '汊',
+'牯' => '臲',
+'牴' => '萋',
+'狩' => '暠',
+'狠' => '端',
+'狡' => '複',
+'玷' => '賥',
+'珊' => '仴',
+'玻' => '產',
+'玲' => '鍍',
+'珍' => '湴',
+'珀' => '賙',
+'玳' => '賟',
+'甚' => '朼',
+'甭' => '授',
+'畏' => '庢',
+'界' => '賜',
+'畎' => '謚',
+'畋' => '豏',
+'疫' => '砮',
+'疤' => '匏',
+'疥' => '赭',
+'疢' => '烘',
+'疣' => '譇',
+'癸' => '對',
+'皆' => '諂',
+'皇' => '銘',
+'皈' => '藃',
+'盈' => '荅',
+'盆' => '髓',
+'盃' => '戚',
+'盅' => '笤',
+'省' => '吽',
+'盹' => '臩',
+'相' => '眈',
+'眉' => '羹',
+'看' => '艘',
+'盾' => '嗎',
+'盼' => '曬',
+'眇' => '艛',
+'矜' => '鼪',
+'砂' => '仱',
+'研' => '旃',
+'砌' => 'を',
+'砍' => '興',
+'祆' => '擤',
+'祉' => '擨',
+'祈' => 'ら',
+'祇' => '發',
+'禹' => '迿',
+'禺' => '堮',
+'科' => '褪',
+'秒' => '鏃',
+'秋' => '⑦',
+'穿' => '援',
+'突' => '芼',
+'竿' => '裊',
+'竽' => '鬎',
+'籽' => '豽',
+'紂' => '聤',
+'紅' => '綻',
+'紀' => '槨',
+'紉' => '��',
+'紇' => '聧',
+'約' => '埮',
+'紆' => '翨',
+'缸' => '詰',
+'美' => '藝',
+'羿' => '邍',
+'耄' => '諴',
+'耐' => '騵',
+'耍' => '芄',
+'耑' => '蚳',
+'耶' => '珖',
+'胖' => '纖',
+'胥' => '鼖',
+'胚' => '鑣',
+'胃' => '庛',
+'胄' => '遶',
+'背' => '掖',
+'胡' => '綸',
+'胛' => '輷',
+'胎' => '怚',
+'胞' => '婉',
+'胤' => '媟',
+'胝' => '鄳',
+'致' => '祡',
+'舢' => '纁',
+'苧' => '嗀',
+'范' => '毓',
+'茅' => '矇',
+'苣' => '傸',
+'苛' => '螟',
+'苦' => '賴',
+'茄' => 'и',
+'若' => '��',
+'茂' => '簿',
+'茉' => '嗩',
+'苒\' => '嗖',
+'苗' => '醮',
+'英' => '荎',
+'茁' => '袌',
+'苜' => '嗕',
+'苔' => '怞',
+'苑' => '埸',
+'苞' => '婁',
+'苓' => '嗙',
+'苟' => '僎',
+'苯' => '掃',
+'茆' => '塓',
+'虐' => '酈',
+'虹' => '箇',
+'虻' => '繺',
+'虺' => '繷',
+'衍' => '栲',
+'衫' => '劦',
+'要' => '猁',
+'觔' => '踐',
+'計' => '數',
+'訂' => '隆',
+'訃' => '蜈',
+'貞' => '淔',
+'負' => '蛹',
+'赴' => '萼',
+'赳' => '鐙',
+'趴' => '鰱',
+'軍' => '濂',
+'軌' => '寢',
+'述' => '扴',
+'迦' => '暪',
+'迢' => '泧',
+'迪' => '舜',
+'迥' => '暰',
+'迭' => '詞',
+'迫' => 'つ',
+'迤' => '暲',
+'迨' => '樀',
+'郊' => '蝦',
+'郎' => '檔',
+'郁' => '郙',
+'郃' => '磁',
+'酋' => '⑶',
+'酊' => '鏺',
+'重' => '笭',
+'閂' => '蒛',
+'限' => '癹',
+'陋' => '穠',
+'陌' => '襤',
+'降' => '蔥',
+'面' => '醱',
+'革' => '賂',
+'韋' => '峇',
+'韭' => '壇',
+'音' => '秞',
+'頁' => '珜',
+'風' => '瑞',
+'飛' => '滄',
+'食' => '妘',
+'首' => '忑',
+'香' => '眅',
+'乘' => '傚',
+'亳' => '渫',
+'倌' => '椔',
+'倍' => '捷',
+'倣' => '溘',
+'俯' => '萱',
+'倦' => '樸',
+'倥' => '棸',
+'俸' => '棳',
+'倩' => '棡',
+'倖' => '倷',
+'倆' => '薨',
+'值' => '硉',
+'借' => '質',
+'倚' => '眓',
+'倒' => '給',
+'們' => '蠅',
+'俺' => '偃',
+'倀' => '徥',
+'倔' => '橡',
+'倨' => '棐',
+'俱' => '整',
+'倡' => '釩',
+'個' => '跺',
+'候' => '緊',
+'倘' => '昈',
+'俳' => '棌',
+'修' => '党',
+'倭' => '椑',
+'倪' => '懼',
+'俾' => '棯',
+'倫' => '豐',
+'倉' => '累',
+'兼' => '潭',
+'冤' => '啀',
+'冥' => '琱',
+'冢' => '琭',
+'凍' => '雲',
+'凌' => '錘',
+'准' => '袧',
+'凋' => '蛞',
+'剖' => 'て',
+'剜' => '嵑',
+'剔' => '枌',
+'剛' => '試',
+'剝' => '婀',
+'匪' => '溪',
+'卿' => 'ы',
+'原' => '埻',
+'厝' => '媩',
+'叟' => '袹',
+'哨' => '巟',
+'唐' => '昄',
+'唁' => '栵',
+'唷' => '遄',
+'哼' => '箕',
+'哥' => '貊',
+'哲' => '殍',
+'唆' => '坭',
+'哺' => '硫',
+'唔' => '蜁',
+'哩' => '薇',
+'哭' => '豭',
+'員' => '埜',
+'唉' => '隻',
+'哮' => '祄',
+'哪' => '闡',
+'哦' => '韃',
+'唧' => '裍',
+'唇' => '晾',
+'哽' => '蜉',
+'唏' => '裖',
+'圃' => 'ば',
+'圄' => '僳',
+'埂' => '飽',
+'埔' => 'の',
+'埋' => '鎚',
+'埃' => '除',
+'堉' => '��',
+'夏' => '狦',
+'套' => '杶',
+'奘' => '痷',
+'奚' => '瘃',
+'娑' => '瘨',
+'娘' => '矓',
+'娜' => '饑',
+'娟' => '樽',
+'娛' => '軓',
+'娓' => '皜',
+'姬' => '憫',
+'娠' => '朾',
+'娣' => '瘛',
+'娩' => '邊',
+'娥' => '塔',
+'娌' => '瘝',
+'娉\' => '瘜',
+'孫' => '呤',
+'屘' => '��',
+'宰' => '婟',
+'害' => '漲',
+'家' => '模',
+'宴' => '栯',
+'宮' => '僧',
+'宵' => '秖',
+'容' => '��',
+'宸' => '撌',
+'射' => '扞',
+'屑' => '邾',
+'展' => '桯',
+'屐' => '樦',
+'峭' => 'е',
+'峽' => '狤',
+'峻' => '澡',
+'峪' => '郥',
+'峨' => '塞',
+'峰' => '瑕',
+'島' => '絢',
+'崁' => '��',
+'峴' => '嵾',
+'差' => '船',
+'席' => '炟',
+'師' => '呇',
+'庫' => '踱',
+'庭' => '穸',
+'座' => '釱',
+'弱' => '��',
+'徒' => '芺',
+'徑' => '噤',
+'徐' => '剢',
+'恙' => '磽',
+'恣' => '礂',
+'恥' => '喝',
+'恐' => '謁',
+'恕' => '芊',
+'恭' => '鳩',
+'恩' => '塋',
+'息' => '洘',
+'悄' => 'Ь',
+'悟' => '昳',
+'悚' => '膉',
+'悍' => '熒',
+'悔' => '際',
+'悌' => '膌',
+'悅' => '埼',
+'悖' => '聜',
+'扇' => '圮',
+'拳' => '��',
+'挈' => '蕓',
+'拿' => '鏽',
+'捎' => '孖',
+'挾' => '衩',
+'振' => '淥',
+'捕' => '眸',
+'捂' => '拰',
+'捆' => '嬰',
+'捏' => '羼',
+'捉' => '袙',
+'挺' => '穻',
+'捐' => '曇',
+'挽' => '侺',
+'挪' => '鑑',
+'挫' => '渥',
+'挨' => '陘',
+'捍' => '煽',
+'捌' => '副',
+'效' => '虴',
+'敉' => '觷',
+'料' => '蹋',
+'旁' => '籥',
+'旅' => '藏',
+'時' => '奀',
+'晉' => '輩',
+'晏' => '縒',
+'晃' => '銜',
+'晒' => '伄',
+'晌' => '妅',
+'晅' => '�t',
+'晁' => '糑',
+'書' => '抎',
+'朔' => '侇',
+'朕' => '錞',
+'朗' => '檄',
+'校' => '苺',
+'核' => '瞄',
+'案' => '偶',
+'框' => '遺',
+'桓' => '遘',
+'根' => '跦',
+'桂' => '屢',
+'桔' => '諛',
+'栩' => '鼏',
+'梳' => '忯',
+'栗' => '璦',
+'桌' => '袤',
+'桑' => '氿',
+'栽' => '娵',
+'柴' => '莘',
+'桐' => '糽',
+'桀' => '鴅',
+'格' => '跡',
+'桃' => '朊',
+'株' => '絁',
+'桅' => '峖',
+'栓' => '邡',
+'栘' => '��',
+'桁' => '鳻',
+'殊' => '忷',
+'殉' => '捖',
+'殷' => '秜',
+'氣' => 'ァ',
+'氧' => '欬',
+'氨' => '停',
+'氦' => '漱',
+'氤' => '貐',
+'泰' => '怍',
+'浪' => '檢',
+'涕' => '欥',
+'消' => '秏',
+'涇' => '裻',
+'浦' => 'ひ',
+'浸' => '輞',
+'海' => '漆',
+'浙' => '涳',
+'涓' => '銝',
+'浬' => '爵',
+'涉' => '扡',
+'浮' => '腹',
+'浚' => '縛',
+'浴' => '唌',
+'浩' => '瘋',
+'涌' => '蚇',
+'涊' => '��',
+'浹' => '鉹',
+'涅' => '蠡',
+'浥' => '��',
+'涔' => '銋',
+'烊' => '噿',
+'烘' => '箸',
+'烤' => '蕪',
+'烙' => '歜',
+'烈' => '轄',
+'烏' => '拫',
+'爹' => '註',
+'特' => '杻',
+'狼' => '曖',
+'狹' => '狫',
+'狽' => '捧',
+'狸' => '燥',
+'狷' => '朄',
+'玆' => '觕',
+'班' => '啤',
+'琉' => '闋',
+'珮\' => '驚',
+'珠' => '紩',
+'珪' => '寧',
+'珞' => '踠',
+'畔' => '欐',
+'畝' => '譯',
+'畜' => '唒',
+'畚' => '褁',
+'留' => '隱',
+'疾' => '撞',
+'病' => '瓷',
+'症' => '痌',
+'疲' => 'ゞ',
+'疳' => '謯',
+'疽' => '懊',
+'疼' => '构',
+'疹' => '淟',
+'痂' => '謶',
+'疸' => '謾',
+'皋' => '詭',
+'皰' => '謥',
+'益' => '祔',
+'盍' => '轀',
+'盎' => '偵',
+'眩' => '悈',
+'真' => '淩',
+'眠' => '蹺',
+'眨' => '掁',
+'矩' => '撻',
+'砰' => '體',
+'砧' => '涷',
+'砸' => '婞',
+'砝' => '簎',
+'破' => 'ぢ',
+'砷' => '扙',
+'砥' => '簃',
+'砭' => '篿',
+'砠' => '訟',
+'砟' => '簂',
+'砲' => '蘿',
+'祕' => '贈',
+'祐' => '衶',
+'祠' => '檖',
+'祟' => '呧',
+'祖' => '逌',
+'神' => '朸',
+'祝' => '蛅',
+'祗' => '檍',
+'祚' => '旚',
+'秤' => '勝',
+'秣' => '濷',
+'秧' => '栔',
+'租' => '逤',
+'秦' => 'п',
+'秩' => '窏',
+'秘' => '贈',
+'窄' => '晜',
+'窈' => '髜',
+'站' => '桴',
+'笆' => '動',
+'笑' => '虷',
+'粉' => '煨',
+'紡' => '溺',
+'紗' => '伝',
+'紋' => '恇',
+'紊' => '恌',
+'素' => '匼',
+'索' => '坰',
+'純' => '曾',
+'紐' => '臟',
+'紕' => '蝣',
+'級' => '撰',
+'紜' => '蝖',
+'納' => '馨',
+'紙' => '祧',
+'紛' => '煌',
+'缺' => '��',
+'罟' => '赯',
+'羔' => '詬',
+'翅' => '喔',
+'翁' => '恟',
+'耆' => '糔',
+'耘' => '埧',
+'耕' => '較',
+'耙' => '曼',
+'耗' => '瘧',
+'耽' => '窖',
+'耿' => '飾',
+'胱' => '鄶',
+'脂' => '眲',
+'胰' => '疿',
+'脅' => '赲',
+'胭' => '醐',
+'胴' => '醓',
+'脆' => '毯',
+'胸' => '倠',
+'胳' => '賄',
+'脈' => '闕',
+'能' => '夔',
+'脊' => '撕',
+'胼' => '錧',
+'胯' => '輯',
+'臭' => '堪',
+'臬' => '糮',
+'舀' => '狳',
+'舐' => '鬋',
+'航' => '瑤',
+'舫' => '臛',
+'舨' => '聹',
+'般' => '啜',
+'芻' => '蛬',
+'茫' => '瓊',
+'荒' => '酸',
+'荔' => '璩',
+'荊' => '麾',
+'茸' => '��',
+'荐' => '熱',
+'草' => '翌',
+'茵' => '秮',
+'茴' => '塛',
+'荏' => '嫇',
+'茲' => '觕',
+'茹' => '��',
+'茶' => '脰',
+'茗' => '媱',
+'荀' => '媸',
+'茱' => '堽',
+'茨' => '棕',
+'荃' => '嫋',
+'虔' => '繶',
+'蚊' => '恞',
+'蚪' => '羷',
+'蚓' => '翽',
+'蚤' => '婩',
+'蚩' => '翾',
+'蚌' => '培',
+'蚣' => '羆',
+'蚜' => '捘',
+'衰' => '迉',
+'衷' => '笪',
+'袁' => '圇',
+'袂' => '鯁',
+'衽' => '鯃',
+'衹' => '硐',
+'記' => '暮',
+'訐' => '琣',
+'討' => '枒',
+'訌' => '琝',
+'訕' => '琩',
+'訊' => '捅',
+'託' => '迖',
+'訓' => '捄',
+'訖' => 'ウ',
+'訏' => '郚',
+'訑' => '��',
+'豈' => 'ろ',
+'豺' => '荸',
+'豹\' => '悸',
+'財' => '笙',
+'貢' => '僚',
+'起' => 'れ',
+'躬' => '鼓',
+'軒' => '唄',
+'軔' => '澼',
+'軏' => '��',
+'辱' => '��',
+'送' => '冞',
+'逆' => '欄',
+'迷' => '譎',
+'退' => '豖',
+'迺' => '騰',
+'迴' => '隙',
+'逃' => '枅',
+'追' => '袚',
+'逅' => '樆',
+'迸' => '掬',
+'邕' => '諅',
+'郡' => '縣',
+'郝' => '甄',
+'郢' => '菻',
+'酒' => '嬴',
+'配' => '饜',
+'酌' => '袓',
+'釘' => '隊',
+'針' => '渀',
+'釗' => '醙',
+'釜' => '葵',
+'釙' => '醛',
+'閃' => '匢',
+'院' => '埏',
+'陣' => '淝',
+'陡' => '飧',
+'陛' => '旎',
+'陝' => '匟',
+'除' => '壺',
+'陘' => '粡',
+'陞' => '汔',
+'隻' => '硐',
+'飢' => '慰',
+'馬' => '鎮',
+'骨' => '嘎',
+'高' => '詢',
+'鬥' => '須',
+'鬲' => '堛',
+'鬼' => '寤',
+'乾' => 'ヲ',
+'偺' => '��',
+'偽' => '帢',
+'停' => '礿',
+'假' => '樑',
+'偃' => '棼',
+'偌' => '椇',
+'做' => '酕',
+'偉' => '帡',
+'健' => '翩',
+'偶' => '髒',
+'偎' => '椊',
+'偕' => '棨',
+'偵' => '淈',
+'側' => '耜',
+'偷' => '芚',
+'偏' => 'ぇ',
+'倏' => '楰',
+'偯' => '��',
+'偭' => '��',
+'兜' => '項',
+'冕' => '轔',
+'凰' => '銖',
+'剪' => '熟',
+'副' => '萵',
+'勒' => '毚',
+'務' => '昢',
+'勘' => '膨',
+'動' => '雄',
+'匐' => '湉',
+'匏' => '痾',
+'匙' => '啻',
+'匿' => '曩',
+'區' => '⑹',
+'匾' => '寋',
+'參' => '統',
+'曼' => '霤',
+'商' => '妀',
+'啪' => '鱉',
+'啦' => '徽',
+'啄' => '袎',
+'啞' => '挳',
+'啡' => '溜',
+'啃' => '諱',
+'啊' => '陛',
+'唱' => '釭',
+'啖' => '遉',
+'問' => '恀',
+'啕' => '覛',
+'唯' => '峔',
+'啤' => 'ヾ',
+'唸' => '癩',
+'售' => '忮',
+'啜' => '鄖',
+'唬' => '誨',
+'啣' => '玴',
+'唳' => '鄏',
+'啁' => '覅',
+'啗' => '��',
+'圈' => '��',
+'國' => '弊',
+'圉' => '僪',
+'域' => '郖',
+'堅' => '澄',
+'堊' => '覘',
+'堆' => '剽',
+'埠' => '硎',
+'埤' => '軷',
+'基' => '價',
+'堂' => '斻',
+'堵' => '黑',
+'執' => '硒',
+'培' => '鑠',
+'夠' => '劂',
+'奢' => '异',
+'娶' => '��',
+'婁' => '礎',
+'婉' => '剉',
+'婦' => '蜀',
+'婪' => '懋',
+'婀' => '皝',
+'娼' => '瞏',
+'婢' => '瞉',
+'婚' => '駁',
+'婆' => 'ち',
+'婊' => '皛',
+'孰' => '抔',
+'寇' => '諼',
+'寅' => '窌',
+'寄' => '敵',
+'寂' => '敷',
+'宿' => '咑',
+'密' => '躇',
+'尉' => '徆',
+'專' => '蚳',
+'將' => '蔚',
+'屠' => '芡',
+'屜' => '歾',
+'屝' => '��',
+'崇' => '喟',
+'崆' => '慳',
+'崎' => 'ゅ',
+'崛' => '慒',
+'崖' => '捔',
+'崢' => '彃',
+'崑' => '壎',
+'崩' => '推',
+'崔' => '殖',
+'崙' => '贅',
+'崤\' => '慞',
+'崧' => '愬',
+'崗' => '詣',
+'巢' => '陴',
+'常' => '都',
+'帶' => '湍',
+'帳' => '梛',
+'帷' => '寣',
+'康' => '艙',
+'庸' => '蚢',
+'庶' => '旵',
+'庵' => '甂',
+'庾' => '甃',
+'張' => '桲',
+'強' => 'Ч',
+'彗' => '樄',
+'彬' => '梃',
+'彩' => '粗',
+'彫' => '蛐',
+'得' => '腕',
+'徙' => '摦',
+'從' => '植',
+'徘' => '龔',
+'御' => '郘',
+'徠' => '摵',
+'徜' => '撦',
+'恿' => '蚆',
+'患' => '遞',
+'悉' => '洃',
+'悠' => '蚙',
+'您' => '蠟',
+'惋' => '俬',
+'悴' => '蓂',
+'惦' => '蛟',
+'悽' => 'ぼ',
+'情' => '①',
+'悻' => '蒗',
+'悵' => '瞃',
+'惜' => '洇',
+'悼' => '翕',
+'惘' => '蒟',
+'惕' => '枔',
+'惆' => '蒺',
+'惟' => '峏',
+'悸' => '撢',
+'惚' => '蓎',
+'惇' => '嗟',
+'戚' => 'べ',
+'戛' => '磡',
+'扈' => '擯',
+'掠' => '謨',
+'控' => '諷',
+'捲' => '橙',
+'掖' => '珒',
+'探' => '抻',
+'接' => '諉',
+'捷' => '豎',
+'捧' => '癱',
+'掘' => '橢',
+'措' => '渠',
+'捱' => '睧',
+'掩' => '栚',
+'掉' => '裁',
+'掃' => '禸',
+'掛' => '境',
+'捫' => '痶',
+'推' => '芢',
+'掄' => '謬',
+'授' => '忨',
+'掙' => '淴',
+'採' => '粒',
+'掬' => '碇',
+'排' => '齬',
+'掏' => '昅',
+'掀' => '玅',
+'捻' => '瓔',
+'捩' => '碔',
+'捨' => '忔',
+'捺' => '睔',
+'敝' => '敔',
+'敖' => '偷',
+'救' => '寰',
+'教' => '諒',
+'敗' => '啖',
+'啟' => 'ゐ',
+'敏' => '鏗',
+'敘' => '唦',
+'敕' => '賰',
+'敔' => '��',
+'斜' => '訇',
+'斛' => '蘡',
+'斬' => '梮',
+'族' => '逜',
+'旋' => '唅',
+'旌' => '儥',
+'旎' => '儢',
+'晝' => '絅',
+'晚' => '俀',
+'晤' => '昵',
+'晨' => '鹵',
+'晦' => '靼',
+'晞' => '��',
+'曹' => '羚',
+'勗' => '袺',
+'望' => '咡',
+'梁' => '褽',
+'梯' => '枍',
+'梢' => '奿',
+'梓' => '儚',
+'梵' => '鼐',
+'桿' => '裝',
+'桶' => '肭',
+'梱' => '嬰',
+'梧' => '挀',
+'梗' => '馳',
+'械' => '迮',
+'梃' => '鳷',
+'棄' => 'ィ',
+'梭' => '坲',
+'梆' => '埠',
+'梅' => '繩',
+'梔' => '魃',
+'條' => '沭',
+'梨' => '燧',
+'梟' => '駓',
+'梡' => '�p',
+'梂' => '�W',
+'欲' => '郗',
+'殺' => '伀',
+'毫' => '瑭',
+'毬' => '⑩',
+'氫' => 'щ',
+'涎' => '珇',
+'涼' => '褸',
+'淳' => '晷',
+'淙' => '靿',
+'液' => '珘',
+'淡' => '筏',
+'淌' => '昃',
+'淤' => '袃',
+'添' => '氝',
+'淺' => 'Ё',
+'清' => 'ь',
+'淇' => '靽',
+'淋' => '邀',
+'涯' => '挭',
+'淑' => '抃',
+'涮' => '颭',
+'淞' => '靾',
+'淹' => '敊',
+'涸' => '碣',
+'混' => '髦',
+'淵' => '唻',
+'淅' => '靺',
+'淒' => 'ぼ',
+'渚' => '靘',
+'涵' => '滬',
+'淚\' => '濡',
+'淫' => '窋',
+'淘' => '杬',
+'淪' => '蹙',
+'深' => '旮',
+'淮' => '輕',
+'淨' => '噱',
+'淆' => '秎',
+'淄' => '谹',
+'涪' => '腺',
+'淬' => '氬',
+'涿' => '鞀',
+'淦' => '鞄',
+'烹' => '鱔',
+'焉' => '挸',
+'焊' => '爾',
+'烽' => '琿',
+'烯' => '洬',
+'爽' => '邠',
+'牽' => 'ラ',
+'犁' => '營',
+'猜' => '笨',
+'猛' => '襖',
+'猖' => '荼',
+'猓' => '滹',
+'猙' => '淭',
+'率' => '薹',
+'琅' => '斃',
+'琊' => '趜',
+'球' => '⑩',
+'理' => '燴',
+'現' => '珋',
+'琍' => '薛',
+'瓠' => '藄',
+'瓶' => 'せ',
+'瓷' => '棟',
+'甜' => '泫',
+'產' => '莉',
+'略' => '謹',
+'畦' => 'や',
+'畢' => '救',
+'異' => '祑',
+'疏' => '抌',
+'痔' => '筇',
+'痕' => '窩',
+'疵' => '棺',
+'痊' => '��',
+'痍' => '謤',
+'皎' => '藂',
+'盔' => '錳',
+'盒' => '碟',
+'盛' => '呏',
+'眷' => '樺',
+'眾' => '笲',
+'眼' => '桉',
+'眶' => '醒',
+'眸' => '薠',
+'眺' => '沷',
+'硫' => '闈',
+'硃' => '紾',
+'硎' => '簆',
+'祥' => '矨',
+'票' => 'き',
+'祭' => '撬',
+'移' => '痄',
+'窒' => '笰',
+'窕' => '鬈',
+'笠' => '鯜',
+'笨' => '捫',
+'笛' => '萃',
+'第' => '菴',
+'符' => '睫',
+'笙' => '鯔',
+'笞' => '鯚',
+'笮' => '鯗',
+'粒' => '薜',
+'粗' => '棉',
+'粕' => 'づ',
+'絆' => '堅',
+'絃' => '玾',
+'統' => '苀',
+'紮' => '崨',
+'紹' => '庄',
+'紼' => '蝔',
+'絀' => '蝛',
+'細' => '牉',
+'紳' => '朹',
+'組' => '郪',
+'累' => '濛',
+'終' => '笝',
+'紲' => '蟡',
+'紱' => '蝳',
+'缽' => '異',
+'羞' => '冔',
+'羚' => '鍋',
+'翌' => '秬',
+'翎' => '酃',
+'習' => '炾',
+'耜' => '齕',
+'聊' => '謐',
+'聆' => '壚',
+'脯' => '葫',
+'脖' => '盛',
+'脣' => '晾',
+'脫' => '迕',
+'脩' => '党',
+'脰' => '��',
+'脤' => '��',
+'舂' => '籇',
+'舵' => '嗆',
+'舷' => '珫',
+'舶' => '盒',
+'船' => '摒',
+'莎' => '伔',
+'莞' => '搛',
+'莘' => '揧',
+'荸' => '搣',
+'莢' => '樊',
+'莖' => '墨',
+'莽' => '癟',
+'莫' => '蘆',
+'莒' => '塙',
+'莊' => '蚽',
+'莓' => '摁',
+'莉' => '獲',
+'莠' => '搰',
+'荷' => '盡',
+'荻' => '搋',
+'荼' => '搊',
+'莆' => 'な',
+'莧' => '剻',
+'處' => '揭',
+'彪' => '梵',
+'蛇' => '彴',
+'蛀' => '翇',
+'蚶' => '聸',
+'蛄' => '臗',
+'蚵' => '臕',
+'蛆' => '⑺',
+'蛋' => '粥',
+'蚱' => '藫',
+'蚯' => '藱',
+'蛉' => '藭',
+'術' => '扲',
+'袞' => '渿',
+'袈' => '蘌',
+'被' => '掩',
+'袒' => '抳',
+'袖' => '凈',
+'袍' => '蠱',
+'袋' => '渝',
+'覓' => '贊',
+'規' => '寞',
+'訪' => '溼',
+'訝' => '捑',
+'訣' => '機',
+'訥' => '瓻',
+'許\' => '勍',
+'設' => '扢',
+'訟' => '冾',
+'訛' => '塚',
+'訢' => '釔',
+'豉' => '鐒',
+'豚' => '錟',
+'販' => '毽',
+'責' => '孮',
+'貫' => '嫗',
+'貨' => '億',
+'貪' => '怜',
+'貧' => 'げ',
+'赧' => '鐇',
+'赦' => '忏',
+'趾' => '硅',
+'趺' => '劗',
+'軛' => '濎',
+'軟' => '��',
+'這' => '涴',
+'逍' => '槱',
+'通' => '籵',
+'逗' => '飯',
+'連' => '蟀',
+'速' => '厒',
+'逝' => '岒',
+'逐' => '紨',
+'逕' => '暯',
+'逞' => '剩',
+'造' => '婖',
+'透' => '芵',
+'逢' => '瑙',
+'逖' => '槤',
+'逛' => '嫣',
+'途' => '芴',
+'部' => '窒',
+'郭' => '廖',
+'都' => '飲',
+'酗' => '厞',
+'野' => '珧',
+'釵' => '鎃',
+'釦' => '諶',
+'釣' => '袱',
+'釧' => '醝',
+'釭' => '榙',
+'釩' => '楣',
+'閉' => '敕',
+'陪' => '顯',
+'陵' => '鍬',
+'陳' => '麻',
+'陸' => '翻',
+'陰' => '秝',
+'陴' => '絧',
+'陶' => '枎',
+'陷' => '疪',
+'陬' => '絓',
+'雀' => '��',
+'雪' => '悕',
+'雩' => '鬺',
+'章' => '梒',
+'竟' => '器',
+'頂' => '階',
+'頃' => '②',
+'魚' => '赶',
+'鳥' => '纏',
+'鹵' => '簣',
+'鹿' => '繒',
+'麥' => '闔',
+'麻' => '鎊',
+'傢' => '模',
+'傍' => '奢',
+'傅' => '葭',
+'備' => '掘',
+'傑' => '豌',
+'傀' => '錚',
+'傖' => '徫',
+'傘' => '氶',
+'傚' => '虴',
+'最' => '郔',
+'凱' => '翮',
+'割' => '賃',
+'剴' => '嵁',
+'創' => '斐',
+'剩' => '呁',
+'勞' => '櫛',
+'勝' => '吨',
+'勛' => '悗',
+'博' => '痔',
+'厥' => '婽',
+'啻' => '鉥',
+'喀' => '縝',
+'喧' => '唈',
+'啼' => '杽',
+'喊' => '滌',
+'喝' => '瘓',
+'喘' => '揚',
+'喂' => '庣',
+'喜' => '炰',
+'喪' => '犮',
+'喔' => '鉊',
+'喇' => '嶽',
+'喋' => '鄔',
+'喃' => '鄎',
+'喳' => '崍',
+'單' => '等',
+'喟' => '鈰',
+'唾' => '阽',
+'喲' => '荋',
+'喚' => '遢',
+'喻' => '郟',
+'喬' => 'Я',
+'喱' => '酮',
+'啾' => '鈺',
+'喉' => '綰',
+'喫' => '勛',
+'喙' => '鉆',
+'圍' => '峓',
+'堯' => '牶',
+'堪' => '膩',
+'場' => '部',
+'堤' => '腓',
+'堰' => '桋',
+'報' => '惆',
+'堡' => '惜',
+'堝' => '跏',
+'堠' => '靬',
+'壹' => '瓞',
+'壺' => '綿',
+'奠' => '蛙',
+'婷' => '磌',
+'媚' => '藥',
+'婿' => '哤',
+'媒' => '羸',
+'媛' => '磏',
+'媧' => '瘣',
+'孳' => '箹',
+'孱' => '槴',
+'寒' => '漁',
+'富' => '蜓',
+'寓' => '唲',
+'寐' => '藕',
+'尊' => '郬',
+'尋' => '扆',
+'就' => '憩',
+'嵌' => 'И',
+'嵐' => '嵹',
+'崴' => '慬',
+'嵇' => '燿',
+'巽' => '毰',
+'幅' => '盟',
+'帽' => '簽',
+'幀' => '痋',
+'幃' => '僤',
+'幾' => '撓',
+'廊' => '檀',
+'廁' => '翎',
+'廂' => '眃',
+'廄\' => '學',
+'弼' => '氀',
+'彭' => '鱖',
+'復' => '葩',
+'循' => '悜',
+'徨' => '摎',
+'惑' => '鼻',
+'惡' => '填',
+'悲' => '扈',
+'悶' => '蟻',
+'惠' => '需',
+'愜' => '舕',
+'愣' => '蒹',
+'惺' => '倇',
+'愕' => '蒫',
+'惰' => '嗉',
+'惻' => '禕',
+'惴' => '蒴',
+'慨' => '耨',
+'惱' => '齣',
+'愎' => '蓍',
+'惶' => '鉻',
+'愉' => '赸',
+'愀' => '蓁',
+'愒' => '��',
+'戟' => '磢',
+'扉' => '擩',
+'掣' => '雩',
+'掌' => '梪',
+'描' => '鏡',
+'揀' => '滕',
+'揩' => '翰',
+'揉' => '��',
+'揆' => '碖',
+'揍' => '軡',
+'插' => '脣',
+'揣' => '揮',
+'提' => '枑',
+'握' => '挍',
+'揖' => '瓴',
+'揭' => '課',
+'揮' => '閨',
+'捶' => '晰',
+'援' => '堔',
+'揪' => '噢',
+'換' => '遙',
+'摒' => '碀',
+'揚' => '栨',
+'揹' => '掖',
+'敞' => '釣',
+'敦' => '嗟',
+'敢' => '詫',
+'散' => '汃',
+'斑' => '唯',
+'斐' => '麭',
+'斯' => '佴',
+'普' => 'ぱ',
+'晰' => '朐',
+'晴' => 'ю',
+'晶' => '儒',
+'景' => '劓',
+'暑' => '扻',
+'智' => '秷',
+'晾' => '謊',
+'晷' => '縟',
+'曾' => '崠',
+'替' => '杸',
+'期' => 'ぶ',
+'朝' => '陳',
+'棺' => '塽',
+'棕' => '趹',
+'棠' => '昉',
+'棘' => '憔',
+'棗' => '娹',
+'椅' => '眛',
+'棟' => '集',
+'棵' => '螢',
+'森' => '伬',
+'棧' => '梬',
+'棹' => '噮',
+'棒' => '堵',
+'棲' => 'へ',
+'棣' => '擐',
+'棋' => 'め',
+'棍' => '幔',
+'植' => '眵',
+'椒' => '蔆',
+'椎' => '袢',
+'棉' => '蹬',
+'棚' => '麟',
+'楮' => '匴',
+'棻' => '��',
+'款' => '遴',
+'欺' => 'ぷ',
+'欽' => 'м',
+'殘' => '紹',
+'殖' => '硈',
+'殼' => '褲',
+'毯' => '抮',
+'氮' => '答',
+'氯' => '薰',
+'氬' => '貒',
+'港' => '誠',
+'游' => '蚔',
+'湔' => '馻',
+'渡' => '傾',
+'渲' => '馺',
+'湧' => '蚇',
+'湊' => '椎',
+'渠' => '��',
+'渥' => '駂',
+'渣' => '崦',
+'減' => '熬',
+'湛' => '梲',
+'湘' => '盻',
+'渤' => '眾',
+'湖' => '綬',
+'湮' => '餂',
+'渭' => '弮',
+'渦' => '恦',
+'湯' => '抸',
+'渴' => '褡',
+'湍' => '苃',
+'渺' => '鏈',
+'測' => '聆',
+'湃' => '囌',
+'渝' => '趵',
+'渾' => '骰',
+'滋' => '訞',
+'溉' => '裙',
+'渙' => '鄘',
+'湎' => '餀',
+'湣' => '裶',
+'湄' => '馽',
+'湲' => '��',
+'湩' => '��',
+'湟' => '馜',
+'焙' => '捱',
+'焚' => '煞',
+'焦' => '蝴',
+'焰' => '栭',
+'無' => '拸',
+'然' => '��',
+'煮' => '羜',
+'焜' => '�j',
+'牌' => '齪',
+'犄' => '艗',
+'犀' => '洉',
+'猶' => '蚝',
+'猥' => '漇',
+'猴' => '綽',
+'猩' => '倅',
+'琺' => '楨',
+'琪' => '踮',
+'琳' => '轅',
+'琢' => '袬',
+'琥' => '踖',
+'琵\' => '讓',
+'琶' => '鷗',
+'琴' => 'р',
+'琯' => '奪',
+'琛' => '銵',
+'琦' => '踛',
+'琨' => '踑',
+'甥' => '汏',
+'甦' => '劼',
+'畫' => '賒',
+'番' => '楓',
+'痢' => '薄',
+'痛' => '芫',
+'痣' => '謻',
+'痙' => '噸',
+'痘' => '飩',
+'痞' => 'あ',
+'痠' => '呫',
+'登' => '腎',
+'發' => '楷',
+'皖' => '侹',
+'皓' => '薳',
+'皴' => '鼫',
+'盜' => '聒',
+'睏' => '嬪',
+'短' => '傻',
+'硝' => '祌',
+'硬' => '茞',
+'硯' => '栱',
+'稍' => '尕',
+'稈' => '解',
+'程' => '最',
+'稅' => '阭',
+'稀' => '洁',
+'窘' => '噬',
+'窗' => '敦',
+'窖' => '諸',
+'童' => '肵',
+'竣' => '縈',
+'等' => '脹',
+'策' => '習',
+'筆' => '捩',
+'筐' => '遲',
+'筒' => '芠',
+'答' => '湘',
+'筍' => '囹',
+'筋' => '踐',
+'筏' => '楔',
+'筑' => '耟',
+'粟' => '厔',
+'粥' => '粖',
+'絞' => '褊',
+'結' => '賦',
+'絨' => '��',
+'絕' => '橈',
+'紫' => '豜',
+'絮' => '哳',
+'絲' => '佪',
+'絡' => '釐',
+'給' => '跤',
+'絢' => '悀',
+'絰' => '��',
+'絳' => '蝑',
+'善' => '囡',
+'翔' => '矧',
+'翕' => '酁',
+'耋' => '嚧',
+'聒' => '壛',
+'肅' => '咈',
+'腕' => '勂',
+'腔' => 'У',
+'腋' => '珚',
+'腑' => '葉',
+'腎' => '朳',
+'脹' => '梠',
+'腆' => '沶',
+'脾' => 'ゝ',
+'腌' => '錣',
+'腓' => '錒',
+'腴' => '錁',
+'舒' => '戺',
+'舜' => '侅',
+'菩' => 'ぬ',
+'萃' => '楢',
+'菸' => '楱',
+'萍' => 'じ',
+'菠' => '略',
+'菅' => '楪',
+'萋' => '暐',
+'菁' => '敯',
+'華' => '貌',
+'菱' => '鎂',
+'菴' => '�C',
+'著' => '翍',
+'萊' => '應',
+'菰' => '楗',
+'萌' => '蠍',
+'菌' => '歷',
+'菽' => '暊',
+'菲' => '滑',
+'菊' => '擅',
+'萸' => '晸',
+'萎' => '峸',
+'萄' => '曶',
+'菜' => '粕',
+'萇' => '剼',
+'菔' => '楟',
+'菟' => '椸',
+'虛' => '剞',
+'蛟' => '藜',
+'蛙' => '陃',
+'蛭' => '藬',
+'蛔' => '閤',
+'蛛' => '絇',
+'蛤' => '跟',
+'蛐' => '藸',
+'蛞' => '藟',
+'街' => '誰',
+'裁' => '笛',
+'裂' => '蹊',
+'袱' => '舅',
+'覃' => '嬾',
+'視' => '弝',
+'註' => '蛁',
+'詠' => '蚑',
+'評' => 'ぜ',
+'詞' => '棵',
+'証' => '痐',
+'詁' => '甯',
+'詔' => '痧',
+'詛' => '逡',
+'詐' => '晥',
+'詆' => '畬',
+'訴' => '咂',
+'診' => '淖',
+'訶' => '畯',
+'詖' => '��',
+'象' => '砓',
+'貂' => '蘣',
+'貯' => '翏',
+'貼' => '泂',
+'貳' => '楚',
+'貽' => '縥',
+'賁' => '縖',
+'費' => '煤',
+'賀' => '種',
+'貴' => '幛',
+'買' => '鎗',
+'貶' => '晨',
+'貿' => '籀',
+'貸' => '湃',
+'越' => '埣',
+'超' => '閉',
+'趁' => '傢',
+'跎' => '巋',
+'距' => '擒',
+'跋' => '區',
+'跚\' => '孈',
+'跑' => '變',
+'跌' => '視',
+'跛' => '廱',
+'跆' => '懽',
+'軻' => '潞',
+'軸' => '粣',
+'軼' => '澞',
+'辜' => '匱',
+'逮' => '滋',
+'逵' => '槿',
+'週' => '笚',
+'逸' => '砯',
+'進' => '輛',
+'逶' => '槬',
+'鄂' => '塢',
+'郵' => '蚘',
+'鄉' => '盺',
+'郾' => '蛘',
+'酣' => '漕',
+'酥' => '匊',
+'量' => '講',
+'鈔' => '陵',
+'鈕' => '聽',
+'鈣' => '裟',
+'鈉' => '飄',
+'鈞' => '氅',
+'鈍' => '嗦',
+'鈐' => '鍘',
+'鈇' => '榥',
+'鈑' => '鍼',
+'閔' => '蓖',
+'閏' => '��',
+'開' => '羲',
+'閑' => '玿',
+'間' => '潔',
+'閒' => '玿',
+'閎' => '蒨',
+'隊' => '勦',
+'階' => '論',
+'隋' => '呬',
+'陽' => '栠',
+'隅' => '趶',
+'隆' => '癒',
+'隍' => '絏',
+'陲' => '絖',
+'隄' => '腓',
+'雁' => '栜',
+'雅' => '捇',
+'雄' => '倯',
+'集' => '摩',
+'雇' => '嗶',
+'雯' => '鰫',
+'雲' => '堁',
+'韌' => '��',
+'項' => '砐',
+'順' => '佼',
+'須' => '剕',
+'飧' => '漈',
+'飪' => '熂',
+'飯' => '溯',
+'飩' => '熀',
+'飲' => '窊',
+'飭' => '煻',
+'馮' => '瑛',
+'馭' => '啈',
+'黃' => '酴',
+'黍' => '抈',
+'黑' => '窪',
+'亂' => '觴',
+'傭' => '荈',
+'債' => '晢',
+'傲' => '偭',
+'傳' => '換',
+'僅' => '躺',
+'傾' => 'ъ',
+'催' => '殼',
+'傷' => '夼',
+'傻' => '伂',
+'傯' => '椗',
+'僇' => '�J',
+'剿' => '誼',
+'剷' => '莓',
+'剽' => '嵕',
+'募' => '躁',
+'勦' => '誼',
+'勤' => 'с',
+'勢' => '岊',
+'勣' => '憎',
+'匯' => '颯',
+'嗟' => '鉞',
+'嗨' => '鉖',
+'嗓' => '氻',
+'嗦' => '鉰',
+'嗎' => '鎘',
+'嗜' => '岓',
+'嗇' => '媊',
+'嗑' => '鉧',
+'嗣' => '佸',
+'嗤' => '閟',
+'嗯' => '鉣',
+'嗚' => '挎',
+'嗡' => '恂',
+'嗅' => '凊',
+'嗆' => 'М',
+'嗥' => '鉐',
+'嗉' => '鉏',
+'園' => '埶',
+'圓' => '埴',
+'塞' => '��',
+'塑' => '呿',
+'塘' => '攽',
+'塗' => '芨',
+'塚' => '琭',
+'塔' => '坢',
+'填' => '沓',
+'塌' => '坵',
+'塭' => '恔',
+'塊' => '輸',
+'塢' => '昶',
+'塒' => '跜',
+'塋' => '塨',
+'奧' => '兜',
+'嫁' => '毆',
+'嫉' => '撐',
+'嫌' => '珃',
+'媾' => '磎',
+'媽' => '鎔',
+'媼' => '碻',
+'媳' => '炱',
+'嫂' => '肊',
+'媲' => '磈',
+'嵩' => '慡',
+'嵯' => '慺',
+'幌' => '銨',
+'幹' => '補',
+'廉' => '螳',
+'廈' => '狪',
+'弒' => '葑',
+'彙' => '颯',
+'徬' => '籥',
+'微' => '峚',
+'愚' => '豇',
+'意' => '砩',
+'慈' => '椅',
+'感' => '覜',
+'想' => '砑',
+'愛' => '乾',
+'惹' => '��',
+'愁' => '啾',
+'愈' => '郛',
+'慎' => '氘',
+'慌' => '酷',
+'慄' => '璦',
+'慍' => '蒬',
+'愾' => '睾',
+'愴' => '碲',
+'愧\' => '壕',
+'愍' => '磲',
+'愆' => '磼',
+'愷' => '禔',
+'戡' => '磟',
+'戢' => '磭',
+'搓' => '湊',
+'搾' => '掍',
+'搞' => '詻',
+'搪' => '斨',
+'搭' => '減',
+'搽' => '舵',
+'搬' => '唸',
+'搏' => '疵',
+'搜' => '刲',
+'搔' => '犰',
+'損' => '囷',
+'搶' => 'Ш',
+'搖' => '牷',
+'搗' => '絲',
+'搆' => '凳',
+'敬' => '噹',
+'斟' => '涬',
+'新' => '陔',
+'暗' => '做',
+'暉' => '縡',
+'暇' => '狊',
+'暈' => '婠',
+'暖' => '轡',
+'暄' => '縠',
+'暘' => '�D',
+'暍' => '��',
+'會' => '頗',
+'榔' => '曙',
+'業' => '珛',
+'楚' => '奠',
+'楷' => '翱',
+'楠' => '撉',
+'楔' => '虼',
+'極' => '憤',
+'椰' => '珙',
+'概' => '衙',
+'楊' => '栦',
+'楨' => '鳺',
+'楫' => '擙',
+'楞' => '濕',
+'楓' => '瑯',
+'楹' => '暻',
+'榆' => '衼',
+'楝' => '擛',
+'楣' => '暽',
+'楛' => '��',
+'歇' => '衁',
+'歲' => '呡',
+'毀' => '障',
+'殿' => '蛔',
+'毓' => '媢',
+'毽' => '謔',
+'溢' => '祛',
+'溯' => '咁',
+'滓' => '貥',
+'溶' => '��',
+'滂' => '儰',
+'源' => '埭',
+'溝' => '僱',
+'滇' => '菲',
+'滅' => '鏢',
+'溥' => '魠',
+'溘' => '髣',
+'溼' => '坁',
+'溺' => '櫺',
+'溫' => '恲',
+'滑' => '賑',
+'準' => '袧',
+'溜' => '闊',
+'滄' => '終',
+'滔' => '昑',
+'溪' => '洈',
+'溧' => '魡',
+'溴' => '麧',
+'煎' => '澆',
+'煙' => '捈',
+'煩' => '歲',
+'煤' => '繳',
+'煉' => '褻',
+'照' => '桽',
+'煜' => '嬥',
+'煬' => '儩',
+'煦' => '懠',
+'煌' => '銓',
+'煥' => '鄙',
+'煞' => '伢',
+'煆' => '牬',
+'煨' => '嬲',
+'煖' => '轡',
+'爺' => '玼',
+'牒' => '赮',
+'猷' => '歖',
+'獅' => '囧',
+'猿' => '堀',
+'猾' => '賓',
+'瑯' => '斃',
+'瑚' => '綢',
+'瑕' => '閬',
+'瑟' => '阞',
+'瑞' => '��',
+'瑁' => '鋆',
+'琿' => '踥',
+'瑙' => '閫',
+'瑛' => '踕',
+'瑜' => '銴',
+'當' => '絞',
+'畸' => '儈',
+'瘀' => '贀',
+'痰' => '拑',
+'瘁' => '氮',
+'痲' => '鎊',
+'痱' => '貗',
+'痺' => '敘',
+'痿' => '贄',
+'痴' => '博',
+'痳' => '鎊',
+'盞' => '桮',
+'盟' => '襠',
+'睛' => '齒',
+'睫' => '豬',
+'睦' => '釋',
+'睞' => '薋',
+'督' => '飭',
+'睹' => '亂',
+'睪' => '媞',
+'睬' => '笞',
+'睜' => '淊',
+'睥' => '謖',
+'睨' => '薞',
+'睢' => '謘',
+'矮' => '鬥',
+'碎' => '呯',
+'碰' => '癲',
+'碗' => '俖',
+'碘' => '菊',
+'碌' => '繕',
+'碉' => '蛛',
+'硼' => '黴',
+'碑' => '戛',
+'碓' => '顈',
+'硿' => '��',
+'祺' => '檉',
+'祿' => '罈',
+'禁' => '輦',
+'萬' => '勀',
+'禽' => 'ф',
+'稜' => '濩',
+'稚' => '窔',
+'稠' => '喱',
+'稔' => '獶',
+'稟' => '渳',
+'稞\' => '燽',
+'窟' => '貓',
+'窠' => '鬅',
+'筷' => '輳',
+'節' => '誹',
+'筠' => '鶀',
+'筮' => '鵸',
+'筧' => '鯫',
+'粱' => '覬',
+'粳' => '冀',
+'粵' => '埡',
+'經' => '冪',
+'絹' => '橫',
+'綑' => '嬪',
+'綁' => '堂',
+'綏' => '呦',
+'絛' => '昐',
+'置' => '离',
+'罩' => '欶',
+'罪' => '郫',
+'署' => '扰',
+'義' => '砱',
+'羨' => '畈',
+'群' => '��',
+'聖' => '吤',
+'聘' => 'ご',
+'肆' => '佹',
+'肄' => '砨',
+'腱' => '錎',
+'腰' => '殈',
+'腸' => '釵',
+'腥' => '倞',
+'腮' => '��',
+'腳' => '褐',
+'腫' => '笫',
+'腹' => '號',
+'腺' => '甮',
+'腦' => '齟',
+'舅' => '憲',
+'艇' => '竻',
+'蒂' => '菱',
+'葷' => '餌',
+'落' => '邈',
+'萱' => '楘',
+'葵' => '鋼',
+'葦' => '峟',
+'葫' => '綵',
+'葉' => '珔',
+'葬' => '婛',
+'葛' => '賅',
+'萼' => '椴',
+'萵' => '搦',
+'葡' => 'に',
+'董' => '雁',
+'葩' => '楀',
+'葭' => '楁',
+'葆' => '楩',
+'虞' => '訒',
+'虜' => '簡',
+'號' => '瘍',
+'蛹' => '蚍',
+'蜓' => '藘',
+'蜈' => '藢',
+'蜇' => '藯',
+'蜀' => '抁',
+'蛾' => '圓',
+'蛻' => '虭',
+'蜂' => '瑚',
+'蜃' => '藦',
+'蜆' => '罋',
+'蜊' => '蠀',
+'衙' => '捙',
+'裟' => '蠙',
+'裔' => '砡',
+'裙' => '��',
+'補' => '硃',
+'裘' => '藽',
+'裝' => '蚾',
+'裡' => '爵',
+'裊' => '蘅',
+'裕' => '啥',
+'裒' => '渜',
+'覜' => '沷',
+'解' => '賤',
+'詫' => '莎',
+'該' => '蜆',
+'詳' => '砆',
+'試' => '彸',
+'詩' => '坅',
+'詰' => '痤',
+'誇' => '蹂',
+'詼' => '痗',
+'詣' => '祏',
+'誠' => '剴',
+'話' => '趕',
+'誅' => '紻',
+'詭' => '察',
+'詢' => '戙',
+'詮' => '盚',
+'詬' => '皒',
+'詹' => '梐',
+'詻' => '��',
+'訾' => '鬗',
+'詨' => '��',
+'豢' => '遛',
+'貊' => '蘜',
+'貉' => '碧',
+'賊' => '崞',
+'資' => '訧',
+'賈' => '樂',
+'賄' => '鞅',
+'貲' => '罃',
+'賃' => '醣',
+'賂' => '繡',
+'賅' => '罻',
+'跡' => '慫',
+'跟' => '躲',
+'跨' => '輻',
+'路' => '繚',
+'跳' => '泐',
+'跺' => '嗅',
+'跪' => '嶇',
+'跤' => '灃',
+'跦' => '胾',
+'躲' => '嗚',
+'較' => '誕',
+'載' => '婥',
+'軾' => '澮',
+'輊' => '澺',
+'辟' => '斬',
+'農' => '觼',
+'運' => '堍',
+'遊' => '蚔',
+'道' => '耋',
+'遂' => '咘',
+'達' => '湛',
+'逼' => '排',
+'違' => '峊',
+'遐' => '槲',
+'遇' => '郣',
+'遏' => '塊',
+'過' => '徹',
+'遍' => '梢',
+'遑' => '槾',
+'逾' => '貣',
+'遁' => '嗜',
+'鄒' => '軜',
+'鄗' => '輈',
+'酬' => '喚',
+'酪' => '檠',
+'酩' => '鶪',
+'釉' => '衲',
+'鈷' => '鎏',
+'鉗' => 'ヵ',
+'鈸' => '鍗',
+'鈽' => '鍹',
+'鉀' => '槭',
+'鈾\' => '蚎',
+'鉛' => 'レ',
+'鉋' => '蘸',
+'鉤' => '像',
+'鉑' => '痊',
+'鈴' => '鍊',
+'鉉' => '鍡',
+'鉍' => '鍣',
+'鉅' => '鍇',
+'鈹' => '鎀',
+'鈿' => '鍱',
+'鉚' => '穩',
+'閘' => '掅',
+'隘' => '偺',
+'隔' => '路',
+'隕' => '埩',
+'雍' => '蚨',
+'雋' => '鶬',
+'雉' => '濻',
+'雊' => '螅',
+'雷' => '濘',
+'電' => '萇',
+'雹' => '悻',
+'零' => '錨',
+'靖' => '噪',
+'靴' => '悒',
+'靶' => '匾',
+'預' => '啎',
+'頑' => '侻',
+'頓' => '嗨',
+'頊' => '趠',
+'頒' => '唬',
+'頌' => '佮',
+'飼' => '侞',
+'飴' => '熆',
+'飽' => '悼',
+'飾' => '庉',
+'馳' => '喊',
+'馱' => '邴',
+'馴' => '拲',
+'髡' => '孍',
+'鳩' => '藋',
+'麂' => '灛',
+'鼎' => '隋',
+'鼓' => '嘆',
+'鼠' => '扷',
+'僧' => '仵',
+'僮' => '椕',
+'僥' => '衝',
+'僖' => '棴',
+'僭' => '椆',
+'僚' => '豁',
+'僕' => 'ど',
+'像' => '砉',
+'僑' => 'а',
+'僱' => '嗶',
+'僎' => '�Q',
+'僩' => '�g',
+'兢' => '黎',
+'凳' => '脾',
+'劃' => '赫',
+'劂' => '崳',
+'匱' => '寍',
+'厭' => '栖',
+'嗾' => '雎',
+'嘀' => '雺',
+'嘛' => '鎰',
+'嘗' => '郭',
+'嗽' => '刱',
+'嘔' => '驍',
+'嘆' => '抩',
+'嘉' => '樁',
+'嘍' => '銃',
+'嘎' => '蜃',
+'嗷' => '鉬',
+'嘖' => '裞',
+'嘟' => '鉠',
+'嘈' => '閛',
+'嘐' => '�E',
+'嗶' => '萳',
+'團' => '芶',
+'圖' => '芞',
+'塵' => '鳥',
+'塾' => '觝',
+'境' => '噫',
+'墓' => '贏',
+'墊' => '菜',
+'塹' => 'З',
+'墅' => '旲',
+'塽' => '�u',
+'壽' => '忭',
+'夥' => '漞',
+'夢' => '襞',
+'夤' => '漡',
+'奪' => '嗤',
+'奩' => '榃',
+'嫡' => '菅',
+'嫦' => '禢',
+'嫩' => '囂',
+'嫗' => '濆',
+'嫖' => '禜',
+'嫘' => '禛',
+'嫣' => '禡',
+'孵' => '痿',
+'寞' => '蠕',
+'寧' => '譴',
+'寡' => '塾',
+'寥' => '賺',
+'實' => '妗',
+'寨' => '朘',
+'寢' => 'х',
+'寤' => '撱',
+'察' => '舷',
+'對' => '勤',
+'屢' => '藍',
+'嶄' => '楖',
+'嶇' => '嶉',
+'幛' => '嶀',
+'幣' => '啟',
+'幕' => '躉',
+'幗' => '僠',
+'幔' => '嶂',
+'廓' => '尷',
+'廖' => '蹉',
+'弊' => '斜',
+'彆' => '梗',
+'彰' => '桼',
+'徹' => '章',
+'慇' => '秜',
+'愿' => '堋',
+'態' => '怓',
+'慷' => '蕊',
+'慢' => '鞣',
+'慣' => '嫦',
+'慟' => '禋',
+'慚' => '紼',
+'慘' => '絀',
+'慵' => '蒱',
+'截' => '諍',
+'撇' => 'ぎ',
+'摘' => '晡',
+'摔' => '豸',
+'撤' => '雪',
+'摸' => '類',
+'摟' => '禮',
+'摺' => '腄',
+'摑' => '睭',
+'摧' => '殘',
+'搴' => '摨',
+'摭' => '稢',
+'摻' => '莖',
+'敲' => 'Ы',
+'斡' => '扃',
+'旗' => 'よ',
+'旖' => '儠',
+'暢' => '釧',
+'暨' => '轚',
+'暝\' => '縜',
+'榜' => '埤',
+'榨' => '掍',
+'榕' => '橝',
+'槁' => '樲',
+'榮' => '��',
+'槓' => '話',
+'構' => '凳',
+'榛' => '暺',
+'榷' => '��',
+'榻' => '朣',
+'榫' => '樴',
+'榴' => '闌',
+'槐' => '跼',
+'槍' => 'Л',
+'榭' => '橦',
+'槌' => '曈',
+'榦' => '補',
+'槃' => '攫',
+'榣' => '�l',
+'歉' => 'К',
+'歌' => '貉',
+'氳' => '賮',
+'漳' => '桫',
+'演' => '栳',
+'滾' => '幗',
+'漓' => '燬',
+'滴' => '舒',
+'漩' => '噈',
+'漾' => '歭',
+'漠' => '蠔',
+'漬' => '赹',
+'漏' => '穢',
+'漂' => 'か',
+'漢' => '犖',
+'滿' => '雛',
+'滯' => '笴',
+'漆' => 'ぽ',
+'漱' => '杇',
+'漸' => '膝',
+'漲' => '梀',
+'漣' => '蟆',
+'漕' => '儋',
+'漫' => '鞦',
+'漯' => '僽',
+'澈' => '竟',
+'漪' => '勱',
+'滬' => '誚',
+'漁' => '趷',
+'滲' => '汆',
+'滌' => '萍',
+'滷' => '簣',
+'熔' => '��',
+'熙' => '昝',
+'煽' => '刐',
+'熊' => '倱',
+'熄' => '洠',
+'熒' => '茷',
+'爾' => '嫌',
+'犒' => '蕍',
+'犖' => '媻',
+'獄' => '郜',
+'獐' => '滽',
+'瑤' => '毤',
+'瑣' => '坱',
+'瑪' => '鎖',
+'瑰' => '孵',
+'瑭' => '閰',
+'甄' => '淢',
+'疑' => '疶',
+'瘧' => '鑄',
+'瘍' => '桍',
+'瘋' => '瑁',
+'瘉' => '郛',
+'瘓' => '遝',
+'盡' => '鴃',
+'監' => '潼',
+'瞄' => '鏑',
+'睽' => '謋',
+'睿' => '謑',
+'睡' => '阯',
+'磁' => '棠',
+'碟' => '詠',
+'碧' => '捺',
+'碳' => '抯',
+'碩' => '侀',
+'碣' => '繇',
+'禎' => '檁',
+'福' => '腦',
+'禍' => '儀',
+'種' => '笱',
+'稱' => '備',
+'窪' => '俍',
+'窩' => '恮',
+'竭' => '賠',
+'端' => '傷',
+'管' => '奪',
+'箕' => '凜',
+'箋' => '潦',
+'筵' => '鶄',
+'算' => '呾',
+'箝' => '鶅',
+'箔' => '痍',
+'箏' => '鵱',
+'箸' => '鵰',
+'箇' => '跺',
+'箄' => '靴',
+'粹' => '氯',
+'粽' => '譭',
+'精' => '儕',
+'綻' => '梏',
+'綰' => '蝥',
+'綜' => '軘',
+'綽' => '朝',
+'綾' => '蝐',
+'綠' => '蟯',
+'緊' => '踡',
+'綴' => '袟',
+'網' => '厙',
+'綱' => '詼',
+'綺' => '蝎',
+'綢' => '喙',
+'綿' => '蹴',
+'綵' => '粗',
+'綸' => '蹣',
+'維' => '峎',
+'緒' => '唚',
+'緇' => '蝏',
+'綬' => '蝺',
+'罰' => '楠',
+'翠' => '港',
+'翡' => '醵',
+'翟' => '菠',
+'聞' => '恓',
+'聚' => '擄',
+'肇' => '欷',
+'腐' => '葛',
+'膀' => '基',
+'膏' => '詮',
+'膈' => '錴',
+'膊' => '眷',
+'腿' => '虯',
+'膂' => '錂',
+'臧' => '穈',
+'臺' => '怢',
+'與' => '迵',
+'舔' => '泙',
+'舞' => '敃',
+'艋' => '藾',
+'蓉' => '��',
+'蒿' => '楑',
+'蓆' => '炟',
+'蓄' => '匎',
+'蒙' => '蟹',
+'蒞' => '搯',
+'蒲' => 'ね',
+'蒜' => '呺',
+'蓋\' => '裔',
+'蒸' => '淛',
+'蓀' => '搘',
+'蓓' => '楜',
+'蒐' => '彳',
+'蒼' => '紳',
+'蓑' => '坯',
+'蓊' => '楏',
+'蜿' => '襚',
+'蜜' => '蹲',
+'蜻' => '蟷',
+'蜢' => '襗',
+'蜥' => '蠌',
+'蜴' => '蟿',
+'蜘' => '眯',
+'蝕' => '妠',
+'蜷' => '襢',
+'蜩' => '蠂',
+'裳' => '奷',
+'褂' => '墓',
+'裴' => '鑤',
+'裹' => '彰',
+'裸' => '邃',
+'製' => '秶',
+'裨' => '鵋',
+'褚' => '鵊',
+'裯' => '峮',
+'誦' => '刵',
+'誌' => '祩',
+'語' => '逄',
+'誣' => '挏',
+'認' => '��',
+'誡' => '趟',
+'誓' => '岉',
+'誤' => '昫',
+'說' => '佽',
+'誥' => '睅',
+'誨' => '餃',
+'誘' => '袀',
+'誑' => '睊',
+'誚' => '睍',
+'誧' => '惃',
+'豪' => '瑰',
+'貍' => '燥',
+'貌' => '簷',
+'賓' => '梅',
+'賑' => '罺',
+'賒' => '弚',
+'赫' => '禎',
+'趙' => '梊',
+'趕' => '裒',
+'跼' => '擁',
+'輔' => '落',
+'輒' => '濏',
+'輕' => 'ш',
+'輓' => '侺',
+'辣' => '彌',
+'遠' => '堈',
+'遘' => '樔',
+'遜' => '挶',
+'遣' => 'Е',
+'遙' => '猀',
+'遞' => '菰',
+'遢' => '槷',
+'遝' => '穖',
+'遛' => '槧',
+'鄙' => '捻',
+'鄘' => '颩',
+'鄞' => '蛓',
+'酵' => '談',
+'酸' => '呫',
+'酷' => '蹄',
+'酴' => '鶨',
+'鉸' => '蝓',
+'銀' => '窅',
+'銅' => '肣',
+'銘' => '霧',
+'銖' => '霘',
+'鉻' => '跳',
+'銓' => '鞡',
+'銜' => '玴',
+'銨' => '鴽',
+'鉼' => '綦',
+'銑' => '炡',
+'閡' => '碳',
+'閨' => '寨',
+'閩' => '關',
+'閣' => '跨',
+'閥' => '概',
+'閤' => '跨',
+'隙' => '炩',
+'障' => '梤',
+'際' => '暱',
+'雌' => '棘',
+'雒' => '鶱',
+'需' => '剒',
+'靼' => '鱁',
+'鞅' => '鰼',
+'韶' => '屻',
+'頗' => 'だ',
+'領' => '鍰',
+'颯' => '鴘',
+'颱' => '怢',
+'餃' => '褓',
+'餅' => '欲',
+'餌' => '媾',
+'餉' => '熁',
+'駁' => '眶',
+'骯' => '偎',
+'骰' => '鷋',
+'髦' => '巘',
+'魁' => '錄',
+'魂' => '骯',
+'鳴' => '霪',
+'鳶' => '藎',
+'鳳' => '瘀',
+'麼' => '繫',
+'鼻' => '掏',
+'齊' => 'ょ',
+'億' => '砬',
+'儀' => '痀',
+'僻' => 'ぃ',
+'僵' => '蔗',
+'價' => '歎',
+'儂' => '棬',
+'儈' => '辨',
+'儉' => '潟',
+'儅' => '絞',
+'凜' => '鄹',
+'劇' => '曄',
+'劈' => '衢',
+'劉' => '隸',
+'劍' => '膛',
+'劊' => '幣',
+'勰' => '裗',
+'厲' => '癆',
+'嘮' => '蜎',
+'嘻' => '柁',
+'嘹' => '靳',
+'嘲' => '陸',
+'嘿' => '稱',
+'嘴' => '郲',
+'嘩' => '貍',
+'噓' => '剟',
+'噎' => '珥',
+'噗' => '靷',
+'噴' => '驗',
+'嘶' => '侄',
+'嘯' => '苭',
+'嘰' => '葧',
+'墀' => '鳦',
+'墟' => '剡',
+'增' => '崝',
+'墳' => '煥',
+'墜' => '袡',
+'墮' => '園',
+'墩' => '勢',
+'墦\' => '��',
+'奭' => '�]',
+'嬉' => '稹',
+'嫻' => '瘚',
+'嬋' => '瞈',
+'嫵' => '澇',
+'嬌' => '蝙',
+'嬈' => '甈',
+'寮' => '撘',
+'寬' => '遵',
+'審' => '机',
+'寫' => '迡',
+'層' => '脯',
+'履' => '薩',
+'嶝' => '戫',
+'嶔' => '��',
+'幢' => '敢',
+'幟' => '秺',
+'幡' => '嶆',
+'廢' => '煙',
+'廚' => '報',
+'廟' => '鏜',
+'廝' => '媌',
+'廣' => '嫘',
+'廠' => '釦',
+'彈' => '粟',
+'影' => '荌',
+'德' => '肅',
+'徵' => '摞',
+'慶' => '④',
+'慧' => '雌',
+'慮' => '藉',
+'慝' => '礅',
+'慕' => '躅',
+'憂' => '蚡',
+'慼' => 'べ',
+'慰' => '怷',
+'慫' => '佫',
+'慾' => '郗',
+'憧' => '蒧',
+'憐' => '蟒',
+'憫' => '鏨',
+'憎' => '崚',
+'憬' => '蓐',
+'憚' => '筋',
+'憤' => '猷',
+'憔' => '蒝',
+'憮' => '瞅',
+'戮' => '職',
+'摩' => '藻',
+'摯' => '祪',
+'摹' => '纂',
+'撞' => '袉',
+'撲' => 'で',
+'撈' => '檜',
+'撐' => '傅',
+'撰' => '蚴',
+'撥' => '畢',
+'撓' => '鼯',
+'撕' => '侉',
+'撩' => '謄',
+'撒' => '��',
+'撮' => '湧',
+'播' => '畦',
+'撫' => '葷',
+'撚' => '瓔',
+'撬' => 'г',
+'撙' => '艉',
+'撢' => '筆',
+'撳' => '碡',
+'敵' => '菩',
+'敷' => '痱',
+'數' => '杅',
+'暮' => '贍',
+'暫' => '婃',
+'暴' => '惟',
+'暱' => '糒',
+'樣' => '欴',
+'樟' => '桷',
+'槨' => '擗',
+'樁' => '蛃',
+'樞' => '忺',
+'標' => '梓',
+'槽' => '羞',
+'模' => '耀',
+'樓' => '瞼',
+'樊' => '榆',
+'槳' => '蔑',
+'樂' => '氈',
+'樅' => '駏',
+'槭' => '樨',
+'樑' => '褽',
+'歐' => '韁',
+'歎' => '抩',
+'殤' => '毈',
+'毅' => '砳',
+'毆' => '饕',
+'漿' => '蓮',
+'潼' => '噉',
+'澄' => '割',
+'潑' => 'た',
+'潦' => '購',
+'潔' => '賞',
+'澆' => '蝸',
+'潭' => '抾',
+'潛' => 'Д',
+'潸' => '噁',
+'潮' => '陰',
+'澎' => '鱗',
+'潺' => '噆',
+'潰' => '壓',
+'潤' => '��',
+'澗' => '膚',
+'潘' => '攣',
+'滕' => '鋿',
+'潯' => '銆',
+'潠' => '��',
+'潟' => '籅',
+'熟' => '抇',
+'熬' => '偏',
+'熱' => '��',
+'熨' => '寲',
+'牖' => '趥',
+'犛' => '膧',
+'獎' => '蔣',
+'獗' => '漹',
+'瑩' => '茖',
+'璋' => '靚',
+'璃' => '薛',
+'瑾' => '隤',
+'璀' => '霅',
+'畿' => '諗',
+'瘠' => '韙',
+'瘩' => '渤',
+'瘟' => '恔',
+'瘤' => '雖',
+'瘦' => '忡',
+'瘡' => '敞',
+'瘢' => '韗',
+'皚' => '馬',
+'皺' => '紶',
+'盤' => '攫',
+'瞎' => '牊',
+'瞇' => '譜',
+'瞌' => '謏',
+'瞑' => '謒',
+'瞋' => '淪',
+'磋' => '渲',
+'磅' => '執',
+'確' => '��',
+'磊' => '濠',
+'碾' => '犧',
+'磕' => '融',
+'碼' => '鎢',
+'磐' => '攪',
+'稿' => '詨',
+'稼' => '歐',
+'穀\' => '嗷',
+'稽' => '儉',
+'稷' => '艟',
+'稻' => '翔',
+'窯' => '狺',
+'窮' => '⑥',
+'箭' => '璋',
+'箱' => '眊',
+'範' => '毓',
+'箴' => '鶇',
+'篆' => '蚼',
+'篇' => 'う',
+'篁' => '麔',
+'箠' => '憸',
+'篌' => '麑',
+'糊' => '緇',
+'締' => '萌',
+'練' => '褶',
+'緯' => '帠',
+'緻' => '祡',
+'緘' => '澎',
+'緬' => '邋',
+'緝' => '憬',
+'編' => '晤',
+'緣' => '埽',
+'線' => '盄',
+'緞' => '剷',
+'緩' => '遣',
+'綞' => '蝬',
+'緙' => '蝻',
+'緲' => '蝧',
+'緹' => '蝢',
+'罵' => '鎬',
+'罷' => '啦',
+'羯' => '蠖',
+'翩' => '醳',
+'耦' => '勷',
+'膛' => '旼',
+'膜' => '臚',
+'膝' => '洏',
+'膠' => '蝶',
+'膚' => '痺',
+'膘' => '桿',
+'蔗' => '涫',
+'蔽' => '敖',
+'蔚' => '庰',
+'蓮' => '虧',
+'蔬' => '忣',
+'蔭' => '秭',
+'蔓' => '雞',
+'蔑' => '鏖',
+'蔣' => '蔓',
+'蔡' => '絆',
+'蔔' => '眺',
+'蓬' => '鷥',
+'蔥' => '棣',
+'蓿' => '煚',
+'蔆' => '鎂',
+'螂' => '襛',
+'蝴' => '維',
+'蝶' => '評',
+'蝠' => '襝',
+'蝦' => '牬',
+'蝸' => '恘',
+'蝨' => '坉',
+'蝙' => '譀',
+'蝗' => '銀',
+'蝌' => '覈',
+'蝓' => '觶',
+'衛' => '怹',
+'衝' => '喳',
+'褐' => '福',
+'複' => '葩',
+'褒' => '婪',
+'褓' => '鵒',
+'褕' => '��',
+'褊' => '鵟',
+'誼' => '祓',
+'諒' => '謝',
+'談' => '抶',
+'諄' => '袘',
+'誕' => '筑',
+'請' => '③',
+'諸' => '絊',
+'課' => '諺',
+'諉' => '矞',
+'諂' => '硤',
+'調' => '覃',
+'誰' => '阰',
+'論' => '蹦',
+'諍' => '睆',
+'誶' => '硥',
+'誹' => '溧',
+'諛' => '矬',
+'豌' => '俁',
+'豎' => '旳',
+'豬' => '紿',
+'賠' => '靨',
+'賞' => '奼',
+'賦' => '董',
+'賤' => '獎',
+'賬' => '梖',
+'賭' => '傭',
+'賢' => '玵',
+'賣' => '闖',
+'賜' => '棹',
+'質' => '窐',
+'賡' => '疐',
+'赭' => '鐎',
+'趟' => '昋',
+'趣' => '��',
+'踫' => '菋',
+'踐' => '犛',
+'踝' => '灉',
+'踢' => '杺',
+'踏' => '怳',
+'踩' => '笮',
+'踟' => '灅',
+'踡' => '襢',
+'踞' => '擔',
+'躺' => '旻',
+'輝' => '閩',
+'輛' => '謙',
+'輟' => '瞗',
+'輩' => '捲',
+'輦' => '澿',
+'輪' => '謫',
+'輜' => '磝',
+'輞' => '澸',
+'輥' => '幕',
+'適' => '巠',
+'遮' => '殑',
+'遨' => '槮',
+'遭' => '婈',
+'遷' => 'ヮ',
+'鄰' => '邁',
+'鄭' => '痑',
+'鄧' => '腌',
+'鄱' => '蛚',
+'醇' => '智',
+'醉' => '郳',
+'醋' => '棚',
+'醃' => '錣',
+'鋅' => '郈',
+'銻' => '枟',
+'銷' => '种',
+'鋪' => 'と',
+'銬' => '鍙',
+'鋤' => '堝',
+'鋁' => '臏',
+'銳' => '��',
+'銼' => '黿',
+'鋒' => '瑟',
+'鋇' => '接',
+'鋰' => '黈',
+'銲' => '爾',
+'閭' => '蓏',
+'閱\' => '堐',
+'霄' => '祋',
+'霆' => '鰝',
+'震' => '涾',
+'霉' => '羅',
+'靠' => '蕞',
+'鞍' => '偽',
+'鞋' => '衧',
+'鞏' => '僥',
+'頡' => '礡',
+'頫' => '萱',
+'頜' => '礜',
+'颳' => '團',
+'養' => '欱',
+'餓' => '塒',
+'餒' => '囁',
+'餘' => '牄',
+'駝' => '邯',
+'駐' => '蚺',
+'駟' => '糌',
+'駛' => '妡',
+'駑' => '緪',
+'駕' => '毅',
+'駒' => '戰',
+'駙' => '糋',
+'骷' => '鷐',
+'髮' => '楷',
+'髯' => '蠯',
+'鬧' => '齡',
+'魅' => '黰',
+'魄' => 'っ',
+'魷' => '鼘',
+'魯' => '糧',
+'鴆' => '藅',
+'鴉' => '捋',
+'鴃' => '蘠',
+'麩' => '鐐',
+'麾' => '欏',
+'黎' => '燮',
+'墨' => '蘋',
+'齒' => '喘',
+'儒' => '��',
+'儘' => '鴃',
+'儔' => '棱',
+'儐' => '棝',
+'儕' => '棜',
+'冀' => '播',
+'冪' => '蹶',
+'凝' => '覽',
+'劑' => '撙',
+'劓' => '崽',
+'勳' => '悗',
+'噙' => '頍',
+'噫' => '馰',
+'噹' => '絞',
+'噩' => '堿',
+'噤' => '馯',
+'噸' => '勣',
+'噪' => '婑',
+'器' => 'ん',
+'噥' => '蛺',
+'噱' => '馲',
+'噯' => '鉎',
+'噬' => '岕',
+'噢' => '頏',
+'噶' => '蜂',
+'壁' => '族',
+'墾' => '謀',
+'壇' => '抭',
+'壅' => '觛',
+'奮' => '煖',
+'嬝' => '蘅',
+'嬴' => '湋',
+'學' => '悝',
+'寰' => '敺',
+'導' => '絳',
+'彊' => 'Ч',
+'憲' => '疧',
+'憑' => 'ず',
+'憩' => '磹',
+'憊' => '措',
+'懍' => '蒢',
+'憶' => '砪',
+'憾' => '熄',
+'懊' => '冕',
+'懈' => '邽',
+'戰' => '桵',
+'擅' => '卍',
+'擁' => '茧',
+'擋' => '結',
+'撻' => '怊',
+'撼' => '熙',
+'據' => '擂',
+'擄' => '簞',
+'擇' => '寁',
+'擂' => '濯',
+'操' => '紱',
+'撿' => '潯',
+'擒' => 'у',
+'擔' => '童',
+'撾' => '恄',
+'整' => '淕',
+'曆' => '盪',
+'曉' => '窀',
+'暹' => '橀',
+'曄' => '糐',
+'曇' => '篥',
+'暸' => '��',
+'樽' => '樼',
+'樸' => 'は',
+'樺' => '鳹',
+'橙' => '傀',
+'橫' => '筵',
+'橘' => '橖',
+'樹' => '攷',
+'橄' => '橪',
+'橢' => '邳',
+'橡' => '砎',
+'橋' => 'Э',
+'橇' => 'Щ',
+'樵' => '橯',
+'機' => '儂',
+'橈' => '魬',
+'歙' => '鴩',
+'歷' => '盪',
+'氅' => '諰',
+'濂' => '憟',
+'澱' => '蛭',
+'澡' => '婰',
+'濃' => '襯',
+'澤' => '屙',
+'濁' => '觙',
+'澧' => '憓',
+'澳' => '凰',
+'激' => '慾',
+'澹' => '憯',
+'澶' => '憭',
+'澦' => '��',
+'澠' => '靻',
+'澴' => '��',
+'熾' => '喋',
+'燉' => '嚓',
+'燐' => '避',
+'燒' => '尥',
+'燈' => '腑',
+'燕' => '桏',
+'熹' => '懥',
+'燎' => '豳',
+'燙' => '昍',
+'燜' => '壔',
+'燃' => '��',
+'燄' => '栭',
+'獨' => '黃',
+'璜' => '隢',
+'璣' => '諃',
+'璘' => '苣',
+'璟' => '茂',
+'璞\' => '鞊',
+'瓢' => 'が',
+'甌' => '穇',
+'甍' => '歈',
+'瘴' => '梉',
+'瘸' => '��',
+'瘺' => '蹞',
+'盧' => '竅',
+'盥' => '邅',
+'瞠' => '謇',
+'瞞' => '離',
+'瞟' => '謕',
+'瞥' => 'く',
+'磨' => '艦',
+'磚' => '蚸',
+'磬' => '縺',
+'磧' => '縳',
+'禦' => '郘',
+'積' => '儅',
+'穎' => '荓',
+'穆' => '鐃',
+'穌' => '龒',
+'穋' => '搾',
+'窺' => '錢',
+'篙' => '誅',
+'簑' => '坯',
+'築' => '耟',
+'篤' => '鬷',
+'篛' => '鵩',
+'篡' => '欺',
+'篩' => '伓',
+'篦' => '齀',
+'糕' => '詹',
+'糖' => '昒',
+'縊' => '褑',
+'縑' => '褎',
+'縈' => '楂',
+'縛' => '蛾',
+'縣' => '瓮',
+'縞' => '褆',
+'縝' => '褘',
+'縉' => '褗',
+'縐' => '蝘',
+'罹' => '蹌',
+'羲' => '襦',
+'翰' => '熔',
+'翱' => '倏',
+'翮' => '鐋',
+'耨' => '嚭',
+'膳' => '吇',
+'膩' => '櫻',
+'膨' => '壩',
+'臻' => '淶',
+'興' => '倓',
+'艘' => '刳',
+'艙' => '組',
+'蕊' => '��',
+'蕙' => '犍',
+'蕈' => '犌',
+'蕨' => '犑',
+'蕩' => '絕',
+'蕃' => '猻',
+'蕉' => '蓿',
+'蕭' => '祊',
+'蕪' => '拶',
+'蕞' => '犎',
+'螃' => '韟',
+'螟' => '難',
+'螞' => '鎳',
+'螢' => '茤',
+'融' => '��',
+'衡' => '算',
+'褪' => '虮',
+'褲' => '踴',
+'褥' => '��',
+'褫' => '鵚',
+'褡' => '鵌',
+'親' => 'о',
+'覦' => '膵',
+'諦' => '硞',
+'諺' => '桎',
+'諫' => '硭',
+'諱' => '颱',
+'謀' => '覺',
+'諜' => '証',
+'諧' => '迣',
+'諮' => '硢',
+'諾' => '霾',
+'謁' => '硪',
+'謂' => '彖',
+'諷' => '當',
+'諭' => '硰',
+'諳' => '硨',
+'諶' => '硜',
+'諼' => '硩',
+'豫' => '唹',
+'豭' => '啷',
+'貓' => '癡',
+'賴' => '懇',
+'蹄' => '枃',
+'踱' => '礱',
+'踴' => '蚖',
+'蹂' => '籓',
+'踹' => '癪',
+'踵' => '矐',
+'輻' => '盞',
+'輯' => '憮',
+'輸' => '怀',
+'輳' => '磩',
+'辨' => '望',
+'辦' => '域',
+'遵' => '郩',
+'遴' => '樈',
+'選' => '恁',
+'遲' => '喧',
+'遼' => '賽',
+'遺' => '疻',
+'鄴' => '罥',
+'醒' => '倳',
+'錠' => '陽',
+'錶' => '桶',
+'鋸' => '撾',
+'錳' => '襟',
+'錯' => '渣',
+'錢' => 'ヴ',
+'鋼' => '詩',
+'錫' => '柈',
+'錄' => '翹',
+'錚' => '鵃',
+'錐' => '袪',
+'錦' => '踞',
+'錡' => '��',
+'錕' => '嚙',
+'錮' => '奰',
+'錙' => '幭',
+'閻' => '晑',
+'隧' => '呣',
+'隨' => '呴',
+'險' => '玸',
+'雕' => '蛐',
+'霎' => '鰨',
+'霑' => '桭',
+'霖' => '遽',
+'霍' => '齊',
+'霓' => '巍',
+'霏' => '鰣',
+'靛' => '萄',
+'靜' => '噙',
+'靦' => '沶',
+'鞘' => 'в',
+'頰' => '槳',
+'頸' => '勳',
+'頻' => 'け',
+'頷' => '禰',
+'頭' => '芛',
+'頹' => '虰',
+'頤' => '疰',
+'餐\' => '絃',
+'館' => '奩',
+'餞' => '膜',
+'餛' => '牓',
+'餡' => '畇',
+'餚' => '躽',
+'駭' => '漣',
+'駢' => '縃',
+'駱' => '醬',
+'骸' => '滿',
+'骼' => '鷩',
+'髻' => '戁',
+'髭' => '戃',
+'鬨' => '箏',
+'鮑' => '惚',
+'鴕' => '迗',
+'鴣' => '薱',
+'鴦' => '栒',
+'鴨' => '捊',
+'鴒' => '鍔',
+'鴛' => '唭',
+'默' => '蘇',
+'黔' => 'ン',
+'龍' => '韓',
+'龜' => '實',
+'優' => '蚥',
+'償' => '野',
+'儡' => '濤',
+'儲' => '揣',
+'勵' => '療',
+'嚎' => '瑪',
+'嚀' => '萭',
+'嚐' => '郭',
+'嚅' => '骫',
+'嚇' => '狣',
+'嚏' => '杹',
+'壕' => '瑣',
+'壓' => '揤',
+'壑' => '詎',
+'壎' => '跕',
+'嬰' => '茪',
+'嬪' => '磄',
+'嬤' => '箷',
+'孺' => '��',
+'尷' => '瘐',
+'屨' => '歑',
+'嶼' => '适',
+'嶺' => '鍛',
+'嶽' => '埬',
+'嶸' => '慓',
+'幫' => '堆',
+'彌' => '譆',
+'徽' => '閣',
+'應' => '茼',
+'懂' => '雅',
+'懇' => '諜',
+'懦' => '鑒',
+'懋' => '礄',
+'戲' => '牁',
+'戴' => '渴',
+'擎' => 'э',
+'擊' => '僻',
+'擘' => '諲',
+'擠' => '撥',
+'擰' => '禳',
+'擦' => '笠',
+'擬' => '攜',
+'擱' => '賊',
+'擢' => '萿',
+'擭' => '�N',
+'斂' => '螻',
+'斃' => '教',
+'曙' => '扺',
+'曖' => '縎',
+'檀' => '抴',
+'檔' => '紫',
+'檄' => '洐',
+'檢' => '潰',
+'檜' => '鴈',
+'櫛' => '駘',
+'檣' => '橑',
+'橾' => '癲',
+'檗' => '歕',
+'檐' => '橎',
+'檠' => '橐',
+'歜' => '�b',
+'殮' => '氃',
+'毚' => '��',
+'氈' => '梇',
+'濘' => '籠',
+'濱' => '梆',
+'濟' => '撳',
+'濠' => '憍',
+'濛' => '蟹',
+'濤' => '旽',
+'濫' => '斂',
+'濯' => '慦',
+'澀' => '优',
+'濬' => '縛',
+'濡' => '憒',
+'濩' => '�C',
+'濕' => '坁',
+'濮' => '憪',
+'濰' => '峆',
+'燧' => '徾',
+'營' => '茠',
+'燮' => '袸',
+'燦' => '細',
+'燥' => '孲',
+'燭' => '羕',
+'燬' => '障',
+'燴' => '領',
+'燠' => '幬',
+'爵' => '橋',
+'牆' => 'Х',
+'獰' => '襬',
+'獲' => '鳳',
+'璩' => '鞈',
+'環' => '遠',
+'璦' => '閮',
+'璨' => '鞎',
+'癆' => '謽',
+'療' => '谿',
+'癌' => '骨',
+'盪' => '絕',
+'瞳' => '肏',
+'瞪' => '腆',
+'瞰' => '謍',
+'瞬' => '侘',
+'瞧' => 'Ю',
+'瞭' => '賸',
+'矯' => '衛',
+'磷' => '避',
+'磺' => '鉸',
+'磴' => '罾',
+'磯' => '穚',
+'礁' => '螂',
+'禧' => '檞',
+'禪' => '檟',
+'穗' => '呠',
+'窿' => '騁',
+'簇' => '楮',
+'簍' => '穡',
+'篾' => '齖',
+'篷' => '囑',
+'簌' => '齍',
+'篠' => '鵽',
+'糠' => '蕙',
+'糜' => '譚',
+'糞' => '獅',
+'糢' => '耀',
+'糟' => '媎',
+'糙' => '缽',
+'糝' => '趮',
+'縮' => '坫',
+'績' => '憎',
+'繆' => '觭',
+'縷\' => '藐',
+'縲' => '覣',
+'繃' => '掄',
+'縫' => '瑜',
+'總' => '軞',
+'縱' => '軝',
+'繅' => '觰',
+'繁' => '楛',
+'縴' => '玹',
+'縹' => '覢',
+'繈' => '麌',
+'縵' => '覤',
+'縿' => '��',
+'縯' => '栳',
+'罄' => '騔',
+'翳' => '鐓',
+'翼' => '秫',
+'聱' => '嬽',
+'聲' => '汒',
+'聰' => '棲',
+'聯' => '薊',
+'聳' => '侕',
+'臆' => '砵',
+'臃' => '虓',
+'膺' => '瘊',
+'臂' => '旋',
+'臀' => '迓',
+'膿' => '襲',
+'膽' => '筐',
+'臉' => '螺',
+'膾' => '醑',
+'臨' => '還',
+'舉' => '撼',
+'艱' => '潸',
+'薪' => '郇',
+'薄' => '情',
+'蕾' => '濟',
+'薜' => '瑑',
+'薑' => '蔽',
+'薔' => 'Ц',
+'薯' => '扱',
+'薛' => '悁',
+'薇' => '瑄',
+'薨' => '獉',
+'薊' => '撒',
+'虧' => '鋸',
+'蟀' => '饇',
+'蟑' => '饈',
+'螳' => '颿',
+'蟒' => '譕',
+'蟆' => '鞳',
+'螫' => '顜',
+'螻' => '譈',
+'螺' => '蹟',
+'蟈' => '蠈',
+'蟋' => '颽',
+'褻' => '湝',
+'褶' => '麎',
+'襄' => '盷',
+'褸' => '鵔',
+'褽' => '浺',
+'覬' => '膦',
+'謎' => '譏',
+'謗' => '娶',
+'謙' => 'ヱ',
+'講' => '蔡',
+'謊' => '銑',
+'謠' => '狴',
+'謝' => '郅',
+'謄' => '杴',
+'謐' => '稊',
+'豁' => '魁',
+'谿' => '洈',
+'豳' => '搫',
+'賺' => '蚻',
+'賽' => '��',
+'購' => '劃',
+'賸' => '呁',
+'賻' => '聬',
+'趨' => '⑸',
+'蹉' => '礯',
+'蹋' => '怗',
+'蹈' => '絡',
+'蹊' => '纇',
+'轄' => '牮',
+'輾' => '梫',
+'轂' => '麇',
+'轅' => '埢',
+'輿' => '豗',
+'避' => '旌',
+'遽' => '槦',
+'還' => '遜',
+'邁' => '闐',
+'邂' => '槻',
+'邀' => '肂',
+'鄹' => '蛝',
+'醣' => '麙',
+'醞' => '奜',
+'醜' => '堯',
+'鍍' => '傲',
+'鎂' => '臘',
+'錨' => '礙',
+'鍵' => '瑩',
+'鍊' => '��',
+'鍥' => '幮',
+'鍋' => '廓',
+'錘' => '晴',
+'鍾' => '瀎',
+'鍬' => 'Ъ',
+'鍛' => '傯',
+'鍰' => '懪',
+'鍚' => '��',
+'鍔' => '懭',
+'闊' => '屨',
+'闋' => '蜨',
+'闌' => '擊',
+'闈' => '蒯',
+'闆' => '啣',
+'隱' => '笐',
+'隸' => '薔',
+'雖' => '呥',
+'霜' => '邞',
+'霞' => '牳',
+'鞠' => '懍',
+'韓' => '澈',
+'顆' => '衡',
+'颶' => '鴢',
+'餵' => '庣',
+'騁' => '勞',
+'駿' => '縞',
+'鮮' => '珅',
+'鮫' => '巑',
+'鮪' => '孋',
+'鮭' => '囋',
+'鴻' => '箄',
+'鴿' => '賈',
+'麋' => '玂',
+'黏' => '薴',
+'點' => '萸',
+'黜' => '籦',
+'黝' => '纕',
+'黛' => '籧',
+'鼾' => '襳',
+'齋' => '晛',
+'叢' => '椒',
+'嚕' => '頎',
+'嚮' => '砃',
+'壙' => '詗',
+'壘' => '濫',
+'嬸' => '朿',
+'彝' => '眝',
+'懣' => '禫',
+'戳' => '期',
+'擴' => '孺',
+'擲' => '祣',
+'擾' => '��',
+'攆' => '瓖',
+'擺\' => '啊',
+'擻' => '剆',
+'擷' => '腡',
+'斷' => '剿',
+'曜' => '縢',
+'朦' => '錪',
+'檳' => '樾',
+'檬' => '蟾',
+'櫃' => '嶄',
+'檻' => '熨',
+'檸' => '襪',
+'櫂' => '噮',
+'檮' => '��',
+'檯' => '怢',
+'歟' => '鴥',
+'歸' => '寥',
+'殯' => '澣',
+'瀉' => '郕',
+'瀋' => '韎',
+'濾' => '薦',
+'瀆' => '鞃',
+'濺' => '膠',
+'瀑' => 'ふ',
+'瀏' => '銡',
+'燻' => '悇',
+'燼' => '輜',
+'燾' => '懧',
+'燸' => '�^',
+'獷' => '搿',
+'獵' => '轂',
+'璧' => '韏',
+'璿' => '霂',
+'甕' => '怤',
+'癖' => '騉',
+'癘' => '謳',
+'癒' => '郛',
+'瞽' => '謆',
+'瞿' => '鶭',
+'瞻' => '桹',
+'瞼' => '薣',
+'礎' => '插',
+'禮' => '獰',
+'穡' => '艞',
+'穢' => '韶',
+'穠' => '��',
+'竄' => '欽',
+'竅' => 'ж',
+'簫' => '鵿',
+'簧' => '銅',
+'簪' => '穮',
+'簞' => '鶂',
+'簣' => '鵨',
+'簡' => '潠',
+'糧' => '襄',
+'織' => '眽',
+'繕' => '圪',
+'繞' => '��',
+'繚' => '諏',
+'繡' => '凎',
+'繒' => '諆',
+'繙' => '楹',
+'罈' => '抭',
+'翹' => 'д',
+'翻' => '楹',
+'職' => '眥',
+'聶' => '蘗',
+'臍' => 'ゆ',
+'臏' => '錤',
+'舊' => '導',
+'藏' => '紲',
+'薩' => '��',
+'藍' => '懦',
+'藐' => '鏟',
+'藉' => '賢',
+'薰' => '瑐',
+'薺' => '媵',
+'薹' => '瑀',
+'薦' => '熱',
+'蟯' => '藗',
+'蟬' => '莽',
+'蟲' => '單',
+'蟠' => '騚',
+'覆' => '葡',
+'覲' => '膰',
+'觴' => '蘩',
+'謨' => '祳',
+'謹' => '輝',
+'謬' => '韻',
+'謫' => '稃',
+'豐' => '猿',
+'贅' => '袑',
+'蹙' => '齙',
+'蹣' => '纊',
+'蹦' => '採',
+'蹤' => '趿',
+'蹟' => '慫',
+'蹕' => '櫼',
+'軀' => '⑼',
+'轉' => '蛌',
+'轍' => '殌',
+'邇' => '暷',
+'邃' => '槼',
+'邈' => '樍',
+'醫' => '瓟',
+'醬' => '蓬',
+'釐' => '濰',
+'鎔' => '��',
+'鎊' => '夠',
+'鎖' => '坶',
+'鎢' => '挃',
+'鎳' => '蠢',
+'鎮' => '淜',
+'鎬' => '訾',
+'鎰' => '擼',
+'鎘' => '擽',
+'鎚' => '晴',
+'鎗' => 'Л',
+'闔' => '蝫',
+'闖' => '斑',
+'闐' => '蝀',
+'闕' => '蜮',
+'離' => '燭',
+'雜' => '娸',
+'雙' => '邧',
+'雛' => '堠',
+'雞' => '憐',
+'霤' => '闊',
+'鞣' => '鷛',
+'鞦' => '⑦',
+'鞭' => '晝',
+'韹' => '��',
+'額' => '塗',
+'顏' => '晇',
+'題' => '枙',
+'顎' => '穧',
+'顓' => '穨',
+'颺' => '栨',
+'餾' => '闆',
+'餿' => '犕',
+'餽' => '嚏',
+'餮' => '劙',
+'馥' => '藆',
+'騎' => 'る',
+'髁' => '鷙',
+'鬃' => '跂',
+'鬆' => '侂',
+'魏' => '庥',
+'魎' => '鼲',
+'魍' => '齫',
+'鯊' => '灕',
+'鯉' => '牆',
+'鯽' => '灗',
+'鯈' => '��',
+'鯀' => '氍',
+'鵑' => '暸',
+'鵝' => '塑',
+'鵠' => '蟪',
+'黠\' => '艬',
+'鼕' => '��',
+'鼬' => '蠲',
+'儳' => '莫',
+'嚥' => '捗',
+'壞' => '輓',
+'壟' => '瞽',
+'壢' => '詅',
+'寵' => '唾',
+'龐' => '籣',
+'廬' => '簧',
+'懲' => '凱',
+'懷' => '輒',
+'懶' => '擱',
+'懵' => '蒔',
+'攀' => '戀',
+'攏' => '瞿',
+'曠' => '錠',
+'曝' => 'ぴ',
+'櫥' => '堰',
+'櫝' => '噰',
+'櫚' => '曀',
+'櫓' => '橠',
+'瀛' => '摮',
+'瀟' => '僶',
+'瀨' => '噘',
+'瀚' => '憳',
+'瀝' => '薑',
+'瀕' => '梭',
+'瀘' => '蜚',
+'爆' => '惇',
+'爍' => '佶',
+'牘' => '赬',
+'犢' => '馭',
+'獸' => '忤',
+'獺' => '怴',
+'璽' => '踣',
+'瓊' => '⑤',
+'瓣' => '國',
+'疇' => '喻',
+'疆' => '蔭',
+'癟' => '械',
+'癡' => '博',
+'矇' => '蟹',
+'礙' => '鬼',
+'禱' => '絰',
+'穫' => '鳳',
+'穩' => '恛',
+'簾' => '螫',
+'簿' => '移',
+'簸' => '穭',
+'簽' => 'ワ',
+'簷' => '橎',
+'籀' => '籉',
+'繫' => '炵',
+'繭' => '潺',
+'繹' => '秠',
+'繩' => '汋',
+'繪' => '餅',
+'羅' => '蹕',
+'繳' => '褕',
+'羶' => '錌',
+'羹' => '輊',
+'羸' => '湑',
+'臘' => '幫',
+'藩' => '楫',
+'藝' => '眙',
+'藪' => '瑒',
+'藕' => '驕',
+'藤' => '枘',
+'藥' => '狻',
+'藷' => '��',
+'蟻' => '眐',
+'蠅' => '茯',
+'蠍' => '衎',
+'蟹' => '郱',
+'蟾' => '騤',
+'襠' => '鮸',
+'襟' => '踟',
+'襖' => '偯',
+'襞' => '蠐',
+'譁' => '貍',
+'譜' => 'び',
+'識' => '妎',
+'證' => '痐',
+'譚' => '抪',
+'譎' => '竦',
+'譏' => '憧',
+'譆' => '柁',
+'譙' => '窙',
+'贈' => '崌',
+'贊' => '婝',
+'蹼' => '纆',
+'蹲' => '匯',
+'躇' => '堡',
+'蹶' => '纋',
+'蹬' => '腋',
+'蹺' => '欂',
+'蹴' => '罍',
+'轔' => '磪',
+'轎' => '諄',
+'辭' => '棗',
+'邊' => '晚',
+'邋' => '槫',
+'醱' => 'づ',
+'醮' => '黥',
+'鏡' => '噩',
+'鏑' => '櫆',
+'鏟' => '莓',
+'鏃' => '檽',
+'鏈' => '蟈',
+'鏜' => '曛',
+'鏝' => '曘',
+'鏖' => '玃',
+'鏢' => '曚',
+'鏍' => '櫅',
+'鏘' => '懖',
+'鏤' => '懫',
+'鏗' => '麍',
+'鏨' => '鹺',
+'關' => '壽',
+'隴' => '瞻',
+'難' => '麵',
+'霪' => '鰩',
+'霧' => '昲',
+'靡' => '證',
+'韜' => '頨',
+'韻' => '婘',
+'類' => '濬',
+'願' => '堋',
+'顛' => '菌',
+'颼' => '鴐',
+'饅' => '雜',
+'饉' => '獍',
+'騖' => '緟',
+'騙' => 'ぉ',
+'鬍' => '綸',
+'鯨' => '儘',
+'鯧' => '瓘',
+'鯖' => '灒',
+'鯛' => '癭',
+'鶉' => '蟭',
+'鵡' => '蟤',
+'鵲' => '��',
+'鵪' => '蟜',
+'鵬' => '灞',
+'麒' => '玁',
+'麗' => '璨',
+'麓' => '織',
+'麴' => '鐨',
+'勸' => '��',
+'嚨' => '颶',
+'嚷' => '��',
+'嚶' => '隑',
+'嚴' => '旆',
+'嚼' => '蝗',
+'壤' => '��',
+'孀\' => '篋',
+'孃' => '矓',
+'孽' => '蘭',
+'寶' => '惘',
+'巉' => '�f',
+'懸' => '唑',
+'懺' => '睼',
+'攘' => '��',
+'攔' => '戴',
+'攙' => '莢',
+'曦' => '縋',
+'朧' => '輮',
+'櫬' => '暾',
+'瀾' => '擠',
+'瀰' => '譆',
+'瀲' => '劋',
+'爐' => '簪',
+'獻' => '瓬',
+'瓏' => '貏',
+'癢' => '欭',
+'癥' => '痌',
+'礦' => '鄴',
+'礪' => '簋',
+'礬' => '楝',
+'礫' => '癌',
+'竇' => '鬄',
+'競' => '噥',
+'籌' => '喉',
+'籃' => '擎',
+'籍' => '戮',
+'糯' => '霽',
+'糰' => '芶',
+'辮' => '梯',
+'繽' => '褉',
+'繼' => '樟',
+'纂' => '郴',
+'罌' => '騜',
+'耀' => '珓',
+'臚' => '輹',
+'艦' => '耦',
+'藻' => '婍',
+'藹' => '高',
+'蘑' => '罌',
+'藺' => '毼',
+'蘆' => '竄',
+'蘋' => 'し',
+'蘇' => '劼',
+'蘊' => '堄',
+'蠔' => '罊',
+'蠕' => '��',
+'襤' => '鵘',
+'覺' => '橇',
+'觸' => '揖',
+'議' => '祜',
+'譬' => 'ぅ',
+'警' => '劑',
+'譯' => '祒',
+'譟' => '婑',
+'譫' => '筊',
+'贏' => '荇',
+'贍' => '厊',
+'躉' => '齠',
+'躁' => '婇',
+'躅' => '羻',
+'躂' => '怳',
+'醴' => '黦',
+'釋' => '庋',
+'鐘' => '笘',
+'鐃' => '閷',
+'鏽' => '凄',
+'闡' => '莠',
+'霰' => '鰡',
+'飄' => 'お',
+'饒' => '��',
+'饑' => '慰',
+'馨' => '黹',
+'騫' => '撟',
+'騰' => '枆',
+'騷' => '玊',
+'騵' => '矄',
+'鰓' => '��',
+'鰍' => '籗',
+'鹹' => '玶',
+'麵' => '醱',
+'黨' => '絨',
+'鼯' => '蠮',
+'齟' => '鶼',
+'齣' => '堤',
+'齡' => '鍵',
+'儷' => '棖',
+'儸' => '蹕',
+'囁' => '鉯',
+'囀' => '裐',
+'囂' => '秕',
+'夔' => '淼',
+'屬' => '扽',
+'巍' => '峞',
+'懼' => '曉',
+'懾' => '扤',
+'攝' => '扜',
+'攜' => '觓',
+'斕' => '黖',
+'曩' => '縏',
+'櫻' => '茛',
+'欄' => '戲',
+'櫺' => '凞',
+'殲' => '漿',
+'灌' => '嫩',
+'爛' => '擭',
+'犧' => '枺',
+'瓖' => '��',
+'瓔' => '雓',
+'癩' => '餺',
+'矓' => '輮',
+'籐' => '枘',
+'纏' => '莊',
+'續' => '哿',
+'羼' => '殥',
+'蘗' => '瓾',
+'蘭' => '擘',
+'蘚' => '瑎',
+'蠣' => '艤',
+'蠢' => '替',
+'蠡' => '騠',
+'蠟' => '嶸',
+'襪' => '侲',
+'襬' => '缹',
+'覽' => '擬',
+'譴' => 'Ж',
+'護' => '誘',
+'譽' => '酐',
+'贓' => '婒',
+'躊' => '喬',
+'躍' => '埲',
+'躋' => '欀',
+'轟' => '箔',
+'辯' => '梁',
+'醺' => '鼰',
+'鐮' => '蟑',
+'鐳' => '濱',
+'鐵' => '沺',
+'鐺' => '隰',
+'鐸' => '鍎',
+'鐲' => '瀍',
+'鐫' => '擸',
+'闢' => '斬',
+'霸' => '啪',
+'霹' => '羈',
+'露' => '繞',
+'響' => '砒',
+'顧' => '嘈',
+'顥' => '簬',
+'饗' => '龢',
+'驅' => '��',
+'驃' => '羭',
+'驀' => '楋',
+'騾' => '邇',
+'髏\' => '鷖',
+'魔' => '藹',
+'魑' => '龕',
+'鰭' => '驒',
+'鰥' => '髐',
+'鶯' => '搡',
+'鶴' => '禍',
+'鷂' => '蠁',
+'鶸' => '��',
+'麝' => '癰',
+'黯' => '蘾',
+'鼙' => '亃',
+'齜' => '鷊',
+'齦' => '鷏',
+'齧' => '蘚',
+'儼' => '椏',
+'儻' => '棈',
+'囈' => '蔇',
+'囊' => '黨',
+'囉' => '蹕',
+'孿' => '蟠',
+'巔' => '摛',
+'巒' => '蟬',
+'彎' => '俔',
+'懿' => '亄',
+'攤' => '怉',
+'權' => '��',
+'歡' => '辣',
+'灑' => '��',
+'灘' => '戽',
+'玀' => '滮',
+'瓤' => '��',
+'疊' => '詁',
+'癮' => '颸',
+'癬' => '悢',
+'禳' => '檇',
+'籠' => '餵',
+'籟' => '竷',
+'聾' => '顆',
+'聽' => '泭',
+'臟' => '婄',
+'襲' => '炷',
+'襯' => '傍',
+'觼' => '��',
+'讀' => '黍',
+'贖' => '抏',
+'贗' => '媏',
+'躑' => '爙',
+'躓' => '灆',
+'轡' => '閜',
+'酈' => '菄',
+'鑄' => '翉',
+'鑑' => '牖',
+'鑒' => '牖',
+'霽' => '鰜',
+'霾' => '鶷',
+'韃' => '鰷',
+'韁' => '誸',
+'顫' => '荷',
+'饕' => '壨',
+'驕' => '蝨',
+'驍' => '緗',
+'髒' => '婄',
+'鬚' => '剕',
+'鱉' => '梱',
+'鰱' => '攢',
+'鰾' => '鬻',
+'鰻' => '魕',
+'鷓' => '蟝',
+'鷗' => '顫',
+'鼴' => '蠳',
+'齬' => '鶾',
+'齪' => '鷅',
+'龔' => '麂',
+'囌' => '劼',
+'巖' => '旂',
+'戀' => '蟋',
+'攣' => '蟲',
+'攫' => '樹',
+'攪' => '蝌',
+'曬' => '伄',
+'欐' => '��',
+'瓚' => '頞',
+'竊' => 'л',
+'籤' => 'ワ',
+'籣' => '蓓',
+'籥' => '殗',
+'纓' => '荍',
+'纖' => '玹',
+'纔' => '符',
+'臢' => '醺',
+'蘸' => '梣',
+'蘿' => '蹤',
+'蠱' => '嘍',
+'變' => '曹',
+'邐' => '槸',
+'邏' => '軀',
+'鑣' => '瀔',
+'鑠' => '鍷',
+'鑤' => '蘸',
+'靨' => '媜',
+'顯' => '珆',
+'饜' => '儽',
+'驚' => '儐',
+'驛' => '緛',
+'驗' => '桄',
+'髓' => '咍',
+'體' => '极',
+'髑' => '麶',
+'鱔' => '鱄',
+'鱗' => '邂',
+'鱖' => '鰿',
+'鷥' => '薷',
+'麟' => '矔',
+'黴' => '羅',
+'囑' => '翊',
+'壩' => '商',
+'攬' => '擦',
+'灞' => '撅',
+'癱' => '戔',
+'癲' => '騍',
+'矗' => '提',
+'罐' => '嫡',
+'羈' => '蹇',
+'蠶' => '紮',
+'蠹' => '騧',
+'衢' => '摋',
+'讓' => '��',
+'讒' => '莒',
+'讖' => '笻',
+'艷' => '栻',
+'贛' => '該',
+'釀' => '籐',
+'鑪' => '簪',
+'靂' => '魒',
+'靈' => '鍾',
+'靄' => '鰤',
+'韆' => 'ロ',
+'顰' => '糬',
+'驟' => '紬',
+'鬢' => '斖',
+'魘' => '鼳',
+'鱟' => '囆',
+'鷹' => '茈',
+'鷺' => '襑',
+'鹼' => '潘',
+'鹽' => '敆',
+'鼇' => '驉',
+'齷' => '鷃',
+'齲' => '��',
+'廳' => '泆',
+'欖' => '擳',
+'灣' => '俜',
+'籬' => '燦',
+'籮' => '轍',
+'蠻' => '雙',
+'觀' => '夤',
+'躡\' => '糲',
+'釁' => '陊',
+'鑲' => '眄',
+'鑰' => '埥',
+'顱' => '簫',
+'饞' => '莫',
+'髖' => '鷕',
+'鬣' => '欑',
+'黌' => '毲',
+'灤' => '覆',
+'矚' => '羛',
+'讚' => '婝',
+'鑷' => '蠣',
+'韉' => '鰽',
+'驢' => '聶',
+'驥' => '翪',
+'纜' => '擢',
+'讜' => '祲',
+'躪' => '耰',
+'釅' => '鶡',
+'鑽' => '郰',
+'鑾' => '鷍',
+'鑼' => '轉',
+'鱷' => '穱',
+'鱸' => '齤',
+'黷' => '蘹',
+'豔' => '栻',
+'鑿' => '娾',
+'鸚' => '蟨',
+'爨' => '憵',
+'驪' => '緺',
+'鬱' => '郙',
+'鸛' => '襉',
+'鸞' => '蟢',
+'籲' => '郚',
+'ヾ' => 'Ｋ',
+'ゝ' => 'Ｌ',
+'ゞ' => 'Ｍ',
+'々' => 'Ｎ',
+'ぁ' => 'Ｏ',
+'あ' => 'Ｐ',
+'ぃ' => 'Ｑ',
+'い' => 'Ｒ',
+'ぅ' => 'Ｓ',
+'う' => 'Ｔ',
+'ぇ' => '〣',
+'え' => '〤',
+'ぉ' => '〥',
+'お' => '〦',
+'か' => '〧',
+'が' => '〨',
+'き' => '〩',
+'ぎ' => '十',
+'く' => '卄',
+'ぐ' => '卅',
+'け' => '仃',
+'げ' => '仆',
+'こ' => '仇',
+'ご' => '仍',
+'さ' => '今',
+'ざ' => '介',
+'し' => '仄',
+'じ' => '元',
+'す' => '允',
+'ず' => '內',
+'せ' => '媦',
+'ぜ' => '堹',
+'そ' => '公',
+'ぞ' => '湅',
+'た' => '崱',
+'だ' => '琡',
+'ち' => '渻',
+'ぢ' => '湆',
+'っ' => '勻',
+'つ' => '筄',
+'づ' => '袽',
+'て' => '熇',
+'で' => '撗',
+'と' => '誾',
+'ど' => '誻',
+'な' => '嫘',
+'に' => '袾',
+'ぬ' => '樉',
+'ね' => '摓',
+'の' => '篞',
+'は' => '拸',
+'ば' => '謪',
+'ぱ' => '天',
+'ひ' => '夫',
+'び' => '薔',
+'ぴ' => '熇',
+'ふ' => '��',
+'ぶ' => '少',
+'ぷ' => '尤',
+'へ' => '尺',
+'べ' => '屯',
+'ぺ' => 'ㄑ',
+'ほ' => '幻',
+'ぼ' => '〝',
+'ぽ' => '﹞',
+'ま' => '引',
+'み' => '心',
+'む' => '��',
+'め' => '��',
+'も' => '手',
+'ゃ' => '丑',
+'や' => '丐',
+'ゅ' => '不',
+'ゆ' => '中',
+'ょ' => '丰',
+'よ' => '丹',
+'ら' => '之',
+'り' => '尹',
+'る' => '予',
+'れ' => '云',
+'ろ' => '井',
+'ゎ' => '互',
+'わ' => '五',
+'ゐ' => '亢',
+'ゑ' => '仁',
+'を' => '什',
+'ん' => '仃',
+'ァ' => '仆',
+'ア' => '仇',
+'ィ' => '仍',
+'イ' => '今',
+'ゥ' => '介',
+'ウ' => '仄',
+'ェ' => '元',
+'エ' => '允',
+'ォ' => '內',
+'オ' => '六',
+'カ' => '兮',
+'ガ' => '公',
+'キ' => '冗',
+'ギ' => '凶',
+'ク' => '分',
+'グ' => '切',
+'ケ' => '刈',
+'ゲ' => '勻',
+'コ' => '勾',
+'ゴ' => '勿',
+'サ' => '化',
+'ザ' => '匹',
+'シ' => '午',
+'ジ' => '升',
+'ス' => '卅',
+'ズ' => '卞',
+'セ' => '厄',
+'ゼ' => '友',
+'ソ' => '及',
+'ゾ' => '反',
+'タ' => '壬',
+'ダ' => '天',
+'チ' => '夫',
+'ヂ' => '太',
+'ッ' => '夭',
+'ツ\' => '孔',
+'ヅ' => '少',
+'テ' => '尤',
+'デ' => '尺',
+'ト' => '屯',
+'ド' => '巴',
+'ナ' => '幻',
+'ニ' => '廿',
+'ヌ' => '弔',
+'ネ' => '引',
+'ノ' => '心',
+'ハ' => '戈',
+'バ' => '戶',
+'パ' => '手',
+'ヒ' => '扎',
+'ビ' => '支',
+'ピ' => '文',
+'フ' => '斗',
+'ブ' => '斤',
+'プ' => '方',
+'ヘ' => '日',
+'ベ' => '曰',
+'ペ' => '月',
+'ホ' => '木',
+'ボ' => '欠',
+'ポ' => '止',
+'マ' => '歹',
+'ミ' => '毋',
+'ム' => '比',
+'メ' => '毛',
+'モ' => '氏',
+'ャ' => '央',
+'ヤ' => '失',
+'ュ' => '奴',
+'ユ' => '奶',
+'ョ' => '孕',
+'ヨ' => '它',
+'ラ' => '尼',
+'リ' => '巨',
+'ル' => '巧',
+'レ' => '左',
+'ロ' => '市',
+'ヮ' => '布',
+'ワ' => '平',
+'ヰ' => '幼',
+'ヱ' => '弁',
+'ヲ' => '弘',
+'ン' => '弗',
+'ヴ' => '必',
+'ヵ' => '戊',
+'ヶ' => '打',
+'Д' => '扔',
+'Е' => '扒',
+'Ё' => '扑',
+'Ж' => '斥',
+'З' => '旦',
+'И' => '朮',
+'Й' => '本',
+'К' => '未',
+'Л' => '末',
+'М' => '札',
+'У' => '正',
+'Ф' => '母',
+'Х' => '民',
+'Ц' => '氐',
+'Ч' => '永',
+'Ш' => '汁',
+'Щ' => '汀',
+'Ъ' => '氾',
+'Ы' => '犯',
+'Ь' => '玄',
+'Э' => '玉',
+'Ю' => '瓜',
+'Я' => '瓦',
+'а' => '甘',
+'б' => '生',
+'в' => '用',
+'г' => '甩',
+'д' => '田',
+'е' => '由',
+'ё' => '甲',
+'ж' => '申',
+'з' => '疋',
+'и' => '白',
+'й' => '皮',
+'к' => '皿',
+'л' => '目',
+'м' => '矛',
+'н' => '矢',
+'о' => '石',
+'п' => '示',
+'р' => '禾',
+'с' => '穴',
+'т' => '立',
+'у' => '丞',
+'ф' => '丟',
+'х' => '乒',
+'ц' => '乓',
+'ч' => '乩',
+'ш' => '亙',
+'щ' => '交',
+'ъ' => '亦',
+'ы' => '亥',
+'ь' => '仿',
+'э' => '伉',
+'ю' => '伙',
+'я' => '伊',
+'①' => '伕',
+'②' => '伍',
+'③' => '伐',
+'④' => '休',
+'⑤' => '伏',
+'⑥' => '仲',
+'⑦' => '件',
+'⑧' => '任',
+'⑨' => '仰',
+'⑩' => '仳',
+'⑴' => '均',
+'⑵' => '坎',
+'⑶' => '圾',
+'⑷' => '坐',
+'⑸' => '坏',
+'⑹' => '圻',
+'⑺' => '漼',
+'⑻' => '夾',
+'⑼' => '妝',
+'⑽' => '淊',
+'��' => '妨',
+'��' => '妞',
+'�@' => '妣',
+'�A' => '妙',
+'�B' => '譪',
+'�C' => '妍',
+'�D' => '妤',
+'�E' => '妓',
+'�F' => '妊',
+'�G' => '妥',
+'�H' => '孝',
+'�I' => '孜',
+'�J' => '孚',
+'�K' => '嘍',
+'�L' => '完',
+'�M' => '宋',
+'�N' => '宏',
+'�O' => '尬',
+'�P' => '局',
+'�Q' => '屁',
+'�R' => '尿',
+'�S' => '尾',
+'�T' => '╰',
+'�U' => '╰',
+'�V' => '忌',
+'�W' => '志',
+'�X' => '忍',
+'�Y' => '忱',
+'�Z' => '快',
+'�[' => '忸',
+'�\\' => '忪',
+'�]' => '戒',
+'�^' => '我',
+'�_' => '抄',
+'�`' => '抗',
+'�a' => '抖',
+'�b' => '技',
+'�c' => '扶',
+'�d' => '抉',
+'�e' => '雰',
+'�f' => '把',
+'�g' => '扼',
+'�h' => '兜',
+'�i' => '批',
+'�j' => '扳',
+'�k' => '抒',
+'�l' => '扯',
+'�m' => '折',
+'�n' => '扮',
+'�o' => '投',
+'�p' => '抓',
+'�q' => '抑',
+'�r' => '抆',
+'�s' => '改',
+'�t' => '攻',
+'�u' => '攸',
+'�v' => '跺',
+'�w' => '駃',
+'�x' => 'Ｘ',
+'�y' => '豱',
+'�z' => '禿',
+'�{' => '系',
+'�|' => '絰',
+'�}' => '寎',
+'�~' => '蜡',
+'��' => '斲',
+'��' => '厙',
+'��' => '儴',
+'��' => '畟',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => 'х',
+'��' => '↓',
+'��' => '↓',
+'��' => '慖',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '☆',
+'��' => '帚',
+'��' => '＊',
+'��' => '§',
+'��' => '↓',
+'��' => '∮',
+'��' => '↓',
+'��' => '蕫',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '嵂',
+'��' => '湆',
+'��' => '筌',
+'��' => '亶',
+'��' => '痻',
+'��' => '摠',
+'��' => '鶜',
+'��' => '瘔',
+'��' => '蜡',
+'��' => '蝃',
+'��' => '斲',
+'��' => '篞',
+'��' => '憼',
+'��' => '擣',
+'��' => '穜',
+'��' => '鷟',
+'��' => '鼱',
+'��' => '懰',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'��' => '檶',
+'��' => '獑',
+'��' => '↓',
+'��' => '↓',
+'��' => '↓',
+'乂' => '�V',
+'乜' => '媬',
+'凵' => '袶',
+'匚' => '媓',
+'厂' => '釦',
+'万' => '勀',
+'丌' => '堞',
+'乇' => '堭',
+'亍' => '堙',
+'囗' => '鳧',
+'兀' => '堧',
+'屮' => '氂',
+'彳' => '摝',
+'丏' => '�D',
+'冇' => '��',
+'与' => '迵',
+'丮' => '�M',
+'亓' => '媮',
+'仂' => '崸',
+'仉' => '嵉',
+'仈' => '��',
+'冘' => '��',
+'勼' => '��',
+'卬' => '�n',
+'厹' => '��',
+'圠' => '�L',
+'夃' => '��',
+'夬' => '��',
+'尐\' => '��',
+'巿' => '��',
+'旡' => '拸',
+'殳' => '麈',
+'毌' => '��',
+'气' => 'ァ',
+'爿' => '蜙',
+'丱' => '�O',
+'丼' => '�S',
+'仨' => '崼',
+'仜' => '��',
+'仩' => '��',
+'仡' => '崲',
+'仝' => '欹',
+'仚' => '��',
+'刌' => '�Y',
+'匜' => '�F',
+'卌' => '�c',
+'圢' => '�N',
+'圣' => '吤',
+'夗' => '��',
+'夯' => '獄',
+'宁' => '譴',
+'宄' => '撜',
+'尒' => '嫌',
+'尻' => '樏',
+'屴' => '��',
+'屳' => '��',
+'帄' => '��',
+'庀' => '瑳',
+'庂' => '��',
+'忉' => '皸',
+'戉' => '鍕',
+'扐' => '�A',
+'氕' => '諨',
+'氶' => '��',
+'汃' => '��',
+'氿' => '��',
+'氻' => '��',
+'犮' => '��',
+'犰' => '摐',
+'玊' => '俊',
+'禸' => '軸',
+'肊' => '砵',
+'阞' => '瑿',
+'伎' => '撚',
+'优' => '蚥',
+'伬' => '��',
+'仵' => '徦',
+'伔' => '��',
+'仱' => '��',
+'伀' => '碪',
+'价' => '歎',
+'伈' => '��',
+'伝' => '換',
+'伂' => '��',
+'伅' => '��',
+'伢' => '幁',
+'伓' => '��',
+'伄' => '��',
+'仴' => '��',
+'伒' => '��',
+'冱' => '渃',
+'刓' => '�\\',
+'刉' => '�W',
+'刐' => '�[',
+'劦' => '��',
+'匢' => '�I',
+'匟' => '蕃',
+'卍' => '�d',
+'厊' => '�|',
+'吇' => '��',
+'囡' => '黽',
+'囟' => '媔',
+'圮' => '詘',
+'圪' => '詙',
+'圴' => '�V',
+'夼' => '畷',
+'妀' => '�j',
+'奼' => '瘙',
+'妅' => '�k',
+'奻' => '�f',
+'奾' => '�h',
+'奷' => '�d',
+'奿' => '�i',
+'孖' => '�I',
+'尕' => '箾',
+'尥' => '痹',
+'屼' => '��',
+'屺' => '嶁',
+'屻' => '��',
+'屾' => '��',
+'巟' => '�x',
+'幵' => '��',
+'庄' => '蚽',
+'异' => '祑',
+'弚' => '�w',
+'彴' => '��',
+'忕' => '��',
+'忔' => '��',
+'忏' => '睼',
+'扜' => '�G',
+'扞' => '煽',
+'扤' => '�N',
+'扡' => '迍',
+'扦' => 'リ',
+'扢' => '�M',
+'扙' => '�E',
+'扠' => '脫',
+'扚' => '�F',
+'扥' => '�O',
+'旯' => '篧',
+'旮' => '篣',
+'朾' => '�b',
+'朹' => '�_',
+'朸' => '�^',
+'朻' => '�`',
+'机' => '儂',
+'朿' => '�c',
+'朼' => '�a',
+'朳' => '�[',
+'氘' => '諿',
+'汆' => '殙',
+'汒' => '��',
+'汜' => '蝁',
+'汏' => '��',
+'汊' => '蜾',
+'汔' => '蜬',
+'汋' => '��',
+'汌' => '��',
+'灱' => '��',
+'牞' => '��',
+'犴' => '摿',
+'犵' => '��',
+'玎' => '諘',
+'甪' => '宸',
+'癿' => '逅',
+'穵' => '阼',
+'网' => '厙',
+'艸' => '翌',
+'艼' => '驟',
+'芀' => '鬢',
+'艽' => '傽',
+'艿' => '傿',
+'虍' => '糪',
+'襾' => '��',
+'邙' => '絩',
+'邗' => '絫',
+'邘' => '��',
+'邛' => '絒',
+'邔' => '��',
+'阢' => '筎',
+'阤' => '邲',
+'阠' => '璚',
+'阣' => '砣',
+'佖' => '��',
+'伻' => '��',
+'佢\' => '��',
+'佉' => '��',
+'体' => '极',
+'佤' => '彘',
+'伾' => '��',
+'佧' => '惢',
+'佒' => '��',
+'佟' => '晼',
+'佁' => '��',
+'佘' => '欿',
+'伭' => '��',
+'伳' => '��',
+'伿' => '��',
+'佡' => '��',
+'冏' => '��',
+'冹' => '��',
+'刜' => '�_',
+'刞' => '�`',
+'刡' => '�b',
+'劭' => '蛑',
+'劮' => '��',
+'匉' => '體',
+'卣' => '寊',
+'卲' => '�p',
+'厎' => '簃',
+'厏' => '�~',
+'吰' => '��',
+'吷' => '��',
+'吪' => '塚',
+'呔' => '葞',
+'呅' => '��',
+'吙' => '��',
+'吜' => '��',
+'吥' => '��',
+'吘' => '��',
+'吽' => '��',
+'呏' => '��',
+'呁' => '��',
+'吨' => '勣',
+'吤' => '��',
+'呇' => '��',
+'囮' => '��',
+'囧' => '��',
+'囥' => '��',
+'坁' => '�^',
+'坅' => '�a',
+'坌' => '覕',
+'坉' => '�d',
+'坋' => '�e',
+'坒' => '�f',
+'夆' => '��',
+'奀' => '�C',
+'妦' => '�~',
+'妘' => '�u',
+'妠' => '�{',
+'妗' => '獢',
+'妎' => '�o',
+'妢' => '�}',
+'妐' => '�q',
+'妏' => '�p',
+'妧' => '��',
+'妡' => '�|',
+'宎' => '�a',
+'宒' => '�d',
+'尨' => '��',
+'尪' => '��',
+'岍' => '嵷',
+'岏' => '��',
+'岈' => '嶈',
+'岋' => '��',
+'岉' => '��',
+'岒' => '��',
+'岊' => '嵿',
+'岆' => '��',
+'岓' => '��',
+'岕' => '��',
+'巠' => '�y',
+'帊' => '��',
+'帎' => '��',
+'庋' => '瑵',
+'庉' => '��',
+'庌' => '��',
+'庈' => '��',
+'庍' => '��',
+'弅' => '�k',
+'弝' => '�y',
+'彸' => '��',
+'彶' => '��',
+'忒' => '蒍',
+'忑' => '檓',
+'忐' => '檎',
+'忭' => '碴',
+'忨' => '��',
+'忮' => '瞂',
+'忳' => '��',
+'忡' => '瞀',
+'忤' => '睯',
+'忣' => '摹',
+'忺' => '��',
+'忯' => '��',
+'忷' => '��',
+'忻' => '陏',
+'怀' => '輒',
+'忴' => '��',
+'戺' => '��',
+'抃' => '皙',
+'抌' => '�b',
+'抎' => '�d',
+'抏' => '�e',
+'抔' => '�g',
+'抇' => '�_',
+'扱' => '�Q',
+'扻' => '�X',
+'扺' => '�W',
+'扰' => '��',
+'抁' => '�Z',
+'抈' => '�`',
+'扷' => '�U',
+'扽' => '�Y',
+'扲' => '�R',
+'扴' => '�S',
+'攷' => '蕉',
+'旰' => '篝',
+'旴' => '�B',
+'旳' => '�A',
+'旲' => '�@',
+'旵' => '�C',
+'杅' => '�f',
+'杇' => '訹',
+'杙' => '�p',
+'杕' => '�m',
+'杌' => '頠',
+'杈' => '颲',
+'杝' => '�s',
+'杍' => '�j',
+'杚' => '�q',
+'杋' => '�i',
+'毐' => '��',
+'氙' => '諯',
+'氚' => '諻',
+'汸' => '�P',
+'汧' => '�F',
+'汫' => '�G',
+'沄' => '�V',
+'沋' => '�Y',
+'沏' => 'み',
+'汱' => '�L',
+'汯' => '�K',
+'汩' => '蜒',
+'沚' => '�b',
+'汭' => '�I',
+'沇' => '�W',
+'沕' => '�^',
+'沜' => '�c',
+'汦' => '�E',
+'汳' => '�M',
+'汥' => '�D',
+'汻\' => '銊',
+'沎' => '�[',
+'灴' => '��',
+'灺' => '��',
+'牣' => '��',
+'犿' => '��',
+'犽' => '��',
+'狃' => '摫',
+'狆' => '��',
+'狁' => '摙',
+'犺' => '��',
+'狅' => '��',
+'玕' => '俞\',
+'玗' => '侷',
+'玓' => '俚',
+'玔' => '醝',
+'玒' => '係',
+'町' => '謜',
+'甹' => '屐',
+'疔' => '謧',
+'疕' => '浹',
+'皁' => '婂',
+'礽' => '痣',
+'耴' => '歸',
+'肕' => '騎',
+'肙' => '鬃',
+'肐' => '賄',
+'肒' => '餮',
+'肜' => '蹀',
+'芐' => '嗝',
+'芏' => '僆',
+'芅' => '鷹',
+'芎' => '傴',
+'芑' => '僈',
+'芓' => '齲',
+'芊' => '傮',
+'芃' => '鱟',
+'芄' => '僊',
+'豸' => '蘟',
+'迉' => '��',
+'辿' => '煰',
+'邟' => '��',
+'邡' => '絟',
+'邥' => '��',
+'邞' => '��',
+'邧' => '��',
+'邠' => '��',
+'阰' => '瘳',
+'阨' => '塌',
+'阯' => '硊',
+'阭' => '瘱',
+'丳' => '�P',
+'侘' => '��',
+'佼' => '椪',
+'侅' => '��',
+'佽' => '��',
+'侀' => '��',
+'侇' => '��',
+'佶' => '晱',
+'佴' => '晹',
+'侉' => '晲',
+'侄' => '硍',
+'佷' => '��',
+'佌' => '��',
+'侗' => '雇',
+'佪' => '輔',
+'侚' => '��',
+'佹' => '��',
+'侁' => '��',
+'佸' => '��',
+'侐' => '��',
+'侜' => '��',
+'侔' => '棪',
+'侞' => '��',
+'侒' => '��',
+'侂' => '��',
+'侕' => '��',
+'佫' => '��',
+'佮' => '��',
+'冞' => '��',
+'冼' => '湞',
+'冾' => '��',
+'刵' => '�n',
+'刲' => '�l',
+'刳' => '嵃',
+'剆' => '�s',
+'刱' => '斐',
+'劼' => '��',
+'匊' => '碇',
+'匋' => '��',
+'匼' => '�\\',
+'厒' => '��',
+'厔' => '��',
+'咇' => '��',
+'呿' => '��',
+'咁' => '��',
+'咑' => '��',
+'咂' => '葅',
+'咈' => '��',
+'呫' => '��',
+'呺' => '��',
+'呾' => '��',
+'呥' => '��',
+'呬' => '��',
+'呴' => '��',
+'呦' => '萹',
+'咍' => '��',
+'呯' => '��',
+'呡' => '��',
+'呠' => '��',
+'咘' => '��',
+'呣' => '��',
+'呧' => '畬',
+'呤' => '萯',
+'囷' => '��',
+'囹' => '僗',
+'坯' => '矗',
+'坲' => '�u',
+'坭' => '貺',
+'坫' => '詌',
+'坱' => '�t',
+'坰' => '�s',
+'坶' => '貾',
+'垀' => '�~',
+'坵' => '⑧',
+'坻' => '貁',
+'坳' => '貰',
+'坴' => '�v',
+'坢' => '�m',
+'坨' => '貀',
+'坽' => '�{',
+'夌' => '��',
+'奅' => '�E',
+'妵' => '��',
+'妺' => '��',
+'姏' => '��',
+'姎' => '��',
+'妲' => '瑽',
+'姌' => '��',
+'姁' => '��',
+'妶' => '��',
+'妼' => '��',
+'姃' => '��',
+'姖' => '��',
+'妱' => '��',
+'妽' => '��',
+'姀' => '��',
+'姈' => '��',
+'妴' => '��',
+'姇' => '��',
+'孢' => '糅',
+'孥' => '箯',
+'宓' => '撋',
+'宕' => '撏',
+'屄' => '��',
+'屇' => '��',
+'岮' => '�A',
+'岤\' => '��',
+'岠' => '��',
+'岵' => '幘',
+'岯' => '�B',
+'岨' => '��',
+'岬' => '廘',
+'岟' => '��',
+'岣' => '廎',
+'岭' => '鍛',
+'岢' => '幙',
+'岪' => '�@',
+'岧' => '��',
+'岝' => '��',
+'岥' => 'ぞ',
+'岶' => '�F',
+'岰' => '�C',
+'岦' => '��',
+'帗' => '��',
+'帔' => '僬',
+'帙' => '僓',
+'弨' => '��',
+'弢' => '�|',
+'弣' => '�}',
+'弤' => '�~',
+'彔' => '翹',
+'徂' => '摶',
+'彾' => '鍥',
+'彽' => '��',
+'忞' => '��',
+'忥' => '��',
+'怭' => '�P',
+'怦' => '碫',
+'怙' => '碨',
+'怲' => '�T',
+'怋' => '�B',
+'怴' => '�V',
+'怊' => '碤',
+'怗' => '�G',
+'怳' => '鉼',
+'怚' => '�I',
+'怞' => '�J',
+'怬' => '�O',
+'怢' => '�L',
+'怍' => '碠',
+'怐' => '�D',
+'怮' => '�Q',
+'怓' => '�F',
+'怑' => '﹜',
+'怌' => '輒',
+'怉' => '�A',
+'怜' => '蟒',
+'戔' => '磣',
+'戽' => '懨',
+'抭' => '狳',
+'抴' => '蚹',
+'拑' => 'ヵ',
+'抾' => '�|',
+'抪' => '�p',
+'抶' => '�x',
+'拊' => '痽',
+'抮' => '�r',
+'抳' => '�v',
+'抯' => '�s',
+'抻' => '痵',
+'抩' => '�o',
+'抰' => '�t',
+'抸' => '�z',
+'攽' => '��',
+'斨' => '��',
+'斻' => '��',
+'昉' => '�P',
+'旼' => '�G',
+'昄' => '�L',
+'昒' => '�U',
+'昈' => '�O',
+'旻' => '�F',
+'昃' => '篨',
+'昋' => '�Q',
+'昍' => '�R',
+'昅' => '�M',
+'旽' => '�H',
+'昑' => '�T',
+'昐' => '�S',
+'曶' => '��',
+'朊' => '踼',
+'枅' => '��',
+'杬' => '�z',
+'枎' => '��',
+'枒' => '挩',
+'杶' => '�~',
+'杻' => '��',
+'枘' => '餗',
+'枆' => '��',
+'构' => '凳',
+'杴' => '珌',
+'枍' => '��',
+'枌' => '��',
+'杺' => '��',
+'枟' => '抴',
+'枑' => '��',
+'枙' => '��',
+'枃' => '��',
+'杽' => '��',
+'极' => '憤',
+'杸' => '��',
+'杹' => '��',
+'枔' => '��',
+'欥' => '��',
+'殀' => '堬',
+'歾' => '殪',
+'毞' => '蝣',
+'氝' => '��',
+'沓' => '穖',
+'泬' => '��',
+'泫' => '裺',
+'泮' => '裾',
+'泙' => '��',
+'沶' => '�n',
+'泔' => '蜧',
+'沭' => '蜸',
+'泧' => '��',
+'沷' => '�o',
+'泐' => '蜦',
+'泂' => '�s',
+'沺' => '�p',
+'泃' => '�t',
+'泆' => '�u',
+'泭' => '��',
+'泲' => '��',
+'泒' => '�}',
+'泝' => '��',
+'沴' => '咁',
+'沊' => '�X',
+'沝' => '�d',
+'沀' => '�U',
+'泞' => '籠',
+'泀' => '�q',
+'洰' => '��',
+'泍' => '�y',
+'泇' => '�v',
+'沰' => '�k',
+'泹' => '��',
+'泏' => '�{',
+'泩' => '��',
+'泑' => '�|',
+'炔' => '��',
+'炘' => '��',
+'炅' => '篪',
+'炓' => '��',
+'炆' => '��',
+'炄' => '��',
+'炑' => '��',
+'炖' => '嚓',
+'炂' => '��',
+'炚' => '��',
+'炃' => '��',
+'牪' => '��',
+'狖\' => '��',
+'狋' => '��',
+'狘' => '��',
+'狉' => '��',
+'狜' => '昇',
+'狒' => '敳',
+'狔' => '��',
+'狚' => '��',
+'狌' => '倅',
+'狑' => '��',
+'玤' => '剋',
+'玡' => '趜',
+'玭' => '南',
+'玦' => '勇',
+'玢' => '誽',
+'玠' => '削',
+'玬' => '匍',
+'玝' => '剎',
+'瓝' => '��',
+'瓨' => '��',
+'甿' => '疇',
+'畀' => '謓',
+'甾' => '諀',
+'疌' => '浚',
+'疘' => '誇',
+'皯' => '��',
+'盳' => '崔',
+'盱' => '臅',
+'盰' => '崩',
+'盵' => '崙',
+'矸' => '窾',
+'矼' => '蛉',
+'矹' => '蛋',
+'矻' => '蚯',
+'矺' => '蚱',
+'矷' => '蛆',
+'祂' => '痘',
+'礿' => '痙',
+'秅' => '週',
+'穸' => '騅',
+'穻' => '��',
+'竻' => '��',
+'籵' => '褂',
+'糽' => '幢',
+'耵' => '嚪',
+'肏' => '餾',
+'肮' => '偎',
+'肣' => '魏',
+'肸' => '鵝',
+'肵' => '鯀',
+'肭' => '踿',
+'舠' => '彎',
+'芠' => '觀',
+'苀' => '矚',
+'芫' => '僁',
+'芚' => '籬',
+'芘' => '凗',
+'芛' => '籮',
+'芵' => '顱',
+'芧' => '鑲',
+'芮' => '剸',
+'芼' => '黌',
+'芞' => '蠻',
+'芺' => '髖',
+'芴' => '嗌',
+'芨' => '僄',
+'芡' => '嗐',
+'芩' => '嗛',
+'苂' => '讚',
+'芤' => '嗔',
+'苃' => '嗏',
+'芶' => '饞',
+'芢' => '躡\',
+'虰' => '沴',
+'虯' => '繵',
+'虭' => '泒',
+'虮' => '繸',
+'豖' => '傌',
+'迒' => '��',
+'迋' => '��',
+'迓' => '斳',
+'迍' => '��',
+'迖' => '��',
+'迕' => '暵',
+'迗' => '��',
+'邲' => '��',
+'邴' => '絎',
+'邯' => '漯',
+'邳' => '缾',
+'邰' => '菺',
+'阹' => '瘲',
+'阽' => '粢',
+'阼' => '粞',
+'阺' => '瘰',
+'陃' => '瞚',
+'俍' => '�Z',
+'俅' => '棷',
+'俓' => '�\\',
+'侲' => '�E',
+'俉' => '�W',
+'俋' => '�X',
+'俁' => '棤',
+'俔' => '�]',
+'俜' => '棶',
+'俙' => '�`',
+'侻' => '�M',
+'侳' => '�F',
+'俛' => '萱',
+'俇' => '�U',
+'俖' => '�_',
+'侺' => '�L',
+'俀' => '�Q',
+'侹' => '�K',
+'俬' => '�h',
+'剄' => '崷',
+'剉' => '黿',
+'勀' => '��',
+'勂' => '��',
+'匽' => '�]',
+'卼' => '�t',
+'厗' => '��',
+'厖' => '��',
+'厙' => '媋',
+'厘' => '濰',
+'咺' => '�I',
+'咡' => '��',
+'咭' => '葒',
+'咥' => '�A',
+'哏' => '蛖',
+'哃' => '�L',
+'茍' => '��',
+'咷' => '覛',
+'咮' => '�B',
+'哖' => '�P',
+'咶' => '�F',
+'哅' => '�M',
+'哆' => '嗑',
+'咠' => '��',
+'呰' => '隊',
+'咼' => '葃',
+'咢' => '�@',
+'咾' => '�K',
+'呲' => '葨',
+'哞' => '蛵',
+'咰' => '�C',
+'垵' => '跅',
+'垞' => '��',
+'垟' => '��',
+'垤' => '貵',
+'垌' => '趄',
+'垗' => '��',
+'垝' => '��',
+'垛' => '嗯',
+'垔' => '雱',
+'垘' => '��',
+'垏' => '��',
+'垙' => '��',
+'垥\' => '��',
+'垚' => '��',
+'垕' => '��',
+'壴' => '��',
+'复' => '葩',
+'奓' => '�L',
+'姡' => '��',
+'姞' => '��',
+'姮' => '禢',
+'娀' => '��',
+'姱' => '��',
+'姝' => '甇',
+'姺' => '��',
+'姽' => '��',
+'姼' => '��',
+'姶' => '��',
+'姤' => '��',
+'姲' => '��',
+'姷' => '晪',
+'姛' => '��',
+'姩' => '��',
+'姳' => '��',
+'姵' => '��',
+'姠' => '��',
+'姾' => '��',
+'姴' => '��',
+'姭' => '��',
+'宨' => '�i',
+'屌' => '��',
+'峐' => '�Y',
+'峘' => '�`',
+'峌' => '�U',
+'峗' => '�_',
+'峋' => '彄',
+'峛' => '�b',
+'峞' => '�e',
+'峚' => '�a',
+'峉' => '�S',
+'峇' => '�Q',
+'峊' => '�T',
+'峖' => '�^',
+'峓' => '�[',
+'峔' => '�\\',
+'峏' => '�X',
+'峈' => '�R',
+'峆' => '�P',
+'峎' => '�W',
+'峟' => '�f',
+'峸' => '�w',
+'巹' => '筈',
+'帡' => '��',
+'帢' => '��',
+'帣' => '��',
+'帠' => '��',
+'帤' => '��',
+'庰' => '��',
+'庤' => '��',
+'庢' => '��',
+'庛' => '��',
+'庣' => '��',
+'庥' => '瑧',
+'弇' => '�m',
+'弮' => '��',
+'彖' => '樘',
+'徆' => '��',
+'怷' => '�X',
+'怹' => '�Z',
+'恔' => '�k',
+'恲' => '�y',
+'恞' => '�q',
+'恅' => '�`',
+'恓' => '�j',
+'恇' => '�b',
+'恉' => '祤',
+'恛' => '�o',
+'恌' => '╰',
+'恀' => '�^',
+'恂' => '禓',
+'恟' => '�r',
+'怤' => '�N',
+'恄' => '�_',
+'恘' => '�n',
+'恦' => '�v',
+'恮' => '�w',
+'扂' => '��',
+'扃' => '懞',
+'拏' => '��',
+'挍' => '��',
+'挋' => '��',
+'拵' => '��',
+'挎' => '踵',
+'挃' => '��',
+'拫' => '��',
+'拹' => '��',
+'挏' => '��',
+'挌' => '��',
+'拸' => '��',
+'拶' => '睟',
+'挀' => '��',
+'挓' => '��',
+'挔' => '��',
+'拺' => '��',
+'挕' => '��',
+'拻' => '��',
+'拰' => '��',
+'敁' => '��',
+'敃' => '��',
+'斪' => '��',
+'斿' => '��',
+'昶' => '篟',
+'昡' => '�]',
+'昲' => '�h',
+'昵' => '糒',
+'昜' => '�[',
+'昦' => '�a',
+'昢' => '�^',
+'昳' => '�i',
+'昫' => '懠',
+'昺' => '殺',
+'昝' => '篜',
+'昴' => '篫',
+'昹' => '�l',
+'昮' => '�f',
+'朏' => '�F',
+'朐' => '郺',
+'柁' => '魶',
+'柲' => '��',
+'柈' => '��',
+'枺' => '��',
+'柜' => '嶄',
+'枻' => '��',
+'柸' => '��',
+'柘' => '駋',
+'柀' => '��',
+'枷' => '樞',
+'柅' => '��',
+'柫' => '��',
+'柤' => '��',
+'柟' => '撉',
+'枵' => '髳',
+'柍' => '��',
+'枳' => '髱',
+'柷' => '��',
+'柶' => '��',
+'柮' => '��',
+'柣' => '��',
+'柂' => '��',
+'枹' => '��',
+'柎' => '��',
+'柧' => '��',
+'柰' => '駖',
+'枲' => '��',
+'柼' => '��',
+'柆' => '��',
+'柭' => '��',
+'柌' => '��',
+'枮' => '��',
+'柦\' => '��',
+'柛' => '��',
+'柺' => '��',
+'柉' => '��',
+'柊' => '��',
+'柃' => '魧',
+'柪' => '��',
+'柋' => '��',
+'欨' => '��',
+'殂' => '殫',
+'殄' => '毇',
+'殶' => '��',
+'毖' => '敗',
+'毘' => '讒',
+'毠' => '蘌',
+'氠' => '��',
+'氡' => '貑',
+'洨' => '��',
+'洴' => '��',
+'洭' => '��',
+'洟' => '��',
+'洼' => '俍',
+'洿' => '��',
+'洒' => '��',
+'洊' => '��',
+'泚' => '��',
+'洳' => '銌',
+'洄' => '銣',
+'洙' => '鋮',
+'洺' => '��',
+'洚' => '銈',
+'洑' => '��',
+'洀' => '��',
+'洝' => '��',
+'浂' => '��',
+'洁' => '賞',
+'洘' => '��',
+'洷' => '��',
+'洃' => '��',
+'洏' => '��',
+'浀' => '��',
+'洇' => '鉿',
+'洠' => '��',
+'洬' => '��',
+'洈' => '��',
+'洢' => '��',
+'洉' => '��',
+'洐' => '��',
+'炷' => '嚄',
+'炟' => '��',
+'炾' => '��',
+'炱' => '噾',
+'炰' => '��',
+'炡' => '��',
+'炴' => '��',
+'炵' => '��',
+'炩' => '��',
+'牁' => '��',
+'牉' => '��',
+'牊' => '��',
+'牬' => '��',
+'牰' => '��',
+'牳' => '��',
+'牮' => '膴',
+'狊' => '��',
+'狤' => '枕',
+'狨' => '斠',
+'狫' => '枇',
+'狟' => '朋',
+'狪' => '杷',
+'狦' => '果',
+'狣' => '枋',
+'玅' => '鏝',
+'珌' => '��',
+'珂' => '豍',
+'珈' => '賚',
+'珅' => '咽',
+'玹' => '咨',
+'玶' => '咬',
+'玵' => '叛',
+'玴' => '厚',
+'珫' => '��',
+'玿' => '咦',
+'珇' => '品',
+'玾' => '咸',
+'珃' => '哇',
+'珆' => '咪',
+'玸' => '哀',
+'珋' => '��',
+'瓬' => '��',
+'瓮' => '怤',
+'甮' => '射',
+'畇' => '峴',
+'畈' => '豰',
+'疧' => '烙',
+'疪' => '爹',
+'癹' => '迴',
+'盄' => '娼',
+'眈' => '艚',
+'眃' => '康',
+'眄' => '臇',
+'眅' => '庸',
+'眊' => '庵',
+'盷' => '崧',
+'盻' => '巢',
+'盺' => '崗',
+'矧' => '濿',
+'矨' => '莧',
+'砆' => '被',
+'砑' => '篲',
+'砒' => '罐',
+'砅' => '袈',
+'砐' => '訪',
+'砏' => '規',
+'砎' => '覓',
+'砉' => '竁',
+'砃' => '術',
+'砓' => '訝',
+'祊' => '皖',
+'祌' => '皴',
+'祋' => '皓',
+'祅' => '偯',
+'祄' => '痠',
+'秕' => '瀦',
+'种' => '笱',
+'秏' => '鄉',
+'秖' => '硐',
+'秎' => '郵',
+'窀' => '騆',
+'穾' => '��',
+'竑' => '粵',
+'笀' => '��',
+'笁' => '��',
+'籺' => '裨',
+'籸' => '裸',
+'籹' => '衒',
+'籿' => '裯',
+'粀' => '誦',
+'粁' => '誌',
+'紃' => '廝',
+'紈' => '膣',
+'紁' => '廚',
+'罘' => '貔',
+'羑' => '袀',
+'羍' => '縹',
+'羾' => '��',
+'耇' => '嬸',
+'耎' => '擴',
+'耏' => '擲',
+'耔' => '鼨',
+'耷' => '痯',
+'胘' => '懵',
+'胇' => '鼬',
+'胠' => '攏',
+'胑' => '眱',
+'胈' => '儳',
+'胂' => '輴',
+'胐\' => '寵',
+'胅' => '鼕',
+'胣' => '曝',
+'胙' => '遹',
+'胜' => '吨',
+'胊' => '郺',
+'胕' => '懶',
+'胉' => '嚥',
+'胏' => '壢',
+'胗' => '邆',
+'胦' => '櫥',
+'胍' => '遻',
+'臿' => '鶯',
+'舡' => '繾',
+'芔' => '雒',
+'苙' => '躪',
+'苾' => '��',
+'苹' => 'し',
+'茇' => '嗏',
+'苨' => '鱷',
+'茀' => '��',
+'苕' => '塍',
+'茺' => '媿',
+'苫' => '伒',
+'苖' => '讜',
+'苴' => '嗢',
+'苬' => '豔',
+'苡' => '嗄',
+'苲' => '驪',
+'苵' => '鸛',
+'茌' => '嗲',
+'苻' => '嗍',
+'苶' => '鸞',
+'苰' => '爨',
+'苪' => '黷',
+'苤' => '嗒',
+'苠' => '塏',
+'苺' => '��',
+'苳' => '鬱',
+'苭' => '鑿',
+'虷' => '洰',
+'虴' => '沀',
+'虼' => '繯',
+'虳' => '沝',
+'衁' => '胑',
+'衎' => '胕',
+'衧' => '苫',
+'衪' => '苖',
+'衩' => '鯇',
+'觓' => '羖',
+'訄' => '��',
+'訇' => '渟',
+'赲' => '焮\',
+'迣' => '��',
+'迡' => '��',
+'迮' => '暩',
+'迠' => '��',
+'郱' => '貅',
+'邽' => '��',
+'邿' => '��',
+'郕' => '詷',
+'郅' => '菑',
+'邾' => '菪',
+'郇' => '菬',
+'郋' => '詶',
+'郈' => '觜',
+'釔' => '醢',
+'釓' => '醚',
+'陔' => '絘',
+'陏' => '瞜',
+'陑' => '瞛',
+'陓' => '瞣',
+'陊' => '瞝',
+'陎' => '瞡',
+'倞' => '��',
+'倅' => '�y',
+'倇' => '�{',
+'倓' => '��',
+'倢' => '��',
+'倰' => '��',
+'倛' => '��',
+'俵' => '�l',
+'俴' => '�k',
+'倳' => '��',
+'倷' => '��',
+'倬' => '椈',
+'俶' => '棆',
+'俷' => '�n',
+'倗' => '��',
+'倜' => '棆',
+'倠' => '��',
+'倧' => '��',
+'倵' => '��',
+'倯' => '��',
+'倱' => '��',
+'倎' => '��',
+'党' => '絨',
+'冔' => '��',
+'冓' => '��',
+'凊' => '��',
+'凄' => 'ぼ',
+'凅' => '��',
+'凈' => '噱',
+'凎' => '��',
+'剡' => '崵',
+'剚' => '��',
+'剒' => '�z',
+'剞' => '崿',
+'剟' => '��',
+'剕' => '�|',
+'剢' => '��',
+'勍' => '��',
+'匎' => '��',
+'厞' => '��',
+'唦' => '�~',
+'哢' => '�U',
+'唗' => '�t',
+'唒' => '�p',
+'哧' => '蛸',
+'哳' => '蛶',
+'哤' => '�W',
+'唚' => '葸',
+'哿' => '衖',
+'唄' => '葺',
+'唈' => '�j',
+'哫' => '�X',
+'唑' => '裋',
+'唅' => '漪',
+'哱' => '�\\',
+'唊' => '�k',
+'哻' => '�c',
+'哷' => '�`',
+'哸' => '�a',
+'哠' => '�S',
+'唎' => '�o',
+'唃' => '�g',
+'唋' => '�l',
+'圁' => '��',
+'圂' => '��',
+'埌' => '��',
+'堲' => '��',
+'埕' => '跖',
+'埒' => '跙',
+'垺' => '��',
+'埆' => '��',
+'垽' => '��',
+'垼' => '��',
+'垸' => '跈',
+'垶' => '��',
+'垿' => '��',
+'埇' => '��',
+'埐' => '��',
+'垹' => '��',
+'埁' => '��',
+'夎' => '��',
+'奊' => '�G',
+'娙' => '��',
+'娖\' => '��',
+'娭' => '��',
+'娮' => '��',
+'娕' => '��',
+'娏' => '��',
+'娗' => '��',
+'娊' => '��',
+'娞' => '��',
+'娳' => '��',
+'孬' => '堳',
+'宧' => '�h',
+'宭' => '�l',
+'宬' => '�k',
+'尃' => '��',
+'屖' => '��',
+'屔' => '��',
+'峬' => '�m',
+'峿' => '�}',
+'峮' => '�n',
+'峱' => '�p',
+'峷' => '�v',
+'崀' => '�~',
+'峹' => '�x',
+'帩' => '��',
+'帨' => '��',
+'庨' => '��',
+'庮' => '��',
+'庪' => '��',
+'庬' => '��',
+'弳' => '殣',
+'弰' => '��',
+'彧' => '��',
+'恝' => '瞱',
+'恚' => '瞨',
+'恧' => '矰',
+'恁' => '磳',
+'悢' => '��',
+'悈' => '��',
+'悀' => '�~',
+'悒' => '膍',
+'悁' => '��',
+'悝' => '膃',
+'悃' => '膇',
+'悕' => '��',
+'悛' => '膋',
+'悗' => '��',
+'悇' => '��',
+'悜' => '��',
+'悎' => '��',
+'戙' => '��',
+'扆' => '��',
+'拲' => '��',
+'挐' => '��',
+'捖' => '��',
+'挬' => '匿',
+'捄' => '寰',
+'捅' => '舠',
+'挶' => '��',
+'捃' => '睖',
+'揤' => '�V',
+'挹' => '睠',
+'捋' => '睒',
+'捊' => '��',
+'挼' => '鑑',
+'挩' => '��',
+'捁' => '��',
+'挴' => '��',
+'捘' => '��',
+'捔' => '��',
+'捙' => '��',
+'挭' => '��',
+'捇' => '��',
+'挳' => '��',
+'捚' => '��',
+'捑' => '��',
+'挸' => '��',
+'捗' => '��',
+'捀' => '��',
+'捈' => '��',
+'敊' => '��',
+'敆' => '��',
+'旆' => '鼒',
+'旃' => '儦',
+'旄' => '鼽',
+'旂' => 'よ',
+'晊' => '�y',
+'晟' => '糗',
+'晇' => '�v',
+'晑' => '�}',
+'朒' => '�H',
+'朓' => '�I',
+'栟' => '��',
+'栚' => '��',
+'桉' => '黓',
+'栲' => '魰',
+'栳' => '魨',
+'栻' => '��',
+'桋' => '��',
+'桏' => '��',
+'栖' => 'へ',
+'栱' => '��',
+'栜' => '��',
+'栵' => '��',
+'栫' => '��',
+'栭' => '��',
+'栯' => '��',
+'桎' => '鳼',
+'桄' => '鳽',
+'栴' => '��',
+'栝' => '鴇',
+'栒' => '��',
+'栔' => 'ゑ',
+'栦' => '��',
+'栨' => '��',
+'栮' => '��',
+'桍' => '��',
+'栺' => '��',
+'栥' => '��',
+'栠' => '��',
+'欬' => '褥',
+'欯' => '�@',
+'欭' => '��',
+'欱' => '�B',
+'欴' => '�D',
+'歭' => '�l',
+'肂' => '額',
+'殈' => '�~',
+'毦' => '��',
+'毤' => '��',
+'毨' => '��',
+'毣' => '��',
+'毢' => '��',
+'毧' => '��',
+'氥' => '��',
+'浺' => '��',
+'浣' => '雿',
+'浤' => '��',
+'浶' => '��',
+'洍' => '��',
+'浡' => '��',
+'涒' => '��',
+'浘' => '��',
+'浢' => '��',
+'浭' => '��',
+'浯' => '銧',
+'涑' => '銙',
+'涍' => '��',
+'淯' => '�U',
+'浿' => '��',
+'涆' => '��',
+'浞' => '銩',
+'浧' => '��',
+'浠' => '隞',
+'涗' => '��',
+'浰' => '��',
+'浼' => '隡',
+'浟' => '��',
+'涂\' => '芨',
+'涘' => '��',
+'洯' => '��',
+'浨' => '��',
+'涋' => '��',
+'浾' => '��',
+'涀' => '��',
+'涄' => '��',
+'洖' => '��',
+'涃' => '��',
+'浻' => '��',
+'浽' => '��',
+'浵' => '��',
+'涐' => '��',
+'烜' => '�@',
+'烓' => '��',
+'烑' => '��',
+'烝' => '�A',
+'烋' => '��',
+'缹' => '��',
+'烢' => '�E',
+'烗' => '��',
+'烒' => '��',
+'烞' => '�B',
+'烠' => '�C',
+'烔' => '��',
+'烍' => '��',
+'烅' => '��',
+'烆' => '��',
+'烇' => '��',
+'烚' => '��',
+'烎' => '��',
+'烡' => '�D',
+'牂' => '��',
+'牸' => '��',
+'牷' => '��',
+'牶' => '��',
+'猀' => '松',
+'狺' => '槉',
+'狴' => '朅',
+'狾' => '板',
+'狶' => '林',
+'狳' => '榱',
+'狻' => '漶',
+'猁' => '朢',
+'珓' => '��',
+'珙' => '賧',
+'珥' => '賝',
+'珖' => '��',
+'玼' => '哎',
+'珧' => '趛',
+'珣' => '��',
+'珩' => '趡',
+'珜' => '��',
+'珒' => '��',
+'珛' => '��',
+'珔' => '��',
+'珝' => '��',
+'珚' => '��',
+'珗' => '��',
+'珘' => '��',
+'珨' => '��',
+'瓞' => '藇',
+'瓟' => '��',
+'瓴' => '窶',
+'瓵' => '唧',
+'甡' => '害',
+'畛' => '豲',
+'畟' => '��',
+'疰' => '謷',
+'痁' => '班',
+'疻' => '狸',
+'痄' => '謱',
+'痀' => '玆',
+'疿' => '貗',
+'疶' => '狼',
+'疺' => '狽',
+'皊' => '酒',
+'盉' => '婚',
+'眝' => '恿',
+'眛' => '徠',
+'眐' => '彗',
+'眓' => '彫',
+'眒' => '彩',
+'眣' => '悠',
+'眑' => '彬',
+'眕' => '徙',
+'眙' => '薀',
+'眚' => '艜',
+'眢' => '薃',
+'眧' => '悴',
+'砣' => '篸',
+'砬' => '簁',
+'砢' => '訢',
+'砵' => '赦',
+'砯' => '貨',
+'砨' => '豚',
+'砮' => '貫',
+'砫' => '責',
+'砡' => '訛',
+'砩' => '篽',
+'砳' => '赧',
+'砪' => '販',
+'砱' => '貪',
+'祔' => '稍',
+'祛' => '斁',
+'祏' => '短',
+'祜' => '斀',
+'祓' => '斶',
+'祒' => '硯',
+'祑' => '硬',
+'秫' => '瀊',
+'秬' => '��',
+'秠' => '鈇',
+'秮' => '��',
+'秭' => '濼',
+'秪' => '閑',
+'秜' => '鈞',
+'秞' => '鈐',
+'秝' => '鈍',
+'窆' => '髀',
+'窉' => '��',
+'窅' => '��',
+'窋' => '��',
+'窌' => '��',
+'窊' => '��',
+'窇' => '��',
+'竘' => '絛',
+'笐' => '��',
+'笄' => '鯪',
+'笓' => '��',
+'笅' => '��',
+'笏' => '鯤',
+'笈' => '鬌',
+'笊' => '鯠',
+'笎' => '��',
+'笉' => '��',
+'笒' => '��',
+'粄' => '認',
+'粑' => '譠',
+'粊' => '��',
+'粌' => '��',
+'粈' => '��',
+'粍' => '��',
+'粅' => '誡',
+'紞' => '��',
+'紝' => '��',
+'紑' => '��',
+'紎' => '慝',
+'紘' => '��',
+'紖' => '��',
+'紓' => '蝤',
+'紟' => '��',
+'紒' => '��',
+'紏' => '慕',
+'紌' => '慧',
+'罜' => '磷',
+'罡\' => '賹',
+'罞' => '磴',
+'罠' => '磯',
+'罝' => '磺',
+'罛' => '矯',
+'羖' => '翼',
+'羒' => '縯',
+'翃' => '��',
+'翂' => '��',
+'翀' => '��',
+'耖' => '齌',
+'耾' => '濾',
+'耹' => '殯',
+'胺' => '健',
+'胲' => '醏',
+'胹' => '瀛',
+'胵' => '櫚',
+'脁' => '瀕',
+'胻' => '瀟',
+'脀' => '瀝',
+'舁' => '籊',
+'舯' => '翿',
+'舥' => '攤',
+'茳' => '嫈',
+'茭' => '媰',
+'荄' => 'ガ',
+'茙' => '��',
+'荑' => '塯',
+'茥' => '��',
+'荖' => 'ザ',
+'茿' => 'ォ',
+'荁' => 'オ',
+'茦' => '��',
+'茜' => '塉',
+'茢' => '��',
+'荂' => 'カ',
+'荎' => 'コ',
+'茛' => '摃',
+'茪' => '��',
+'茈' => '塝',
+'茼' => '塥',
+'荍' => 'ゲ',
+'茖' => '塱',
+'茤' => '��',
+'茠' => '��',
+'茷' => '瑗',
+'茯' => '壼',
+'茩' => '��',
+'荇' => '嫄',
+'荅' => 'キ',
+'荌' => '滕',
+'荓' => 'ゴ',
+'茞' => '��',
+'茬' => '脩',
+'荋' => 'グ',
+'茧' => '潺',
+'荈' => 'ギ',
+'虓' => '潺',
+'虒' => '��',
+'蚢' => '狒',
+'蚨' => '繲',
+'蚖' => '鞷',
+'蚍' => '繴',
+'蚑' => '炆',
+'蚞' => '狋',
+'蚇' => '泩',
+'蚗' => '炂',
+'蚆' => '泏',
+'蚋' => '繨',
+'蚚' => '羃',
+'蚅' => '紮',
+'蚥' => '閤',
+'蚙' => '炃',
+'蚡' => '罊',
+'蚧' => '羃',
+'蚕' => '紮',
+'蚘' => '炚',
+'蚎' => '炘',
+'蚝' => '罊',
+'蚐' => '炓',
+'蚔' => '炑',
+'衃' => '胂',
+'衄' => '繻',
+'衭' => '苴',
+'衵' => '茌',
+'衶' => '苻',
+'衲' => '鯆',
+'袀' => '��',
+'衱' => '苡',
+'衿' => '鮿',
+'衯' => '苬',
+'袃' => '��',
+'衾' => '蘉',
+'衴' => '苵',
+'衼' => '��',
+'訒' => '��',
+'豇' => '鐖',
+'豗' => '傎',
+'豻' => '喤',
+'貤' => '摿',
+'貣' => '��',
+'赶' => '裒',
+'赸' => '裒',
+'趵' => '儺',
+'趷' => '��',
+'趶' => '��',
+'軑' => '��',
+'軓' => '��',
+'迾' => '��',
+'迵' => '��',
+'适' => '巠',
+'迿' => '巠',
+'迻' => '��',
+'逄' => '樗',
+'迼' => '��',
+'迶' => '��',
+'郖' => '誂',
+'郠' => '詺',
+'郙' => '詵',
+'郚' => '誃',
+'郣' => '谼',
+'郟' => '菇',
+'郥' => '豊',
+'郘' => '誄',
+'郛' => '萛',
+'郗' => '菢',
+'郜' => '菗',
+'郤' => '豋',
+'酐' => '鐉',
+'酎' => '鏸',
+'酏' => '鐊',
+'釕' => '醟',
+'釢' => '��',
+'釚' => '��',
+'陜' => '��',
+'陟' => '絯',
+'隼' => '鶺',
+'飣' => '鴸',
+'髟' => '奲',
+'鬯' => '袷',
+'乿' => '�v',
+'偰' => '��',
+'偪' => '排',
+'偡' => '排',
+'偞' => '��',
+'偠' => '��',
+'偓' => '��',
+'偋' => '��',
+'偝' => '��',
+'偲' => '��',
+'偈' => '椋',
+'偍' => '��',
+'偁' => '��',
+'偛' => '��',
+'偊' => '��',
+'偢' => '礭',
+'倕' => '��',
+'偅\' => '��',
+'偟' => '��',
+'偩' => '��',
+'偫' => '��',
+'偣' => '��',
+'偤' => '��',
+'偆' => '��',
+'偀' => '��',
+'偮' => '��',
+'偳' => '��',
+'偗' => '��',
+'偑' => '��',
+'凐' => '��',
+'剫' => '��',
+'剭' => '��',
+'剬' => '��',
+'剮' => '塵',
+'勖' => '袺',
+'勓' => '��',
+'匭' => '寪',
+'厜' => '��',
+'啵' => '逽',
+'啶' => '鄐',
+'唼' => '觤',
+'啍' => '��',
+'啐' => '觥',
+'唴' => '��',
+'唪' => '裎',
+'啑' => '��',
+'啢' => '鄔',
+'唶' => '��',
+'唵' => '��',
+'唰' => '鄑',
+'啒' => '��',
+'啅' => '��',
+'唌' => '�m',
+'唲' => '��',
+'啥' => '伅',
+'啎' => '��',
+'唹' => '睯',
+'啈' => '��',
+'唭' => '��',
+'唻' => '��',
+'啀' => '��',
+'啋' => '��',
+'圊' => '僛',
+'圇' => '僦',
+'埻' => '��',
+'堔' => '��',
+'埢' => '��',
+'埶' => '��',
+'埜' => '��',
+'埴' => '跗',
+'堀' => '雈',
+'埭' => '雂',
+'埽' => '隀',
+'堈' => '��',
+'埸' => '軯',
+'堋' => '隉',
+'埳' => '隉',
+'埏' => '趉',
+'堇' => '暌',
+'埮' => '��',
+'埣' => '��',
+'埲' => '��',
+'埥' => '��',
+'埬' => '��',
+'埡' => '貹',
+'堎' => '��',
+'埼' => '��',
+'堐' => '��',
+'埧' => '��',
+'堁' => '商',
+'堌' => '��',
+'埱' => '��',
+'埩' => '��',
+'埰' => '��',
+'堍' => '隃',
+'堄' => '��',
+'奜' => '�O',
+'婠' => '��',
+'婘' => '��',
+'婕' => '瞍',
+'婧' => '皞',
+'婞' => '��',
+'娸' => '��',
+'娵' => '��',
+'婭' => '瑹',
+'婐' => '��',
+'婟' => '皝',
+'婥' => '�C',
+'婬' => '�H',
+'婓' => '窋',
+'婤' => '�B',
+'婗' => '��',
+'婃' => '��',
+'婝' => '��',
+'婒' => '��',
+'婄' => '��',
+'婛' => '��',
+'婈' => '��',
+'媎' => '�d',
+'娾' => '��',
+'婍' => '��',
+'娹' => '��',
+'婌' => '��',
+'婰' => '�L',
+'婩' => '�F',
+'婇' => '��',
+'婑' => '��',
+'婖' => '��',
+'婂' => '��',
+'婜' => '��',
+'孲' => '�S',
+'孮' => '�Q',
+'寁' => '�v',
+'寀' => '�u',
+'屙' => '樇',
+'崞' => '慱',
+'崋' => '��',
+'崝' => '��',
+'崚' => '彃',
+'崠' => '幓',
+'崌' => '��',
+'崨' => '��',
+'崍' => '徶',
+'崦' => '愨',
+'崥' => '��',
+'崏' => '��',
+'崰' => '廕',
+'崒' => '��',
+'崣' => '��',
+'崟' => '��',
+'崮' => '慁',
+'帾' => '��',
+'帴' => '��',
+'庱' => '��',
+'庴' => '��',
+'庹' => '甀',
+'庲' => '��',
+'庳' => '畽',
+'弶' => '��',
+'弸' => '��',
+'徛' => '��',
+'徖' => '��',
+'徟' => '��',
+'悊' => '��',
+'悐' => '殍',
+'悆' => '��',
+'悾' => '��',
+'悰' => '��',
+'悺' => '��',
+'惓' => '��',
+'惔' => '��',
+'惏' => '��',
+'惤' => '懋',
+'惙' => '╰',
+'惝\' => '蒡',
+'惈' => '蒡',
+'悱' => '蒤',
+'惛' => '��',
+'悷' => '��',
+'惊' => '儐',
+'悿' => '儐',
+'惃' => '��',
+'惍' => '��',
+'惀' => '��',
+'挲' => '蕡',
+'捥' => '��',
+'掊' => '碚',
+'掂' => '菽',
+'捽' => '��',
+'掽' => '��',
+'掞' => '癲',
+'掭' => '睚',
+'掝' => '��',
+'掗' => '��',
+'掫' => '��',
+'掎' => '睙',
+'捯' => '��',
+'掇' => '嗇',
+'掐' => 'ェ',
+'据' => '擂',
+'掯' => '擂',
+'捵' => '��',
+'掜' => '痵',
+'捭' => '矠',
+'掮' => '碏',
+'捼' => '��',
+'掤' => '鑑',
+'挻' => '��',
+'掟' => '��',
+'捸' => '��',
+'掅' => '��',
+'掁' => '��',
+'掑' => '��',
+'掍' => '��',
+'捰' => '��',
+'敓' => '��',
+'旍' => '嗤',
+'晥' => '儥',
+'晡' => '縗',
+'晛' => '��',
+'晙' => '��',
+'晜' => '��',
+'晢' => '��',
+'朘' => '�K',
+'桹' => '�O',
+'梇' => '曙',
+'梐' => '�a',
+'梜' => '�k',
+'桭' => '�F',
+'桮' => '�G',
+'梮' => '戚',
+'梫' => '�v',
+'楖' => '��',
+'桯' => '�H',
+'梣' => '�q',
+'梬' => '�w',
+'梩' => '�t',
+'桵' => '�M',
+'桴' => '儓',
+'梲' => '�z',
+'梏' => '儜',
+'桷' => '儗',
+'梒' => '�c',
+'桼' => '�R',
+'桫' => '儑',
+'桲' => '�K',
+'梪' => '�u',
+'梀' => '�V',
+'桱' => '�J',
+'桾' => '�T',
+'梛' => '�j',
+'梖' => '�f',
+'梋' => '�]',
+'梠' => '�o',
+'梉' => '�[',
+'梤' => '�r',
+'桸' => '�N',
+'桻' => '�Q',
+'梑' => '�b',
+'梌' => '�^',
+'梊' => '�\\',
+'桽' => '�S',
+'欶' => '�F',
+'欳' => '�C',
+'欷' => '鴗',
+'欸' => '�G',
+'殑' => '��',
+'殏' => '��',
+'殍' => '氆',
+'殎' => '��',
+'殌' => '��',
+'氪' => '賵',
+'淀' => '蛭',
+'涫' => '韍',
+'涴' => '��',
+'涳' => '��',
+'湴' => '��',
+'涬' => '��',
+'淩' => '�R',
+'淢' => '�M',
+'涷' => '銂',
+'淶' => '鉾',
+'淔' => '�F',
+'渀' => '�`',
+'淈' => '��',
+'淠' => '鞂',
+'淟' => '�L',
+'淖' => '儷',
+'涾' => '��',
+'淥' => '頖',
+'淜' => '�K',
+'淝' => '鞁',
+'淛' => '�J',
+'淴' => '涳',
+'淊' => '��',
+'涽' => '敊',
+'淭' => '�T',
+'淰' => '�V',
+'涺' => '��',
+'淕' => '�G',
+'淂' => '��',
+'淏' => '傅',
+'淉' => '��',
+'淐' => '�C',
+'淲' => '�W',
+'淓' => '�E',
+'淽' => '�]',
+'淗' => '�H',
+'淍' => '�@',
+'淣' => '�N',
+'涻' => '��',
+'烺' => '�R',
+'焍' => '�b',
+'烷' => '俛',
+'焗' => '�h',
+'烴' => '泲',
+'焌' => '�a',
+'烰' => '�J',
+'焄' => '�[',
+'烳' => '�M',
+'焐' => '嚁',
+'烼' => '�T',
+'烿' => '�V',
+'焆' => '�]',
+'焓' => '壖',
+'焀' => '�W',
+'烸' => '�Q',
+'烶' => '�P',
+'焋' => '�`',
+'焂' => '�Y',
+'焎' => '�c',
+'牾\' => '艕',
+'牻' => '��',
+'牼' => '��',
+'牿' => '艖',
+'猝' => '漰',
+'猗' => '潳',
+'猇' => '杼',
+'猑' => '氛',
+'猘' => '泳',
+'猊' => '漭',
+'猈' => '杪',
+'狿' => '枉',
+'猏' => '歿\',
+'猞' => '潀',
+'玈' => '俟',
+'珶' => '��',
+'珸' => '拯',
+'珵' => '��',
+'琄' => '春',
+'琁' => '施',
+'珽' => '霂',
+'琇' => '昭',
+'琀' => '斫',
+'珺' => '漪',
+'珼' => '挑',
+'珿' => '故',
+'琌' => '是',
+'琋' => '昧',
+'珴' => '��',
+'琈' => '映',
+'畤' => '��',
+'畣' => '��',
+'痎' => '湘',
+'痒' => '欭',
+'痏' => '欭',
+'痋' => '珮\',
+'痌' => '珠',
+'痑' => '雯',
+'痐' => '畔',
+'皏' => '閤',
+'皉' => '郢',
+'盓' => '孰',
+'眹' => '��',
+'眯' => '譜',
+'眭' => '薏',
+'眱' => '��',
+'眲' => '��',
+'眴' => '��',
+'眳' => '��',
+'眽' => '��',
+'眥' => '薧',
+'眻' => '躺',
+'眵' => '薕',
+'硈' => '連',
+'硒' => '昮',
+'硉' => '速',
+'硍' => '逕',
+'硊' => '逝',
+'硌' => '縼',
+'砦' => '簊',
+'硅' => '寡',
+'硐' => '糨',
+'祤' => '��',
+'祧' => '檥',
+'祩' => '��',
+'祪' => '��',
+'祣' => '窘',
+'祫' => '��',
+'祡' => '標',
+'离' => '燭',
+'秺' => '燭',
+'秸' => '調',
+'秶' => '��',
+'秷' => '��',
+'窏' => '��',
+'窔' => '��',
+'窐' => '��',
+'笵' => '道',
+'筇' => '鯦',
+'笴' => '遊',
+'笥' => '鯙',
+'笰' => '農',
+'笢' => '��',
+'笤' => '鯥',
+'笳' => '鯕',
+'笘' => '��',
+'笪' => '鯰',
+'笝' => '��',
+'笱' => '鯬',
+'笫' => '鯞',
+'笭' => '��',
+'笯' => '辟',
+'笲' => '運',
+'笸' => '鯢',
+'笚' => '��',
+'笣' => '��',
+'粔' => '��',
+'粘' => '梜',
+'粖' => '��',
+'粣' => '��',
+'紵' => '��',
+'紽' => '瘤',
+'紸' => '璀',
+'紶' => '��',
+'紺' => '蝷',
+'絅' => '瞇',
+'紬' => '��',
+'紩' => '喙',
+'絁' => '皚',
+'絇' => '瞑',
+'紾' => '瘦',
+'紿' => '蝒',
+'絊' => '磅',
+'紻' => '瘩',
+'紨' => '��',
+'罣' => '礁',
+'羕' => '境',
+'羜' => '聳',
+'羝' => '蠑',
+'羛' => '聯',
+'翊' => '騑',
+'翋' => '��',
+'翍' => '��',
+'翐' => '��',
+'翑' => '��',
+'翇' => '��',
+'翏' => '��',
+'翉' => '��',
+'耟' => '曜',
+'耞' => '斷',
+'耛' => '擻',
+'聇' => '燻',
+'聃' => '嚬',
+'聈' => '燼',
+'脘' => '錸',
+'脥' => '錸',
+'脙' => '��',
+'脛' => '鄵',
+'脭' => '��',
+'脟' => '��',
+'脬' => '鍺',
+'脞' => '錏',
+'脡' => '��',
+'脕' => '錸',
+'脧' => '��',
+'脝' => '��',
+'脢' => '��',
+'舑' => '齧',
+'舸' => '臙',
+'舳' => '艨',
+'舺' => '瓤',
+'舴' => '艩',
+'舲' => '玀',
+'艴' => '氁',
+'莐' => 'ビ',
+'莣' => 'ミ',
+'莨' => '搮',
+'莍\' => 'パ',
+'荺' => 'ツ\',
+'荳' => '飪',
+'莤' => '飪',
+'荴' => 'ダ',
+'莏' => 'ヒ',
+'莁' => 'ト',
+'莕' => 'ブ',
+'莙' => '嫄',
+'荵' => 'チ',
+'莔' => 'フ',
+'莩' => '摀',
+'荽' => '搥',
+'莃' => 'ナ',
+'莌' => 'バ',
+'莝' => 'ホ',
+'莛' => '塣',
+'莪' => '搨',
+'莋' => 'ハ',
+'荾' => 'ヅ',
+'莥' => 'メ',
+'莯' => '��',
+'莈' => 'ネ',
+'莗' => 'ヘ',
+'莰' => '搢',
+'荿' => 'テ',
+'莦' => 'モ',
+'莇' => 'ヌ',
+'莮' => 'ユ',
+'荶' => 'ヂ',
+'莚' => 'ペ',
+'虙' => '��',
+'虖' => '撋',
+'蚿' => '網',
+'蚷' => '玦',
+'蛂' => '甾',
+'蛁' => '畀',
+'蛅' => '疘',
+'蚺' => '艣',
+'蚰' => '艡',
+'蛈' => '皯',
+'蚹' => '玠',
+'蚳' => '玭',
+'蚸' => '玢',
+'蛌' => '盳',
+'蚴' => '藡',
+'蚻' => '玬',
+'蚼' => '玝',
+'蛃' => '疌',
+'蚽' => '瓝',
+'蚾' => '瓨',
+'衒' => '胦',
+'袉' => '嚃',
+'袕' => '��',
+'袨' => '��',
+'袢' => '鮵',
+'袪' => '��',
+'袚' => '��',
+'袑' => '��',
+'袡' => '��',
+'袟' => '棉',
+'袘' => '蹠',
+'袧' => '��',
+'袙' => '��',
+'袛' => '��',
+'袗' => '��',
+'袤' => '湁',
+'袬' => '唊',
+'袌' => '��',
+'袓' => '蠱',
+'袎' => '��',
+'覂' => '��',
+'觖' => '蘠',
+'觙' => '耖',
+'觕' => '翃',
+'訰' => '偋',
+'訧' => '髟',
+'訬' => '偡',
+'訞' => '酎',
+'谹' => '釷',
+'谻' => '釮',
+'豜' => '傒',
+'豝' => '傂',
+'豽' => '喌',
+'貥' => '��',
+'赽' => '焟',
+'赻' => '焢',
+'赹' => '焣',
+'趼' => '劘',
+'跂' => '��',
+'趹' => '��',
+'趿' => '儹',
+'跁' => '��',
+'軘' => '��',
+'軞' => '��',
+'軝' => '��',
+'軜' => '��',
+'軗' => '��',
+'軠' => '��',
+'軡' => '��',
+'逤' => '窢',
+'逋' => '槥',
+'逑' => '樕',
+'逜' => '稐',
+'逌' => '��',
+'逡' => '樠',
+'郯' => '菾',
+'郪' => '豤',
+'郰' => '貄',
+'郴' => '頂',
+'郲' => '賌',
+'郳' => '赨\',
+'郔' => '訿',
+'郫' => '菛',
+'郬' => '豦',
+'郩' => '豥',
+'酖' => '嘧',
+'酘' => '嘕',
+'酚' => '照',
+'酓' => '勫',
+'酕' => '厬',
+'釬' => '榑',
+'釴' => '爾',
+'釱' => '榩',
+'釳' => '榯',
+'釸' => '槔',
+'釤' => '醠',
+'釹' => '鎯',
+'釪' => '榬',
+'釫' => '榼',
+'釷' => '醡',
+'釨' => '榖',
+'釮' => '榎',
+'镺' => '墼',
+'閆' => '蒩',
+'閈' => '嬞\',
+'陼' => '��',
+'陭' => '��',
+'陫' => '��',
+'陱' => '��',
+'陯' => '��',
+'隿' => '螘',
+'靪' => '魾',
+'頄' => '��',
+'飥' => '��',
+'馗' => '婺',
+'傛' => '��',
+'傕' => '��',
+'傔' => '��',
+'傞' => '��',
+'傋' => '��',
+'傣' => '湯',
+'傃' => '��',
+'傌' => '��',
+'傎' => '鎬',
+'傝' => '��',
+'偨' => '��',
+'傜\' => '��',
+'傒' => '撂',
+'傂' => '��',
+'傇' => '��',
+'兟' => '��',
+'凔' => '��',
+'匒' => '�A',
+'匑' => '�@',
+'厤' => '��',
+'厧' => '盪',
+'喑' => '鈳',
+'喨' => '��',
+'喥' => '謠',
+'喭' => '��',
+'啷' => '鄍',
+'噅' => '�j',
+'喢' => '��',
+'喓' => '��',
+'喈' => '鉈',
+'喏' => '裛',
+'喵' => '裚',
+'喁' => '鉒',
+'喣' => '��',
+'喒' => '��',
+'喤' => '��',
+'啽' => '��',
+'喌' => '��',
+'喦' => '��',
+'啿' => '旂',
+'喕' => '��',
+'喡' => '��',
+'喎' => '��',
+'圌' => '葃',
+'堩' => '��',
+'堷' => '��',
+'堙' => '雱',
+'堞' => '雃',
+'堧' => '��',
+'堣' => '��',
+'堨' => '��',
+'埵' => '��',
+'塈' => '�I',
+'堥' => '��',
+'堜' => '��',
+'堛' => '��',
+'堳' => '��',
+'堿' => '澗',
+'堶' => '��',
+'堮' => '��',
+'堹' => '��',
+'堸' => '��',
+'堭' => '��',
+'堬' => '��',
+'堻' => '��',
+'奡' => '�S',
+'媯' => '璉',
+'媔' => '�i',
+'媟' => '�r',
+'婺' => '磑',
+'媢' => '�u',
+'媞' => '�q',
+'婸' => '�P',
+'媦' => '�y',
+'婼' => '�S',
+'媥' => '�x',
+'媬' => '�~',
+'媕' => '�j',
+'媮' => '��',
+'娷' => '芚',
+'媄' => '�Z',
+'媊' => '�`',
+'媗' => '�l',
+'媃' => '�Y',
+'媋' => '�a',
+'媩' => '�|',
+'婻' => '�R',
+'婽' => '�T',
+'媌' => '�b',
+'媜' => '�o',
+'媏' => '�e',
+'媓' => '�h',
+'媝' => '�p',
+'寪' => '��',
+'寍' => '�|',
+'寋' => '�{',
+'寔' => '��',
+'寑' => '妗',
+'寊' => 'х',
+'寎' => '�}',
+'尌' => '��',
+'尰' => '��',
+'崷' => '��',
+'嵃' => '��',
+'嵫' => '慥',
+'嵁' => '��',
+'嵋' => '愻',
+'崿' => '��',
+'崵' => '��',
+'嵑' => '竀',
+'嵎' => '��',
+'嵕' => '趶',
+'崳' => '慔',
+'崺' => '��',
+'嵒' => '��',
+'崽' => '憀',
+'崱' => '��',
+'嵙' => '��',
+'嵂' => '��',
+'崹' => '��',
+'嵉' => '��',
+'崸' => '��',
+'崼' => '��',
+'崲' => '��',
+'崶' => '��',
+'嵀' => '��',
+'嵅' => '��',
+'幄' => '屣',
+'幁' => '��',
+'彘' => '樥',
+'徦' => '��',
+'徥' => '��',
+'徫' => '��',
+'惉' => '��',
+'悹' => '��',
+'惌' => '��',
+'惢' => '��',
+'惎' => '��',
+'惄' => '��',
+'愔' => '��',
+'惲' => '聝',
+'愊' => '��',
+'愖' => '��',
+'愅' => '鹿',
+'惵' => '��',
+'愓' => '��',
+'惸' => '��',
+'惼' => '娾',
+'惾' => '��',
+'惁' => '��',
+'愃' => '��',
+'愘' => '��',
+'愝' => '��',
+'愐' => '��',
+'惿' => '��',
+'愄' => '��',
+'愋' => '��',
+'扊' => '��',
+'掔' => '��',
+'掱' => '��',
+'掰' => '蕘',
+'揎' => '碙',
+'揥' => '�W',
+'揨' => '�Z',
+'揯' => '�^',
+'揃' => '�B',
+'撝' => '��',
+'揳' => '�a',
+'揊\' => '�F',
+'揠' => '碆',
+'揶' => '睩',
+'揕' => '�L',
+'揲' => '碕',
+'揵' => '�b',
+'摡' => '��',
+'揟' => '�T',
+'掾' => '硻',
+'揝' => '�S',
+'揜' => '�R',
+'揄' => '碃',
+'揘' => '�N',
+'揓' => '�J',
+'揂' => '�A',
+'揇' => '�D',
+'揌' => '�H',
+'揋' => '�G',
+'揈' => '�E',
+'揰' => '箔',
+'揗' => '�M',
+'揙' => '�O',
+'攲' => '��',
+'敧' => '��',
+'敪' => '��',
+'敤' => '��',
+'敜' => '��',
+'敨' => '��',
+'敥' => '��',
+'斌' => '棄',
+'斝' => '��',
+'斞' => '��',
+'斮' => '��',
+'旐' => '簀',
+'旒' => '儤',
+'晼' => '��',
+'晬' => '��',
+'晻' => '��',
+'暀' => '做',
+'晱' => '��',
+'晹' => '��',
+'晪' => '��',
+'晲' => '��',
+'朁' => '��',
+'椌' => '��',
+'棓' => '��',
+'椄' => '��',
+'棜' => '��',
+'椪' => '��',
+'棬' => '��',
+'棪' => '��',
+'棱' => '濩',
+'椏' => '魤',
+'棖' => '駍',
+'棷' => '﹜',
+'棫' => '勷',
+'棤' => '��',
+'棶' => '��',
+'椓' => '��',
+'椐' => '擏',
+'棳' => '��',
+'棡' => '��',
+'椇' => '��',
+'棌' => '��',
+'椈' => '��',
+'楰' => '�K',
+'梴' => '�{',
+'椑' => '��',
+'棯' => '��',
+'棆' => '��',
+'椔' => '��',
+'棸' => '��',
+'棐' => '��',
+'棽' => '��',
+'棼' => '叡',
+'棨' => '��',
+'椋' => '憌',
+'椊' => '��',
+'椗' => '縪',
+'棎' => '��',
+'棈' => '��',
+'棝' => '��',
+'棞' => '��',
+'棦' => '��',
+'棴' => '��',
+'棑' => '��',
+'椆' => '��',
+'棔' => '��',
+'棩' => '��',
+'椕' => '��',
+'椥' => '��',
+'棇' => '��',
+'欹' => '鴠',
+'欻' => '�H',
+'欿' => '�K',
+'欼' => '�I',
+'殔' => '��',
+'殗' => '��',
+'殙' => '��',
+'殕' => '��',
+'殽' => '秎',
+'毰' => '��',
+'毲' => '��',
+'毳' => '諝',
+'氰' => 'я',
+'淼' => '穔',
+'湆' => '��',
+'湇' => '��',
+'渟' => '�s',
+'湉' => '��',
+'溈' => '蝂',
+'渼' => '��',
+'渽' => '��',
+'湅' => '��',
+'湢' => '��',
+'渫' => '颮',
+'渿' => '��',
+'湁' => '��',
+'湝' => '��',
+'湳' => '��',
+'渜' => '�q',
+'渳' => '�}',
+'湋' => '��',
+'湀' => '��',
+'湑' => '��',
+'渻' => '��',
+'渃' => '�c',
+'渮' => '監',
+'湞' => '銗',
+'湨' => '��',
+'湜' => '��',
+'湡' => '��',
+'渱' => '�|',
+'渨' => '�w',
+'湠' => '��',
+'湱' => '��',
+'湫' => '餇',
+'渹' => '��',
+'渢' => '�t',
+'渰' => '�{',
+'湓' => '馹',
+'湥' => '��',
+'渧' => '�v',
+'湸' => '��',
+'湤' => '��',
+'湷' => '��',
+'湕' => '��',
+'湹' => '��',
+'湒' => '��',
+'湦' => '��',
+'渵' => '�~',
+'渶' => '��',
+'湚' => '��',
+'焠' => '�n',
+'焞' => '�l',
+'焯' => '壏',
+'烻' => '�S',
+'焮\' => '�{',
+'焱' => '壒',
+'焣' => '陷',
+'焥' => '�s',
+'焢' => '�p',
+'焲' => '�|',
+'焟' => '�m',
+'焨' => '�u',
+'焺' => '��',
+'焛' => '�i',
+'牋' => '潦',
+'牚' => '��',
+'犈' => '��',
+'犉' => '��',
+'犆' => '��',
+'犅' => '��',
+'犋' => '蕖',
+'猒' => '泣',
+'猋' => '鴙',
+'猰' => '沸',
+'猢' => '漵',
+'猱' => '漅',
+'猳' => '油',
+'猧' => '波',
+'猲' => '泄',
+'猭' => '法',
+'猦' => '沼',
+'猣' => '沽',
+'猵' => '況',
+'猌' => '武',
+'琮' => '踦',
+'琬' => '踧',
+'琰' => '踙',
+'琫' => '枸',
+'琖' => '桮',
+'琚' => '鋡',
+'琡' => '柄',
+'琭' => '柏',
+'琱' => '蛐',
+'琤' => '枴',
+'琣' => '柑',
+'琝' => '枯\',
+'琩' => '查',
+'琠' => '柯',
+'琲' => '枰',
+'瓻' => '圃',
+'甯' => '撣',
+'畯' => '��',
+'畬' => '豱',
+'痧' => '貙',
+'痚' => '疾',
+'痡' => '疽',
+'痦' => '謺',
+'痝' => '症',
+'痟' => '疲',
+'痤' => '豂',
+'痗' => '畚',
+'皕' => '釙',
+'皒' => '釗',
+'盚' => '寄',
+'睆' => '��',
+'睇' => '蕻',
+'睄' => 'Ю',
+'睍' => '��',
+'睅' => '��',
+'睊' => '��',
+'睎' => '��',
+'睋' => '��',
+'睌' => '��',
+'矞' => '��',
+'矬' => '瀀',
+'硠' => '��',
+'硤' => '篱',
+'硥' => '��',
+'硜' => '��',
+'硭' => '篰',
+'硱' => '��',
+'硪' => '繂',
+'确' => '��',
+'硰' => '��',
+'硩' => '��',
+'硨' => '簅',
+'硞' => '��',
+'硢' => '��',
+'祴' => '��',
+'祳' => '��',
+'祲' => '��',
+'祰' => '��',
+'稂' => '爃',
+'稊' => '��',
+'稃' => '燹',
+'稌' => '��',
+'稄' => '��',
+'窙' => '��',
+'竦' => '騊',
+'竤' => '群',
+'筊' => '鄗',
+'笻' => '違',
+'筄' => '逾',
+'筈' => '鄒',
+'筌' => '鶈',
+'筎' => '酪',
+'筀' => '遏',
+'筘' => '鵷',
+'筅' => '鶊',
+'粢' => '譣',
+'粞' => '譨',
+'粨' => '��',
+'粡' => '��',
+'絘' => '窮',
+'絯' => '緩',
+'絣' => '締',
+'絓' => '穀\',
+'絖' => '膟',
+'絧' => '緘',
+'絪' => '編',
+'絏' => '蟡',
+'絭' => '緞',
+'絜' => '賞',
+'絫' => '緣',
+'絒' => '稼',
+'絔' => '稽',
+'絩' => '緝',
+'絑' => '稿',
+'絟' => '篁',
+'絎' => '蝚',
+'缾' => 'せ',
+'缿' => '��',
+'罥' => '禪',
+'罦' => '穗',
+'羢' => '��',
+'羠' => '臆',
+'羡' => '畈',
+'翗' => '��',
+'聑' => '璧',
+'聏' => '獷',
+'聐' => '獵',
+'胾' => '瀨',
+'胔' => '懷',
+'腃' => '饅',
+'腊' => '幫',
+'腒' => '鯛',
+'腏' => '鯖',
+'腇' => '騙',
+'脽' => '��',
+'腍' => '鯨',
+'脺' => '毯',
+'臦' => '霸',
+'臮' => '顧',
+'臷' => '髏\',
+'臸' => '魔',
+'臹' => '魑',
+'舄' => '籅',
+'舼' => '疊',
+'舽' => '癮',
+'舿' => '癬',
+'艵' => '靂',
+'茻\' => '��',
+'菏' => '監',
+'菹' => '椿',
+'萣' => '�b',
+'菀' => '椹',
+'菨' => '��',
+'萒' => '�T',
+'菧' => '��',
+'菤' => '��',
+'菼' => '�I',
+'菶' => '�E',
+'萐' => '�S',
+'菆' => '��',
+'菈' => '��',
+'菫' => '��',
+'菣' => '��',
+'莿' => '��',
+'萁' => '斒',
+'菝' => '暋',
+'菥' => '旓',
+'菘' => '暆',
+'菿' => '�K',
+'菡' => '楙',
+'菋' => '��',
+'菎' => '��',
+'菖' => '暙',
+'菵' => '�D',
+'菉' => '蟯',
+'萉' => '�Q',
+'萏' => '楎',
+'菞' => '��',
+'萑' => '朠',
+'萆' => '楦',
+'菂' => '��',
+'菳' => '�B',
+'菕' => '��',
+'菺' => '�G',
+'菇' => '厭',
+'菑' => '婐',
+'菪' => '楅',
+'萓' => '�U',
+'菃' => '��',
+'菬' => '��',
+'菮' => '�@',
+'菄' => '��',
+'菻' => '�H',
+'菗' => '��',
+'菢' => '惕',
+'萛' => '�\\',
+'菛' => '��',
+'菾' => '�J',
+'蛘' => '藑',
+'蛢' => '��',
+'蛦' => '��',
+'蛓' => '盵',
+'蛣' => '奱',
+'蛚' => '矻',
+'蛪' => '��',
+'蛝' => '��',
+'蛫' => '��',
+'蛜' => '矺',
+'蛬' => '��',
+'蛩' => '藨',
+'蛗' => '矹',
+'蛨' => '��',
+'蛑' => '藰',
+'衈' => '胣',
+'衖' => '讀',
+'衕' => '肮',
+'袺' => '標',
+'裗' => '娮',
+'袹' => '埌',
+'袸' => '圂',
+'裀' => '垽',
+'袾' => '垺',
+'袶' => '圁',
+'袼' => '鮶',
+'袷' => '鯓',
+'袽' => '埒',
+'袲' => '哠',
+'褁' => '庬',
+'裉' => '鯄',
+'覕' => '╰',
+'覘' => '膱',
+'覗' => '��',
+'觝' => '萋',
+'觚' => '蘞',
+'觛' => '耾',
+'詎' => '琲',
+'詍' => '勖',
+'訹' => '倕',
+'詙' => '啢',
+'詀' => '偤',
+'詗' => '唪',
+'詘' => '痚',
+'詄' => '偳',
+'詅' => '偗',
+'詒' => '痡',
+'詈' => '蹎',
+'詑' => '啵',
+'詊' => '剭',
+'詌' => '剮',
+'詏' => '匭',
+'豟' => '兟',
+'貁' => '喡',
+'貀' => '喕',
+'貺' => '縔',
+'貾' => '愋',
+'貰' => '縍',
+'貹' => '愘',
+'貵' => '惼',
+'趄' => '鐍',
+'趀' => '焛',
+'趉' => '犅',
+'跘' => '羢',
+'跓' => '��',
+'跍' => '��',
+'跇' => '��',
+'跖' => '嚽',
+'跜' => '羡',
+'跏' => '巏',
+'跕' => '罦',
+'跙' => '羠',
+'跈' => '��',
+'跗' => '嚾',
+'跅' => '��',
+'軯' => '寙',
+'軷' => '嵬',
+'軺' => '澥',
+'軹' => '澽',
+'軦' => '嫀',
+'軮' => '寘',
+'軥' => '媷',
+'軵' => '嵥',
+'軧' => '嫊',
+'軨' => '媴',
+'軶' => '濎',
+'軫' => '濊',
+'軱' => '尳',
+'軬' => '媐',
+'軴' => '嵊',
+'軩' => '媶',
+'逭' => '槢',
+'逴' => '筰',
+'逯' => '樛',
+'鄆' => '菮',
+'鄬' => '��',
+'鄄' => '蛢',
+'郿' => '趔',
+'郼' => '趓',
+'鄈' => '跮',
+'郹' => '趎',
+'郻' => '趍',
+'鄁' => '缿',
+'鄀' => '趐',
+'鄇' => '跱',
+'鄅' => '跠',
+'鄃\' => '跰',
+'酡' => '鶔',
+'酤' => '鏿',
+'酟' => '嘏',
+'酢' => '鶠',
+'酠' => '嘜',
+'鈁' => '鍜',
+'鈊' => '歍',
+'鈥' => '鍐',
+'鈃' => '榗',
+'鈚' => '漮',
+'鈦' => '鍖',
+'鈏' => '毃',
+'鈌' => '殞',
+'鈀' => '鍑',
+'鈒' => '滎',
+'釿' => '榪',
+'釽' => '榳',
+'鈆' => 'レ',
+'鈄' => '鍉',
+'鈧' => '鍶',
+'鈂' => '槙\',
+'鈜' => '潎',
+'鈤' => '漊',
+'鈙' => '滻',
+'鈗' => '滸',
+'鈅' => '埥',
+'鈖' => '漥',
+'镻' => '壆',
+'閍' => '嶧',
+'閌' => '蒘',
+'閐' => '嶮',
+'隇' => '��',
+'陾' => '��',
+'隈' => '絪',
+'隉' => '絣',
+'隃' => '��',
+'隀' => '��',
+'雂' => '蝹',
+'雈' => '螣',
+'雃' => '螇',
+'雱' => '��',
+'雰' => '煬',
+'靬' => '鮂',
+'靰' => '魺',
+'靮' => '鮒',
+'頇' => '嬿',
+'颩' => '餬',
+'飫' => '熏',
+'鳦' => '讈',
+'黹' => '臄',
+'亃' => '�z',
+'亄' => '�{',
+'亶' => '��',
+'傽' => '�@',
+'傿' => '�B',
+'僆' => '�I',
+'傮' => '��',
+'僄' => '�G',
+'僊' => '珈',
+'傴' => '嵅',
+'僈' => '�K',
+'僂' => '棎',
+'傰' => '��',
+'僁' => '�D',
+'傺' => '棦',
+'傱' => '��',
+'僋' => '�N',
+'僉' => '欼',
+'傶' => '��',
+'傸' => '��',
+'凗' => '��',
+'剺' => '��',
+'剸' => '��',
+'剻' => '��',
+'剼' => '��',
+'嗃' => '��',
+'嗛' => '��',
+'嗌' => '鉓',
+'嗐' => '��',
+'嗋' => '��',
+'嗊' => '��',
+'嗝' => '鈱',
+'嗀' => '��',
+'嗔' => '鉡',
+'嗄' => '鉔',
+'嗩' => '蜍',
+'喿' => '��',
+'嗒' => '鄋',
+'喍' => '��',
+'嗏' => '��',
+'嗕' => '��',
+'嗢' => '��',
+'嗖' => '鉦',
+'嗈' => '��',
+'嗲' => '鉲',
+'嗍' => '鉌',
+'嗙' => '��',
+'嗂' => '��',
+'圔' => '�B',
+'塓' => '�Q',
+'塨' => '�b',
+'塤' => '跕',
+'塏' => '趀',
+'塍' => '鋹',
+'塉' => '�J',
+'塯' => '�g',
+'塕' => '�R',
+'塎' => '�M',
+'塝' => '�Y',
+'塙' => '��',
+'塥' => '靰',
+'塛' => '�W',
+'堽' => '詳',
+'塣' => '�^',
+'塱' => '�i',
+'壼' => '��',
+'嫇' => '��',
+'嫄' => '��',
+'嫋' => '蘅',
+'媺' => '��',
+'媸' => '磉',
+'媱' => '��',
+'媵' => '鋷',
+'媰' => '��',
+'媿' => '壕',
+'嫈' => '��',
+'媻' => '��',
+'嫆' => '��',
+'媷' => '��',
+'嫀' => '��',
+'嫊' => '��',
+'媴' => '��',
+'媶' => '��',
+'嫍' => '��',
+'媹' => '��',
+'媐' => '�f',
+'寖' => '輞',
+'寘' => '离',
+'寙' => '��',
+'尟' => '珅',
+'尳' => '��',
+'嵱' => '��',
+'嵣' => '��',
+'嵊' => '慪',
+'嵥' => '��',
+'嵲' => '��',
+'嵬' => '慴',
+'嵞' => '��',
+'嵨' => '昶',
+'嵧' => '��',
+'嵢' => '��',
+'巰' => '裉',
+'幏' => '��',
+'幎' => '蹶',
+'幊' => '��',
+'幍' => '��',
+'幋\' => '��',
+'廅' => '��',
+'廌' => '�D',
+'廆' => '�@',
+'廋' => '�C',
+'廇' => '�A',
+'彀' => '麆',
+'徯' => '��',
+'徭' => '撂',
+'惷' => '替',
+'慉' => '�A',
+'慊' => '蒚',
+'愫' => '蒪',
+'慅' => '��',
+'愶' => '��',
+'愲' => '��',
+'愮' => '��',
+'慆' => '��',
+'愯' => '��',
+'慏' => '�D',
+'愩' => '��',
+'慀' => '��',
+'戠' => '��',
+'酨' => '嘂',
+'戣' => '��',
+'戥' => '磠',
+'戤' => '禤',
+'揅' => '�C',
+'揱' => '�`',
+'揫' => '噢',
+'搐' => '握',
+'搒' => '埤',
+'搉' => '�n',
+'搠' => '稑',
+'搤' => '塭',
+'搳' => '��',
+'摃' => '蕈',
+'搟' => '�{',
+'搕' => '�t',
+'搘' => '�w',
+'搹' => '塭',
+'搷' => '��',
+'搢' => '�|',
+'搣' => '�}',
+'搌' => '稘',
+'搦' => '稙',
+'搰' => '��',
+'搨' => '阹',
+'摁' => '禂',
+'搵' => '��',
+'搯' => '��',
+'搊' => '昅',
+'搚' => '�y',
+'摀' => '拰',
+'搥' => '晰',
+'搧' => '圮',
+'搋' => '祽',
+'揧' => '�Y',
+'搛' => '祹',
+'搮' => '��',
+'搡' => '稒',
+'搎' => '�q',
+'敯' => '��',
+'斒' => '唯',
+'旓' => '��',
+'暆' => '��',
+'暌' => '縓',
+'暕' => '��',
+'暐' => '��',
+'暋' => '��',
+'暊' => '��',
+'暙' => '��',
+'暔' => '��',
+'晸' => '��',
+'朠' => '�P',
+'楦' => '曏',
+'楟' => '��',
+'椸' => '��',
+'楎' => '��',
+'楢' => '�A',
+'楱' => '擉',
+'椿' => '暑',
+'楅' => '��',
+'楪' => '�G',
+'椹' => '撽',
+'楂' => '擃',
+'楗' => '擖',
+'楙' => '��',
+'楺' => '�Q',
+'楈' => '��',
+'楉' => '��',
+'椵' => '��',
+'楬' => '�H',
+'椳' => '��',
+'椽' => '揪',
+'楥' => '曏',
+'棰' => '憸',
+'楸' => '敼',
+'椴' => '斢',
+'楩' => '�F',
+'楀' => '��',
+'楯' => '�J',
+'楄' => '��',
+'楶' => '�P',
+'楘' => '��',
+'楁' => '��',
+'楴' => '�N',
+'楌' => '��',
+'椻' => '��',
+'楋' => '��',
+'椷' => '澎',
+'楜' => '��',
+'楏' => '��',
+'楑' => '��',
+'椲' => '��',
+'楒' => '��',
+'椯' => '��',
+'楻' => '�R',
+'椼' => '��',
+'歆' => '鴔',
+'歅' => '�P',
+'歃' => '鴞',
+'歂' => '�N',
+'歈' => '�Q',
+'歁' => '�M',
+'殛' => '濋',
+'嗀' => '�A',
+'毻' => '��',
+'毼' => '��',
+'毹' => '諟',
+'毷' => '��',
+'毸' => '��',
+'溛' => '��',
+'滖' => '��',
+'滈' => '��',
+'溏' => '儃',
+'滀' => '��',
+'溟' => '僸',
+'溓' => '��',
+'溔' => '��',
+'溠' => '��',
+'溱' => '骱',
+'溹' => '咁',
+'滆' => '��',
+'滒' => '��',
+'溽' => '魟',
+'滁' => '壹',
+'溞' => '��',
+'滉' => '��',
+'溷' => '鳲',
+'溰' => '馬',
+'滍' => '��',
+'溦' => '��',
+'滏' => '僿',
+'溲' => '馝',
+'溾' => '��',
+'滃' => '��',
+'滜\' => '��',
+'滘' => '��',
+'溙' => '��',
+'溒' => '��',
+'溎' => '��',
+'溍' => '��',
+'溤' => '��',
+'溡' => '��',
+'溿' => '��',
+'溳' => '��',
+'滐' => '��',
+'滊' => '��',
+'溗' => '��',
+'溮' => '��',
+'溣' => '��',
+'煇' => '閩',
+'煔' => '��',
+'煒' => '勴',
+'煣' => '��',
+'煠' => '��',
+'煁' => '��',
+'煝' => '��',
+'煢' => '塤',
+'煲' => '嬬',
+'煸' => '嬦',
+'煪' => '��',
+'煡' => '��',
+'煂' => '��',
+'煘' => '��',
+'煃' => '��',
+'煋' => '��',
+'煰' => '��',
+'煟' => '��',
+'煐' => '��',
+'煓' => '��',
+'煄' => '��',
+'煍' => '��',
+'煚' => '��',
+'牏' => '��',
+'犍' => '蕅',
+'犌' => '��',
+'犑' => '��',
+'犐' => '��',
+'犎' => '��',
+'猼' => '泱',
+'獂' => '泛',
+'猻' => '暟',
+'猺' => '泗',
+'獀' => '治',
+'獊' => '��',
+'獉' => '暺',
+'瑄' => '泉',
+'瑊' => '洌',
+'瑋' => '誺',
+'瑒' => '��',
+'瑑' => '��',
+'瑗' => '镼',
+'瑀' => '毒',
+'瑏' => '��',
+'瑐' => '��',
+'瑎' => '��',
+'瑂' => '毗',
+'瑆' => '洲',
+'瑍' => '洗',
+'瑔' => '��',
+'瓡' => '��',
+'瓿' => '窸',
+'瓾' => '埔',
+'瓽' => '埂',
+'甝' => '孫',
+'畹' => '豯',
+'畷' => '��',
+'榃' => '�W',
+'痯' => '皰',
+'瘏' => '��',
+'瘃' => '貘',
+'痷' => '真',
+'痾' => '謼',
+'痼' => '賾',
+'痹' => '敘',
+'痸' => '眠',
+'瘐' => '贂',
+'痻' => '矩',
+'痶' => '眩',
+'痭' => '疸',
+'痵' => '盎',
+'痽' => '砰',
+'皙' => '薵',
+'皵' => '��',
+'盝' => '宿',
+'睕' => '��',
+'睟' => '氫',
+'睠' => '樺',
+'睒' => '��',
+'睖' => '��',
+'睚' => '薚',
+'睩' => '淙',
+'睧' => '淳',
+'睔' => '��',
+'睙' => '��',
+'睭' => '淡',
+'矠' => '��',
+'碇' => '縪',
+'碚' => '縸',
+'碔' => '富',
+'碏' => '孳',
+'碄' => '婷',
+'碕' => '寓',
+'碅' => '媚',
+'碆' => '婿',
+'碡' => '繀',
+'碃' => '��',
+'硹' => '��',
+'碙' => '尊',
+'碀' => '��',
+'碖' => '寐',
+'硻' => '��',
+'祼' => '��',
+'禂' => '��',
+'祽' => '��',
+'祹' => '��',
+'稑' => '��',
+'稘' => '��',
+'稙' => '��',
+'稒' => '��',
+'稗' => '啕',
+'稕' => '��',
+'稢' => '嵩',
+'稓' => '��',
+'稛' => '��',
+'稐' => '��',
+'窣' => '睹',
+'窢' => '��',
+'窞' => '袼',
+'竫' => '腱',
+'筦' => '奪',
+'筤' => '鉋',
+'筭' => '呾',
+'筴' => '翎',
+'筩' => '芠',
+'筲' => '鶌',
+'筥' => '鉤',
+'筳' => '隔',
+'筱' => '鵽',
+'筰' => '隘',
+'筡' => '鈾\',
+'筸' => '雋',
+'筶' => '雍',
+'筣' => '鉛',
+'粲' => '譥',
+'粴' => '��',
+'粯' => '��',
+'綈' => '蝪',
+'綆' => '蝞',
+'綀' => '��',
+'綍' => '蝔',
+'絿' => '��',
+'綅\' => '��',
+'絺' => '��',
+'綎' => '��',
+'絻' => '��',
+'綃' => '蝭',
+'絼' => '��',
+'綌' => '��',
+'綔' => '��',
+'綄' => '��',
+'絽' => '��',
+'綒' => '��',
+'罭' => '篾',
+'罫' => '簇',
+'罧' => '窿',
+'罨' => '蹍',
+'罬' => '簍',
+'羦' => '臀',
+'羥' => '蠗',
+'羧' => '蠓',
+'翛' => '��',
+'翜' => '��',
+'耡' => '堝',
+'腤' => '嚷',
+'腠' => '錍',
+'腷' => '懺',
+'腜' => '鵬',
+'腩' => '鋋',
+'腛' => '鵪',
+'腢' => '勸',
+'腲' => '孽',
+'朡' => '�Q',
+'腞' => '麗',
+'腶' => '懸',
+'腧' => '錓',
+'腯' => '孃',
+'腄' => '饉',
+'腡' => '錆',
+'舝' => '巒',
+'艉' => '蘁',
+'艄' => '藿',
+'艀' => '��',
+'艂' => '��',
+'艅' => '��',
+'蓱' => 'げ',
+'萿' => '�u',
+'葖' => '��',
+'葶' => '楯',
+'葹' => '��',
+'蒏' => '屮',
+'蒍' => '兀',
+'葥' => '��',
+'葑' => '楈',
+'葀' => '�v',
+'蒆' => '亍',
+'葧' => '��',
+'萰' => '�j',
+'葍' => '��',
+'葽' => '乂',
+'葚' => '楉',
+'葙' => '椵',
+'葴' => '��',
+'葳' => '楬',
+'葝' => '��',
+'蔇' => '犵',
+'葞' => '��',
+'萷' => 'е',
+'萺' => '�r',
+'萴' => '�m',
+'葺' => '楥',
+'葃' => '�y',
+'葸' => '楸',
+'萲' => '�k',
+'葅' => '�{',
+'萩' => '�c',
+'菙' => '��',
+'葋' => '��',
+'萯' => '�i',
+'葂' => '�x',
+'萭' => '�g',
+'葟' => '��',
+'葰' => '��',
+'萹' => '�q',
+'葎' => '��',
+'葌' => '��',
+'葒' => '搹',
+'葯' => '狻',
+'蓅' => '宄',
+'蒎' => '楶',
+'萻' => '�s',
+'葇' => '�|',
+'萶' => '�o',
+'萳' => '�l',
+'葨' => '��',
+'葾' => '殲',
+'葄' => '�z',
+'萫' => '�e',
+'葠' => '統',
+'葔' => '��',
+'葮' => '楁',
+'葐' => '��',
+'蜋' => '譖',
+'蜄' => '��',
+'蛷' => '��',
+'蜌' => '��',
+'蛺' => '藚',
+'蛖' => '矼',
+'蛵' => '��',
+'蝍' => '奓',
+'蛸' => '藞',
+'蜎' => '��',
+'蜉' => '蠃',
+'蜁' => '��',
+'蛶' => '��',
+'蜍' => '蟺',
+'蜅' => '��',
+'裖' => '娭',
+'裋' => '埐',
+'裍' => '埁',
+'裎' => '鮽',
+'裞' => '娞',
+'裛' => '娏',
+'裚' => '娕',
+'裌' => '標',
+'裐' => '奊',
+'覅' => '��',
+'覛' => '��',
+'觟' => '胺',
+'觥' => '騿',
+'觤' => '脁',
+'觡' => '胹',
+'觠' => '胲',
+'觢' => '胵',
+'觜' => '蘥',
+'触' => '揖',
+'詶' => '��',
+'誆' => '痦',
+'詿' => '痟',
+'詡' => '睄',
+'訿' => '鬗',
+'詷' => '��',
+'誂' => '崒',
+'誄' => '痝',
+'詵' => '皕',
+'誃' => '崣',
+'誁' => '崰',
+'詴' => '��',
+'詺' => '��',
+'谼' => '镺',
+'豋' => '飥',
+'豊' => '頄',
+'豥' => '厤',
+'豤' => '匑',
+'豦' => '厧',
+'貆' => '堩',
+'貄' => '圌',
+'貅' => '蘙',
+'賌' => '揶',
+'赨\' => '渵',
+'赩' => '渶',
+'趑' => '鐀',
+'趌' => '犋',
+'趎' => '猋',
+'趏' => '猰',
+'趍' => '猒',
+'趓' => '猳',
+'趔' => '鏵',
+'趐' => '猢',
+'趒' => '猱',
+'跰' => '錧',
+'跠' => '翗',
+'跬' => '攛',
+'跱' => '腇',
+'跮' => '腒',
+'跐' => '��',
+'跩' => '腃',
+'跣' => '欃',
+'跢' => '聏',
+'跧' => '胔',
+'跲' => '脽',
+'跫' => '齞',
+'跴' => '笮',
+'輆' => '廇',
+'軿' => '幊',
+'輁' => '幋\',
+'輀' => '幍',
+'輅' => '澪',
+'輇' => '澬',
+'輈' => '徯',
+'輂' => '廅',
+'輋' => '慉',
+'遒' => '樧',
+'逿' => '粲',
+'遄' => '樝',
+'遉' => '淈',
+'逽' => '筣',
+'鄐' => '跴',
+'鄍' => '跧',
+'鄏' => '跫',
+'鄑' => '輆',
+'鄖' => '堌',
+'鄔' => '絑',
+'鄋' => '跣',
+'鄎' => '跲',
+'酮' => '耵',
+'酯' => '鶗',
+'鉈' => '鍞',
+'鉒' => '窬',
+'鈰' => '鍻',
+'鈺' => '鍠',
+'鉦' => '鍭',
+'鈳' => '鍌',
+'鉥' => '粿',
+'鉞' => '鍕',
+'銃' => '鴷',
+'鈮' => '鍧',
+'鉊' => '稫',
+'鉆' => '郰',
+'鉭' => '鍏',
+'鉬' => '鍒',
+'鉏' => '堝',
+'鉠' => '劄',
+'鉧' => '粺',
+'鉯' => '緅',
+'鈶' => '��',
+'鉡' => '箙',
+'鉰' => '綝',
+'鈱' => '��',
+'鉔' => '箈',
+'鉣' => '箂',
+'鉐' => '窨',
+'鉲' => '鼢',
+'鉎' => '稨',
+'鉓' => '竮',
+'鉌' => '稰',
+'鉖' => '箊',
+'鈲' => '��',
+'閟' => '廥',
+'閜' => '廧',
+'閞' => '廨',
+'閛' => '廩',
+'隒' => '蕁',
+'隓' => '蕢',
+'隑' => '蕤',
+'隗' => '絭',
+'雎' => '鷈',
+'雺' => '��',
+'雽' => '��',
+'雸' => '��',
+'雵' => '��',
+'靳' => '輟',
+'靷' => '��',
+'靸' => '��',
+'靲' => '��',
+'頏' => '幰',
+'頍' => '��',
+'頎' => '巃',
+'颬' => '餲',
+'飶' => '��',
+'飹' => '��',
+'馯' => '鎒',
+'馲' => '鎝',
+'馰' => '鎷',
+'馵' => '鎎',
+'骭' => '醭',
+'骫' => '鄿',
+'魛' => '��',
+'鳪' => '轤',
+'鳭' => '鑢',
+'鳧' => '溈',
+'麀' => '�~',
+'黽' => '鶻',
+'僦' => '棩',
+'僔' => '�V',
+'僗' => '�X',
+'僨' => '棽',
+'僳' => '咇',
+'僛' => '�[',
+'僪' => '�h',
+'僝' => '�]',
+'僤' => '�d',
+'僓' => '�U',
+'僬' => '棔',
+'僰' => '�k',
+'僯' => '�j',
+'僣' => '椆',
+'僠' => '�`',
+'凘' => '�@',
+'劀' => '��',
+'劁' => '崺',
+'勩' => '��',
+'勫' => '��',
+'匰' => '�S',
+'厬' => '��',
+'嘧' => '雽',
+'嘕' => '�J',
+'嘌' => '隒',
+'嘒' => '�G',
+'嗼' => '��',
+'嘏' => '媗',
+'嘜' => '蝍',
+'嘁' => '隓',
+'嘓' => '�H',
+'嘂' => '��',
+'嗺' => '��',
+'嘝' => '�P',
+'嘄' => '��',
+'嗿' => '��',
+'嗹' => '��',
+'墉' => '颩',
+'塼' => '�t',
+'墐' => '��',
+'墘' => '��',
+'墆' => '�y',
+'墁' => '頇',
+'塿\' => '�v',
+'塴' => '隉',
+'墋' => '�}',
+'塺' => '�r',
+'墇' => '�z',
+'墑' => '圴',
+'墎' => '��',
+'塶' => '�n',
+'墂' => '�w',
+'墈' => '�{',
+'塻' => '�s',
+'墔' => '��',
+'墏' => '��',
+'壾' => '��',
+'奫' => '�[',
+'嫜' => '歶',
+'嫮' => '��',
+'嫥' => '��',
+'嫕' => '��',
+'嫪' => '��',
+'嫚' => '��',
+'嫭' => '��',
+'嫫' => '磔',
+'嫳' => '��',
+'嫢' => '��',
+'嫠' => '禚',
+'嫛' => '��',
+'嫬' => '��',
+'嫞' => '��',
+'嫝' => '��',
+'嫙' => '��',
+'嫨' => '��',
+'嫟' => '��',
+'孷' => '糒',
+'寠' => '��',
+'寣' => '��',
+'屣' => '樖',
+'嶂' => '戩',
+'嶀' => '��',
+'嵽' => '��',
+'嶆' => '��',
+'嵺' => '��',
+'嶁' => '慛',
+'嵷' => '��',
+'嶊' => '��',
+'嶉' => '��',
+'嶈' => '��',
+'嵾' => '統',
+'嵼' => '��',
+'嶍' => '��',
+'嵹' => '��',
+'嵿' => '��',
+'幘' => '僣',
+'幙' => '躉',
+'幓' => '��',
+'廘' => '�L',
+'廑' => '瘈',
+'廗' => '�K',
+'廎' => '�F',
+'廜' => '�O',
+'廕' => '秭',
+'廙' => '�M',
+'廒' => '瘖',
+'廔' => '�I',
+'彄' => '��',
+'彃' => '��',
+'彯' => '��',
+'徶' => '��',
+'愬' => '咂',
+'愨' => '磻',
+'慁' => '��',
+'慞' => '�P',
+'慱' => '�_',
+'慳' => '膆',
+'慒' => '�F',
+'慓' => '�G',
+'慲' => '�`',
+'慬' => '�[',
+'憀' => '�l',
+'慴' => '扤',
+'慔' => '�H',
+'慺' => '�f',
+'慛' => '�N',
+'慥' => '�V',
+'愻' => '��',
+'慪' => '睮',
+'慡' => '�S',
+'慖' => '�I',
+'戩' => '穄',
+'戧' => '磛',
+'戫' => '��',
+'搫' => '唸',
+'摍' => '��',
+'摛' => '��',
+'摝' => '��',
+'摴' => '��',
+'摶' => '痭',
+'摲' => '��',
+'摳' => '諭',
+'摽' => '��',
+'摵' => '��',
+'摦' => '��',
+'撦' => '雀',
+'摎' => '��',
+'撂' => '賻',
+'摞' => '稗',
+'摜' => '碄',
+'摋' => '��',
+'摓' => '��',
+'摠' => '��',
+'摐' => '��',
+'摿' => '��',
+'搿' => '諢',
+'摬' => '��',
+'摫' => '��',
+'摙' => '��',
+'摥' => '��',
+'摷' => '��',
+'敳' => '��',
+'斠' => '��',
+'暡' => '��',
+'暠' => '��',
+'暟' => '��',
+'朅' => '�A',
+'朄' => '�@',
+'朢' => '咡',
+'榱' => '橧',
+'榶' => '�y',
+'槉' => '��',
+'榠' => '�i',
+'槎' => '曊',
+'榖' => '�b',
+'榰' => '�u',
+'榬' => '�r',
+'榼' => '�}',
+'榑' => '�_',
+'榙' => '�d',
+'榎' => '�\\',
+'榧' => '曌',
+'榍' => '橶',
+'榩' => '�p',
+'榾' => '��',
+'榯' => '�t',
+'榿' => '鳿',
+'槄' => '��',
+'榽' => '�~',
+'榤' => '�m',
+'槔' => '橉',
+'榹' => '�{',
+'槊' => '橨',
+'榚' => '�e',
+'槏' => '��',
+'榳' => '�w',
+'榓' => '�a',
+'榪' => '餈',
+'榡' => '�j',
+'榞' => '�g',
+'槙\' => '��',
+'榗' => '�c',
+'榐' => '�^',
+'槂' => '��',
+'榵' => '�x',
+'榥' => '�n',
+'槆' => '╰',
+'歊' => '╰',
+'歍' => '�T',
+'歋' => '�S',
+'殞' => '氄',
+'殟' => '��',
+'殠' => '��',
+'毃' => '��',
+'毄' => '��',
+'毾' => '��',
+'滎' => '嫆',
+'滵' => '�D',
+'滱' => '�A',
+'漃' => '�P',
+'漥' => '�j',
+'滸' => '銊',
+'漷' => '�t',
+'滻' => '�I',
+'漮' => '�o',
+'漉' => '勯',
+'潎' => '��',
+'漙' => '�`',
+'漚' => '鬚',
+'漧' => '補',
+'漘' => '�_',
+'漻' => '�x',
+'漒' => '�\\',
+'滭' => '��',
+'漊' => '�U',
+'漶' => '儊',
+'潳' => '��',
+'滹' => '儌',
+'滮' => '��',
+'漭' => '鬾',
+'潀' => '�|',
+'漰' => '�p',
+'漼' => '�y',
+'漵' => '駃',
+'滫' => '��',
+'漇' => '�S',
+'漎' => '�Y',
+'潃' => '��',
+'漅' => '�R',
+'滽' => '�K',
+'滶' => '�E',
+'漹' => '�v',
+'漜' => '�c',
+'滼' => '�J',
+'漺' => '�w',
+'漟' => '�f',
+'漍' => '�X',
+'漞' => '�e',
+'漈' => '�T',
+'漡' => '�g',
+'熇' => '��',
+'熐' => '��',
+'熉' => '��',
+'熀' => '��',
+'熅' => '��',
+'熂' => '��',
+'熏' => '悇',
+'煻' => '��',
+'熆' => '��',
+'熁' => '��',
+'熗' => '嚌',
+'牄' => '��',
+'牓' => '埤',
+'犗' => '��',
+'犕' => '��',
+'犓' => '��',
+'獃' => '渭',
+'獍' => '滶',
+'獑' => '��',
+'獌' => '��',
+'瑢' => '��',
+'瑳' => '��',
+'瑱' => '��',
+'瑵' => '��',
+'瑲' => '��',
+'瑧' => '��',
+'瑮' => '��',
+'甀' => '埋',
+'甂' => '堉',
+'甃' => '夏',
+'畽' => '貕',
+'疐' => '涌',
+'瘖' => '鈳',
+'瘈' => '��',
+'瘌' => '蹢',
+'瘕' => '蹥',
+'瘑' => '��',
+'瘊' => '蹗',
+'瘔' => '��',
+'皸' => '鼥',
+'瞁' => '淵',
+'睼' => '混',
+'瞅' => '圍',
+'瞂' => '淅',
+'睮' => '淌',
+'瞀' => '謢',
+'睯' => '淤',
+'睾' => '媞',
+'瞃' => '淒',
+'碲' => '縩',
+'碪' => '涷',
+'碴' => '舂',
+'碭' => '竀',
+'碨' => '巽',
+'硾' => '��',
+'碫' => '幀',
+'碞' => '就',
+'碥' => '縰',
+'碠' => '嵌',
+'碬' => '幃',
+'碢' => '篸',
+'碤' => '崴',
+'禘' => '診',
+'禊' => '檛',
+'禋' => '��',
+'禖' => '詆',
+'禕' => '詐',
+'禔' => '詛',
+'禓' => '詔',
+'禗' => '訴',
+'禈' => '��',
+'禒' => '��',
+'禐' => '��',
+'稫' => '徬',
+'穊' => '搓',
+'稰' => '感',
+'稯' => '慈',
+'稨' => '廈',
+'稦' => '幹',
+'窨' => '鬵',
+'窫' => '睨',
+'窬' => '鬩',
+'竮' => '腸',
+'箈' => '頑',
+'箜' => '鵯',
+'箊' => '頊',
+'箑' => '��',
+'箐' => '鵫',
+'箖' => '��',
+'箍' => '嘀',
+'箌' => '頌',
+'箛' => '��',
+'箎' => '齁',
+'箅' => '鵻',
+'箘' => '��',
+'劄' => '崥',
+'箙' => '��',
+'箤\' => '��',
+'箂' => '零',
+'粻' => '��',
+'粿' => '劇',
+'粼' => '譧',
+'粺' => '啕',
+'綧' => '醃',
+'綷' => '閱\',
+'緂' => '頜',
+'綣' => '蝜',
+'綪' => '銷',
+'緁' => '頫',
+'緀' => '頡',
+'緅' => '餓',
+'綝' => '遭',
+'緎' => '駒',
+'緄' => '蝯',
+'緆' => '餒',
+'緋' => '蝟',
+'緌' => '駑',
+'綯' => '鋁',
+'綹' => '蝮',
+'綖' => '��',
+'綼' => '靠',
+'綟' => '鄰',
+'綦' => '鐏',
+'綮' => '鐔',
+'綩' => '銻',
+'綡' => '鄧',
+'緉' => '駐',
+'罳' => '篠',
+'翢' => '��',
+'翣' => '��',
+'翥' => '醷',
+'翞' => '��',
+'耤' => '檬',
+'聝' => '毳',
+'聜' => '��',
+'膉' => '瀰',
+'膆' => '櫬',
+'膃' => '鋺',
+'膇' => '瀾',
+'膍' => '獻',
+'膌' => '爐',
+'膋' => '瀲',
+'舕' => '儻',
+'蒗' => '歆',
+'蒤' => '尐\',
+'蒡' => '椯',
+'蒟' => '厹',
+'蒺' => '椲',
+'蓎' => '庀',
+'蓂' => '夯',
+'蒬' => '丼',
+'蒮' => '仜',
+'蒫' => '丱',
+'蒹' => '楻',
+'蒴' => '椼',
+'蓁' => '楴',
+'蓍' => '楌',
+'蒪' => '爿',
+'蒚' => '仈',
+'蒱' => '仡',
+'蓐' => '椻',
+'蒝' => '勼',
+'蒧' => '殳',
+'蒻' => '卌',
+'蒢' => '夃',
+'蒔' => '搌',
+'蓇' => '尻',
+'蓌' => '帄',
+'蒛' => '冘',
+'蒩' => '椿',
+'蒯' => '嵎',
+'蒨' => '塉',
+'蓖' => '敝',
+'蒘' => '仉',
+'蒶' => '刌',
+'蓏' => '庂',
+'蒠' => '圠',
+'蓗' => '氕',
+'蓔' => '戉',
+'蓒' => '忉',
+'蓛' => '��',
+'蒰' => '仩',
+'蒑' => '丏',
+'虡' => '��',
+'蜳' => '垵',
+'蜣' => '蟶',
+'蜨' => '評',
+'蝫' => '宨',
+'蝀' => '垔',
+'蜮' => '蠋',
+'蜞' => '蠉',
+'蜡' => '嶸',
+'蜙' => '哃',
+'蜛' => '茍',
+'蝃' => '垙',
+'蜬' => '咢',
+'蝁' => '垘',
+'蜾' => '蟼',
+'蝆' => '垕',
+'蜠' => '哖',
+'蜲' => '咰',
+'蜪' => '呰',
+'蜭' => '咾',
+'蜼' => '垝',
+'蜒' => '旄',
+'蜺' => '巍',
+'蜱' => '蠊',
+'蜵' => '垞',
+'蝂' => '垏',
+'蜦' => '哅',
+'蜧' => '哆',
+'蜸' => '垤',
+'蜤' => '咶',
+'蜚' => '蠆',
+'蜰' => '哞',
+'蜑' => '粥',
+'裷' => '峹',
+'裧' => '宭',
+'裱' => '鵏',
+'裲' => '峱',
+'裺' => '帩',
+'裾' => '鵙',
+'裮' => '峿',
+'裼' => '鵛',
+'裶' => '崀',
+'裻' => '帨',
+'裰' => '鵖',
+'裬' => '屔',
+'裫' => '屖',
+'覝' => '��',
+'覡' => '膮',
+'覟' => '��',
+'覞' => '��',
+'觩' => '舁',
+'觫' => '髍',
+'觨' => '脀',
+'誫' => '捥',
+'誙' => '悰',
+'誋' => '庴',
+'誒' => '睎',
+'誏' => '弶',
+'誖' => '聜',
+'谽' => '閆',
+'豨' => '喨',
+'豩' => '喥',
+'賕' => '翯',
+'賏' => '揵',
+'賗' => '揓',
+'趖' => '猲',
+'踉' => '灄',
+'踂' => '舄',
+'跿' => '臷',
+'踍' => '菹',
+'跽' => '灊',
+'踊\' => '蚖',
+'踃' => '舼',
+'踇' => '艵',
+'踆' => '舿',
+'踅' => '齝',
+'跾' => '臮',
+'踀' => '臸',
+'踄' => '舽',
+'輐' => '愲',
+'輑' => '愮',
+'輎' => '慅',
+'輍' => '愫',
+'鄣' => '蛣',
+'鄜' => '逿',
+'鄠' => '��',
+'鄢' => '蛦',
+'鄟' => '��',
+'鄝' => '��',
+'鄚' => '輋',
+'鄤' => '��',
+'鄡' => '��',
+'鄛' => '遒',
+'酺' => '嗿',
+'酲' => '鶢',
+'酹' => '鶞',
+'酳' => '嘄',
+'銥' => '瓵',
+'銤' => '��',
+'鉶' => '緌',
+'銛' => '��',
+'鉺' => '闀',
+'銠' => '闇',
+'銔' => '��',
+'銪' => '闉',
+'銍' => '��',
+'銦' => '霠',
+'銚' => '鵂',
+'銫' => '鴾',
+'鉹' => '綖',
+'銗' => '��',
+'鉿' => '鞜',
+'銣' => '翵',
+'鋮' => '闃',
+'銎' => '鶳',
+'銂' => '翢',
+'銕' => '沺',
+'銢' => '��',
+'鉽' => '綮',
+'銈' => '��',
+'銡' => '��',
+'銊' => '��',
+'銆' => '��',
+'銌' => '��',
+'銙' => '��',
+'銧' => '��',
+'鉾' => '綩',
+'銇' => '��',
+'銩' => '霙',
+'銝' => '��',
+'銋' => '��',
+'鈭' => '��',
+'隞' => '蕛',
+'隡' => '蕮',
+'雿' => '��',
+'靘' => '骻',
+'靽' => '堅',
+'靺' => '��',
+'靾' => '��',
+'鞃' => '��',
+'鞀' => '婸',
+'鞂' => '��',
+'靻' => '��',
+'鞄' => '��',
+'鞁' => '鷞',
+'靿' => '��',
+'韎' => '璐',
+'韍' => '璫',
+'頖' => '裾',
+'颭' => '餯',
+'颮' => '鴝',
+'餂' => '��',
+'餀' => '��',
+'餇' => '��',
+'馝' => '蹔',
+'馜' => '蹩',
+'駃' => '鎴',
+'馹' => '鎕',
+'馻' => '鎙',
+'馺' => '鎈',
+'駂' => '鎨',
+'馽' => '鐠',
+'駇' => '闓',
+'骱' => '鷚',
+'髣' => '溘',
+'髧' => '��',
+'鬾' => '獼',
+'鬿' => '璺',
+'魠' => '��',
+'魡' => '��',
+'魟' => '��',
+'鳱' => '鑞',
+'鳲' => '韄',
+'鳵' => '藈',
+'麧' => '��',
+'僿' => '�w',
+'儃' => '�{',
+'儰' => '��',
+'僸' => '�q',
+'儆' => '棑',
+'儇' => '椥',
+'僶' => '�o',
+'僾' => '�v',
+'儋' => '棇',
+'儌' => '衝',
+'僽' => '�u',
+'儊' => '��',
+'劋' => '誼',
+'劌' => '嵫',
+'勱' => '蛗',
+'勯' => '��',
+'噈' => '�m',
+'噂' => '�g',
+'噌' => '颬',
+'嘵' => '萶',
+'噁' => '填',
+'噊' => '�o',
+'噉' => '遉',
+'噆' => '�k',
+'噘' => '雵',
+'噚' => '�x',
+'噀' => '�e',
+'嘳' => '�]',
+'嘽' => '�c',
+'嘬' => '靸',
+'嘾' => '�d',
+'嘸' => '葝',
+'嘪' => '�X',
+'嘺' => '�a',
+'圚' => '�H',
+'墫' => '��',
+'墝' => '��',
+'墱' => '��',
+'墠' => '��',
+'墣' => '��',
+'墯' => '��',
+'墬' => '��',
+'墥' => '��',
+'墡' => '��',
+'壿' => '��',
+'嫿' => '��',
+'嫴' => '��',
+'嫽' => '��',
+'嫷' => '��',
+'嫶' => '��',
+'嬃' => '��',
+'嫸' => '��',
+'嬂' => '��',
+'嫹\' => '��',
+'嬁' => '��',
+'嬇' => '��',
+'嬅' => '��',
+'嬏' => '��',
+'屧' => '��',
+'嶙' => '戧',
+'嶗' => '彯',
+'嶟' => '��',
+'嶒' => '��',
+'嶢' => '�A',
+'嶓' => '��',
+'嶕' => '��',
+'嶠' => '廔',
+'嶜' => '��',
+'嶡' => '�@',
+'嶚' => '��',
+'嶞' => '��',
+'幩' => '��',
+'幝' => '��',
+'幠' => '��',
+'幜' => '��',
+'緳' => '��',
+'廛' => '瘌',
+'廞' => '�Q',
+'廡' => '瑱',
+'彉' => '��',
+'徲' => '��',
+'憋' => '梧',
+'憃' => '樼',
+'慹' => '簐',
+'憱' => '��',
+'憰' => '��',
+'憢' => '��',
+'憉' => '�u',
+'憛' => '��',
+'憓' => '需',
+'憯' => '��',
+'憭' => '樼',
+'憟' => '��',
+'憒' => '蒮',
+'憪' => '��',
+'憡' => '��',
+'憍' => '�x',
+'慦' => '�W',
+'憳' => '��',
+'戭' => '��',
+'摮' => '��',
+'摰' => '��',
+'撖' => '稓',
+'撠' => '��',
+'撅' => '橘',
+'撗' => '��',
+'撜' => '��',
+'撏' => '��',
+'撋' => '��',
+'撊' => '��',
+'撌' => '��',
+'撣' => '筆',
+'撟' => '睕',
+'摨' => '��',
+'撱' => '��',
+'撘' => '減',
+'敶' => '淝',
+'敺' => '��',
+'敹' => '��',
+'敻' => '��',
+'斲' => '簀',
+'斳' => '��',
+'暵' => '殲',
+'暰' => '��',
+'暩' => '��',
+'暲' => '��',
+'暷' => '��',
+'暪' => '��',
+'暯' => '��',
+'樀' => '��',
+'樆' => '��',
+'樗' => '橚',
+'槥' => '��',
+'槸' => '��',
+'樕' => '��',
+'槱' => '��',
+'槤' => '��',
+'樠' => '��',
+'槿' => '橛',
+'槬' => '��',
+'槢' => '��',
+'樛' => '��',
+'樝' => '��',
+'槾' => '頇',
+'樧' => '��',
+'槲' => '橁',
+'槮' => '��',
+'樔' => '��',
+'槷' => '��',
+'槧' => '噠',
+'橀' => '��',
+'樈' => '��',
+'槦' => '��',
+'槻' => '��',
+'樍' => '��',
+'槼' => '寞',
+'槫' => '��',
+'樉' => '��',
+'樄' => '��',
+'樘' => '樻',
+'樥' => '��',
+'樏' => '��',
+'槶' => '��',
+'樦' => '��',
+'樇' => '��',
+'槴' => '��',
+'樖' => '��',
+'歑' => '�X',
+'殥' => '��',
+'殣' => '��',
+'殢' => '��',
+'殦' => '��',
+'氁' => '��',
+'氀' => '��',
+'毿' => '諤',
+'氂' => '��',
+'潁' => '礗',
+'漦' => '�k',
+'潾' => '��',
+'澇' => '殮',
+'濆' => '��',
+'澒' => '��',
+'澍' => '噌',
+'澉' => '噂',
+'澌' => '嘵',
+'潢' => '儆',
+'潏' => '��',
+'澅' => '��',
+'潚' => '僶',
+'澖' => '��',
+'潶' => '��',
+'潬' => '戽',
+'澂' => '割',
+'潕' => '��',
+'潲' => '噊',
+'潒' => '��',
+'潐' => '��',
+'潗' => '��',
+'澔' => '瘋',
+'澓' => '��',
+'潝' => '��',
+'漀' => '�N',
+'潡' => '��',
+'潫' => '��',
+'潽' => '��',
+'潧' => '��',
+'澐' => '��',
+'潓' => '��',
+'澋' => '��',
+'潩' => '��',
+'潿\' => '銇',
+'澕' => '��',
+'潣' => '��',
+'潷' => '鳵',
+'潪' => '��',
+'潻' => '��',
+'熲' => '��',
+'熯' => '��',
+'熛' => '��',
+'熰' => '��',
+'熠' => '嶷',
+'熚' => '��',
+'熩' => '��',
+'熵' => '寱',
+'熝' => '��',
+'熥' => '��',
+'熞' => '��',
+'熤' => '��',
+'熡' => '��',
+'熪' => '��',
+'熜' => '��',
+'熧' => '��',
+'熳' => '孻',
+'犘' => '��',
+'犚' => '��',
+'獘' => '教',
+'獒' => '殧',
+'獞' => '��',
+'獟' => '��',
+'獠' => '漜',
+'獝' => '��',
+'獛' => '��',
+'獡' => '��',
+'獚' => '��',
+'獙' => '��',
+'獢' => '��',
+'璇' => '霂',
+'璉' => '踤',
+'璊' => '胡',
+'璆' => '⑩',
+'璁' => '霈',
+'瑽' => '耑',
+'璅' => '坱',
+'璈' => '胄',
+'瑼' => '耍',
+'瑹' => '��',
+'甈' => '娑',
+'甇' => '奚',
+'畾' => '��',
+'瘥' => '蹖',
+'瘞' => '蹠',
+'瘙' => '蹧',
+'瘝' => '��',
+'瘜' => '��',
+'瘣' => '��',
+'瘚' => '��',
+'瘨' => '騍',
+'瘛' => '鞢',
+'皜' => '簬',
+'皝' => '��',
+'皞' => '��',
+'皛' => '謋',
+'瞍' => '謅',
+'瞏' => '深',
+'瞉' => '淫',
+'瞈' => '淚\',
+'磍' => '惻',
+'碻' => '��',
+'磏' => '慨',
+'磌' => '惰',
+'磑' => '惱',
+'磎' => '惴',
+'磔' => '縻',
+'磈' => '愕',
+'磃' => '惠',
+'磄' => '愜',
+'磉' => '繄',
+'禚' => '檡',
+'禡' => '貽',
+'禠' => '貳',
+'禜' => '象',
+'禢' => '賁',
+'禛' => '詖',
+'歶' => '�u',
+'稹' => '臐',
+'窲' => '碗',
+'窴' => '沓',
+'窳' => '魌',
+'箷' => '��',
+'篋' => '鵵',
+'箾' => '��',
+'箬' => '鵩',
+'篎' => '慚',
+'箯' => '��',
+'箹' => '��',
+'篊' => '慢',
+'箵' => '��',
+'糅' => '轖',
+'糈' => '轙',
+'糌' => '躈',
+'糋' => '嘮',
+'緷' => '��',
+'緛' => '��',
+'緪' => '��',
+'緧' => '��',
+'緗' => '蝵',
+'緡' => '褋',
+'縃' => '澦',
+'緺' => '��',
+'緦' => '衚',
+'緶' => '褅',
+'緱' => '褌',
+'緰' => '��',
+'緮' => '��',
+'緟' => '��',
+'罶' => '糜',
+'羬' => '臨',
+'羰' => '襣',
+'羭' => '舉',
+'翭' => '鴿',
+'翫' => '俙',
+'翪' => '鮪',
+'翬' => '鴻',
+'翦' => '醲',
+'翨' => '喔',
+'聤' => '��',
+'聧' => '��',
+'膣' => '錩',
+'膟' => '籍',
+'膞' => '籃',
+'膕' => '礬',
+'膢' => '辮',
+'膙' => '競',
+'膗' => '竇',
+'舖' => 'と',
+'艏' => '蘛',
+'艓' => '��',
+'艒' => '��',
+'艐' => '��',
+'艎' => '��',
+'艑' => '��',
+'蔤' => '佖',
+'蔻' => '煍',
+'蔏' => '艼',
+'蔀' => '��',
+'蔩' => '佤',
+'蔎' => '艸',
+'蔉' => '甪',
+'蔍' => '网',
+'蔟' => '毻',
+'蔊' => '癿',
+'蔧' => '佉',
+'蔜' => '邛',
+'蓻' => '眙',
+'蔫' => '殲',
+'蓺' => '��',
+'蔈' => '玎',
+'蔌\' => '歂',
+'蓴' => '搎',
+'蔪' => '伾',
+'蓲' => '��',
+'蔕' => '菱',
+'蓷' => '��',
+'蓫' => '��',
+'蓳' => '��',
+'蓼' => '牏',
+'蔒' => '艽',
+'蓪' => '��',
+'蓩' => '��',
+'蔖' => '襾',
+'蓾' => '��',
+'蔨' => '体',
+'蔝' => '邔',
+'蔮' => '佒',
+'蔂' => '��',
+'蓽' => '塎',
+'蔞' => '楄',
+'蓶' => '��',
+'蔱' => '佘',
+'蔦' => '嗂',
+'蓧' => '��',
+'蓨' => '搵',
+'蓰' => '殛',
+'蓯' => '嗃',
+'蓹' => '��',
+'蔘' => '邙',
+'蔠' => '阤',
+'蔰' => '佁',
+'蔋' => '穵',
+'蔙' => '邗',
+'蔯' => '佟',
+'虢' => '踳',
+'蝖' => '姺',
+'蝣' => '譐',
+'蝤' => '譊',
+'蝷' => '��',
+'蟡' => '毠',
+'蝳' => '賟',
+'蝘' => '姽',
+'蝔' => '姱',
+'蝛' => '姶',
+'蝒' => '娀',
+'蝡' => '��',
+'蝚' => '姼',
+'蝑' => '姮',
+'蝞' => '潃',
+'蝭' => '峐',
+'蝪' => '姭',
+'蝐' => '姞',
+'蝎' => '衎',
+'蝟' => '漎',
+'蝝' => '姲',
+'蝯' => '堀',
+'蝬' => '屌',
+'蝺' => '��',
+'蝮' => '覷',
+'蝜' => '姤',
+'蝥' => '譓',
+'蝏' => '姡',
+'蝻' => '襘',
+'蝵' => '峛',
+'蝢' => '姳',
+'蝧' => '姠',
+'蝩' => '姴',
+'衚' => '苙',
+'褅' => '彧',
+'褌' => '��',
+'褔' => '��',
+'褋' => '��',
+'褗' => '��',
+'褘' => '��',
+'褙' => '鵗',
+'褆' => '恝',
+'褖' => '��',
+'褑' => '��',
+'褎' => '凈',
+'褉' => '��',
+'覢' => '笄',
+'覤' => '笅',
+'覣' => '笓',
+'觭' => '茳',
+'觰' => '荄',
+'觬' => '舥',
+'諏' => '睋',
+'諆' => '��',
+'誸' => '掐',
+'諓' => '��',
+'諑' => '睌',
+'諔' => '��',
+'諕' => '��',
+'誻' => '捵',
+'諗' => '硠',
+'誾' => '掮',
+'諀' => '掤',
+'諅' => '��',
+'諘' => '��',
+'諃' => '��',
+'誺' => '掯',
+'誽' => '捭',
+'諙' => '��',
+'谾' => '閈',
+'豍' => '馗',
+'貏' => '��',
+'賥' => '敨',
+'賟' => '揙',
+'賙' => '揇',
+'賨' => '斝',
+'賚' => '羱',
+'賝' => '銵',
+'賧' => '耩',
+'趠' => '琫',
+'趜' => '琮',
+'趡' => '琖',
+'趛' => '猌',
+'踠' => '莿',
+'踣' => '爚',
+'踥' => '菥',
+'踤' => '菝',
+'踮' => '爝',
+'踕' => '菤',
+'踛' => '菫',
+'踖' => '菼',
+'踑' => '菨',
+'踙' => '菆',
+'踦' => '菘',
+'踧' => '菿',
+'踔' => '灈',
+'踒' => '萒',
+'踘' => '萐',
+'踓' => '菧',
+'踜' => '菣',
+'踗' => '菶',
+'踚' => '菈',
+'輬' => '��',
+'輤' => '��',
+'輘' => '酨',
+'輚' => '戥',
+'輠' => '廓',
+'輣' => '搤',
+'輖' => '慀',
+'輗' => '戠',
+'遳' => '腜',
+'遰' => '菰',
+'遯' => '嗜',
+'遧' => '羦',
+'遫' => '翛',
+'鄯' => '蛪',
+'鄫' => '��',
+'鄩' => '��',
+'鄪' => '��',
+'鄲' => '策',
+'鄦' => '勍',
+'鄮' => '��',
+'醅' => '鶿',
+'醆\' => '桮',
+'醊' => '墋',
+'醁' => '墐',
+'醂' => '墘',
+'醄' => '墁',
+'醀' => '塼',
+'鋐' => '輎',
+'鋃' => '龠',
+'鋄' => '跽',
+'鋀' => '踉',
+'鋙' => '鄤',
+'銶' => '誒',
+'鋏' => '闅',
+'鋱' => '麉',
+'鋟' => '儱',
+'鋘' => '鄚',
+'鋩' => '��',
+'鋗' => '鄝',
+'鋝' => '鼤',
+'鋌' => '霝',
+'鋯' => '黚',
+'鋂' => '擿',
+'鋨' => '黻',
+'鋊' => '踅',
+'鋈' => '鶲',
+'鋎' => '輐',
+'鋦' => '儭',
+'鋍' => '毿',
+'鋕' => '鄢',
+'鋉' => '踆',
+'鋠' => '銥',
+'鋞' => '酹',
+'鋧' => '銪',
+'鋑' => '輍',
+'鋓' => '鄜',
+'銵' => '麍',
+'鋡' => '銤',
+'鋆' => '踃',
+'銴' => '誙',
+'镼' => '嬗',
+'閬' => '蓔',
+'閫' => '蒠',
+'閮' => '��',
+'閰' => '��',
+'隤' => '虰',
+'隢' => '蕵',
+'雓' => '螄',
+'霅' => '��',
+'霈' => '鰬',
+'霂' => '��',
+'靚' => '鬖',
+'鞊' => '��',
+'鞎' => '��',
+'鞈' => '��',
+'韐' => '璭',
+'韏' => '璪',
+'頞' => '薂',
+'頝' => '薢',
+'頦' => '礞',
+'頩' => '螭',
+'頨' => '螪',
+'頠' => '薅',
+'頛' => '薝',
+'頧' => '螾',
+'颲' => '馣',
+'餈' => '躄',
+'飺' => '��',
+'餑' => '熗',
+'餔' => '癜',
+'餖' => '癙',
+'餗' => '癐',
+'餕' => '癤',
+'駜' => '��',
+'駍' => '雟',
+'駏' => '雝',
+'駓' => '鞬',
+'駔' => '糈',
+'駎' => '雘',
+'駉' => '隳',
+'駖' => '鞫',
+'駘' => '緧',
+'駋' => '雚',
+'駗' => '鞤',
+'駌' => '巂',
+'骳' => '鏂',
+'髬' => '��',
+'髫' => '彏',
+'髳' => '巘',
+'髲' => '��',
+'髱' => '╰',
+'魆' => '皪',
+'魃' => '鼵',
+'魧' => '��',
+'魴' => '鼚',
+'魱' => '��',
+'魦' => '��',
+'魶' => '��',
+'魵' => '��',
+'魰' => '��',
+'魨' => '��',
+'魤' => '��',
+'魬' => '��',
+'鳼' => '鱐',
+'鳺' => '鱒',
+'鳽' => '鱊',
+'鳿' => '鱋\',
+'鳷' => '鬞',
+'鴇' => '藈',
+'鴀' => '鱕',
+'鳹' => '鬠',
+'鳻' => '鱘',
+'鴈' => '栜',
+'鴅' => '鷷',
+'鴄' => '鷻',
+'麃' => '栥',
+'黓' => '�]',
+'鼏' => '��',
+'鼐' => '媥',
+'儜' => '��',
+'儓' => '��',
+'儗' => '��',
+'儚' => '��',
+'儑' => '��',
+'凞' => '�D',
+'匴' => '�W',
+'叡' => '謑',
+'噰' => '��',
+'噠' => '蒎',
+'噮' => '��',
+'噳' => '��',
+'噦' => '葄',
+'噣' => '��',
+'噭' => '��',
+'噲' => '葮',
+'噞' => '�{',
+'噷' => '��',
+'圜' => '僝',
+'圛' => '�I',
+'壈' => '��',
+'墽' => '��',
+'壉' => '��',
+'墿' => '��',
+'墺' => '��',
+'壂' => '��',
+'墼' => '觚',
+'壆' => '��',
+'嬗' => '窲',
+'嬙' => '禠',
+'嬛' => '��',
+'嬡' => '磃',
+'嬔' => '��',
+'嬓' => '��',
+'嬐' => '��',
+'嬖' => '窴',
+'嬨' => '��',
+'嬚' => '��',
+'嬠' => '��',
+'嬞\' => '��',
+'寯' => '��',
+'嶬' => '�K',
+'嶱' => '�P',
+'嶩' => '�H',
+'嶧' => '廙',
+'嶵' => '�T',
+'嶰' => '�O',
+'嶮' => '玸',
+'嶪' => '�I',
+'嶨' => '嵼',
+'嶲' => '�Q',
+'嶭' => '�L',
+'嶯' => '�N',
+'嶴' => '嵼',
+'幧' => '��',
+'幨' => '��',
+'幦' => '��',
+'幯' => '��',
+'廩' => '瘑',
+'廧' => '�Z',
+'廦' => '�Y',
+'廨' => '瘕',
+'廥' => '�X',
+'彋' => '��',
+'徼' => '摜',
+'憝' => '磾',
+'憨' => '漫',
+'憖' => '��',
+'懅' => '��',
+'憴' => '��',
+'懆' => '��',
+'懁' => '��',
+'懌' => '禘',
+'憺' => '��',
+'憿' => '��',
+'憸' => '��',
+'憌' => '�w',
+'擗' => '艅',
+'擖' => '��',
+'擐' => '艂',
+'擏' => 'э',
+'擉' => '��',
+'撽' => '��',
+'撉' => '��',
+'擃' => '��',
+'擛' => '�@',
+'擳' => '�T',
+'擙' => '��',
+'攳' => '��',
+'敿' => '��',
+'敼' => '��',
+'斢' => '��',
+'曈' => '��',
+'暾' => '縕',
+'曀' => '��',
+'曊' => '��',
+'曋' => '��',
+'曏' => '砃',
+'暽' => '��',
+'暻' => '��',
+'暺' => '��',
+'曌' => '��',
+'朣' => '�S',
+'樴' => '��',
+'橦' => '�H',
+'橉' => '��',
+'橧' => '�I',
+'樲' => '��',
+'橨' => '�J',
+'樾' => '橤',
+'橝' => '�A',
+'橭' => '�O',
+'橶' => '�W',
+'橛' => '橔',
+'橑' => '��',
+'樨' => '橞',
+'橚' => '��',
+'樻' => '��',
+'樿' => '��',
+'橁' => '��',
+'橪' => '�L',
+'橤' => '��',
+'橐' => '橏',
+'橏' => '��',
+'橔' => '��',
+'橯' => '�Q',
+'橩' => '�K',
+'橠' => '�D',
+'樼' => '��',
+'橞' => '�B',
+'橖' => '��',
+'橕' => '傅',
+'橍' => '��',
+'橎' => '��',
+'橆' => '拸',
+'歕' => '�\\',
+'歔' => '�[',
+'歖' => '�]',
+'殧' => '��',
+'殪' => '濇',
+'殫' => '澭',
+'毈' => '��',
+'毇' => '��',
+'氄' => '��',
+'氃' => '��',
+'氆' => '諞',
+'澭' => '��',
+'濋' => '��',
+'澣' => '雿',
+'濇' => '优',
+'澼' => '��',
+'濎' => '��',
+'濈' => '��',
+'潞' => '繙',
+'濄' => '��',
+'澽' => '��',
+'澞' => '��',
+'濊' => '魁',
+'澨' => '��',
+'瀄' => '�\\',
+'澥' => '��',
+'澮' => '銕',
+'澺' => '��',
+'澬' => '��',
+'澪' => '��',
+'濏' => '��',
+'澿' => '��',
+'澸' => '��',
+'澢' => '��',
+'濉' => '憛',
+'澫' => '驕',
+'濍' => '��',
+'澯' => '��',
+'澲' => '��',
+'澰' => '��',
+'燅' => '��',
+'燂' => '��',
+'熿' => '銓',
+'熸' => '��',
+'燖' => '�@',
+'燀' => '��',
+'燁' => '嚂',
+'燋' => '��',
+'燔' => '幪',
+'燊' => '��',
+'燇' => '��',
+'燏' => '��',
+'熽' => '��',
+'燘' => '�B',
+'熼' => '��',
+'燆' => '��',
+'燚' => '�D',
+'燛' => '�E',
+'犝' => '��',
+'犞' => '��',
+'獩' => '��',
+'獦\' => '��',
+'獧' => '朄',
+'獬' => '滼',
+'獥' => '��',
+'獫' => '榶',
+'獪' => '暡',
+'瑿' => '耶',
+'璚' => '⑤',
+'璠' => '茉',
+'璔' => '舢',
+'璒' => '胝',
+'璕' => '苧',
+'璡' => '苒\',
+'甋' => '娟',
+'疀' => '��',
+'瘯' => '��',
+'瘭' => '韘',
+'瘱' => '��',
+'瘽' => '��',
+'瘳' => '饁',
+'瘼' => '鞥',
+'瘵' => '顑',
+'瘲' => '��',
+'瘰' => '韺',
+'皻' => '觾',
+'盦' => '屝',
+'瞚' => '烹',
+'瞝' => '烽',
+'瞡' => '爽',
+'瞜' => '焊',
+'瞛' => '焉',
+'瞢' => '獂',
+'瞣' => '牽',
+'瞕' => '淄',
+'瞙' => '淦',
+'瞗' => '淬',
+'磝' => '掌',
+'磩' => '��',
+'磥' => '濠',
+'磪' => '��',
+'磞' => '描',
+'磣' => '繉',
+'磛' => '扉',
+'磡' => '揉',
+'磢' => '揆',
+'磭' => '��',
+'磟' => '繕',
+'磠' => '揩',
+'禤' => '賀',
+'穄' => '愍',
+'穈' => '戡',
+'穇' => '愷',
+'窶' => '魊',
+'窸' => '碑',
+'窵' => '碌',
+'窱' => '碰',
+'窷' => '硼',
+'篞' => '摑',
+'篣' => '摻',
+'篧' => '斡',
+'篝' => '黀',
+'篕' => '摘',
+'篥' => '鼭',
+'篚' => '黼',
+'篨' => '旗',
+'篹' => '榷',
+'篔' => '撇',
+'篪' => '齁',
+'篢' => '摭',
+'篜' => '摺',
+'篫' => '暢',
+'篘' => '摸',
+'篟' => '摧',
+'糒' => '嘴',
+'糔' => '噓',
+'糗' => '轗',
+'糐' => '嘲',
+'糑' => '嘿',
+'縒' => '獨',
+'縡' => '瞞',
+'縗' => '璞\',
+'縌' => '熹',
+'縟' => '褙',
+'縠' => '瞠',
+'縓' => '璜',
+'縎' => '燙',
+'縜' => '瘸',
+'縕' => '璘',
+'縚' => '昐',
+'縢' => '瞟',
+'縋' => '褔',
+'縏' => '燜',
+'縖' => '璟',
+'縍' => '燎',
+'縔' => '璣',
+'縥' => '磚',
+'縤' => '磨',
+'罃' => '��',
+'罻' => '糙',
+'罼' => '救',
+'罺' => '糟',
+'羱' => '薪',
+'翯' => '麋',
+'耪' => '纓',
+'耩' => '嚫',
+'聬' => '��',
+'膱' => '��',
+'膦' => '鮈',
+'膮' => '��',
+'膹' => '��',
+'膵' => '��',
+'膫' => '��',
+'膰' => '��',
+'膬' => '毯',
+'膴' => '��',
+'膲' => '��',
+'膷' => '��',
+'膧' => '��',
+'臲' => '驃',
+'艕' => '��',
+'艖' => '��',
+'艗' => '��',
+'蕖' => '煄',
+'蕅' => '匉',
+'蕫' => '��',
+'蕍' => '吰',
+'蕓' => '傺',
+'蕡' => '��',
+'蕘' => '塕',
+'蕀' => '刞',
+'蕆' => '椳',
+'蕤' => '犐',
+'蕁' => '搳',
+'蕢' => '棰',
+'蕄' => '劮',
+'蕑' => '呅',
+'蕇' => '卲',
+'蕣' => '��',
+'蔾' => '冹',
+'蕛' => '��',
+'蕱' => '��',
+'蕎' => '塱',
+'蕮' => '��',
+'蕵' => '��',
+'蕕' => '搧',
+'蕧' => '��',
+'蕠' => '��',
+'薌' => '僂',
+'蕦' => '��',
+'蕝' => '��',
+'蕔' => '吥',
+'蕥' => '��',
+'蕬' => '��',
+'虣' => '��',
+'虥' => '��',
+'虤' => '��',
+'螛' => '��',
+'螏\' => '��',
+'螗' => '韞',
+'螓' => '譖',
+'螒' => '��',
+'螈' => '鞷',
+'螁' => '��',
+'螖' => '��',
+'螘' => '眐',
+'蝹' => '��',
+'螇' => '��',
+'螣' => '��',
+'螅' => '鞶',
+'螐' => '��',
+'螑' => '��',
+'螝' => '��',
+'螄' => '藲',
+'螔' => '��',
+'螜' => '��',
+'螚' => '��',
+'螉' => '��',
+'褞' => '��',
+'褦' => '��',
+'褰' => '敶',
+'褭' => '蘅',
+'褮' => '��',
+'褧' => '��',
+'褱' => '��',
+'褢' => '��',
+'褩' => '��',
+'褣' => '��',
+'褯' => '��',
+'褬' => '��',
+'褟' => '��',
+'觱' => '茙',
+'諠' => '唈',
+'諢' => '睇',
+'諲' => '烰',
+'諴' => '烳',
+'諵' => '焐',
+'諝' => '��',
+'謔' => '硱',
+'諤' => '确',
+'諟' => '��',
+'諰' => '烴',
+'諈' => '��',
+'諞' => '祴',
+'諡' => '��',
+'諨' => '淗',
+'諿' => '焎',
+'諯' => '焗',
+'諻' => '烸',
+'貑' => '��',
+'貒' => '��',
+'貐' => '��',
+'賵' => '��',
+'賮' => '��',
+'賱' => '��',
+'賰' => '��',
+'賳' => '��',
+'赬' => '焠',
+'赮' => '焞',
+'趥' => '��',
+'趧' => '��',
+'踳' => '菉',
+'踾' => '菳',
+'踸' => '萑',
+'蹀' => '甗',
+'蹅' => '��',
+'踶' => '萏',
+'踼' => '菂',
+'踽' => '礭',
+'蹁' => '籔',
+'踰' => '貣',
+'踿' => '��',
+'躽' => '閍',
+'輶' => '��',
+'輮' => '��',
+'輵' => '��',
+'輲' => '��',
+'輹' => '��',
+'輷' => '箔',
+'輴' => '��',
+'遶' => '��',
+'遹' => '腲',
+'遻' => '腞',
+'邆' => '��',
+'郺' => '趏',
+'鄳' => '��',
+'鄵' => '��',
+'鄶' => '萓',
+'醓' => '墑',
+'醐' => '鶩',
+'醑' => '鶦',
+'醍' => '鶖',
+'醏' => '墇',
+'錧' => '嬁',
+'錞' => '檴',
+'錈' => '屪',
+'錟' => '巀',
+'錆' => '嚘',
+'錏' => '嘾',
+'鍺' => '淀',
+'錸' => '麊',
+'錼' => '緳',
+'錛' => '嚗',
+'錣' => '嬃',
+'錒' => '儮',
+'錁' => '嚝',
+'鍆' => '鎡',
+'錭' => '嶗',
+'錎' => '嘬',
+'錍' => '嘽',
+'鋋' => '跾',
+'錝' => '壿',
+'鋺' => '��',
+'錥' => '嬂',
+'錓' => '圚',
+'鋹' => '��',
+'鋷' => '��',
+'錴' => '嶜',
+'錂' => '��',
+'錤' => '嫸',
+'鋿' => '��',
+'錩' => '嬅',
+'錹' => '幝',
+'錵' => '嶡',
+'錪' => '嬏',
+'錔' => '墫',
+'錌' => '嘳',
+'錋' => '噀',
+'鋾' => '��',
+'錉' => '��',
+'錀' => '��',
+'鋻' => '��',
+'錖' => '墱',
+'閼' => '蜳',
+'闍' => '濉',
+'閾' => '蓒',
+'閹' => '捀',
+'閺' => '��',
+'閶' => '蓛',
+'閿' => '蒑',
+'閵' => '��',
+'閽' => '虡',
+'隩' => '蕝',
+'雔' => '螔',
+'霋' => '��',
+'霒' => '秝',
+'霐' => '��',
+'鞙' => '��',
+'鞗' => '��',
+'鞔' => '鰲',
+'韰' => '��',
+'韸' => '��',
+'頵' => '螷',
+'頯' => '螼',
+'頲' => '蟃',
+'餤\' => '礉',
+'餟' => '瞺',
+'餧' => '庣',
+'餩' => '禬',
+'馞' => '轆',
+'駮' => '眶',
+'駬' => '��',
+'駥' => '��',
+'駤' => '��',
+'駰' => '��',
+'駣' => '��',
+'駪' => '��',
+'駩' => '��',
+'駧' => '��',
+'骹' => '鏹',
+'骿' => '錧',
+'骴' => '鏚',
+'骻' => '輯',
+'髶' => '��',
+'髺' => '��',
+'髹' => '戄',
+'髷' => '��',
+'鬳' => '瀹',
+'鮀' => '鐆',
+'鮅' => '霯',
+'鮇' => '鞻',
+'魼' => '齤',
+'魾' => '鏶',
+'魻' => '��',
+'鮂' => '闠',
+'鮓' => '饌',
+'鮒' => '亹',
+'鮐' => '囅',
+'魺' => '��',
+'鮕' => '饓',
+'魽' => '鐌',
+'鮈' => '韽',
+'鴥' => '��',
+'鴗' => '黂',
+'鴠' => '齃',
+'鴞' => '鼷',
+'鴔' => '鷳',
+'鴩' => '��',
+'鴝' => '蘤',
+'鴘' => '黐',
+'鴢' => '��',
+'鴐' => '鷰',
+'鴙' => '黲',
+'鴟' => '薸',
+'麈' => '爢',
+'麆' => '��',
+'麇' => '灚',
+'麮' => '�C',
+'麭' => '婦',
+'黕' => '�^',
+'黖' => '�_',
+'黺' => '�v',
+'鼒' => '��',
+'鼽' => '襴',
+'儦' => '��',
+'儥' => '��',
+'儢' => '��',
+'儤' => '��',
+'儠' => '��',
+'儩' => '��',
+'勴' => '��',
+'嚓' => '魛',
+'嚌' => '蜋',
+'嚍' => '��',
+'嚆' => '飹',
+'嚄' => '��',
+'嚃' => '��',
+'噾' => '��',
+'嚂' => '��',
+'噿' => '��',
+'嚁' => '��',
+'壖' => '��',
+'壔' => '��',
+'壏' => '��',
+'壒' => '��',
+'嬭' => '騷',
+'嬥' => '��',
+'嬲' => '窳',
+'嬣' => '��',
+'嬬' => '��',
+'嬧' => '��',
+'嬦' => '��',
+'嬯' => '��',
+'嬮' => '��',
+'孻' => '�Y',
+'寱' => '蔇',
+'寲' => '��',
+'嶷' => '摍',
+'幬' => '僯',
+'幪' => '��',
+'徾' => '��',
+'徻' => '��',
+'懃' => 'с',
+'憵' => '��',
+'憼' => '��',
+'懧' => '��',
+'懠' => '��',
+'懥' => '��',
+'懤' => '��',
+'懨' => '禖',
+'懞' => '蟹',
+'擯' => '梔',
+'擩' => '絲',
+'擣' => '�F',
+'擫' => '�L',
+'擤' => '蓱',
+'擨' => '�I',
+'斁' => '��',
+'斀' => '��',
+'斶' => '��',
+'旚' => '��',
+'曒' => '��',
+'檍' => '�j',
+'檖' => '�p',
+'檁' => '橆',
+'檥' => '纀',
+'檉' => '魵',
+'檟' => '�x',
+'檛' => '�t',
+'檡' => '�y',
+'檞' => '�w',
+'檇' => '�d',
+'檓' => '�m',
+'檎' => '橩',
+'檕' => '�o',
+'檃' => '�a',
+'檨' => '��',
+'檤' => '�|',
+'檑' => '橍',
+'橿' => '�^',
+'檦' => '�~',
+'檚' => '�s',
+'檅' => '�b',
+'檌' => '�i',
+'檒' => '�l',
+'歛' => '螻',
+'殭' => '蔗',
+'氉' => '��',
+'濌' => '��',
+'澩' => '穘',
+'濴' => '�L',
+'濔' => '譆',
+'濣' => '��',
+'濜' => '��',
+'濭' => '�G',
+'濧' => '�A',
+'濦' => '�@',
+'濞' => '憡',
+'濲' => '�J',
+'濝' => '��',
+'濢' => '��',
+'濨' => '�B',
+'燡\' => '�J',
+'燱' => '�W',
+'燨' => '�O',
+'燲' => '�X',
+'燤' => '�M',
+'燰' => '�V',
+'燢' => '�K',
+'獳' => '隹',
+'獮' => '��',
+'獯' => '漺',
+'璗' => '茅',
+'璲' => '虻',
+'璫' => '苞',
+'璐' => '韐',
+'璪' => '苑',
+'璭' => '苟',
+'璱' => '虹',
+'璥' => '苜',
+'璯' => '茆',
+'甐' => '姬',
+'甑' => '窱',
+'甒' => '娠',
+'甏' => '窵',
+'疄' => '��',
+'癃' => '顒',
+'癈' => '煙',
+'癉' => '蹜',
+'癇' => '豵',
+'皤' => '薽',
+'盩' => '崎',
+'瞵' => '謈',
+'瞫' => '猖',
+'瞲' => '琊',
+'瞷' => '現',
+'瞶' => '理',
+'瞴' => '球',
+'瞱' => '琅',
+'瞨' => '猛',
+'矰' => '蛇',
+'磳' => '��',
+'磽' => '簐',
+'礂' => '��',
+'磻' => '��',
+'磼' => '��',
+'磲' => '罅',
+'礅' => '罿',
+'磹' => '��',
+'磾' => '��',
+'礄' => '��',
+'禫' => '越',
+'禨' => '貶',
+'穜' => '斟',
+'穛' => '敬',
+'穖' => '搶',
+'穘' => '搖',
+'穔' => '搔',
+'穚' => '搆',
+'窾' => '萬',
+'竀' => '禽',
+'竁' => '稜',
+'簅' => '榣',
+'簏' => '齘',
+'篲' => '榕',
+'簀' => '鵴',
+'篿' => '槐',
+'篻' => '榫',
+'簎' => '滾',
+'篴' => '榮',
+'簋' => '嚲',
+'篳' => '鶁',
+'簂' => '槌',
+'簉' => '氳',
+'簃' => '榦',
+'簁' => '榭',
+'篸' => '榛',
+'篽' => '榴',
+'簆' => '歉',
+'篰' => '榨',
+'篱' => '燦',
+'簐' => '漓',
+'簊' => '漳',
+'糨' => '轕',
+'縭' => '褖',
+'縼' => '��',
+'繂' => '��',
+'縳' => '篛',
+'顈' => '覭',
+'縸' => '糖',
+'縪' => '穎',
+'繉' => '��',
+'繀' => '��',
+'繇' => '鏾',
+'縩' => '積',
+'繌' => '��',
+'縰' => '簑',
+'縻' => '毊',
+'縶' => '鐠',
+'繄' => '��',
+'縺' => '��',
+'罅' => '髂',
+'罿' => '績',
+'罾' => '轃',
+'罽' => '縮',
+'翴' => '點',
+'翲' => '黏',
+'耬' => '厴',
+'膻' => '錌',
+'臄' => '��',
+'臌' => '錵',
+'臊' => '錔',
+'臅' => '��',
+'臇' => '��',
+'膼' => '��',
+'臩' => '露',
+'艛' => '��',
+'艚' => '蘀',
+'艜' => '��',
+'薃' => '杕',
+'薀' => '堄',
+'薏' => '瑊',
+'薧' => '灴',
+'薕' => '沋',
+'薠' => '沜',
+'薋' => '杚',
+'薣' => '汥',
+'蕻' => '獀',
+'薤' => '獊',
+'薚' => '沚',
+'薞' => '沇',
+'蕷' => '歃',
+'蕼' => '��',
+'薉' => '韶',
+'薡' => '汦',
+'蕺' => '猼',
+'蕸' => '��',
+'蕗' => '��',
+'薎' => '氙',
+'薖' => '沏',
+'薆' => '杌',
+'薍' => '毐',
+'薙' => '殀',
+'薝' => '汭',
+'薁' => '��',
+'薢' => '汳',
+'薂' => '杙',
+'薈' => '媺',
+'薅' => '瑗',
+'蕹' => '瑋',
+'蕶' => '��',
+'薘' => '汯',
+'薐' => '氚',
+'薟' => '搚',
+'虨' => '��',
+'螾' => '翽',
+'螪' => '柀',
+'螭' => '韝',
+'蟅' => '枲',
+'螰\' => '柅',
+'螬' => '顝',
+'螹' => '柷',
+'螵' => '顗',
+'螼' => '柮',
+'螮' => '枷',
+'蟉' => '柭',
+'蟃' => '柧',
+'蟂' => '柎',
+'蟌' => '柌',
+'螷' => '柍',
+'螯' => '譔',
+'蟄' => '殎',
+'蟊' => '饃',
+'螴' => '柟',
+'螶' => '枵',
+'螿' => '柂',
+'螸' => '枳',
+'螽' => '颾',
+'蟞' => '毖',
+'螲' => '柤',
+'褵' => '褖',
+'褳' => '鮹',
+'褼' => '氥',
+'褾' => '浣',
+'襁' => '麌',
+'襒' => '涗',
+'褷' => '��',
+'襂' => '洍',
+'覭' => '粊',
+'覯' => '膫',
+'覮' => '粌',
+'觲' => '荑',
+'觳' => '麮',
+'謞' => '琈',
+'謘' => '珺',
+'謖' => '祰',
+'謑' => '珸',
+'謅' => '粘',
+'謋' => '猈',
+'謢' => '痒',
+'謏' => '玈',
+'謒' => '珵',
+'謕' => '珽',
+'謇' => '敻',
+'謍' => '猏',
+'謈' => '猑',
+'謆' => '猇',
+'謜' => '琋',
+'謓' => '琄',
+'謚' => '稂',
+'豏' => '傕',
+'豰' => '喓',
+'豲' => '喏',
+'豱' => '喈',
+'豯' => '喢',
+'貕' => '��',
+'貔' => '蘮',
+'賹' => '��',
+'赯' => '焯',
+'蹎' => '��',
+'蹍' => '��',
+'蹓' => '槧',
+'蹐' => '��',
+'蹌' => '囃',
+'蹇' => '敹',
+'轃' => '��',
+'轀' => '��',
+'邅' => '��',
+'遾' => '腧',
+'鄸' => '��',
+'醚' => '識',
+'醢' => '鶧',
+'醛' => '��',
+'醙' => '墔',
+'醟' => '嫜',
+'醡' => '嫥',
+'醝' => '壾',
+'醠' => '嫮',
+'鎡' => '犚',
+'鎃' => '潧',
+'鎯' => '��',
+'鍤' => '懮',
+'鍖' => '��',
+'鍇' => '懘',
+'鍼' => '渀',
+'鍘' => '捸',
+'鍜' => '��',
+'鍶' => '懟',
+'鍉' => '憉',
+'鍐' => '��',
+'鍑' => '��',
+'鍠' => '��',
+'鍭' => '澉',
+'鎏' => '黮',
+'鍌' => '��',
+'鍪' => '麜',
+'鍹' => '潒',
+'鍗' => '��',
+'鍕' => '��',
+'鍒' => '��',
+'鍏' => '��',
+'鍱' => '澅',
+'鍷' => '潕',
+'鍻' => '潗',
+'鍡' => '��',
+'鍞' => '��',
+'鍣' => '��',
+'鍧' => '��',
+'鎀' => '潡',
+'鍎' => '��',
+'鍙' => '��',
+'闇' => '做',
+'闀' => '箏',
+'闉' => '��',
+'闃' => '蜣',
+'闅' => '��',
+'閷' => '��',
+'隮' => '欀',
+'隰' => '絜',
+'隬' => '蕬',
+'霠' => '��',
+'霟' => '��',
+'霘' => '��',
+'霝' => '��',
+'霙' => '��',
+'鞚' => '��',
+'鞡' => '亃',
+'鞜' => '蝝',
+'鞞' => '檕',
+'鞝' => '��',
+'韕' => '甑',
+'韔' => '甐',
+'韱' => '��',
+'顁' => '褳',
+'顄' => '襁',
+'顊' => '覮',
+'顉' => '覯',
+'顅' => '襒',
+'顃' => '褾',
+'餥' => '礐',
+'餫' => '簜',
+'餬' => '緇',
+'餪' => '穟',
+'餳' => '熉',
+'餲' => '簝',
+'餯' => '簠',
+'餭' => '簙',
+'餱' => '躆',
+'餰' => '簟',
+'馘' => '毳',
+'馣' => '鄺',
+'馡' => '轋',
+'騂' => '斄',
+'駺' => '徿',
+'駴' => '��',
+'駷' => '��',
+'駹\' => '��',
+'駸' => '��',
+'駶' => '��',
+'駻' => '懻',
+'駽' => '攐',
+'駾' => '攍',
+'駼' => '攇',
+'騃' => '渭',
+'骾' => '攠',
+'髾' => '��',
+'髽' => '��',
+'鬁' => '��',
+'髼' => '��',
+'魈' => '齂',
+'鮚' => '奱',
+'鮨' => '鯷',
+'鮞' => '孌',
+'鮛' => '騶',
+'鮦' => '鰋',
+'鮡' => '髊',
+'鮥' => '鬑',
+'鮤' => '鬒',
+'鮆' => '巕',
+'鮢' => '髆',
+'鮠' => '髇',
+'鮯' => '鰆',
+'鴳' => '��',
+'鵁' => '��',
+'鵧' => '黵',
+'鴶' => '��',
+'鴮' => '��',
+'鴯' => '薾',
+'鴱' => '��',
+'鴸' => '��',
+'鴰' => '蟧',
+'鵅' => '纙',
+'鵂' => '蟦',
+'鵃' => '�b',
+'鴾' => '��',
+'鴷' => '��',
+'鵀' => '��',
+'鴽' => '��',
+'翵' => '黜',
+'鴭' => '��',
+'麊' => '��',
+'麉' => '��',
+'麍' => '��',
+'麰' => '�E',
+'黈' => '�W',
+'黚' => '�b',
+'黻' => '臌',
+'黿' => '鶵',
+'鼤' => '��',
+'鼣' => '��',
+'鼢' => '蠰',
+'齔' => '鶶',
+'龠' => '殗',
+'儱' => '��',
+'儭' => '��',
+'儮' => '��',
+'嚘' => '��',
+'嚜' => '��',
+'嚗' => '��',
+'嚚' => '��',
+'嚝' => '��',
+'嚙' => '蘚',
+'奰' => '�`',
+'嬼' => '��',
+'屩' => '��',
+'屪' => '��',
+'巀' => '�^',
+'幭' => '��',
+'幮' => '��',
+'懘' => '��',
+'懟' => '瞴',
+'懭' => '��',
+'懮' => '��',
+'懱' => '��',
+'懪' => '��',
+'懰' => '��',
+'懫' => '��',
+'懖' => '��',
+'懩' => '欭',
+'擿' => '祣',
+'攄' => '祼',
+'擽' => '�^',
+'擸' => '�Y',
+'攁' => '�a',
+'攃' => '�c',
+'擼' => '舝',
+'斔' => '��',
+'旛' => '��',
+'曚' => '��',
+'曛' => '縚',
+'曘' => '��',
+'櫅' => '��',
+'檹' => '��',
+'檽' => '��',
+'櫡' => '��',
+'櫆' => '��',
+'檺' => '��',
+'檶' => '��',
+'檷' => '��',
+'櫇' => '��',
+'檴' => '鳹',
+'檭' => '��',
+'歞' => '�d',
+'毉' => '瓟',
+'氋' => '��',
+'瀇' => '�_',
+'瀌' => '�d',
+'瀍' => '�e',
+'瀁' => '�Y',
+'瀅' => '鬿',
+'瀔' => '�k',
+'瀎' => '�f',
+'濿' => '�W',
+'瀀' => '�X',
+'濻' => '�S',
+'瀦' => '劌',
+'濼' => '裲',
+'濷' => '�O',
+'瀊' => '�b',
+'爁' => '�f',
+'燿' => '珓',
+'燹' => '徻',
+'爃' => '�h',
+'燽' => '�b',
+'獶' => '非',
+'璸' => '計',
+'瓀' => '趴',
+'璵' => '衫',
+'瓁' => '軍',
+'璾' => '赴',
+'璶' => '要',
+'璻' => '訃',
+'瓂' => '軌',
+'甔' => '娣',
+'甓' => '窷',
+'癜' => '騋',
+'癤' => '謣',
+'癙' => '訐',
+'癐' => '衰',
+'癓' => '袂',
+'癗' => '衹',
+'癚' => '討',
+'皦' => '��',
+'皽' => '��',
+'盬' => '崢',
+'矂' => '��',
+'瞺' => '瓶',
+'磿' => '��',
+'礌' => '濠',
+'礓' => '罽',
+'礔' => '羈',
+'礉' => '��',
+'礐' => '湣',
+'礒\' => '湲',
+'礑' => '湄',
+'禭' => '趁',
+'禬' => '超',
+'穟' => '暉',
+'簜' => '��',
+'簩' => '��',
+'簙' => '漢',
+'簠' => '��',
+'簟' => '禲',
+'簭' => '��',
+'簝' => '��',
+'簦' => '穬',
+'簨' => '��',
+'簢' => '��',
+'簥' => '��',
+'簰' => '鵻',
+'繜' => '��',
+'繐' => '��',
+'繖' => '氶',
+'繣' => '錙',
+'繘' => '��',
+'繢' => '蝩',
+'繟' => '錦',
+'繑' => '��',
+'繠' => '錡',
+'繗' => '��',
+'繓' => '��',
+'羵' => '��',
+'羳' => '��',
+'翷' => '黛',
+'翸' => '鼾',
+'聵' => '夒',
+'臑' => '��',
+'臒' => '��',
+'臐' => '��',
+'艟' => '藶',
+'艞' => '��',
+'薴' => '犺',
+'藆' => '肙',
+'藀' => '疕',
+'藃' => '礽',
+'藂' => '椒',
+'薳' => '狁',
+'薵' => '狅',
+'薽' => '町',
+'藇' => '歃',
+'藄' => '耴',
+'薿' => '疔',
+'藋' => '芐',
+'藎' => '搟',
+'藈' => '肒',
+'藅' => '肕',
+'薱' => '狃',
+'薶' => '鎚',
+'藒' => '芓',
+'蘤' => '岪',
+'薸' => '玗',
+'薷' => '瑏',
+'薾' => '甹',
+'虩' => '��',
+'蟧' => '洭',
+'蟦' => '洴',
+'蟢' => '氠',
+'蟛' => '馦',
+'蟫' => '洿',
+'蟪' => '馧',
+'蟥' => '顙',
+'蟟' => '毘',
+'蟳' => '洺',
+'蟤' => '洨',
+'蟔' => '柉',
+'蟜' => '殄',
+'蟓' => '颻',
+'蟭' => '洊',
+'蟘' => '柋',
+'蟣' => '繸',
+'螤' => '��',
+'蟗' => '柪',
+'蟙' => '欨',
+'蠁' => '��',
+'蟴' => '洚',
+'蟨' => '洟',
+'蟝' => '殶',
+'襓' => '浰',
+'襋' => '涍',
+'襏' => '浞',
+'襌' => '淯',
+'襆' => '嵽',
+'襐' => '浧',
+'襑' => '浠',
+'襉' => '鵓',
+'謪' => '��',
+'謧' => '��',
+'謣' => '痏',
+'謳' => '琠',
+'謰' => '��',
+'謵' => '��',
+'譇' => '耛',
+'謯' => '逡',
+'謼' => '網',
+'謾' => '獺',
+'謱' => '��',
+'謥' => '��',
+'謷' => '��',
+'謦' => '鬘',
+'謶' => '��',
+'謮' => '裞',
+'謤' => '��',
+'謻' => '��',
+'謽' => '��',
+'謺' => '��',
+'豂' => '陫',
+'豵' => '喁',
+'貙' => '��',
+'貘' => '蘧',
+'貗' => '��',
+'賾' => '寔',
+'贄' => '縤',
+'贂' => '��',
+'贀' => '��',
+'蹜' => '��',
+'蹢' => '爙',
+'蹠' => '嚽',
+'蹗' => '��',
+'蹖' => '��',
+'蹞' => '爙',
+'蹥' => '��',
+'蹧' => '媎',
+'蹛' => '��',
+'蹚' => '昋',
+'蹡' => '��',
+'蹝' => '樖',
+'蹩' => '龑',
+'蹔' => '��',
+'轆' => '磥',
+'轇' => '毸',
+'轈' => '溛',
+'轋' => '溏',
+'鄨' => '��',
+'鄺' => '絔',
+'鄻' => '��',
+'鄾' => '��',
+'醨' => '嫫',
+'醥' => '嫪',
+'醧' => '嫭',
+'醯' => '黤',
+'醪' => '麛',
+'鎵' => '斔',
+'鎌' => '蟑',
+'鎒' => '嚭',
+'鎷' => '��',
+'鎛' => '熡',
+'鎝' => '嚚',
+'鎉' => '澕',
+'鎧' => '霟',
+'鎎' => '熲',
+'鎪\' => '懱',
+'鎞' => '熧',
+'鎦' => '攃',
+'鎕' => '熩',
+'鎈' => '潿\',
+'鎙' => '熞',
+'鎟' => '熳',
+'鎍' => '潻',
+'鎱' => '��',
+'鎑' => '熛',
+'鎲' => '��',
+'鎤' => '獞',
+'鎨' => '獛',
+'鎴' => '��',
+'鎣' => '獒',
+'鎥' => '獟',
+'闒' => '澰',
+'闓' => '燅',
+'闑' => '澲',
+'隳' => '蓌',
+'雗' => '螚',
+'雚' => '褦',
+'巂' => '�`',
+'雟' => '褱',
+'雘' => '螉',
+'雝' => '褮',
+'霣' => '錉',
+'霢' => '鋾',
+'霥' => '鋻',
+'鞬' => '歛',
+'鞮' => '殭',
+'鞨' => '檅',
+'鞫' => '鰶',
+'鞤' => '檑',
+'鞪' => '檒',
+'鞢' => '檤',
+'鞥' => '橿',
+'韗' => '甏',
+'韙' => '頦',
+'韖' => '甒',
+'韘' => '疄',
+'韺' => '��',
+'顐' => '睇',
+'顑' => '��',
+'顒' => '��',
+'颸' => '駹\',
+'饁' => '繗',
+'餼' => '熅',
+'餺' => '繖',
+'騏' => '緦',
+'騋' => '櫋',
+'騉' => '櫑',
+'騍' => '緶',
+'騄' => '旝',
+'騑' => '櫍',
+'騊' => '櫙',
+'騅' => '緱',
+'騇' => '櫠',
+'騆' => '櫧',
+'髀' => '鷘',
+'髜' => '霦',
+'鬈' => '攩',
+'鬄' => '��',
+'鬅' => '��',
+'鬩' => '蒰',
+'鬵' => '瀻',
+'魊' => '蠋',
+'魌' => '矌',
+'魋' => '盭',
+'鯇' => '灖',
+'鯆' => '��',
+'鯃' => '��',
+'鮿' => '��',
+'鯁' => '攠',
+'鮵' => '鶤',
+'鮸' => '鶘',
+'鯓' => '��',
+'鮶' => '鶝',
+'鯄' => '��',
+'鮹' => '鶐',
+'鮽' => '��',
+'鵜' => '蟳',
+'鵓' => '蟛',
+'鵏' => '觿',
+'鵊' => '虈',
+'鵛' => '顲',
+'鵋' => '襹',
+'鵙' => '鑳',
+'鵖' => '鑭',
+'鵌' => '襺',
+'鵗' => '鑯',
+'鵒' => '蟥',
+'鵔' => '躣',
+'鵟' => '鱭\',
+'鵘' => '鑱',
+'鵚' => '靉',
+'麎' => '��',
+'麌' => '��',
+'黟' => '蘺',
+'鼁' => '�z',
+'鼀' => '�y',
+'鼖' => '��',
+'鼥' => '��',
+'鼫' => '��',
+'鼪' => '��',
+'鼩' => '��',
+'鼨' => '��',
+'齌' => '�T',
+'齕' => '�[',
+'儴' => '��',
+'儵' => '��',
+'劖' => '��',
+'勷' => '��',
+'厴' => '婻',
+'嚫' => '��',
+'嚭' => '��',
+'嚦' => '萷',
+'嚧' => '��',
+'嚪' => '遉',
+'嚬' => 'け',
+'壚' => '詏',
+'壝' => '��',
+'壛' => '��',
+'夒' => '��',
+'嬽' => '擱',
+'嬾' => '��',
+'嬿' => '��',
+'巃' => '�a',
+'幰' => '��',
+'徿' => '��',
+'懻' => '��',
+'攇' => '�g',
+'攐' => '�o',
+'攍' => '�l',
+'攉' => '葖',
+'攌' => '�k',
+'攎' => '�m',
+'斄' => '��',
+'旞' => '��',
+'旝' => '��',
+'曞' => '��',
+'櫧' => '橭',
+'櫠' => '��',
+'櫌' => '��',
+'櫑' => '��',
+'櫙' => '��',
+'櫋' => '��',
+'櫟' => '魦',
+'櫜' => '��',
+'櫐' => '��',
+'櫫' => '樿',
+'櫏' => '��',
+'櫍' => '��',
+'櫞' => '橕',
+'歠' => '�f',
+'殰' => '��',
+'氌' => '諈',
+'瀙\' => '�p',
+'瀧' => '蜤',
+'瀠' => '儇',
+'瀖' => '�m',
+'瀫' => '��',
+'瀡' => '�v',
+'瀢' => '�w',
+'瀣' => '戭',
+'瀩' => '�}',
+'瀗' => '�n',
+'瀤' => '�x',
+'瀜' => '�q',
+'瀪' => '�~',
+'爌' => '�p',
+'爊' => '�n',
+'爇' => '�k',
+'爂' => '�g',
+'爅' => '�j',
+'犥' => '偏',
+'犦' => '��',
+'犤' => '��',
+'犣' => '��',
+'犡' => '��',
+'瓋' => '��',
+'瓅' => '迢',
+'璷' => '觔',
+'瓃' => '述',
+'甖' => '騜',
+'癠' => '託',
+'矉' => 'け',
+'矊' => '��',
+'矄' => '��',
+'矱' => '蛀',
+'礝' => '焜',
+'礛' => '然',
+'礡' => '耬',
+'礜' => '煮',
+'礗' => '焚',
+'礞' => '翲',
+'禰' => '曒',
+'穧' => '榔',
+'穨' => '虰',
+'簳' => '��',
+'簼' => '��',
+'簹' => '��',
+'簬' => '��',
+'簻' => '��',
+'糬' => '嬉',
+'糪' => '墦\',
+'繶' => '頷',
+'繵' => '頻',
+'繸' => '頹',
+'繰' => '諑',
+'繷' => '頭',
+'繯' => '諔',
+'繺' => '餐\',
+'繲' => '鞘',
+'繴' => '頸',
+'繨' => '雕',
+'罋' => '怤',
+'罊' => '��',
+'羃' => '蹶',
+'羆' => '蹓',
+'羷' => '��',
+'翽' => '嚕',
+'翾' => '嚮',
+'聸' => '��',
+'臗' => '躊',
+'臕' => '桿',
+'艤' => '纀',
+'艡' => '��',
+'艣' => '��',
+'藫' => '��',
+'藱' => '��',
+'藭' => '��',
+'藙' => '��',
+'藡' => '��',
+'藨' => '��',
+'藚' => '��',
+'藗' => '��',
+'藬' => '��',
+'藲' => '��',
+'藸' => '��',
+'藘' => '��',
+'藟' => '��',
+'藣' => '��',
+'藜' => '瑆',
+'藑' => '芑',
+'藰' => '��',
+'藦' => '��',
+'藯' => '��',
+'藞' => '��',
+'藢' => '��',
+'蠀' => '��',
+'蟺' => '騕',
+'蠃' => '湀',
+'蟶' => '藙',
+'蟷' => '颿',
+'蠉' => '��',
+'蠌' => '��',
+'蠋' => '��',
+'蠆' => '繰',
+'蟼' => '��',
+'蠈' => '��',
+'蟿' => '騢',
+'蠊' => '騛',
+'蠂' => '��',
+'襢' => '抳',
+'襚' => '涋',
+'襛' => '浾',
+'襗' => '涘',
+'襡' => '涃',
+'襜' => '涀',
+'襘' => '洯',
+'襝' => '鵜',
+'襙' => '浨',
+'覈' => '瞄',
+'覷' => '膬',
+'覶' => '紘',
+'觶' => '鬕',
+'譐' => '脟',
+'譈' => '磾',
+'譊' => '聈',
+'譀' => '��',
+'譓' => '脡',
+'譖' => '稄',
+'譔' => '蚴',
+'譋' => '擰',
+'譕' => '脧',
+'譑' => '脬',
+'譂' => '��',
+'譒' => '脞',
+'譗' => '脢',
+'豃' => '陱',
+'豷' => '喒',
+'豶' => '喣',
+'貚' => '��',
+'贆' => '��',
+'贇' => '��',
+'贉' => '��',
+'趬' => '��',
+'趪' => '��',
+'趭' => '��',
+'趫' => '��',
+'蹭' => '脖',
+'蹸' => '耰',
+'蹳' => '軹',
+'蹪' => '��',
+'蹯' => '纍',
+'蹻' => '軨',
+'軂' => '隈',
+'轒' => '溹',
+'轑' => '溱',
+'轏' => '溔',
+'轐' => '溠',
+'轓' => '滆',
+'辴' => '煸',
+'酀\' => '��',
+'鄿' => '��',
+'醰' => '嫛',
+'醭' => '麚',
+'鏞' => '檹',
+'鏇' => '櫡',
+'鏏' => '膕',
+'鏂' => '��',
+'鏚' => '艑',
+'鏐' => '膢',
+'鏹' => '氋',
+'鏬' => '髂',
+'鏌' => '攄',
+'鏙' => '艎',
+'鎩' => '鵅',
+'鏦' => '蔜',
+'鏊' => '黫',
+'鏔' => '艏',
+'鏮' => '蓲',
+'鏣' => '蔟',
+'鏕' => '艓',
+'鏄' => '��',
+'鏎' => '膞',
+'鏀' => '��',
+'鏒' => '膗',
+'鏧' => '蓻',
+'镽' => '嬙',
+'闚' => '燋',
+'闛' => '燔',
+'雡' => '褢',
+'霩' => '閾',
+'霫' => '閹',
+'霬' => '閺',
+'霨' => '闍',
+'霦' => '錖',
+'鞳' => '澩',
+'鞷' => '濣',
+'鞶' => '濔',
+'韝' => '鷒',
+'韞' => '頩',
+'韟' => '瞵',
+'顜' => '��',
+'顙' => '簹',
+'顝' => '��',
+'顗' => '��',
+'颿' => '楞',
+'颽' => '駾',
+'颻' => '駻',
+'颾' => '駼',
+'饈' => '獃',
+'饇' => '熏',
+'饃' => '犓',
+'馦' => '鄾',
+'馧' => '醨',
+'騚' => '瀫',
+'騕' => '氌',
+'騥' => '爇',
+'騝' => '瀣',
+'騤' => '爊',
+'騛' => '瀡',
+'騢' => '瀪',
+'騠' => '瀤',
+'騧' => '爅',
+'騣' => '跂',
+'騞' => '瀩',
+'騜' => '瀢',
+'騔' => '殰',
+'髂' => '鷵',
+'鬋' => '孅',
+'鬊' => '壣',
+'鬎' => '廮',
+'鬌' => '巆',
+'鬷' => '灁',
+'鯪' => '爞',
+'鯫' => '爟',
+'鯠' => '蠤',
+'鯞' => '蠛',
+'鯤' => '獿',
+'鯦' => '襮',
+'鯢' => '瓙',
+'鯰' => '瓗',
+'鯔' => '礵',
+'鯗' => '廲',
+'鯬' => '譺',
+'鯜' => '蠩',
+'鯙' => '��',
+'鯥' => '襩',
+'鯕' => '��',
+'鯡' => '犩',
+'鯚' => '��',
+'鵷' => '鑶',
+'鶁' => '鼊',
+'鶊' => '��',
+'鶄' => '��',
+'鶈' => '��',
+'鵱' => '蠼',
+'鶀' => '黶',
+'鵸' => '鑵',
+'鶆' => '��',
+'鶋' => '��',
+'鶌' => '��',
+'鵽' => '鱵',
+'鵫' => '齻',
+'鵴' => '釃',
+'鵵' => '鑴',
+'鵰' => '蛐',
+'鵩' => '齇',
+'鶅' => '��',
+'鵳' => '躦',
+'鵻' => '鱳',
+'鶂' => '��',
+'鵯' => '蟓',
+'鵹' => '驠',
+'鵿' => '鸓',
+'鶇' => '薶',
+'鵨' => '鼉',
+'麔' => '��',
+'麑' => '簷',
+'黀' => '�P',
+'黼' => '臊',
+'鼭' => '��',
+'齀' => '�I',
+'齁' => '�J',
+'齍' => '�U',
+'齖' => '�\\',
+'齗' => '�]',
+'齘' => '�^',
+'匷' => '�Z',
+'嚲' => '��',
+'嚵' => '��',
+'嚳' => '鈮',
+'壣' => '��',
+'孅' => '��',
+'巆' => '�c',
+'巇' => '�d',
+'廮' => '�_',
+'廯' => '�`',
+'忀' => '��',
+'忁' => '��',
+'懹' => '��',
+'攗' => '睖',
+'攖' => '稕',
+'攕' => '�s',
+'攓' => '摨',
+'旟' => '��',
+'曨' => '��',
+'曣' => '��',
+'曤' => '��',
+'櫳' => '駗',
+'櫰' => '跼',
+'櫪' => '飺',
+'櫨' => '髬',
+'櫹' => '��',
+'櫱' => '��',
+'櫮' => '��',
+'櫯' => '��',
+'瀼' => '��',
+'瀵\' => '撖',
+'瀯' => '��',
+'瀷' => '��',
+'瀴' => '��',
+'瀱' => '��',
+'灂' => '��',
+'瀸' => '��',
+'瀿' => '��',
+'瀺' => '��',
+'瀹' => '摰',
+'灀' => '��',
+'瀻' => '��',
+'瀳' => '��',
+'灁' => '��',
+'爓' => '栭',
+'爔' => '�x',
+'犨' => '��',
+'獽' => '便',
+'獼' => '漼',
+'璺' => '頝',
+'皫' => '��',
+'皪' => '��',
+'皾' => '��',
+'盭' => '崑',
+'矌' => '��',
+'矎' => '��',
+'矏' => '��',
+'矍' => '裀',
+'矲' => '蚶',
+'礥' => '猴',
+'礣' => '猥',
+'礧' => '濠',
+'礨' => '琪',
+'礤' => '翴',
+'礩' => '琳',
+'禲' => '跑',
+'穮' => '��',
+'穬' => '��',
+'穭' => '爁',
+'竷' => '��',
+'籉' => '鯚',
+'籈' => '聚',
+'籊' => '腐',
+'籇' => '聞',
+'籅' => '翡',
+'糮' => '嬋',
+'繻' => '館',
+'繾' => '諓',
+'纁' => '駢',
+'纀' => '駭',
+'羺' => '��',
+'翿' => '壙',
+'聹' => '壝',
+'臛' => '辯',
+'臙' => '醐',
+'舋' => '鼙',
+'艨' => '蘄',
+'艩' => '��',
+'蘢' => '喍',
+'藿' => '瑍',
+'蘁' => '姏',
+'藾' => '妵',
+'蘛' => '岠',
+'蘀' => '妺',
+'藶' => '僉',
+'蘄' => '猺',
+'蘉' => '蚸',
+'蘅' => '瓡',
+'蘌' => '妽',
+'藽' => '奅',
+'蠙' => '��',
+'蠐' => '藣',
+'蠑' => '襜',
+'蠗' => '��',
+'蠓' => '騝',
+'蠖' => '騥',
+'襣' => '浽',
+'襦' => '黟',
+'覹' => '紟',
+'觷' => '荁',
+'譠' => '莣',
+'譪' => '莕',
+'譝' => '舲',
+'譨' => '莏',
+'譣' => '桄',
+'譥' => '莤',
+'譧' => '荴',
+'譭' => '障',
+'趮' => '婇',
+'躆' => '逭',
+'躈' => '逴',
+'躄' => '軩',
+'轙' => '溷',
+'轖' => '滁',
+'轗' => '溞',
+'轕' => '溽',
+'轘' => '滉',
+'轚' => '溰',
+'邍' => '��',
+'酃' => '蛫',
+'酁' => '��',
+'醷' => '嫨',
+'醵' => '黧',
+'醲' => '嫞',
+'醳' => '嫝',
+'鐋' => '鵀',
+'鐓' => '檴',
+'鏻' => '蔮',
+'鐠' => '歞',
+'鐏' => '��',
+'鐔' => '檺',
+'鏾' => '蔞',
+'鐕' => '��',
+'鐐' => '趨',
+'鐨' => '懩',
+'鐙' => '瀇',
+'鐍' => '虢',
+'鏵' => '鞚',
+'鐀' => '嶄',
+'鏷' => '檷',
+'鐇' => '蔘',
+'鐎' => '��',
+'鐖' => '��',
+'鐒' => '鴭',
+'鏺' => '蔝',
+'鐉' => '蔰',
+'鏸' => '蓾',
+'鐊' => '蔋',
+'鏿' => '蓶',
+'鏼' => '蔂',
+'鐌' => '蔯',
+'鏶' => '蓩',
+'鐑' => '幮',
+'鐆' => '蓹',
+'闞' => '蜞',
+'闠' => '燘',
+'闟' => '熽',
+'霮' => '閶',
+'霯' => '閿',
+'鞹' => '濭',
+'鞻' => '濦',
+'韽' => '��',
+'韾' => '��',
+'顠' => '��',
+'顢' => '簼',
+'顣' => '��',
+'顟' => '��',
+'飁' => '髾',
+'飂' => '髽',
+'饐' => '��',
+'饎' => '��',
+'饙' => '��',
+'饌' => '獌',
+'饋' => '嚏',
+'饓' => '��',
+'騲' => '翌',
+'騴' => '矊',
+'騱\' => '甖',
+'騬' => '犡',
+'騪' => '犤',
+'騶' => '緷',
+'騩' => '犦',
+'騮' => '羬',
+'騸' => '羰',
+'騭' => '緮',
+'髇' => '鏮',
+'髊' => '鏄',
+'髆' => '眷',
+'鬐' => '廯',
+'鬒' => '褘',
+'鬑' => '忀',
+'鰋' => '霺',
+'鰈' => '穰',
+'鯷' => '酄',
+'鰅' => '鑀',
+'鰒' => '籜',
+'鯸' => '酅\',
+'鱀' => '羇',
+'鰇' => '闥',
+'鰎' => '顤',
+'鰆' => '鐱',
+'鰗' => '驄',
+'鰔' => '騹',
+'鰉' => '籙',
+'鶟' => '��',
+'鶙' => '��',
+'鶤' => '�A',
+'鶝' => '��',
+'鶒' => '��',
+'鶘' => '蟘',
+'鶐' => '��',
+'鶛' => '��',
+'鶠' => '��',
+'鶔' => '��',
+'鶜' => '��',
+'鶪' => '�G',
+'鶗' => '��',
+'鶡' => '��',
+'鶚' => '蟣',
+'鶢' => '��',
+'鶨' => '�E',
+'鶞' => '��',
+'鶣' => '�@',
+'鶿' => '螤',
+'鶩' => '蟙',
+'鶖' => '��',
+'鶦' => '�C',
+'鶧' => '�D',
+'麙' => '��',
+'麛' => '��',
+'麚' => '��',
+'黥' => '蘱',
+'黤' => '�f',
+'黧' => '蘼',
+'黦' => '�g',
+'鼰' => '��',
+'鼮' => '��',
+'齛' => '�a',
+'齠' => '鷇',
+'齞' => '�d',
+'齝' => '�c',
+'齙' => '鷁',
+'龑' => '��',
+'儺' => '棞',
+'儹' => '婗',
+'劘' => '��',
+'劗' => '��',
+'囃' => '��',
+'嚽' => '��',
+'嚾' => '辣',
+'孈' => '�@',
+'孇' => '��',
+'巋' => '錯',
+'巏' => '�k',
+'廱' => '�b',
+'懽' => '辣',
+'攛' => '艄',
+'欂' => '��',
+'櫼' => '��',
+'欃' => '��',
+'櫸' => '曋',
+'欀' => '��',
+'灃' => '蝆',
+'灄' => '髧',
+'灊' => '��',
+'灈' => '��',
+'灉' => '��',
+'灅' => '��',
+'灆' => '��',
+'爝' => '懃',
+'爚' => '�~',
+'爙' => '�}',
+'獾' => '漟',
+'甗' => '娌',
+'癪' => '貢',
+'矐' => '��',
+'礭' => '琶',
+'礱' => '篳',
+'礯' => '琯',
+'籔' => '與',
+'籓' => '臺',
+'糲' => '譪',
+'纊' => '膟',
+'纇' => '髭',
+'纈' => '觬',
+'纋' => '鴣',
+'纆' => '髻',
+'纍' => '濛',
+'罍' => '��',
+'羻' => '��',
+'耰' => '檯',
+'臝' => '邃',
+'蘘' => '屇',
+'蘪' => '瓽',
+'蘦' => '岝',
+'蘟' => '岬',
+'蘣' => '岢',
+'蘜' => '擅',
+'蘙' => '岮',
+'蘧' => '瑔',
+'蘮' => '帔',
+'蘡' => '岣',
+'蘠' => 'Ц',
+'蘩' => '瓿',
+'蘞' => '嗀',
+'蘥' => '岧',
+'蠩' => '籸',
+'蠝' => '��',
+'蠛' => '騢',
+'蠠' => '��',
+'蠤' => '穾',
+'蠜' => '��',
+'蠫' => '籿',
+'衊' => '鏖',
+'襭' => '觬',
+'襩' => '烑',
+'襮' => '烗',
+'襫' => '烋',
+'觺' => '茢',
+'譹' => '莯',
+'譸' => '莥',
+'譅' => '��',
+'譺' => '莈',
+'譻' => '莗',
+'贐' => '罼',
+'贔' => '湱',
+'趯' => '��',
+'躎' => '郼',
+'躌' => '鄄',
+'轞' => '熨',
+'轛' => '滍',
+'轝' => '豗',
+'酆' => '蛜',
+'酄' => '��',
+'酅\' => '凘',
+'醹' => '孷',
+'鐿' => '瀁',
+'鐻' => '輣',
+'鐶' => '鍤',
+'鐩' => '��',
+'鐽' => '輗',
+'鐼' => '輖',
+'鐰' => '踒',
+'鐹' => '輚',
+'鐪' => '��',
+'鐷' => '輤',
+'鐬' => '��',
+'鑀' => '懰',
+'鐱' => '膛',
+'闥' => '蒶',
+'闤' => '燛',
+'闣' => '燚',
+'霵' => '雔',
+'霺' => '霐',
+'鞿' => '濢',
+'韡' => '瞲',
+'顤' => '��',
+'飉' => '鮛',
+'飆' => '鴙',
+'飀' => '骾',
+'饘' => '��',
+'饖' => '��',
+'騹' => '��',
+'騽' => '��',
+'驆' => '��',
+'驄' => '翭',
+'驂' => '緰',
+'驁' => '罶',
+'騺' => '��',
+'騿' => '��',
+'髍' => '鏎',
+'鬕' => '攗',
+'鬗' => '攕',
+'鬘' => '攓',
+'鬖' => '攖',
+'鬺' => '犨',
+'魒' => '矍',
+'鰫' => '��',
+'鰝' => '��',
+'鰜' => '��',
+'鰬' => '��',
+'鰣' => '欈',
+'鰨' => '驐',
+'鰩' => '鬙',
+'鰤' => '��',
+'鰡' => '��',
+'鶷' => '�T',
+'鶶' => '�S',
+'鶼' => '蟴',
+'鷁' => '�^',
+'鷇' => '�d',
+'鷊' => '�g',
+'鷏' => '�l',
+'鶾' => '�[',
+'鷅' => '�b',
+'鷃' => '�`',
+'鶻' => '鷜',
+'鶵' => '�R',
+'鷎' => '�k',
+'鶹' => '�V',
+'鶺' => '�W',
+'鶬' => '�I',
+'鷈' => '�e',
+'鶱' => '�N',
+'鶭' => '�J',
+'鷌' => '�i',
+'鶳' => '�P',
+'鷍' => '�j',
+'鶲' => '�O',
+'鹺' => '齛',
+'麜' => '��',
+'黫' => '�i',
+'黮' => '�l',
+'黭' => '�k',
+'鼛' => '��',
+'鼘' => '��',
+'鼚' => '��',
+'鼱' => '��',
+'齎' => '耪',
+'齥' => '�k',
+'齤' => '�j',
+'龒' => '��',
+'亹' => '皜',
+'囆' => '��',
+'囅' => '氰',
+'囋' => '��',
+'奱' => '�a',
+'孋' => '�C',
+'孌' => '畾',
+'巕' => '�q',
+'巑' => '�m',
+'廲' => '�c',
+'攡' => '�~',
+'攠' => '�}',
+'攦' => '��',
+'攢' => '婗',
+'欋' => '噮',
+'欈' => '��',
+'欉' => '��',
+'氍' => '諡',
+'灕' => '燬',
+'灖' => '��',
+'灗' => '��',
+'灒' => '��',
+'爞' => '��',
+'爟' => '辣',
+'犩' => '��',
+'獿' => '俠',
+'瓘' => '��',
+'瓕' => '譆',
+'瓙' => '��',
+'瓗' => '��',
+'癭' => '顐',
+'皭' => '��',
+'礵' => '甦',
+'禴' => '跌',
+'穰' => '藀',
+'穱' => '��',
+'籗' => '艋',
+'籜' => '鵳',
+'籙' => '蒿',
+'籛' => '蓄',
+'籚' => '蓆',
+'糴' => '殕',
+'糱' => '嬌',
+'纑' => '黔',
+'罏' => '詏',
+'羇' => '縱',
+'臞' => '鐳',
+'艫' => '舋',
+'蘴' => '彔',
+'蘵' => '徂',
+'蘳' => '弤',
+'蘬' => '岦',
+'蘲' => '弣',
+'蘶' => '彾',
+'蠬' => '粀',
+'蠨' => '籺',
+'蠦' => '笀',
+'蠪' => '籹',
+'蠥' => '竑',
+'襱' => '烠',
+'覿' => '膹',
+'覾' => '罡\',
+'觻' => '��',
+'譾' => '稌',
+'讄' => '虖',
+'讂' => '莚',
+'讆' => '蚷',
+'讅' => '机',
+'譿' => '莇',
+'贕\' => '湫',
+'躕' => '纈',
+'躔' => '臝',
+'躚' => '櫸',
+'躒' => '孇',
+'躐' => '蘘',
+'躖' => '鄀',
+'躗' => '鄇',
+'轠' => '滃',
+'轢' => '瀄',
+'酇' => '劀',
+'鑌' => '旛',
+'鑐' => '醄',
+'鑊' => '瀌',
+'鑋' => '醅',
+'鑏' => '醂',
+'鑇' => '鄪',
+'鑅' => '鄫',
+'鑈' => '鄲',
+'鑉' => '鄦',
+'鑆' => '鄩',
+'霿' => '韰',
+'韣' => '瞶',
+'顪' => '��',
+'顩' => '��',
+'飋' => '鮡',
+'饔' => '壧',
+'饛' => '��',
+'驎' => '��',
+'驓' => '��',
+'驔' => '��',
+'驌' => '��',
+'驏' => '翫',
+'驈' => '��',
+'驊' => '緡',
+'驉' => '��',
+'驒' => '��',
+'驐' => '��',
+'髐' => '鏧',
+'鬙' => '旟',
+'鬫' => '瀴',
+'鬻' => '毿',
+'魖' => '礣',
+'魕' => '礥',
+'鱆' => '蘬',
+'鱈' => '魖',
+'鰿' => '罏',
+'鱄' => '蘵',
+'鰹' => '欋',
+'鰳' => '鬫',
+'鱁' => '臞',
+'鰼' => '��',
+'鰷' => '欉',
+'鰴' => '��',
+'鰲' => '驉',
+'鰽' => '糱',
+'鰶' => '��',
+'鷛' => '�x',
+'鷒' => '�o',
+'鷞' => '�{',
+'鷚' => '襓',
+'鷋' => '�h',
+'鷐' => '�m',
+'鷜' => '�y',
+'鷑' => '�n',
+'鷟' => '�|',
+'鷩' => '��',
+'鷙' => '虩',
+'鷘' => '�u',
+'鷖' => '�s',
+'鷵' => '��',
+'鷕' => '�r',
+'鷝' => '�z',
+'麶' => '�J',
+'黰' => '褘',
+'鼵' => '�C',
+'鼳' => '�A',
+'鼲' => '�@',
+'齂' => '�K',
+'齫' => '�q',
+'龕' => '膻',
+'龢' => '睿',
+'儽' => '��',
+'劙' => '��',
+'壨' => '��',
+'壧' => '��',
+'奲' => '�b',
+'孍' => '�E',
+'巘' => '�t',
+'蠯' => '紈',
+'彏' => '��',
+'戁' => '��',
+'戃' => '��',
+'戄' => '��',
+'攩' => '結',
+'攥' => '葶',
+'斖' => '��',
+'曫' => '��',
+'欑' => '婗',
+'欒' => '鴄',
+'欏' => '憿',
+'毊' => '��',
+'灛' => '��',
+'灚' => '��',
+'爢' => '��',
+'玂' => '保',
+'玁' => '榶',
+'玃' => '騣',
+'癰' => '虒',
+'矔' => '��',
+'籧' => '蓊',
+'籦' => '蓑',
+'纕' => '償',
+'艬' => '贛',
+'蘺' => '楒',
+'虀' => '怋',
+'蘹' => '忞',
+'蘼' => '瓽',
+'蘱' => '弢',
+'蘻' => '怭',
+'蘾' => '怙',
+'蠰' => '紁',
+'蠲' => '遾',
+'蠮' => '紃',
+'蠳' => '羑',
+'襶' => '烇',
+'襴' => '烅',
+'襳' => '烍',
+'觾' => '��',
+'讌' => '栯',
+'讎' => '鷌',
+'讋' => '��',
+'讈' => '��',
+'豅' => '隿',
+'贙' => '湓',
+'躘' => '鄅',
+'轤' => '濄',
+'轣' => '溙',
+'醼' => '��',
+'鑢' => '鋨',
+'鑕' => '鋀',
+'鑝' => '鋗',
+'鑗' => '銶',
+'鑞' => '鋝',
+'韄' => '燲',
+'韅' => '燤',
+'頀' => '��',
+'驖' => '��',
+'驙' => '��',
+'鬞' => '櫰',
+'鬟' => '曫',
+'鬠' => '櫪',
+'鱒' => '鰹',
+'鱘' => '攡',
+'鱐' => '覾',
+'鱊' => '蠨',
+'鱍' => '鼱',
+'鱋\' => '蠦',
+'鱕' => '讆',
+'鱙' => '躕',
+'鱌' => '蠪',
+'鱎' => '襱',
+'鷻' => '��',
+'鷷' => '��',
+'鷯' => '襋',
+'鷣' => '��',
+'鷫' => '��',
+'鷸' => '襆',
+'鷤' => '��',
+'鷶' => '��',
+'鷡' => '�~',
+'鷮' => '��',
+'鷦' => '襏',
+'鷲' => '襌',
+'鷰' => '桏',
+'鷢' => '��',
+'鷬' => '��',
+'鷴' => '��',
+'鷳' => '蟟',
+'鷨' => '��',
+'鷭' => '��',
+'黂' => '�R',
+'黐' => '�[',
+'黲' => '蘻',
+'黳' => '�p',
+'鼆' => '��',
+'鼜' => '��',
+'鼸' => '�E',
+'鼷' => '襶',
+'鼶' => '�D',
+'齃' => '�L',
+'齏' => '黕',
+'齱' => '�w',
+'齰' => '捰',
+'齮' => '�t',
+'齯' => '�u',
+'囓' => '蘚',
+'囍' => '��',
+'孎' => '�F',
+'屭' => '��',
+'攭' => '��',
+'曭' => '��',
+'曮' => '��',
+'欓' => '��',
+'灟' => '��',
+'灡' => '��',
+'灝' => '撠',
+'灠' => '僾',
+'爣' => '��',
+'瓛' => '��',
+'瓥' => '��',
+'矕' => '��',
+'礸' => '痢',
+'禷' => '軻',
+'禶' => '跆',
+'籪' => '匷',
+'纗' => '儲',
+'羉' => '繁',
+'艭' => '釀',
+'虃' => '��',
+'蠸' => '耏',
+'蠷' => '耎',
+'蠵' => '羾',
+'衋' => '胊',
+'讔' => '��',
+'讕' => '擰',
+'躞' => '蘦',
+'躟' => '酢',
+'躠' => '酠',
+'躝' => '酟',
+'醾' => '��',
+'醽' => '��',
+'釂' => '��',
+'鑫' => '鼛',
+'鑨' => '鋕',
+'鑩' => '鋉',
+'雥' => '褬',
+'靆' => '餧',
+'靃' => '齊',
+'靇' => '餩',
+'韇' => '燢',
+'韥' => '��',
+'驞' => '豃',
+'髕' => '鷝',
+'魙' => '礤',
+'鱣' => '鱄',
+'鱧' => '鰳',
+'鱦' => '鑋',
+'鱢' => '酇',
+'鱞' => '躖',
+'鱠' => '醑',
+'鸂' => '��',
+'鷾' => '��',
+'鸇' => '�D',
+'鸃' => '�@',
+'鸆' => '�C',
+'鸅' => '�B',
+'鸀' => '��',
+'鸁' => '��',
+'鸉' => '�F',
+'鷿' => '��',
+'鷽' => '��',
+'鸄' => '�A',
+'麠' => '��',
+'鼞' => '隄',
+'齆' => '�N',
+'齴' => '�z',
+'齵' => '�{',
+'齶' => '錥',
+'囔' => '鳭',
+'攮' => '葹',
+'斸' => '��',
+'欘' => '��',
+'欙' => '��',
+'欗' => '��',
+'欚' => '��',
+'灢' => '��',
+'爦' => '��',
+'犪' => '��',
+'矘' => '��',
+'矙' => '謍',
+'礹' => '痛',
+'籩' => '鯡',
+'籫' => '蜢',
+'糶' => '譝',
+'纚' => '嚀',
+'纘' => '諕',
+'纛' => '鐕',
+'纙' => '嚎',
+'臠' => '湳',
+'臡' => '鐸',
+'虆' => '��',
+'虇' => '��',
+'虈' => '��',
+'襹' => '烡',
+'襺' => '牂',
+'襼' => '牸',
+'襻' => '鼁',
+'觿' => '��',
+'讘' => '��',
+'讙' => '辣',
+'躥' => '款',
+'躤' => '鈃',
+'躣' => '鈥',
+'鑮' => '鋑',
+'鑭' => '檭',
+'鑯' => '鋓',
+'鑱' => '��',
+'鑳' => '瑩',
+'靉' => '駮',
+'顲' => '韔',
+'饟' => '熁',
+'鱨' => '鑇',
+'鱮' => '韣',
+'鱭\' => '巕',
+'鸋' => '�H',
+'鸍' => '�J',
+'鸐' => '�M',
+'鸏' => '�L',
+'鸒' => '�O',
+'鸑' => '�N',
+'麡' => '��',
+'黵' => '�r',
+'鼉' => '鷎',
+'齇' => '�O',
+'齸' => '�~',
+'齻' => '��',
+'齺' => '��',
+'齹' => '��',
+'圞' => '鴄',
+'灦' => '��',
+'籯' => '蝕',
+'蠼' => '騣',
+'趲' => '鏷',
+'躦' => '蘪',
+'釃' => '鶚',
+'鑴' => '��',
+'鑸' => '��',
+'鑶' => '��',
+'鑵' => '嫡',
+'驠' => '豶',
+'鱴' => '驎',
+'鱳' => '饛',
+'鱱' => '飋',
+'鱵' => '驓',
+'鸔' => '�Q',
+'鸓' => '�P',
+'黶' => '�s',
+'鼊' => '��',
+'龤' => '迣',
+'灨' => '該',
+'灥' => '��',
+'糷' => '層',
+'虪' => '��',
+'蠾' => '胇',
+'蠽' => '胘',
+'蠿' => '胠',
+'讞' => '竤',
+'貜' => '��',
+'躩' => '鈀',
+'軉' => '��',
+'靋' => '駥',
+'顳' => '簳',
+'顴' => '��',
+'飌' => '鮥',
+'饡' => '��',
+'馫' => '醯',
+'驤' => '翬',
+'驦' => '轓',
+'驧' => '趭',
+'鬤' => '櫱',
+'鸕' => '藒',
+'鸗' => '�T',
+'齈' => '�P',
+'戇' => '禨',
+'欞' => '凞',
+'爧' => '��',
+'虌' => '��',
+'躨' => '鈌',
+'钂' => '噞',
+'钀' => '��',
+'钁' => '檶',
+'驩' => '蹭',
+'驨' => '趫',
+'鬮' => '蓗',
+'鸙' => '�V',
+'爩' => '��',
+'虋' => '��',
+'讟' => '��',
+'钃' => '��',
+'鱹' => '驈',
+'麷' => '�K',
+'癵' => '迷',
+'驫' => '蹻',
+'鱺' => '攦',
+'鸝' => '蟫',
+'灩' => '駇',
+'灪' => '��',
+'麤' => '棉',
+'齾' => '��',
+'齉' => '�Q',
+'龘' => '��',
+'��' => '��',
+'��' => '凄',
+'��' => '爵',
+'��' => 'Х',
+'��' => '箝',
+'��' => '衒',
+'��' => '瘚',
+'��' => '汴',
+'��' => '甫',
+'��' => '沍',
+'��' => '牡',
+'��' => '私',
+'��' => '狂',
+'��' => '沂',
+'��' => '皂',
+'��' => '災',
+'��' => '汲',
+'��' => '玖',
+'��' => '沆',
+'��' => '灸',
+'��' => '盯',
+'��' => '牠',
+'��' => '沔\',
+'��' => '男',
+'��' => '灶',
+'��' => '汾',
+'��' => '甬',
+'��' => '汶',
+'��' => '牢',
+'��' => '矣',
+'��' => '狄',
+'��' => '沘',
+'��' => '甸',
+'��' => '灼',
+'��' => '沃',
+'��' => '汽',
+'��' => '秀',
+'��' => '禿',
+'��' => '系',
+'��' => '究',
+'��' => '��',
+);
+
+our(@ISA, @EXPORT);
+@ISA = qw(Exporter);
+@EXPORT = qw(%b2g);
+
+1;
diff --git a/pttbbs/staticweb/banner.html b/pttbbs/staticweb/banner.html
new file mode 100644
index 00000000..4a8d0678
--- /dev/null
+++ b/pttbbs/staticweb/banner.html
@@ -0,0 +1,10 @@
+<div id="banner">
+    <h1><a href="http://blog.ptt.cc/blog.pl/ptt/"
+           accesskey="1">[% IF gb %]蠶杺杺妗珛溶[% ELSE %]批踢踢實業坊[% END %]</a></h1>
+
+<div style="position:absolute; right: 15%;">
+<a href="./">[% IF gb %]楛极笢恅[% ELSE %]繁體中文[% END %](big5)</a>
+<a href="./?gb=1">[% IF gb %]潠极笢恅[% ELSE %]簡體中文[% END %](gb2312)</a>
+</div>
+
+</div>
diff --git a/pttbbs/staticweb/dir.html b/pttbbs/staticweb/dir.html
new file mode 100644
index 00000000..c3ce33ac
--- /dev/null
+++ b/pttbbs/staticweb/dir.html
@@ -0,0 +1,41 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center">
+<tr><td>
+[% INCLUDE banner.html %]
+</td></tr>
+
+<tr><td>
+<a href="http://man.ptt.cc/[% IF gb %]?gb=1[% END %]">[% IF gb %]厙珜唳儕貌⑹忑珜[% ELSE %]網頁版精華區首頁[% END %]</a>
+<a href="http://man.ptt.cc/man.pl/[% brdname %]/[% IF gb %]?gb=1[% END %]">[% brdname %][% IF gb %]儕貌⑹忑珜[% ELSE %]精華區首頁[% END %]</a>
+<a href="http://blog.ptt.cc">[% IF gb %]蠶杺杺窒邈跡(big5 only)[% ELSE %]批踢踢部落格[% END %]</a>
+<br />
+<font size=+1>[% IF gb %]艘啣靡備[% ELSE %]看板名稱[% END %]: <a href="/man.pl/[% brdname %]/">[% brdname %]</a></font>
+<hr />
+</td></tr>
+
+<tr><td>
+[% IF !isroot %]
+<a href="../[% IF gb %]?gb=1[% END %]"><img src="http://images.ptt.cc/folder.gif" style="border:0;" />[% IF gb %]殿隙奻珨脯[% ELSE %]返回上一層[% END %]</a><br />
+[% END %]
+
+[% FOREACH x=dat %]
+<img src="http://images.ptt.cc/[% IF x.isdir %]folder.gif[% ELSE %]f.gif[% END %]" style="border:0;" />
+<a href="/[% x.fn %][% IF gb %]?gb=1[% END %]">
+[% x.title %]</a><br />
+[% END %]
+</td></tr>
+<tr><td>
+[% IF !gb %]
+<hr />
+<form method="POST" action="/man.pl/[% brdname %]/">
+[% IF gb %]婓涴跺儕貌⑹囀楹讀[% ELSE %]在這個精華區內翻弄[% END %]
+<input type="text" name="key">
+<input type="submit" value="[% IF gb %]檜[% ELSE %]撈[% END %]">
+</form>
+[% END %]
+<hr />
+<a href="telnet://ptt.cc">[% IF gb %]蠶杺杺妗珛溶[% ELSE %]批踢踢實業坊[% END %]</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+</body>
+</html>
diff --git a/pttbbs/staticweb/header.html b/pttbbs/staticweb/header.html
new file mode 100644
index 00000000..7f33ab66
--- /dev/null
+++ b/pttbbs/staticweb/header.html
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="[% encoding %]"?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+          "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml"
+      xml:lang="[% lang %]" lang="[% lang %]">
+<head>
+    <title>[% IF gb %]蠶杺杺妗珛溶[% ELSE %]批踢踢實業坊[% END %]</title>
+    <meta http-equiv="Content-Type"
+          content="text/html; charset=[% charset %]">
+    <meta name="generator" content="pttMan" />
+    <meta name="robots" content="all" />
+    <link rel="stylesheet" href="/styles.css" type="text/css" />
+</head>
+<body>
diff --git a/pttbbs/staticweb/index.html b/pttbbs/staticweb/index.html
new file mode 100644
index 00000000..6ad6e831
--- /dev/null
+++ b/pttbbs/staticweb/index.html
@@ -0,0 +1,47 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center">
+<tr><td>
+[% INCLUDE banner.html %]
+</td></tr>
+
+<tr><td>
+<a href="http://man.ptt.cc/index.pl/[% IF gb %]?gb=1[% END %]">[% IF gb %]蠶杺杺妗珛溶眳儕貌⑹[% ELSE %]批踢踢實業坊之精華區[% END %]</a>
+[% FOREACH x=class %]
+&raquo;<a href="/index.pl[% x.path %]">[% x.title %]</a>
+[% END %]
+<br />
+<br />
+<table>
+    [% IF !isroot %]
+    <tr>
+      <td>
+        <img src="http://images.ptt.cc/folder.gif" style="border: 0;" />
+      </td>
+      <td>
+      </td>
+      <td>
+        <a href="../">返回上一層</a>
+      </td>
+    </tr>
+    [% END %]
+    [% FOREACH x=dat %]
+    <tr>
+      <td>
+        <img src="http://images.ptt.cc/[% IF x.0 == -1 %]f.gif[% ELSE %]folder.gif[% END %]" style="border: 0;" />
+      </td>
+      <td>[% x.1 %]</td>
+      <td>
+        [% IF x.0 == -1 %]<a href="/man.pl/[% x.1 %]/[% IF gb %]?gb=1[% END %]">[% ELSE %]<a href="[% x.0 %]/[% IF gb %]?gb=1[% END %]">[% END %]
+        [% x.2 %]</a>
+      </td>
+    </tr>
+    [% END %]
+</table>
+</td></tr>
+<tr><td>
+<hr />
+<a href="telnet://ptt.cc">[% IF gb %]蠶杺杺妗珛溶[% ELSE %]批踢踢實業坊[% END %]</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+</body>
+</html>
diff --git a/pttbbs/staticweb/index.pl b/pttbbs/staticweb/index.pl
new file mode 100755
index 00000000..b0e53c24
--- /dev/null
+++ b/pttbbs/staticweb/index.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+# $Id$
+use lib qw/./;
+use LocalVars;
+use CGI qw/:standard/;
+use strict;
+use Template;
+use boardlist;
+use b2g;
+
+sub main
+{
+    my($tmpl, %rh, $bid);
+
+    if( param('gb') ){
+	$rh{gb} = 1;
+	$rh{encoding} = 'gb2312';
+	$rh{lang} = 'zh_CN';
+	$rh{charset} = 'gb2312';    }
+    else{
+	print redirect("/man.pl/$1/")
+	    if( $ENV{REDIRECT_REQUEST_URI} =~ m|/\?(.*)| );
+	$rh{encoding} = 'Big5';
+	$rh{lang} = 'zh_TW';
+	$rh{charset} = 'big5';
+    }
+
+    return redirect('/index.pl/'.($rh{gb}?'?gb=1':''))
+	if( $ENV{REQUEST_URI} eq '/' );
+
+    charset('');
+    print header();
+
+    ($bid) = $ENV{PATH_INFO} =~ m|.*/(\d+)/$|;
+    $bid ||= 0;
+    $rh{isroot} = ($bid == 0);
+
+    if( !$brd{$bid} ){
+	print "sorry, this bid $bid not found :(";
+	return ;
+    }
+
+    foreach( @{$brd{$bid}} ){
+	next if( $_->[0] == -1 && ! -e "$MANDATA/$_->[1].db" );
+	$_->[2] =~ s/([\xA1-\xF9].)/$b2g{$1}/eg if( $rh{gb} );
+	push @{$rh{dat}}, $_;
+    }
+
+    my $path = '';
+    foreach( $ENV{PATH_INFO} =~ m|(\w+)|g ){
+	push @{$rh{class}}, {path => "$path/$_/",
+			     title => $brd{"$_.title"}};
+	$path .= "/$_";
+    }
+
+    $tmpl = Template->new({INCLUDE_PATH => '.',
+			   ABSOLUTE => 0,
+			   RELATIVE => 0,
+			   RECURSION => 0,
+			   EVAL_PERL => 0,
+			   COMPILE_EXT => '.tmpl',
+			   COMPILE_DIR => $MANCACHE});
+    $tmpl->process('index.html', \%rh);
+}
+
+main();
+1;
diff --git a/pttbbs/staticweb/man.pl b/pttbbs/staticweb/man.pl
new file mode 100755
index 00000000..729a78d1
--- /dev/null
+++ b/pttbbs/staticweb/man.pl
@@ -0,0 +1,130 @@
+#!/usr/bin/perl
+# $Id$
+use CGI qw/:standard/;
+use lib qw/./;
+use LocalVars;
+use DB_File;
+use strict;
+use Data::Dumper;
+use Date::Calc qw(:all);
+use Template;
+use OurNet::FuzzyIndex;
+use Data::Serializer;
+use Encode;
+use Time::HiRes qw/gettimeofday tv_interval/;
+use b2g;
+
+use vars qw/%db $brdname $fpath $isgb %b2g/;
+
+sub main
+{
+    my($tmpl, $rh, $key);
+
+    if( !(($brdname, $fpath) = $ENV{PATH_INFO} =~ m|^/([\w\-]+?)(/.*)|) ||
+	!(tie %db, 'DB_File',
+	  "$MANDATA/$brdname.db", O_RDONLY, 0666, $DB_HASH) ){
+	return redirect("/man.pl/$1/")
+	    if( $ENV{PATH_INFO} =~ m|^/([\w\-]+?)$| );
+	print header(-status => 404);
+	return;
+    }
+
+    charset('');
+    print header();
+
+    $isgb = (param('gb') ? 1 : 0);
+
+    if( ($key = param('key')) ){
+	$rh = search($key);
+    }
+    else{
+	$rh = (($fpath =~ m|/$|) ? dirmode($fpath) : articlemode($fpath));
+    }
+    $rh->{brdname} = $brdname;
+    $tmpl = Template->new({INCLUDE_PATH => '.',
+			   ABSOLUTE => 0,
+			   RELATIVE => 0,
+			   RECURSION => 0,
+			   EVAL_PERL => 0,
+			   COMPILE_EXT => '.tmpl',
+			   COMPILE_DIR => $MANCACHE,
+		       });
+    if( $rh->{gb} = $isgb ){
+	$rh->{encoding} = 'gb2312';
+	$rh->{lang} = 'zh_CN';
+	$rh->{charset} = 'gb2312';
+    }
+    else{
+	$rh->{encoding} = 'Big5';
+	$rh->{lang} = 'zh_TW';
+	$rh->{charset} = 'big5';
+    }
+    $tmpl->process($rh->{tmpl}, $rh);
+}
+
+sub dirmode
+{
+    my(%th, $isdir);
+    my $serial = Data::Serializer->new(serializer => 'Storable',
+				       digester   => 'MD5',
+				       compress   => 0,
+				       );
+    foreach( @{$serial->deserialize($db{$fpath})} ){
+	$_->[1] =~ s/([\xA1-\xF9].)/$b2g{$1}/eg if( $isgb );
+	#Encode::from_to($_->[1], 'big5', 'gbk') if( $isgb );
+	$isdir = (($_->[0] =~ m|/$|) ? 1 : 0);
+	push @{$th{dat}}, {isdir => $isdir,
+			   fn    => "man.pl/$brdname$_->[0]",
+			   title => $_->[1]};
+    }
+
+    $th{tmpl} = 'dir.html';
+    $th{isroot} = ($fpath eq '/') ? 1 : 0;
+    return \%th;
+}
+
+sub articlemode
+{
+    my(%th);
+    $th{tmpl} = 'article.html';
+    $th{content} = $db{$fpath};
+    $th{content} =~ s/\033\[.*?m//g;
+
+    $th{content} =~ s|(http://[\w\-\.\:\/\,@\?=~]+)|<a href="$1">$1</a>|gs;
+    $th{content} =~ s|(ftp://[\w\-\.\:\/\,@~]+)|<a href="$1">$1</a>|gs;
+    $th{content} =~
+	s|批踢踢兔|<a href="http://blog.ptt2.cc">批踢踢兔</a>|gs;
+    $th{content} =~
+	s|發信站: 批踢踢實業坊|發信站: <a href="http://blog.ptt.cc">批踢踢實業坊</a>|gs;
+    $th{content} =~
+	s|ptt\.csie\.ntu\.edu\.tw|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.csie.ntu.edu.tw</a>|gs;
+    $th{content} =~
+	s|ptt\.twbbs\.org|<a href="telnet://ptt.csie.ntu.edu.tw">ptt.twbbs.org</a>|gs;
+
+    $th{content} =~ s/([\xA1-\xF9].)/$b2g{$1}/eg if( $isgb );
+    #Encode::from_to($th{content}, 'big5', 'gbk') if( $isgb );
+    return \%th;
+}
+
+sub search($)
+{
+    my($key) = @_;
+    my(%th, $idx, $k, $t0);
+    $t0 = [gettimeofday()];
+    $idx = OurNet::FuzzyIndex->new("$MANDATA/$brdname.idx");
+    my %result = $idx->query($th{key} = $key, MATCH_FUZZY);
+    foreach my $t (sort { $result{$b} <=> $result{$a} } keys(%result)) {
+	$k = $idx->getkey($t);
+	push @{$th{search}}, {title => $db{"title-$k"},
+			      fn    => $k,
+			      score => $result{$t} / 10};
+    }
+
+    $th{elapsed} = tv_interval($t0);
+    $th{key} = $key;
+    $th{tmpl} = 'search.html';
+    return \%th;
+}
+
+main();
+1;
diff --git a/pttbbs/staticweb/manbuilder.pl b/pttbbs/staticweb/manbuilder.pl
new file mode 100755
index 00000000..a1ea600f
--- /dev/null
+++ b/pttbbs/staticweb/manbuilder.pl
@@ -0,0 +1,85 @@
+#!/usr/bin/perl
+# $Id$
+use lib '/home/bbs/bin/';
+use strict;
+use OurNet::FuzzyIndex;
+use Getopt::Std;
+use DB_File;
+use BBSFileHeader;
+use Data::Serializer;
+
+my(%db, $idx, $serial);
+
+sub main
+{
+    die usage() unless( getopts('n') || !@ARGV );
+
+    $serial = Data::Serializer->new(serializer => 'Storable',
+				    digester   => 'MD5',
+                                    compress   => 0,
+                                    );
+
+    foreach( @ARGV ){
+	if( /\.db$/ ){
+	    next if( $Getopt::Std::opt_n );
+
+	    print "building idx for $_\n";
+	    tie %db, 'DB_File', $_, O_RDONLY, 0666, $DB_HASH;
+	    $idx = OurNet::FuzzyIndex->new(substr($_, 0, -3). '.idx');
+	    buildidx();
+	}
+	else{
+	    tie %db, 'DB_File', "$_.db", O_CREAT | O_RDWR, 0666, $DB_HASH;
+	    $idx = OurNet::FuzzyIndex->new("$_.idx")
+		if( !$Getopt::Std::opt_n );
+	    build("/home/bbs/man/boards/".substr($_, 0, 1)."/$_", '');
+	    untie %db;
+	}
+    }
+}
+
+sub buildidx
+{
+    foreach( keys %db ){
+	next if( /^title/ || /\/$/ ); # 是 title 或目錄的都跳過
+	$idx->insert($_, $db{"title-$_"}. "\n". $db{$_});
+    }
+}
+
+sub build($$)
+{
+    my($basedir, $doffset) = @_;
+    my(%bfh, $fn, @tdir);
+
+    print "building $basedir\n";
+    tie %bfh, 'BBSFileHeader', $basedir;
+    foreach( 0..($bfh{num} - 1) ){
+	next if( $bfh{"$_.filemode"} & 32 ); # skip HIDDEN
+
+	$fn = $bfh{"$_.filename"};
+	if( $bfh{"$_.isdir"} ){
+	    push @tdir, ["$doffset/$fn/", # 目錄結尾要加 /
+			 $db{"title-$doffset/$fn/"} = $bfh{"$_.title"}];
+	    build("$basedir/$fn", "$doffset/$fn");
+	}
+	else{
+	    push @tdir, ["$doffset/$fn",
+			 $db{"title-$doffset/$fn"} = $bfh{"$_.title"}];
+	    my $c = $bfh{"$_.content"};
+	    $idx->insert("$doffset/$fn", $bfh{"$_.title"}. "\n$c")
+		if( !$Getopt::Std::opt_n );
+	    $db{"$doffset/$fn"} = $c;
+	}
+    }
+    $db{"$doffset/"} = $serial->serialize(\@tdir);
+}
+
+sub usage
+{
+    print ("$0 [-n] boardname ...\n".
+	   "\t -n for .db only (no .idx)\n");
+    exit(0);
+}
+
+main();
+1;
diff --git a/pttbbs/staticweb/search.html b/pttbbs/staticweb/search.html
new file mode 100644
index 00000000..d19fdc1d
--- /dev/null
+++ b/pttbbs/staticweb/search.html
@@ -0,0 +1,36 @@
+[% INCLUDE header.html %]
+<table width="75%" align="center">
+<tr><td>
+[% INCLUDE banner.html %]
+</td></tr>
+
+<tr><td>
+<a href="http://man.ptt.cc">網頁版精華區首頁</a>
+<a href="http://man.ptt.cc/man.pl/[% brdname %]/">[% brdname %]精華區首頁</a>
+<a href="http://blog.ptt.cc">批踢踢部落格</a>
+<br />
+<font size=+1>在看板 [% brdname %] 內搜尋 [% key %] (共費時 [% elapsed %] 秒)</font>
+<hr />
+</td></tr>
+<tr><td>
+
+<ul>
+[% FOREACH x=search %]
+<li><a href="/man.pl/[% brdname %][% x.fn %]">[% x.title %]</a> (score: [% x.score %])</li>
+[% END %]
+</ul>
+
+</td></tr>
+<tr><td>
+<hr />
+<form method="POST" action="/man.pl/[% brdname %]/">
+在這個精華區內翻弄
+<input type="text" name="key">
+<input type="submit" value="撈">
+</form>
+<hr />
+<a href="telnet://ptt.cc">批踢踢實業坊</a> (<a href="http://ptt.cc">PttWeb</a>)
+</td></tr>
+</table>
+</body>
+</html>
diff --git a/pttbbs/staticweb/styles.css b/pttbbs/staticweb/styles.css
new file mode 100644
index 00000000..87382c7b
--- /dev/null
+++ b/pttbbs/staticweb/styles.css
@@ -0,0 +1,20 @@
+#banner {
+        font-family:    georgia, verdana, arial, sans-serif;
+        color:          #FFFFFF;
+        font-size:      20px;
+        font-weight:    bold;
+
+        padding:        8px 8px 8px 8px;
+        border:         none;
+}
+
+A:link		{color: #FFFFFF; text-decoration:none;}
+A:active	{color:	#CCFFCC; text-decoration:none;}
+A:visited	{color:	#FFFFCC; text-decoration:none;}
+A:hover		{background:	#555555;}
+
+body {
+        background:     #000000;
+	color:		#FFFFFF;
+	font-family:	細明體;
+}
\ No newline at end of file
diff --git a/pttbbs/util/BBSFileHeader.pm b/pttbbs/util/BBSFileHeader.pm
new file mode 100644
index 00000000..f203f57c
--- /dev/null
+++ b/pttbbs/util/BBSFileHeader.pm
@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+package BBSFileHeader;
+use strict;
+use IO::Handle;
+use Data::Dumper;
+
+use fields qw/dir fh cache/;
+
+sub TIEHASH
+{
+    my($class, $dir) = @_;
+    my $self = fields::new($class);
+
+    open $self->{fh}, "<$dir/.DIR";
+    return undef if( !$self->{fh} );
+
+    $self->{dir} = $dir;
+    return $self;
+}
+
+sub FETCH
+{   
+    my($self, $k) = @_;
+
+    return $self->{dir} if( $k eq 'dir' );
+    return ((-s "$self->{dir}/.DIR") / 128) if( $k eq 'num' );
+
+    my($num, $key) = $k =~ /(.*)\.(.*)/;
+    my($t, %h);
+
+    $num += $self->FETCH('num')	if( $num < 0 );
+
+    return $self->{cache}{$num}{$key} if( $self->{cache}{$num}{$key} );
+
+    seek($self->{fh}, $num * 128, 0);
+    $self->{fh}->read($t, 128);
+
+    if( $key eq 'isdir' ){
+	my $fn = "$self->{dir}/" . $self->FETCH("$num.filename");
+	return (-d $fn);
+    }
+    elsif( $key eq 'content' ){
+	my $fn = "$self->{dir}/" . $self->FETCH("$num.filename");
+	my($c, $fh);
+	open $fh, "<$fn" || return '';
+	$fh->read($c, (-s $fn));
+	return $c;
+    }
+    else{
+	($h{filename}, $h{recommend}, $h{owner}, $h{date}, $h{title},
+	 $h{money}, undef, $h{filemode}) =
+	    unpack('Z33cZ14Z6Z65iCC', $t);
+	$h{title} = substr($h{title}, 3);
+	$self->{cache}{$num}{$_} = $h{$_}
+	    foreach( 'filename', 'owner', 'date',
+		     'title', 'money', 'filemode' );
+	return $h{$key};
+    }
+}
+
+1;
diff --git a/pttbbs/util/BM_money.c b/pttbbs/util/BM_money.c
new file mode 100644
index 00000000..09e66257
--- /dev/null
+++ b/pttbbs/util/BM_money.c
@@ -0,0 +1,111 @@
+/* $Id$ */
+
+/* 給板主錢的程式 */
+
+#define _UTIL_C_
+#include "bbs.h"
+
+#define FUNCTION    (2100 - c*5)
+
+extern int numboards;
+extern boardheader_t *bcache;
+extern struct UCACHE *uidshm;
+
+int c, n;
+extern userec_t xuser;
+
+
+
+int Link(char *src, char *dst) {
+    char cmd[200];
+
+    if (link(src, dst) == 0)
+	return 0;
+
+    sprintf(cmd, "/bin/cp -R %s %s", src, dst);
+    return system(cmd);
+}
+
+
+int main(int argc, char **argv)
+{
+    FILE *fp = fopen(BBSHOME "/etc/topboardman", "r");
+    char buf[201], bname[20], BM[90], *ch;
+    boardheader_t *bptr = NULL;
+    int nBM;
+
+    attach_SHM();
+    resolve_boards();
+    if(passwd_init())
+	exit(1);
+    if (!fp)
+	return 0;
+
+    c = 0;
+    fgets(buf, 200, fp);	/* 第一行拿掉 */
+
+    printf(
+	"              \033[1;44m  獎勵優良板主 每週花薪 依精華區排名分配  \033[m\n\n"
+	"\033[33m                 (排名太後面或幾乎沒有精華區者不列入)\033[m\n"
+	"  ─────────────────────────────────────\n"
+	"\n\n");
+
+    while (fgets(buf, 200, fp) != NULL)
+    {
+	buf[24] = 0;
+	sscanf(&buf[9], "%s", bname);
+	for (n = 0; n < numboards; n++)
+	{
+	    bptr = &bcache[n];
+	    if (!strcmp(bptr->brdname, bname))
+		break;
+	}
+	if (n == numboards)
+	    continue;
+	strcpy(BM, bptr->BM);
+	printf("        (%d) %-15.15s %s \n", c + 1, bptr->brdname, bptr->title);
+
+	if (BM[0] == 0 || BM[0] == ' ')
+	    continue;
+
+	ch = BM;
+	for (nBM = 1; (ch = strchr(ch, '/')) != NULL; nBM++)
+	{
+	    ch++;
+	};
+	ch = BM;
+
+	if (FUNCTION <= 0)
+	    break;
+
+	printf("             獎金 \033[32m%6d \033[m     分給 \033[33m%s\033[m \n",
+	       FUNCTION, bptr->BM);
+
+	for (n = 0; n < nBM; n++)
+	{
+	    fileheader_t mymail;
+	    char *ch1,uid	;
+	    if((ch1 = strchr(ch, '/')))
+		*ch1 = 0;
+            if ((uid=getuser(ch))!=0)
+	    {
+            
+		char genbuf[200];
+                deumoney(uid,FUNCTION / nBM);
+		sprintf(genbuf, BBSHOME "/home/%c/%s", ch[0], ch);
+		stampfile(genbuf, &mymail);
+
+		strcpy(mymail.owner, "[薪水袋]");
+		sprintf(mymail.title,
+			"\033[32m %s \033[m板的薪水 ＄\033[33m%d\033![m", bptr->brdname, FUNCTION / nBM);
+		unlink(genbuf);
+		Link(BBSHOME "/etc/BM_money", genbuf);
+		sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", ch[0], ch);
+		append_record(genbuf, &mymail, sizeof(mymail));
+	    }
+	    ch = ch1 + 1;
+	}
+	c++;
+    }
+    return 0;
+}
diff --git a/pttbbs/util/BM_money.sh b/pttbbs/util/BM_money.sh
new file mode 100644
index 00000000..8bef4fc9
--- /dev/null
+++ b/pttbbs/util/BM_money.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+# $Id: BM_money.sh,v 1.1 2002/03/07 15:13:45 in2 Exp $
+
+bin/BM_money > etc/BM_money
+bin/post Record 星期五' '版主發薪日 [財金消息] etc/BM_money
diff --git a/pttbbs/util/Makefile b/pttbbs/util/Makefile
new file mode 100644
index 00000000..b4788abd
--- /dev/null
+++ b/pttbbs/util/Makefile
@@ -0,0 +1,87 @@
+# $Id$
+
+.include "../pttbbs.mk"
+
+CFLAGS+= -DPTTBBS_UTIL
+
+UTIL_OBJS=	\
+	util_cache.o	util_record.o	util_passwd.o	util_var.o	\
+	util_stuff.o	util_osdep.o	util_args.o
+
+MBBSD_OBJS= \
+	cache		record		passwd		var		\
+	stuff		osdep		args
+
+# 下面這些程式, 會被 compile 並且和 $(UTIL_OBJS) 聯結
+CPROG_WITH_UTIL= \
+	boardlist	BM_money	post		poststat	\
+	jungo		account		birth		deluserfile	\
+	expire		mandex		rmuid		horoscope	\
+	openvice	parse_news	openticket	topusr		\
+	indexuser	yearsold	toplazyBM	toplazyBBM	\
+	reaper		buildAnnounce	inndBM		shmctl		\
+	outmail		bbsmail
+
+# 下面這些程式, 會直接被 compile
+CPROG_WITHOUT_UTIL= \
+	shmsweep	uhash_loader	showboard	antispam	\
+	countalldice	webgrep		bbsrf		initbbs		\
+	userlist	tunepasswd	buildir		merge_passwd	\
+	merge_board	xchatd
+
+# 下面這些程式會被 install
+PROGS=	${UTIL_OBJS}	${CPROG_WITH_UTIL}	${CPROG_WITHOUT_UTIL}	\
+	BM_money.sh	backpasswd.sh	mailog.sh	opendice.sh	\
+	openticket.sh	stock.sh	topsong.sh	weather.sh	\
+	stock.perl	weather.perl	toplazyBM.sh	toplazyBBM.sh	\
+	dailybackup.pl	tarqueue.pl	waterball.pl	filtermail.pl	\
+	getbackup.pl	udnnews.pl	rebuildaloha.pl	railway_wrapper.pl
+
+all: ${CPROG_WITH_UTIL} ${CPROG_WITHOUT_UTIL} ${PROGS}
+
+.for fn in ${CPROG_WITH_UTIL}
+${fn}:	${fn}.c ${UTIL_OBJS}
+	${CC} ${CFLAGS} ${LDFLAGS} -o ${fn} ${UTIL_OBJS} ${fn}.c
+.endfor
+
+.for fn in ${MBBSD_OBJS}
+util_${fn}.o: ../mbbsd/${fn}.c
+	${CC} ${CFLAGS} -D_BBS_UTIL_C_ -c -o $@ ../mbbsd/${fn}.c
+.endfor
+
+xchatd: xchatd.c  $(UTIL_OBJS) descrypt.c
+	$(CC) $(CFLAGS) $(LDFLAGS) -o $@ $@.c  $(UTIL_OBJS) descrypt.c
+
+install: $(PROGS)
+	install -d $(BBSHOME)/bin/
+	install -c -m 755 $(PROGS) $(BBSHOME)/bin/
+	chmod 4755 $(BBSHOME)/bin/post
+
+clean:
+	rm -f *.o $(CPROGS) $(CPROG_WITH_UTIL) $(CPROG_WITHOUT_UTIL)
+
+
+installfiltermail:
+	mv $(BBSHOME)/bin/bbsmail $(BBSHOME)/bin/realbbsmail
+	ln -s $(BBSHOME)/bin/filtermail.pl $(BBSHOME)/bin/bbsmail
+
+# for diskstat(FreeBSD 4.x only) .
+# diskstat should be compiled with bbs and installed with root
+diskstat: diskstat.c
+	$(CC) $(CFLAGS) -o diskstat diskstat.c -ldevstat -lkvm
+
+installdiskstat: diskstat
+	cp -f diskstat /usr/local/bin/
+	chgrp kmem /usr/local/bin/diskstat
+	chmod 2755 /usr/local/bin/diskstat
+
+# for bbsctl. bbsctl should be compiled with bbs and installed with root
+bbsctl:	bbsctl.c
+	$(CC) $(CFLAGS) -o $@ $@.c
+
+installbbsctl: bbsctl
+	rm -f /home/bbs/bin/bbsctl
+	cp /home/bbs/pttbbs/util/bbsctl /home/bbs/bin/bbsctl
+	chown root /home/bbs/bin/bbsctl
+	chmod 4755 /home/bbs/bin/bbsctl
+
diff --git a/pttbbs/util/account.c b/pttbbs/util/account.c
new file mode 100644
index 00000000..b3f65f82
--- /dev/null
+++ b/pttbbs/util/account.c
@@ -0,0 +1,414 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define MAX_LINE        16
+#define ADJUST_M        6	/* adjust back 5 minutes */
+
+void
+reset_garbage()
+{
+    if (SHM == NULL)
+    {
+	attach_SHM();
+	if (SHM->Ptouchtime == 0)
+	    SHM->Ptouchtime = 1;
+    }
+
+/* 不整個reload?
+   for(n=0;n<=SHM->max_film;n++)
+   printf("\n**%d**\n %s \n",n,SHM->notes[n]);
+ */
+    SHM->Puptime = 0;
+    reload_pttcache();
+
+    printf("\n動態看板數[%d]\n", SHM->max_film);
+/*
+  for(n=0; n<MAX_MOVIE_SECTION; n++)
+  printf("sec%d=> 起點:%d 下次要換的:%d\n ",n,SHM->n_notes[n],
+  SHM->next_refresh[n]);
+  printf("\n");         
+*/
+}
+
+void
+keeplog(fpath, board, title)
+    char *fpath;
+    char *board;
+    char *title;
+{
+    fileheader_t fhdr;
+    int bid;
+    char genbuf[256], buf[256];
+
+    if (!board)
+	board = "Record";
+
+
+    sprintf(genbuf, "boards/%c/%s", board[0], board);
+    stampfile(genbuf, &fhdr);
+    sprintf(buf, "mv %s %s", fpath, genbuf);
+    system(buf);
+/*
+  printf("keep record:[%s][%s][%s][%s]\n",fpath, board, title,genbuf);
+*/
+    strcpy(fhdr.title, title);
+    strcpy(fhdr.owner, "[歷史老師]");
+    sprintf(genbuf, "boards/%c/%s/.DIR", board[0], board);
+    append_record(genbuf, &fhdr, sizeof(fhdr));
+    /* XXX: bid of cache.c's getbnum starts from 1 */
+    if((bid = getbnum(board)) > 0)
+	touchbtotal(bid);
+}
+
+
+static void
+my_outs(fp, buf, mode)
+    FILE *fp;
+    char buf[], mode;
+{
+    static char state = '0';
+
+    if (state != mode)
+	fprintf(fp, "[3%cm", state = mode);
+    if (buf[0])
+    {
+	fprintf(fp, buf);
+	buf[0] = 0;
+    }
+}
+
+
+void gzip(source, target, stamp)
+    char *source, *target, *stamp;
+{
+    char buf[128];
+    sprintf(buf, "gzip -f9n adm/%s%s", target, stamp);
+    rename(source, &buf[14]);
+    system(buf);
+}
+
+int main(int argc, char **argv)
+{
+    int hour, max, item, total, i, j, mo, da, max_user = 0, max_login = 0,
+	max_reg = 0, mahour = 0, k;
+    char *act_file = ".act";
+    char *log_file = "usies";
+    char buf[256], buf1[256], *p;
+    FILE *fp, *fp1;
+    int act[27];		/* 次數/累計時間/pointer */
+    time_t now;
+    struct tm *ptime;
+
+    attach_SHM();
+    nice(10);
+    chdir(BBSHOME);
+    now = time(NULL) - ADJUST_M * 60;	/* back to ancent */
+    ptime = localtime(&now);
+
+    memset(act, 0, sizeof(act));
+    printf("次數/累計時間\n");
+    if ((ptime->tm_hour != 0) && (fp = fopen(act_file, "r")))
+    {
+	fread(act, sizeof(act), 1, fp);
+	fclose(fp);
+    }
+    if ((fp = fopen(log_file, "r")) == NULL)
+    {
+	printf("cann't open usies\n");
+	return 1;
+    }
+    if (act[26])
+	fseek(fp, act[26], 0);
+    while (fgets(buf, 256, fp))
+    {
+	buf[11+2]=0;
+	hour = atoi(buf + 11);
+	if (hour < 0 || hour > 23)
+	{
+	    continue;
+	}
+//"09/06/1999 17:44:58 Mon "
+// 012345678901234567890123
+	if (strstr(buf + 20, "ENTER"))
+	{
+	    act[hour]++;
+	    continue;
+	}
+	if ((p = (char *) strstr(buf + 40, "Stay:")))
+	{
+	    if((hour = atoi(p + 5))) {
+		act[24] += hour;
+		act[25]++;
+	    }
+	    continue;
+	}
+    }
+    act[26] = ftell(fp);
+    fclose(fp);
+    for (i = max = total = 0; i < 24; i++)
+    {
+	total += act[i];
+	if (act[i] > max)
+	{
+	    max_user = max = act[i];
+	    mahour = i;
+	}
+    }
+    item = max / MAX_LINE + 1;
+
+    if (!ptime->tm_hour)
+    {
+	keeplog("etc/today", "Record", "上站人次統計");
+	keeplog("etc/money", "Security", "本日金錢往來記錄");
+	keeplog("etc/illegal_money", "Security", "本日違法賺錢記錄");
+	keeplog("etc/chicken", "Record", "雞場報告");
+    }
+
+    printf("上站人次統計\n");
+    if ((fp = fopen("etc/today", "w")) == NULL)
+    {
+	printf("cann't open etc/today\n");
+	return 1;
+    }
+    fprintf(fp, "\t\t\t 每小時上站人次統計 [%02d/%02d/%02d] \n\n", ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday);
+    for (i = MAX_LINE + 1; i > 0; i--)
+    {
+	strcpy(buf, "   ");
+	for (j = 0; j < 24; j++)
+	{
+	    max = item * i;
+	    hour = act[j];
+	    if (hour && (max > hour) && (max - item <= hour))
+	    {
+		my_outs(fp, buf, '3');
+		fprintf(fp, "%-3d", hour / 10);
+	    }
+	    else if (max <= hour)
+	    {
+		my_outs(fp, buf, '4');
+		fprintf(fp, "█ ");
+	    }
+	    else
+		strcat(buf, "   ");
+	}
+	fprintf(fp, "\n");
+    }
+    fprintf(fp, "   "
+	    "0  1  2  3  4  5  6  7  8  9  10 11 12 13 14 15 16 17 18 19 20 21 22 23\n\n"
+	    "\t      單位: 10 人");
+    fprintf(fp, "  總共上站人次：%-7d平均使用人數：%d\n", total, total / 24);
+    fclose(fp);
+
+    if((fp = fopen(act_file, "w"))) {
+	fwrite(act, sizeof(act), 1, fp);
+	fclose(fp);
+    }
+
+/* -------------------------------------------------------------- */
+
+    sprintf(buf, "-%02d%02d%02d",
+	    ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday);
+
+    now += ADJUST_M * 60;	/* back to future */
+
+
+    printf("歷史事件處理\n");
+/* Ptt 歷史事件處理 */
+    if((fp = fopen("etc/history.data", "r"))) { /*最多同時上線 */
+	if (fscanf(fp, "%d %d %d %d", &max_login, &max, &max_reg, &k))
+	{
+	    int a;
+	    resolve_fcache();
+	    printf("此時段最多同時上線:%d 過去:%d\n", a = SHM->max_user, k);
+	    fclose(fp);
+	    if (a > k)
+	    {
+		ptime = localtime(&SHM->max_time);
+		if((fp1 = fopen("etc/history", "a")))
+		{
+		    fprintf(fp1,
+			    "◎ 【%02d/%02d/%02d %02d:%02d】"
+			    "同時在坊內人數首次達到 %d 人次\n",
+			    ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_year % 100,
+			    ptime->tm_hour, ptime->tm_min, a);
+		    fclose(fp1);
+		}
+		if((fp = fopen("etc/history.data", "w")))
+		{
+		    fprintf(fp, "%d %d %d %d", max_login, max, max_reg, a);
+		    fclose(fp);
+		}
+	    }
+	}
+	else
+	    fclose(fp);
+    }
+    ptime = localtime(&now);
+
+    if (ptime->tm_hour)
+    {
+	/* rotate one line in today_is */
+	puts("多個節日處理");
+	if((fp1 = fopen("etc/today_is", "r"))) {
+	    char tod[100][20];
+	    
+	    i = 0;
+	    while(i < 100 && fgets(tod[i], sizeof(tod[0]), fp1))
+		i++;
+	    fclose(fp1);
+	    
+	    fp1 = fopen("etc/today_is", "w");
+	    for(j = 0; j < i; j++)
+		fputs(tod[j + 1 < i ? j + 1 : 0], fp1);
+	    fclose(fp1);
+	}
+    }
+
+
+    if (!ptime->tm_hour)
+    {
+	keeplog(".note", "Record", "心情留言版");
+	system("/bin/cp etc/today etc/yesterday");
+/*    system("rm -f note.dat"); */
+/* Ptt */
+	sprintf(buf1, "[公安報告] 使用者上線監控 [%02d/%02d:%02d]"
+		,ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_hour);
+	keeplog("usies", "Security", buf1);
+	printf("[公安報告] 使用者上線監控\n");
+	gzip(log_file, "usies", buf);
+	printf("壓縮使用者上線監控\n");
+/* Ptt 歷史事件處理 */
+	now = time(NULL) - ADJUST_M * 60;	/* back to ancent */
+	ptime = localtime(&now);
+
+	attach_SHM();
+	if((fp = fopen("etc/history.data", "r")))
+	{			/* 單日最多次人次,同時上線,註冊 */
+	    if (fscanf(fp, "%d %d %d %d", &max_login, &max, &max_reg, &k))
+	    {
+		fp1 = fopen("etc/history", "r+");
+		fseek(fp1, 0, 2);
+		if (max_user > max)
+		{
+		    fprintf(fp1, "◇ 【%02d/%02d/%02d %02d】   "
+			    "單一小時上線人次首次達到 %d 人次 \n"
+			    ,ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_year % 100, mahour, max_user);
+		    max = max_user;
+		}
+		if (total > max_login)
+		{
+		    fprintf(fp1, "◆ 【%02d/%02d/%02d】      "
+			    "單日上線人次首次達到 %d 人次   \n"
+			    ,ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_year % 100, total);
+		    max_login = total;
+		}
+
+		if (SHM->number > max_reg + max_reg / 10)
+		{
+		    fprintf(fp1, "★ 【%02d/%02d/%02d】      "
+			    "總註冊人數提升到 %d 人   \n"
+			    ,ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_year % 100, SHM->number);
+		    max_reg = SHM->number;
+		}
+
+		fclose(fp1);
+	    }
+	    fclose(fp);
+	    fp = fopen("etc/history.data", "w");
+	    fprintf(fp, "%d %d %d %d", max_login, max, max_reg, k);
+	    fclose(fp);
+	}
+	now += ADJUST_M * 60;	/* back to future */
+	ptime = localtime(&now);
+
+	/* Ptt 節日處理 */
+	printf("節日處理\n");
+	if((fp1 = fopen("etc/today_is", "w"))) {
+	    i = 0;
+	    if((fp = fopen("etc/feast", "r"))) {
+		while(fgets(buf1, sizeof(buf1), fp)) {
+		    if(buf[0] != '#' &&
+		       sscanf(buf1, "%d %d ", &mo, &da) == 2) {
+			if(ptime->tm_mday == da && ptime->tm_mon + 1 == mo) {
+			    i = 1;
+			    fprintf(fp1, "%-14.14s", &buf1[6]);
+			}
+		    }
+		}
+		fclose(fp);
+	    }
+	    printf("節日處理1\n");
+	    if(i == 0) {
+		if((fp = fopen("etc/today_boring", "r"))) {
+		    while(fgets(buf1, sizeof(buf1), fp))
+			if(strlen(buf) > 3)
+			    fprintf(fp1, "%s", buf1);
+		    fclose(fp);
+		} else
+		    fprintf(fp1, "本日節日徵求中");
+	    }
+	    fclose(fp1);
+	}
+	
+	/* Ptt 歡迎畫面處理 */
+	printf("歡迎畫面處理\n");
+
+	if((fp = fopen("etc/Welcome.date", "r")))
+	{
+	    char temp[50];
+	    while (fscanf(fp, "%d %d %s\n", &mo, &da, buf1) != EOF)
+	    {
+		if (ptime->tm_mday == da && ptime->tm_mon + 1 == mo)
+		{
+		    strcpy(temp, buf1);
+		    sprintf(buf1, "cp -f etc/Welcomes/%s etc/Welcome", temp);
+		    system(buf1);
+		    break;
+		}
+	    }
+	    fclose(fp);
+	}
+	printf("歡迎畫面處理\n");
+	if (ptime->tm_wday == 0)
+	{
+	    keeplog("etc/week", "Record", "本週熱門話題");
+
+	    gzip("bbslog", "bntplink", buf);
+	    gzip("innd/bbslog", "innbbsd", buf);
+	    gzip("etc/mailog", "mailog", buf);
+	}
+
+	if (ptime->tm_mday == 1)
+	    keeplog("etc/month", "Record", "本月熱門話題");
+
+	if (ptime->tm_yday == 1)
+	    keeplog("etc/year", "Record", "年度熱門話題");
+    }
+    else if (ptime->tm_hour == 3 && ptime->tm_wday == 6)
+    {
+	char *fn1 = "tmp";
+	char *fn2 = "suicide";
+	rename(fn1, fn2);
+	mkdir(fn1, 0755);
+	sprintf(buf, "tar cfz adm/%s-%02d%02d%02d.tgz %s",
+		fn2, ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday, fn2);
+	system(buf);
+	sprintf(buf, "/bin/rm -fr %s", fn2);
+	system(buf);
+    }
+/* Ptt reset Ptt's share memory */
+    printf("重設Pttcache 與fcache\n");
+
+    SHM->Puptime = 0;
+    resolve_fcache();
+    reset_garbage();
+
+    printf("計算進站畫面數: ");
+    for( i = 0 ; i < 5 ; ++i ){
+	sprintf(buf, "etc/Welcome_login.%d", i);
+	if( access(buf, 0) < 0 )
+	    break;
+    }
+    printf("%d\n", SHM->GV2.e.nWelcomes = i);
+    return 0;
+}
diff --git a/pttbbs/util/antispam.c b/pttbbs/util/antispam.c
new file mode 100644
index 00000000..e5b2ed59
--- /dev/null
+++ b/pttbbs/util/antispam.c
@@ -0,0 +1,122 @@
+/* $Id$ */
+/* 抓廣告信的程式 */
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <sys/types.h>
+#include "config.h"
+
+#define WINDOW 100		/* 一次window多少個server */
+#define LEVEL  21		/* 若幾次重復就算廣告信 */
+
+#define mailog BBSHOME "/etc/mailog"
+#define spamlog BBSHOME "/etc/spam"
+
+typedef struct sendinfo
+{
+    char time[18];
+    char from[50];
+    char userid[20];
+    int count;
+}
+sendinfo;
+
+int
+main(int argc, char **argv)
+{
+    char buf[200], *from, *userid;
+    int num = -1, numb = -1, n, nb;
+    FILE *fp = fopen(mailog, "r"), *fo;
+    sendinfo data[WINDOW];
+    sendinfo bad[WINDOW];
+
+    unlink(spamlog);
+    fo = fopen(spamlog, "a");
+    memset(data, 0, sizeof(data));
+    memset(bad, 0, sizeof(bad));
+
+    if (!fp || !fo)
+	return 0;
+
+    while (fgets(buf, 200, fp))
+    {
+	strtok(buf, "\r\n");
+	from = strchr(buf, '>') + 2;
+	userid = strstr(buf, " =>");
+
+	if (!from || !userid)
+	    continue;
+
+	*userid = 0;
+	userid += 4;
+
+	if (strstr(from, "MAILER-DAEMON")
+	    || strstr(from, userid))
+	    continue;		/* 退信通知不管 */
+    /* 是否已是badhost */
+
+	for (nb = 0; nb < WINDOW && bad[nb].from[0]; nb++)
+	    if (!strcmp(bad[nb].from, from))
+		break;
+
+	if (nb < WINDOW && bad[nb].from[0])
+	{
+	    bad[nb].count++;
+	    continue;
+	}
+
+    /* 簡查過去記錄 */
+
+	for (n = 0; n < WINDOW && data[n].from[0]; n++)
+	    if (!strcmp(data[n].from, from))
+		break;
+
+	if (n < WINDOW && data[n].from[0])
+	{
+	    if (!strncmp(data[n].userid, userid, 20))
+		continue;
+	/* 轉給同一個人就不管 */
+	    strncpy(data[n].userid, userid, 20);
+	    if (++data[n].count >= LEVEL)
+	    {
+	    /* 變成bad 移data到bad 空缺由後一筆資料補上 */
+		if (nb >= WINDOW)
+		{
+		    numb = (numb + 1) % WINDOW;
+		    nb = numb;
+		    fprintf(fo, "%s %s 重覆寄 %d 次\n",
+			    bad[nb].time, bad[nb].from, bad[nb].count);
+/*                                 printf(" %s send %d times\n",
+   bad[nb].from, bad[nb].count); */
+		}
+		memcpy(&bad[nb], &data[n], sizeof(sendinfo));
+		memcpy(&data[n], &data[n + 1], sizeof(sendinfo) * (WINDOW - n - 1));
+		if (num > n)
+		    num--;
+	    }
+	}
+	else
+	{
+	    if (n >= WINDOW)
+	    {
+		num = (num + 1) % WINDOW;
+		n = num;
+	    }
+/*                printf("[%s] to [%s]\n", from, userid); */
+	    buf[17] = 0;
+	    strncpy(data[n].time, buf, 17);
+	    strncpy(data[n].from, from, 50);
+	    strncpy(data[n].userid, userid, 20);
+	}
+    }
+
+    for (nb = 0; nb < WINDOW && bad[nb].from[0]; nb++)
+    {
+	fprintf(fo, "%s %s 重覆寄 %d 次\n", bad[nb].time,
+		bad[nb].from, bad[nb].count);
+/*         printf(" %s send %d times\n", bad[nb].from, bad[nb].count); */
+    }
+    fclose(fp);
+    fclose(fo);
+    return 0;
+}
diff --git a/pttbbs/util/backpasswd.sh b/pttbbs/util/backpasswd.sh
new file mode 100644
index 00000000..ed354d5f
--- /dev/null
+++ b/pttbbs/util/backpasswd.sh
@@ -0,0 +1,27 @@
+#!/bin/sh
+# $Id: backpasswd.sh,v 1.3 2002/04/06 08:32:34 in2 Exp $
+
+mv PASSWDS.NEW5 PASSWDS.NEW6
+mv PASSWDS.NEW4 PASSWDS.NEW5
+mv PASSWDS.NEW3 PASSWDS.NEW4
+mv PASSWDS.NEW2 PASSWDS.NEW3
+mv PASSWDS.NEW1 PASSWDS.NEW2
+mv PASSWDS.NEW  PASSWDS.NEW1
+cp .PASSWDS PASSWDS.NEW
+
+mv backup/PASSWDS.NEW5 backup/PASSWDS.NEW6
+mv backup/PASSWDS.NEW4 backup/PASSWDS.NEW5
+mv backup/PASSWDS.NEW3 backup/PASSWDS.NEW4
+mv backup/PASSWDS.NEW2 backup/PASSWDS.NEW3
+mv backup/PASSWDS.NEW1 backup/PASSWDS.NEW2
+mv backup/PASSWDS.NEW  backup/PASSWDS.NEW1
+cp .PASSWDS backup/PASSWDS.NEW
+
+mv backup/BRD.NEW5 backup/BRD.NEW6
+mv backup/BRD.NEW4 backup/BRD.NEW5
+mv backup/BRD.NEW3 backup/BRD.NEW4
+mv backup/BRD.NEW2 backup/BRD.NEW3
+mv backup/BRD.NEW1 backup/BRD.NEW2
+mv backup/BRD.NEW  backup/BRD.NEW1
+cp .BRD backup/BRD.NEW
+
diff --git a/pttbbs/util/bbsctl.c b/pttbbs/util/bbsctl.c
new file mode 100644
index 00000000..53aaede3
--- /dev/null
+++ b/pttbbs/util/bbsctl.c
@@ -0,0 +1,283 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <string.h>
+#include <signal.h>
+#include <sys/types.h>
+#include <dirent.h>
+#include <grp.h>
+#include <fcntl.h>
+#include <ctype.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "perm.h"
+
+#ifdef __FreeBSD__
+   #include <sys/syslimits.h>
+   #define  SU      "/usr/bin/su" 
+   #define  CP      "/bin/cp"
+   #define  KILLALL "/usr/bin/killall"
+   #define  IPCS    "/usr/bin/ipcs"
+   #define  IPCRM   "/usr/bin/ipcrm"
+   #define  AWK     "/usr/bin/awk"
+#endif
+#ifdef __linux__
+   #include <linux/limits.h>
+   #define  SU      "/bin/su"
+   #define  CP      "/bin/cp"
+   #define  KILLALL "/usr/bin/killall"
+#endif
+
+int HaveBBSADM(void)
+{
+    gid_t   gids[NGROUPS_MAX];
+    int     i, ngids;
+    struct  group *gr; 
+
+    if( getuid() == 0 || geteuid() == 0 )
+	return 1;
+
+    ngids = getgroups(NGROUPS_MAX, gids);
+    if( (gr = getgrnam("bbsadm")) == NULL ){
+	puts("group bbsadm not found");
+	return 0;
+    }
+
+    for( i = 0 ; i < ngids ; ++i )
+	if( gr->gr_gid == (int)gids[i] )
+	    break;
+
+    if( i == ngids ){
+	puts("permission denied");
+	return 0;
+    }
+
+    return 1;
+}
+
+int startbbs(int argc, char **argv)
+{
+    int     i;
+    char    *port[] = {"3000", "3001", "3002", "3003", "3004", "3005",
+		       "3006", "3007", "3008", "3009", "3010", NULL};
+    pid_t   pid;
+
+    for( i = 0 ; port[i] != NULL ; ++i ){
+	if( (pid = fork()) < 0 ){
+	    perror("fork()");
+	    return 1;
+	}
+	else if( pid == 0 ){
+	    printf("starting mbbsd at port %s\n", port[i]);
+	    execl("/home/bbs/bin/mbbsd", "mbbsd", port[i], NULL);
+	    printf("start port[%s] failed\n", port[i]);
+	    return 1;
+	}
+    }
+
+    if( setuid(0) < 0 ){
+	perror("setuid(0)");
+	exit(1);
+    }
+    printf("starting mbbsd at port %s\n", "23");
+    execl("/home/bbs/bin/mbbsd", "mbbsd", "23", NULL);
+    printf("start port[%s] failed\n", "23");
+    return 1;
+}
+
+int stopbbs(int argc, char **argv)
+{
+    DIR     *dirp;
+    struct  dirent *de;    
+    FILE    *fp;
+    char    buf[512], fn[512];
+    if( !(dirp = opendir("run")) ){
+	perror("open " BBSHOME "/run");
+	exit(0);
+    }
+
+    while( (de = readdir(dirp)) ){
+	if( strstr(de->d_name, "mbbsd") && strstr(de->d_name, "pid")){
+	    sprintf(fn, BBSHOME "/run/%s", de->d_name);
+	    if( (fp = fopen(fn, "r")) != NULL ){
+		if( fgets(buf, sizeof(buf), fp) != NULL ){
+		    printf("stopping listening-mbbsd at pid %5d\n", atoi(buf));
+		    kill(atoi(buf), 9);
+		}
+		fclose(fp);
+		unlink(fn);
+	    }
+	}
+    }
+
+    closedir(dirp);
+    return 0;
+}
+
+int STOP(int argc, char **argv)
+{
+    DIR     *dirp;
+    struct  dirent *de;    
+    FILE    *fp;
+    char    buf[512];
+    if( !(dirp = opendir("/proc")) ){
+	perror("open /proc");
+	exit(0);
+    }
+
+    while( (de = readdir(dirp)) ){
+	if( de->d_type & DT_DIR ){
+	    sprintf(buf, "/proc/%s/cmdline", de->d_name);
+	    if( (fp = fopen(buf, "r")) ){
+		if( fgets(buf, sizeof(buf), fp) != NULL ){
+		    if( strstr(buf, "mbbsd") ){
+			kill(atoi(de->d_name), 1);
+			printf("stopping mbbsd at pid %5d\n",
+			       atoi(de->d_name));
+		    }
+		}
+		fclose(fp);
+	    }
+	}
+    }
+
+    closedir(dirp);
+    return 0;
+}
+
+int restartbbs(int argc, char **argv)
+{
+    stopbbs(argc, argv);
+    sleep(1);
+    startbbs(argc, argv);
+    return 0;
+}
+
+int bbsadm(int argc, char **argv)
+{
+    if( setuid(0) < 0 ){
+	perror("setuid(0)");
+	return 1;
+    }
+    puts("permission granted");
+    execl(SU, "su", "bbsadm", NULL);
+    return 0;
+}
+
+int bbstest(int argc, char **argv)
+{
+    if( access("mbbsd", 0) < 0 ){
+	perror("./mbbsd");
+	return 1;
+    }
+    system(CP " -f mbbsd testmbbsd");
+    if( setuid(0) < 0 ){
+	perror("setuid(0)");
+	return 1;
+    }
+    if( setuid(9999) < 0 ){
+	perror("setuid(9999)");
+	return 1;
+    }
+    system(KILLALL " testmbbsd");
+    execl("./testmbbsd", "testmbbsd", "9000", NULL);
+    perror("execl()");
+    return 0;
+}
+
+int Xipcrm(int argc, char **argv)
+{
+#ifdef __FreeBSD__
+    char    buf[256], cmd[256];
+    FILE    *fp;
+    sprintf(buf, IPCS " | " AWK " '{print $1 $2}'");
+    if( !(fp = popen(buf, "r")) ){
+	perror(buf);
+	return 1;
+    }
+    while( fgets(buf, sizeof(buf), fp) != NULL ){
+	if( buf[0] == 't' || buf[0] == 'm' || buf[0] == 's' ){
+	    buf[strlen(buf) - 1] = 0;
+	    sprintf(cmd, IPCRM " -%c %s\n", buf[0], &buf[1]);
+	    system(cmd);
+	}
+    }
+    pclose(fp);
+    system(IPCS);
+    return 0;
+#else
+    puts("not implement!");
+    return 1;
+#endif
+}
+
+int permreport(int argc, char **argv)
+{
+    int     fd, i, count;
+    userec_t usr;
+    struct {
+	int     perm;
+	char    *desc;
+    } check[] = {{PERM_BBSADM,   "PERM_BBSADM"},
+		 {PERM_SYSOP,    "PERM_SYSOP"},
+		 {PERM_ACCOUNTS, "PERM_ACCOUNTS"},
+		 {PERM_SYSSUBOP, "PERM_SYSSUBOP"},
+		 {PERM_MANAGER,  "PERM_MANAGER"},
+		 {0, NULL}};
+
+    if( (fd = open(".PASSWDS", O_RDONLY)) < 0 ){
+	perror(".PASSWDS");
+	return 1;
+    }
+    for( count = i = 0 ; check[i].perm != 0 ; ++i ){
+	count = 0;
+	lseek(fd, 0, SEEK_SET);
+	printf("%s\n", check[i].desc);
+	while( read(fd, &usr, sizeof(usr)) > 0 ){
+	    if( usr.userid[0] != 0 && isalpha(usr.userid[0]) &&
+		usr.userlevel & check[i].perm ){
+		++count;
+		printf("%-20s%-10s\n", usr.userid, usr.realname);
+	    }
+	}
+	printf("total %d users\n\n", count);
+    }
+    return 0;
+}
+
+struct {
+    int     (*func)(int, char **);
+    char    *cmd, *descript;
+} cmds[] =
+    { {startbbs,   "start",      "start mbbsd at port 23, 3000~3010"},
+      {stopbbs,    "stop",       "killall listening mbbsd"},
+      {restartbbs, "restart",    "stop and then start"},
+      {bbsadm,     "bbsadm",     "switch to user: bbsadm"},
+      {bbstest,    "test",       "run ./mbbsd as bbsadm"},
+      {Xipcrm,     "ipcrm",      "ipcrm all msg, shm, sem"},
+      {STOP,       "STOP",       "killall ALL mbbsd"},
+      {permreport, "permreport", "permission report"},
+      {NULL,       NULL,       NULL} };
+
+int main(int argc, char **argv)
+{
+    int     i = 0;
+    if( !HaveBBSADM() )
+	return 1;
+    if( argc >= 2 ){
+	chdir(BBSHOME);
+	for( i = 0 ; cmds[i].func != NULL ; ++i )
+	    if( strcmp(cmds[i].cmd, argv[1]) == 0 ){
+		cmds[i].func(argc - 2, &argv[2]);
+		break;
+	    }
+    }
+    if( argc == 1 || cmds[i].func == NULL ){
+	/* usage */
+	printf("usage: bbsctl [command] [options]\n");
+	printf("commands:\n");
+	for( i = 0 ; cmds[i].func != NULL ; ++i )
+	    printf("\t%-15s%s\n", cmds[i].cmd, cmds[i].descript);
+    }
+    return 0;
+}
diff --git a/pttbbs/util/bbsmail.c b/pttbbs/util/bbsmail.c
new file mode 100644
index 00000000..f2390254
--- /dev/null
+++ b/pttbbs/util/bbsmail.c
@@ -0,0 +1,268 @@
+/* $Id$ */
+
+#define _UTIL_C_
+#include "bbs.h"
+
+#define	LOG_FILE	(BBSHOME "/etc/mailog")
+
+#ifdef HMM_USE_ANTI_SPAM
+extern char *notitle[], *nofrom[], *nocont[];
+#endif
+
+extern userec_t xuser;
+
+int
+strip_ansi(char *buf, char *str, int mode)
+{
+    register int    ansi, count = 0;
+
+    for (ansi = 0; *str /* && *str != '\n' */ ; str++) {
+	if (*str == 27) {
+	    if (mode) {
+		if (buf)
+		    *buf++ = *str;
+		count++;
+	    }
+	    ansi = 1;
+	} else if (ansi && strchr("[;1234567890mfHABCDnsuJKc=n", *str)) {
+	    if ((mode == NO_RELOAD && !strchr("c=n", *str)) ||
+		(mode == ONLY_COLOR && strchr("[;1234567890m", *str))) {
+		if (buf)
+		    *buf++ = *str;
+		count++;
+	    }
+	    if (strchr("mHn ", *str))
+		ansi = 0;
+	} else {
+	    ansi = 0;
+	    if (buf)
+		*buf++ = *str;
+	    count++;
+	}
+    }
+    if (buf)
+	*buf = '\0';
+    return count;
+}
+
+int mailalertuid(int tuid)
+{
+    userinfo_t *uentp=NULL;
+    if(tuid>0 && (uentp = (userinfo_t *)search_ulist(tuid)) )
+         uentp->mailalert=1;
+    return 0;
+}      
+
+void
+mailog(msg)
+    char *msg;
+{
+    FILE *fp;
+
+    if ((fp = fopen(LOG_FILE, "a")))
+    {
+	time_t now;
+	struct tm *p;
+
+	time(&now);
+	p = localtime(&now);
+	fprintf(fp, "%02d/%02d/%02d %02d:%02d:%02d <bbsmail> %s\n",
+		p->tm_year % 100, p->tm_mon + 1, p->tm_mday, p->tm_hour, p->tm_min, p->tm_sec,
+		msg);
+	fclose(fp);
+    }
+}
+
+
+int
+mail2bbs(userid)
+    char *userid;
+{
+    int uid;
+    fileheader_t mymail;
+    char genbuf[512], title[512], sender[512], filename[512], *ip, *ptr;
+    time_t tmp_time;
+    struct stat st;
+    FILE *fout;
+/* check if the userid is in our bbs now */
+    if (!(uid=getuser(userid)) )
+    {
+	sprintf(genbuf, "BBS user <%s> not existed", userid);
+	puts(genbuf);
+	mailog(genbuf);
+	return -1;//EX_NOUSER;
+    }
+
+    if(xuser.userlevel&PERM_NOOUTMAIL)
+	return -1;
+
+    sprintf(filename, BBSHOME "/home/%c/%s", userid[0], userid);
+
+    if (stat(filename, &st) == -1)
+    {
+	if (mkdir(filename, 0755) == -1)
+	{
+	    printf("mail box create error %s \n", filename);
+	    return -1;
+	}
+    }
+    else if (!(st.st_mode & S_IFDIR))
+    {
+	printf("mail box error\n");
+	return -1;
+    }
+
+ //   printf("dir: %s\n", filename);
+
+/* allocate a file for the new mail */
+
+    stampfile(filename, &mymail);
+   // printf("file: %s\n", filename);
+
+/* copy the stdin to the specified file */
+
+/* parse header */
+
+    while (fgets(genbuf, 255, stdin))
+    {
+	if (!strncmp(genbuf, "From", 4))
+	{
+	    if ((ip = strchr(genbuf, '<')) && (ptr = strrchr(ip, '>')))
+	    {
+		*ptr = '\0';
+		if (ip[-1] == ' ')
+		    ip[-1] = '\0';
+		ptr = (char *) strchr(genbuf, ' ');
+		if( ptr )
+		    while (*ptr == ' ')
+			ptr++;
+		else
+		    ptr = "unknown";
+		sprintf(sender, "%s (%s)", ip + 1, ptr);
+	    }
+	    else
+	    {
+		strtok(genbuf, " \t\n\r");
+		ptr= strtok(NULL, " \t\n\r");
+		if(ptr)
+	   	 strlcpy(sender, ptr, sizeof(sender));
+	    }
+	    continue;
+	}
+	if (!strncmp(genbuf, "Subject: ", 9))
+	{
+	    strlcpy(title, genbuf + 9, sizeof(title));
+	    continue;
+	}
+	if (genbuf[0] == '\n')
+	    break;
+    }
+
+    if ((ptr = strchr(sender, '\n')))
+	*ptr = '\0';
+
+    if ((ptr = strchr(title, '\n')))
+	*ptr = '\0';
+
+    if (strchr(sender, '@') == NULL)	/* 由 local host 寄信 */
+    {
+	strcat(sender, "@" MYHOSTNAME);
+    }
+
+    time(&tmp_time);
+
+#ifdef HMM_USE_ANTI_SPAM
+    for (n = 0; notitle[n]; n++)
+	if (strstr(title, notitle[n]))
+	{
+	    sprintf(genbuf, "Title <%s> not accepted", title);
+	    puts(genbuf);
+	    mailog(genbuf);
+	    return -1;
+	}	
+    for (n = 0; nofrom[n]; n++)
+	if (strstr(sender, nofrom[n]))
+	{
+	    sprintf(genbuf, "From <%s> not accepted", sender);
+	    puts(genbuf);
+	    mailog(genbuf);
+	    return -1;
+	}	
+#endif
+
+    if ((fout = fopen(filename, "w")) == NULL)
+    {
+	printf("Cannot open %s\n", filename);
+	return -1;
+    }
+
+    if (!title[0])
+	sprintf(title, "來自 %.64s", sender);
+    title[TTLEN] = 0;
+    fprintf(fout, "作者: %s\n標題: %s\n時間: %s\n",
+	    sender, title, ctime(&tmp_time));
+
+    while (fgets(genbuf, 255, stdin))
+    {
+#ifdef HMM_USE_ANTI_SPAM
+	for (n = 0; nocont[n]; n++)
+	    if (strstr(genbuf, nocont[n]))
+	    {
+		fclose(fout);
+		unlink(filename);
+		sprintf(genbuf, "Content <%s> not accepted", nocont[n]);
+		puts(genbuf);
+		mailog(genbuf);
+		return -1;
+	    }
+#endif
+	fputs(genbuf, fout);
+    }
+    fclose(fout);
+
+    sprintf(genbuf, "%s => %s", sender, userid);
+    mailog(genbuf);
+
+/* append the record to the MAIL control file */
+    strip_ansi(title, title, 0);
+    strlcpy(mymail.title, title, sizeof(mymail.title));
+
+    if (strtok(sender, " .@\t\n\r"))
+	strcat(sender, ".");
+    sender[IDLEN + 1] = '\0';
+    strlcpy(mymail.owner, sender, sizeof(mymail.owner));
+
+    sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", userid[0], userid);
+    mailalertuid(uid);
+    return append_record(genbuf, &mymail, sizeof(mymail));
+}
+
+
+int
+main(int argc, char* argv[])
+{
+    char receiver[512];
+
+/* argv[1] is userid in bbs   */
+
+    if (argc < 2){
+	printf("Usage:\t%s <bbs_uid>\n", argv[0]);
+	exit(-1);
+    }
+    (void) setgid(BBSGID);
+    (void) setuid(BBSUID);
+    attach_SHM();
+    if( passwd_init() )
+	return 0;
+    chdir(BBSHOME);
+
+    strlcpy(receiver, argv[1], sizeof(receiver));
+
+    strtok(receiver,".");
+    if (mail2bbs(receiver))
+    {
+	/* eat mail queue */
+	while (fgets(receiver, sizeof(receiver), stdin)) ;
+    }
+    return 0;
+}
diff --git a/pttbbs/util/bbsrf.c b/pttbbs/util/bbsrf.c
new file mode 100644
index 00000000..c527d761
--- /dev/null
+++ b/pttbbs/util/bbsrf.c
@@ -0,0 +1,148 @@
+/* $Id$ */
+
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <sys/param.h>
+#include <sys/types.h>
+#include <utmp.h>
+#include <pwd.h>
+#include <syslog.h>
+#include <fcntl.h>
+#include <sys/types.h>
+#include <sys/uio.h>
+#include "config.h"
+
+/* fill the hid with from hostname */
+void gethid(char *hid, char *tty)
+{
+    int fd;
+    char *tp;
+    struct utmp data;
+
+    gethostname(hid, MAXHOSTNAMELEN);
+    hid[MAXHOSTNAMELEN] = '\0';
+    tp = strrchr(tty, '/') + 1;
+    if (tp && strlen(tp) == 5)
+    {
+	fd = open(_PATH_UTMP, O_RDONLY);
+	if (fd < 0)
+	    syslog(LOG_ERR, "%s: %m", _PATH_UTMP);
+	else
+	{
+	    while (read(fd, &data, sizeof(data)) == sizeof(data))
+		if (strcmp(data.ut_line, tp) == 0)
+		{
+		    if (data.ut_host[0]) {
+#if MAXHOSTNAMELEN < UT_HOSTSIZE
+			strncpy(hid, data.ut_host, MAXHOSTNAMELEN);
+			hid[MAXHOSTNAMELEN] = '\0';
+#else
+			strncpy(hid, data.ut_host, UT_HOSTSIZE);
+			hid[UT_HOSTSIZE] = '\0';
+#endif
+		    }
+		    break;
+		}
+	    close(fd);
+	}
+    }
+}
+
+/*
+   get system load averages 
+   return 0 if success; otherwise, return -1.
+ */
+int getload(double load[3])
+{
+    int rtv = -1;
+#if defined(linux)
+    FILE *fp;
+
+    fp = fopen(LOAD_FILE, "r");
+    if (fp)
+    {
+	if (fscanf(fp, "%lf %lf %lf", &load[0], &load[1], &load[2]) == 3)
+	    rtv = 0;
+	fclose(fp);
+    }
+#elif defined(__FreeBSD__)
+    if (getloadavg(load, 3) == 3)
+	rtv = 0;
+#endif
+    return rtv;
+}
+
+/*
+   show ban file
+   if filename exist, print it out, sleep 1 second, and return 0;
+   otherwise, return -1.
+ */
+int showbanfile(char *filename)
+{
+    FILE *fp;
+    char buf[256];
+
+    fp = fopen(filename, "r");
+    if (fp)
+    {
+	while (fgets(buf, sizeof(buf), fp))
+	    fputs(buf, stdout);
+	printf("\n============================="
+	       "=============================\n");
+	fclose(fp);
+	sleep(1);
+    }
+    return fp ? 0 : -1;
+}
+
+int main(void)
+{
+    int uid, rtv = 0;
+    char *tty, ttybuf[32], hid[MAXHOSTNAMELEN + 1];
+
+    openlog("bbsrf", LOG_PID | LOG_PERROR, LOG_USER);
+    chdir(BBSHOME);
+    uid = getuid();
+
+    while (1)
+    {
+	if (!showbanfile(BAN_FILE))
+	{
+	    rtv = 1;
+	    break;
+	}
+	else if (uid != BBSUID)
+	{
+	    syslog(LOG_ERR, "UID DOES NOT MATCH");
+	    rtv = -1;
+	    break;
+	}
+	else if (!getpwuid(uid))
+	{
+	    syslog(LOG_ERR, "YOU DONT EXIST");
+	    rtv = -1;
+	    break;
+	}
+	else
+	{
+	    tty = ttyname(0);
+	    if (tty)
+	    {
+		strcpy(ttybuf, tty);
+		gethid(hid, ttybuf);
+	    }
+	    else
+	    {
+		strcpy(ttybuf, "notty");
+		strcpy(hid, "unknown");
+	    }
+	    execl(BBSPROG, "mbbsd", hid, ttybuf, NULL);
+	    syslog(LOG_ERR, "execl(): %m");
+	    rtv = -1;
+	}
+	break;
+    }
+    return rtv;
+}
diff --git a/pttbbs/util/birth.c b/pttbbs/util/birth.c
new file mode 100644
index 00000000..20bd65c0
--- /dev/null
+++ b/pttbbs/util/birth.c
@@ -0,0 +1,91 @@
+/*     壽星程式               96 10/11            */
+
+#define _UTIL_C_
+#include "bbs.h"
+
+#define OUTFILE    BBSHOME "/etc/birth.today"
+
+struct userec_t cuser;
+
+int bad_user_id(char *userid) {
+    register char ch;
+    int j;
+    if (strlen(cuser.userid) < 2 || !isalpha(cuser.userid[0]))
+	return 1;
+    if (cuser.numlogins == 0 || cuser.numlogins > 15000)
+	return 1;
+    if (cuser.numposts > 15000)
+	return 1;
+    for (j = 1; (ch = cuser.userid[j]); j++)
+    {
+	if (!isalnum(ch))
+	    return 1;
+    }
+    return 0;
+}
+
+int Link(char *src, char *dst) {
+    char cmd[200];
+
+    if (link(src, dst) == 0)
+	return 0;
+
+    sprintf(cmd, "/bin/cp -R %s %s", src, dst);
+    return system(cmd);
+}
+
+int main(argc, argv)
+    int argc;
+    char **argv;
+{
+    FILE *fp1;
+    fileheader_t mymail;
+    //int i, day = 0;
+    time_t now;
+    struct tm *ptime;
+    int j;
+
+    attach_SHM();
+    now = time(NULL);		/* back to ancent */
+    ptime = localtime(&now);
+
+    if(passwd_init())
+	exit(1);
+
+    printf("*製表\n");
+    fp1 = fopen(OUTFILE, "w");
+
+    fprintf(fp1, "\n                      "
+	    "★★★★★★ 壽星大觀 "
+	    "★★★★★★ \n\n");
+    fprintf(fp1, "【本日壽星】 \n");
+    for(j = 1; j <= MAX_USERS; j++) {
+	passwd_query(j, &cuser);
+	if (bad_user_id(NULL))
+	    continue;
+	if (cuser.month == ptime->tm_mon + 1)
+	{
+	    if (cuser.day == ptime->tm_mday)
+	    {
+		char genbuf[200];
+		sprintf(genbuf, BBSHOME "/home/%c/%s", cuser.userid[0], cuser.userid);
+		stampfile(genbuf, &mymail);
+		strcpy(mymail.owner, BBSNAME);
+		strcpy(mymail.title, "!! 生日快樂 !!");
+		unlink(genbuf);
+		Link(BBSHOME "/etc/Welcome_birth", genbuf);
+		sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", cuser.userid[0], cuser.userid);
+		append_record(genbuf, &mymail, sizeof(mymail));
+		if ((cuser.numlogins + cuser.numposts) < 20)
+		    continue;
+
+                fprintf(fp1,
+		 "   [%2d/%-2d] %-14s %-24s login:%-5d post:%-5d\n",
+		    ptime->tm_mon + 1, ptime->tm_mday, cuser.userid,
+			cuser.username, cuser.numlogins, cuser.numposts);
+	    }
+	}
+    }
+    fclose(fp1);
+    return 0;
+}
diff --git a/pttbbs/util/boardlist.c b/pttbbs/util/boardlist.c
new file mode 100644
index 00000000..4c338328
--- /dev/null
+++ b/pttbbs/util/boardlist.c
@@ -0,0 +1,112 @@
+/* $Id$ */
+/* 這是用來將樹狀分類輸出成 perl module (可以給像是 man/ 使用) */
+#include "bbs.h"
+
+static void
+load_uidofgid(const int gid, const int type)
+{
+    boardheader_t  *bptr, *currbptr;
+    int             n, childcount = 0;
+    currbptr = &bcache[gid - 1];
+    for (n = 0; n < numboards; ++n) {
+	bptr = SHM->bsorted[type][n];
+	if (bptr->brdname[0] == '\0')
+	    continue;
+	if (bptr->gid == gid) {
+	    if (currbptr == &bcache[gid - 1])
+		currbptr->firstchild[type] = bptr;
+	    else {
+		currbptr->next[type] = bptr;
+		currbptr->parent = &bcache[gid - 1];
+	    }
+	    childcount++;
+	    currbptr = bptr;
+	}
+    }
+    bcache[gid - 1].childcount = childcount;
+    if (currbptr == &bcache[gid - 1])
+	currbptr->firstchild[type] = NULL;
+    else
+	currbptr->next[type] = NULL;
+}
+
+char *skipEscape(char *s)
+{
+    static  char    buf[TTLEN * 2 + 1];
+    int     r, w;
+    for( w = r = 0 ; s[r] != 0 ; ++r ){
+	if( s[r] == '\'' || s[r] == '\\' )
+	    buf[w++] = '\\';
+	buf[w++] = s[r];
+    }
+    buf[w++] = 0;
+    return buf;
+}
+
+void dumpclass(int bid)
+{
+    boardheader_t  *bptr;
+    char    BM[IDLEN * 3 + 3], *p;
+
+    bptr = &bcache[bid];
+    if (bptr->firstchild[0] == NULL || bptr->childcount <= 0)
+	load_uidofgid(bid + 1, 0); /* 因為這邊 bid從 0開始, 所以再 +1 回來 */
+    printf("    %5d => [\n", bid);
+    for (bptr = bptr->firstchild[0]; bptr != NULL ; bptr = bptr->next[0]) {
+	if( (bptr->brdattr & (BRD_HIDE | BRD_TOP)) ||
+	    (bptr->level && !(bptr->brdattr & BRD_POSTMASK) &&
+	     (bptr->level & 
+	      ~(PERM_BASIC|PERM_CHAT|PERM_PAGE|PERM_POST|PERM_LOGINOK))) )
+	    continue;
+
+	printf("        [%5d, '%s', '%s', [",
+	       (bptr->brdattr & BRD_GROUPBOARD) ? bptr - bcache : -1,
+	       bptr->brdname, skipEscape(&bptr->title[7]));
+	strlcpy(BM, bptr->BM, sizeof(BM));
+	for( p = BM ; *p != 0 ; ++p )
+	    if( !isalpha(*p) && !isdigit(*p) )
+		*p = ' ';
+	for( p = strtok(BM, " ") ; p != NULL ; p = strtok(NULL, " ") ){
+	    printf("'%s',", p);
+	}
+	printf("]],\n");
+    }
+    printf("     ],\n");
+
+    bptr = &bcache[bid];
+    for (bptr = bptr->firstchild[0]; bptr != NULL ; bptr = bptr->next[0]) {
+	if( (bptr->brdattr & (BRD_HIDE | BRD_TOP)) ||
+	    (bptr->level && !(bptr->brdattr & BRD_POSTMASK) &&
+	     (bptr->level & 
+	      ~(PERM_BASIC|PERM_CHAT|PERM_PAGE|PERM_POST|PERM_LOGINOK))) )
+	    continue;
+
+	printf("     '%d.title' => '%s',\n",
+	       bptr - bcache, skipEscape(&bptr->title[7]));
+	if( bptr->brdattr & BRD_GROUPBOARD )
+	    dumpclass(bptr - bcache);
+    }
+}
+
+int main(int argc, char **argv)
+{
+    attach_SHM();
+
+    printf("# this is auto-generated perl module from boardlist.c\n"
+	   "# please do NOT modify this directly\n"
+	   "\n"
+	   "package boardlist;\n"
+	   "use Exporter;\n"
+	   "$VERSION = '0.1';\n"
+	   "use vars qw(%%brd);\n"
+	   "\n"
+	   "%%brd = (\n");
+    dumpclass(0);
+    printf(");\n"
+	   "our(@ISA, @EXPORT);\n"
+	   "@ISA = qw(Exporter);\n"
+	   "@EXPORT = qw(%%brd);\n"
+	   "\n"
+	   "1;\n");
+    return 0;
+}
diff --git a/pttbbs/util/buildAnnounce.c b/pttbbs/util/buildAnnounce.c
new file mode 100644
index 00000000..0bfbefbd
--- /dev/null
+++ b/pttbbs/util/buildAnnounce.c
@@ -0,0 +1,76 @@
+/* 建立所有看板精華區的連結 */
+
+#include "bbs.h"
+#define GROUPROOT BBSHOME"/man/group"
+
+extern boardheader_t *bcache;
+extern void resolve_boards();
+extern int numboards;
+
+int cmpboardclass(const void *a, const void *b)
+{
+    boardheader_t **brd = (boardheader_t **)a;
+    boardheader_t **tmp = (boardheader_t **)b;
+    return (strncmp((*brd)->title, (*tmp)->title, 4)<<8)+
+	   strcasecmp((*brd)->brdname, (*tmp)->brdname);
+} 
+void buildchilds(int level,char *path,int gid)
+{
+    char newpath[512];
+    int i,count=0;
+    boardheader_t *ptr, *selected[512];
+    fileheader_t item;
+    
+    for(i=0; i<numboards;  i++)
+    {
+        ptr =&SHM->bcache[i];
+	if(
+           ptr->gid != gid ||
+	   (ptr->brdattr&(BRD_BAD | BRD_HIDE))!=0
+	   ||
+	   (ptr->level && !(ptr->brdattr & BRD_POSTMASK)))
+	    continue;
+        selected[count++]=ptr;
+    }       
+    qsort(&selected, count, sizeof(boardheader_t *),
+	  cmpboardclass); 
+    for(i=0;i<count;i++)
+    {
+        ptr=selected[i];
+        printf("%*.*s+-%-14s %-s \n",level*2,level*2,"| | | | | | | | |",
+	       ptr->brdname, ptr->title);
+
+        if(ptr->brdattr & BRD_GROUPBOARD){
+	    sprintf(newpath,"%s/%s",path,ptr->brdname);
+	    mkdir(newpath,0766);
+	    buildchilds(level+1,newpath,ptr-bcache+1); 
+	}
+	else{
+	    sprintf(newpath,"/bin/ln -s "BBSHOME"/man/boards/%c/%s %s/%s",
+		    /* maybe something wrong with this             ^^^^^ */
+		    ptr->brdname[0], ptr->brdname,path,ptr->brdname);
+	    system(newpath);
+	}
+        strcpy(item.owner,ptr->BM);
+	strtok(item.owner,"/");
+        sprintf(item.title,"%-13.13s %-32.32s", level?ptr->brdname:"", ptr->title+7);
+        item.filemode =  0 ;
+        sprintf(item.filename,ptr->brdname);
+        sprintf(newpath,"%s/.DIR",path);
+	append_record(newpath, &item, sizeof(item));
+    }
+}
+
+
+int main(int argc, char **argv)
+{ 
+    char path[512];
+    setsid();
+    strcpy(path,GROUPROOT);
+    system("rm -rf "GROUPROOT);
+    mkdir(GROUPROOT,0766);
+    attach_SHM();
+    resolve_boards();
+    buildchilds(0,path,1);
+    return 0;
+}
diff --git a/pttbbs/util/buildAnnounce.sh b/pttbbs/util/buildAnnounce.sh
new file mode 100644
index 00000000..d43f420b
--- /dev/null
+++ b/pttbbs/util/buildAnnounce.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+# $Id: buildAnnounce.sh,v 1.1 2002/03/07 15:13:45 in2 Exp $
+#
+bin/buildAnnounce > etc/ALLBRDLIST
+bin/post Record 全站看板列表 [自動站長] etc/ALLBRDLIST   
diff --git a/pttbbs/util/buildir.c b/pttbbs/util/buildir.c
new file mode 100644
index 00000000..e6b7f9d2
--- /dev/null
+++ b/pttbbs/util/buildir.c
@@ -0,0 +1,125 @@
+/* $Id$ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <dirent.h>
+#include <fcntl.h>
+#include <time.h>
+#include <string.h>
+#include <unistd.h>
+#include <sys/param.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "proto.h"
+
+int dirselect(struct dirent *dir) {
+    return strchr("MDSGH", dir->d_name[0]) && dir->d_name[1] == '.';
+}
+
+int mysort(const void *a, const void *b)
+{
+    return atoi(((*((struct dirent **)a))->d_name+2))-atoi(((*((struct dirent **)b))->d_name+2));
+}
+
+int main(int argc, char **argv) {
+    int k;
+    
+    if(argc < 2) {
+	fprintf(stderr, "Usage: %s <path1> [<path2> ...]\n", argv[0]);
+	return 1;
+    }
+    
+    for(k = 1; k < argc; k++) {
+	int fdir, count, total;
+	char *ptr, path[MAXPATHLEN];
+	struct dirent **dirlist;
+	
+	sprintf(path, "%s/.DIR", argv[k]);
+	if((fdir = open(path, O_WRONLY | O_CREAT | O_TRUNC, 0644)) == -1) {
+	    perror(path);
+	    continue;
+	}
+	
+	if((total = scandir(argv[k], &dirlist, dirselect, mysort)) == -1) {
+	    fprintf(stderr, "scandir failed!\n");
+	    close(fdir);
+	    continue;
+	}
+	
+	ptr = strrchr(path, '.');
+	for(count = 0; count < total; count++) {
+	    FILE *fp;
+	    struct stat st;
+	    
+	    strcpy(ptr, dirlist[count]->d_name);
+	    if(stat(path, &st) == 0 && st.st_size > 0 &&
+	       (fp = fopen(path, "r")) != NULL) {
+		char buf[512];
+		time_t filetime;
+		fileheader_t fhdr;
+		
+		memset(&fhdr, 0, sizeof(fhdr));
+		/* set file name */
+		strcpy(fhdr.filename, dirlist[count]->d_name);
+		
+		/* set file time */
+		filetime = atoi(dirlist[count]->d_name + 2);
+		if(filetime > 740000000) {
+		    struct tm *ptime = localtime(&filetime);
+		    sprintf(fhdr.date, "%2d/%02d", ptime->tm_mon + 1,
+			    ptime->tm_mday);
+		} else
+		    strcpy(fhdr.date, "     ");
+		
+		/* set file mode */
+		fhdr.filemode = FILE_READ;
+		
+		/* set article owner */
+		fgets(buf, sizeof(buf), fp);
+		if(strncmp(buf, "作者: ", 6) == 0 ||
+		   strncmp(buf, "發信人: ", 8) == 0) {
+		    int i, j;
+		    
+		    for(i = 5; buf[i] != ' '; i++);
+		    for(; buf[i] == ' '; i++);
+		    for(j = i + 1; buf[j] != ' '; j++);
+		    j -= i;
+		    if(j > IDLEN + 1)
+			j = IDLEN + 1;
+		    strncpy(fhdr.owner, buf + i, j);
+		    fhdr.owner[IDLEN + 1] = '\0';
+		    strtok(fhdr.owner, " .@\t\n\r");
+		    if(strtok(NULL, " .@\t\n\r"))
+			strcat(fhdr.owner, ".");
+		    
+		    /* set article title */
+		    while(fgets(buf, sizeof(buf), fp))
+			if(strncmp(buf, "標題: ", 6) == 0 ||
+			   strncmp(buf, "標  題: ", 8) == 0) {
+			    for(i = 5; buf[i] != ' '; i++);
+			    for(; buf[i] == ' '; i++);
+			    strtok(buf + i-1, "\n");
+			    strncpy(fhdr.title, buf + i, TTLEN);
+			    fhdr.title[TTLEN] = '\0';
+			    break;
+			}
+		} else if(strncmp(buf, "☉ 歡迎光臨", 11) == 0) {
+		    strcpy(fhdr.title, "會議記錄");
+		} else if(strncmp(buf, "\33[1;33;46m★", 12) == 0||
+			  strncmp(buf, "To", 2) == 0) {
+		    strcpy(fhdr.title, "熱線記錄");
+		}
+//		if(!fhdr.title[0])
+//		    strcpy(fhdr.title, dirlist[count]->d_name);
+		fclose(fp);
+		write(fdir, &fhdr, sizeof(fhdr));
+	    }
+	}
+	close(fdir);
+	for(total--; total >= 0; total--)
+	    free(dirlist[total]);
+	free(dirlist);
+    }
+    return 0;
+}
diff --git a/pttbbs/util/countalldice.c b/pttbbs/util/countalldice.c
new file mode 100644
index 00000000..63354668
--- /dev/null
+++ b/pttbbs/util/countalldice.c
@@ -0,0 +1,95 @@
+/* $Id$ */
+
+/**********************************************/
+/*這個程式是用來計算賭骰子賺得錢跟賠的錢的程式 */
+/*用法就是直接打 countalldice 就可以針對所有人 */
+/*來計算他總共賺了多少 賠了多少............... */
+/*作者:Heat 於1997/10/2                       */
+/**********************************************/
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include "config.h"
+
+#define DICE_WIN  BBSHOME "/etc/windice.log"
+#define DICE_LOST BBSHOME "/etc/lostdice.log"
+
+int total = 0;
+
+typedef struct dice
+{
+    char id[14];
+    int win;
+    int lost;
+}
+dice;
+
+dice table[1024];
+
+int find(char *name)
+{
+    int i = 0;
+    if (total == 0)
+    {
+	total++;
+	return 0;
+    }
+    for (i = 0; i < total; i++)
+	if (!strcmp(name, table[i].id))
+	    return i;
+    memset(&table[total++], 0, sizeof(dice));
+    return total - 1;
+}
+
+int main() {
+    int index, win = 0, lost = 0;
+    FILE *fpwin, *fplost;
+    char buf[256], *ptr, buf0[256], *name = (char *) malloc(15), *mon = (char *) malloc(5);
+
+    fpwin = fopen(DICE_WIN, "r");
+    fplost = fopen(DICE_LOST, "r");
+
+    if (!fpwin || !fplost)
+	perror("error open file");
+
+    while (fgets(buf, 255, fpwin))
+    {
+	strcpy(buf0, buf);
+	name = strtok(buf, " ");
+	mon = strstr(buf0, "淨賺:");
+	if ((ptr = strchr(mon, '\n')))
+	    *ptr = 0;
+	index = find(name);
+	strcpy(table[index].id, name);
+	table[index].win += atoi(mon + 5);
+    }
+    fclose(fpwin);
+
+    while (fgets(buf, 255, fplost))
+    {
+	strcpy(buf0, buf);
+	name = strtok(buf, " ");
+	mon = strstr(buf0, "輸了 ");
+	if ((ptr = strchr(mon, '\n')))
+	    *ptr = 0;
+	if ((index = find(name)) == total - 1)
+	    strcpy(table[index].id, name);
+	table[index].lost += atoi(mon + 5);
+    }
+
+    for (index = 0; index < total; index++)
+    {
+	printf("%-15s 贏了 %-8d 塊錢， 輸掉 %-8d 塊錢\n", table[index].id
+	       ,table[index].win, table[index].lost);
+	win += table[index].win;
+	lost += table[index].lost;
+    }
+    index = win + lost;
+    printf("\n人數: %d\n總贏錢=%d 總輸錢=%d 總金額:%d\n", total, win, lost, index);
+    printf("贏的比例:%f 輸的比例:%f\n", (float) win / index, (float) lost / index);
+    printf("\n備註：輸贏是以使用者的觀點來看\n");
+    fclose(fplost);
+    return 0;
+}
diff --git a/pttbbs/util/dailybackup.pl b/pttbbs/util/dailybackup.pl
new file mode 100644
index 00000000..fdcbee93
--- /dev/null
+++ b/pttbbs/util/dailybackup.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+use lib '/home/bbs/bin/';
+use LocalVars;
+use strict;
+use vars qw/$BACKHOME $MANROOT $HOMEROOT $BOARDROOT/;
+
+$BACKHOME = "$BBSHOME/backup";
+$MANROOT  = "man/boards";
+$HOMEROOT = "home";
+$BOARDROOT= "boards";
+
+chdir $BBSHOME;
+my @baktable = (['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H'],
+		['I', 'J', 'K', 'L', 'M', 'N', 'O', 'P'],
+		['Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X'],
+		['Y', 'Z', 'a', 'b', 'c', 'd', 'e'],
+		['f', 'g', 'h', 'i', 'j', 'k', 'l'],
+		['m', 'n', 'o', 'p', 'q', 'r', 's'],
+		['t', 'u', 'v', 'w', 'x', 'y', 'z']);
+my (undef,undef,undef,undef,undef,undef,$wday) = localtime(time); 
+my $week = defined($ARGV[0]) ? $ARGV[0] : $wday;
+
+no strict 'subs';
+setpriority(PRIO_PROCESS, $$, 20);
+use strict subs;
+
+my($orig, $to);
+foreach $orig ( <$BACKHOME/*new*> ){
+	$to = $orig;
+	$to =~ s/\.new//g;
+	docmd("mv $orig $to");
+}
+
+foreach( @{$baktable[$week]} ){
+    docmd("$TAR zcf  $BACKHOME/man.$_.new.tgz   $MANROOT/$_/*");
+    docmd("$TAR zcfh $BACKHOME/home.$_.new.tgz  $HOMEROOT/$_");
+    docmd("$TAR zcf  $BACKHOME/board.$_.new.tgz $BOARDROOT/$_/*");
+}
+
+if( $week == 0 ){
+    docmd("$TAR zcf $BACKHOME/general.new.tgz .BRD .PASSWDS .act .note .polling .post .post.old adm bin cron etc innd log note.ans note.dat pttbbs register.log ussong");
+}
+
+sub docmd
+{
+    print "@_\n";
+    `@_`;
+}
diff --git a/pttbbs/util/deluserfile.c b/pttbbs/util/deluserfile.c
new file mode 100644
index 00000000..73f3750a
--- /dev/null
+++ b/pttbbs/util/deluserfile.c
@@ -0,0 +1,137 @@
+/* $Id$ */
+/* 自動砍user目錄檔案程式 */
+
+#include "bbs.h"
+
+#define HOLDWRITELOG
+#define DELZEROFILE
+#define USERHOME BBSHOME "/home"
+
+int bad_user_id(char *userid)
+{
+    register char ch;
+
+    if (strlen(userid) < 2)
+	return 1;
+
+    if (!isalpha(*userid))
+	return 1;
+
+    if (!strcasecmp(userid, "new"))
+	return 1;
+
+    while ((ch = *(++userid)))
+	if (!isalnum(ch))
+	    return 1;
+    return 0;
+}
+
+void del_file(char *userid)
+{
+    char buf[200], buf1[200];
+    struct dirent *de;
+    DIR *dirp;
+    char *ptr;
+
+    sprintf(buf, BBSHOME "/home/%c/%s", userid[0], userid);
+
+    if (chdir(buf) == -1)
+	return;
+
+    if (!(dirp = opendir(buf)))
+	return;
+
+    while ((de = readdir(dirp)))
+    {
+	ptr = de->d_name;
+	if (ptr[0] > ' ' && ptr[0] != '.')
+	{
+	    if (strstr(ptr, "writelog"))
+#ifdef HOLDWRITELOG
+	    {
+		fileheader_t mymail;
+
+		stampfile(buf, &mymail);
+		mymail.filemode = FILE_READ|FILE_HOLD;
+		strcpy(mymail.owner, userid);
+		strcpy(mymail.title, "熱線記錄");
+		sprintf(buf1, BBSHOME "/home/%c/%s/writelog",
+			userid[0], userid);
+		rename(buf1, buf);
+		sprintf(buf1, BBSHOME "/home/%c/%s/.DIR", userid[0], userid);
+		append_record(buf1, &mymail, sizeof(mymail));
+	    }
+#else
+	    unlink(ptr);
+#endif
+	    else if (strstr(ptr, "chat_"))
+		unlink(ptr);
+	    else if (strstr(ptr, "ve_"))
+		unlink(ptr);
+	    else if (strstr(ptr, "SR."))
+		unlink(ptr);
+	    else if (strstr(ptr, ".old"))
+		unlink(ptr);
+	    else if (strstr(ptr, "talk_"))
+		unlink(ptr);
+	}
+    }
+    closedir(dirp);
+}
+
+void mv_user_home(char *ptr)
+{
+    char buf[200];
+
+    printf("move user %s to tmp\n", ptr);
+    sprintf(buf, "cp -R " BBSHOME "/home/%c/%s " BBSHOME "/tmp", ptr[0], ptr);
+//      sprintf(buf,"rm -rf " BBSHOME "/home/%c/%s",ptr[0],ptr);
+    if (!system(buf))
+    {				//Copy success
+
+	sprintf(buf, "rm -rf " BBSHOME "/home/%c/%s", ptr[0], ptr);
+	system(buf);
+    }
+}
+
+int main(int argc, char **argv)
+{
+    struct dirent *de;
+    DIR *dirp;
+    char *ptr, buf[200], ch;
+    int count = 0;
+/* visit all users  */
+
+    printf("new version, deleting\n");
+
+    for (ch = 'A'; ch <= 'z'; ch++)
+    {
+	if(ch > 'Z' && ch < 'a')
+	    continue;
+	printf("Cleaning %c\n", ch);
+	sprintf(buf, USERHOME "/%c", ch);
+	if (!(dirp = opendir(buf)))
+	{
+	    printf("unable to open %s\n", buf);
+	    continue;
+	}
+
+	while ((de = readdir(dirp)))
+	{
+	    ptr = de->d_name;
+
+	    /* 預防錯誤 */
+	    if (!bad_user_id(ptr))
+	    {
+		if (!(count++ % 300))
+		    printf(".\n");
+		if (!searchuser(ptr))
+		    mv_user_home(ptr);
+		else
+		    del_file(ptr);
+	    }
+	}
+	closedir(dirp);
+    }
+    return 0;
+}
diff --git a/pttbbs/util/descrypt.c b/pttbbs/util/descrypt.c
new file mode 100644
index 00000000..6ea6dbe8
--- /dev/null
+++ b/pttbbs/util/descrypt.c
@@ -0,0 +1,616 @@
+/* $Id$ */
+
+/*
+ * FreeSec: libcrypt for NetBSD
+ *
+ * Copyright (c) 1994 David Burren
+ * All rights reserved.
+ *
+ * Adapted for FreeBSD-2.0 by Geoffrey M. Rehmet
+ *	crypt.c should now *only* export crypt(), in order to make
+ *	binaries of libcrypt exportable from the USA
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 4. Neither the name of the author nor the names of other contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ * $FreeBSD: src/secure/lib/libcrypt/crypt.c,v 1.11 1999/08/28 01:30:24 peter Exp $
+ *
+ * This is an original implementation of the DES and the crypt(3) interfaces
+ * by David Burren <davidb@werj.com.au>.
+ *
+ * An excellent reference on the underlying algorithm (and related
+ * algorithms) is:
+ *
+ *	B. Schneier, Applied Cryptography: protocols, algorithms,
+ *	and source code in C, John Wiley & Sons, 1994.
+ *
+ * Note that in that book's description of DES the lookups for the initial,
+ * pbox, and final permutations are inverted (this has been brought to the
+ * attention of the author).  A list of errata for this book has been
+ * posted to the sci.crypt newsgroup by the author and is available for FTP.
+ *
+ * ARCHITECTURE ASSUMPTIONS:
+ *	This code assumes that u_longs are 32 bits.  It will probably not
+ *	operate on 64-bit machines without modifications.
+ *	It is assumed that the 8-byte arrays passed by reference can be
+ *	addressed as arrays of u_longs (ie. the CPU is not picky about
+ *	alignment).
+ */
+
+#ifndef HAVE_DES_CRYPT
+
+#include <sys/types.h>
+#include <sys/param.h>
+#include <pwd.h>
+#include <string.h>
+
+static unsigned char IP[64] = {
+    58, 50, 42, 34, 26, 18, 10,  2, 60, 52, 44, 36, 28, 20, 12,  4,
+    62, 54, 46, 38, 30, 22, 14,  6, 64, 56, 48, 40, 32, 24, 16,  8,
+    57, 49, 41, 33, 25, 17,  9,  1, 59, 51, 43, 35, 27, 19, 11,  3,
+    61, 53, 45, 37, 29, 21, 13,  5, 63, 55, 47, 39, 31, 23, 15,  7
+};
+
+static unsigned char inv_key_perm[64];
+static unsigned char u_key_perm[56];
+static unsigned char key_perm[56] = {
+    57, 49, 41, 33, 25, 17,  9,  1, 58, 50, 42, 34, 26, 18,
+    10,  2, 59, 51, 43, 35, 27, 19, 11,  3, 60, 52, 44, 36,
+    63, 55, 47, 39, 31, 23, 15,  7, 62, 54, 46, 38, 30, 22,
+    14,  6, 61, 53, 45, 37, 29, 21, 13,  5, 28, 20, 12,  4
+};
+
+static unsigned char key_shifts[16] = {
+    1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1
+};
+
+static unsigned char inv_comp_perm[56];
+static unsigned char comp_perm[48] = {
+    14, 17, 11, 24,  1,  5,  3, 28, 15,  6, 21, 10,
+    23, 19, 12,  4, 26,  8, 16,  7, 27, 20, 13,  2,
+    41, 52, 31, 37, 47, 55, 30, 40, 51, 45, 33, 48,
+    44, 49, 39, 56, 34, 53, 46, 42, 50, 36, 29, 32
+};
+
+/*
+ *	No E box is used, as it's replaced by some ANDs, shifts, and ORs.
+ */
+
+static unsigned char u_sbox[8][64];
+static unsigned char sbox[8][64] = {
+    {
+	14,  4, 13,  1,  2, 15, 11,  8,  3, 10,  6, 12,  5,  9,  0,  7,
+	0, 15,  7,  4, 14,  2, 13,  1, 10,  6, 12, 11,  9,  5,  3,  8,
+	4,  1, 14,  8, 13,  6,  2, 11, 15, 12,  9,  7,  3, 10,  5,  0,
+	15, 12,  8,  2,  4,  9,  1,  7,  5, 11,  3, 14, 10,  0,  6, 13
+    },
+    {
+	15,  1,  8, 14,  6, 11,  3,  4,  9,  7,  2, 13, 12,  0,  5, 10,
+	3, 13,  4,  7, 15,  2,  8, 14, 12,  0,  1, 10,  6,  9, 11,  5,
+	0, 14,  7, 11, 10,  4, 13,  1,  5,  8, 12,  6,  9,  3,  2, 15,
+	13,  8, 10,  1,  3, 15,  4,  2, 11,  6,  7, 12,  0,  5, 14,  9
+    },
+    {
+	10,  0,  9, 14,  6,  3, 15,  5,  1, 13, 12,  7, 11,  4,  2,  8,
+	13,  7,  0,  9,  3,  4,  6, 10,  2,  8,  5, 14, 12, 11, 15,  1,
+	13,  6,  4,  9,  8, 15,  3,  0, 11,  1,  2, 12,  5, 10, 14,  7,
+	1, 10, 13,  0,  6,  9,  8,  7,  4, 15, 14,  3, 11,  5,  2, 12
+    },
+    {
+	7, 13, 14,  3,  0,  6,  9, 10,  1,  2,  8,  5, 11, 12,  4, 15,
+	13,  8, 11,  5,  6, 15,  0,  3,  4,  7,  2, 12,  1, 10, 14,  9,
+	10,  6,  9,  0, 12, 11,  7, 13, 15,  1,  3, 14,  5,  2,  8,  4,
+	3, 15,  0,  6, 10,  1, 13,  8,  9,  4,  5, 11, 12,  7,  2, 14
+    },
+    {
+	2, 12,  4,  1,  7, 10, 11,  6,  8,  5,  3, 15, 13,  0, 14,  9,
+	14, 11,  2, 12,  4,  7, 13,  1,  5,  0, 15, 10,  3,  9,  8,  6,
+	4,  2,  1, 11, 10, 13,  7,  8, 15,  9, 12,  5,  6,  3,  0, 14,
+	11,  8, 12,  7,  1, 14,  2, 13,  6, 15,  0,  9, 10,  4,  5,  3
+    },
+    {
+	12,  1, 10, 15,  9,  2,  6,  8,  0, 13,  3,  4, 14,  7,  5, 11,
+	10, 15,  4,  2,  7, 12,  9,  5,  6,  1, 13, 14,  0, 11,  3,  8,
+	9, 14, 15,  5,  2,  8, 12,  3,  7,  0,  4, 10,  1, 13, 11,  6,
+	4,  3,  2, 12,  9,  5, 15, 10, 11, 14,  1,  7,  6,  0,  8, 13
+    },
+    {
+	4, 11,  2, 14, 15,  0,  8, 13,  3, 12,  9,  7,  5, 10,  6,  1,
+	13,  0, 11,  7,  4,  9,  1, 10, 14,  3,  5, 12,  2, 15,  8,  6,
+	1,  4, 11, 13, 12,  3,  7, 14, 10, 15,  6,  8,  0,  5,  9,  2,
+	6, 11, 13,  8,  1,  4, 10,  7,  9,  5,  0, 15, 14,  2,  3, 12
+    },
+    {
+	13,  2,  8,  4,  6, 15, 11,  1, 10,  9,  3, 14,  5,  0, 12,  7,
+	1, 15, 13,  8, 10,  3,  7,  4, 12,  5,  6, 11,  0, 14,  9,  2,
+	7, 11,  4,  1,  9, 12, 14,  2,  0,  6, 10, 13, 15,  3,  5,  8,
+	2,  1, 14,  7,  4, 10,  8, 13, 15, 12,  9,  0,  3,  5,  6, 11
+    }
+};
+
+static unsigned char un_pbox[32];
+static unsigned char pbox[32] = {
+    16,  7, 20, 21, 29, 12, 28, 17,  1, 15, 23, 26,  5, 18, 31, 10,
+    2,  8, 24, 14, 32, 27,  3,  9, 19, 13, 30,  6, 22, 11,  4, 25
+};
+
+static unsigned long bits32[32] = {
+    0x80000000, 0x40000000, 0x20000000, 0x10000000,
+    0x08000000, 0x04000000, 0x02000000, 0x01000000,
+    0x00800000, 0x00400000, 0x00200000, 0x00100000,
+    0x00080000, 0x00040000, 0x00020000, 0x00010000,
+    0x00008000, 0x00004000, 0x00002000, 0x00001000,
+    0x00000800, 0x00000400, 0x00000200, 0x00000100,
+    0x00000080, 0x00000040, 0x00000020, 0x00000010,
+    0x00000008, 0x00000004, 0x00000002, 0x00000001
+};
+
+static unsigned char bits8[8] = { 0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01 };
+
+static unsigned long saltbits;
+static long	old_salt;
+static unsigned long *bits28, *bits24;
+static unsigned char init_perm[64], final_perm[64];
+static unsigned long en_keysl[16], en_keysr[16];
+static unsigned long de_keysl[16], de_keysr[16];
+static int des_initialised = 0;
+static unsigned char m_sbox[4][4096];
+static unsigned long psbox[4][256];
+static unsigned long ip_maskl[8][256], ip_maskr[8][256];
+static unsigned long fp_maskl[8][256], fp_maskr[8][256];
+static unsigned long key_perm_maskl[8][128], key_perm_maskr[8][128];
+static unsigned long comp_maskl[8][128], comp_maskr[8][128];
+static unsigned long old_rawkey0, old_rawkey1;
+
+static unsigned char	ascii64[] =
+"./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
+/*	  0000000000111111111122222222223333333333444444444455555555556666 */
+/*	  0123456789012345678901234567890123456789012345678901234567890123 */
+
+static int ascii_to_bin(char ch) {
+    if(ch > 'z')
+	return 0;
+    if(ch >= 'a')
+	return ch - 'a' + 38;
+    if(ch > 'Z')
+	return 0;
+    if(ch >= 'A')
+	return ch - 'A' + 12;
+    if(ch > '9')
+	return 0;
+    if(ch >= '.')
+	return ch - '.';
+    return 0;
+}
+
+static void des_init() {
+    int	i, j, b, k, inbit, obit;
+    unsigned long *p, *il, *ir, *fl, *fr;
+	
+    old_rawkey0 = old_rawkey1 = 0L;
+    saltbits = 0L;
+    old_salt = 0L;
+    bits24 = (bits28 = bits32 + 4) + 4;
+	
+    /*
+     * Invert the S-boxes, reordering the input bits.
+     */
+    for(i = 0; i < 8; i++)
+	for(j = 0; j < 64; j++) {
+	    b = (j & 0x20) | ((j & 1) << 4) | ((j >> 1) & 0xf);
+	    u_sbox[i][j] = sbox[i][b];
+	}
+	
+    /*
+     * Convert the inverted S-boxes into 4 arrays of 8 bits.
+     * Each will handle 12 bits of the S-box input.
+     */
+    for(b = 0; b < 4; b++)
+	for(i = 0; i < 64; i++)
+	    for(j = 0; j < 64; j++)
+		m_sbox[b][(i << 6) | j] =
+		    (u_sbox[(b << 1)][i] << 4) |
+		    u_sbox[(b << 1) + 1][j];
+
+    /*
+     * Set up the initial & final permutations into a useful form, and
+     * initialise the inverted key permutation.
+     */
+    for(i = 0; i < 64; i++) {
+	init_perm[final_perm[i] = IP[i] - 1] = i;
+	inv_key_perm[i] = 255;
+    }
+
+    /*
+     * Invert the key permutation and initialise the inverted key
+     * compression permutation.
+     */
+    for(i = 0; i < 56; i++) {
+	u_key_perm[i] = key_perm[i] - 1;
+	inv_key_perm[key_perm[i] - 1] = i;
+	inv_comp_perm[i] = 255;
+    }
+
+    /*
+     * Invert the key compression permutation.
+     */
+    for(i = 0; i < 48; i++) {
+	inv_comp_perm[comp_perm[i] - 1] = i;
+    }
+
+    /*
+     * Set up the OR-mask arrays for the initial and final permutations,
+     * and for the key initial and compression permutations.
+     */
+    for(k = 0; k < 8; k++) {
+	for(i = 0; i < 256; i++) {
+	    *(il = &ip_maskl[k][i]) = 0L;
+	    *(ir = &ip_maskr[k][i]) = 0L;
+	    *(fl = &fp_maskl[k][i]) = 0L;
+	    *(fr = &fp_maskr[k][i]) = 0L;
+	    for(j = 0; j < 8; j++) {
+		inbit = 8 * k + j;
+		if(i & bits8[j]) {
+		    if((obit = init_perm[inbit]) < 32)
+			*il |= bits32[obit];
+		    else
+			*ir |= bits32[obit-32];
+		    if ((obit = final_perm[inbit]) < 32)
+			*fl |= bits32[obit];
+		    else
+			*fr |= bits32[obit - 32];
+		}
+	    }
+	}
+	for(i = 0; i < 128; i++) {
+	    *(il = &key_perm_maskl[k][i]) = 0L;
+	    *(ir = &key_perm_maskr[k][i]) = 0L;
+	    for(j = 0; j < 7; j++) {
+		inbit = 8 * k + j;
+		if(i & bits8[j + 1]) {
+		    if((obit = inv_key_perm[inbit]) == 255)
+			continue;
+		    if(obit < 28)
+			*il |= bits28[obit];
+		    else
+			*ir |= bits28[obit - 28];
+		}
+	    }
+	    *(il = &comp_maskl[k][i]) = 0L;
+	    *(ir = &comp_maskr[k][i]) = 0L;
+	    for(j = 0; j < 7; j++) {
+		inbit = 7 * k + j;
+		if(i & bits8[j + 1]) {
+		    if((obit=inv_comp_perm[inbit]) == 255)
+			continue;
+		    if(obit < 24)
+			*il |= bits24[obit];
+		    else
+			*ir |= bits24[obit - 24];
+		}
+	    }
+	}
+    }
+	
+    /*
+     * Invert the P-box permutation, and convert into OR-masks for
+     * handling the output of the S-box arrays setup above.
+     */
+    for(i = 0; i < 32; i++)
+	un_pbox[pbox[i] - 1] = i;
+
+    for(b = 0; b < 4; b++)
+	for(i = 0; i < 256; i++) {
+	    *(p = &psbox[b][i]) = 0L;
+	    for (j = 0; j < 8; j++) {
+		if (i & bits8[j])
+		    *p |= bits32[un_pbox[8 * b + j]];
+	    }
+	}
+	
+    des_initialised = 1;
+}
+
+static void setup_salt(long salt) {
+    unsigned long obit, saltbit;
+    int	i;
+	
+    if (salt == old_salt)
+	return;
+    old_salt = salt;
+	
+    saltbits = 0L;
+    saltbit = 1;
+    obit = 0x800000;
+    for (i = 0; i < 24; i++) {
+	if (salt & saltbit)
+	    saltbits |= obit;
+	saltbit <<= 1;
+	obit >>= 1;
+    }
+}
+
+static int des_setkey(const char *key) {
+    unsigned long k0, k1, rawkey0, rawkey1;
+    int	shifts, round;
+
+    if(!des_initialised)
+	des_init();
+	
+    rawkey0 = ntohl(*(unsigned long *) key);
+    rawkey1 = ntohl(*(unsigned long *) (key + 4));
+	
+    if((rawkey0 | rawkey1)
+       && rawkey0 == old_rawkey0
+       && rawkey1 == old_rawkey1) {
+	/*
+	 * Already setup for this key.
+	 * This optimisation fails on a zero key (which is weak and
+	 * has bad parity anyway) in order to simplify the starting
+	 * conditions.
+	 */
+	return 0;
+    }
+    old_rawkey0 = rawkey0;
+    old_rawkey1 = rawkey1;
+	
+    /*
+     *	Do key permutation and split into two 28-bit subkeys.
+     */
+    k0 = key_perm_maskl[0][rawkey0 >> 25]
+	| key_perm_maskl[1][(rawkey0 >> 17) & 0x7f]
+	| key_perm_maskl[2][(rawkey0 >> 9) & 0x7f]
+	| key_perm_maskl[3][(rawkey0 >> 1) & 0x7f]
+	| key_perm_maskl[4][rawkey1 >> 25]
+	| key_perm_maskl[5][(rawkey1 >> 17) & 0x7f]
+	| key_perm_maskl[6][(rawkey1 >> 9) & 0x7f]
+	| key_perm_maskl[7][(rawkey1 >> 1) & 0x7f];
+    k1 = key_perm_maskr[0][rawkey0 >> 25]
+	| key_perm_maskr[1][(rawkey0 >> 17) & 0x7f]
+	| key_perm_maskr[2][(rawkey0 >> 9) & 0x7f]
+	| key_perm_maskr[3][(rawkey0 >> 1) & 0x7f]
+	| key_perm_maskr[4][rawkey1 >> 25]
+	| key_perm_maskr[5][(rawkey1 >> 17) & 0x7f]
+	| key_perm_maskr[6][(rawkey1 >> 9) & 0x7f]
+	| key_perm_maskr[7][(rawkey1 >> 1) & 0x7f];
+    /*
+     *	Rotate subkeys and do compression permutation.
+     */
+    shifts = 0;
+    for(round = 0; round < 16; round++) {
+	unsigned long t0, t1;
+		
+	shifts += key_shifts[round];
+		
+	t0 = (k0 << shifts) | (k0 >> (28 - shifts));
+	t1 = (k1 << shifts) | (k1 >> (28 - shifts));
+		
+	de_keysl[15 - round] =
+	    en_keysl[round] = comp_maskl[0][(t0 >> 21) & 0x7f]
+	    | comp_maskl[1][(t0 >> 14) & 0x7f]
+	    | comp_maskl[2][(t0 >> 7) & 0x7f]
+	    | comp_maskl[3][t0 & 0x7f]
+	    | comp_maskl[4][(t1 >> 21) & 0x7f]
+	    | comp_maskl[5][(t1 >> 14) & 0x7f]
+	    | comp_maskl[6][(t1 >> 7) & 0x7f]
+	    | comp_maskl[7][t1 & 0x7f];
+		
+	de_keysr[15 - round] = en_keysr[round] =
+	    comp_maskr[0][(t0 >> 21) & 0x7f]
+	    | comp_maskr[1][(t0 >> 14) & 0x7f]
+	    | comp_maskr[2][(t0 >> 7) & 0x7f]
+	    | comp_maskr[3][t0 & 0x7f]
+	    | comp_maskr[4][(t1 >> 21) & 0x7f]
+	    | comp_maskr[5][(t1 >> 14) & 0x7f]
+	    | comp_maskr[6][(t1 >> 7) & 0x7f]
+	    | comp_maskr[7][t1 & 0x7f];
+    }
+    return 0;
+}
+
+static int do_des(unsigned long l_in, unsigned long r_in, unsigned long *l_out,
+		  unsigned long *r_out, int count) {
+    /*
+	 *	l_in, r_in, l_out, and r_out are in pseudo-"big-endian" format.
+	 */
+    unsigned long l, r, *kl, *kr, *kl1, *kr1;
+    unsigned long f, r48l, r48r;
+    int	round;
+
+    if(count == 0) {
+	return 1;
+    } else if(count > 0) {
+	/*
+		 * Encrypting
+		 */
+	kl1 = en_keysl;
+	kr1 = en_keysr;
+    } else {
+	/*
+		 * Decrypting
+		 */
+	count = -count;
+	kl1 = de_keysl;
+	kr1 = de_keysr;
+    }
+	
+    /*
+	 *	Do initial permutation (IP).
+	 */
+    l = ip_maskl[0][l_in >> 24]
+	| ip_maskl[1][(l_in >> 16) & 0xff]
+	| ip_maskl[2][(l_in >> 8) & 0xff]
+	| ip_maskl[3][l_in & 0xff]
+	| ip_maskl[4][r_in >> 24]
+	| ip_maskl[5][(r_in >> 16) & 0xff]
+	| ip_maskl[6][(r_in >> 8) & 0xff]
+	| ip_maskl[7][r_in & 0xff];
+    r = ip_maskr[0][l_in >> 24]
+	| ip_maskr[1][(l_in >> 16) & 0xff]
+	| ip_maskr[2][(l_in >> 8) & 0xff]
+	| ip_maskr[3][l_in & 0xff]
+	| ip_maskr[4][r_in >> 24]
+	| ip_maskr[5][(r_in >> 16) & 0xff]
+	| ip_maskr[6][(r_in >> 8) & 0xff]
+	| ip_maskr[7][r_in & 0xff];
+	
+    while(count--) {
+	/*
+	 * Do each round.
+	 */
+	kl = kl1;
+	kr = kr1;
+	round = 16;
+	while(round--) {
+	    /*
+	     * Expand R to 48 bits (simulate the E-box).
+	     */
+	    r48l = ((r & 0x00000001) << 23)
+		| ((r & 0xf8000000) >> 9)
+		| ((r & 0x1f800000) >> 11)
+		| ((r & 0x01f80000) >> 13)
+		| ((r & 0x001f8000) >> 15);
+
+	    r48r = ((r & 0x0001f800) << 7)
+		| ((r & 0x00001f80) << 5)
+		| ((r & 0x000001f8) << 3)
+		| ((r & 0x0000001f) << 1)
+		| ((r & 0x80000000) >> 31);
+	    /*
+	     * Do salting for crypt() and friends, and
+	     * XOR with the permuted key.
+	     */
+	    f = (r48l ^ r48r) & saltbits;
+	    r48l ^= f ^ *kl++;
+	    r48r ^= f ^ *kr++;
+	    /*
+	     * Do sbox lookups (which shrink it back to 32 bits)
+	     * and do the pbox permutation at the same time.
+	     */
+	    f = psbox[0][m_sbox[0][r48l >> 12]]
+		| psbox[1][m_sbox[1][r48l & 0xfff]]
+		| psbox[2][m_sbox[2][r48r >> 12]]
+		| psbox[3][m_sbox[3][r48r & 0xfff]];
+	    /*
+	     * Now that we've permuted things, complete f().
+	     */
+	    f ^= l;
+	    l = r;
+	    r = f;
+	}
+	r = l;
+	l = f;
+    }
+    /*
+	 * Do final permutation (inverse of IP).
+	 */
+    *l_out = fp_maskl[0][l >> 24]
+	| fp_maskl[1][(l >> 16) & 0xff]
+	| fp_maskl[2][(l >> 8) & 0xff]
+	| fp_maskl[3][l & 0xff]
+	| fp_maskl[4][r >> 24]
+	| fp_maskl[5][(r >> 16) & 0xff]
+	| fp_maskl[6][(r >> 8) & 0xff]
+	| fp_maskl[7][r & 0xff];
+    *r_out = fp_maskr[0][l >> 24]
+	| fp_maskr[1][(l >> 16) & 0xff]
+	| fp_maskr[2][(l >> 8) & 0xff]
+	| fp_maskr[3][l & 0xff]
+	| fp_maskr[4][r >> 24]
+	| fp_maskr[5][(r >> 16) & 0xff]
+	| fp_maskr[6][(r >> 8) & 0xff]
+	| fp_maskr[7][r & 0xff];
+    return 0;
+}
+
+char *crypt(char *key, char *setting) {
+    unsigned long count, salt, l, r0, r1, keybuf[2];
+    unsigned char *p, *q;
+    static unsigned char output[21];
+	
+    if(!des_initialised)
+	des_init();
+    /*
+     * Copy the key, shifting each character up by one bit
+     * and padding with zeros.
+     */
+    q = (unsigned char *)keybuf;
+    while(q - (unsigned char *)keybuf - 8) {
+	if((*q++ = *key << 1))
+	    key++;
+    }
+    if(des_setkey((unsigned char *)keybuf))
+	return NULL;
+	
+    /*
+     * "old"-style:
+     *	setting - 2 bytes of salt
+     *	key - up to 8 characters
+     */
+    count = 25;
+
+    salt = (ascii_to_bin(setting[1]) << 6)
+	|  ascii_to_bin(setting[0]);
+
+    output[0] = setting[0];
+    /*
+     * If the encrypted password that the salt was extracted from
+     * is only 1 character long, the salt will be corrupted.  We
+     * need to ensure that the output string doesn't have an extra
+     * NUL in it!
+     */
+    output[1] = setting[1] ? setting[1] : output[0];
+
+    p = output + 2;
+
+    setup_salt(salt);
+    /*
+     * Do it.
+     */
+    if(do_des(0L, 0L, &r0, &r1, count))
+	return NULL;
+    /*
+     * Now encode the result...
+     */
+    l = (r0 >> 8);
+    *p++ = ascii64[(l >> 18) & 0x3f];
+    *p++ = ascii64[(l >> 12) & 0x3f];
+    *p++ = ascii64[(l >> 6) & 0x3f];
+    *p++ = ascii64[l & 0x3f];
+
+    l = (r0 << 16) | ((r1 >> 16) & 0xffff);
+    *p++ = ascii64[(l >> 18) & 0x3f];
+    *p++ = ascii64[(l >> 12) & 0x3f];
+    *p++ = ascii64[(l >> 6) & 0x3f];
+    *p++ = ascii64[l & 0x3f];
+
+    l = r1 << 2;
+    *p++ = ascii64[(l >> 12) & 0x3f];
+    *p++ = ascii64[(l >> 6) & 0x3f];
+    *p++ = ascii64[l & 0x3f];
+    *p = 0;
+
+    return output;
+}
+#endif
diff --git a/pttbbs/util/diskstat.c b/pttbbs/util/diskstat.c
new file mode 100644
index 00000000..b1c7b100
--- /dev/null
+++ b/pttbbs/util/diskstat.c
@@ -0,0 +1,788 @@
+#ifndef FreeBSD
+    #include <stdio.h>
+    int main(int argc, char **argv)
+    {
+	puts("sorry, this program is designed for FreeBSD only");
+	return 0;
+    }
+#else
+/*
+ * Copyright (c) 1997, 1998  Kenneth D. Merry.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ * $FreeBSD: src/usr.sbin/iostat/iostat.c,v 1.17.2.2 2001/07/19 04:15:42 kris Exp $
+ */
+/*
+ * Parts of this program are derived from the original FreeBSD iostat
+ * program:
+ */
+/*-
+ * Copyright (c) 1986, 1991, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+/*
+ * Ideas for the new iostat statistics output modes taken from the NetBSD
+ * version of iostat:
+ */
+/*
+ * Copyright (c) 1996 John M. Vinopal
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *      This product includes software developed for the NetBSD Project
+ *      by John M. Vinopal.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+ * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+ * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
+ * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+
+#include <sys/param.h>
+#include <sys/errno.h>
+#include <sys/dkstat.h>
+
+#include <err.h>
+#include <ctype.h>
+#include <fcntl.h>
+#include <kvm.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <limits.h>
+#include <devstat.h>
+
+struct nlist namelist[] = {
+#define X_TK_NIN	0
+	{ "_tk_nin" },
+#define X_TK_NOUT	1
+	{ "_tk_nout" },
+#define X_CP_TIME	2
+	{ "_cp_time" },
+#define X_HZ		3
+	{ "_hz" },
+#define X_STATHZ	4
+	{ "_stathz" },
+#define X_END		4
+	{ NULL },
+};
+
+struct statinfo cur, last;
+int num_devices;
+struct device_selection *dev_select;
+int maxshowdevs;
+int dflag = 1, Iflag = 0, Cflag = 0, Tflag = 0, oflag = 0, Kflag = 0, Bflag = 1, qflag = 0, sflag = 0, aflag = 0, fflag = 1;
+
+#define nlread(x, v) \
+	kvm_read(kd, namelist[x].n_value, &(v), sizeof(v))
+
+/* local function declarations */
+static void usage(void);
+static void phdr(int signo);
+static void devstats(int perf_select);
+static void cpustats(void);
+static void printresult(int p);
+
+static void
+usage(void)
+{
+	/*
+	 * We also support the following 'traditional' syntax:
+	 * iostat [drives] [wait [count]]
+	 * This isn't mentioned in the man page, or the usage statement,
+	 * but it is supported.
+	 */
+	fprintf(stderr, "usage: iostat [-CdhIKoT?] [-c count] [-M core]"
+		" [-n devs] [-N system]\n"
+		"\t      [-t type,if,pass] [-w wait] [drives]\n");
+}
+
+char firsttime = 1;
+int
+main(int argc, char **argv)
+{
+	int c;
+	register int i;
+	int tflag = 0, hflag = 0, cflag = 0, wflag = 1, nflag = 0;
+	int count = 0, waittime = 2;
+	char *memf = NULL, *nlistf = NULL;
+	struct devstat_match *matches;
+	int num_matches = 0;
+        char errbuf[_POSIX2_LINE_MAX];
+	kvm_t	 *kd;
+	int hz, stathz;
+	int headercount;
+	long generation;
+	int num_devices_specified;
+	int num_selected, num_selections;
+	long select_generation;
+	char **specified_devices;
+	devstat_select_mode select_mode;
+
+	matches = NULL;
+	maxshowdevs = 10;
+
+	while ((c = getopt(argc, argv, "c:CdhIKM:n:N:ot:Tw:?qsaf:")) != -1) {
+		switch(c) {
+			case 'c':
+				cflag++;
+				count = atoi(optarg);
+				if (count < 1)
+					errx(1, "count %d is < 1", count);
+				break;
+			case 'C':
+				Cflag++;
+				break;
+			case 'd':
+				dflag++;
+				break;
+			case 'h':
+				hflag++;
+				break;
+			case 'I':
+				Iflag++;
+				break;
+			case 'K':
+				Kflag++;
+				break;
+			case 'M':
+				memf = optarg;
+				break;
+			case 'n':
+				nflag++;
+				maxshowdevs = atoi(optarg);
+				if (maxshowdevs < 0)
+					errx(1, "number of devices %d is < 0",
+					     maxshowdevs);
+				break;
+			case 'N':
+				nlistf = optarg;
+				break;
+			case 'o':
+				oflag++;
+				break;
+			case 't':
+				tflag++;
+				if (buildmatch(optarg, &matches, 
+					       &num_matches) != 0)
+					errx(1, "%s", devstat_errbuf);
+				break;
+			case 'T':
+				Tflag++;
+				break;
+			case 'w':
+				wflag++;
+				waittime = atoi(optarg);
+				if (waittime < 1)
+					errx(1, "wait time is < 1");
+				break;
+		        case 'q': /* statistics only */
+			        qflag++;
+				break;
+		        case 's': /* scsi only */
+			        sflag++;
+			        break;
+		        case 'a': /* average only */
+			        aflag++;
+			        break;
+		        case 'f': /* factor output */
+			        fflag = atoi(optarg);
+			        break;
+			default:
+				usage();
+				exit(1);
+				break;
+		}
+	}
+
+	argc -= optind;
+	argv += optind;
+
+	/*
+	 * Discard setgid privileges if not the running kernel so that bad
+	 * guys can't print interesting stuff from kernel memory.
+	 */
+	if (nlistf != NULL || memf != NULL)
+		setgid(getgid());
+
+	/*
+	 * Make sure that the userland devstat version matches the kernel
+	 * devstat version.  If not, exit and print a message informing 
+	 * the user of his mistake.
+	 */
+	if (checkversion() < 0)
+		errx(1, "%s", devstat_errbuf);
+
+#if 0
+	/*
+	 * Figure out how many devices we should display.
+	 */
+	if (nflag == 0) {
+		if (oflag > 0) {
+			if ((dflag > 0) && (Cflag == 0) && (Tflag == 0))
+				maxshowdevs = 5;
+			else if ((dflag > 0) && (Tflag > 0) && (Cflag == 0))
+				maxshowdevs = 5;
+			else
+				maxshowdevs = 4;
+		} else {
+			if ((dflag > 0) && (Cflag == 0))
+				maxshowdevs = 4;		
+			else
+				maxshowdevs = 3;
+		}
+	}
+#endif
+
+	signal(SIGINT, printresult);
+	/* find out how many devices we have */
+	if ((num_devices = getnumdevs()) < 0)
+		err(1, "can't get number of devices");
+
+	if ((cur.dinfo = (struct devinfo *)malloc(sizeof(struct devinfo))) ==
+	     NULL)
+		err(1, "devinfo malloc failed");
+	if ((last.dinfo = (struct devinfo *)malloc(sizeof(struct devinfo))) ==
+	     NULL)
+		err(1, "devinfo malloc failed");
+	bzero(cur.dinfo, sizeof(struct devinfo));
+	bzero(last.dinfo, sizeof(struct devinfo));
+
+	/*
+	 * Grab all the devices.  We don't look to see if the list has
+	 * changed here, since it almost certainly has.  We only look for
+	 * errors.
+	 */
+	if (getdevs(&cur) == -1)
+		errx(1, "%s", devstat_errbuf);
+
+	num_devices = cur.dinfo->numdevs;
+	generation = cur.dinfo->generation;
+
+	/*
+	 * If the user specified any devices on the command line, see if
+	 * they are in the list of devices we have now.
+	 */
+	if ((specified_devices = (char **)malloc(sizeof(char *))) == NULL)
+		err(1, "specified_devices malloc failed");
+	for (num_devices_specified = 0; *argv; ++argv) {
+		if (isdigit(**argv))
+			break;
+		num_devices_specified++;
+		specified_devices = (char **)realloc(specified_devices,
+						     sizeof(char *) *
+						     num_devices_specified);
+		specified_devices[num_devices_specified - 1] = *argv;
+
+	}
+	if (nflag == 0 && maxshowdevs < num_devices_specified)
+		maxshowdevs = num_devices_specified;
+
+	dev_select = NULL;
+
+	if ((num_devices_specified == 0) && (num_matches == 0))
+		select_mode = DS_SELECT_ADD;
+	else
+		select_mode = DS_SELECT_ONLY;
+
+	/*
+	 * At this point, selectdevs will almost surely indicate that the
+	 * device list has changed, so we don't look for return values of 0
+	 * or 1.  If we get back -1, though, there is an error.
+	 */
+	if (selectdevs(&dev_select, &num_selected,
+		       &num_selections, &select_generation,
+		       generation, cur.dinfo->devices, num_devices,
+		       matches, num_matches,
+		       specified_devices, num_devices_specified,
+		       select_mode, maxshowdevs, hflag) == -1)
+		errx(1, "%s", devstat_errbuf);
+
+	/*
+	 * Look for the traditional wait time and count arguments.
+	 */
+	if (*argv) {
+		waittime = atoi(*argv);
+
+		/* Let the user know he goofed, but keep going anyway */
+		if (wflag != 0) 
+			warnx("discarding previous wait interval, using"
+			      " %d instead", waittime);
+		wflag++;
+
+		if (*++argv) {
+			count = atoi(*argv);
+			if (cflag != 0)
+				warnx("discarding previous count, using %d"
+				      " instead", count);
+			cflag++;
+		} else
+			count = -1;
+	}
+
+	/*
+	 * If the user specified a count, but not an interval, we default
+	 * to an interval of 1 second.
+	 */
+	if ((wflag == 0) && (cflag > 0))
+		waittime = 1;
+
+	/*
+	 * If the user specified a wait time, but not a count, we want to
+	 * go on ad infinitum.  This can be redundant if the user uses the
+	 * traditional method of specifying the wait, since in that case we
+	 * already set count = -1 above.  Oh well.
+	 */
+	if ((wflag > 0) && (cflag == 0))
+		count = -1;
+
+	kd = kvm_openfiles(nlistf, memf, NULL, O_RDONLY, errbuf);
+
+	if (kd == 0)
+		errx(1, "kvm_openfiles: %s", errbuf);
+
+	if (kvm_nlist(kd, namelist) == -1)
+		errx(1, "kvm_nlist: %s", kvm_geterr(kd));
+
+	(void)nlread(X_HZ, hz);
+	(void)nlread(X_STATHZ, stathz);
+	if (stathz)
+		hz = stathz;
+
+	/*
+	 * If the user stops the program (control-Z) and then resumes it,
+	 * print out the header again.
+	 */
+	(void)signal(SIGCONT, phdr);
+
+	for (headercount = 1;;) {
+		struct devinfo *tmp_dinfo;
+		long tmp;
+		double etime;
+
+		if (!--headercount) {
+			phdr(0);
+			headercount = 20;
+		}
+		(void)kvm_read(kd, namelist[X_TK_NIN].n_value,
+		    &cur.tk_nin, sizeof(cur.tk_nin));
+		(void)kvm_read(kd, namelist[X_TK_NOUT].n_value,
+		    &cur.tk_nout, sizeof(cur.tk_nout));
+		(void)kvm_read(kd, namelist[X_CP_TIME].n_value,
+		    cur.cp_time, sizeof(cur.cp_time));
+
+		tmp_dinfo = last.dinfo;
+		last.dinfo = cur.dinfo;
+		cur.dinfo = tmp_dinfo;
+
+		last.busy_time = cur.busy_time;
+
+		/*
+		 * Here what we want to do is refresh our device stats.
+		 * getdevs() returns 1 when the device list has changed.
+		 * If the device list has changed, we want to go through
+		 * the selection process again, in case a device that we
+		 * were previously displaying has gone away.
+		 */
+		switch (getdevs(&cur)) {
+		case -1:
+			errx(1, "%s", devstat_errbuf);
+			break;
+		case 1: {
+			int retval;
+
+			num_devices = cur.dinfo->numdevs;
+			generation = cur.dinfo->generation;
+			retval = selectdevs(&dev_select, &num_selected,
+					    &num_selections, &select_generation,
+					    generation, cur.dinfo->devices,
+					    num_devices, matches, num_matches,
+					    specified_devices,
+					    num_devices_specified,
+					    select_mode, maxshowdevs, hflag);
+			switch(retval) {
+			case -1:
+				errx(1, "%s", devstat_errbuf);
+				break;
+			case 1:
+				phdr(0);
+				headercount = 20;
+				break;
+			default:
+				break;
+			}
+			break;
+		}
+		default:
+			break;
+		}
+
+		/*
+		 * We only want to re-select devices if we're in 'top'
+		 * mode.  This is the only mode where the devices selected
+		 * could actually change.
+		 */
+		if (hflag > 0) {
+			int retval;
+			retval = selectdevs(&dev_select, &num_selected,
+					    &num_selections, &select_generation,
+					    generation, cur.dinfo->devices,
+					    num_devices, matches, num_matches,
+					    specified_devices,
+					    num_devices_specified,
+					    select_mode, maxshowdevs, hflag);
+			switch(retval) {
+			case -1:
+				errx(1,"%s", devstat_errbuf);
+				break;
+			case 1:
+				phdr(0);
+				headercount = 20;
+				break;
+			default:
+				break;
+			}
+		}
+
+		tmp = cur.tk_nin;
+		cur.tk_nin -= last.tk_nin;
+		last.tk_nin = tmp;
+		tmp = cur.tk_nout;
+		cur.tk_nout -= last.tk_nout;
+		last.tk_nout = tmp;
+
+		etime = 0.0;
+
+#define X(fld)	tmp = cur.fld[i]; cur.fld[i] -= last.fld[i]; last.fld[i] = tmp
+
+		for (i = 0; i < CPUSTATES; i++) {
+			X(cp_time);
+			etime += cur.cp_time[i];
+		}
+		if (etime == 0.0)
+			etime = 1.0;
+		etime /= (float)hz;
+		if ((dflag == 0) || (Tflag > 0))
+			printf("%4.0f%5.0f", cur.tk_nin / etime, 
+				cur.tk_nout/etime);
+		devstats(hflag);
+		if ((dflag == 0) || (Cflag > 0))
+			cpustats();
+		if( !qflag ) printf("\n");
+		fflush(stdout);
+
+		if (count >= 0 && --count <= 0)
+			break;
+
+		sleep(waittime);
+		firsttime = 0;
+	}
+
+	printresult(0);
+	exit(0);
+}
+
+static void
+phdr(int signo)
+{
+	register int i;
+	int printed;
+	if( firsttime ){
+	    for( i = 0 ; i < num_devices ; ++i ){
+		int di = dev_select[i].position;
+		if( strcmp(cur.dinfo->devices[di].device_name, "ad") != 0 &&
+		    strcmp(cur.dinfo->devices[di].device_name, "da") != 0 ){
+		    maxshowdevs = i;
+		    break;
+		}
+	    }
+	}
+
+	if( qflag )
+	    return;
+	if ((dflag == 0) || (Tflag > 0))
+		(void)printf("      tty");
+	for (i = 0, printed=0;(i < num_devices) && (printed < maxshowdevs);i++){
+		int di;
+		if ((dev_select[i].selected != 0)
+		 && (dev_select[i].selected <= maxshowdevs)) {
+			di = dev_select[i].position;
+			if (oflag > 0)
+				(void)printf("%12.6s%d ", 
+					    cur.dinfo->devices[di].device_name,
+					    cur.dinfo->devices[di].unit_number);
+			else
+				printf("%6s%d",
+					    cur.dinfo->devices[di].device_name,
+					    cur.dinfo->devices[di].unit_number);
+			printed++;
+		}
+	}
+	if ((dflag == 0) || (Cflag > 0))
+		(void)printf("            cpu\n");
+	else
+		(void)printf("\n");
+
+	if ((dflag == 0) || (Tflag > 0))
+		(void)printf(" tin tout");
+
+	for (i=0, printed = 0;(i < num_devices) && (printed < maxshowdevs);i++){
+		if ((dev_select[i].selected != 0)
+		 && (dev_select[i].selected <= maxshowdevs)) {
+			if (oflag > 0) {
+				if (Iflag == 0)
+					(void)printf(" sps tps msps ");
+				else
+					(void)printf(" blk xfr msps ");
+			} else {
+			    if(Bflag)
+				printf("   busy");
+			    else if (Iflag == 0)
+				printf("  KB/t tps  MB/s ");
+			    else
+				printf("  KB/t xfrs   MB ");
+			}
+			printed++;
+		}
+	}
+	if ((dflag == 0) || (Cflag > 0))
+		(void)printf(" us ni sy in id\n");
+	else 
+		printf("\n");
+
+}
+
+int     counttimes = -1;
+float   busydata[1024];
+int sf(const void *a, const void *b)
+{
+    if( busydata[*(int *)b] > busydata[*(int *)a] )
+	return 1;
+    return -1;
+}
+
+static void printresult(int p)
+{
+    int     dn, id[1024], i;
+    if( counttimes > 0 ){
+	if( aflag ){
+	    float  dat = 0;
+	    int    nDrivers = 0;
+	    for( i = 0 ; i < maxshowdevs ; ++i )
+		if( !sflag ||
+		    strcmp(cur.dinfo->devices[i].device_name, "da") == 0 ){
+		    dat += busydata[i];
+		    ++nDrivers;
+		}
+	    printf("%f\n", dat * fflag / nDrivers / counttimes);
+	}
+	else{
+	    printf("\n");
+	    for( i = 0 ; i < maxshowdevs ; ++i )
+		id[i] = i;
+	    qsort(id, maxshowdevs, sizeof(int), sf);
+	    
+	    printf("--- diskstat statistics (%d samples)---\n", counttimes);
+	    for (dn = 0; dn < maxshowdevs; dn++)
+		printf(" %s%d: %10f%%\n", 
+		       cur.dinfo->devices[ id[dn] ].device_name,
+		       cur.dinfo->devices[ id[dn] ].unit_number,
+		       (float)busydata[ id[dn] ] / counttimes);
+	    printf("\n");
+	}
+    }
+    exit(0);
+}
+
+static void
+devstats(int perf_select)
+{
+	register int dn;
+	long double transfers_per_second;
+	long double kb_per_transfer, mb_per_second;
+	u_int64_t total_bytes, total_transfers, total_blocks;
+	long double busy_seconds;
+	long double total_mb;
+	long double blocks_per_second, ms_per_transaction;
+	long double device_busy;
+
+	/*
+	 * Calculate elapsed time up front, since it's the same for all
+	 * devices.
+	 */
+	busy_seconds = compute_etime(cur.busy_time, last.busy_time);
+
+	for (dn = 0; dn < num_devices; dn++) {
+		int     di;
+		float   thisbusy;
+
+		if (((perf_select == 0) && (dev_select[dn].selected == 0))
+		 || (dev_select[dn].selected > maxshowdevs))
+			continue;
+
+		di = dev_select[dn].position;
+
+		device_busy = compute_etime(cur.dinfo->devices[di].busy_time,
+					    last.dinfo->devices[di].busy_time);
+
+		if (compute_stats(&cur.dinfo->devices[di],
+				  &last.dinfo->devices[di], busy_seconds,
+				  &total_bytes, &total_transfers,
+				  &total_blocks, &kb_per_transfer,
+				  &transfers_per_second, &mb_per_second, 
+				  &blocks_per_second, &ms_per_transaction)!= 0)
+		    errx(1, "%s", devstat_errbuf);
+
+		if( (device_busy == 0) && (transfers_per_second > 5) )
+		    /* the device has been 100% busy, fake it because
+		     * as long as the device is 100% busy the busy_time
+		     * field in the devstat struct is not updated */
+		    device_busy = busy_seconds;
+		if (device_busy > busy_seconds)
+		    /* this normally happens after one or more periods
+		     * where the device has been 100% busy, correct it */
+		    device_busy = busy_seconds;
+
+		thisbusy = (firsttime) ? 0 : device_busy * 100 / busy_seconds;
+		busydata[dn] += thisbusy;
+
+
+		if (perf_select != 0) {
+			dev_select[dn].bytes = total_bytes;
+			if ((dev_select[dn].selected == 0)
+			 || (dev_select[dn].selected > maxshowdevs))
+				continue;
+		}
+
+		if (Kflag) {
+			int block_size = cur.dinfo->devices[di].block_size;
+			total_blocks = total_blocks * (block_size ?
+						       block_size : 512) / 1024;
+		}
+
+		if (oflag > 0) {
+			int msdig = (ms_per_transaction < 100.0) ? 1 : 0;
+
+			if (Iflag == 0)
+				printf("%4.0Lf%4.0Lf%5.*Lf ",
+				       blocks_per_second,
+				       transfers_per_second,
+				       msdig,
+				       ms_per_transaction);
+			else 
+				printf("%4.1qu%4.1qu%5.*Lf ",
+				       total_blocks,
+				       total_transfers,
+				       msdig,
+				       ms_per_transaction);
+		} else if( !qflag ) {
+		    
+		    if (Bflag)
+			printf(" %5.1f%%", thisbusy);
+		    else if (Iflag == 0){
+				printf(" %5.2Lf %3.0Lf %5.2Lf ", 
+				       kb_per_transfer,
+				       transfers_per_second,
+				       mb_per_second);
+
+		    }
+			else {
+				total_mb = total_bytes;
+				total_mb /= 1024 * 1024;
+
+				printf(" %5.2Lf %3.1qu %5.2Lf ", 
+				       kb_per_transfer,
+				       total_transfers,
+				       total_mb);
+			}
+		}
+	}
+	++counttimes;
+}
+
+static void
+cpustats(void)
+{
+	register int state;
+	double time;
+
+	time = 0.0;
+
+	for (state = 0; state < CPUSTATES; ++state)
+		time += cur.cp_time[state];
+	for (state = 0; state < CPUSTATES; ++state)
+		printf("%3.0f",
+		       100. * cur.cp_time[state] / (time ? time : 1));
+}
+#endif // FreeBSD
diff --git a/pttbbs/util/expire.c b/pttbbs/util/expire.c
new file mode 100644
index 00000000..4335ca16
--- /dev/null
+++ b/pttbbs/util/expire.c
@@ -0,0 +1,226 @@
+/* $Id$ */
+/* 自動砍信工具程式 */
+
+#include "bbs.h"
+
+#define QCAST int (*)(const void *, const void *)
+
+#define	DEF_DAYS	50
+#define	DEF_MAXP	2000
+#define	DEF_MINP	300
+
+#define	EXPIRE_CONF	BBSHOME "/etc/expire.conf"
+extern boardheader_t *bcache;
+char bpath[256];
+
+struct life
+{
+    char bname[16];		/* board ID */
+    int days;			/* expired days */
+    int maxp;			/* max post */
+    int minp;			/* min post */
+};
+typedef struct life life;
+
+
+void
+ expire(brd)
+life *brd;
+{
+    fileheader_t head;
+    struct stat state;
+    char lockfile[128], tmpfile[128], bakfile[128];
+    char fpath[128], index[128], *fname;
+    int total, bid;
+    int fd, fdr, fdw, done, keep;
+    int duetime, ftime;
+
+    printf("%s\n", brd->bname);
+    /* XXX: bid of cache.c's getbnum starts from 1 */
+    if((bid = getbnum(brd->bname)) == 0 || 
+	strcmp(brd->bname, bcache[bid-1].brdname))
+     {
+	 char    cmd[1024];
+	 printf("no such board?: %s\n", brd->bname);
+	 sprintf(cmd, "mv %s/boards/%c/%s %s/boards.error/%s",
+		 BBSHOME, brd->bname[0], brd->bname, BBSHOME, brd->bname);
+	 system(cmd);
+        return;
+     }
+#ifdef	VERBOSE
+    if (brd->days < 1)
+    {
+	printf(":Err: expire time must more than 1 day.\n");
+	return;
+    }
+    else if (brd->maxp < 100)
+    {
+	printf(":Err: maxmum posts number must more than 100.\n");
+	return;
+    }
+#endif
+
+    sprintf(index, "%s/%s/.DIR", bpath, brd->bname);
+    sprintf(lockfile, "%s.lock", index);
+    if ((fd = open(lockfile, O_RDWR | O_CREAT | O_APPEND, 0644)) == -1)
+	return;
+    flock(fd, LOCK_EX);
+
+    strcpy(fpath, index);
+    fname = (char *) strrchr(fpath, '.');
+
+    duetime = time(NULL) - brd->days * 24 * 60 * 60;
+    done = 0;
+    if ((fdr = open(index, O_RDONLY, 0)) > 0)
+    {
+	fstat(fdr, &state);
+	total = state.st_size / sizeof(head);
+	sprintf(tmpfile, "%s.new", index);
+	unlink(tmpfile);
+	if ((fdw = open(tmpfile, O_WRONLY | O_CREAT | O_EXCL, 0644)) > 0)
+	{
+	    while (read(fdr, &head, sizeof head) == sizeof head)
+	    {
+		done = 1;
+		ftime = atoi(head.filename + 2);
+		if (head.owner[0] == '-')
+		    keep = 0;
+		else if (head.filemode & FILE_MARKED || total <= brd->minp)
+		    keep = 1;
+		else if (ftime < duetime || total > brd->maxp)
+		    keep = 0;
+		else
+		    keep = 1;
+
+		if (keep)
+		{
+		    if (write(fdw, (char *)&head, sizeof head) == -1)
+		    {
+			done = 0;
+			break;
+		    }
+		}
+		else
+		{
+		    strcpy(fname, head.filename);
+		    unlink(fpath);
+		    printf("\t%s\n", fname);
+		    total--;
+		}
+	    }
+	    close(fdw);
+	}
+	close(fdr);
+    }
+
+    if (done)
+    {
+	sprintf(bakfile, "%s.old", index);
+	if (rename(index, bakfile) != -1)
+         {
+	    rename(tmpfile, index);
+	    touchbtotal(bid);
+         }
+    }
+    flock(fd, LOCK_UN);
+    close(fd);
+}
+
+
+int main(argc, argv)
+char *argv[];
+{
+    FILE *fin;
+    int number, count;
+    life db, table[MAX_BOARD], *key;
+    struct dirent *de;
+    DIR *dirp;
+    int     i;
+    char    *ptr, *bname, buf[256];
+    char    dirs[] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
+		      'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p',
+		      'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l',
+		      'z', 'x', 'c', 'v', 'b', 'n', 'm',
+		      'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P',
+		      'A', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L',
+		      'Z', 'X', 'C', 'V', 'B', 'N', 'M', NULL};
+
+    attach_SHM();
+    resolve_boards();
+    db.days = ((argc > 1) && (number = atoi(argv[1])) > 0) ? number : DEF_DAYS;
+    db.maxp = ((argc > 2) && (number = atoi(argv[2])) > 0) ? number : DEF_MAXP;
+    db.minp = ((argc > 3) && (number = atoi(argv[3])) > 0) ? number : DEF_MINP;
+
+/* --------------- */
+/* load expire.ctl */
+/* --------------- */
+
+    count = 0;
+    if((fin = fopen(EXPIRE_CONF, "r")))
+    {
+	while (fgets(buf, 256, fin))
+	{
+	    if (buf[0] == '#')
+		continue;
+
+	    bname = (char *) strtok(buf, " \t\r\n");
+	    if (bname && *bname)
+	    {
+		ptr = (char *) strtok(NULL, " \t\r\n");
+		if (ptr && (number = atoi(ptr)) > 0)
+		{
+		    key = &(table[count++]);
+		    strcpy(key->bname, bname);
+		    key->days = number;
+		    key->maxp = db.maxp;
+		    key->minp = db.minp;
+
+		    ptr = (char *) strtok(NULL, " \t\r\n");
+		    if (ptr && (number = atoi(ptr)) > 0)
+		    {
+			key->maxp = number;
+
+			ptr = (char *) strtok(NULL, " \t\r\n");
+			if (ptr && (number = atoi(ptr)) > 0)
+			{
+			    key->minp = number;
+			}
+		    }
+		}
+	    }
+	}
+	fclose(fin);
+    }
+
+    if (count > 1)
+    {
+	qsort(table, count, sizeof(life), (QCAST)strcasecmp);
+    }
+
+/* ---------------- */
+/* visit all boards */
+/* ---------------- */
+
+    for( i = 0 ; dirs[i] != NULL ; ++i ){
+	sprintf(bpath, BBSHOME "/boards/%c", dirs[i]);
+	if (!(dirp = opendir(bpath))){
+	    printf(":Err: unable to open %s\n", bpath);
+	    continue;
+	}
+	while((de = readdir(dirp))){
+	    ptr = de->d_name;
+	    if (ptr[0] > ' ' && ptr[0] != '.'){
+		if (count)
+		    key = (life *) bsearch(ptr, table, count, sizeof(life), (QCAST)strcasecmp);
+		else
+		    key = NULL;
+		if (!key)
+		    key = &db;
+		strcpy(key->bname, ptr);
+		expire(key);
+	    }
+	}
+	closedir(dirp);
+    }
+    return 0;
+}
diff --git a/pttbbs/util/filtermail.pl b/pttbbs/util/filtermail.pl
new file mode 100644
index 00000000..c7a728f7
--- /dev/null
+++ b/pttbbs/util/filtermail.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+if( -e '/usr/bin/mktemp' ){
+    $fn = `/usr/bin/mktemp -q /tmp/filtermail.XXXXXXXX`;
+}
+else{
+    $fn = `/bin/mktemp -q /tmp/filtermail.XXXXXXXX`;
+}
+chomp $fn;
+
+$bbsuid = $ARGV[0];
+undef @ARGV;
+
+open FH, ">$fn";
+$norelay = 0;
+while( <> ){
+    print FH $_;
+#    if( ($bbsuid) = $_ =~ /for \<(\w+)\.bbs\@ptt/ ){
+#    }
+    if( /^Content-Type:/i ){
+	$norelay = 1 if( (/multipart/i && !/report/i) || /html/ );
+	last;
+    }
+}
+while( <> ){
+    print FH $_;
+}
+close FH;
+
+if( !$norelay ){
+    open FH, "<$fn";
+    open OUT, "|/home/bbs/bin/realbbsmail $bbsuid";
+    while( <FH> ){
+	print OUT $_;
+    }
+    close FH;
+    close OUT;
+    unlink $fn;
+}
+else{
+    $to = substr($fn, rindex($fn, '/') + 1);
+    #`/bin/mv $fn /tmp/norelay/$to`;
+    unlink $fn;
+}
+
diff --git a/pttbbs/util/get.cs.flt.pl b/pttbbs/util/get.cs.flt.pl
new file mode 100644
index 00000000..9421abc4
--- /dev/null
+++ b/pttbbs/util/get.cs.flt.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+@r = split(' ', $t = `/usr/bin/vmstat -n 0 -c 5 1`);
+open FH, '>/tmp/mrtg.cs';
+print FH (($r[52]+$r[69]+$r[86]+$r[103])/4);
+close FH;
+open FH, '>/tmp/mrtg.flt';
+print FH (($r[44]+$r[61]+$r[78]+$r[95])/4);
+close FH;
diff --git a/pttbbs/util/getbackup.pl b/pttbbs/util/getbackup.pl
new file mode 100644
index 00000000..5714c87f
--- /dev/null
+++ b/pttbbs/util/getbackup.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+if( !@ARGV ){
+    print "usage:\tgetbackup.pl\tbrd BRDNAME\n";
+    print "\t\t\tman BRDNAME\n";
+    print "\t\t\tusr USERID [all|fav|frlist|bbsrc]\n";
+}
+
+if( !-e '/home/bbs/backup/home.a.tgz' ){
+    print "there's no /home/bbs/backup/home.a.tgz?\n";
+    print "or no mount on /home/bbs/backup?\n";
+    exit;
+}
+
+chdir "/home/bbs/backup/";
+
+$prefix = substr($ARGV[1], 0, 1);
+if( $ARGV[0] eq 'usr' ){
+    $userid = $ARGV[1];
+    `rm -Rf home`;
+    `tar zxvf home.$prefix.tgz home/$prefix/$userid`;
+    shift @ARGV; shift @ARGV;
+    foreach( @ARGV ){
+	if( $_ ne 'all' && $_ ne 'fav' && $_ ne 'frlist' &&
+	    $_ ne 'bbsrc' && $_ ){
+	    print "usr command '$_' unknown\n";
+	    exit;
+	}
+	if( $_ eq 'all' ){
+	    `rm -Rf /home/bbs/home/$prefix/$userid`;
+	    `mv home/$prefix/$userid /home/bbs/home/$prefix/$userid`;
+	}
+	elsif( $_ eq 'fav' ){
+	    `mv home/$prefix/$userid/.fav /home/bbs/home/$prefix/$userid/.fav`;
+	}
+	elsif( $_ eq 'frlist' ){
+	    `mv home/$prefix/$userid/overrides /home/bbs/home/$prefix/$userid/overrides`;
+	}
+	elsif( $_ eq 'bbsrc' ){
+	    `mv home/$prefix/$userid/.bbsrc /home/bbs/home/$prefix/$userid/.bbsrc`;
+	}
+    }
+}
+elsif( $ARGV[0] eq 'brd' ){
+    chdir '/home/bbs';
+    `mv boards/$prefix/$ARGV[1] boards.error/$ARGV[1]`;
+    `tar zxvf backup/board.$prefix.tgz boards/$prefix/$ARGV[1]`;
+}
+elsif( $ARGV[0] eq 'man' ){
+    chdir '/home/bbs';
+    `mv man/boards/$prefix/$ARGV[1] boards.error/man.$ARGV[1]`;
+    `tar zxvf backup/man.$prefix.tgz man/boards/$prefix/$ARGV[1]`;
+}
diff --git a/pttbbs/util/horoscope.c b/pttbbs/util/horoscope.c
new file mode 100644
index 00000000..04479108
--- /dev/null
+++ b/pttbbs/util/horoscope.c
@@ -0,0 +1,154 @@
+/* $Id$ */
+#define _UTIL_C_
+#include "bbs.h"
+
+struct userec_t cuser;
+
+int main() {
+    int i, j, k;
+    FILE *fp;
+    int max, item, maxhoroscope;
+
+    int act[12];
+
+    char *name[13] =
+    {"牡羊",
+     "金牛",
+     "雙子",
+     "巨蟹",
+     "獅子",
+     "處女",
+     "天秤",
+     "天蠍",
+     "射手",
+     "摩羯",
+     "水瓶",
+     "雙魚",
+     ""
+    };
+    char *blk[10] =
+    {
+	"  ", "▏", "▎", "▍", "▌",
+	"▋", "▊", "▉", "█", "█",
+    };
+
+    attach_SHM();
+    memset(act, 0, sizeof(act));
+    if(passwd_init())
+	exit(1);
+    for(k = 1; k <= MAX_USERS; k++) {
+	passwd_query(k, &cuser);
+	if(!cuser.userid[0])
+	    continue;
+	switch (cuser.month)
+	{
+	case 1:
+	    if (cuser.day <= 19)
+		act[9]++;
+	    else
+		act[10]++;
+	    break;
+	case 2:
+	    if (cuser.day <= 18)
+		act[10]++;
+	    else
+		act[11]++;
+	    break;
+	case 3:
+	    if (cuser.day <= 20)
+		act[11]++;
+	    else
+		act[0]++;
+	    break;
+	case 4:
+	    if (cuser.day <= 19)
+		act[0]++;
+	    else
+		act[1]++;
+	    break;
+	case 5:
+	    if (cuser.day <= 20)
+		act[1]++;
+	    else
+		act[2]++;
+	    break;
+	case 6:
+	    if (cuser.day <= 21)
+		act[2]++;
+	    else
+		act[3]++;
+	    break;
+	case 7:
+	    if (cuser.day <= 22)
+		act[3]++;
+	    else
+		act[4]++;
+	    break;
+	case 8:
+	    if (cuser.day <= 22)
+		act[4]++;
+	    else
+		act[5]++;
+	    break;
+	case 9:
+	    if (cuser.day <= 22)
+		act[5]++;
+	    else
+		act[6]++;
+	    break;
+	case 10:
+	    if (cuser.day <= 23)
+		act[6]++;
+	    else
+		act[7]++;
+	    break;
+	case 11:
+	    if (cuser.day <= 22)
+		act[7]++;
+	    else
+		act[8]++;
+	    break;
+	case 12:
+	    if (cuser.day <= 21)
+		act[8]++;
+	    else
+		act[9]++;
+	    break;
+	}
+    }
+
+    for (i = max = maxhoroscope = 0; i < 12; i++)
+    {
+	if (act[i] > max)
+	{
+	    max = act[i];
+	    maxhoroscope = i;
+	}
+    }
+
+    item = max / 30 + 1;
+
+    if ((fp = fopen(BBSHOME"/etc/horoscope", "w")) == NULL)
+    {
+	printf("cann't open etc/horoscope\n");
+	return 1;
+    }
+
+    for (i = 0; i < 12; i++)
+    {
+	fprintf(fp, " %s座 ", name[i]);
+	for (j = 0; j < act[i] / item; j++)
+	{
+	    fprintf(fp, "%2s", blk[9]);
+	}
+    /* 為了剛好一頁 */
+	if (i != 11)
+	    fprintf(fp, "%2s %d\n\n", blk[(act[i] % item) * 10 / item],
+		    act[i]);
+	else
+	    fprintf(fp, "%2s %d\n", blk[(act[i] % item) * 10 / item],
+		    act[i]);
+    }
+    fclose(fp);
+    return 0;
+}
diff --git a/pttbbs/util/indexuser.c b/pttbbs/util/indexuser.c
new file mode 100644
index 00000000..8dde8f06
--- /dev/null
+++ b/pttbbs/util/indexuser.c
@@ -0,0 +1,56 @@
+/* $Id$ */
+#define _UTIL_C_
+#include "bbs.h"
+#define INDEXPATH BBSHOME"/index"
+
+unsigned string_hash(unsigned char *s)
+{
+    unsigned int v = 0;
+    while (*s)
+    {
+        v = (v << 8) | (v >> 24);
+        v ^= toupper(*s++);     /* note this is case insensitive */
+    }
+    return (v * 2654435769UL) >> (32 - HASH_BITS);
+}
+                                        
+
+int main(int argc, char **argv)
+{
+    int j;
+    userec_t u;
+    char buf[256];
+
+    attach_SHM();
+    if(passwd_init())
+    {
+	printf("Sorry, the data is not ready.\n");
+	exit(0);
+    }
+    system("rm -rf "INDEXPATH"/realname");
+    system("rm -rf "INDEXPATH"/email");
+    system("rm -rf "INDEXPATH"/ident");
+    mkdir(INDEXPATH"/realname",0700);
+    mkdir(INDEXPATH"/email",0700);
+    mkdir(INDEXPATH"/ident",0700);
+    for(j = 1; j <= MAX_USERS; j++) {
+	passwd_query(j, &u);
+        if(!u.userid[0]) continue;
+        if(u.realname[0])
+         {
+          sprintf(buf,INDEXPATH"/realname/%X",string_hash(u.realname));
+          append_record(buf, (fileheader_t*)&j, sizeof(j));
+         }
+        if(u.email[0])
+         {
+          sprintf(buf,INDEXPATH"/email/%X",string_hash(u.email));
+          append_record(buf, (fileheader_t*)&j, sizeof(j));
+         }
+        if(u.ident[0])
+         {
+          sprintf(buf,INDEXPATH"/ident/%X",string_hash(u.ident));
+          append_record(buf, (fileheader_t*)&j, sizeof(j));
+         }
+    }
+    return 0;
+}
diff --git a/pttbbs/util/initbbs.c b/pttbbs/util/initbbs.c
new file mode 100644
index 00000000..e093fe02
--- /dev/null
+++ b/pttbbs/util/initbbs.c
@@ -0,0 +1,263 @@
+/* $Id$ */
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <time.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "perm.h"
+
+static void initDir() {
+    mkdir("adm", 0755);
+    mkdir("boards", 0755);
+    mkdir("etc", 0755);
+    mkdir("man", 0755);
+    mkdir("man/boards", 0755);
+    mkdir("out", 0755);
+    mkdir("tmp", 0755);
+    mkdir("run", 0755);
+}
+
+static void initHome() {
+    int i;
+    char buf[256];
+    
+    mkdir("home", 0755);
+    strcpy(buf, "home/?");
+    for(i = 0; i < 26; i++) {
+	buf[5] = 'A' + i;
+	mkdir(buf, 0755);
+	buf[5] = 'a' + i;
+	mkdir(buf, 0755);
+    }
+}
+
+static void initBoardsDIR() {
+    int i;
+    char buf[256];
+    
+    mkdir("boards", 0755);
+    strcpy(buf, "boards/?");
+    for(i = 0; i < 26; i++) {
+	buf[7] = 'A' + i;
+	mkdir(buf, 0755);
+	buf[7] = 'a' + i;
+	mkdir(buf, 0755);
+    }
+}
+
+static void initManDIR() {
+    int i;
+    char buf[256];
+    
+    mkdir("man", 0755);
+    mkdir("man/boards", 0755);
+    strcpy(buf, "man/boards/?");
+    for(i = 0; i < 26; i++) {
+	buf[11] = 'A' + i;
+	mkdir(buf, 0755);
+	buf[11] = 'a' + i;
+	mkdir(buf, 0755);
+    }
+}
+
+static void initPasswds() {
+    int i;
+    userec_t u;
+    FILE *fp = fopen(".PASSWDS", "w");
+    
+    memset(&u, 0, sizeof(u));
+    if(fp) {
+	for(i = 0; i < MAX_USERS; i++)
+	    fwrite(&u, sizeof(u), 1, fp);
+	fclose(fp);
+    }
+}
+
+static void newboard(FILE *fp, boardheader_t *b) {
+    char buf[256];
+    
+    fwrite(b, sizeof(boardheader_t), 1, fp);
+    sprintf(buf, "boards/%c/%s", b->brdname[0], b->brdname);
+    mkdir(buf, 0755);
+    sprintf(buf, "man/boards/%c/%s", b->brdname[0], b->brdname);
+    mkdir(buf, 0755);
+}
+
+static void initBoards() {
+    FILE *fp = fopen(".BRD", "w");
+    boardheader_t b;
+    
+    if(fp) {
+	memset(&b, 0, sizeof(b));
+	
+	strcpy(b.brdname, "SYSOP");
+	strcpy(b.title, "嘰哩 ◎站長好!");
+	b.brdattr = BRD_POSTMASK | BRD_NOTRAN | BRD_NOZAP;
+	b.level = 0;
+	b.gid = 2;
+
+	newboard(fp, &b);
+	strcpy(b.brdname, "1...........");
+	strcpy(b.title, ".... Σ中央政府  《高壓危險,非人可敵》");
+	b.brdattr = BRD_GROUPBOARD;
+	b.level = PERM_SYSOP;
+	b.gid = 1;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "junk");
+	strcpy(b.title, "發電 ◎雜七雜八的垃圾");
+	b.brdattr = BRD_NOTRAN;
+	b.level = PERM_SYSOP;
+	b.gid = 2;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "Security");
+	strcpy(b.title, "發電 ◎站內系統安全");
+	b.brdattr = BRD_NOTRAN;
+	b.level = PERM_SYSOP;
+	b.gid = 2;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "2...........");
+	strcpy(b.title, ".... Σ市民廣場     報告  站長  ㄜ！");
+	b.brdattr = BRD_GROUPBOARD;
+	b.level = 0;
+	b.gid = 1;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "ALLPOST");
+	strcpy(b.title, "嘰哩 ◎跨板式LOCAL新文章");
+	b.brdattr = BRD_POSTMASK | BRD_NOTRAN;
+	b.level = PERM_SYSOP;
+	b.gid = 5;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "deleted");
+	strcpy(b.title, "嘰哩 ◎資源回收筒");
+	b.brdattr = BRD_NOTRAN;
+	b.level = PERM_BM;
+	b.gid = 5;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "Note");
+	strcpy(b.title, "嘰哩 ◎動態看板及歌曲投稿");
+	b.brdattr = BRD_NOTRAN;
+	b.level = 0;
+	b.gid = 5;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "Record");
+	strcpy(b.title, "嘰哩 ◎我們的成果");
+	b.brdattr = BRD_NOTRAN | BRD_POSTMASK;
+	b.level = 0;
+	b.gid = 5;
+	newboard(fp, &b);
+	
+	
+	strcpy(b.brdname, "WhoAmI");
+	strcpy(b.title, "嘰哩 ◎呵呵，猜猜我是誰！");
+	b.brdattr = BRD_NOTRAN;
+	b.level = 0;
+	b.gid = 5;
+	newboard(fp, &b);
+	
+	strcpy(b.brdname, "EditExp");
+	strcpy(b.title, "嘰哩 ◎範本精靈投稿區");
+	b.brdattr = BRD_NOTRAN;
+	b.level = 0;
+	b.gid = 5;
+	newboard(fp, &b);
+	
+	fclose(fp);
+    }
+}
+
+static void initMan() {
+    FILE *fp;
+    fileheader_t f;
+    time_t t = time(NULL);
+    struct tm *tm = localtime(&t);
+    
+    memset(&f, 0, sizeof(f));
+    strcpy(f.owner, "SYSOP");
+    sprintf(f.date, "%2d/%02d", tm->tm_mon + 1, tm->tm_mday);
+    f.money = 0;
+    f.filemode = 0;
+    
+    if((fp = fopen("man/boards/N/Note/.DIR", "w"))) {
+	strcpy(f.filename, "SONGBOOK");
+	strcpy(f.title, "◆ 【點 歌 歌 本】");
+	fwrite(&f, sizeof(f), 1, fp);
+	mkdir("man/boards/N/Note/SONGBOOK", 0755);
+	
+	strcpy(f.filename, "SONGO");
+	strcpy(f.title, "◆ <點歌> 動態看板");
+	fwrite(&f, sizeof(f), 1, fp);
+	mkdir("man/boards/N/Note/SONGO", 0755);
+	
+	strcpy(f.filename, "SYS");
+	strcpy(f.title, "◆ <系統> 動態看板");
+	fwrite(&f, sizeof(f), 1, fp);
+	mkdir("man/boards/N/Note/SYS", 0755);
+	
+	strcpy(f.filename, "AD");
+	strcpy(f.title, "◆ <廣告> 動態看板");
+	fwrite(&f, sizeof(f), 1, fp);
+	mkdir("man/boards/N/Note/AD", 0755);
+	
+	strcpy(f.filename, "NEWS");
+	strcpy(f.title, "◆ <新聞> 動態看板");
+	fwrite(&f, sizeof(f), 1, fp);
+	mkdir("man/boards/N/Note/NEWS", 0755);
+	
+	fclose(fp);
+    }
+    
+}
+
+static void initSymLink() {
+    symlink(BBSHOME "/man/boards/N/Note/SONGBOOK", BBSHOME "/etc/SONGBOOK");
+    symlink(BBSHOME "/man/boards/N/Note/SONGO", BBSHOME "/etc/SONGO");
+    symlink(BBSHOME "/man/boards/E/EditExp", BBSHOME "/etc/editexp");
+}
+
+static void initHistory() {
+    FILE *fp = fopen("etc/history.data", "w");
+    
+    if(fp) {
+	fprintf(fp, "0 0 0 0");
+	fclose(fp);
+    }
+}
+
+int main(int argc, char **argv)
+{
+    if( argc != 2 || strcmp(argv[1], "-DoIt") != 0 ){
+	fprintf(stderr,
+		"警告!  initbbs只用在「第一次安裝」的時候.\n"
+		"若您的站台已經上線,  initbbs將會破壞掉原有資料!\n\n"
+		"確定要執行, 請使用 initbbs -DoIt\n");
+	return 1;
+    }
+
+    if(chdir(BBSHOME)) {
+	perror(BBSHOME);
+	exit(1);
+    }
+    
+    initDir();
+    initHome();
+    initBoardsDIR();
+    initManDIR();
+    initPasswds();
+    initBoards();
+    initMan();
+    initSymLink();
+    initHistory();
+    
+    return 0;
+}
diff --git a/pttbbs/util/inndBM.c b/pttbbs/util/inndBM.c
new file mode 100644
index 00000000..363220f5
--- /dev/null
+++ b/pttbbs/util/inndBM.c
@@ -0,0 +1,200 @@
+/* 依據 .BOARD檔 & newsfeeds.bbs 列出參與轉信的所有板資料 */
+
+#include "bbs.h"
+
+#define INNDHOME  BBSHOME"/innd"
+
+#define INND_NEWSFEED  INNDHOME "/newsfeeds.bbs"
+#define INND_NODELIST  INNDHOME "/nodelist.bbs"
+#define INND_BADFEED   INNDHOME "/badfeeds.bbs"	
+#define INND_SCRIPT    INNDHOME "/bbsnnrpall.auto.sh"
+
+int istran[MAX_BOARD];
+
+typedef 
+struct newssvr_t
+{
+  char name[30];
+  char address[256];
+  char type[10];
+}newssvr_t; 
+
+typedef
+struct newsfeed_t
+{
+  char group[128];
+  char board[15];
+  char server[30];
+}newsfeed_t;   
+
+newssvr_t server[128];
+newsfeed_t feedline[MAX_BOARD];
+int servercount;
+int feedcount;
+
+int newsfeed_cmp(const void *a, const void *b)
+{
+   int i;
+   i=strcasecmp(((newsfeed_t*)a)->server,((newsfeed_t*)b)->server);
+   if(i) return i;
+   return strcasecmp(((newsfeed_t*)a)->board,((newsfeed_t*)b)->board);
+}
+
+int get_server(char *name)
+{
+  int i;
+  for(i=0;i<servercount;i++)
+     if(!strcasecmp(server[i].name,name)) 
+	{return i;}
+  return -1;
+}
+
+int load_server()
+{
+    FILE *fp;
+    char str[128];
+
+    if (!(fp = fopen(INND_NODELIST, "r")))
+    {
+	return 0;
+    }
+
+    for(servercount=0; fgets(str, 128, fp); servercount++)
+    {
+        if(str[0]=='#') continue;
+        sscanf(str,"%s %s %s",server[servercount].name,
+		server[servercount].address,
+		server[servercount].type);
+    }
+    fclose(fp);
+   return servercount;
+}
+
+int load_newsfeeds()
+{
+    int bid;
+    FILE *fp, *fo;
+    char str[128];
+    if (!(fp = fopen(INND_NEWSFEED, "r")))
+    {
+	return 0;
+    }
+    if (!(fo = fopen(INND_BADFEED, "w")))
+    {
+	return 0;
+    }
+
+    for(feedcount=0; fgets(str, 128, fp); feedcount++)
+    {
+        if(str[0]=='#') continue;
+        sscanf(str,"%s %s %s",
+		feedline[feedcount].group,feedline[feedcount].board,
+		feedline[feedcount].server);
+    /* XXX: bid of cache.c's getbnum starts from 1 */
+        bid=getbnum(feedline[feedcount].board);
+        if(!bid) {
+		fprintf(fo,"%s %s\n", feedline[feedcount].board, feedline[feedcount].group );
+		feedcount--;
+		continue; /*移除沒有的看板i*/}
+
+        strcpy(feedline[feedcount].board,bcache[bid-1].brdname);
+        /*校正大小寫 */
+
+        istran[bid-1]=1; 
+        
+    }
+    fclose(fp);
+    fclose(fo);
+   qsort(feedline, feedcount, sizeof(newsfeed_t), newsfeed_cmp);
+   return feedcount;
+}
+
+int dobbsnnrp(char *serverstr, int serverid,FILE *fpscript)
+{
+    char buf[256];
+    printf("set %s\r\n",serverstr);
+    strtok(serverstr,";\r\n");
+    strtok(server[serverid].address,";\r\n"); //防hack
+    sprintf(buf, INNDHOME"/bbsnnrp -c %s "
+	    INNDHOME "/active/%s.auto.active "
+	    " >> " INNDHOME"/log/inndBM.log &\r\n",
+	    server[serverid].address,
+	    serverstr);
+    system(buf);
+    sprintf(buf, INNDHOME"/bbsnnrp %s "
+	    INNDHOME "/active/%s.auto.active "
+	    " >> " INNDHOME"/log/inndBM.log &\r\n",
+	    server[serverid].address,
+	    serverstr);
+    if(fpscript)
+	fprintf(fpscript, buf);
+    return 0;
+}
+int main(int argc, char **argv)
+{
+    int i,serverid=0;
+    FILE *fp=NULL,*fpscript=fopen(INND_SCRIPT,"w");
+    char buf[256],serverstr[30]="";
+    chdir(BBSHOME "/innd");
+    attach_SHM();
+    resolve_boards();
+    memset(istran,0,sizeof(int)*MAX_BOARD);
+    load_server();
+    load_newsfeeds();
+
+    for(i=0;i<feedcount;i++)
+	{
+	  if(strcasecmp(serverstr,feedline[i].server))
+	   {
+	     if(get_server(feedline[i].server)==-1) continue;
+	     if(fp) {
+			fclose(fp);	
+                        dobbsnnrp(serverstr,serverid,fpscript);
+		    }
+	     strcpy(serverstr,feedline[i].server);
+	     serverid=get_server(feedline[i].server);
+	     sprintf(buf,INNDHOME"/active/%s.auto.active",serverstr);
+	     fp=fopen(buf,"w");
+	   }
+          if(fp)
+             fprintf(fp,"%-35s 0000000000 0000000000 y\r\n",feedline[i].group);
+	}
+    if(fp) 
+    {
+      dobbsnnrp(serverstr,serverid,fpscript);
+      fclose(fp);
+    }
+    if(fpscript)
+     {
+	fclose(fpscript);
+	chmod(INND_SCRIPT,0700);
+     }
+
+    // 重設轉信與不轉信板標記
+    for(i=0;i<numboards;i++)
+     {
+       if(bcache[i].brdname[0]=='\0' ||
+	   (bcache[i].brdattr & BRD_GROUPBOARD) ) continue;
+       if((bcache[i].brdattr & BRD_NOTRAN )&& istran[i])
+         {
+	   while(SHM->Bbusystate) {safe_sleep(1);}
+  	   SHM->Bbusystate = 1;
+           bcache[i].brdattr = bcache[i].brdattr & ~BRD_NOTRAN;
+           strncpy(bcache[i].title + 5, "●", 2);
+	   SHM->Bbusystate = 0;
+
+           substitute_record(BBSHOME"/.BRD", &bcache[i],sizeof(boardheader_t),i+1);
+	 }
+       else if(!(bcache[i].brdattr & BRD_NOTRAN) && !istran[i]) 
+         {
+	   while(SHM->Bbusystate) {safe_sleep(1);}
+           SHM->Bbusystate = 1;
+           bcache[i].brdattr = bcache[i].brdattr | BRD_NOTRAN;
+           strncpy(bcache[i].title + 5, "◎", 2);
+           SHM->Bbusystate = 0;
+           substitute_record(BBSHOME"/.BRD", &bcache[i],sizeof(boardheader_t),i+1);
+	 }
+
+     }
+    return 0;
+}
diff --git a/pttbbs/util/jungo.c b/pttbbs/util/jungo.c
new file mode 100644
index 00000000..c0723c61
--- /dev/null
+++ b/pttbbs/util/jungo.c
@@ -0,0 +1,193 @@
+/* $Id$ */
+#define _UTIL_C_
+#include "bbs.h"
+
+#define OUTFILE  BBSHOME "/etc/toplazyBBM"
+#define FIREFILE BBSHOME "/etc/topfireBBM"
+
+extern boardheader_t *bcache;
+extern int numboards;
+
+boardheader_t allbrd[MAX_BOARD];
+extern userec_t xuser;
+typedef struct lostbm {
+	char *bmname;
+	char *title;
+	char *ctitle;
+	int lostdays;
+} lostbm;
+lostbm lostbms[MAX_BOARD];
+
+typedef struct BMarray{
+	char *bmname;
+	int  flag;
+}  BMArray;
+BMArray bms[3];
+
+int bmlostdays_cmp(const void *va, const void *vb)
+{
+	lostbm *a=(lostbm *)va, *b=(lostbm *)vb;
+	if (a->lostdays > b->lostdays) return -1;
+	else if (a->lostdays == b->lostdays) return 0;
+	else return 1;
+}
+
+int LINK(char* src, char* dst){
+	char cmd[200];
+   if(symlink(src,dst) == -1)	
+     {	
+	sprintf(cmd, "/bin/cp -R %s %s", src, dst);
+	return system(cmd);
+     }
+   return 0;
+}
+
+int main(int argc, char *argv[])
+{
+    int bmid, i, j=0;
+    FILE *inf, *firef;
+
+    attach_SHM();
+    resolve_boards();
+
+    if(passwd_init())
+        exit(1);      
+
+   memcpy(allbrd,bcache,numboards*sizeof(boardheader_t));
+
+	/* write out the target file */
+
+	inf   = fopen(OUTFILE, "w+");
+	if(inf == NULL){
+		printf("open file error : %s\n", OUTFILE);
+		exit(1);
+	}	
+	firef = fopen(FIREFILE, "w+");
+	if(firef == NULL){
+		printf("open file error : %s\n", FIREFILE);
+		fclose(inf);
+		exit(1);
+	}
+	
+	fprintf(inf, "警告: 小組長若於一個月未上站,將予於免職\n");
+	fprintf(inf,
+        "看板名稱                                      "
+	"    小組長        幾天沒來啦\n"
+        "---------------------------------------------------"
+	"-------------------\n");
+
+        fprintf(firef, "免職小組長\n");
+        fprintf(firef,
+        "看板名稱                                      "
+        "    小組長      幾天沒來啦\n"
+        "---------------------------------------------------"
+        "-------------------\n"); 
+
+
+	j = 0 ;
+        for (i = 0; i < numboards; i++) {
+	 char *p, bmbuf[IDLEN * 3 + 3];
+	 int   index = 0, flag = 0, k, n;
+	 p=strtok(allbrd[i].BM,"/ ");
+	 if(p)
+		do
+		{
+		  if(allbrd[i].brdname[0] == '\0' || (allbrd[i].brdattr & BRD_GROUPBOARD) ==0 ) continue;
+	          if (*p  == '[' ){p[strlen(p)-1]='\0'; p++;}
+  		  bmid=getuser(p);
+  		  bms[index].bmname = p;
+  		  bms[index].flag = 0;
+		  if (((((int)time(NULL)-(int)xuser.lastlogin)/(60*60*24))>=7)
+                 //&& isalpha(allbrd[i].brdname[0])
+		 && isalpha(allbrd[i].BM[0])
+		 && !(xuser.userlevel & PERM_SYSOP))
+		   {
+			lostbms[j].bmname = p;
+			lostbms[j].title = allbrd[i].brdname;
+			lostbms[j].ctitle = allbrd[i].title;
+			lostbms[j].lostdays =
+			     ((int)time(NULL)-(int)xuser.lastlogin)/(60*60*24);
+			
+			printf("%s\n", lostbms[j].title);
+			//超過六十天 免職
+			if(lostbms[j].lostdays > 30){
+				xuser.userlevel &= ~PERM_BM;
+				bms[index].flag = 1;
+				flag = 1;
+			}
+			j++;
+		   }
+		   index++;		  
+		} while((p=strtok(NULL,"/ "))!=NULL);
+	
+		//從板主名單拿掉名字
+		
+		if(flag == 1){
+			bmbuf[0] = '\0';
+			for(k = 0 , n = 0; k < index; k++){
+				if(!bms[k].flag){
+					if( n++ != 0) strcat(bmbuf, "/");
+					strcat(bmbuf, bms[k].bmname);	
+				}	
+			}
+			strcpy(bcache[i].BM, bmbuf);
+		}
+		
+        }
+    qsort(lostbms, j, sizeof(lostbm), bmlostdays_cmp);
+ 
+    //write to the etc/toplazyBBM
+    for ( i=0; i<j; i++)
+    {
+	if( lostbms[i].lostdays > 7){
+		fprintf(firef, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n", IDLEN, IDLEN, lostbms[i].title,
+		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
+		lostbms[i].bmname,lostbms[i].lostdays);
+	}else{
+		fprintf(inf, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n", IDLEN, IDLEN, lostbms[i].title, 
+		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
+		lostbms[i].bmname,lostbms[i].lostdays);
+	}
+    }
+    fclose(inf);
+    fclose(firef);
+
+    //printf("Total %d boards.\n", count);
+    
+    //mail to the users
+    for( i=0; i<j; i++)
+    {
+    	fileheader_t mymail;
+    	char	genbuf[200];
+    	int	lostdays;
+    	
+    	lostdays = lostbms[i].lostdays;
+
+	if( (lostdays != 14) || (lostdays != 21) ) // 14 21 天不發信
+		continue;
+	   	
+    	sprintf(genbuf, BBSHOME "/home/%c/%s", lostbms[i].bmname[0], lostbms[i].bmname);
+    	stampfile(genbuf, &mymail);
+    	
+    	strcpy(mymail.owner, "[PTT警察局]");
+    	
+    	if(lostdays <= 60){
+    		sprintf(mymail.title,
+    		"\033[32m [小組長免職警告通知] \033[m %s BM %s", lostbms[i].title, lostbms[i].bmname);
+    	}else{
+    		sprintf(mymail.title,
+    		"\033[32m [小組長免職通知] \033[m %s BM %s", lostbms[i].title, lostbms[i].bmname);
+    	}
+    	unlink(genbuf);
+    	if(lostdays <= 60){
+    		LINK(OUTFILE, genbuf);
+    	}else{
+    		LINK(FIREFILE, genbuf);
+    	}
+    	
+    	sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", lostbms[i].bmname[0], lostbms[i].bmname);
+  	append_record(genbuf, &mymail, sizeof(mymail)); 	
+    }
+  
+    return 0;
+}
diff --git a/pttbbs/util/kenben.c b/pttbbs/util/kenben.c
new file mode 100644
index 00000000..e5d52385
--- /dev/null
+++ b/pttbbs/util/kenben.c
@@ -0,0 +1,44 @@
+#include <stdio.h>
+
+
+void main()
+{
+  FILE * fin, * fout;
+  char line[255], line2[255];
+  int i;
+  char genbuf[255], tok[20];
+  fin = fopen("M.1006277896.A","r");
+  while(!feof(fin))
+  {
+    fgets(line,255,fin);
+    line[12] = '\0';
+
+    sprintf(genbuf, "cd ~/boards/%c/%s;grep "
+	    "超過一個月無廣告以外的本站文章發表。"
+	    " *.A > ~/pttbbs/util/kenken.txt", line[0], line);
+    system(genbuf);
+    
+    fout = fopen("kenken.txt","r");
+    while(!feof(fout))
+    {       
+      line2[0] = '\0';
+      fgets(line2,255,fout);
+      if(strlen(line2) <= 10) break;
+      sscanf(line2,"%s:",tok);
+      for(i = 0; i < 20;i++)
+      {
+       if(tok[i] == ':')
+       {
+         tok[i] = '\0';
+	 break;
+       }
+      }
+      sprintf(genbuf, "cd ~/boards/%c/%s;rm %s", line[0], line, tok);
+//      printf("%s \n", genbuf); 
+      system(genbuf);   
+    }
+  }
+
+  fclose(fin);
+
+}
diff --git a/pttbbs/util/killdeadbbs.c b/pttbbs/util/killdeadbbs.c
new file mode 100644
index 00000000..0c83fe29
--- /dev/null
+++ b/pttbbs/util/killdeadbbs.c
@@ -0,0 +1,56 @@
+#ifndef FreeBSD
+int main(int argc, char **argv)
+{
+    puts("this program is only for FreeBSD");
+}
+#else
+#include <err.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <signal.h>
+#include <kvm.h>
+#include <fcntl.h>
+#include <limits.h>
+#include <sys/param.h>
+#include <sys/sysctl.h>
+#include <sys/user.h>
+#include "config.h"        // for BBSUID
+
+int main(int argc, char **argv)
+{
+    kvm_t   *kd;
+    struct  kinfo_proc *kp;
+    char    errbuf[_POSIX2_LINE_MAX];
+    int     nentries, i, npids;
+    pid_t   pids[8192];
+    kd = kvm_openfiles("/dev/null", "/dev/null", NULL, O_RDONLY, errbuf);
+    if( kd == NULL )
+	errx(1, "%s", errbuf);
+    
+    if ((kp = kvm_getprocs(kd, KERN_PROC_UID, BBSUID, &nentries)) == 0 ||
+	nentries < 0)
+	errx(1, "%s", kvm_geterr(kd));
+
+    for( npids = 0, i = nentries ; --i >= 0 ; ++kp ){
+	if( strncmp(kp->ki_comm, "mbbsd", 5) == 0 ){
+	    if( kp->ki_runtime > (60 * 1000000) ){ // 60 secs
+		kill(kp->ki_pid, 1);
+		pids[npids++] = kp->ki_pid;
+		printf("%d\n", kp->ki_pid);
+	    }
+	}
+    }
+    
+    if( npids != 0 ){
+	sleep(2);
+	while( --npids >= 0 )
+	    kill(pids[npids], 9);
+    }
+
+    kvm_close(kd);
+    return 0;
+}
+
+#endif
diff --git a/pttbbs/util/lunar-1,15run.pl b/pttbbs/util/lunar-1,15run.pl
new file mode 100644
index 00000000..d4cd2f20
--- /dev/null
+++ b/pttbbs/util/lunar-1,15run.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+use lib '/home/bbs/bin/';
+use LocalVars;
+# 每農曆初一, 十五就會跑一次 $ARGV[0]
+# 資料來源 http://tw.weathers.yahoo.com/
+open FH, "$LYNX -source http://tw.weathers.yahoo.com/ | grep '民國'|";
+$din = <FH>;
+close FH;
+
+($month, $day) = $din =~ /農曆 (.*?)月 (.*?)日/;
+system("@ARGV") if( $day eq '一' || $day eq '一十五' );
diff --git a/pttbbs/util/mailog.sh b/pttbbs/util/mailog.sh
new file mode 100644
index 00000000..da89ae3d
--- /dev/null
+++ b/pttbbs/util/mailog.sh
@@ -0,0 +1,9 @@
+#!/bin/sh
+# $Id: mailog.sh,v 1.1 2002/03/07 15:13:46 in2 Exp $
+#
+# 整理出廣告信名單
+
+bin/antispam 
+bin/post Record 今日違法廣告信名單 [Ptt警察局] etc/spam
+bin/post Security 站外來信紀錄mailog [系統安全局] etc/mailog
+rm etc/mailog
diff --git a/pttbbs/util/mandex.c b/pttbbs/util/mandex.c
new file mode 100644
index 00000000..ed8ee9c9
--- /dev/null
+++ b/pttbbs/util/mandex.c
@@ -0,0 +1,290 @@
+/* $Id$ */
+
+/* 'mandex -h' to help */
+
+#include "bbs.h"
+#ifndef MAXPATHLEN
+#define MAXPATHLEN  1024
+#endif
+
+typedef struct
+{
+    char bname[40];
+    int ndir, nfile, k;
+} boardinfo;
+
+extern  int     numboards;
+extern  boardheader_t *bcache;
+boardinfo       board[MAX_BOARD], *biptr;
+char    color[4][10] = {"", "", "", ""};
+char    fn_index[] = ".index";
+char    fn_new[] = ".index.new";
+char    index_title[] = "◎ 精華區目錄索引";
+char    topdir[128], pgem[512], pndx[512];
+FILE    *fndx;
+int     ndir, nfile, index_pos, k;
+int     nSorted, nb;
+
+int sortbyname(const void *a, const void *b)
+{
+    return strcmp(((boardinfo*)b)->bname, ((boardinfo*)a)->bname);
+}
+
+int k_cmp(b, a)
+    boardinfo *b, *a;
+{
+    return ((a->k / 100 + a->ndir + a->nfile) - (b->k / 100 + b->ndir + b->nfile));
+}
+
+/* visit the hierarchy recursively */
+
+void
+mandex(level, num_header, fpath)
+    int level;
+    char *fpath, *num_header;
+{
+    FILE *fgem;
+    char *fname, buf[256];
+    struct stat st;
+    int count;
+    fileheader_t fhdr;
+
+    fgem = fopen(fpath, "r+");
+    if (fgem == NULL)
+	return;
+
+    fname = strrchr(fpath, '.');
+    if (!level){
+        printf("%s\r\n",fpath);
+	strcpy(pgem, fpath);
+
+	strcpy(fname, fn_new);
+	fndx = fopen(fpath, "w");
+	if (fndx == NULL){
+	    fclose(fgem);
+	    return;
+	}
+	fprintf(fndx, "序號\t\t\t精華區主題\n"
+		"───────────────────"
+		"───────────────────\n");
+	strcpy(pndx, fpath);
+	ndir = nfile = 0;
+	index_pos = -1;
+    }
+
+    count = 0;
+    while (fread(&fhdr, sizeof(fhdr), 1, fgem) == 1){
+	strcpy(fname, fhdr.filename);
+        if (!fname[0]) continue;
+	if (!level && !strncmp(fhdr.title, index_title, strlen(index_title))
+	    && index_pos < 0){
+	    index_pos = count;
+	    unlink(fpath);
+	}
+	st.st_size = 0;
+	stat(fpath, &st);
+
+	sprintf(buf, "%.*s%s%3d. %s \n",
+		11 * level, num_header, color[level % 4], ++count, fhdr.title);
+	                                                              /* Ptt */
+	fputs(buf, fndx);
+	if (dashd(fpath)){
+	    ++ndir;
+	    /* I can't find the code to change title? */
+	    if (*fhdr.title != '#' && level < 10 && 
+		(fhdr.filemode&(FILE_BM|FILE_HIDE))==0){
+		strcat(fpath, "/.DIR");
+		mandex(level + 1, buf, fpath);
+	    }
+	}
+	else
+	    ++nfile;
+    }
+
+    if (!level){
+	char lpath[MAXPATHLEN];
+
+	fclose(fndx);
+	strcpy(fname, fn_index);
+	rename(pndx, fpath);
+	strcpy(pndx, fpath);
+
+	sprintf(buf, "%s.new", pgem);
+	if (index_pos >= 0 || (fndx = fopen(buf, "w"))){
+	    fname[-1] = 0;
+	    stamplink(fpath, &fhdr);
+	    unlink(fpath);
+	    strcpy(fhdr.owner, "每天自動更新");
+	    sprintf(lpath, "%s/%s", topdir, pndx);
+	    st.st_size = 0;
+	    stat(lpath, &st);
+	    sprintf(fhdr.title, "%s (%.1fk)", index_title, st.st_size / 1024.);
+	    k = st.st_size;	/* Ptt */
+	    printf("(%s)[%dK]", fpath, k);
+	    symlink(lpath, fpath);
+	    if (index_pos < 0){
+		fwrite(&fhdr, sizeof(fhdr), 1, fndx);
+		rewind(fgem);
+		while (fread(&fhdr, sizeof(fhdr), 1, fgem) == 1)
+		    fwrite(&fhdr, sizeof(fhdr), 1, fndx);
+		fclose(fndx);
+		fclose(fgem);
+		rename(buf, pgem);
+	    }
+	    else{
+		fseek(fgem, index_pos * sizeof(fhdr), 0);
+		fwrite(&fhdr, sizeof(fhdr), 1, fgem);
+		fclose(fgem);
+	    }
+	    return;
+	}
+    }
+    fclose(fgem);
+}
+
+
+int main(int argc, char* argv[])
+{
+    boardheader_t *bptr = NULL;
+    DIR     *dirp;
+    struct  dirent *de;
+    int     ch, n, place = 0, fd, i;
+    char    checkrebuild = 0, *fname, fpath[MAXPATHLEN];
+    char    dirs[] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
+		      'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p',
+		      'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l',
+		      'z', 'x', 'c', 'v', 'b', 'n', 'm',
+		      'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P',
+		      'A', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L',
+		      'Z', 'X', 'C', 'V', 'B', 'N', 'M', NULL};
+
+    nice(10);
+    while( (ch = getopt(argc, argv, "xh")) != -1 ){
+	switch( ch ){
+	case 'x':
+	    checkrebuild = 1;
+	    break;
+	case 'h':
+	    printf("NAME                                    \n"
+		   "     mandex - 精華區索引程式 (man index)\n\n"
+		   "SYNOPSIS                                \n"
+		   "     mandex [-x] [board]                \n\n"
+		   "DESCRIPTION                             \n"
+		   "精華區索引 (man index)                  \n\n"
+		   "-x    只有含有 .rebuild的目錄才重製     \n"
+		   "board 全部的板 (default to all)         \n\n");
+	    return 0;
+	}
+    }
+
+    argc -= optind;
+    argv += optind;
+
+    attach_SHM();
+    resolve_boards();
+/*
+    if( argc == 0 ){
+	puts("Creating the whole index...");
+        chdir(strcpy(topdir, BBSHOME));
+        strcpy(fpath, "man/.DIR");
+        mandex(0, "", fpath);
+    }
+*/
+    chdir(strcpy(topdir, BBSHOME "/man/boards"));
+
+    if( argc == 1 ){
+        sprintf(fpath, "%c/%s/.DIR", argv[0][0], argv[0]);
+        mandex(0, "", fpath);
+	return 0;
+    }
+
+    /* process all boards */
+    if( checkrebuild &&
+	(fd = open(BBSHOME "/man/.rank.cache", O_RDONLY)) >= 0 ){
+	read(fd, board, sizeof(board));
+	close(fd);
+	qsort(board, MAX_BOARD, sizeof(boardinfo), sortbyname);
+	for( nb = 0 ; board[nb].bname[0] != 0 ; ++nb )
+	    ;
+	nSorted = nb;
+    }
+    else{
+	memset(board, 0, sizeof(board));
+	checkrebuild = 0;
+	nSorted = nb = 0;
+    }
+
+    for( i = 0 ; dirs[i] != NULL ; ++i ){
+	sprintf(topdir, BBSHOME "/man/boards/%c", dirs[i]);
+	chdir(topdir);
+	if(!(dirp = opendir(topdir))) {
+	    printf("## unable to enter [man/boards]\n");
+	    exit(-1);
+	}
+    
+	while((de = readdir(dirp))){
+	    fname = de->d_name;
+	    ch = fname[0];
+	    if (ch != '.'){
+		k = 0;
+		if( checkrebuild ){
+		    sprintf(fpath, "%s/.rebuild", fname);
+		    if( access(fpath, 0) < 0 ){
+			printf("skip no modify board %s\n", fname);
+			continue;
+		    }
+		    unlink(fpath);
+		}
+		sprintf(fpath, "%s/.DIR", fname);
+		mandex(0, "", fpath);
+		printf("%-14sd: %d\tf: %d\n", fname, ndir, nfile); /* report */
+		if( k ){
+		    if( !(biptr = bsearch(fname, board, nSorted,
+					  sizeof(boardinfo), sortbyname))){
+			biptr = &board[nb];
+			++nb;
+		    }
+		    strcpy(biptr->bname, fname);
+		    biptr->ndir = ndir;
+		    biptr->nfile = nfile;
+		    biptr->k = k;
+		}
+	    }
+	}
+	closedir(dirp);
+    }
+    
+    qsort(board, nb, sizeof(boardinfo), k_cmp);
+    unlink(BBSHOME "/man/.rank.cache");
+    if( (fd = open(BBSHOME "/man/.rank.cache",
+		   O_WRONLY | O_CREAT | O_TRUNC | O_APPEND, 0660)) >= 0 ){
+	write(fd, board, sizeof(board));       
+	close(fd);
+    }
+    if (!(fndx = fopen(BBSHOME "/etc/topboardman", "w")))
+	exit(0);
+    
+    fprintf(fndx, "排名        看 板  目錄數   檔案數"
+	    "     byte數   總 分     板   主          \n");
+    
+    for (ch = 0; ch < nb; ch++){
+	for (n = 0; n < numboards; n++){
+	    bptr = &bcache[n];
+	    if (!strcmp(bptr->brdname, board[ch].bname))
+		break;
+	}
+	if (n >= numboards ||
+	    (bptr->brdattr & (BRD_BAD | BRD_NOCOUNT | BRD_HIDE))) 
+	    continue;
+	if (board[ch].ndir + board[ch].nfile < 5)
+	    break;
+	fprintf(fndx, "%3d.%15s %5d %7d %10d   %6d %-24.24s\n",
+		++place,
+		board[ch].bname,
+		board[ch].ndir, board[ch].nfile, board[ch].k
+		,board[ch].k / 100 + board[ch].nfile + board[ch].ndir
+		,bptr->BM);
+    }
+    fclose(fndx);
+    return 0;
+}
diff --git a/pttbbs/util/merge_board.c b/pttbbs/util/merge_board.c
new file mode 100644
index 00000000..12f41346
--- /dev/null
+++ b/pttbbs/util/merge_board.c
@@ -0,0 +1,106 @@
+/* $Id$ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <string.h>
+#include <sys/types.h>
+#include "config.h"
+#include "pttstruct.h"
+
+typedef struct hash_t {
+    char *brdname;
+    struct hash_t *next;
+} hash_t;
+
+FILE *fout;
+hash_t *hash_tbl[65536];
+int counter;
+
+void usage() {
+    fprintf(stderr, "Usage:\n\n"
+	    "merge_board <output file> [input file1] [input file2] ...\n");
+}
+
+unsigned int string_hash(unsigned char *s) {
+    unsigned int v=0;
+    
+    while(*s) {
+	v = (v << 8) | (v >> 24);
+	v ^= toupper(*s++);	/* note this is case insensitive */
+    }
+    return (v * 2654435769UL) >> (32 - 16);
+}
+
+int is_exist(char *brdname) {
+    int i;
+    hash_t *n;
+
+    i = string_hash(brdname);
+    for(n = hash_tbl[i]; n != NULL; n = n->next)
+	if(strcasecmp(brdname, n->brdname) == 0)
+	    return 1;
+    return 0;
+}
+
+void add_hash(char *brdname) {
+    int i;
+    hash_t *n;
+    
+    i = string_hash(brdname);
+    
+    n = malloc(sizeof(*n));
+    n->brdname = strdup(brdname);
+    n->next = hash_tbl[i];
+    hash_tbl[i] = n;
+}
+
+void merge_board(boardheader_t *b) {
+    if(!is_exist(b->brdname)) {
+	fwrite(b, sizeof(*b), 1, fout);
+	add_hash(b->brdname);
+	++counter;
+    }
+}
+
+void merge_file(char *fname) {
+    FILE *fin;
+    boardheader_t b;
+    
+    if((fin = fopen(fname, "r")) == NULL) {
+	perror(fname);
+	return;
+    }
+    
+    counter = 0;
+    while(fread(&b, sizeof(b), 1, fin) == 1)
+	if(b.brdname[0])
+	    merge_board(&b);
+    
+    printf("merge from %s: %d boards\n", fname, counter);
+    
+    fclose(fin);
+}
+
+int main(int argc, char **argv) {
+    int i;
+    
+    if(argc < 2) {
+	usage();
+	return 1;
+    }
+    
+    bzero(hash_tbl, sizeof(hash_tbl));
+    
+    if((fout = fopen(argv[1], "w")) == NULL) {
+	perror(argv[1]);
+	return 2;
+    }
+    
+    for(i = 2; i < argc; ++i)
+	merge_file(argv[i]);
+    
+    fclose(fout);
+    printf("Done\n");
+    
+    return 0;
+}
diff --git a/pttbbs/util/merge_passwd.c b/pttbbs/util/merge_passwd.c
new file mode 100644
index 00000000..20f59aae
--- /dev/null
+++ b/pttbbs/util/merge_passwd.c
@@ -0,0 +1,106 @@
+/* $Id$ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <string.h>
+#include <sys/types.h>
+#include "config.h"
+#include "pttstruct.h"
+
+typedef struct hash_t {
+    char *userid;
+    struct hash_t *next;
+} hash_t;
+
+FILE *fout;
+hash_t *hash_tbl[65536];
+int counter;
+
+void usage() {
+    fprintf(stderr, "Usage:\n\n"
+	    "merge_passwd <output file> [input file1] [input file2] ...\n");
+}
+
+unsigned int string_hash(unsigned char *s) {
+    unsigned int v=0;
+    
+    while(*s) {
+	v = (v << 8) | (v >> 24);
+	v ^= toupper(*s++);	/* note this is case insensitive */
+    }
+    return (v * 2654435769UL) >> (32 - 16);
+}
+
+int is_exist(char *userid) {
+    int i;
+    hash_t *n;
+
+    i = string_hash(userid);
+    for(n = hash_tbl[i]; n != NULL; n = n->next)
+	if(strcasecmp(userid, n->userid) == 0)
+	    return 1;
+    return 0;
+}
+
+void add_hash(char *userid) {
+    int i;
+    hash_t *n;
+    
+    i = string_hash(userid);
+    
+    n = malloc(sizeof(*n));
+    n->userid = strdup(userid);
+    n->next = hash_tbl[i];
+    hash_tbl[i] = n;
+}
+
+void merge_user(userec_t *u) {
+    if(!is_exist(u->userid)) {
+	fwrite(u, sizeof(*u), 1, fout);
+	add_hash(u->userid);
+	++counter;
+    }
+}
+
+void merge_file(char *fname) {
+    FILE *fin;
+    userec_t u;
+    
+    if((fin = fopen(fname, "r")) == NULL) {
+	perror(fname);
+	return;
+    }
+    
+    counter = 0;
+    while(fread(&u, sizeof(u), 1, fin) == 1)
+	if(u.userid[0])
+	    merge_user(&u);
+    
+    printf("merge from %s: %d users\n", fname, counter);
+    
+    fclose(fin);
+}
+
+int main(int argc, char **argv) {
+    int i;
+    
+    if(argc < 2) {
+	usage();
+	return 1;
+    }
+    
+    bzero(hash_tbl, sizeof(hash_tbl));
+
+    if((fout = fopen(argv[1], "w")) == NULL) {
+	perror(argv[1]);
+	return 2;
+    }
+    
+    for(i = 2; i < argc; ++i)
+	merge_file(argv[i]);
+
+    fclose(fout);
+    printf("Done\n");
+    
+    return 0;
+}
diff --git a/pttbbs/util/mvdir.pl b/pttbbs/util/mvdir.pl
new file mode 100644
index 00000000..e853df05
--- /dev/null
+++ b/pttbbs/util/mvdir.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+if( !@ARGV ){
+    print "usage: mvdir.pl which prefix from_id to_id\n";
+    exit;
+}
+
+($which, $prefix, $from_id, $to_id) = @ARGV;
+
+$fromdir = "/scsi$from_id/bbs/$which/$prefix";
+$todir = "/scsi$to_id/bbs/$which/$prefix";
+$sym = ($which eq 'man' ? "/home/bbs/man/boards/$prefix" : "/home/bbs/$which/$prefix");
+
+if( !-e $fromdir ){
+    print "from dir ($fromdir) not found\n";
+    exit;
+}
+
+mkdir($todir, 0755);
+
+chdir $fromdir;
+foreach( <*> ){
+    next if( /^\./ );
+    symlink("$fromdir/$_", "$todir/$_");
+    push @dirs, $_;
+}
+
+unlink $sym;
+symlink($todir, $sym);
+
+foreach( @dirs ){
+    printf("processing %-20s (%04d/%04d)\n", $_, $index++, $#dirs);
+    unlink "$todir/$_";
+    `mv $fromdir/$_ $todir/$_`;
+}
+
+rmdir "$fromdir";
diff --git a/pttbbs/util/newvers.sh b/pttbbs/util/newvers.sh
new file mode 100644
index 00000000..992fd7fe
--- /dev/null
+++ b/pttbbs/util/newvers.sh
@@ -0,0 +1,8 @@
+#!/bin/sh
+# $Id: newvers.sh,v 1.2 2003/06/22 14:45:17 in2 Exp $
+
+t=`date`
+
+cat << EOF > vers.c
+char    *compile_time = "${t}";
+EOF
diff --git a/pttbbs/util/opendice.sh b/pttbbs/util/opendice.sh
new file mode 100644
index 00000000..767e213a
--- /dev/null
+++ b/pttbbs/util/opendice.sh
@@ -0,0 +1,10 @@
+#!/bin/sh
+# $Id: opendice.sh,v 1.1 2002/03/07 15:13:46 in2 Exp $
+
+bin/countalldice > etc/dice.dis
+bin/post  Record   "骰子中獎名單"  "[骰子報告]"   etc/windice.log
+bin/post  Security   "骰子失敗名單"  "[骰子報告]"   etc/lostdice.log
+bin/post  Security "骰子期望值"    "[骰子報告]"   etc/dice.dis
+rm -f etc/windice.log
+rm -f etc/lostdice.log
+rm -f etc/dice.dis
diff --git a/pttbbs/util/openticket.c b/pttbbs/util/openticket.c
new file mode 100644
index 00000000..bcc58d0a
--- /dev/null
+++ b/pttbbs/util/openticket.c
@@ -0,0 +1,178 @@
+/* $Id$ */
+/* 開獎的 utility */
+#define _UTIL_C_
+#include "bbs.h"
+
+static char *betname[8] = {"Ptt", "Jaky",  "Action",  "Heat",
+			   "DUNK", "Jungo", "waiting", "wofe"};
+
+#define MAX_DES 7		/* 最大保留獎數 */
+
+extern userec_t xuser;
+
+int Link(char *src, char *dst)
+{
+    char cmd[200];
+
+    if (link(src, dst) == 0)
+	return 0;
+
+    sprintf(cmd, "/bin/cp -R %s %s", src, dst);
+    return system(cmd);
+}
+
+int main(int argc, char **argv)
+{
+    int money, bet, n, total = 0, ticket[8] =
+    {0, 0, 0, 0, 0, 0, 0, 0};
+    FILE *fp;
+    time_t now = time(NULL);
+    char des[MAX_DES][200] =
+    {"", "", "", ""};
+
+    nice(10);
+    attach_SHM();
+    if(passwd_init())
+	exit(1);
+    
+    rename(BBSHOME "/etc/" FN_TICKET_RECORD,
+           BBSHOME "/etc/" FN_TICKET_RECORD ".tmp");
+    rename(BBSHOME "/etc/" FN_TICKET_USER,
+           BBSHOME "/etc/" FN_TICKET_USER ".tmp");
+
+    if (!(fp = fopen(BBSHOME "/etc/"FN_TICKET_RECORD ".tmp", "r")))
+	return 0;
+    fscanf(fp, "%9d %9d %9d %9d %9d %9d %9d %9d\n",
+	   &ticket[0], &ticket[1], &ticket[2], &ticket[3],
+	   &ticket[4], &ticket[5], &ticket[6], &ticket[7]);
+    for (n = 0; n < 8; n++)
+	total += ticket[n];
+    fclose(fp);
+
+    if (!total)
+	return 0;
+
+    if((fp = fopen(BBSHOME "/etc/" FN_TICKET , "r")))
+    {
+	for (n = 0; n < MAX_DES && fgets(des[n], 200, fp); n++) ;
+	fclose(fp);
+    }
+
+  srandom(33); //   固定一個  seed 但盡量要避免跟別人的seed同
+ 
+  for( n = (now / (60*60*3)) - 62820; n >0; n--) random();
+ 
+
+/* 
+ * 正確的random number generator的用法
+ * 是用同一個 seed後取 第一個 第二個 地三個.... 數
+ * srand() 設完seed後
+ * 每呼叫一次rand()就取下一個數
+ *
+ * 但因為我們沒有記錄上次取到第幾個
+ * 所以用每增四小時()就多取一次 => now / (60*60*4) (每五小時開一次獎)
+ * (減 61820 是減少 loop 數)
+ *
+ * 本來是用srand(time(0))  不是正確的用法
+ * 因為開獎時間有規率 所以會被找出規律
+ *
+ *                                     ~Ptt
+ */
+
+ bet=random() % 8;
+ 
+
+ //XXX: resolve_utmp();
+ attach_SHM();
+    bet = SHM->UTMPnumber % 8;
+
+/*
+
+ * 在C中 srand 跟 srandom 一樣 rand 跟 random 一樣
+ * 不同的是 rand   是傳回一個 double 給非整數的亂數用
+ *          random 是傳回一個 int    給整數的亂數用
+ *
+ * 若要以rand inplement 整數的亂數 要注意以下 (man page中有)
+ *
+ *     In Numerical Recipes in C: The Art of Scientific Computing
+ *     (William  H.  Press, Brian P. Flannery, Saul A. Teukolsky,
+ *     William T.  Vetterling;  New  York:  Cambridge  University
+ *     Press,  1990 (1st ed, p. 207)), the following comments are
+ *     made:
+ *            "If you want to generate a random integer between 1
+ *            and 10, you should always do it by
+ *
+ *                   j=1+(int) (10.0*rand()/(RAND_MAX+1.0));
+ *
+ *            and never by anything resembling
+ *
+ *                   j=1+((int) (1000000.0*rand()) % 10);
+ *
+ *            (which uses lower-order bits)."
+ *
+ *     Random-number  generation is a complex topic.  The Numeri-
+ *     cal Recipes in C book (see reference  above)  provides  an
+ *     excellent discussion of practical random-number generation
+ *     issues in Chapter 7 (Random Numbers).
+ *                                                     ~ Ptt
+ */
+
+
+    money = ticket[bet] ? total * 95 / ticket[bet] : 9999999;
+
+    if((fp = fopen(BBSHOME "/etc/" FN_TICKET, "w")))
+    {
+	if (des[MAX_DES - 1][0])
+	    n = 1;
+	else
+	    n = 0;
+
+	for (; n < MAX_DES && des[n][0] != 0; n++)
+	{
+	    fprintf(fp, des[n]);
+	}
+
+	printf("\n\n開獎時間： %s \n\n"
+	       "開獎結果： %s \n\n"
+	       "下注總金額： %d00 元 \n"
+	       "中獎比例： %d張/%d張  (%f)\n"
+	       "每張中獎彩票可得 %d 枚Ｐ幣 \n\n",
+	       Cdatelite(&now), betname[bet], total, ticket[bet], total,
+	       (float) ticket[bet] / total, money);
+
+	fprintf(fp, "%s 賭盤開出:%s 總金額:%d00 元 獎金/張:%d 元 機率:%1.2f\n",
+		Cdatelite(&now), betname[bet], total, money,
+		(float) ticket[bet] / total);
+	fclose(fp);
+
+    }
+
+    if (ticket[bet] && (fp = fopen(BBSHOME "/etc/" FN_TICKET_USER ".tmp", "r")))
+    {
+	int mybet, num, uid;
+	char userid[20], genbuf[200];
+	fileheader_t mymail;
+
+	while (fscanf(fp, "%s %d %d\n", userid, &mybet, &num) != EOF)
+	{
+	    if (mybet == bet)
+	    {
+		printf("恭喜 %-15s買了%9d 張 %s, 獲得 %d 枚Ｐ幣\n"
+		       ,userid, num, betname[mybet], money * num);
+                if((uid=getuser(userid))==0) continue;
+		deumoney(uid, money * num);
+		sprintf(genbuf, BBSHOME "/home/%c/%s", userid[0], userid);
+		stampfile(genbuf, &mymail);
+		strcpy(mymail.owner, BBSNAME);
+		sprintf(mymail.title, "[%s] 中獎囉! $ %d", Cdatelite(&now), money * num);
+		unlink(genbuf);
+		Link(BBSHOME "/etc/ticket", genbuf);
+		sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", userid[0], userid);
+		append_record(genbuf, &mymail, sizeof(mymail));
+	    }
+	}
+    }
+    unlink(BBSHOME "/etc/" FN_TICKET_RECORD ".tmp");
+    unlink(BBSHOME "/etc/" FN_TICKET_USER ".tmp");
+    return 0;
+}
diff --git a/pttbbs/util/openticket.sh b/pttbbs/util/openticket.sh
new file mode 100644
index 00000000..8274e5c3
--- /dev/null
+++ b/pttbbs/util/openticket.sh
@@ -0,0 +1,10 @@
+#!/bin/sh
+# $Id: openticket.sh,v 1.1 2002/03/07 15:13:46 in2 Exp $
+
+bin/openticket > etc/jackpot
+bin/post Record "彩券中獎名單" "[賭場報告]" etc/jackpot
+bin/post Record "猜數字中獎名單" "[猜數字報告]" etc/winguess.log
+bin/post Record "黑白棋對戰記錄" "[猜數字報告]" etc/othello.log
+rm -f etc/winguess.log
+rm -f etc/loseguess.log
+rm -f etc/othello.log
diff --git a/pttbbs/util/openvice.c b/pttbbs/util/openvice.c
new file mode 100644
index 00000000..abc08272
--- /dev/null
+++ b/pttbbs/util/openvice.c
@@ -0,0 +1,45 @@
+/* $Id$ */
+/* 發票開獎小程式 */
+
+#include "bbs.h"
+
+#define VICE_SHOW  BBSHOME "/etc/vice.show1"
+#define VICE_BINGO BBSHOME "/etc/vice.bingo"
+#define VICE_NEW   "vice.new"
+#define VICE_DATA  "vice.data"
+#define MAX_BINGO  99999999
+
+int main(int argc, char **argv)
+{
+    char *TABLE[5] = {"一", "二", "三", "四", "五"};
+    int i = 0, bingo, base = 0;
+
+
+    FILE *fp = fopen(VICE_SHOW, "w"), *fb = fopen(VICE_BINGO, "w");
+
+    // XXX: resolve_utmp();
+    attach_SHM();
+
+    srand(SHM->number);
+
+    if (!fp || !fb )
+	perror("error open file");
+
+
+    bingo = rand() % MAX_BINGO;
+    fprintf(fp, "%1c統一發票中獎號碼\n", ' ');
+    fprintf(fp, "%1c================\n", ' ');
+    fprintf(fp, "%1c特別獎: %08d\n\n", ' ', bingo);
+    fprintf(fb, "%d\n", bingo);
+
+    while (i < 5)
+    {
+	bingo = (base + rand()) % MAX_BINGO;
+	fprintf(fp, "%1c第%s獎: %08d\n", ' ', TABLE[i], bingo);
+	fprintf(fb, "%08d\n", bingo);
+	i++;
+    }
+    fclose(fp);
+    fclose(fb);
+    return 0;
+}
diff --git a/pttbbs/util/outmail.c b/pttbbs/util/outmail.c
new file mode 100644
index 00000000..f818d2c6
--- /dev/null
+++ b/pttbbs/util/outmail.c
@@ -0,0 +1,271 @@
+/* $Id$ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <fcntl.h>
+#include <signal.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <sys/types.h>
+#include <sys/param.h>
+#include <sys/file.h>
+#include <netinet/in.h>
+#include <arpa/inet.h>
+#include "config.h"
+#include "pttstruct.h"
+
+
+#define SPOOL BBSHOME "/out"
+#define INDEX SPOOL "/.DIR"
+#define NEWINDEX SPOOL "/.DIR.sending"
+#define FROM ".bbs@" MYHOSTNAME
+#define SMTPPORT 25
+char    *smtpname, *hiname;
+int     smtpport, hiport;
+
+
+int waitReply(int sock) {
+    char buf[256];
+    
+    if(read(sock, buf, sizeof(buf)) <= 0)
+	return -1;
+    else
+	return buf[0] - '0';
+}
+
+int sendRequest(int sock, char *request) {
+    return write(sock, request, strlen(request)) < 0 ? -1 : 0;
+}
+
+int connectMailServer(char *servername, int serverport)
+{
+    int sock;
+    struct sockaddr_in addr;
+    
+    if((sock = socket(PF_INET, SOCK_STREAM, 0)) < 0) {
+	perror("socket");
+	return -1;
+    }
+    
+    memset(&addr, 0, sizeof(addr));
+#ifdef FreeBSD
+    addr.sin_len = sizeof(addr);
+#endif
+    addr.sin_family = AF_INET;
+    addr.sin_port = htons(serverport);
+    addr.sin_addr.s_addr = inet_addr(servername);
+    
+    if(connect(sock, (struct sockaddr *)&addr, sizeof(addr)) < 0) {
+	printf("servername: %s\n", servername);
+	perror(servername);
+	close(sock);
+	return -1;
+    }
+    
+    if(waitReply(sock) != 2) {
+	close(sock);
+	return -1;
+    }
+    
+    if(sendRequest(sock, "helo " MYHOSTNAME "\n") || waitReply(sock) != 2) {
+	close(sock);
+	return -1;
+    } else
+	return sock;
+}
+
+void disconnectMailServer(int sock) {
+    sendRequest(sock, "quit\n");
+    /* drop the reply :p */
+    close(sock);
+}
+
+void doSendBody(int sock, FILE *fp, char *from, char *to, char *subject) {
+    int n;
+    char buf[2048];
+    
+    n = snprintf(buf, sizeof(buf),
+		 "From: %s\r\n"
+		 "To: %s\r\n"
+		 "Subject: %s\r\n"
+		 "X-Sender: outmail of pttbbs\r\n"
+		 "Mime-Version: 1.0\r\n"
+		 "Content-Type: text/plain; charset=\"big5\"\r\n"
+		 "Content-Transfer-Encoding: 8bit\r\n"
+		 "X-Disclaimer: [" BBSNAME "]對本信內容恕不負責\r\n\r\n",
+		 from, to, subject);
+    write(sock, buf, n);
+
+    while(fgets(buf, sizeof(buf), fp)) {
+	if(buf[0] == '.' && buf[1] == '\n')
+	    strcpy(buf, "..\n");
+	write(sock, buf, strlen(buf));
+    }
+}
+
+void doSendMail(int sock, FILE *fp, char *from, char *to, char *subject) {
+    char buf[256];
+    
+    snprintf(buf, sizeof(buf), "mail from: %s\n", from);
+    if(sendRequest(sock, buf) || waitReply(sock) != 2)
+	return;
+    
+    snprintf(buf, sizeof(buf), "rcpt to: %s\n", to);
+    if(sendRequest(sock, buf) || waitReply(sock) != 2)
+	return;
+    
+    if(sendRequest(sock, "data\n") || waitReply(sock) != 3)
+	return;
+    
+    doSendBody(sock, fp, from, to, subject);
+
+    if(sendRequest(sock, "\n.\n") || waitReply(sock) != 2)
+	return;
+}
+
+void sendMail() {
+    int fd, smtpsock, hisock;
+    MailQueue mq;
+    
+    if(access(NEWINDEX, R_OK | W_OK)) {
+	if(link(INDEX, NEWINDEX) || unlink(INDEX))
+	    /* nothing to do */
+	    return;
+    }
+
+    smtpsock = connectMailServer(smtpname, smtpport);
+    hisock = (hiname != NULL) ? connectMailServer(hiname, hiport) : -1;
+
+    if( smtpsock < 0 && hisock >= 0 ){
+	smtpsock = hisock;
+	hisock = -1;
+    }
+    if( smtpsock < 0 && hisock < 0 ){
+	fprintf(stderr, "connecting to relay server failure...\n");
+	return;
+    }
+    
+    fd = open(NEWINDEX, O_RDONLY);
+    flock(fd, LOCK_EX);
+    while(read(fd, &mq, sizeof(mq)) > 0) {
+	FILE *fp;
+	char buf[256];
+	
+	snprintf(buf, sizeof(buf), "%s%s", mq.sender, FROM);
+	if((fp = fopen(mq.filepath, "r"))) {
+	    setproctitle("outmail: sending %s", mq.filepath);
+	    if( hisock >= 0 &&
+		!strstr(mq.rcpt, ".edu.tw")    &&
+		!strstr(mq.rcpt, ".twbbs.org") &&
+		!strstr(mq.rcpt, "ptt.cc")     &&
+		!strstr(mq.rcpt, "ptt2.cc")       ){
+		printf("mailto: %s, relay server: %s:%d\n",
+		       mq.rcpt, hiname, hiport);
+		doSendMail(hisock, fp, buf, mq.rcpt, mq.subject);
+	    }
+	    else{
+		printf("mailto: %s, relay server: %s:%d\n",
+		       mq.rcpt, smtpname, smtpport);
+		doSendMail(smtpsock, fp, buf, mq.rcpt, mq.subject);
+	    }
+	    fclose(fp);
+	    unlink(mq.filepath);
+	} else {
+	    perror(mq.filepath);
+	}
+    }
+    flock(fd, LOCK_UN);
+    close(fd);
+    unlink(NEWINDEX);
+    
+    disconnectMailServer(smtpsock);
+    if( hisock >= 0 )
+	disconnectMailServer(hisock);
+}
+
+void listQueue() {
+    int fd;
+    
+    if((fd = open(INDEX, O_RDONLY)) >= 0) {
+	int counter = 0;
+	MailQueue mq;
+	
+	flock(fd, LOCK_EX);
+	while(read(fd, &mq, sizeof(mq)) > 0) {
+	    printf("%s:%s -> %s:%s\n", mq.filepath, mq.username, mq.rcpt,
+		   mq.subject);
+	    counter++;
+	}
+	flock(fd, LOCK_UN);
+	close(fd);
+	printf("\nTotal: %d mails in queue\n", counter);
+    } else {
+	perror(INDEX);
+    }
+}
+
+void wakeup(int s) {
+}
+
+void parseserver(char *sx, char **name, int *port)
+{
+    char    *save = strdup(sx);
+    char    *ptr;
+    if( (ptr = strstr(save, ":")) == NULL ){
+	*name = strdup(save);
+	*port = 25;
+    }
+    else{
+	*ptr = 0;
+	*name = strdup(save);
+	*port = atoi(ptr + 1);
+    }
+    free(save);
+}
+
+int main(int argc, char **argv, char **envp) {
+    int ch;
+ 
+    signal(SIGHUP, wakeup);
+    initsetproctitle(argc, argv, envp);
+    
+    if(chdir(BBSHOME))
+	return 1;
+    while((ch = getopt(argc, argv, "qhs:o:")) != -1) {
+	switch(ch) {
+	case 's':
+	    parseserver(optarg, &smtpname, &smtpport);
+	    break;
+	case 'o':
+	    parseserver(optarg, &hiname, &hiport);
+	    break;
+	case 'q':
+	    listQueue();
+	    return 0;
+	default:
+	    printf("usage:\toutmail [-qh] -s host[:port] [-o host[:port]]\n"
+		   "\t-q\tlistqueue\n"
+		   "\t-h\thelp\n"
+		   "\t-s\tset default smtp server to host[:port]\n"
+		   "\t-o\tset non-Tanet smtp server to host[:port]\n");
+	    return 0;
+	}
+    }
+
+    if( smtpname == NULL ){
+#ifdef RELAY_SERVER_IP
+	smtpname = RELAY_SERVER_IP;
+#else
+	smtpname = "127.0.0.1";
+#endif
+	smtpport = 25;
+    }
+
+    for(;;) {
+	sendMail();
+	setproctitle("outmail: sleeping");
+	sleep(60); /* send mail every minute */
+    }
+    return 0;
+}
diff --git a/pttbbs/util/parse_news.c b/pttbbs/util/parse_news.c
new file mode 100644
index 00000000..6ea75454
--- /dev/null
+++ b/pttbbs/util/parse_news.c
@@ -0,0 +1,69 @@
+/* $Id$ */
+#include "bbs.h"
+
+#define NEWSDIRECT  BBSHOME "/boards/n/newspaper"
+#define MOVIEDIRECT BBSHOME "/etc/NEWS"
+
+int main(int argc, char **argv)
+{
+    int fd;
+    fileheader_t fh, news;
+    struct stat st;
+    register int numfiles, n;
+    FILE *fp = NULL;
+    char buf[200];
+
+    if (stat(NEWSDIRECT "/.DIR", &st) < 0)
+	return 0;
+
+    system("rm -f " MOVIEDIRECT "/*");
+    system("rm -f " MOVIEDIRECT "/.DIR");
+
+    numfiles = st.st_size / sizeof(fileheader_t);
+    n = 0;
+    if ((fd = open(NEWSDIRECT "/.DIR", O_RDONLY)) > 0)
+    {
+	lseek(fd, st.st_size - sizeof(fileheader_t), SEEK_SET);
+	while (numfiles-- && n < 100)
+	{
+	    read(fd, &fh, sizeof(fileheader_t));
+	    if (!strcmp(fh.owner, "CNA-News."))
+	    {
+		if (!strstr(fh.title, "活動預告") && !strstr(fh.title, "中央氣象局")
+		    && !strstr(fh.title, "歷史上的今天") && !strstr(fh.title, "頭條新聞標題")
+		    && !strstr(fh.title, "Summary") && !strstr(fh.title, "全球氣象一覽")
+		    && !strstr(fh.title, "校正公電"))
+		{
+		    if (!(n % 10))
+		    {
+			if (n)
+			{
+			    fclose(fp);
+			    append_record(MOVIEDIRECT "/.DIR", &news, sizeof(news));
+			}
+			strcpy(buf, MOVIEDIRECT);
+			stampfile(buf, &news);
+			sprintf(news.title, "中央社即時新聞 %s", fh.date);
+			strcpy(news.owner, "CNA-News.");
+			if (!(fp = fopen(buf, "w")))
+			    return (0);
+			fprintf(fp, "        ───────── 中央社即時新聞 (%s)──────────\n",
+				fh.date);
+		    }
+		    fprintf(fp, "        ─────◇ [1;3%dm%s  %.*s\n",
+			    (n % 6 + 4) % 7 + 1, fh.title,
+			    (int)(46 - strlen(fh.title)),
+			    "───────────────────");
+		    n++;
+		    printf("[%d]\n", n);
+
+		}
+	    }
+	    lseek(fd, -(off_t) 2 * sizeof(fileheader_t), SEEK_CUR);
+	}
+	close(fd);
+	fclose(fp);
+	append_record(MOVIEDIRECT "/.DIR", &news, sizeof(news));
+    }
+    return 0;
+}
diff --git a/pttbbs/util/parsevar.pl b/pttbbs/util/parsevar.pl
new file mode 100644
index 00000000..fe2f2dc0
--- /dev/null
+++ b/pttbbs/util/parsevar.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+# $Id$
+print << '.';
+/*
+ * This header file is auto-generated from pttbbs/mbbsd/var.c .
+ * Please do NOT edit this file directly.
+ */
+
+#ifndef INCLUDE_VAR_H
+#define INCLUDE_VAR_H
+#include "bbs.h"
+.
+while( <> ){
+    if( /^\w/ ){
+	chomp;
+	$_ = substr($_, 0, index($_, '=') - 1) if( index($_, '=') != -1 );
+	$_ .= ';' if( index($_, ';') == -1 );
+	print "extern $_\n";
+    } elsif( /^\s*\#/ && !/include/ ){
+	print;
+    }
+}
+print "#endif /* INCLUDE_VAR_H */\n";
+
diff --git a/pttbbs/util/post.c b/pttbbs/util/post.c
new file mode 100644
index 00000000..c3af5269
--- /dev/null
+++ b/pttbbs/util/post.c
@@ -0,0 +1,58 @@
+/* $Id$ */
+#include "bbs.h"
+
+void keeplog(FILE *fin, char *fpath, char *board, char *title, char *owner) {
+    fileheader_t fhdr;
+    char genbuf[256], buf[512];
+    FILE *fout;
+    int bid;
+    
+    sprintf(genbuf, BBSHOME "/boards/%c/%s", board[0], board);
+    stampfile(genbuf, &fhdr);
+    
+    if(!(fout = fopen(genbuf, "w"))) {
+	perror(genbuf);
+	return;
+    }
+    
+    while(fgets(buf, 512, fin))
+	fputs(buf, fout);
+    
+    fclose(fin);
+    fclose(fout);
+    
+    strncpy(fhdr.title, title, sizeof(fhdr.title) - 1);
+    fhdr.title[sizeof(fhdr.title) - 1] = '\0';
+    
+    strcpy(fhdr.owner, owner);
+    sprintf(genbuf, BBSHOME "/boards/%c/%s/.DIR", board[0], board);
+    append_record(genbuf, &fhdr, sizeof(fhdr));
+    /* XXX: bid of cache.c's getbnum starts from 1 */
+    if((bid = getbnum(board)) > 0)
+	touchbtotal(bid);
+
+}
+
+int main(int argc, char **argv)
+{
+    FILE *fp;
+
+    attach_SHM();
+    resolve_boards();
+    if(argc != 5) {
+	printf("usage: %s <board name> <title> <owner> <file>\n", argv[0]);
+	return 0;
+    }
+    
+    if(strcmp(argv[4], "-") == 0)
+	fp = stdin;
+    else {
+	fp = fopen(argv[4], "r");
+	if(!fp) {
+	    perror(argv[4]);
+	    return 1;
+	}
+    }
+    keeplog(fp, argv[4], argv[1], argv[2], argv[3]);
+    return 0;
+}
diff --git a/pttbbs/util/poststat.c b/pttbbs/util/poststat.c
new file mode 100644
index 00000000..e46f77a2
--- /dev/null
+++ b/pttbbs/util/poststat.c
@@ -0,0 +1,355 @@
+/* $Id$ */
+/* 統計今日、週、月、年熱門話題 */
+
+#include "bbs.h"
+
+char *myfile[] =
+{"day", "week", "month", "year"};
+int mycount[4] =
+{7, 4, 12};
+int mytop[] =
+{10, 50, 100, 100};
+char *mytitle[] =
+{"日十", "週五十", "月百", "年度百"};
+
+
+#define HASHSIZE 1024
+#define TOPCOUNT 200
+
+
+struct postrec
+{
+    char author[13];		/* author name */
+    char board[13];		/* board name */
+    char title[66];		/* title name */
+    time_t date;		/* last post's date */
+    int number;			/* post number */
+    struct postrec *next;	/* next rec */
+}
+*bucket[HASHSIZE];
+
+
+/* 100 bytes */
+struct posttop
+{
+    char author[13];		/* author name */
+    char board[13];		/* board name */
+    char title[66];		/* title name */
+    time_t date;		/* last post's date */
+    int number;			/* post number */
+}
+top[TOPCOUNT], *tp;
+
+
+
+/*
+   woju
+   Cross-fs rename()
+ */
+
+int Rename(char *src, char *dst)
+{
+
+    if (rename(src, dst) == 0)
+	return 0;
+/*
+  sprintf(cmd, "/bin/mv %s %s", src, dst);
+  return system(cmd);
+*/
+    return 0;
+}
+
+int
+ci_strcmp(s1, s2)
+    register char *s1, *s2;
+{
+    register int c1, c2, diff;
+
+    do
+    {
+	c1 = *s1++;
+	c2 = *s2++;
+	if (c1 >= 'A' && c1 <= 'Z')
+	    c1 |= 32;
+	if (c2 >= 'A' && c2 <= 'Z')
+	    c2 |= 32;
+	if((diff = c1 - c2))
+	    return (diff);
+    }
+    while (c1);
+    return 0;
+}
+
+int
+hash(key)
+    char *key;
+{
+    int i, value = 0;
+
+    for (i = 0; key[i] && i < 80; i++)
+	value += key[i] < 0 ? -key[i] : key[i];
+
+    value = value % HASHSIZE;
+    return value;
+}
+
+
+/* ---------------------------------- */
+/* hash structure : array + link list */
+/* ---------------------------------- */
+
+
+void
+search(t)
+    struct posttop *t;
+{
+    struct postrec *p, *q, *s;
+    int i, found = 0;
+
+    i = hash(t->title);
+    q = NULL;
+    p = bucket[i];
+    while (p && (!found))
+    {
+	if (!strcmp(p->title, t->title) && !strcmp(p->board, t->board))
+	    found = 1;
+	else
+	{
+	    q = p;
+	    p = p->next;
+	}
+    }
+    if (found)
+    {
+	p->number += t->number;
+	if (p->date < t->date)	/* 取較近日期 */
+	    p->date = t->date;
+    }
+    else
+    {
+	s = (struct postrec *) malloc(sizeof(struct postrec));
+	memcpy(s, t, sizeof(struct posttop));
+	s->next = NULL;
+	if (q == NULL)
+	    bucket[i] = s;
+	else
+	    q->next = s;
+    }
+}
+
+
+int
+sort(pp, count)
+    struct postrec *pp;
+{
+    int i, j;
+
+    for (i = 0; i <= count; i++)
+    {
+	if (pp->number > top[i].number)
+	{
+	    if (count < TOPCOUNT - 1)
+		count++;
+	    for (j = count - 1; j >= i; j--)
+		memcpy(&top[j + 1], &top[j], sizeof(struct posttop));
+
+	    memcpy(&top[i], pp, sizeof(struct posttop));
+	    break;
+	}
+    }
+    return count;
+}
+
+
+void
+load_stat(fname)
+    char *fname;
+{
+    FILE *fp;
+
+    if((fp = fopen(fname, "r")))
+    {
+	int count = fread(top, sizeof(struct posttop), TOPCOUNT, fp);
+	fclose(fp);
+	while (count)
+	    search(&top[--count]);
+    }
+}
+
+
+int
+filter(board)
+    char *board;
+{
+    boardheader_t bh;
+    int bid;
+
+    /* XXX: bid of cache.c's getbnum starts from 1 */
+    bid = getbnum(board);
+    if (get_record(".BRD", &bh, sizeof(bh), bid) == -1)
+	return 1;
+    if (bh.brdattr & BRD_NOCOUNT || bh.brdattr & BRD_HIDE)
+	return 1;
+/*
+  if (bh.brdattr & BRD_POSTMASK)
+  return 0;
+  return (bh.brdattr & ~BRD_POSTMASK) ||
+  >= 32;
+*/
+    return 0;
+}
+
+
+void
+poststat(mytype)
+    int mytype;
+{
+    static char *logfile = ".post";
+    static char *oldfile = ".post.old";
+
+    FILE *fp;
+    char buf[40], curfile[40] = "etc/day.0", *p;
+    struct postrec *pp;
+    int i, j;
+
+    if (mytype < 0)
+    {
+	/* --------------------------------------- */
+	/* load .post and statictic processing     */
+	/* --------------------------------------- */
+
+	remove(oldfile);
+	Rename(logfile, oldfile);
+	if ((fp = fopen(oldfile, "r")) == NULL)
+	    return;
+	mytype = 0;
+	load_stat(curfile);
+
+	while (fread(top, sizeof(struct posttop), 1, fp))
+	    search(top);
+	fclose(fp);
+    }
+    else
+    {
+	/* ---------------------------------------------- */
+	/* load previous results and statictic processing */
+	/* ---------------------------------------------- */
+
+	i = mycount[mytype];
+	p = myfile[mytype];
+	while (i)
+	{
+	    sprintf(buf, "etc/%s.%d", p, i);
+	    sprintf(curfile, "etc/%s.%d", p, --i);
+	    load_stat(curfile);
+	    Rename(curfile, buf);
+	}
+	mytype++;
+    }
+
+/* ---------------------------------------------- */
+/* sort top 100 issue and save results            */
+/* ---------------------------------------------- */
+
+    memset(top, 0, sizeof(top));
+    for (i = j = 0; i < HASHSIZE; i++)
+    {
+	for (pp = bucket[i]; pp; pp = pp->next)
+	{
+#ifdef  DEBUG
+	    printf("Title : %s, Board: %s\nPostNo : %d, Author: %s\n"
+		   ,pp->title
+		   ,pp->board
+		   ,pp->number
+		   ,pp->author);
+#endif
+
+	    j = sort(pp, j);
+	}
+    }
+
+    p = myfile[mytype];
+    sprintf(curfile, "etc/%s.0", p);
+    if((fp = fopen(curfile, "w")))
+    {
+	fwrite(top, sizeof(struct posttop), j, fp);
+	fclose(fp);
+    }
+
+    sprintf(curfile, "etc/%s", p);
+    if((fp = fopen(curfile, "w")))
+    {
+	int max, cnt;
+
+	fprintf(fp, "\t\t-----===== 本%s大熱門話題 =====-----\n\n", mytitle[mytype]);
+
+	max = mytop[mytype];
+	p = buf + 4;
+	for (i = cnt = 0; (cnt < max) && (i < j); i++)
+	{
+	    tp = &top[i];
+	    if (filter(tp->board))
+		continue;
+
+	    strcpy(buf, ctime(&(tp->date)));
+	    buf[20] = 0;
+	    fprintf(fp,
+		    "%3d. 看板 : %-16s《 %s》%4d 篇%16s\n"
+		    "     標題 : %-60.60s\n"
+		    ,++cnt, tp->board, p, tp->number, tp->author, tp->title);
+	}
+	fclose(fp);
+    }
+
+/* free statistics */
+
+    for (i = 0; i < HASHSIZE; i++)
+    {
+	struct postrec *pp0;
+
+	pp = bucket[i];
+	while (pp)
+	{
+	    pp0 = pp;
+	    pp = pp->next;
+	    free(pp0);
+	}
+
+	bucket[i] = NULL;
+    }
+}
+
+
+int main(argc, argv)
+    char *argv[];
+{
+    time_t now;
+    struct tm *ptime;
+
+    attach_SHM();
+    if (argc < 2)
+    {
+	printf("Usage:\t%s bbshome [day]\n", argv[0]);
+	return (-1);
+    }
+    chdir(argv[1]);
+
+    if (argc == 3)
+    {
+	poststat(atoi(argv[2]));
+	return (0);
+    }
+    time(&now);
+    ptime = localtime(&now);
+    if (ptime->tm_hour == 0)
+    {
+	if (ptime->tm_mday == 1)
+	    poststat(2);
+
+	if (ptime->tm_wday == 0)
+	    poststat(1);
+	poststat(0);
+    }
+    poststat(-1);
+    return 0;
+}
diff --git a/pttbbs/util/railway_wrapper.pl b/pttbbs/util/railway_wrapper.pl
new file mode 100755
index 00000000..b6885173
--- /dev/null
+++ b/pttbbs/util/railway_wrapper.pl
@@ -0,0 +1,119 @@
+#!/usr/bin/perl
+#
+# 您可以使用這個檔案應付鐵路局網址的異動
+# 或是以擅於字串處理的 perl 修正以下程式碼 :)
+#
+#VictorHsieh 2003.02.11
+
+use lib '/home/bbs/bin';
+use LocalVars;
+use vars qw/ %opt %station_num @arg $command $addr/;
+use strict;
+
+$addr = "http://passenger.tra.gov.tw/ap/index.asp";
+
+@arg = split ' ', <STDIN>;
+map { /(.+)=(.+)/ and $opt{$1} = $2 } grep /.+=.+/, @arg;
+
+station_init();
+translate();
+
+$command = "MIval=Train_Time&encode=Big5&action=on";
+map { $command .= "&$_=$opt{$_}"} keys %opt;
+exec "$LYNX -dump -assume_charset=big5 -nolist \"$addr?$command\"";
+
+# 將 page.c 中的格式轉為鐵路局所使用的格式
+sub translate{
+	change_opt('from-station', 'Station1');
+	change_opt('to-station', 'Station2');
+	change_opt('from-time', 'From_Time');
+	change_opt('to-time', 'To_Time');
+	change_opt('type', 'Type');
+	change_opt('tt', 'Time');
+	change_opt('date','Departure_Date');
+	change_opt('path', 'line');
+}
+
+# 轉換參數的表示法
+sub change_opt{
+	my ($old, $new) = @_;
+	if(defined $opt{$old}){
+		if( $old =~ /station/ ){
+			$opt{$old} = $station_num{$opt{$old}};
+		}
+		elsif( $old =~ /type/ ){
+			$opt{$old} = ($opt{$old} eq 'fast')? 'F' : 'S';
+		}
+		elsif( $old =~ /tt/ ){
+			$opt{$old} = ($opt{$old} eq 'start')? 'D' : 'A';
+		}
+		elsif( $old =~ /date/ ){
+			my ($sec, $min, $hour, $mday, $mon, $year) = gmtime;
+			$mday = $mday + $opt{$old};
+			$mon++;
+			$opt{$old} = join '/',
+				($year+1900,
+				($mon>9)? $mon : "0$mon",
+				($mday>9)? $mday : "0$mday");
+		}
+		elsif( $old =~ /path/ ){
+			my @line = qw/ mainwest maineast mainsouth pin innerbay gg/;
+			$opt{$old} = $line[$opt{$old}-1];
+		}
+
+		$opt{$new} = $opt{$old} and delete $opt{$old};
+	}
+}
+
+# 各站代碼對應
+sub station_init{
+	%station_num = (
+		"基隆" => 1001, "八堵" => 1002, "七堵" => 1003, "五堵" => 1004,
+		"汐止" => 1005, "南港" => 1006, "松山" => 1007, "台北" => 1008,
+		"萬華" => 1009, "板橋" => 1011, "樹林" => 1012, "山佳" => 1013,
+		"鶯歌" => 1014, "桃園" => 1015, "內壢" => 1016, "中壢" => 1017,
+		"埔心" => 1018, "楊梅" => 1019, "富岡" => 1020, "湖口" => 1021,
+		"新豐" => 1022, "竹北" => 1023, "新竹" => 1025, "香山" => 1026,
+		"崎頂" => 1027, "竹南" => 1028, "談文" => 1102, "大山" => 1104,
+		"後龍" => 1105, "龍港" => 1106, "白沙屯" => 1107, "新埔" => 1108,
+		"通霄" => 1109, "苑裡" => 1110, "日南" => 1111, "大甲" => 1112,
+		"臺中港" => 1113, "清水" => 1114, "沙鹿" => 1115, "龍井" => 1116,
+		"大肚" => 1117, "追分" => 1118, "彰化" => 1120, "花壇" => 1202,
+		"員林" => 1203, "永靖" => 1204, "社頭" => 1205, "田中" => 1206,
+		"二水" => 1207, "林內" => 1208, "石榴" => 1209, "斗六" => 1210,
+		"斗南" => 1211, "石龜" => 1212, "大林" => 1213, "民雄" => 1214,
+		"嘉義" => 1215, "水上" => 1217, "南靖" => 1218, "後壁" => 1219,
+		"新營" => 1220, "柳營" => 1221, "林鳳營" => 1222, "隆田" => 1223,
+		"拔林" => 1224, "善化" => 1225, "新市" => 1226, "永康" => 1227,
+		"台南" => 1228, "保安" => 1229, "中洲" => 1230, "大湖" => 1231,
+		"路竹" => 1232, "岡山" => 1233, "橋頭" => 1234, "楠梓" => 1235,
+		"左營" => 1236, "高雄" => 1238, "大橋" => 1239, "造橋" => 1302,
+		"豐富" => 1304, "苗栗" => 1305, "南勢" => 1307, "銅鑼" => 1308,
+		"三義" => 1310, "泰安" => 1314, "后里" => 1315, "豐原" => 1317,
+		"潭子" => 1318, "台中" => 1319, "烏日" => 1320, "成功\" => 1321,
+		"大慶" => 1322, "太原" => 1323, "鳳山" => 1402, "後庄" => 1403,
+		"九曲堂" => 1404, "六塊厝" => 1405, "屏東" => 1406, "吉安" => 1602,
+		"志學" => 1604, "平和" => 1605, "壽豐" => 1606, "豐田" => 1607,
+		"溪口" => 1608, "南平" => 1609, "鳳林" => 1610, "萬榮" => 1611,
+		"光復" => 1612, "大富" => 1613, "富源" => 1614, "瑞北" => 1615,
+		"瑞穗" => 1616, "三民" => 1617, "玉里" => 1619, "安通" => 1620,
+		"東里" => 1621, "東竹" => 1622, "富里" => 1623, "池上" => 1624,
+		"海瑞" => 1625, "關山" => 1626, "月美" => 1627, "瑞和" => 1628,
+		"瑞源" => 1629, "鹿野" => 1630, "山里" => 1631, "台東" => 1632,
+		"永樂" => 1703, "東澳" => 1704, "南澳" => 1705, "武塔" => 1706,
+		"漢本" => 1708, "和平" => 1709, "和仁" => 1710, "崇德" => 1711,
+		"新城" => 1712, "景美" => 1713, "北埔" => 1714, "花蓮" => 1715,
+		"暖暖" => 1802, "四腳亭" => 1803, "瑞芳" => 1804, "侯硐" => 1805,
+		"三貂嶺" => 1806, "牡丹" => 1807, "雙溪" => 1808, "貢寮" => 1809,
+		"福隆" => 1810, "石城" => 1811, "大里" => 1812, "大溪" => 1813,
+		"龜山" => 1814, "外澳" => 1815, "頭城" => 1816, "頂埔" => 1817,
+		"礁溪" => 1818, "四城" => 1819, "宜蘭" => 1820, "二結" => 1821,
+		"中里" => 1822, "羅東" => 1823, "冬山" => 1824, "新馬" => 1825,
+		"蘇澳新站" => 1826, "蘇澳" => 1827, "大華" => 1903, "十分" => 1904,
+		"望古" => 1905, "嶺腳" => 1906, "平溪" => 1907, "菁桐 " => 1908,
+		"竹中" => 2203, "上員" => 2204, "竹東" => 2205, "橫山" => 2206,
+		"九讚頭" => 2207, "合興" => 2208, "南河" => 2209, "內灣" => 2210,
+		"榮華" => 2211, "源泉" => 2702, "濁水" => 2703, "龍泉" => 2704,
+		"集集" => 2705, "水里" => 2706, "車埕" => 2707,
+	);
+}
diff --git a/pttbbs/util/reaper.c b/pttbbs/util/reaper.c
new file mode 100644
index 00000000..03f7a694
--- /dev/null
+++ b/pttbbs/util/reaper.c
@@ -0,0 +1,61 @@
+/* $Id$ */
+#define _UTIL_C_
+#include "bbs.h"
+
+time_t now;
+
+int invalid(char *userid) {
+    int i;
+    
+    if(!isalpha(userid[0]))
+	return 1;
+    
+    for(i = 1; i < IDLEN && userid[i]; i++)
+	if(!isalpha(userid[i]) && !isdigit(userid[i]))
+	    return 1;
+    return 0;
+}
+
+int check(int n, userec_t *u) {
+    time_t d;
+    char buf[256];
+    
+    if(u->userid[0] != '\0') {
+	if(invalid(u->userid)) {
+	    syslog(LOG_ERR, "bad userid(%d): %s", n, u->userid);
+	    u->userid[0] = '\0';
+	} else {
+	    d = now - u->lastlogin;
+	    if((d > MAX_GUEST_LIFE && (u->userlevel & PERM_LOGINOK) == 0) ||
+	       (d > MAX_LIFE && (u->userlevel & PERM_XEMPT) == 0)) {
+		/* expired */
+		int unum;
+		
+		unum = searchuser(u->userid);
+		strcpy(buf, ctime(&u->lastlogin));
+		strtok(buf, "\n");
+		syslog(LOG_NOTICE, "kill user(%d): %s %s", unum, u->userid, buf);
+		sprintf(buf, "mv home/%c/%s tmp/", u->userid[0], u->userid);
+		if(system(buf))
+		    syslog(LOG_ERR, "can't move user home: %s", u->userid);
+		u->userid[0] = '\0';
+		setuserid(unum, u->userid);
+	    }
+	}
+    }
+    return 0;
+}
+
+int main(int argc, char **argv)
+{
+    now = time(NULL);
+    openlog("reaper", LOG_PID | LOG_PERROR, SYSLOG_FACILITY);
+    chdir(BBSHOME);
+
+    attach_SHM();
+    if(passwd_init())
+	exit(1);
+    passwd_apply2(check);
+    
+    return 0;
+}
diff --git a/pttbbs/util/rebuildaloha.pl b/pttbbs/util/rebuildaloha.pl
new file mode 100644
index 00000000..c8262e41
--- /dev/null
+++ b/pttbbs/util/rebuildaloha.pl
diff --git a/pttbbs/util/rmuid.c b/pttbbs/util/rmuid.c
new file mode 100644
index 00000000..01898721
--- /dev/null
+++ b/pttbbs/util/rmuid.c
@@ -0,0 +1,43 @@
+/* $Id$ */
+#include "bbs.h"
+
+extern int numboards;
+extern boardheader_t *bcache;
+
+int getbidofuid(int uid)
+{
+  register int n; boardheader_t *bh;
+ if(!uid) return 1;
+ for (n=0;n<numboards;n++)
+    { 
+	bh = &bcache[n]; 
+	if(bh->unused == uid)
+		 return n+1;
+    }
+ return 1;
+}
+
+int main(int argc, char* argv[])
+{
+    //struct stat  st;
+    int n;
+    boardheader_t bh;
+    //char pathname[1024];
+
+    attach_SHM();
+    resolve_boards();
+    for (n=0;n<numboards;n++){
+	memcpy( &bh, &bcache[n], sizeof(bh));
+	bh.gid=getbidofuid(bh.gid);
+	//printf("%14.14s%14.14s \r\n",bh.brdname, bh.title);
+	substitute_record("BOARDS.bid", &bh, sizeof(bh), n+1);
+    }
+    return 0;
+}
+
+
+
+
+
+
+
diff --git a/pttbbs/util/shmctl.c b/pttbbs/util/shmctl.c
new file mode 100644
index 00000000..750f0763
--- /dev/null
+++ b/pttbbs/util/shmctl.c
@@ -0,0 +1,577 @@
+/* $Id$ */
+#include "bbs.h"
+#include <sys/wait.h>
+
+extern SHM_t   *SHM;
+
+/* utmpfix ----------------------------------------------------------------- */
+int logout_friend_online(userinfo_t *utmp)
+{
+    int i, j, k;
+    int offset=(int) (utmp - &SHM->uinfo[0]);
+    userinfo_t *ui;
+    while(utmp->friendtotal){
+	if( !(0 <= utmp->friendtotal && utmp->friendtotal < MAX_FRIEND) )
+	    return 1;
+	i = utmp->friendtotal-1;
+	j = (utmp->friend_online[i] & 0xFFFFFF);
+	if( !(0 <= j && j < MAX_ACTIVE) )
+	    printf("\tonline friend error(%d)\n", j);
+	else{
+	    utmp->friend_online[i]=0;
+	    ui = &SHM->uinfo[j]; 
+	    if(ui->pid && ui!=utmp){
+		for(k=0; k<ui->friendtotal && 
+			(int)(ui->friend_online[k] & 0xFFFFFF) !=offset; k++);
+		if(k<ui->friendtotal){
+		    ui->friendtotal--;
+		    ui->friend_online[k]=ui->friend_online[ui->friendtotal];
+		    ui->friend_online[ui->friendtotal]=0;
+		}
+	    }
+	}
+	utmp->friendtotal--;
+	utmp->friend_online[utmp->friendtotal]=0;
+    }
+    return 0;
+}
+
+void purge_utmp(userinfo_t *uentp)
+{
+    logout_friend_online(uentp);
+    //memset(uentp, 0, sizeof(userinfo_t));
+}
+
+typedef struct {
+    int     index;
+    int     idle;
+} IDLE_t;
+
+int sfIDLE(const void *a, const void *b)
+{
+    return ((IDLE_t *)b)->idle - ((IDLE_t *)a)->idle;
+}
+
+int utmpfix(int argc, char **argv)
+{
+    int     i, fast = 0, lowerbound = 100, nownum = SHM->UTMPnumber;
+    int     which, nactive = 0;
+    time_t  now, timeout = -1;
+    char    *clean, buf[1024], ch;
+    IDLE_t  idle[USHM_SIZE];
+    char    changeflag = 0;
+
+    while( (ch = getopt(argc, argv, "nt:l:")) != -1 )
+	switch( ch ){
+	case 'n':
+	    fast = 1;
+	    break;
+	case 't':
+	    timeout = atoi(optarg);
+	    break;
+	case 'l':
+	    lowerbound = atoi(optarg);
+	    break;
+	default:
+	    printf("usage:\tshmctl\tutmpfix [-n] [-t timeout]\n");
+	    return 1;
+	}
+
+    for( i = 0 ; i < 5 ; ++i )
+	if( !SHM->UTMPbusystate )
+	    break;
+	else{
+	    puts("utmpshm is busy....");
+	    sleep(1);
+	}
+
+    SHM->UTMPbusystate = 1;
+    printf("starting scaning... %s \n", (fast ? "(fast mode)" : ""));
+#ifdef OUTTA_TIMER
+    now = SHM->GV2.e.now;
+#else
+    time(&now);
+#endif
+    for( i = 0, nactive = 0 ; i < USHM_SIZE ; ++i )
+	if( SHM->uinfo[i].pid ){
+	    idle[nactive].index = i;
+	    idle[nactive].idle = now - SHM->uinfo[i].lastact;
+	    ++nactive;
+	}
+    if( !fast )
+	qsort(idle, nactive, sizeof(IDLE_t), sfIDLE);
+
+    for( i = 0 ; i < nactive ; ++i ){
+	which = idle[i].index;
+	clean = NULL;
+	if( !isalpha(SHM->uinfo[which].userid[0]) )
+	    clean = "userid error";
+	else if( kill(SHM->uinfo[which].pid, 0) < 0 ){
+	    clean = "process error";
+	    purge_utmp(&SHM->uinfo[which]);
+	}
+	else if( searchuser(SHM->uinfo[which].userid) == 0 ){
+	    clean = "user not exist";
+	}
+#ifdef DOTIMEOUT
+	else if( !fast ){
+	    if( nownum > lowerbound &&
+		idle[i].idle > 
+		(timeout == -1 ? IDLE_TIMEOUT : timeout) ){
+		sprintf(buf, "timeout(%s",
+			ctime(&SHM->uinfo[which].lastact));
+		buf[strlen(buf) - 1] = 0;
+		strcat(buf, ")");
+		clean = buf;
+		kill(SHM->uinfo[which].pid, SIGHUP);
+		printf("%s\n", buf);
+		--nownum;
+		continue;
+	    }
+	}
+#endif
+	
+	if( clean ){
+	    printf("clean %06d(%s), userid: %s\n",
+		   i, clean, SHM->uinfo[which].userid);
+	    memset(&SHM->uinfo[which], 0, sizeof(userinfo_t));
+	    --nownum;
+	    changeflag = 1;
+	}
+    }
+    SHM->UTMPbusystate = 0;
+    if( changeflag )
+	SHM->UTMPneedsort = 1;
+    return 0;
+}
+/* end of utmpfix ---------------------------------------------------------- */
+
+/* utmpsortd --------------------------------------------------------------- */
+static int
+cmputmpuserid(const void *i, const void *j)
+{
+    return strcasecmp((*((userinfo_t **) i))->userid, (*((userinfo_t **) j))->userid);
+}
+
+static int
+cmputmpmode(const void *i, const void *j)
+{
+    return (*((userinfo_t **) i))->mode - (*((userinfo_t **) j))->mode;
+}
+
+static int
+cmputmpidle(const void *i, const void *j)
+{
+    return (*((userinfo_t **) i))->lastact - (*((userinfo_t **) j))->lastact;
+}
+
+static int
+cmputmpfrom(const void *i, const void *j)
+{
+    return strcasecmp((*((userinfo_t **) i))->from, (*((userinfo_t **) j))->from);
+}
+
+static int
+cmputmpfive(const void *i, const void *j)
+{
+    int             type;
+    if ((type = (*((userinfo_t **) j))->five_win - (*((userinfo_t **) i))->five_win))
+	return type;
+    if ((type = (*((userinfo_t **) i))->five_lose - (*((userinfo_t **) j))->five_lose))
+	return type;
+    return (*((userinfo_t **) i))->five_tie - (*((userinfo_t **) j))->five_tie;
+}
+
+static int
+cmputmpchc(const void *i, const void *j)
+{
+    int             type;
+    if ((type = (*((userinfo_t **) j))->chc_win - (*((userinfo_t **) i))->chc_win))
+	return type;
+    if ((type = (*((userinfo_t **) i))->chc_lose - (*((userinfo_t **) j))->chc_lose))
+	return type;
+    return (*((userinfo_t **) i))->chc_tie - (*((userinfo_t **) j))->chc_tie;
+}
+
+static int
+cmputmppid(const void *i, const void *j)
+{
+    return (*((userinfo_t **) i))->pid - (*((userinfo_t **) j))->pid;
+}
+
+static int
+cmputmpuid(const void *i, const void *j)
+{
+    return (*((userinfo_t **) i))->uid - (*((userinfo_t **) j))->uid;
+}
+
+inline void utmpsort(void)
+{
+    userinfo_t     *uentp;
+    int             count, i, ns;
+    short           nusers[MAX_BOARD];
+
+    SHM->UTMPbusystate = 1;
+#ifdef OUTTA_TIMER
+    SHM->UTMPuptime = SHM->GV2.e.now;
+#else
+    SHM->UTMPuptime = time(NULL);
+#endif
+    ns = (SHM->currsorted ? 0 : 1);
+
+    for (uentp = &SHM->uinfo[0], count = i = 0;
+	 i < USHM_SIZE;
+	 ++i, uentp = &SHM->uinfo[i]) {
+	if (uentp->pid) {
+	    if (uentp->sex < 0 || uentp->sex > 7)
+		purge_utmp(uentp);
+	    else
+		SHM->sorted[ns][0][count++] = uentp;
+	}
+    }
+    SHM->UTMPnumber = count;
+    qsort(SHM->sorted[ns][0], count, sizeof(userinfo_t *), cmputmpuserid);
+    for (i = 0; i < count; ++i)
+	((userinfo_t *) SHM->sorted[ns][0][i])->idoffset = i;
+    memcpy(SHM->sorted[ns][1], SHM->sorted[ns][0], sizeof(userinfo_t *) * count);
+    memcpy(SHM->sorted[ns][2], SHM->sorted[ns][0], sizeof(userinfo_t *) * count);
+    memcpy(SHM->sorted[ns][3], SHM->sorted[ns][0], sizeof(userinfo_t *) * count);
+    memcpy(SHM->sorted[ns][4], SHM->sorted[ns][0], sizeof(userinfo_t *) * count);
+    memcpy(SHM->sorted[ns][5], SHM->sorted[ns][0], sizeof(userinfo_t *) * count);
+    memcpy(SHM->sorted[ns][6], SHM->sorted[ns][0], sizeof(userinfo_t *) * count);
+    memcpy(SHM->sorted[ns][7], SHM->sorted[ns][0], sizeof(userinfo_t *) * count);
+    qsort(SHM->sorted[ns][1], count, sizeof(userinfo_t *), cmputmpmode);
+    qsort(SHM->sorted[ns][2], count, sizeof(userinfo_t *), cmputmpidle);
+    qsort(SHM->sorted[ns][3], count, sizeof(userinfo_t *), cmputmpfrom);
+    qsort(SHM->sorted[ns][4], count, sizeof(userinfo_t *), cmputmpfive);
+    qsort(SHM->sorted[ns][5], count, sizeof(userinfo_t *), cmputmpchc);
+    qsort(SHM->sorted[ns][6], count, sizeof(userinfo_t *), cmputmpuid);
+    qsort(SHM->sorted[ns][7], count, sizeof(userinfo_t *), cmputmppid);
+    SHM->currsorted = ns;
+    SHM->UTMPbusystate = 0;
+
+    memset(nusers, 0, sizeof(nusers));
+    for (i = 0; i < count; ++i) {
+	uentp = SHM->sorted[ns][0][i];
+	if (uentp && uentp->pid &&
+	    0 < uentp->brc_id && uentp->brc_id < MAX_BOARD)
+	    ++nusers[uentp->brc_id - 1];
+    }
+    for (i = 0; i < SHM->Bnumber; ++i)
+	if (SHM->bcache[i].brdname[0] != 0)
+	    SHM->bcache[i].nuser = nusers[i];
+}
+
+int utmpsortd(int argc, char **argv)
+{
+    pid_t   pid;
+    int     interval; // sleep interval in microsecond(1/10**6)
+
+    if( fork() > 0 ){
+	puts("sortutmpd daemonized...");
+	return 0;
+    }
+
+    setproctitle("shmctl utmpsortd");
+    if( argc != 2 || (interval = atoi(argv[1])) < 500000 )
+	interval = 1000000; // default to 1 sec
+
+    while( 1 ){
+	if( (pid = fork()) != 0 ){
+	    int     s;
+	    waitpid(pid, &s, 0);
+	}
+	else{
+	    while( 1 ){
+		int     i;
+		for( i = 0 ; SHM->UTMPbusystate && i < 5 ; ++i )
+		    usleep(300000);
+
+		if( SHM->UTMPneedsort )
+		    utmpsort();
+
+		usleep(interval);
+	    }
+	}
+    }
+}
+/* end of utmpsortd -------------------------------------------------------- */
+
+char *CTIMEx(char *buf, time_t t)
+{
+    strcpy(buf, ctime(&t));
+    buf[strlen(buf) - 1] = 0;
+    return buf;
+}
+
+int utmpstatus(int argc, char **argv)
+{
+    time_t  now;
+    char    upbuf[64], nowbuf[64];
+#ifdef OUTTA_TIMER
+    now = SHM->GV2.e.now;
+#else
+    now = time(NULL);
+#endif
+    CTIMEx(upbuf,  SHM->UTMPuptime);
+    CTIMEx(nowbuf, now);
+    printf("now:        %s\n", nowbuf);
+    printf("currsorted: %d\n", SHM->currsorted);
+    printf("uptime:     %s\n", upbuf);
+    printf("number:     %d\n", SHM->UTMPnumber);
+    printf("busystate:  %d\n", SHM->UTMPbusystate);
+    return 0;
+}
+
+int utmpreset(int argc, char **argv)
+{
+    SHM->UTMPbusystate=0;
+    utmpstatus(0, NULL);
+    return 0;
+}
+
+#define TIMES	10
+int utmpwatch(int argc, char **argv)
+{
+    int     i;
+    while( 1 ){
+	for( i = 0 ; i < TIMES ; ++i ){
+	    usleep(300);
+	    if( !SHM->UTMPbusystate )
+		break;
+	    puts("busying...");
+	}
+	if( i == TIMES ){
+	    puts("reset!");
+	    SHM->UTMPbusystate = 0;
+	}
+    }
+    return 0;
+}
+
+int utmpnum(int argc, char **argv)
+{
+    printf("%d.0\n", SHM->UTMPnumber);
+    return 0;
+}
+
+char    *GV2str[] = {"dymaxactive", "toomanyusers",
+		     "noonlineuser", NULL};
+int showglobal(int argc, char **argv)
+{
+    int     i;
+    for( i = 0 ; i < 10 ; ++i )
+	printf("GLOBALVAR[%d] = %d\n", i, SHM->GLOBALVAR[i]);
+    for( i = 0 ; GV2str[i] != NULL ; ++i )
+	printf("GV2.%s = %d\n", GV2str[i], SHM->GV2.v[i]);
+    return 0;
+}
+
+int setglobal(int argc, char **argv)
+{
+    int     where, value;
+    if( argc != 3 ){
+	puts("usage: shmctl setglobal ([0-9]|GV2) newvalue");
+	return 1;
+    }
+    where = argv[1][0] - '0';
+    value = atoi(argv[2]);
+
+    if( 0 <= where && where <= 9 ){
+	printf("GLOBALVAR[%d] = %d -> ", where, SHM->GLOBALVAR[where]);
+	printf("%d\n", SHM->GLOBALVAR[where] = value);
+	return 0;
+    }
+    else{
+	for( where = 0 ; GV2str[where] != NULL ; ++where )
+	    if( strcmp(GV2str[where], argv[1]) == 0 ){
+		printf("GV2.%s = %d -> ", GV2str[where], SHM->GV2.v[where]);
+		printf("%d\n", SHM->GV2.v[where] = value);
+		return 0;
+	    }
+    }
+    printf("GLOBALVAR %s not found\n", argv[1]);
+
+    return 1;
+}
+
+int listpid(int argc, char **argv)
+{
+    int     i;
+    for( i = 0 ; i < USHM_SIZE ; ++i )
+	if( SHM->uinfo[i].pid > 0 )
+	    printf("%d\n", SHM->uinfo[i].pid);
+    return 0;
+}
+
+int listbrd(int argc, char **argv)
+{
+    int     i, ch;
+    int     noHidden = 0;
+
+    while( (ch = getopt(argc, argv, "hn")) != -1 )
+	switch( ch ){
+	case 'n':
+	    noHidden = 1;
+	    break;
+	case 'h':
+	default:
+	    printf("usage:\tshmctl\tlistbrd [-n]\n"
+		   "\t-n no hidden board\n");
+	    return 0;
+	}
+
+    for( i = 0 ; i < MAX_BOARD ; ++i )
+	if( bcache[i].brdname[0] && !(bcache[i].brdattr & BRD_GROUPBOARD) &&
+	    (!noHidden ||
+	     !((bcache[i].brdattr & BRD_HIDE) ||
+	       (bcache[i].level && !(bcache[i].brdattr & BRD_POSTMASK) &&
+		(bcache[i].level & 
+		 ~(PERM_BASIC|PERM_CHAT|PERM_PAGE|PERM_POST|PERM_LOGINOK))))) )
+	    printf("%s\n", bcache[i].brdname);
+    return 0;
+}
+
+#ifdef OUTTA_TIMER
+int timed(int argc, char **argv)
+{
+    pid_t   pid;
+    if( (pid = fork()) < 0 )
+	perror("fork()");
+    if( pid != 0 )
+	return 0;
+    setproctitle("shmctl timed");
+    while( 1 ){
+	SHM->GV2.e.now = time(NULL);
+	sleep(1);
+    }
+}
+#endif
+
+#if 0
+void buildclass(int bid, int level)
+{
+    boardheader_t  *bptr;
+    if( level == 20 ){ /* for safty */
+	printf("is there something wrong? class level: %d\n", level);
+	return;
+    }
+    bptr = &bcache[bid];
+    if (bptr->firstchild[0] == NULL || bptr->childcount <= 0)
+        load_uidofgid(bid + 1, 1); /* 因為這邊 bid從 0開始, 所以再 +1 回來 */
+    if (bptr->firstchild[1] == NULL || bptr->childcount <= 0)
+        load_uidofgid(bid + 1, 1); /* 因為這邊 bid從 0開始, 所以再 +1 回來 */
+
+    for (bptr = bptr->firstchild[0]; bptr != NULL ; bptr = bptr->next[0]) {
+	if( bptr->brdattr & BRD_GROUPBOARD )
+            buildclass(bptr - bcache, level + 1);
+    }
+}
+#endif
+
+int bBMC(int argc, char **argv)
+{
+    int     i;
+    for( i = 0 ; i < MAX_BOARD ; ++i )
+	if( bcache[i].brdname[0] )
+	    buildBMcache(i + 1); /* XXXbid */
+    return 0;
+}
+
+int SHMinit(int argc, char **argv)
+{
+    int     ch;
+    int     no_uhash_loader = 0;
+    while( (ch = getopt(argc, argv, "n")) != -1 )
+	switch( ch ){
+	case 'n':
+	    no_uhash_loader = 1;
+	    break;
+	default:
+	    printf("usage:\tshmctl\tSHMinit\n");
+	    return 0;
+	}
+
+    puts("loading uhash...");
+    system("bin/uhash_loader");
+
+    attach_SHM();
+
+    puts("loading bcache...");
+    reload_bcache();
+
+    puts("building BMcache...");
+    bBMC(1, NULL);
+
+#if 0
+    puts("building class...");
+    buildclass(0, 0);
+#endif
+
+    if( !no_uhash_loader ){
+	puts("utmpsortd...");
+	utmpsortd(1, NULL);
+    }
+
+#ifdef OUTTA_TIMER
+    puts("timed...");
+    timed(1, NULL);
+#endif
+    return 0;
+}
+
+struct {
+    int     (*func)(int, char **);
+    char    *cmd, *descript;
+} cmd[] =
+    { {utmpfix,    "utmpfix",    "clear dead userlist entry"},
+      {utmpsortd,  "utmpsortd",  "utmp sorting daemon"},
+      {utmpstatus, "utmpstatus", "list utmpstatus"},
+      {utmpreset,  "utmpreset",  "SHM->busystate=0"},
+      {utmpwatch,  "utmpwatch",  "to see if busystate is always 1 then fix it"},
+      {utmpnum,    "utmpnum",    "print SHM->number for snmpd"},
+      {showglobal, "showglobal", "show GLOBALVAR[]"},
+      {setglobal,  "setglobal",  "set GLOBALVAR[]"},
+      {listpid,    "listpid",    "list all pids of mbbsd"},
+      {listbrd,    "listbrd",    "list board info in SHM"},
+#ifdef OUTTA_TIMER
+      {timed,      "timed",      "time daemon for OUTTA_TIMER"},
+#endif
+      {bBMC,       "bBMC",       "build BM cache"},
+      {SHMinit,    "SHMinit",    "initialize SHM (including uhash_loader)"},
+      {NULL, NULL, NULL} };
+
+extern char ** environ;
+
+int main(int argc, char **argv)
+{
+    int     i = 0;
+	
+    chdir(BBSHOME);
+    initsetproctitle(argc, argv, environ);
+    if( argc >= 2 ){
+	if( strcmp(argv[1], "init") == 0 ){
+	    /* in this case, do NOT run attach_SHM here.
+	       because uhash_loader is not run yet.      */
+	    return SHMinit(argc - 1, &argv[1]);
+	}
+
+	attach_SHM();
+	/* shmctl doesn't need resolve_boards() first */
+	//resolve_boards();
+	resolve_garbage();
+	resolve_fcache();
+	for( i = 0 ; cmd[i].func != NULL ; ++i )
+	    if( strcmp(cmd[i].cmd, argv[1]) == 0 ){
+		return cmd[i].func(argc - 1, &argv[1]);
+	    }
+    }
+    if( argc == 1 || cmd[i].func == NULL ){
+	/* usage */
+	printf("usage: bbsctl [command] [options]\n");
+	printf("commands:\n");
+	for( i = 0 ; cmd[i].func != NULL ; ++i )
+	    printf("\t%-15s%s\n", cmd[i].cmd, cmd[i].descript);
+    }
+    return 0;
+}
diff --git a/pttbbs/util/shmsweep.c b/pttbbs/util/shmsweep.c
new file mode 100644
index 00000000..94d5291a
--- /dev/null
+++ b/pttbbs/util/shmsweep.c
@@ -0,0 +1,45 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/stat.h>
+#include "config.h"
+#include "pttstruct.h"
+
+int main() {
+#if 0
+    int i, shm, counter;
+    struct utmpfile_t *utmpshm;
+
+    
+    shm = shmget(UTMPSHM_KEY, USHM_SIZE, SHM_R | SHM_W);
+    if(shm == -1) {
+	perror("shmget");
+	exit(0);
+    }
+    
+    utmpshm = shmat(shm, NULL, 0);
+    if(utmpshm == (struct utmpfile_t *)-1) {
+	perror("shmat");
+	exit(0);
+    }
+    
+    for(i = counter = 0; i < USHM_SIZE; i++)
+	if(SHM->uinfo[i].pid) {
+	    char buf[256];
+	    userinfo_t *f;
+	    struct stat sb;
+		
+	    f = &utmpshm->uinfo[i];
+	    sprintf(buf, "/proc/%d", f->pid);
+	    if(stat(buf, &sb)) {
+		f->pid = 0;
+		utmpshm->number--;
+		counter++;
+	    }
+	}
+    printf("clear %d slots\n", counter);
+#endif
+    return 0;
+}
diff --git a/pttbbs/util/showboard.c b/pttbbs/util/showboard.c
new file mode 100644
index 00000000..7dee4002
--- /dev/null
+++ b/pttbbs/util/showboard.c
@@ -0,0 +1,70 @@
+/* $Id$ */
+/* 看板一覽表(sorted) */
+
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include "config.h"
+#include "pttstruct.h"
+
+boardheader_t allbrd[MAX_BOARD];
+
+int
+board_cmp(a, b)
+    boardheader_t *a, *b;
+{
+    return (strcasecmp(a->brdname, b->brdname));
+}
+
+
+int main(argc, argv)
+    int argc;
+    char *argv[];
+{
+    int inf, i, count;
+
+    if (argc < 2)
+    {
+	printf("Usage:\t%s .BRD [MAXUSERS]\n", argv[0]);
+	exit(1);
+    }
+
+
+    inf = open(argv[1], O_RDONLY);
+    if (inf == -1)
+    {
+	printf("error open file\n");
+	exit(1);
+    }
+
+/* read in all boards */
+
+    i = 0;
+    memset(allbrd, 0, MAX_BOARD * sizeof(boardheader_t));
+    while (read(inf, &allbrd[i], sizeof(boardheader_t)) == sizeof(boardheader_t))
+    {
+	if (allbrd[i].brdname[0] )
+	{
+	    i++;
+	}
+    }
+    close(inf);
+
+/* sort them by name */
+    count = i;
+    qsort(allbrd, count, sizeof(boardheader_t), board_cmp);
+
+/* write out the target file */
+
+    printf(
+	"看板名稱     板主                     類別   中文敘述\n"
+	"----------------------------------------------------------------------\n");
+    for (i = 0; i < count; i++)
+    {
+	printf("%-13s%-25.25s%s\n", allbrd[i].brdname, allbrd[i].BM, allbrd[i].title);
+    }
+    return 0;
+}
diff --git a/pttbbs/util/stock.perl b/pttbbs/util/stock.perl
new file mode 100644
index 00000000..568c2d86
--- /dev/null
+++ b/pttbbs/util/stock.perl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+# $Id: stock.perl,v 1.1 2002/03/07 15:13:46 in2 Exp $
+#
+# 不能跑的話，看看 bbspost 的路徑是否正確。
+# 如果發出的 post 沒有氣象報告而是說 URL 找不到，則確定一下能不能看到
+# 中央氣象局的 WWW 及 URL 是否正確。
+# 理論上適用所有 Eagle BBS 系列。
+#                                       -- Beagle Apr 13 1997
+open(BBSPOST, "| bin/webgrep >etc/stock.tmp");
+# 日期
+open(DATE, "date +'%a %b %d %T %Y' |");
+$date = <DATE>;
+chop $date;
+close DATE;
+
+# Header
+# 內容
+#open(WEATHER, "/usr/local/bin/lynx -dump http://www.dashin.com.tw/bulletin_board/today_stock_price.htm |"); while (<WEATHER>) {
+open(WEATHER, "/usr/bin/lynx -dump http://quotecenter.jpc.com.tw/today_stock_price.htm |"); while(<WEATHER>) {
+  print BBSPOST if ($_ ne "\n");
+}
+close WEATHER;
+
+# 簽名檔
+print BBSPOST "\n--\n";
+print BBSPOST "我是beagle所有可愛的小餅乾...跨海為Ptt服務\n";
+print BBSPOST "--\n";
+print BBSPOST "☆ [Origin: ◎果醬小站◎] [From: [藍莓鬆餅屋]       ] ";
+
+close BBSPOST;
+
diff --git a/pttbbs/util/stock.sh b/pttbbs/util/stock.sh
new file mode 100644
index 00000000..907ddb73
--- /dev/null
+++ b/pttbbs/util/stock.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+# $Id: stock.sh,v 1.1 2002/03/07 15:13:46 in2 Exp $
+#
+bin/stock.perl
+bin/post Record 今日股票收盤價 [股市小姐] etc/stock.tmp
diff --git a/pttbbs/util/tarqueue.pl b/pttbbs/util/tarqueue.pl
new file mode 100644
index 00000000..0edf5bc0
--- /dev/null
+++ b/pttbbs/util/tarqueue.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+use lib '/home/bbs/bin/';
+use LocalVars;
+use strict;
+use Mail::Sender;
+use POSIX;
+
+no strict 'subs';
+setpriority(PRIO_PROCESS, $$, 20);
+use strict subs;
+chdir $BBSHOME;
+open LOG, ">> log/tarqueue.log";
+
+foreach my $board ( <$JOBSPOOL/tarqueue.*> ){
+    $board =~ s/.*tarqueue\.//;
+    ProcessBoard($board);
+    unlink "$JOBSPOOL/tarqueue.$board";
+}
+close DIR;
+close LOG;
+
+sub ProcessBoard
+{
+    my($board)= @_;
+    my($cmd, $owner, $email, $bakboard, $bakman, $now);
+
+    $now = substr(POSIX::ctime(time()), 0, -1);
+    open FH, "< $JOBSPOOL/tarqueue.$board";
+    chomp($owner = <FH>);
+    chomp($email = <FH>);
+    chomp(($bakboard, $bakman) = split(/,/, <FH>));
+    close FH;
+
+    print LOG sprintf("%-28s %-12s %-12s %d %d %s\n",
+		      $now, $owner, $board, $bakboard, $bakman, $email);
+
+    MakeMail({tartarget  => "$TMP/$board.tgz",
+	      tarsource  => "boards/". substr($board, 0, 1). "/$board",
+	      mailto     => "$board的板主$owner <$email>",
+	      subject    => "$board的看板備份",
+	      body       =>
+	    "\n\n\t $owner 您好，收到這封信，表示您已經收到看板備份。\n\n".
+	    "\t謝謝您的耐心等待，以及使用 $hostname的看板備份系統，\n\n".
+	    "\t如有任何疑問，歡迎寄信給站長，我們會很樂於給予協助。\n\n\n".
+	    "\t最後，祝 $owner 平安快樂！ ^_^\n\n\n".
+	    "\t $hostname站長群. \n\t$now"
+	    }) if( $bakboard );
+
+    MakeMail({tartarget  => "$TMP/man.$board.tgz",
+	      tarsource  => "man/boards/". substr($board, 0, 1). "/$board",
+	      mailto     => "$board的板主$owner <$email>",
+	      subject    => "$board的精華區備份",
+	      body       =>
+	    "\n\n\t $owner 您好，收到這封信，表示您已經收到精華區備份。\n\n".
+	    "\t謝謝您的耐心等待，以及使用 $hostname的看板備份系統，\n\n".
+	    "\t如有任何疑問，歡迎寄信給站長，我們會很樂於給予協助。\n\n\n".
+	    "\t最後，祝 $owner 平安快樂！ ^_^\n\n\n".
+	    "\t $hostname站長群. \n\t$now"
+	    }) if( $bakman );
+
+}
+
+sub MakeMail
+{
+    my($arg) = @_;
+    my $sender;
+    `$TAR zcf $arg->{tartarget} $arg->{tarsource}`;
+    $sender = new Mail::Sender{smtp => $SMTPSERVER,
+			       from => 'pttadmin <in2@ptt2.csie.ntu.edu.tw>'};
+    $sender->MailFile({to         => $arg->{mailto},       
+		       subject    => $arg->{subject},
+		       msg        => $arg->{body},
+		       file       => $arg->{tartarget},
+		       b_charset  => 'big5',
+		       b_encoding => '8bit',
+		       ctype      => 'application/x-tar-gz'});
+    unlink $arg->{tartarget};
+}
diff --git a/pttbbs/util/testkenben.txt b/pttbbs/util/testkenben.txt
new file mode 100644
index 00000000..df3893d3
--- /dev/null
+++ b/pttbbs/util/testkenben.txt
@@ -0,0 +1,11 @@
+HCGH-306    竹女 ◎有八卦！！！     7/24  jennywen/molly
+Foolshome   團體 ◎耶耶耶~~~千禧年  1/14  truth/citizen/nathon
+KHCHS-87-306新莊 ◎都跑到哪裡去了�  6/12
+TGHS8714    南女 ◎理性天氣；感性�  8/07  grassflying/EPOCH
+PttDoc      嘰哩 ◎Ptt Document Pr  8/07
+Delphi      程設 ◎Delphi狂想曲     3/09  cying
+ciacia_Her  台灣 ◎ciacia用文字挑�  8/16  sherbet
+CS87Love    中山 ◎愛呢!            8/08  sylna/fancydream
+Wanfang     台灣 ◎就值得了愛萬芳   8/07  zkkk
+KS87-308    雄中 ●雄中八掛班《一�  8/07  SBT/shouhou
+
diff --git a/pttbbs/util/toplazyBBM.c b/pttbbs/util/toplazyBBM.c
new file mode 100644
index 00000000..97cb62ae
--- /dev/null
+++ b/pttbbs/util/toplazyBBM.c
@@ -0,0 +1,194 @@
+/* $Id$ */
+#define _UTIL_C_
+#include "bbs.h"
+
+#define OUTFILE  BBSHOME "/etc/toplazyBBM"
+#define FIREFILE BBSHOME "/etc/topfireBBM"
+
+extern boardheader_t *bcache;
+extern int numboards;
+
+boardheader_t allbrd[MAX_BOARD];
+extern userec_t xuser;
+typedef struct lostbm {
+	char *bmname;
+	char *title;
+	char *ctitle;
+	int lostdays;
+} lostbm;
+lostbm lostbms[MAX_BOARD];
+
+typedef struct BMarray{
+	char *bmname;
+	int  flag;
+}  BMArray;
+BMArray bms[3];
+
+int bmlostdays_cmp(const void *va, const void *vb)
+{
+	lostbm *a=(lostbm *)va, *b=(lostbm *)vb;
+	if (a->lostdays > b->lostdays) return -1;
+	else if (a->lostdays == b->lostdays) return 0;
+	else return 1;
+}
+
+
+int LINK(char* src, char* dst){
+	char cmd[200];
+   if(symlink(src,dst) == -1)	
+     {	
+	sprintf(cmd, "/bin/cp -R %s %s", src, dst);
+	return system(cmd);
+     }
+   return 0;
+}
+
+int main(int argc, char *argv[])
+{
+    int bmid, i, j=0;
+    FILE *inf, *firef;
+
+    attach_SHM();
+    resolve_boards();
+
+    if(passwd_init())
+        exit(1);      
+
+   memcpy(allbrd,bcache,numboards*sizeof(boardheader_t));
+
+	/* write out the target file */
+	printf("Starting Checking\n");
+	inf   = fopen(OUTFILE, "w+");
+	if(inf == NULL){
+		printf("open file error : %s\n", OUTFILE);
+		exit(1);
+	}	
+	firef = fopen(FIREFILE, "w+");
+	if(firef == NULL){
+		printf("open file error : %s\n", FIREFILE);
+		exit(1);
+	}
+	
+	fprintf(inf, "警告: 板主若於兩個月未上站,將予於免職\n");
+	fprintf(inf,
+        "看板名稱                                      "
+	"    板主        幾天沒來啦\n"
+        "---------------------------------------------------"
+	"-------------------\n");
+
+        fprintf(firef, "免職板主\n");
+        fprintf(firef,
+        "看板名稱                                      "
+        "    板主        幾天沒來啦\n"
+        "---------------------------------------------------"
+        "-------------------\n"); 
+
+
+	j = 0 ;
+        for (i = 0; i < numboards; i++) {
+	 char *p, bmbuf[IDLEN * 3 + 3];
+	 int   index = 0, flag = 0, k, n;
+	 p=strtok(allbrd[i].BM,"/ ");
+	 if(p)
+		do
+		{
+		  if(allbrd[i].brdname[0] == '\0' || (allbrd[i].brdattr & BRD_GROUPBOARD) ==0 ) continue;
+	          if (*p  == '[' ){p[strlen(p)-1]='\0'; p++;}
+  		  bmid=getuser(p);
+  		  bms[index].bmname = p;
+  		  bms[index].flag = 0;
+		  if (((((int)time(NULL)-(int)xuser.lastlogin)/(60*60*24))>=7)
+                 //&& isalpha(allbrd[i].brdname[0])
+		 //&& isalpha(allbrd[i].BM[0])
+		 && !(xuser.userlevel & PERM_SYSOP))
+		   {
+			lostbms[j].bmname = p;
+			lostbms[j].title = allbrd[i].brdname;
+			lostbms[j].ctitle = allbrd[i].title;
+			lostbms[j].lostdays =
+			     ((int)time(NULL)-(int)xuser.lastlogin)/(60*60*24);
+			
+			printf("%s\n", lostbms[j].title);
+			//超過六十天 免職
+			if(lostbms[j].lostdays > 30){
+				xuser.userlevel &= ~PERM_BM;
+				bms[index].flag = 1;
+				flag = 1;
+			}
+			j++;
+		   }
+		   index++;		  
+		} while((p=strtok(NULL,"/ "))!=NULL);
+	
+		//從板主名單拿掉名字
+		
+		if(flag == 1){
+			bmbuf[0] = '\0';
+			for(k = 0 , n = 0; k < index; k++){
+				if(!bms[k].flag){
+					if( n++ != 0) strcat(bmbuf, "/");
+					strcat(bmbuf, bms[k].bmname);	
+				}	
+			}
+			strcpy(allbrd[i].BM, bmbuf);
+		}
+		
+        }
+    qsort(lostbms, j, sizeof(lostbm), bmlostdays_cmp);
+ 
+    printf("Starting to mail\n");
+    //write to the etc/toplazyBBM
+    for ( i=0; i<j; i++)
+    {
+	if( lostbms[i].lostdays > 30){
+		fprintf(firef, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n", IDLEN, IDLEN, lostbms[i].title,
+		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
+		lostbms[i].bmname,lostbms[i].lostdays);
+	}else{
+		fprintf(inf, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n", IDLEN, IDLEN, lostbms[i].title, 
+		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
+		lostbms[i].bmname,lostbms[i].lostdays);
+	}
+    }
+    fclose(inf);
+    fclose(firef);
+
+    printf("Total %d boards.\n", j);
+    
+    //mail to the users
+    for( i=0; i<j; i++)
+    {
+    	fileheader_t mymail;
+    	char	genbuf[200];
+    	int	lostdays;
+    	
+    	lostdays = lostbms[i].lostdays;
+
+	if( (lostdays != 14) || (lostdays != 21) ) // 14 21 天不發信
+		continue;
+	   	
+    	sprintf(genbuf, BBSHOME "/home/%c/%s", lostbms[i].bmname[0], lostbms[i].bmname);
+    	stampfile(genbuf, &mymail);
+    	
+    	strcpy(mymail.owner, "[PTT警察局]");
+    	
+    	if(lostdays <= 30){
+    		sprintf(mymail.title,
+    		"\033[32m [小組長免職警告通知] \033[m %s BM %s", lostbms[i].title, lostbms[i].bmname);
+    	}else{
+    		sprintf(mymail.title,
+    		"\033[32m [小組長免職通知] \033[m %s BM %s", lostbms[i].title, lostbms[i].bmname);
+    	}
+    	unlink(genbuf);
+    	if(lostdays <= 30){
+    		LINK(OUTFILE, genbuf);
+    	}else{
+    		LINK(FIREFILE, genbuf);
+    	}
+    	
+    	sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", lostbms[i].bmname[0], lostbms[i].bmname);
+  	append_record(genbuf, &mymail, sizeof(mymail)); 	
+    }
+  
+    return 0;
+}
diff --git a/pttbbs/util/toplazyBBM.sh b/pttbbs/util/toplazyBBM.sh
new file mode 100644
index 00000000..d1d94229
--- /dev/null
+++ b/pttbbs/util/toplazyBBM.sh
@@ -0,0 +1,3 @@
+bin/toplazyBBM
+bin/post Record 懶惰小組長排行榜 [Ptt警察局] etc/toplazyBBM
+bin/post ViolateLaw 今日免職小組長   [Ptt法院] etc/firelazyBBM   
diff --git a/pttbbs/util/toplazyBM.c b/pttbbs/util/toplazyBM.c
new file mode 100644
index 00000000..bf31be58
--- /dev/null
+++ b/pttbbs/util/toplazyBM.c
@@ -0,0 +1,198 @@
+/* $Id$ */
+#define _UTIL_C_
+#include "bbs.h"
+#define OUTFILE  BBSHOME "/etc/toplazyBM"
+#define FIREFILE BBSHOME "/etc/firelazyBM"
+extern boardheader_t *bcache;
+extern int numboards;
+
+boardheader_t allbrd[MAX_BOARD];
+extern userec_t xuser;
+typedef struct lostbm {
+	char *bmname;
+	char *title;
+	char *ctitle;
+	int lostdays;
+} lostbm;
+lostbm lostbms[MAX_BOARD];
+
+typedef struct BMarray{
+	char *bmname;
+	int  flag;
+}  BMArray;
+BMArray bms[5];
+
+
+int bmlostdays_cmp(const void *va, const void *vb)
+{
+	lostbm *a=(lostbm *)va, *b=(lostbm *)vb;
+	if (a->lostdays > b->lostdays) return -1;
+	else if (a->lostdays == b->lostdays) return 0;
+	else return 1;
+}
+
+int LINK(char* src, char* dst){
+	char cmd[200];
+   if(symlink(src,dst) == -1)	
+     {	
+	sprintf(cmd, "/bin/cp -R %s %s", src, dst);
+	return system(cmd);
+     }
+   return 0;
+}
+
+int main(int argc, char *argv[])
+{
+    int bmid, i, j=0;
+    FILE *inf, *firef;
+    time_t now=time(NULL); 
+    attach_SHM();
+    resolve_boards();
+
+    if(passwd_init())
+        exit(1);      
+
+   memcpy(allbrd,bcache,numboards*sizeof(boardheader_t));
+
+	/* write out the target file */
+	inf   = fopen(OUTFILE, "w+");
+	if(inf == NULL){
+		printf("open file error : %s\n", OUTFILE);
+		exit(1);
+	}
+	
+	firef = fopen(FIREFILE, "w+");
+	if(firef == NULL){
+		printf("open file error : %s\n", FIREFILE);
+		exit(1);
+	}
+	
+	fprintf(inf, "警告: 板主若於兩個月未上站,將予於免職\n");
+	fprintf(inf,
+        "看板名稱                                      "
+	"    板主        幾天沒來啦\n"
+        "---------------------------------------------------"
+	"-------------------\n");
+
+        fprintf(firef, "免職板主\n");
+        fprintf(firef,
+        "看板名稱                                      "
+        "    板主        幾天沒來啦\n"
+        "---------------------------------------------------"
+        "-------------------\n"); 
+	
+
+	j = 0 ;
+        for (i = 0; i < numboards; i++) {
+	 char *p, bmbuf[IDLEN * 3 + 3];
+	 int   index = 0, flag = 0, k, n;
+         p = allbrd[i].BM;
+         if(*p=='[') p++;
+         if(allbrd[i].brdname[0] == '\0' ||
+            !isalpha(allbrd[i].brdname[0])
+            ) continue;
+
+	 p=strtok(allbrd[i].BM,"/ ]");
+         for(index=0; p && index<5; index++)
+		{
+                  if(!p[0])  {index--;
+                              p=strtok(NULL,"/ ]");
+                              continue;}
+  		  bmid=getuser(p);
+  		  bms[index].bmname = p;
+  		  bms[index].flag = 0;
+		  if ((now-xuser.lastlogin)>=45*86400
+		       && !(xuser.userlevel & PERM_SYSOP))
+		   {
+			lostbms[j].bmname = p; 
+			lostbms[j].title = allbrd[i].brdname;
+			lostbms[j].ctitle = allbrd[i].title;
+			lostbms[j].lostdays =
+			     (now-xuser.lastlogin)/86400;
+			//超過90天 免職
+			if(lostbms[j].lostdays > 90){
+				xuser.userlevel &= ~PERM_BM;
+				bms[index].flag = 1;
+				flag = 1;
+				passwd_update(bmid, &xuser);
+			}
+			j++;
+		   }
+                 p=strtok(NULL,"/ ]");
+		}
+	
+		if(flag == 1){
+			bmbuf[0] = '\0';
+			for(k = 0 , n = 0; k < index; k++){
+				if(!bms[k].flag){
+					if( n++ != 0) strcat(bmbuf, "/");
+					strcat(bmbuf, bms[k].bmname);	
+				}	
+			}
+			strcpy(allbrd[i].BM, bmbuf);
+                        if( substitute_record(BBSHOME"/"FN_BOARD, &allbrd[i], 
+                                           sizeof(boardheader_t), i+1) == -1){
+			printf("Update Board Faile : %s\n", allbrd[i].brdname);
+		  	   }
+			reset_board(i+1);
+		}
+        }
+    qsort(lostbms, j, sizeof(lostbm), bmlostdays_cmp);
+ 
+    //write to the etc/toplazyBM
+    for ( i=0; i<j; i++)
+    {
+	if( lostbms[i].lostdays > 90){
+		fprintf(firef, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n", IDLEN, IDLEN, lostbms[i].title,
+		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
+		lostbms[i].bmname,lostbms[i].lostdays);
+	}else{
+		fprintf(inf, "%-*.*s%-*.*s%-*.*s%3d天沒上站\n", IDLEN, IDLEN, lostbms[i].title, 
+		BTLEN-10, BTLEN-10, lostbms[i].ctitle, IDLEN,IDLEN,
+		lostbms[i].bmname,lostbms[i].lostdays);
+	}
+    }
+    fclose(inf);
+    fclose(firef);
+    
+    //printf("Total %d boards.\n", count);
+    
+    //mail to the users
+    for( i=0; i<j; i++)
+    {
+    	fileheader_t mymail;
+    	char	genbuf[200];
+    	int	lostdays;
+    	
+    	lostdays = lostbms[i].lostdays;
+
+	if( lostdays != 45 && lostdays != 60 && lostdays!=75 &&(lostdays <= 90))
+		continue;
+
+    	sprintf(genbuf, BBSHOME "/home/%c/%s", 
+                         lostbms[i].bmname[0], lostbms[i].bmname);
+    	stampfile(genbuf, &mymail);
+    	
+    	strcpy(mymail.owner, "[PTT警察局]");
+    	if(lostdays <= 90){
+    		sprintf(mymail.title,
+    		"\033[32m版主通知\033[m %s版版主%s", lostbms[i].title, 
+                   lostbms[i].bmname);
+    	}else{
+    		sprintf(mymail.title,
+    		  "\033[32m版主自動免職通知\033[m %s 版主 %s",lostbms[i].title, 
+                       lostbms[i].bmname);
+    	}
+    	unlink(genbuf);
+    	if(lostdays <= 90){
+    		LINK(OUTFILE, genbuf);
+    	}else{
+    		LINK(FIREFILE, genbuf);
+    	}
+    	
+    	sprintf(genbuf, BBSHOME "/home/%c/%s/.DIR", 
+                  lostbms[i].bmname[0], lostbms[i].bmname);
+  	append_record(genbuf, &mymail, sizeof(mymail)); 	
+    }
+    return 0;
+}
diff --git a/pttbbs/util/toplazyBM.sh b/pttbbs/util/toplazyBM.sh
new file mode 100644
index 00000000..033e545f
--- /dev/null
+++ b/pttbbs/util/toplazyBM.sh
@@ -0,0 +1,3 @@
+bin/toplazyBM
+bin/post Record 懶惰版主排行榜 [Ptt警察局] etc/toplazyBM
+bin/post ViolateLaw 今日免職版主   [Ptt法�'|'] etc/firelazyBM   
diff --git a/pttbbs/util/topsong.sh b/pttbbs/util/topsong.sh
new file mode 100644
index 00000000..19e9663a
--- /dev/null
+++ b/pttbbs/util/topsong.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+# $Id: topsong.sh,v 1.1 2002/03/07 15:13:46 in2 Exp $
+#
+bin/post Record "上半個月點歌排行榜" "[Ptt流行網]" etc/topsong
+mv ussong tmp
diff --git a/pttbbs/util/topusr.c b/pttbbs/util/topusr.c
new file mode 100644
index 00000000..5aa2eb7a
--- /dev/null
+++ b/pttbbs/util/topusr.c
@@ -0,0 +1,182 @@
+/* $Id$ */
+/* 使用者 上站記錄/文章篇數 排行榜 */
+#define _UTIL_C_
+#include "bbs.h"
+
+#define REAL_INFO
+struct manrec
+{
+    char userid[IDLEN + 1];
+    char username[23];
+    int values[3];
+};
+typedef struct manrec manrec;
+struct manrec *allman[3];
+
+userec_t aman;
+manrec theman;
+int num;
+FILE *fp;
+
+#define TYPE_POST       0
+#define TYPE_LOGIN      1
+#define TYPE_MONEY      2
+
+
+void
+ top(type)
+{
+    static char *str_type[3] =
+    {"發表次數", "進站次數", " 大富翁 "};
+    int i, j, rows = (num + 1) / 2;
+    char buf1[80], buf2[80];
+
+    if (type != 2)
+	fprintf(fp, "\n\n");
+
+    fprintf(fp, "\
+  ╭─────╮           [%dm    %8.8s排行榜                   ╭─────╮\n\
+  名次─代號───暱稱──────數目──名次─代號───暱稱──────數目\
+", type + 44, str_type[type]);
+    for (i = 0; i < rows; i++)
+    {
+        char ch=' ';
+        int value;
+
+        if(allman[type][i].values[type] > 1000000000)
+		{ value=allman[type][i].values[type]/1000000; ch='M';}
+        else if(allman[type][i].values[type] > 1000000)
+		{ value=allman[type][i].values[type]/1000; ch='K';}
+        else {value=allman[type][i].values[type]; ch=' ';}
+	sprintf(buf1, "[%2d] %-11.11s%-16.16s%5d%c",
+		i + 1, allman[type][i].userid, allman[type][i].username,
+	        value, ch);
+	j = i + rows;
+        if(allman[type][j].values[type] > 1000000000)
+		{ value=allman[type][j].values[type]/1000000; ch='M';}
+        else if(allman[type][j].values[type] > 1000000)
+		{ value=allman[type][j].values[type]/1000; ch='K';}
+        else {value=allman[type][j].values[type]; ch=' ';}
+
+	sprintf(buf2, "[%2d] %-11.11s%-16.16s%4d%c",
+		j + 1, allman[type][j].userid, allman[type][j].username,
+		value, ch);
+	if (i < 3)
+	    fprintf(fp, "\n [1;%dm%-40s%s", 31 + i, buf1, buf2);
+	else
+	    fprintf(fp, "\n %-40s%s", buf1, buf2);
+    }
+}
+
+
+#ifdef  HAVE_TIN
+int
+ post_in_tin(char *name)
+{
+    char buf[256];
+    FILE *fh;
+    int counter = 0;
+
+    sprintf(buf, "%s/home/%c/%s/.tin/posted", home_path, name[0], name);
+    fh = fopen(buf, "r");
+    if (fh == NULL)
+	return 0;
+    else
+    {
+	while (fgets(buf, 255, fh) != NULL)
+	    counter++;
+	fclose(fh);
+	return counter;
+    }
+}
+#endif				/* HAVE_TIN */
+
+int
+ bad_user_id(userid)
+char *userid;
+{
+    register char ch;
+    if (strlen(userid) < 2)
+	return 1;
+    if (not_alpha(*userid))
+	return 1;
+    while((ch = *(++userid)))
+    {
+	if (not_alnum(ch))
+	    return 1;
+    }
+    return 0;
+}
+
+int main(int argc, char **argv)
+{
+    int i, j;
+
+    if (argc < 3)
+    {
+	printf("Usage: %s <num_top> <out-file>\n", argv[0]);
+	exit(1);
+    }
+
+    num = atoi(argv[1]);
+    if (num == 0)
+	num = 30;
+
+    attach_SHM();
+    if(passwd_init())
+    {
+	printf("Sorry, the data is not ready.\n");
+	exit(0);
+    }
+    for(i=0; i<3; i++)
+     {
+       allman[i]=malloc(sizeof(manrec) * num);
+       memset(allman[i],0,sizeof(manrec) * num);    
+     }
+    for(j = 1; j <= MAX_USERS; j++) {
+	passwd_query(j, &aman);
+        aman.userid[IDLEN]=0;
+        aman.username[22]=0;
+	if((aman.userlevel & PERM_NOTOP) || !aman.userid[0] || 
+	   bad_user_id(aman.userid) || 
+	   strchr(aman.userid, '.'))
+	{
+	    continue;
+	}
+	else {
+	    strcpy(theman.userid, aman.userid);
+	    strcpy(theman.username, aman.username);
+	    theman.values[TYPE_LOGIN] = aman.numlogins;
+            theman.values[TYPE_POST] =  aman.numposts;
+            theman.values[TYPE_MONEY] = aman.money;
+            for(i=0; i<3; i++)
+	     {
+	        int k,l;
+                for(k=num-1; k>=0 && allman[i][k].values[i]<theman.values[i];
+			 k--);
+	        k++;
+	        if(k<num)
+	                {
+		          for(l=num-1; l>k; l--)
+				  memcpy(&allman[i][l], &allman[i][l-1], 
+					  sizeof(manrec));
+	                  memcpy(&allman[i][k], &theman, sizeof(manrec));	
+		        } 
+	     }
+	}
+    }
+    
+
+    if ((fp = fopen(argv[2], "w")) == NULL)
+    {
+	printf("cann't open topusr\n");
+	return 0;
+    }
+
+    top(TYPE_MONEY);
+    top(TYPE_POST);
+    top(TYPE_LOGIN);
+
+    fclose(fp);
+    return 0;
+}
diff --git a/pttbbs/util/tunepasswd.c b/pttbbs/util/tunepasswd.c
new file mode 100644
index 00000000..1d575dcc
--- /dev/null
+++ b/pttbbs/util/tunepasswd.c
@@ -0,0 +1,77 @@
+/* $Id$ */
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/file.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "common.h"
+
+int tune(int num) {
+    int i, j, fin, fout;
+    userec_t u;
+    
+    if((fin = open(FN_PASSWD, O_RDONLY)) == -1) {
+	perror(FN_PASSWD);
+	return 1;
+    }
+    if(flock(fin, LOCK_EX)) {
+	printf("Lock failed!\n");
+	return 1;
+    }
+    if((fout = open(FN_PASSWD ".tune" , O_WRONLY | O_CREAT, 0600)) == -1) {
+	perror(FN_PASSWD ".tune");
+	flock(fin, LOCK_UN);
+	close(fin);
+	return 1;
+    }
+    
+    for(i = j = 0; i < num; i++) {
+	read(fin, &u, sizeof(u));
+	if(u.userid[0]) {
+	    if(j == MAX_USERS) {
+		printf("MAX_USERS is too small!\n");
+		close(fout);
+		unlink(FN_PASSWD ".tune");
+		flock(fin, LOCK_UN);
+		close(fin);
+		return 1;
+	    }
+	    write(fout, &u, sizeof(u));
+	    j++;
+	}
+    }
+    for(memset(&u, 0, sizeof(u)); j < MAX_USERS; j++) {
+	write(fout, &u, sizeof(u));
+    }
+    close(fout);
+    
+    /* backup */
+    unlink(FN_PASSWD "~");
+    link(FN_PASSWD, FN_PASSWD "~");
+    unlink(FN_PASSWD);
+    link(FN_PASSWD ".tune", FN_PASSWD);
+    unlink(FN_PASSWD ".tune");
+    
+    flock(fin, LOCK_UN);
+    close(fin);
+    return 0;
+}
+
+int main() {
+    struct stat sb;
+    
+    if(stat(FN_PASSWD, &sb)) {
+	perror("stat");
+	return 1;
+    }
+    if(sb.st_size != sizeof(userec_t) * MAX_USERS) {
+	printf("size and MAX_USERS do not match!\n");
+	if(tune(sb.st_size / sizeof(userec_t)) == 0)
+	    printf(FN_PASSWD " has been tuned successfully!\n");
+    } else
+	printf("Nothing to do.\n");
+    return 0;
+}
diff --git a/pttbbs/util/udnnews.pl b/pttbbs/util/udnnews.pl
new file mode 100644
index 00000000..fd02efc3
--- /dev/null
+++ b/pttbbs/util/udnnews.pl
@@ -0,0 +1,119 @@
+#!/usr/bin/perl
+#
+# 請註意！
+# 本程式版權屬於 PttBBS ,
+# 但只表示您可以公開免費取得本程式,
+# 並不表示您可以使用本程式.
+#
+# 本程式將直接連至 udnnews網站取得當前新聞,
+# 而新聞內容的版權是屬於 聯合新聞網 所有.
+# 亦即, 您若沒有聯合新聞網之書面授權,
+# 您並「不能」使用本程式下載該網新聞.
+#
+
+use lib '/home/bbs/bin/';
+use LocalVars;
+use strict;
+use vars qw/@titles/;
+
+chdir '/home/bbs';
+getudnnewstitle(\@titles);
+foreach( @titles ){
+    postout({brdname => 'udnnews',
+             title   => strreplace(FormatChinese($_->[1])),
+             owner   => 'udnnews.',
+             content => getudnnewscontent("http://www.udn.com/NEWS/FOCUSNEWS/$_->[0]", $_)});
+}
+
+sub strreplace
+{
+    my($str) = @_;
+    $str =~ s/十/十/g;
+    $str =~ s/卅/卅/g;
+    $str =~ s/游錫\&\#22531\;/游揆/g;
+    return $str;
+}
+
+sub getudnnewscontent($$)
+{
+    my($url, $title) = @_;
+    my($buf, $content, $ret);
+    $buf = `$LYNX -source '$url'`;
+    ($content) = $buf =~ m|<!-- start of content -->(.*?)<!-- end of content -->|s;
+#    ($content) = $buf =~ m|<p><font color="#CC0033" class="text12">(.*?)<tr valign="top">|s if( !$content );
+    $content =~ s/<p>/\n/gi;
+    $content =~ s/<.*?>//g;
+    $content =~ s/&nbsp;//g;
+    $content =~ s/\r//g;
+    $content =~ s/\n+/\n/gs;
+    $content = strreplace($content);
+    undef $ret;
+    foreach( split(/\n/, $content) ){
+        s/ //g;
+        $ret .= FormatChinese($_, 60). "\n" if( $_ );
+    }
+    return
+           "作者: udnnews.(聯合新聞網) 看板: udnnews\n".
+           "標題: $title\n".
+           "時間: 即時\n".
+           "※ [轉錄自 $url ]\n\n$ret\n\n".
+           "--\n\n 聯合新聞網 http://www.udn.com/ 獨家授權批踢踢實業坊 ".
+           "\n 未經允許\請勿擅自使用 ";
+}
+
+sub getudnnewstitle($)
+{
+    my($ra_titles) = @_;
+    my($url, $title);
+    open FH, "$LYNX -source http://www.udn.com/NEWS/FOCUSNEWS/ | $GREP '<font color=\"#FF9933\">' |";
+    while( <FH> ){
+        ($url, $title) = $_ =~ m|<font color="#FF9933">．</font><a href="(.*?)"><font color="#003333">(.*?)</font></a><font color="#003333">|;
+        $title =~ s/<.*?>//g;
+        push @{$ra_titles}, [$url, $title];
+    }
+    close FH;
+    return @{$ra_titles};
+}
+
+sub FormatChinese
+{
+    my($str, $length) = @_;
+    my($i, $ret, $count, $s);
+    return if( !$str );
+    for( $i = 0 ; $i < length($str) ; ++$i ){
+        if( ord(substr($str, $i, 1)) > 127 ){
+            $ret .= substr($str, $i, 2);
+            ++$i;
+        }
+        else{
+            for( $count = 0, $s = $i ; $i < length($str) ; ++$i, ++$count ){
+                last if( ord(substr($str, $i, 1)) > 127 );
+            }
+            --$i;
+            $ret .= ' ' if( $count % 2 == 1);
+            $ret .= substr($str, $s, $count);
+        }
+    }
+    if( $length ){
+        $str = $ret;
+        undef $ret;
+        while( $str ){
+            $ret .= substr($str, 0, $length)."\n";
+            $str = substr($str, $length);
+        }
+    }
+    return $ret;
+}
+
+sub postout
+{
+    my($param) = @_;
+    return if( !$param->{title} );
+    open FH, ">/tmp/postout.$$";
+    print FH $param->{content};
+#print "$param->{content}";
+    close FH;
+
+    system("bin/post '$param->{brdname}' '$param->{title}' '$param->{owner}' /tmp/postout.$$");
+    unlink "/tmp/postout.$$";
+}
diff --git a/pttbbs/util/uhash_loader.c b/pttbbs/util/uhash_loader.c
new file mode 100644
index 00000000..d5171d56
--- /dev/null
+++ b/pttbbs/util/uhash_loader.c
@@ -0,0 +1,131 @@
+/* $Id$ */
+/* standalone uhash loader -- jochang */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <fcntl.h>
+#include <ctype.h>
+#include <sys/mman.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+
+#ifdef __FreeBSD__
+#include <machine/param.h>
+#endif
+
+#include "config.h"
+#include "pttstruct.h"
+#include "common.h"
+
+unsigned string_hash(unsigned char *s);
+void add_to_uhash(int n, userec_t *id);
+void fill_uhash(void);
+void load_uhash(void);
+
+SHM_t *SHM;
+
+int main() {
+    setgid(BBSGID);
+    setuid(BBSUID);
+    chdir(BBSHOME);
+    load_uhash();
+    return 0;
+}
+
+void load_uhash(void) {
+    int shmid;
+    shmid = shmget(SHM_KEY, sizeof(SHM_t), IPC_CREAT | 0600);
+/* note we didn't use IPC_EXCL here.
+   so if the loading fails,
+   (like .PASSWD doesn't exist)
+   we may try again later.
+*/
+    if (shmid < 0)
+    {
+	perror("shmget");
+	exit(1);
+    }
+
+    SHM = (void *) shmat(shmid, NULL, 0);
+    if (SHM == (void *) -1)
+    {
+	perror("shmat");
+	exit(1);
+    }
+
+/* in case it's not assumed zero, this becomes a race... */
+    SHM->loaded = 0;
+
+    fill_uhash();
+
+/* ok... */
+    SHM->loaded = 1;
+}
+
+void fill_uhash(void)
+{
+    int fd, usernumber;
+    usernumber = 0;
+
+    for (fd = 0; fd < (1 << HASH_BITS); fd++)
+	SHM->hash_head[fd] = -1;
+    
+    if ((fd = open(FN_PASSWD, O_RDONLY)) > 0)
+    {
+	struct stat stbuf;
+	caddr_t fimage, mimage;
+
+	fstat(fd, &stbuf);
+	fimage = mmap(NULL, stbuf.st_size, PROT_READ, MAP_SHARED, fd, 0);
+	if (fimage == (char *) -1)
+	{
+	    perror("mmap");
+	    exit(1);
+	}
+	close(fd);
+	fd = stbuf.st_size / sizeof(userec_t);
+	if (fd > MAX_USERS)
+	    fd = MAX_USERS;
+	
+	for (mimage = fimage; usernumber < fd; mimage += sizeof(userec_t))
+	{
+	    add_to_uhash(usernumber, (userec_t *)mimage);
+	    usernumber++;
+	}
+	munmap(fimage, stbuf.st_size);
+    }
+    else
+    {
+	perror("open");
+	exit(1);
+    }
+    SHM->number = usernumber;
+    printf("total %d names loaded.\n", usernumber);
+}
+unsigned string_hash(unsigned char *s)
+{
+    unsigned int v = 0;
+    while (*s)
+    {
+	v = (v << 8) | (v >> 24);
+	v ^= toupper(*s++);	/* note this is case insensitive */
+    }
+    return (v * 2654435769UL) >> (32 - HASH_BITS);
+}
+
+void add_to_uhash(int n, userec_t *user)
+{
+    int *p, h = string_hash(user->userid);
+    strcpy(SHM->userid[n], user->userid);
+    SHM->money[n] = user->money;
+    p = &(SHM->hash_head[h]);
+
+    while (*p != -1)
+	p = &(SHM->next_in_hash[*p]);
+
+    SHM->next_in_hash[*p = n] = -1;
+}
diff --git a/pttbbs/util/userlist.c b/pttbbs/util/userlist.c
new file mode 100644
index 00000000..794a3daf
--- /dev/null
+++ b/pttbbs/util/userlist.c
@@ -0,0 +1,47 @@
+/* $id:$ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include "config.h"
+#include "pttstruct.h"
+
+SHM_t   *SHM;
+
+int main(int argc, char **argv) {
+    int i, shm, counter;
+    
+    shm = shmget(SHM_KEY, USHM_SIZE, SHM_R | SHM_W);
+    if(shm == -1) {
+	perror("shmget");
+	exit(0);
+    }
+    
+    if( (SHM = shmat(shm, NULL, 0)) < 0 ){
+	perror("shmat");
+	exit(0);
+    }
+    
+    if(argc > 1) {
+	for(i = 1; i < argc; i++)
+	    SHM->uinfo[atoi(argv[i])].pid = 0;
+    } else {
+	for(i = counter = 0; i < USHM_SIZE; i++)
+	    if(SHM->uinfo[i].pid) {
+		userinfo_t *f;
+		
+		f = &SHM->uinfo[i];
+		printf(
+		    "%4d(%d) p[%d] i[%d] u[%s] n[%s] f[%s] m[%d] t[%ld]\n",
+		    ++counter, i, f->pager, f->invisible, f->userid,
+		    f->username, f->from, f->mode, f->lastact);
+	    }
+	printf("\nTotal: %d(%d)\n", counter, SHM->number);
+	if(counter != SHM->number) {
+	    SHM->number = counter;
+	    printf("adjust user number!\n");
+	}
+    }
+    return 0;
+}
diff --git a/pttbbs/util/waterball.pl b/pttbbs/util/waterball.pl
new file mode 100644
index 00000000..651372fa
--- /dev/null
+++ b/pttbbs/util/waterball.pl
@@ -0,0 +1,162 @@
+#!/usr/bin/perl
+use lib '/home/bbs/bin/';
+use LocalVars;
+use Time::Local;
+use POSIX;
+use FileHandle;
+use strict;
+use Mail::Sender;
+
+my($fndes, $fnsrc, $userid, $mailto, $outmode);
+foreach $fndes ( <$JOBSPOOL/water.des.*> ){ #des: userid, mailto, outmode
+    (open FH, "< $fndes") or next;
+    chomp($userid = <FH>);
+    chomp($mailto = <FH>);
+    chomp($outmode= <FH>);
+    close FH;
+    next if( !$userid );
+    print "$userid, $mailto, $outmode\n";
+    `rm -Rf $TMP/water`;
+    `mkdir $TMP/water`;
+
+    $fnsrc = $fndes;
+    $fnsrc =~ s/\.des\./\.src\./;
+    eval{
+	process($fnsrc, "$TMP/water/", $outmode, $userid);
+    };
+    if( $@ ){
+	print "$@\n";
+    }
+    else{
+	chdir "$TMP/water";
+	if( $mailto eq '.' || $mailto =~ /\.bbs/ ){
+	    $mailto = "$userid.bbs\@$hostname" if( $mailto eq '.' );
+	    foreach my $fn ( <$TMP/water/*> ){
+		my $who = substr($fn, rindex($fn, '/') + 1);
+		my $content = '';
+		open FH, "< $fn";while( <FH> ){chomp;$content .= "$_\n";}
+		if( !MakeMail({mailto  => $mailto,
+			       subject => "和 $who 的水球記錄",
+			       body    => $content,
+			   }) ){ print "fault\n"; }
+	    }
+	    unlink $fnsrc;
+	    unlink $fndes;
+	}
+	else{
+	    my $body = 
+		"親愛的使用者您好:\n\n".
+		"歡迎您使用 Ptt系列的水球整理功能 ^_^\n".
+		"水球整理的結果被壓縮好附加在本信中\n".
+		"您須要先將其解壓縮 (如用 tar+gunzip, winzip 等程式)\n".
+		"解出來的檔案為純文字格式, \n".
+		"您可以透過任何純文字編輯程式 (如 emacs, notepad, word)\n".
+		"打開它進行編輯整理\n\n".
+		"再次感謝您使用本系統以及對 $hostname 的支持 ^^\n".
+		"\n $hostname 站長群 ". POSIX::ctime(time());
+	    if( MakeMail({tartarget => "$TMP/$userid.waterball.tgz",
+			  tarsource => "*",
+			  mailto    => "$userid <$mailto>",
+			  subject   => "水球紀錄",
+			  body      => $body}) ){
+		unlink $fnsrc;
+		unlink $fndes;
+	    }
+	}
+    }
+}
+
+sub process
+{
+    my($fn, $outdir, $outmode, $me) = @_;
+    my($cmode, $who, $time, $say, $orig, %FH, %LAST, $len);
+    open DIN, "< $fn";
+    while( <DIN> ){
+	chomp;
+	next if( !(($cmode, $who, $time, $say, $orig) = parse($_)) );
+	next if( !$who );
+
+	if( ! $FH{$who} ){
+	    $FH{$who} = new FileHandle "> $outdir/$who";
+	}
+	if( $outmode == 0 ){
+	    next if( $say =~ /<<下站通知>> -- 我走囉！/ ||
+		     $say =~ /<<上站通知>> -- 我來啦！/    );
+	    if( $time - $LAST{$who} > 1800 ){
+		if( $LAST{$who} != 0 ){
+		    ($FH{$who})->print( POSIX::ctime($LAST{$who}) , "\n");
+		}
+		($FH{$who})->print( POSIX::ctime($time) );
+		$LAST{$who} = $time;
+	    }
+	    $len = (length($who) > length($me) ? length($who) : length($me))+1;
+	    ($FH{$who})->printf("%-${len}s %s\n", ($cmode?$who:$me).':', $say);
+	}
+	elsif( $outmode == 1 ){
+	    ($FH{$who})->print("$orig\n");
+	}
+    }
+    if( $outmode == 0 ){
+	foreach( keys %FH ){
+	    ($FH{$_})->print( POSIX::ctime($LAST{$_}) );
+	}
+    }
+    foreach( keys %FH ){
+	($FH{$_})->close();
+    }
+    close DIN;
+}
+
+sub parse
+{
+    my $dat = $_[0];
+    my($cmode, $who, $year, $month, $day, $hour, $min, $sec, $say);
+    if( $dat =~ /^To/ ){
+	$cmode = 0;
+	($who, $say, $month, $day, $year, $hour, $min, $sec) =
+	    $dat =~ m|^To (\w+):\s*(.*)\[(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+)\]|;
+    }
+    else{
+	$cmode = 1;
+	($who, $say, $month, $day, $year, $hour, $min, $sec) =
+	    $dat =~ m|★(\w+?)\[37;45m\s*(.*).*?\[(\w+)/(\w+)/(\w+) (\w+):(\w+):(\w+)\]|;
+
+    }
+#    $time = timelocal($sec,$min,$hours,$mday,$mon,$year);
+
+    return undef if( $month == 0 );
+    return ($cmode, $who, timelocal($sec, $min, $hour, $day, $month - 1, $year), $say, $_[0]);
+}
+
+sub MakeMail
+{
+    my($arg) = @_;
+    my $sender;
+    `$TAR zcf $arg->{tartarget} $arg->{tarsource}`
+	if( $arg->{tarsource} );
+    $sender = new Mail::Sender{smtp => $SMTPSERVER,
+			       from => "$hostname水球整理程式 <$userid.bbs\@$MYHOSTNAME>"};
+    foreach( 0..3 ){
+	if( (!$arg->{tartarget} &&
+	     $sender->MailMsg({to      => $arg->{mailto},
+			       subject => $arg->{subject},
+			       msg     => $arg->{body}
+			   }) ) ||
+	    ($arg->{tartarget} && 
+	     $sender->MailFile({to      => $arg->{mailto},
+				subject => $arg->{subject},
+				msg     => $arg->{body},
+				file    => $arg->{tartarget}})) ){
+		unlink $arg->{tartarget} if( $arg->{tartarget} );
+		return 1;
+	    }
+    }
+    $sender->MailMsg({to      => "$userid.bbs\@$MYHOSTNAME",
+		      subject => "無法寄出水球整理",
+		      msg     =>
+			  "親愛的使用者您好\n\n".
+			  "你的水球整理記錄無法寄達指定位置 $mailto \n\n".
+			  "$hostname站長群 敬上 ".POSIX::ctime(time())});
+    unlink $arg->{tartarget} if( $arg->{tartarget} );
+    return 1;
+}
diff --git a/pttbbs/util/weather.perl b/pttbbs/util/weather.perl
new file mode 100644
index 00000000..5edc147a
--- /dev/null
+++ b/pttbbs/util/weather.perl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+# $Id: weather.perl,v 1.8 2003/05/06 16:54:42 victor Exp $
+#
+# 不能跑的話，看看 bbspost 的路徑是否正確。
+# 如果發出的 post 沒有氣象報告而是說 URL 找不到，則確定一下能不能看到
+# 中央氣象局的 WWW 及 URL 是否正確。
+# 理論上適用所有 Eagle BBS 系列。
+#                                       -- Beagle Apr 13 1997
+
+use lib '/home/bbs/bin';
+use LocalVars;
+
+open(BBSPOST, "| bin/webgrep>etc/weather.tmp");
+# 日期
+open(DATE, "date +'%a %b %d %T %Y' |");
+$date = <DATE>;
+chop $date;
+close DATE;
+
+# Header
+# 內容
+#open(WEATHER, "$LYNX -assume_charset=big5 -assume_local_charset=big5 -dump http://www.cwb.gov.tw/V3.0/weather/text/W03.htm |");
+open(WEATHER, "$LYNX -assume_charset=big5 -assume_local_charset=big5 -dump -nolist ftp://ftpsv.cwb.gov.tw/pub/forecast/W002.txt|");
+
+while (<WEATHER>) {
+  print BBSPOST if ($_ ne "\n");
+}
+close WEATHER;
+
+# 簽名檔
+print BBSPOST "\n--\n";
+print BBSPOST "我是beagle所有可愛的小餅乾...跨海為Ptt服務\n";
+print BBSPOST "--\n";
+print BBSPOST "☆ [Origin: ◎果醬小站◎] [From: [藍莓鬆餅屋]       ] ";
+
+close BBSPOST;
+
diff --git a/pttbbs/util/weather.sh b/pttbbs/util/weather.sh
new file mode 100644
index 00000000..315b0ec3
--- /dev/null
+++ b/pttbbs/util/weather.sh
@@ -0,0 +1,5 @@
+#!/bin/sh
+# $Id: weather.sh,v 1.1 2002/03/07 15:13:46 in2 Exp $
+#
+bin/weather.perl
+bin/post Record 全省各地天氣預報 [氣象小姐] etc/weather.tmp
diff --git a/pttbbs/util/webgrep.c b/pttbbs/util/webgrep.c
new file mode 100644
index 00000000..d101e035
--- /dev/null
+++ b/pttbbs/util/webgrep.c
@@ -0,0 +1,46 @@
+/* $Id$ */
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+
+int main()
+{
+    char genbuf[256], *str, *buf;
+    while (fgets(genbuf, 255, stdin))
+    {
+	register int ansi;
+	if (!strncmp(genbuf, "References", 10))
+	    break;
+	str = genbuf;
+	buf = genbuf;
+	if (!strncmp(genbuf, "lynx: Can't access", 18))
+	{
+	    printf("氣象報導小姐休假中,請到Record板翻過去資料.");
+	    break;
+	}
+	for (ansi = 0; *str; str++)
+	{
+	    if (*str == '[' && strchr("0123456789", *(str + 1)))
+	    {
+		ansi = 1;
+	    }
+	    else if (ansi)
+	    {
+		if (!strchr("0123456789]", *str))
+		{
+		    ansi = 0;
+		    if (str)
+			*buf++ = *str;
+		}
+	    }
+	    else
+	    {
+		if (str)
+		    *buf++ = *str;
+	    }
+	}
+	*buf = 0;
+	printf(genbuf);
+    }
+    return 0;
+}
diff --git a/pttbbs/util/xchatd.c b/pttbbs/util/xchatd.c
new file mode 100644
index 00000000..906bded0
--- /dev/null
+++ b/pttbbs/util/xchatd.c
@@ -0,0 +1,3466 @@
+/* $Id$ */
+#include "bbs.h"
+#include "xchatd.h"
+
+#define SERVER_USAGE
+#define WATCH_DOG
+#undef  MONITOR                 /* 監督 chatroom 活動以解決糾紛 */
+#undef  DEBUG                   /* 程式除錯之用 */
+
+#ifdef  DEBUG
+#define MONITOR
+#endif
+
+static int gline;
+
+#ifdef  WATCH_DOG
+#define MYDOG  gline = __LINE__
+#else
+#define MYDOG                   /* NOOP */
+#endif
+
+
+
+#define CHAT_PIDFILE    "log/chat.pid"
+#define CHAT_LOGFILE    "log/chat.log"
+#define CHAT_INTERVAL   (60 * 30)
+#define SOCK_QLEN       1
+
+
+/* name of the main room (always exists) */
+
+
+#define MAIN_NAME       "main"
+#define MAIN_TOPIC      "烹茶可貢西天佛"
+
+
+#define ROOM_LOCKED     1
+#define ROOM_SECRET     2
+#define ROOM_OPENTOPIC  4
+#define ROOM_HANDUP     8
+#define ROOM_ALL        (NULL)
+
+
+#define LOCKED(room)    (room->rflag & ROOM_LOCKED)
+#define SECRET(room)    (room->rflag & ROOM_SECRET)
+#define OPENTOPIC(room) (room->rflag & ROOM_OPENTOPIC)
+#define RHANDUP(room)    (room->rflag & ROOM_HANDUP)
+
+#define RESTRICTED(usr) (usr->uflag == 0)       /* guest */
+#define CHATSYSOP(usr)  (usr->uflag & ( PERM_SYSOP | PERM_CHATROOM))
+/* Thor: SYSOP 與 CHATROOM都是 chat總管 */
+#define PERM_ROOMOP     PERM_CHAT       /* Thor: 借 PERM_CHAT為 PERM_ROOMOP */
+#define PERM_HANDUP     PERM_BM		/* 借 PERM_BM 為有沒有舉手過 */
+#define PERM_SAY        PERM_NOTOP	/* 借 PERM_NOTOP 為有沒有發表權 */
+
+/* 進入時需清空              */
+/* Thor: ROOMOP為房間管理員 */
+#define ROOMOP(usr)  (usr->uflag & ( PERM_ROOMOP | PERM_SYSOP | PERM_CHATROOM))
+#define CLOAK(usr)      (usr->uflag & PERM_CLOAK)
+#define HANDUP(usr)  (usr->uflag & PERM_HANDUP) 
+#define SAY(usr)      (usr->uflag & PERM_SAY)
+/* Thor: 聊天室隱身術 */
+
+
+/* ----------------------------------------------------- */
+/* ChatRoom data structure                               */
+/* ----------------------------------------------------- */
+
+typedef struct ChatRoom ChatRoom;
+typedef struct ChatUser ChatUser;
+typedef struct UserList UserList;
+typedef struct ChatCmd ChatCmd;
+typedef struct ChatAction ChatAction;
+
+struct ChatUser
+{
+    struct ChatUser *unext;
+    int sock;                     /* user socket */
+    int talksock;                 /* talk socket */
+    ChatRoom *room;
+    UserList *ignore;
+    int userno;
+    int uflag;
+    int clitype;                  /* Xshadow: client type. 1 for common client,
+				   * 0 for bbs only client */
+    time_t uptime;                /* Thor: unused */
+    char userid[IDLEN + 1];       /* real userid */
+    char chatid[9];               /* chat id */
+    char lasthost[30];            /* host address */
+    char ibuf[80];                /* buffer for non-blocking receiving */
+    int isize;                    /* current size of ibuf */
+};
+
+
+struct ChatRoom
+{
+    struct ChatRoom *next, *prev;
+    char name[IDLEN];
+    char topic[48];               /* Let the room op to define room topic */
+    int rflag;                    /* ROOM_LOCKED, ROOM_SECRET, ROOM_OPENTOPIC */
+    int occupants;                /* number of users in room */
+    UserList *invite;
+};
+
+
+struct UserList
+{
+    struct UserList *next;
+    int userno;
+    char userid[IDLEN + 1];
+};
+
+
+struct ChatCmd
+{
+    char *cmdstr;
+    void (*cmdfunc) ();
+    int exact;
+};
+
+
+static ChatRoom mainroom;
+static ChatUser *mainuser;
+static fd_set mainfds;
+static int maxfds;              /* number of sockets to select on */
+static int totaluser;           /* current number of connections */
+static struct timeval zerotv;   /* timeval for selecting */
+static char chatbuf[256];       /* general purpose buffer */
+static int common_client_command;
+
+static char msg_not_op[] = "◆ 您不是這間聊天室的 Op";
+static char msg_no_such_id[] = "◆ 目前沒有人使用 [%s] 這個聊天代號";
+static char msg_not_here[] = "◆ [%s] 不在這間聊天室";
+
+
+#define FUZZY_USER      ((ChatUser *) -1)
+
+
+typedef struct userec_t ACCT;
+
+/* ----------------------------------------------------- */
+/* acct_load for check acct                              */
+/* ----------------------------------------------------- */
+
+int
+acct_load(acct, userid)
+    ACCT *acct;
+    char *userid;
+{
+    int id;
+    if((id=searchuser(userid))<0)
+      {
+	return -1;
+      }
+    else
+      {
+	return get_record(FN_PASSWD, acct, sizeof(ACCT), id);  
+      }
+}
+
+/*
+ * str_ncpy() - similar to strncpy(3) but terminates string always with '\0'
+ * if n != 0, and doesn't do padding
+ */
+
+void
+str_ncpy(dst, src, n)
+    char *dst;
+    char *src;
+    int n;
+{
+    char *end;
+
+    end = dst + n;
+
+    do
+    {
+	n = (dst == end) ? 0 : *src++;
+	*dst++ = n;
+    } while (n);
+}
+
+
+/* ----------------------------------------------------- */
+/* usr_fpath for check acct                              */
+/* ----------------------------------------------------- */
+char *str_home_file = "home/%c/%s/%s";
+
+void
+usr_fpath(buf, userid, fname)
+    char *buf, *userid, *fname;
+{
+    sprintf(buf, str_home_file, userid[0], userid, fname);
+}
+
+/* ----------------------------------------------------- */
+/* chkpasswd for check passwd                            */
+/* ----------------------------------------------------- */
+char *crypt();
+static char pwbuf[PASSLEN];
+
+int
+chkpasswd(passwd, test)
+    char *passwd, *test;
+{
+    char *pw;
+
+    str_ncpy(pwbuf, test, PASSLEN);
+    pw = crypt(pwbuf, passwd);
+    return (!strncmp(pw, passwd, PASSLEN));
+}
+
+/* ----------------------------------------------------- */
+/* operation log and debug information                   */
+/* ----------------------------------------------------- */
+
+
+static int flog;                /* log file descriptor */
+
+
+static void
+logit(key, msg)
+    char *key;
+    char *msg;
+{
+    time_t now;
+    struct tm *p;
+    char buf[512];
+
+    time(&now);
+    p = localtime(&now);
+    sprintf(buf, "%02d/%02d %02d:%02d:%02d %-13s%s\n",
+	    p->tm_mon + 1, p->tm_mday,
+	    p->tm_hour, p->tm_min, p->tm_sec, key, msg);
+    write(flog, buf, strlen(buf));
+}
+
+
+static void
+log_init()
+{
+    flog = open(CHAT_LOGFILE, O_WRONLY | O_CREAT | O_APPEND, 0644);
+    logit("START", "chat daemon");
+}
+
+
+static void
+log_close()
+{
+    close(flog);
+}
+
+
+#ifdef  DEBUG
+static void
+debug_user()
+{
+    register ChatUser *user;
+    int i;
+    char buf[80];
+
+    i = 0;
+    for (user = mainuser; user; user = user->unext)
+    {
+	sprintf(buf, "%d) %s %s", ++i, user->userid, user->chatid);
+	logit("DEBUG_U", buf);
+    }
+}
+
+
+static void
+debug_room()
+{
+    register ChatRoom *room;
+    int i;
+    char buf[80];
+
+    i = 0;
+    room = &mainroom;
+
+    do
+    {
+	sprintf(buf, "%d) %s %d", ++i, room->name, room->occupants);
+	logit("DEBUG_R", buf);
+    } while (room = room->next);
+}
+#endif                          /* DEBUG */
+
+
+/* ----------------------------------------------------- */
+/* string routines                                       */
+/* ----------------------------------------------------- */
+
+
+static int valid_chatid(register char *id) {
+    register int ch, len;
+    
+    for(len = 0; (ch = *id); id++) {
+	/* Thor: check for endless */
+	MYDOG;
+	
+	if(ch == '/' || ch == '*' || ch == ':')
+	    return 0;
+	if(++len > 8)
+	    return 0;
+    }
+    return len;
+}
+
+/* Case Independent strcmp : 1 ==> euqal */
+
+
+static int
+str_equal(s1, s2)
+    register unsigned char *s1, *s2;      /* Thor: 加上 unsigned,
+                                         * 避免中文的問題 */
+{
+    register int c1, c2;
+
+    for (;;)
+    {                             /* Thor: check for endless */
+	MYDOG;
+
+	c1 = *s1;
+	if (c1 >= 'A' && c1 <= 'Z')
+	    c1 |= 32;
+
+	c2 = *s2;
+	if (c2 >= 'A' && c2 <= 'Z')
+	    c2 |= 32;
+
+	if (c1 != c2)
+	    return 0;
+
+	if (!c1)
+	    return 1;
+
+	s1++;
+	s2++;
+    }
+}
+
+
+/* ----------------------------------------------------- */
+/* match strings' similarity case-insensitively          */
+/* ----------------------------------------------------- */
+/* str_match(keyword, string)                            */
+/* ----------------------------------------------------- */
+/* 0 : equal            ("foo", "foo")                   */
+/* -1 : mismatch        ("abc", "xyz")                   */
+/* ow : similar         ("goo", "good")                  */
+/* ----------------------------------------------------- */
+
+
+static int
+str_match(s1, s2)
+    register unsigned char *s1, *s2;      /* Thor: 加上 unsigned,
+                                         * 避免中文的問題 */
+{
+    register int c1, c2;
+
+    for (;;)
+    {                             /* Thor: check for endless */
+	MYDOG;
+
+	c2 = *s2;
+	c1 = *s1;
+	if (!c1)
+	{
+	    return c2;
+	}
+
+	if (c1 >= 'A' && c1 <= 'Z')
+	    c1 |= 32;
+
+	if (c2 >= 'A' && c2 <= 'Z')
+	    c2 |= 32;
+
+	if (c1 != c2)
+	    return -1;
+
+	s1++;
+	s2++;
+    }
+}
+
+
+/* ----------------------------------------------------- */
+/* search user/room by its ID                            */
+/* ----------------------------------------------------- */
+
+
+static ChatUser *
+cuser_by_userid(userid)
+    char *userid;
+{
+    register ChatUser *cu;
+
+    for (cu = mainuser; cu; cu = cu->unext)
+    {
+	MYDOG;
+
+	if (str_equal(userid, cu->userid))
+	    break;
+    }
+    return cu;
+}
+
+
+static ChatUser *
+cuser_by_chatid(chatid)
+    char *chatid;
+{
+    register ChatUser *cu;
+
+    for (cu = mainuser; cu; cu = cu->unext)
+    {
+	MYDOG;
+
+	if (str_equal(chatid, cu->chatid))
+	    break;
+    }
+    return cu;
+}
+
+
+static ChatUser *
+fuzzy_cuser_by_chatid(chatid)
+    char *chatid;
+{
+    register ChatUser *cu, *xuser;
+    int mode;
+
+    xuser = NULL;
+
+    for (cu = mainuser; cu; cu = cu->unext)
+    {
+	MYDOG;
+
+	mode = str_match(chatid, cu->chatid);
+	if (mode == 0)
+	    return cu;
+
+	if (mode > 0)
+	{
+	    if (xuser == NULL)
+		xuser = cu;
+	    else
+		return FUZZY_USER;      /* 符合者大於 2 人 */
+	}
+    }
+    return xuser;
+}
+
+
+static ChatRoom *croom_by_roomid(char *roomid) {
+    register ChatRoom *room;
+    
+    room = &mainroom;
+    do {
+	MYDOG;
+	
+	if(str_equal(roomid, room->name))
+	    break;
+    } while((room = room->next));
+    return room;
+}
+
+
+/* ----------------------------------------------------- */
+/* UserList routines                                     */
+/* ----------------------------------------------------- */
+
+
+static void
+list_free(list)
+    UserList *list;
+{
+    UserList *tmp;
+
+    while (list)
+    {
+	MYDOG;
+
+	tmp = list->next;
+
+	free(list);
+	MYDOG;
+	list = tmp;
+    }
+}
+
+
+static void
+list_add(list, user)
+    UserList **list;
+    ChatUser *user;
+{
+    UserList *node;
+
+    MYDOG;
+
+    if((node = (UserList *) malloc(sizeof(UserList)))) {
+	/* Thor: 防止空間不夠 */
+	strcpy(node->userid, user->userid);
+	node->userno = user->userno;
+	node->next = *list;
+	*list = node;
+    }
+    MYDOG;
+}
+
+
+static int
+list_delete(list, userid)
+    UserList **list;
+    char *userid;
+{
+    UserList *node;
+
+    while((node = *list)) {
+	MYDOG;
+
+	if (str_equal(node->userid, userid))
+	{
+	    *list = node->next;
+	    MYDOG;
+	    free(node);
+	    MYDOG;
+	    return 1;
+	}
+	list = &node->next;         /* Thor: list要跟著前進 */
+    }
+
+    return 0;
+}
+
+
+static int
+list_belong(list, userno)
+    UserList *list;
+    int userno;
+{
+    while (list)
+    {
+	MYDOG;
+
+	if (userno == list->userno)
+	    return 1;
+	list = list->next;
+    }
+    return 0;
+}
+
+
+/* ------------------------------------------------------ */
+/* non-blocking socket routines : send message to users   */
+/* ------------------------------------------------------ */
+
+
+static void
+Xdo_send(nfds, wset, msg, number)
+    int nfds;
+    fd_set *wset;
+    char *msg;
+    int number;
+{
+    int sr;
+
+    /* Thor: for future reservation bug */
+
+    zerotv.tv_sec = 0;
+    zerotv.tv_usec = 16384;  /* Ptt: 改成16384 避免不按時for loop吃cpu time
+				16384 約每秒64次 */
+
+    MYDOG;
+
+    sr = select(nfds + 1, NULL, wset, NULL, &zerotv);
+
+    MYDOG;
+
+    if (sr > 0)
+    {
+	register int len;
+
+	len = strlen(msg) + 1;
+	while (nfds >= 0)
+	{
+	    MYDOG;
+
+	    if (FD_ISSET(nfds, wset))
+	    {
+		MYDOG;
+		send(nfds, msg, len, 0);/* Thor: 如果buffer滿了, 仍會 block */
+		MYDOG;
+		if (--sr <= 0)
+		    return;
+	    }
+	    nfds--;
+	}
+    }
+}
+
+
+static void
+send_to_room(room, msg, userno, number)
+    ChatRoom *room;
+    char *msg;
+    int userno;
+    int number;
+{
+    ChatUser *cu;
+    fd_set wset, *wptr;
+    int sock, max;
+    static char sendbuf[256];
+    int clitype;                  /* 分為 bbs client 及 common client 兩次處理 */
+
+    for (clitype = (number == MSG_MESSAGE || !number) ? 0 : 1; clitype < 2; clitype++)
+    {
+
+	FD_ZERO(wptr = &wset);
+	max = -1;
+
+	for (cu = mainuser; cu; cu = cu->unext)
+	{
+	    MYDOG;
+
+	    if (room == cu->room || room == ROOM_ALL)
+	    {
+		if (cu->clitype == clitype && (!userno || !list_belong(cu->ignore, userno)))
+		{
+		    sock = cu->sock;
+		    FD_SET(sock, wptr);
+		    if (max < sock)
+			max = sock;
+		}
+	    }
+	}
+
+	if (max < 0)
+	    continue;
+
+	if (clitype)
+	{
+	    if (strlen(msg))
+		sprintf(sendbuf, "%3d %s", number, msg);
+	    else
+		sprintf(sendbuf, "%3d", number);
+
+	    Xdo_send(max, wptr, sendbuf);
+	}
+	else
+	    Xdo_send(max, wptr, msg);
+    }
+}
+
+
+static void
+send_to_user(user, msg, userno, number)
+    ChatUser *user;
+    char *msg;
+    int userno;
+    int number;
+{
+    if (!user->clitype && number && number != MSG_MESSAGE)
+	return;
+
+    if (!userno || !list_belong(user->ignore, userno))
+    {
+	fd_set wset, *wptr;
+	int sock;
+	static char sendbuf[256];
+
+	sock = user->sock;
+	FD_ZERO(wptr = &wset);
+	FD_SET(sock, wptr);
+
+	if (user->clitype)
+	{
+	    if (strlen(msg))
+		sprintf(sendbuf, "%3d %s", number, msg);
+	    else
+		sprintf(sendbuf, "%3d", number);
+	    Xdo_send(sock, wptr, sendbuf);
+	}
+	else
+	    Xdo_send(sock, wptr, msg);
+    }
+}
+
+#if 0
+static void
+send_to_sock(sock, msg)         /* Thor: unused */
+    int sock;
+    char *msg;
+{
+    fd_set wset, *wptr;
+
+    FD_ZERO(wptr = &wset);
+    FD_SET(sock, wptr);
+    Xdo_send(sock, wptr, msg);
+}
+#endif
+
+/* ----------------------------------------------------- */
+
+static void
+room_changed(room)
+    ChatRoom *room;
+{
+    if (!room)
+	return;
+
+    sprintf(chatbuf, "= %s %d %d %s", room->name, room->occupants, room->rflag, room->topic);
+    send_to_room(ROOM_ALL, chatbuf, 0, MSG_ROOMNOTIFY);
+}
+
+static void
+user_changed(cu)
+    ChatUser *cu;
+{
+    if (!cu)
+	return;
+
+    sprintf(chatbuf, "= %s %s %s %s", cu->userid, cu->chatid, cu->room->name, cu->lasthost);
+    if (ROOMOP(cu))
+	strcat(chatbuf, " Op");
+    send_to_room(cu->room, chatbuf, 0, MSG_USERNOTIFY);
+}
+
+static void
+exit_room(user, mode, msg)
+    ChatUser *user;
+    int mode;
+    char *msg;
+{
+    ChatRoom *room;
+
+    if((room = user->room)) {
+	user->room = NULL;
+	user->uflag &= ~PERM_ROOMOP;
+
+	if (--room->occupants > 0)
+	{
+	    char *chatid;
+
+	    chatid = user->chatid;
+	    switch (mode)
+	    {
+	    case EXIT_LOGOUT:
+
+		sprintf(chatbuf, "◆ %s 離開了 ...", chatid);
+		if (msg && *msg)
+		{
+		    strcat(chatbuf, ": ");
+		    msg[79] = 0;          /* Thor:防止太長 */
+		    strncat(chatbuf, msg, 80);
+		}
+		break;
+
+	    case EXIT_LOSTCONN:
+
+		sprintf(chatbuf, "◆ %s 成了斷線的風箏囉", chatid);
+		break;
+
+	    case EXIT_KICK:
+
+		sprintf(chatbuf, "◆ 哈哈！%s 被踢出去了", chatid);
+		break;
+	    }
+	    if (!CLOAK(user))         /* Thor: 聊天室隱身術 */
+		send_to_room(room, chatbuf, 0, MSG_MESSAGE);
+
+	    sprintf(chatbuf, "- %s", user->userid);
+	    send_to_room(room, chatbuf, 0, MSG_USERNOTIFY);
+	    room_changed(room);
+
+	    return;
+	}
+
+	else if (room != &mainroom)
+	{                           /* Thor: 人數為0時,不是mainroom才free */
+	    register ChatRoom *next;
+
+#ifdef  DEBUG
+	    debug_room();
+#endif
+
+	    sprintf(chatbuf, "- %s", room->name);
+	    send_to_room(ROOM_ALL, chatbuf, 0, MSG_ROOMNOTIFY);
+
+	    room->prev->next = room->next;
+	    if((next = room->next))
+		next->prev = room->prev;
+	    list_free(room->invite);
+
+	    MYDOG;
+	    free(room);
+	    MYDOG;
+
+#ifdef  DEBUG
+	    debug_room();
+#endif
+	}
+    }
+}
+
+
+/* ----------------------------------------------------- */
+/* chat commands                                         */
+/* ----------------------------------------------------- */
+
+/* ----------------------------------------------------- */
+/* (.ACCT) 使用者帳號 (account) subroutines              */
+/* ----------------------------------------------------- */
+
+static char datemsg[32];
+
+char *
+Ctime(clock)
+    time_t *clock;
+{
+    struct tm *t = localtime(clock);
+    static char week[] = "日一二三四五六";
+
+    sprintf(datemsg, "%d年%2d月%2d日%3d:%02d:%02d 星期%.2s",
+	    t->tm_year - 11, t->tm_mon + 1, t->tm_mday,
+	    t->tm_hour, t->tm_min, t->tm_sec, &week[t->tm_wday << 1]);
+    return (datemsg);
+}
+
+static void
+chat_query(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char str[256];
+    int i;
+    ACCT xuser;
+    FILE *fp;
+
+    if (acct_load(&xuser, msg) >= 0)
+    {
+	sprintf(chatbuf, "%s(%s) 共上站 %d 次，文章 %d 篇",
+		xuser.userid, xuser.username, xuser.numlogins, xuser.numposts);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+
+	sprintf(chatbuf, "最近(%s)從(%s)上站", Ctime(&xuser.lastlogin),
+		(xuser.lasthost[0] ? xuser.lasthost : "外太空"));
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+
+	usr_fpath(chatbuf, xuser.userid, "plans");
+	fp = fopen(chatbuf, "rt");
+	i = 0;
+	while (fp && fgets(str, 256, fp))
+	{
+	    if (!strlen(str))
+		continue;
+
+	    str[strlen(str) - 1] = 0;
+	    send_to_user(cu, str, 0, MSG_MESSAGE);
+	    if (++i >= MAX_QUERYLINES)
+		break;
+	}
+	fclose(fp);
+    }
+    else
+    {
+	sprintf(chatbuf, msg_no_such_id, msg);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+    }
+}
+
+static void
+chat_clear(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    if (cu->clitype)
+	send_to_user(cu, "", 0, MSG_CLRSCR);
+    else
+	send_to_user(cu, "/c", 0, MSG_MESSAGE);
+}
+
+static void
+chat_date(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    time_t thetime;
+
+    time(&thetime);
+    sprintf(chatbuf, "◆ 標準時間: %s", Ctime(&thetime));
+    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+}
+
+
+static void
+chat_topic(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    ChatRoom *room;
+    char *topic;
+
+    if (!ROOMOP(cu) && !OPENTOPIC(cu->room))
+    {
+	send_to_user(cu, msg_not_op, 0, MSG_MESSAGE);
+	return;
+    }
+
+    if (*msg == '\0')
+    {
+	send_to_user(cu, "※ 請指定話題", 0, MSG_MESSAGE);
+	return;
+    }
+
+    room = cu->room;
+    topic = room->topic;          /* Thor: room 有可能 NULL嗎?? */
+    strncpy(topic, msg, 47);
+    topic[47] = '\0';
+
+    if (cu->clitype)
+	send_to_room(room, topic, 0, MSG_TOPIC);
+    else
+    {
+	sprintf(chatbuf, "/t%s", topic);
+	send_to_room(room, chatbuf, 0, 0);
+    }
+
+    room_changed(room);
+
+    sprintf(chatbuf, "◆ %s 將話題改為 %s", cu->chatid, topic);
+    if (!CLOAK(cu))               /* Thor: 聊天室隱身術 */
+	send_to_room(room, chatbuf, 0, MSG_MESSAGE);
+}
+
+
+static void
+chat_version(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    sprintf(chatbuf, "%d %d", XCHAT_VERSION_MAJOR, XCHAT_VERSION_MINOR);
+    send_to_user(cu, chatbuf, 0, MSG_VERSION);
+}
+
+static void
+chat_nick(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char *chatid, *str;
+    ChatUser *xuser;
+
+    chatid = nextword(&msg);
+    chatid[8] = '\0';
+    if (!valid_chatid(chatid))
+    {
+	send_to_user(cu, "※ 這個聊天代號是不正確的", 0, MSG_MESSAGE);
+	return;
+    }
+
+    xuser = cuser_by_chatid(chatid);
+    if (xuser != NULL && xuser != cu)
+    {
+	send_to_user(cu, "※ 已經有人捷足先登囉", 0, MSG_MESSAGE);
+	return;
+    }
+
+    str = cu->chatid;
+
+    sprintf(chatbuf, "※ %s 將聊天代號改為 %s", str, chatid);
+    if (!CLOAK(cu))               /* Thor: 聊天室隱身術 */
+	send_to_room(cu->room, chatbuf, cu->userno, MSG_MESSAGE);
+
+    strcpy(str, chatid);
+
+    user_changed(cu);
+
+    if (cu->clitype)
+	send_to_user(cu, chatid, 0, MSG_NICK);
+    else
+    {
+	sprintf(chatbuf, "/n%s", chatid);
+	send_to_user(cu, chatbuf, 0, 0);
+    }
+}
+
+static void
+chat_list_rooms(cuser, msg)
+    ChatUser *cuser;
+    char *msg;
+{
+    ChatRoom *cr, *room;
+
+    if (RESTRICTED(cuser))
+    {
+	send_to_user(cuser, "※ 您沒有權限列出現有的聊天室", 0, MSG_MESSAGE);
+	return;
+    }
+
+    if (common_client_command)
+	send_to_user(cuser, "", 0, MSG_ROOMLISTSTART);
+    else
+	send_to_user(cuser, " 談天室名稱  │人數│話題        ", 0, MSG_MESSAGE);
+
+    room = cuser->room;
+    cr = &mainroom;
+    do
+    {
+	MYDOG;
+
+
+	if (!SECRET(cr) || CHATSYSOP(cuser) || (cr == room && ROOMOP(cuser)))
+	{
+	    if (common_client_command)
+	    {
+		sprintf(chatbuf, "%s %d %d %s", cr->name, cr->occupants, cr->rflag, cr->topic);
+		send_to_user(cuser, chatbuf, 0, MSG_ROOMLIST);
+	    }
+	    else
+	    {
+		sprintf(chatbuf, " %-12s│%4d│%s", cr->name, cr->occupants, cr->topic);
+		if (LOCKED(cr))
+		    strcat(chatbuf, " [鎖住]");
+		if (SECRET(cr))
+		    strcat(chatbuf, " [秘密]");
+		if (OPENTOPIC(cr))
+		    strcat(chatbuf, " [話題]");
+		send_to_user(cuser, chatbuf, 0, MSG_MESSAGE);
+	    }
+
+	}
+    } while((cr = cr->next));
+
+    if (common_client_command)
+	send_to_user(cuser, "", 0, MSG_ROOMLISTEND);
+}
+
+
+static void
+chat_do_user_list(cu, msg, theroom)
+    ChatUser *cu;
+    char *msg;
+    ChatRoom *theroom;
+{
+    ChatRoom *myroom, *room;
+    ChatUser *user;
+
+    int start, stop, curr = 0;
+    start = atoi(nextword(&msg));
+    stop = atoi(nextword(&msg));
+
+    myroom = cu->room;
+
+#ifdef DEBUG
+    logit(cu->chatid, "do user list");
+#endif
+
+    if (common_client_command)
+	send_to_user(cu, "", 0, MSG_USERLISTSTART);
+    else
+	send_to_user(cu, " 聊天代號│使用者代號  │聊天室 ", 0, MSG_MESSAGE);
+
+    for (user = mainuser; user; user = user->unext)
+    {
+	MYDOG;
+
+
+	room = user->room;
+	if ((theroom != ROOM_ALL) && (theroom != room))
+	    continue;
+
+	if (myroom != room)
+	{
+	    if (RESTRICTED(cu) ||
+		(room && SECRET(room) && !CHATSYSOP(cu)))
+		continue;
+	}
+
+	if (CLOAK(user))            /* Thor: 隱身術 */
+	    continue;
+
+
+	curr++;
+	if (start && curr < start)
+	    continue;
+	else if (stop && (curr > stop))
+	    break;
+
+	if (common_client_command)
+	{
+	    if (!room)
+		continue;               /* Xshadow: 還沒進入任何房間的就不列出 */
+
+	    sprintf(chatbuf, "%s %s %s %s", user->chatid, user->userid, room->name, user->lasthost);
+	    if (ROOMOP(user))
+		strcat(chatbuf, " Op");
+	}
+	else
+	{
+	    sprintf(chatbuf, " %-8s│%-12s│%s", user->chatid, user->userid, room ? room->name : "[在門口徘徊]");
+	    if (ROOMOP(user))
+		strcat(chatbuf, " [Op]");
+	}
+
+#ifdef  DEBUG
+	logit("list_U", chatbuf);
+#endif
+
+	send_to_user(cu, chatbuf, 0, common_client_command ? MSG_USERLIST : MSG_MESSAGE);
+    }
+    if (common_client_command)
+	send_to_user(cu, "", 0, MSG_USERLISTEND);
+}
+
+static void
+chat_list_by_room(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    ChatRoom *whichroom;
+    char *roomstr;
+
+    roomstr = nextword(&msg);
+    if (*roomstr == '\0')
+	whichroom = cu->room;
+    else
+    {
+	if ((whichroom = croom_by_roomid(roomstr)) == NULL)
+	{
+	    sprintf(chatbuf, "※ 沒有 [%s] 這個聊天室", roomstr);
+	    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	    return;
+	}
+
+	if (whichroom != cu->room && SECRET(whichroom) && !CHATSYSOP(cu))
+	{                           /* Thor: 要不要測同一room雖SECRET但可以列?
+				     * Xshadow: 我改成同一 room 就可以列 */
+	    send_to_user(cu, "※ 無法列出在秘密聊天室的使用者", 0, MSG_MESSAGE);
+	    return;
+	}
+    }
+    chat_do_user_list(cu, msg, whichroom);
+}
+
+
+static void
+chat_list_users(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    chat_do_user_list(cu, msg, ROOM_ALL);
+}
+
+static void
+chat_chatroom(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    if (common_client_command)
+	send_to_user(cu, "批踢踢茶藝館 4 21", 0, MSG_CHATROOM);
+}
+
+static void
+chat_map_chatids(cu, whichroom)
+    ChatUser *cu;                 /* Thor: 還沒有作不同間的 */
+    ChatRoom *whichroom;
+{
+    int c;
+    ChatRoom *myroom, *room;
+    ChatUser *user;
+
+    /* myroom = cu->room; */
+    myroom = whichroom;
+    send_to_user(cu,
+		 " 聊天代號 使用者代號  │ 聊天代號 使用者代號  │ 聊天代號 使用者代號 ", 0, MSG_MESSAGE);
+
+    c = 0;
+
+    for (user = mainuser; user; user = user->unext)
+    {
+	MYDOG;
+
+	room = user->room;
+	MYDOG;
+	if (whichroom != ROOM_ALL && whichroom != room)
+	    continue;
+	MYDOG;
+	if (myroom != room)
+	{
+	    if (RESTRICTED(cu) ||     /* Thor: 要先check room 是不是空的 */
+		(room && SECRET(room) && !CHATSYSOP(cu)))
+		continue;
+	}
+	MYDOG;
+	if (CLOAK(user))            /* Thor:隱身術 */
+	    continue;
+	sprintf(chatbuf + (c * 24), " %-8s%c%-12s%s",
+		user->chatid, ROOMOP(user) ? '*' : ' ',
+		user->userid, (c < 2 ? "│" : "  "));
+	MYDOG;
+	if (++c == 3)
+	{
+	    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	    c = 0;
+	}
+	MYDOG;
+    }
+    if (c > 0)
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+}
+
+
+static void
+chat_map_chatids_thisroom(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    chat_map_chatids(cu, cu->room);
+}
+
+
+static void
+chat_setroom(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char *modestr;
+    ChatRoom *room;
+    char *chatid;
+    int sign;
+    int flag;
+    char *fstr = NULL;
+
+    if (!ROOMOP(cu))
+    {
+	send_to_user(cu, msg_not_op, 0, MSG_MESSAGE);
+	return;
+    }
+
+    modestr = nextword(&msg);
+    sign = 1;
+    if (*modestr == '+')
+	modestr++;
+    else if (*modestr == '-')
+    {
+	modestr++;
+	sign = 0;
+    }
+    if (*modestr == '\0')
+    {
+	send_to_user(cu,
+		     "※ 請指定狀態: {[+(設定)][-(取消)]}{[l(鎖住)][s(秘密)][t(開放話題)}", 0, MSG_MESSAGE);
+	return;
+    }
+
+    room = cu->room;
+    chatid = cu->chatid;
+
+    while (*modestr)
+    {
+	flag = 0;
+	switch (*modestr)
+	{
+	case 'l':
+	case 'L':
+	    flag = ROOM_LOCKED;
+	    fstr = "鎖住";
+	    break;
+
+	case 's':
+	case 'S':
+	    flag = ROOM_SECRET;
+	    fstr = "秘密";
+	    break;
+
+	case 't':
+	case 'T':
+	    flag = ROOM_OPENTOPIC;
+	    fstr = "開放話題";
+	    break;
+	case 'h':
+	case 'H':
+	    flag = ROOM_OPENTOPIC;
+	    fstr = "舉手發言";
+	    break;
+
+	default:
+	    sprintf(chatbuf, "※ 狀態錯誤：[%c]", *modestr);
+	    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	}
+
+	/* Thor: check room 是不是空的, 應該不是空的 */
+	if (flag && (room->rflag & flag) != sign * flag)
+	{
+	    room->rflag ^= flag;
+	    sprintf(chatbuf, "※ 本聊天室被 %s %s [%s] 狀態",
+		    chatid, sign ? "設定為" : "取消", fstr);
+	    if (!CLOAK(cu))           /* Thor: 聊天室隱身術 */
+		send_to_room(room, chatbuf, 0, MSG_MESSAGE);
+	}
+	modestr++;
+    }
+    room_changed(room);
+}
+
+static char *chat_msg[] =
+{
+    "[//]help", "MUD-like 社交動詞",
+    "[/h]elp op", "談天室管理員專用指令",
+    "[/a]ct <msg>", "做一個動作",
+    "[/b]ye [msg]", "道別",
+    "[/c]lear  [/d]ate", "清除螢幕  目前時間",
+    /* "[/d]ate", "目前時間", *//* Thor: 指令太多 */
+
+#if 0
+    "[/f]ire <user> <msg>", "發送熱訊",   /* Thor.0727: 和 flag 衝key */
+#endif
+
+    "[/i]gnore [user]", "忽略使用者",
+    "[/j]oin <room>", "建立或加入談天室",
+    "[/l]ist [start [stop]]", "列出談天室使用者",
+    "[/m]sg <id|user> <msg>", "跟 <id> 說悄悄話",
+    "[/n]ick <id>", "將談天代號換成 <id>",
+    "[/p]ager", "切換呼叫器",
+    "[/q]uery <user>", "查詢網友",
+    "[/r]oom", "列出一般談天室",
+    "[/t]ape", "開關錄音機",
+    "[/u]nignore <user>", "取消忽略",
+
+#if 0
+    "[/u]sers", "列出站上使用者",
+#endif
+
+    "[/w]ho", "列出本談天室使用者",
+    "[/w]hoin <room>", "列出談天室<room> 的使用者",
+    NULL
+};
+
+
+static char *room_msg[] =
+{
+    "[/f]lag [+-][lsth]", "設定鎖定、秘密、開放話題、舉手發言",
+    "[/i]nvite <id>", "邀請 <id> 加入談天室",
+    "[/kick] <id>", "將 <id> 踢出談天室",
+    "[/o]p <id>", "將 Op 的權力轉移給 <id>",
+    "[/topic] <text>", "換個話題",
+    "[/w]all", "廣播 (站長專用)",
+    NULL
+};
+
+
+static void
+chat_help(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char **table, *str;
+
+    if (str_equal(nextword(&msg), "op"))
+    {
+	send_to_user(cu, "談天室管理員專用指令", 0, MSG_MESSAGE);
+	table = room_msg;
+    }
+    else
+    {
+	table = chat_msg;
+    }
+
+    while((str = *table++)) {
+	sprintf(chatbuf, "  %-20s- %s", str, *table++);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+    }
+}
+
+
+static void
+chat_private(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char *recipient;
+    ChatUser *xuser;
+    int userno;
+
+    userno = 0;
+    recipient = nextword(&msg);
+    xuser = (ChatUser *) fuzzy_cuser_by_chatid(recipient);
+    if (xuser == NULL)
+    {                             /* Thor.0724: 用 userid也可傳悄悄話 */
+	xuser = cuser_by_userid(recipient);
+    }
+    if (xuser == NULL)
+    {
+	sprintf(chatbuf, msg_no_such_id, recipient);
+    }
+    else if (xuser == FUZZY_USER)
+    {                             /* ambiguous */
+	strcpy(chatbuf, "※ 請指明聊天代號");
+    }
+    else if (*msg)
+    {
+	userno = cu->userno;
+	sprintf(chatbuf, "*%s* ", cu->chatid);
+	msg[79] = 0;                /* Thor:防止太長 */
+	strncat(chatbuf, msg, 80);
+	send_to_user(xuser, chatbuf, userno, MSG_MESSAGE);
+
+	if (xuser->clitype)
+	{                           /* Xshadow: 如果對方是用 client 上來的 */
+	    sprintf(chatbuf, "%s %s ", cu->userid, cu->chatid);
+	    msg[79] = 0;
+	    strncat(chatbuf, msg, 80);
+	    send_to_user(xuser, chatbuf, userno, MSG_PRIVMSG);
+	}
+	if (cu->clitype)
+	{
+	    sprintf(chatbuf, "%s %s ", xuser->userid, xuser->chatid);
+	    msg[79] = 0;
+	    strncat(chatbuf, msg, 80);
+	    send_to_user(cu, chatbuf, 0, MSG_MYPRIVMSG);
+	}
+
+	sprintf(chatbuf, "%s> ", xuser->chatid);
+	strncat(chatbuf, msg, 80);
+    }
+    else
+    {
+	sprintf(chatbuf, "※ 您想對 %s 說什麼話呢？", xuser->chatid);
+    }
+    send_to_user(cu, chatbuf, userno, MSG_MESSAGE);       /* Thor: userno 要改成 0
+							   * 嗎? */
+}
+
+
+static void
+chat_cloak(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    if (CHATSYSOP(cu))
+    {
+	cu->uflag ^= PERM_CLOAK;
+	sprintf(chatbuf, "◆ %s", CLOAK(cu) ? MSG_CLOAKED : MSG_UNCLOAK);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+    }
+}
+
+
+
+/* ----------------------------------------------------- */
+
+
+static void
+arrive_room(cuser, room)
+    ChatUser *cuser;
+    ChatRoom *room;
+{
+    char *rname;
+
+    /* Xshadow: 不必送給自己, 反正換房間就會重新 build user list */
+    sprintf(chatbuf, "+ %s %s %s %s", cuser->userid, cuser->chatid, room->name, cuser->lasthost);
+    if (ROOMOP(cuser))
+	strcat(chatbuf, " Op");
+    send_to_room(room, chatbuf, 0, MSG_USERNOTIFY);
+
+    cuser->room = room;
+    room->occupants++;
+    rname = room->name;
+
+    room_changed(room);
+
+    if (cuser->clitype)
+    {
+	send_to_user(cuser, rname, 0, MSG_ROOM);
+	send_to_user(cuser, room->topic, 0, MSG_TOPIC);
+    }
+    else
+    {
+	sprintf(chatbuf, "/r%s", rname);
+	send_to_user(cuser, chatbuf, 0, 0);
+	sprintf(chatbuf, "/t%s", room->topic);
+	send_to_user(cuser, chatbuf, 0, 0);
+    }
+
+    sprintf(chatbuf, "※ %s 進入 [%s] 包廂",
+	    cuser->chatid, rname);
+    if (!CLOAK(cuser))            /* Thor: 聊天室隱身術 */
+	send_to_room(room, chatbuf, cuser->userno, MSG_MESSAGE);
+}
+
+
+static int
+enter_room(cuser, rname, msg)
+    ChatUser *cuser;
+    char *rname;
+    char *msg;
+{
+    ChatRoom *room;
+    int create;
+
+    create = 0;
+    room = croom_by_roomid(rname);
+    if (room == NULL)
+    {
+	/* new room */
+
+#ifdef  MONITOR
+	logit(cuser->userid, "create new room");
+#endif
+
+	MYDOG;
+
+	room = (ChatRoom *) malloc(sizeof(ChatRoom));
+	MYDOG;
+	if (room == NULL)
+	{
+	    send_to_user(cuser, "※ 無法再新闢包廂了", 0, MSG_MESSAGE);
+	    return 0;
+	}
+
+	memset(room, 0, sizeof(ChatRoom));
+	memcpy(room->name, rname, IDLEN - 1);
+	strcpy(room->topic, "這是一個新天地");
+
+	sprintf(chatbuf, "+ %s 1 0 %s", room->name, room->topic);
+	send_to_room(ROOM_ALL, chatbuf, 0, MSG_ROOMNOTIFY);
+
+	if (mainroom.next != NULL)
+	    mainroom.next->prev = room;
+	room->next = mainroom.next;
+	mainroom.next = room;
+	room->prev = &mainroom;
+
+	create = 1;
+    }
+    else
+    {
+	if (cuser->room == room)
+	{
+	    sprintf(chatbuf, "※ 您本來就在 [%s] 聊天室囉 :)", rname);
+	    send_to_user(cuser, chatbuf, 0, MSG_MESSAGE);
+	    return 0;
+	}
+
+	if (!CHATSYSOP(cuser) && LOCKED(room) && !list_belong(room->invite, cuser->userno))
+	{
+	    send_to_user(cuser, "※ 內有惡犬，非請莫入", 0, MSG_MESSAGE);
+	    return 0;
+	}
+    }
+
+    exit_room(cuser, EXIT_LOGOUT, msg);
+    arrive_room(cuser, room);
+
+    if (create)
+	cuser->uflag |= PERM_ROOMOP;
+
+    return 0;
+}
+
+
+static void
+logout_user(cuser)
+    ChatUser *cuser;
+{
+    int sock;
+    ChatUser *xuser, *prev;
+
+#ifdef  DEBUG
+    logit("before", "logout");
+    debug_user();
+#endif
+
+    sock = cuser->sock;
+    shutdown(sock, 2);
+    close(sock);
+
+    MYDOG;
+
+    FD_CLR(sock, &mainfds);
+
+#if 0   /* Thor: 也許不差這一個 */
+    if (sock >= maxfds)
+	maxfds = sock - 1;
+#endif
+
+    list_free(cuser->ignore);
+
+#ifdef DEBUG
+    debug_user();
+#endif
+
+    xuser = mainuser;
+    if (xuser == cuser)
+    {
+	mainuser = cuser->unext;
+    }
+    else
+    {
+	do
+	{
+	    prev = xuser;
+	    xuser = xuser->unext;
+	    if (xuser == cuser)
+	    {
+		prev->unext = cuser->unext;
+		break;
+	    }
+	} while (xuser);
+    }
+
+    MYDOG;
+
+#ifdef DEBUG
+    sprintf(chatbuf, "%p", cuser);
+    logit("free cuser", chatbuf);
+#endif
+
+    free(cuser);
+
+#ifdef  DEBUG
+    logit("after", "logout");
+    debug_user();
+#endif
+
+#if 0
+    next = cuser->next;
+    prev = cuser->prev;
+    prev->next = next;
+    if (next)
+	next->prev = prev;
+
+    if (cuser)
+	free(cuser);
+    MYDOG;
+
+#endif
+
+    totaluser--;
+}
+
+
+static void
+print_user_counts(cuser)
+    ChatUser *cuser;
+{
+    ChatRoom *room;
+    int num, userc, suserc, roomc, number;
+
+    userc = suserc = roomc = 0;
+
+    room = &mainroom;
+    do
+    {
+	MYDOG;
+
+	num = room->occupants;
+	if (SECRET(room))
+	{
+	    suserc += num;
+	    if (CHATSYSOP(cuser))
+		roomc++;
+	}
+	else
+	{
+	    userc += num;
+	    roomc++;
+	}
+    } while((room = room->next));
+
+    number = (cuser->clitype) ? MSG_MOTD : MSG_MESSAGE;
+
+    sprintf(chatbuf,
+	    "☉ 歡迎光臨【批踢踢茶藝館】，目前開了 %d 間包廂", roomc);
+    send_to_user(cuser, chatbuf, 0, number);
+
+    sprintf(chatbuf, "☉ 共有 %d 人來擺\龍門陣", userc);
+    if (suserc)
+	sprintf(chatbuf + strlen(chatbuf), " [%d 人在秘密聊天室]", suserc);
+    send_to_user(cuser, chatbuf, 0, number);
+}
+
+
+static int
+login_user(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    int utent;
+
+    char *level;
+    char *userid;
+    char *chatid;
+    struct sockaddr_in from;
+    int fromlen;
+    struct hostent *hp;
+
+
+    ACCT acct;
+    char buf[20];
+
+    /*
+     * Thor.0819: SECURED_CHATROOM : /! userid chatid passwd , userno
+     * el 在check完passwd後取得
+     */
+    /* Xshadow.0915: common client support : /-! userid chatid password */
+
+    /* 傳參數：userlevel, userid, chatid */
+
+    /* client/server 版本依據 userid 抓 .PASSWDS 判斷 userlevel */
+
+    userid = nextword(&msg);
+    chatid = nextword(&msg);
+
+
+#ifdef  DEBUG
+    logit("ENTER", userid);
+#endif
+    /* Thor.0730: parse space before passwd */
+    level = msg;
+
+    /* Thor.0813: 跳過一空格即可, 因為反正如果chatid有空格, 密碼也不對 */
+    /* 就算密碼對, 也不會怎麼樣:p */
+    /* 可是如果密碼第一個字是空格, 那跳太多空格會進不來... */
+    if (*level == ' ')
+	level++;
+
+    /* Thor.0729: load acct */
+    if (!*userid || (acct_load(&acct, userid) < 0))
+    {
+
+#ifdef  DEBUG
+	logit("noexist", chatid);
+#endif
+
+	if (cu->clitype)
+	    send_to_user(cu, "錯誤的使用者代號", 0, ERR_LOGIN_NOSUCHUSER);
+	else
+	    send_to_user(cu, CHAT_LOGIN_INVALID, 0, 0);
+
+	return -1;
+    }
+    else if(strncmp(level, acct.passwd, PASSLEN) &&
+	    !chkpasswd(acct.passwd, level))
+    {
+
+#ifdef  DEBUG
+	logit("fake", chatid);
+#endif
+
+	if (cu->clitype)
+	    send_to_user(cu, "密碼錯誤", 0, ERR_LOGIN_PASSERROR);
+	else
+	    send_to_user(cu, CHAT_LOGIN_INVALID, 0, 0);
+	return -1;
+    }
+    else
+    {
+	/* Thor.0729: if ok, read level.  */
+	sprintf(buf, "%d", acct.userlevel);
+	level = buf;
+	/* Thor.0819: read userno for client/server bbs */
+	utent = searchuser(acct.userid);
+    }
+
+    /* Thor.0819: for client/server bbs */
+/*
+  for (xuser = mainuser; xuser; xuser = xuser->unext)
+  {
+  MYDOG;
+
+  if (xuser->userno == utent)
+  {
+
+  #ifdef  DEBUG
+  logit("enter", "bogus");
+  #endif
+  if (cu->clitype)
+  send_to_user(cu, "請勿派遣分身進入聊天室 !!", 0, ERR_LOGIN_USERONLINE);
+  else
+  send_to_user(cu, CHAT_LOGIN_BOGUS, 0, 0);
+  return -1;    
+  }
+  }
+*/
+    if (!valid_chatid(chatid))
+    {
+
+#ifdef  DEBUG
+	logit("enter", chatid);
+#endif
+
+	if (cu->clitype)
+	    send_to_user(cu, "不合法的聊天室代號 !!", 0, ERR_LOGIN_NICKERROR);
+	else
+	    send_to_user(cu, CHAT_LOGIN_INVALID, 0, 0);
+	return 0;
+    }
+
+#ifdef  DEBUG
+    debug_user();
+#endif
+
+    if (cuser_by_chatid(chatid) != NULL)
+    {
+	/* chatid in use */
+
+#ifdef  DEBUG
+	logit("enter", "duplicate");
+#endif
+
+	if (cu->clitype)
+	    send_to_user(cu, "這個代號已經有人使用", 0, ERR_LOGIN_NICKINUSE);
+	else
+	    send_to_user(cu, CHAT_LOGIN_EXISTS, 0, 0);
+	return 0;
+    }
+
+    cu->userno = utent;
+    cu->uflag = atoi(level) & ~(PERM_ROOMOP | PERM_CLOAK | PERM_HANDUP | PERM_SAY);
+    /* Thor: 進來先清空ROOMOP(同PERM_CHAT), CLOAK */
+    strcpy(cu->userid, userid);
+    memcpy(cu->chatid, chatid, 8);
+    cu->chatid[8] = '\0';
+
+    /* Xshadow: 取得 client 的來源 */
+    fromlen = sizeof(from);
+    if (!getpeername(cu->sock, (struct sockaddr *) & from, &fromlen))
+    {
+	if ((hp = gethostbyaddr((char *) &from.sin_addr, sizeof(struct in_addr), from.sin_family)))
+	{
+	    strcpy(cu->lasthost, hp->h_name);
+	}
+	else
+	    strcpy(cu->lasthost, (char *) inet_ntoa(from.sin_addr));
+
+    }
+    else
+    {
+	strcpy(cu->lasthost, "[外太空]");
+    }
+
+    if (cu->clitype)
+	send_to_user(cu, "順利", 0, MSG_LOGINOK);
+    else
+	send_to_user(cu, CHAT_LOGIN_OK, 0, 0);
+
+    arrive_room(cu, &mainroom);
+
+    send_to_user(cu, "", 0, MSG_MOTDSTART);
+    print_user_counts(cu);
+    send_to_user(cu, "", 0, MSG_MOTDEND);
+
+#ifdef  DEBUG
+    logit("enter", "OK");
+#endif
+
+    return 0;
+}
+
+
+static void
+chat_act(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    if (*msg && (!RHANDUP(cu->room) || SAY(cu) || ROOMOP(cu)))
+    {
+	sprintf(chatbuf, "%s %s", cu->chatid, msg);
+	send_to_room(cu->room, chatbuf, cu->userno, MSG_MESSAGE);
+    }
+}
+
+
+static void
+chat_ignore(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+
+    if (RESTRICTED(cu))
+    {
+	strcpy(chatbuf, "※ 您沒有 ignore 別人的權利");
+    }
+    else
+    {
+	char *ignoree;
+
+	ignoree = nextword(&msg);
+	if (*ignoree)
+	{
+	    ChatUser *xuser;
+
+	    xuser = cuser_by_userid(ignoree);
+
+	    if (xuser == NULL)
+	    {
+
+		sprintf(chatbuf, msg_no_such_id, ignoree);
+
+#if 0
+		sprintf(chatbuf, "◆ 談天室現在沒有 [%s] 這號人物", ignoree);
+#endif
+	    }
+	    else if (xuser == cu || CHATSYSOP(xuser) ||
+		     (ROOMOP(xuser) && (xuser->room == cu->room)))
+	    {
+		sprintf(chatbuf, "◆ 不可以 ignore [%s]", ignoree);
+	    }
+	    else
+	    {
+
+		if (list_belong(cu->ignore, xuser->userno))
+		{
+		    sprintf(chatbuf, "※ %s 已經被凍結了", xuser->chatid);
+		}
+		else
+		{
+		    list_add(&(cu->ignore), xuser);
+		    sprintf(chatbuf, "◆ 將 [%s] 打入冷宮了 :p", xuser->chatid);
+		}
+	    }
+	}
+	else
+	{
+	    UserList *list;
+
+	    if((list = cu->ignore))
+	    {
+		int len;
+		char buf[16];
+
+		send_to_user(cu, "◆ 這些人被打入冷宮了：", 0, MSG_MESSAGE);
+		len = 0;
+		do
+		{
+		    sprintf(buf, "%-13s", list->userid);
+		    strcpy(chatbuf + len, buf);
+		    len += 13;
+		    if (len >= 78)
+		    {
+			send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+			len = 0;
+		    }
+		} while((list = list->next));
+
+		if (len == 0)
+		    return;
+	    }
+	    else
+	    {
+		strcpy(chatbuf, "◆ 您目前並沒有 ignore 任何人");
+	    }
+	}
+    }
+
+    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+}
+
+
+static void
+chat_unignore(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char *ignoree;
+
+    ignoree = nextword(&msg);
+
+    if (*ignoree)
+    {
+	sprintf(chatbuf, (list_delete(&(cu->ignore), ignoree)) ?
+		"◆ [%s] 不再被你冷落了" :
+		"◆ 您並未 ignore [%s] 這號人物", ignoree);
+    }
+    else
+    {
+	strcpy(chatbuf, "◆ 請指明 user ID");
+    }
+    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+}
+
+
+static void
+chat_join(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    if (RESTRICTED(cu))
+    {
+	send_to_user(cu, "※ 您沒有加入其他聊天室的權限", 0, MSG_MESSAGE);
+    }
+    else
+    {
+	char *roomid = nextword(&msg);
+
+	if (*roomid)
+	    enter_room(cu, roomid, msg);
+	else
+	    send_to_user(cu, "※ 請指定聊天室的名字", 0, MSG_MESSAGE);
+    }
+}
+
+
+static void
+chat_kick(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char *twit;
+    ChatUser *xuser;
+    ChatRoom *room;
+
+    if (!ROOMOP(cu))
+    {
+	send_to_user(cu, msg_not_op, 0, MSG_MESSAGE);
+	return;
+    }
+
+    twit = nextword(&msg);
+    xuser = cuser_by_chatid(twit);
+
+    if (xuser == NULL)
+    {
+	sprintf(chatbuf, msg_no_such_id, twit);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+
+    room = cu->room;
+    if (room != xuser->room || CLOAK(xuser))
+    {                             /* Thor: 聊天室隱身術 */
+	sprintf(chatbuf, msg_not_here, twit);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+
+    if (CHATSYSOP(xuser))
+    {                             /* Thor: 踢不走 CHATSYSOP */
+	sprintf(chatbuf, "◆ 不可以 kick [%s]", twit);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+
+    exit_room(xuser, EXIT_KICK, (char *) NULL);
+
+    if (room == &mainroom)
+	logout_user(xuser);
+    else
+	enter_room(xuser, MAIN_NAME, (char *) NULL);
+}
+
+
+static void
+chat_makeop(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char *newop;
+    ChatUser *xuser;
+    ChatRoom *room;
+
+    if (!ROOMOP(cu))
+    {
+	send_to_user(cu, msg_not_op, 0, MSG_MESSAGE);
+	return;
+    }
+
+    newop = nextword(&msg);
+    xuser = cuser_by_chatid(newop);
+
+    if (xuser == NULL)
+    {
+	sprintf(chatbuf, msg_no_such_id, newop);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+
+    if (cu == xuser)
+    {
+	sprintf(chatbuf, "※ 您早就已經是 Op 了啊");
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+
+    room = cu->room;
+
+    if (room != xuser->room || CLOAK(xuser))
+    {                             /* Thor: 聊天室隱身術 */
+	sprintf(chatbuf, msg_not_here, xuser->chatid);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+
+    cu->uflag &= ~PERM_ROOMOP;
+    xuser->uflag |= PERM_ROOMOP;
+
+    user_changed(cu);
+    user_changed(xuser);
+
+    sprintf(chatbuf, "※ %s 將 Op 權力轉移給 %s",
+	    cu->chatid, xuser->chatid);
+    if (!CLOAK(cu))               /* Thor: 聊天室隱身術 */
+	send_to_room(room, chatbuf, 0, MSG_MESSAGE, MSG_MESSAGE);
+}
+
+
+
+static void
+chat_invite(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    char *invitee;
+    ChatUser *xuser;
+    ChatRoom *room;
+    UserList **list;
+
+    if (!ROOMOP(cu))
+    {
+	send_to_user(cu, msg_not_op, 0, MSG_MESSAGE);
+	return;
+    }
+
+    invitee = nextword(&msg);
+    xuser = cuser_by_chatid(invitee);
+    if (xuser == NULL)
+    {
+	sprintf(chatbuf, msg_no_such_id, invitee);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+
+    room = cu->room;              /* Thor: 是否要 check room 是否 NULL ? */
+    list = &(room->invite);
+
+    if (list_belong(*list, xuser->userno))
+    {
+	sprintf(chatbuf, "※ %s 已經接受過邀請了", xuser->chatid);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+	return;
+    }
+    list_add(list, xuser);
+
+    sprintf(chatbuf, "※ %s 邀請您到 [%s] 聊天室",
+	    cu->chatid, room->name);
+    send_to_user(xuser, chatbuf, 0, MSG_MESSAGE); /* Thor: 要不要可以 ignore? */
+    sprintf(chatbuf, "※ %s 收到您的邀請了", xuser->chatid);
+    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+}
+
+
+static void
+chat_broadcast(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    if (!CHATSYSOP(cu))
+    {
+	send_to_user(cu, "※ 您沒有在聊天室廣播的權力!", 0, MSG_MESSAGE);
+	return;
+    }
+    if (*msg == '\0')
+    {
+	send_to_user(cu, "※ 請指定廣播內容", 0, MSG_MESSAGE);
+	return;
+    }
+    sprintf(chatbuf, "※ " BBSNAME "談天室廣播中 [%s].....",
+	    cu->chatid);
+    send_to_room(ROOM_ALL, chatbuf, 0, MSG_MESSAGE);
+    sprintf(chatbuf, "◆ %s", msg);
+    send_to_room(ROOM_ALL, chatbuf, 0, MSG_MESSAGE);
+}
+
+
+static void
+chat_goodbye(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    exit_room(cu, EXIT_LOGOUT, msg);
+    /* Thor: 要不要加 logout_user(cu) ? */
+}
+
+
+/* --------------------------------------------- */
+/* MUD-like social commands : action             */
+/* --------------------------------------------- */
+
+struct ChatAction
+{
+    char *verb;                   /* 動詞 */
+    char *chinese;                /* 中文翻譯 */
+    char *part1_msg;              /* 介詞 */
+    char *part2_msg;              /* 動作 */
+};
+
+
+static ChatAction party_data[] =
+{
+    {"aluba", "阿魯巴", "把", "架上柱子阿魯巴!!"},
+    {"aodre", "景仰", "對", "的景仰有如滔滔江水,連綿不絕……"},
+    {"bearhug", "熱擁", "熱情的擁抱", ""},
+    {"blade", "一刀", "一刀啟程把", "送上西天"},
+    {"bless", "祝福", "祝福", "心想事成"},
+    {"board", "主機板", "把", "抓去跪主機板"},
+    {"bokan", "氣功\", "雙掌微合，蓄勢待發……突然間，電光乍現，對", "使出了Ｂo--Ｋan！"},
+  {"bow", "鞠躬", "畢躬畢敬的向", "鞠躬"},
+  {"box", "幕之內", "開始輪擺\式移位，對", "作肝臟攻擊"},
+  {"boy", "平底鍋", "從背後拿出了平底鍋，把", "敲昏了"},
+  {"bye", "掰掰", "向", "說掰掰!!"},
+  {"call", "呼喚", "大聲的呼喚,啊~~", "啊~~~你在哪裡啊啊啊啊~~~~"},
+  {"caress", "輕撫", "輕輕的撫摸著", ""},
+  {"clap", "鼓掌", "向", "熱烈鼓掌"},
+  {"claw", "抓抓", "從貓咪樂園借了隻貓爪，把", "抓得死去活來"},
+  {"comfort", "安慰", "溫言安慰", ""},
+  {"cong", "恭喜", "從背後拿出了拉炮，呯！呯！恭喜", ""},
+  {"cpr", "口對口", "對著", "做口對口人工呼吸"},
+  {"cringe", "乞憐", "向", "卑躬屈膝，搖尾乞憐"},
+  {"cry", "大哭", "向", "嚎啕大哭"},
+  {"dance", "跳舞", "拉了", "的手翩翩起舞"  },
+  {"destroy", "毀滅", "祭起了『極大毀滅咒文』，轟向", ""},
+  {"dogleg", "狗腿", "對", "狗腿"},
+  {"drivel", "流口水", "對著", "流口水"},
+  {"envy", "羨慕", "向", "流露出羨慕的眼光"},
+  {"eye", "送秋波", "對", "頻送秋波"},
+  {"fire", "銬問", "拿著火紅的鐵棒走向", ""},
+  {"forgive", "原諒", "接受道歉，原諒了", ""},
+  {"french", "法式吻", "把舌頭伸到", "喉嚨裡∼∼∼哇！一個浪漫的法國氏深吻"},
+  {"giggle", "傻笑", "對著", "傻傻的呆笑"},
+  {"glue", "補心", "用三秒膠，把", "的心黏了起來"},
+  {"goodbye", "告別", "淚\眼汪汪的向", "告別"},
+  {"grin", "奸笑", "對", "露出邪惡的笑容"},
+  {"growl", "咆哮", "對", "咆哮不已"},
+  {"hand", "握手", "跟", "握手"},
+  {"hide", "躲", "躲在", "背後"},
+  {"hospitl", "送醫院", "把", "送進醫院"},
+  {"hug", "擁抱", "輕輕地擁抱", ""},
+  {"hrk", "昇龍拳", "沉穩了身形，匯聚了內勁，對", "使出了一記Ｈo--Ｒyu--Ｋan！！！"},
+  {"jab", "戳人", "溫柔的戳著", ""},
+  {"judo", "過肩摔", "抓住了", "的衣襟，轉身……啊，是一記過肩摔！"},
+  {"kickout", "踢", "用大腳把", "踢到山下去了"},
+  {"kick", "踢人", "把", "踢的死去活來"},
+  {"kiss", "輕吻", "輕吻", "的臉頰"},
+  {"laugh", "嘲笑", "大聲嘲笑", ""},
+  {"levis", "給我", "說：給我", "！其餘免談！"},
+  {"lick", "舔", "狂舔", ""},
+  {"lobster", "壓制", "施展逆蝦形固定，把", "壓制在地板上"},
+  {"love", "表白", "對", "深情的表白"},
+  {"marry", "求婚", "捧著九百九十九朵玫瑰向", "求婚"},
+  {"no", "不要啊", "拼命對著", "搖頭~~~~不要啊~~~~"},
+  {"nod", "點頭", "向", "點頭稱是"},
+  {"nudge", "頂肚子", "用手肘頂", "的肥肚子"},
+  {"pad", "拍肩膀", "輕拍", "的肩膀"},
+  {"pettish", "撒嬌", "跟", "嗲聲嗲氣地撒嬌"},
+  {"pili", "霹靂", "使出 君子風 天地根 般若懺 三式合一打向", "~~~~~~"},
+  {"pinch", "擰人", "用力的把", "擰的黑青"},
+  {"roll", "打滾", "放出多爾袞的音樂,", "在地上滾來滾去"},
+  {"protect", "保護", "保護著", ""},
+  {"pull", "拉", "死命地拉住", "不放"},
+  {"punch", "揍人", "狠狠揍了", "一頓"},
+  {"rascal", "耍賴", "跟", "耍賴"},
+  {"recline", "入懷", "鑽到", "的懷裡睡著了……"},
+  {"respond", "負責", "安慰", "說：『不要哭，我會負責的……』"},
+  {"shrug", "聳肩", "無奈地向", "聳了聳肩膀"},
+  {"sigh", "歎氣", "對", "歎了一口氣"},
+  {"slap", "打耳光", "啪啪的巴了", "一頓耳光"},
+  {"smooch", "擁吻", "擁吻著", ""},
+  {"snicker", "竊笑", "嘿嘿嘿..的對", "竊笑"},
+  {"sniff", "不屑", "對", "嗤之以鼻"},
+  {"spank", "打屁屁", "用巴掌打", "的臀部"},
+  {"squeeze", "緊擁", "緊緊地擁抱著", ""},
+  {"sysop", "召喚", "叫出了批踢踢，把", "踩扁了！"},
+  {"thank", "感謝", "向", "感謝得五體投地"},
+  {"tickle", "搔癢", "咕嘰!咕嘰!搔", "的癢"},
+  {"wake", "搖醒", "輕輕地把", "搖醒"},
+  {"wave", "揮手", "對著", "拼命的搖手"},
+  {"welcome", "歡迎", "歡迎", "進來八卦一下"},
+  {"what", "什麼", "說：『", "哩公瞎密哇隴聽某?？?﹖?』"},
+  {"whip", "鞭子", "手上拿著蠟燭，用鞭子痛打", ""},
+  {"wink", "眨眼", "對", "神秘的眨眨眼睛"},
+  {"zap", "猛攻", "對", "瘋狂的攻擊"},
+  {NULL, NULL, NULL, NULL}
+};
+
+static int
+chicken_action(cu, cmd, party)
+  ChatUser *cu;
+  char *cmd;
+  char *party;
+{
+return 0;
+}
+static int
+party_action(cu, cmd, party)
+  ChatUser *cu;
+  char *cmd;
+  char *party;
+{
+    ChatAction *cap;
+    char *verb;
+
+    for (cap = party_data; (verb = cap->verb); cap++)
+    {
+	MYDOG;
+
+	if (str_equal(cmd, verb))
+	{
+	    if (*party == '\0')
+	    {
+		party = "大家";
+	    }
+	    else
+	    {
+		ChatUser *xuser;
+
+		xuser = fuzzy_cuser_by_chatid(party);
+		if (xuser == NULL)
+		{                       /* Thor.0724: 用 userid也嘛通 */
+		    xuser = cuser_by_userid(party);
+		}
+
+		if (xuser == NULL)
+		{
+		    sprintf(chatbuf, msg_no_such_id, party);
+		    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+		    return 0;
+		}
+		else if (xuser == FUZZY_USER)
+		{
+		    sprintf(chatbuf, "※ 請指明聊天代號");
+		    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+		    return 0;
+		}
+		else if (cu->room != xuser->room || CLOAK(xuser))
+		{
+		    sprintf(chatbuf, msg_not_here, party);
+		    send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+		    return 0;
+		}
+		else
+		{
+		    party = xuser->chatid;
+		}
+	    }
+	    sprintf(chatbuf, "%s %s %s %s",
+		    cu->chatid, cap->part1_msg, party, cap->part2_msg);
+	    send_to_room(cu->room, chatbuf, cu->userno, MSG_MESSAGE);
+	    return 0;                 /* Thor: cu->room 是否為 NULL? */
+	}
+    }
+    return 1;
+}
+
+
+/* --------------------------------------------- */
+/* MUD-like social commands : speak              */
+/* --------------------------------------------- */
+
+
+static ChatAction speak_data[] =
+{
+
+    {
+	"ask", "詢問", "問", NULL
+    },
+    {
+	"chant", "歌頌", "高聲歌頌", NULL
+    },
+    {
+	"cheer", "喝采", "喝采", NULL
+    },
+    {
+	"chuckle", "輕笑", "輕笑", NULL
+    },
+    {
+	"curse", "暗幹", "暗幹", NULL
+    },
+    /* {"curse", "咒罵", NULL}, */
+    {
+	"demand", "要求", "要求", NULL
+    },
+    {
+	"frown", "皺眉頭", "蹙眉", NULL
+    },
+    {
+	"groan", "呻吟", "呻吟", NULL
+    },
+    {
+	"grumble", "發牢騷", "發牢騷", NULL
+    },
+    {
+	"guitar", "彈唱", "邊彈著吉他，邊唱著", NULL
+    },
+    /* {"helpme", "呼救","大聲呼救",NULL}, */
+    {
+	"hum", "喃喃", "喃喃自語", NULL
+    },
+    {
+	"moan", "怨嘆", "怨嘆", NULL
+    },
+    {
+	"notice", "強調", "強調", NULL
+    },
+    {
+	"order", "命令", "命令", NULL
+    },
+    {
+	"ponder", "沈思", "沈思", NULL
+    },
+    {
+	"pout", "噘嘴", "噘著嘴說", NULL
+    },
+    {
+	"pray", "祈禱", "祈禱", NULL
+    },
+    {
+	"request", "懇求", "懇求", NULL
+    },
+    {
+	"shout", "大罵", "大罵", NULL
+    },
+    {
+	"sing", "唱歌", "唱歌", NULL
+    },
+    {
+	"smile", "微笑", "微笑", NULL
+    },
+    {
+	"smirk", "假笑", "假笑", NULL
+    },
+    {
+	"swear", "發誓", "發誓", NULL
+    },
+    {
+	"tease", "嘲笑", "嘲笑", NULL
+    },
+    {
+	"whimper", "嗚咽", "嗚咽的說", NULL
+    },
+    {
+	"yawn", "哈欠", "邊打哈欠邊說", NULL
+    },
+    {
+	"yell", "大喊", "大喊", NULL
+    },
+    {
+	NULL, NULL, NULL, NULL
+    }
+};
+
+
+static int
+speak_action(cu, cmd, msg)
+    ChatUser *cu;
+    char *cmd;
+    char *msg;
+{
+    ChatAction *cap;
+    char *verb;
+
+    for (cap = speak_data; (verb = cap->verb); cap++)
+    {
+	MYDOG;
+
+	if (str_equal(cmd, verb))
+	{
+	    sprintf(chatbuf, "%s %s： %s",
+		    cu->chatid, cap->part1_msg, msg);
+	    send_to_room(cu->room, chatbuf, cu->userno, MSG_MESSAGE);
+	    return 0;                 /* Thor: cu->room 是否為 NULL? */
+	}
+    }
+    return 1;
+}
+
+
+/* -------------------------------------------- */
+/* MUD-like social commands : condition          */
+/* -------------------------------------------- */
+
+
+static ChatAction condition_data[] =
+{
+    {
+	"applaud", "拍手", "啪啪啪啪啪啪啪....", NULL
+    },
+    {
+	"ayo", "唉呦喂", "唉呦喂~~~", NULL
+    },
+    {
+	"back", "坐回來", "回來坐正繼續奮戰", NULL
+    },
+    {
+	"blood", "在血中", "倒在血泊之中", NULL
+    },
+    {
+	"blush", "臉紅", "臉都紅了", NULL
+    },
+    {
+	"broke", "心碎", "的心破碎成一片一片的", NULL
+    },                            /* Thor.0731:應觀眾要求 */
+    /* {"bokan", "Bo Kan! Bo Kan!", NULL}, */
+    {
+	"careles", "沒人理", "嗚∼∼都沒有人理我 :~~~~", NULL
+    },
+    {
+	"chew", "嗑瓜子", "很悠閒的嗑起瓜子來了", NULL
+    },
+    {
+	"climb", "爬山", "自己慢慢爬上山來……", NULL
+    },
+    {
+	"cold", "感冒了", "感冒了,媽媽不讓我出去玩 :~~~(", NULL
+    },
+    {
+	"cough", "咳嗽", "咳了幾聲", NULL
+    },
+    {
+	"die", "暴斃", "當場暴斃", NULL
+    },
+    {
+	"faint", "昏倒", "當場昏倒", NULL
+    },
+    {
+	"flop", "香蕉皮", "踩到香蕉皮... 滑倒！", NULL
+    },
+    {
+	"fly", "飄飄然", "飄飄然", NULL
+    },
+    {
+	"frown", "蹙眉", "蹙眉", NULL
+    },
+    {
+	"gold", "拿金牌", "唱著：『金ㄍㄠˊ金ㄍㄠˊ  出國比賽! 得冠軍，拿金牌，光榮倒鄧來！』", NULL
+    },
+    {
+	"gulu", "肚子餓", "的肚子發出咕嚕~~~咕嚕~~~的聲音", NULL
+    },
+    {
+	"haha", "哇哈哈", "哇哈哈哈.....^o^", NULL
+    },
+    /* {"haha", "大笑","哇哈哈哈哈哈哈哈哈~~~~!!!!!", NULL}, */
+    {
+	"helpme", "求救", "大喊~~~救命啊~~~~", NULL
+    },
+    {
+	"hoho", "呵呵笑", "呵呵呵笑個不停", NULL
+    },
+    {
+	"happy", "高興", "高興得在地上打滾", NULL
+    },
+    /* {"happy", "高興", "ＹＡ！ *^_^*", NULL}, */
+    /* {"happy", "", "r-o-O-m....聽了真爽！", NULL}, */
+    /* {"hurricane", "Ｈｏ---Ｒｙｕ--Ｋａｎ！！！", NULL}, */
+    {
+	"idle", "呆住了", "呆住了", NULL
+    },
+    {
+	"jacky", "晃晃", "痞子般的晃來晃去", NULL
+    },
+
+#if 0
+    /* Thor.0729: 不知其意 */
+    {
+	"lag", "網路慢", "lllllllaaaaaaaaaaaagggggggggggggg.................", NULL
+    },
+#endif
+
+    {
+	"luck", "幸運", "哇！福氣啦！", NULL
+    },
+    {
+	"macarn", "一種舞", "開始跳起了ＭaＣaＲeＮa∼∼∼∼", NULL
+    },
+    {
+	"miou", "喵喵", "喵喵口苗口苗∼∼∼∼∼", NULL
+    },
+    {
+	"mouth", "扁嘴", "扁嘴中!!", NULL
+    },
+    {
+	"nani", "怎麼會", "：奈ㄝ啊捏??", NULL
+    },
+    {
+	"nose", "流鼻血", "流鼻血", NULL
+    },
+    {
+	"puke", "嘔吐", "嘔吐中", NULL
+    },
+    /* {"puke", "真噁心，我聽了都想吐", NULL}, */
+    {
+	"rest", "休息", "休息中，請勿打擾", NULL
+    },
+    {
+	"reverse", "翻肚", "翻肚", NULL
+    },
+    {
+	"room", "開房間", "r-o-O-m-r-O-Ｏ-Mmm-rRＲ........", NULL
+    },
+    {
+	"shake", "搖頭", "搖了搖頭", NULL
+    },
+    {
+	"sleep", "睡著", "趴在鍵盤上睡著了，口水流進鍵盤，造成當機！", NULL
+    },
+    /* {"sleep", "Zzzzzzzzzz，真無聊，都快睡著了", NULL}, */
+    {
+	"so", "就醬子", "就醬子!!", NULL
+    },
+    {
+	"sorry", "道歉", "嗚啊!!我對不起大家,我對不起國家社會~~~~~~嗚啊~~~~~", NULL
+    },
+    {
+	"story", "講古", "開始講古了", NULL
+    },
+    {
+	"strut", "搖擺\走", "大搖大擺\地走", NULL
+    },
+    {
+	"suicide", "自殺", "自殺", NULL
+    },
+    {
+	"tea", "泡茶", "泡了壺好茶", NULL
+    },
+    {
+	"think", "思考", "歪著頭想了一下", NULL
+    },
+    {
+	"tongue", "吐舌", "吐了吐舌頭", NULL
+    },
+    {
+	"wall", "撞牆", "跑去撞牆", NULL
+    },
+    {
+	"wawa", "哇哇", "哇哇哇~~~~~!!!!!  ~~~>_<~~~", NULL
+    },
+    /* {"wawa","哇哇哇......>_<",NULL},  */
+    {
+	"www", "汪汪", "汪汪汪!!!", NULL
+    },
+    {
+	"zzz", "打呼", "呼嚕~~~~ZZzZzｚＺZZzzZzzzZZ...", NULL
+    },
+
+    {
+	NULL, NULL, NULL, NULL
+    }
+};
+
+
+static int
+condition_action(cu, cmd)
+    ChatUser *cu;
+    char *cmd;
+{
+    ChatAction *cap;
+    char *verb;
+
+    for (cap = condition_data; (verb = cap->verb); cap++)
+    {
+	MYDOG;
+
+	if (str_equal(cmd, verb))
+	{
+	    sprintf(chatbuf, "%s %s",
+		    cu->chatid, cap->part1_msg);
+	    send_to_room(cu->room, chatbuf, cu->userno, MSG_MESSAGE);
+	    return 1;                 /* Thor: cu->room 是否為 NULL? */
+	}
+    }
+    return 0;
+}
+
+
+/* --------------------------------------------- */
+/* MUD-like social commands : help               */
+/* --------------------------------------------- */
+
+
+static char *dscrb[] =
+{
+    "【 Verb + Nick：   動詞 + 對方名字 】   例：//kick piggy",
+    "【 Verb + Message：動詞 + 要說的話 】   例：//sing 天天天藍",
+    "【 Verb：動詞 】    ↑↓：舊話重提", NULL
+};
+ChatAction *catbl[] =
+{
+    party_data, speak_data, condition_data, NULL
+};
+
+static void
+chat_partyinfo(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    if (!common_client_command)
+	return;                     /* only allow common client to retrieve it */
+
+    sprintf(chatbuf, "3 動作  交談  狀態");
+    send_to_user(cu, chatbuf, 0, MSG_PARTYINFO);
+}
+
+static void
+chat_party(cu, msg)
+    ChatUser *cu;
+    char *msg;
+{
+    int kind, i;
+    ChatAction *cap;
+
+    if (!common_client_command)
+	return;
+
+    kind = atoi(nextword(&msg));
+    if (kind < 0 || kind > 2)
+	return;
+
+    sprintf(chatbuf, "%d  %s", kind, kind == 2 ? "I" : "");
+
+    /* Xshadow: 只有 condition 才是 immediate mode */
+    send_to_user(cu, chatbuf, 0, MSG_PARTYLISTSTART);
+
+    cap = catbl[kind];
+    for (i = 0; cap[i].verb; i++)
+    {
+	sprintf(chatbuf, "%-10s %-20s", cap[i].verb, cap[i].chinese);
+	/* for (j=0;j<1000000;j++); */
+	send_to_user(cu, chatbuf, 0, MSG_PARTYLIST);
+    }
+
+    sprintf(chatbuf, "%d", kind);
+    send_to_user(cu, chatbuf, 0, MSG_PARTYLISTEND);
+}
+
+
+#define SCREEN_WIDTH    80
+#define MAX_VERB_LEN    8
+#define VERB_NO         10
+
+static void
+view_action_verb(cu, cmd)       /* Thor.0726: 新加動詞分類顯示 */
+    register ChatUser *cu;
+    char cmd;
+{
+    register int i;
+    register char *p, *q, *data, *expn;
+    register ChatAction *cap;
+
+    send_to_user(cu, "/c", 0, MSG_CLRSCR);
+
+    data = chatbuf;
+
+    if (cmd < '1' || cmd > '3')
+    {                             /* Thor.0726: 寫得不好, 想辦法改進... */
+	for (i = 0; (p = dscrb[i]); i++)
+	{
+	    sprintf(data, "  [//]help %d          - MUD-like 社交動詞   第 %d 類", i + 1, i + 1);
+	    MYDOG;
+	    send_to_user(cu, data, 0, MSG_MESSAGE);
+	    send_to_user(cu, p, 0, MSG_MESSAGE);
+	    send_to_user(cu, " ", 0, MSG_MESSAGE);    /* Thor.0726: 換行, 需要 " "
+						       * 嗎? */
+	}
+    }
+    else
+    {
+	i = cmd - '1';
+
+	send_to_user(cu, dscrb[i], 0, MSG_MESSAGE);
+
+	expn = chatbuf + 100;       /* Thor.0726: 應該不會overlap吧? */
+
+	*data = '\0';
+	*expn = '\0';
+
+	cap = catbl[i];
+
+	for (i = 0; (p = cap[i].verb); i++)
+	{
+	    MYDOG;
+	    q = cap[i].chinese;
+
+	    strcat(data, p);
+	    strcat(expn, q);
+
+	    if (((i + 1) % VERB_NO) == 0)
+	    {
+		send_to_user(cu, data, 0, MSG_MESSAGE);
+		send_to_user(cu, expn, 0, MSG_MESSAGE); /* Thor.0726: 顯示中文註解 */
+		*data = '\0';
+		*expn = '\0';
+	    }
+	    else
+	    {
+		strncat(data, "        ", MAX_VERB_LEN - strlen(p));
+		strncat(expn, "        ", MAX_VERB_LEN - strlen(q));
+	    }
+	}
+	if (i % VERB_NO)
+	{
+	    send_to_user(cu, data, 0, MSG_MESSAGE);
+	    send_to_user(cu, expn, 0, MSG_MESSAGE);   /* Thor.0726: 顯示中文註解 */
+	}
+    }
+    /* send_to_user(cu, " ",0); *//* Thor.0726: 換行, 需要 " " 嗎? */
+}
+
+void view_chicken_help(cu)       /* Ptt: 鬥雞程式 的help */
+    register ChatUser *cu;
+{
+
+}
+
+/* ----------------------------------------------------- */
+/* chat user service routines                            */
+/* ----------------------------------------------------- */
+
+
+static ChatCmd chatcmdlist[] =
+{
+    {"act", chat_act, 0},
+    {"bye", chat_goodbye, 0},
+    {"chatroom", chat_chatroom, 1}, /* Xshadow: for common client */
+    {"clear", chat_clear, 0},
+    {"cloak", chat_cloak, 2},
+    {"date", chat_date, 0},
+    {"flags", chat_setroom, 0},
+    {"help", chat_help, 0},
+    {"ignore", chat_ignore, 1},
+    {"invite", chat_invite, 0},
+    {"join", chat_join, 0},
+    {"kick", chat_kick, 1},
+    {"msg", chat_private, 0},
+    {"nick", chat_nick, 0},
+    {"operator", chat_makeop, 0},
+    {"party", chat_party, 1},       /* Xshadow: party data for common client */
+    {"partyinfo", chat_partyinfo, 1},       /* Xshadow: party info for common
+					   * client */
+
+    {"query", chat_query, 0},
+
+    {"room", chat_list_rooms, 0},
+    {"unignore", chat_unignore, 1},
+    {"whoin", chat_list_by_room, 1},
+    {"wall", chat_broadcast, 2},
+
+    {"who", chat_map_chatids_thisroom, 0},
+    {"list", chat_list_users, 0},
+    {"topic", chat_topic, 1},
+    {"version", chat_version, 1},
+
+    {NULL, NULL, 0}
+};
+
+/* Thor: 0 不用 exact, 1 要 exactly equal, 2 秘密指令 */
+
+
+static int
+command_execute(cu)
+    ChatUser *cu;
+{
+    char *cmd, *msg;
+    ChatCmd *cmdrec;
+    int match, ch;
+
+    msg = cu->ibuf;
+    match = *msg;
+
+    /* Validation routine */
+
+    if (cu->room == NULL)
+    {
+	/* MUST give special /! or /-! command if not in the room yet */
+
+	if (match == '/' && ((ch = msg[1]) == '!' || (ch == '-' && msg[2] == '!')))
+	{
+	    cu->clitype = (ch == '-') ? 1 : 0;
+	    return (login_user(cu, msg + 2 + cu->clitype));
+	}
+	else
+	    return -1;
+    }
+
+    /* If not a /-command, it goes to the room. */
+
+    if (match != '/')
+    {
+	if (match)
+	{
+	    char buf[16];
+
+	    sprintf(buf, "%s:", cu->chatid);
+	    sprintf(chatbuf, "%-10s%s", buf, msg);
+	    if (!CLOAK(cu))           /* Thor: 聊天室隱身術 */
+		send_to_room(cu->room, chatbuf, cu->userno, MSG_MESSAGE);
+	    /* Thor: 要 check cu->room NULL嗎? */
+
+	}
+	return 0;
+    }
+
+    msg++;
+    cmd = nextword(&msg);
+    match = 0;
+
+    if (*cmd == '/')
+    {
+	cmd++;
+	if (!*cmd || str_equal(cmd, "help"))
+	{
+	    /* Thor.0726: 動詞分類 */
+	    cmd = nextword(&msg);
+	    view_action_verb(cu, *cmd);
+	    match = 1;
+	}
+	else if (party_action(cu, cmd, msg) == 0)
+	    match = 1;
+	else if (speak_action(cu, cmd, msg) == 0)
+	    match = 1;
+	else
+	    match = condition_action(cu, cmd);
+    }
+    else if(*cmd == '.')
+    {
+	cmd++;
+	if (!*cmd || str_equal(cmd, "help"))
+	{
+	    view_chicken_help(cu);
+	    match = 1;
+	}
+	else match = chicken_action(cu, cmd, msg);
+    }
+    else
+    {
+	char *str;
+
+	common_client_command = 0;
+	if((*cmd == '-')) {
+	    if(cu->clitype) {
+		cmd++;                  /* Xshadow: 指令從下一個字元才開始 */
+		common_client_command = 1;
+	    }
+	}
+	for(cmdrec = chatcmdlist; (str = cmdrec->cmdstr); cmdrec++)
+	{
+		MYDOG;
+
+		switch (cmdrec->exact)
+		{
+		case 1:                   /* exactly equal */
+		    match = str_equal(cmd, str);
+		    break;
+		case 2:                   /* Thor: secret command */
+		    if (CHATSYSOP(cu))
+			match = str_equal(cmd, str);
+		    break;
+		default:                  /* not necessary equal */
+		    match = str_match(cmd, str) >= 0;
+		    break;
+		}
+
+		if (match)
+		{
+		    cmdrec->cmdfunc(cu, msg);
+		    break;
+		}
+	    }
+    }
+
+    if (!match)
+    {
+	sprintf(chatbuf, "◆ 指令錯誤：/%s", cmd);
+	send_to_user(cu, chatbuf, 0, MSG_MESSAGE);
+    }
+    return 0;
+}
+
+
+/* ----------------------------------------------------- */
+/* serve chat_user's connection                          */
+/* ----------------------------------------------------- */
+
+
+static int
+cuser_serve(cu)
+    ChatUser *cu;
+{
+    register int ch, len, isize;
+    register char *str, *cmd;
+    static char buf[80];
+
+    str = buf;
+    len = recv(cu->sock, str, sizeof(buf) - 1, 0);
+    if (len <= 0)
+    {
+	/* disconnected */
+
+	exit_room(cu, EXIT_LOSTCONN, (char *) NULL);
+	return -1;
+    }
+
+#if 0
+    /* Xshadow: 將送達的資料忠實紀錄下來 */
+    memcpy(logbuf, buf, sizeof(buf));
+    for (ch = 0; ch < sizeof(buf); ch++)
+	if (!logbuf[ch])
+	    logbuf[ch] = '$';
+
+    logbuf[len + 1] = '\0';
+    logit("recv: ", logbuf);
+#endif
+
+#if 0
+    logit(cu->userid, str);
+#endif
+
+    isize = cu->isize;
+    cmd = cu->ibuf + isize;
+    while (len--)
+    {
+	MYDOG;
+
+	ch = *str++;
+
+	if (ch == '\r' || !ch)
+	    continue;
+	if (ch == '\n')
+	{
+	    *cmd = '\0';
+
+	    isize = 0;
+	    cmd = cu->ibuf;
+
+	    if (command_execute(cu) < 0)
+		return -1;
+
+	    continue;
+	}
+	if (isize < 79)
+	{
+	    *cmd++ = ch;
+	    isize++;
+	}
+    }
+    cu->isize = isize;
+    return 0;
+}
+
+
+/* ----------------------------------------------------- */
+/* chatroom server core routines                         */
+/* ----------------------------------------------------- */
+
+static int
+start_daemon()
+{
+    int fd, value;
+    char buf[80];
+    struct sockaddr_in fsin;
+    struct linger ld;
+    struct rlimit limit;
+    time_t dummy;
+    struct tm *dummy_time;
+
+    /*
+     * More idiot speed-hacking --- the first time conversion makes the C
+     * library open the files containing the locale definition and time zone.
+     * If this hasn't happened in the parent process, it happens in the
+     * children, once per connection --- and it does add up.
+     */
+
+    time(&dummy);
+    dummy_time = gmtime(&dummy);
+    dummy_time = localtime(&dummy);
+    strftime(buf, 80, "%d/%b/%Y:%H:%M:%S", dummy_time);
+
+    /* --------------------------------------------------- */
+    /* speed-hacking DNS resolve                           */
+    /* --------------------------------------------------- */
+
+    gethostname(buf, sizeof(buf));
+
+    /* Thor: 萬一server尚未接受connection, 就回去的話, client 第一次會進入失敗 */
+    /* 所以移至 listen 後 */
+
+    /* --------------------------------------------------- */
+    /* detach daemon process                               */
+    /* --------------------------------------------------- */
+
+    close(0);
+    close(1);
+    close(2);
+
+    if (fork())
+	exit(0);
+
+    chdir(BBSHOME);
+
+    setsid();
+
+    attach_SHM();
+    /* --------------------------------------------------- */
+    /* adjust the resource limit                           */
+    /* --------------------------------------------------- */
+
+    getrlimit(RLIMIT_NOFILE, &limit);
+    limit.rlim_cur = limit.rlim_max;
+    setrlimit(RLIMIT_NOFILE, &limit);
+
+#if 0
+    while (fd)
+    {
+	close(--fd);
+    }
+
+    value = getpid();
+    setpgrp(0, value);
+
+    if ((fd = open("/dev/tty", O_RDWR)) >= 0)
+    {
+	ioctl(fd, TIOCNOTTY, 0);    /* Thor : 為什麼還要用  tty? */
+	close(fd);
+    }
+#endif
+
+    fd = open(CHAT_PIDFILE, O_WRONLY | O_CREAT | O_TRUNC, 0600);
+    if (fd >= 0)
+    {
+	/* sprintf(buf, "%5d\n", value); */
+	sprintf(buf, "%5d\n", getpid());
+	write(fd, buf, 6);
+	close(fd);
+    }
+
+#if 0
+    /* ------------------------------ */
+    /* trap signals                   */
+    /* ------------------------------ */
+
+    for (fd = 1; fd < NSIG; fd++)
+    {
+
+	signal(fd, SIG_IGN);
+    }
+#endif
+
+    fd = socket(PF_INET, SOCK_STREAM, 0);
+
+#if 0
+    value = fcntl(fd, F_GETFL, 0);
+    fcntl(fd, F_SETFL, value | O_NDELAY);
+#endif
+
+    value = 1;
+    setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, (char *) &value, sizeof(value));
+
+#if 0
+    setsockopt(fd, SOL_SOCKET, SO_KEEPALIVE, (char *) &value, sizeof(value));
+
+    value = 81920;
+    setsockopt(fd, SOL_SOCKET, SO_RCVBUF, (char *) &value, sizeof(value));
+#endif
+
+    ld.l_onoff = ld.l_linger = 0;
+    setsockopt(fd, SOL_SOCKET, SO_LINGER, (char *) &ld, sizeof(ld));
+
+    memset((char *) &fsin, 0, sizeof(fsin));
+    fsin.sin_family = AF_INET;
+    fsin.sin_port = htons(NEW_CHATPORT);
+    fsin.sin_addr.s_addr = htonl(INADDR_ANY);
+
+    if (bind(fd, (struct sockaddr *) & fsin, sizeof(fsin)) < 0)
+	exit(1);
+
+    listen(fd, SOCK_QLEN);
+
+    return fd;
+}
+
+
+static void
+free_resource(fd)
+    int fd;
+{
+    static int loop = 0;
+    register ChatUser *user;
+    register int sock, num;
+
+    num = 0;
+    for (user = mainuser; user; user = user->unext)
+    {
+	MYDOG;
+
+	num++;
+	sock = user->sock;
+	if (fd < sock)
+	    fd = sock;
+    }
+
+    sprintf(chatbuf, "%d, %d user (%d -> %d)", ++loop, num, maxfds, fd);
+    logit("LOOP", chatbuf);
+
+    maxfds = fd + 1;
+}
+
+
+#ifdef  SERVER_USAGE
+static void
+server_usage()
+{
+    struct rusage ru;
+    char buf[2048];
+
+    if (getrusage(RUSAGE_SELF, &ru))
+	return;
+
+    sprintf(buf, "\n[Server Usage]\n\n"
+	    "user time: %.6f\n"
+	    "system time: %.6f\n"
+	    "maximum resident set size: %lu P\n"
+	    "integral resident set size: %lu\n"
+	    "page faults not requiring physical I/O: %ld\n"
+	    "page faults requiring physical I/O: %ld\n"
+	    "swaps: %ld\n"
+	    "block input operations: %ld\n"
+	    "block output operations: %ld\n"
+	    "messages sent: %ld\n"
+	    "messages received: %ld\n"
+	    "signals received: %ld\n"
+	    "voluntary context switches: %ld\n"
+	    "involuntary context switches: %ld\n"
+	    "gline: %d\n\n",
+
+	    (double) ru.ru_utime.tv_sec + (double) ru.ru_utime.tv_usec / 1000000.0,
+	    (double) ru.ru_stime.tv_sec + (double) ru.ru_stime.tv_usec / 1000000.0,
+	    ru.ru_maxrss,
+	    ru.ru_idrss,
+	    ru.ru_minflt,
+	    ru.ru_majflt,
+	    ru.ru_nswap,
+	    ru.ru_inblock,
+	    ru.ru_oublock,
+	    ru.ru_msgsnd,
+	    ru.ru_msgrcv,
+	    ru.ru_nsignals,
+	    ru.ru_nvcsw,
+	    ru.ru_nivcsw,
+	    gline);
+
+    write(flog, buf, strlen(buf));
+}
+#endif
+
+
+static void
+abort_server()
+{
+    log_close();
+    exit(1);
+}
+
+
+static void
+reaper()
+{
+    int state;
+
+    while (waitpid(-1, &state, WNOHANG | WUNTRACED) > 0)
+    {
+	MYDOG;
+    }
+}
+
+
+int
+main()
+{
+    register int msock, csock, nfds;
+    register ChatUser *cu;
+    register fd_set *rptr, *xptr;
+    fd_set rset, xset;
+    struct timeval tv;
+    time_t uptime, tmaintain;
+
+    msock = start_daemon();
+
+    setgid(BBSGID);
+    setuid(BBSUID);
+
+    log_init();
+
+    signal(SIGBUS, SIG_IGN);
+    signal(SIGSEGV, SIG_IGN);
+    signal(SIGPIPE, SIG_IGN);
+    signal(SIGURG, SIG_IGN);
+
+    signal(SIGCHLD, reaper);
+    signal(SIGTERM, abort_server);
+
+#ifdef  SERVER_USAGE
+    signal(SIGPROF, server_usage);
+#endif
+
+    /* ----------------------------- */
+    /* init variable : rooms & users */
+    /* ----------------------------- */
+
+    mainuser = NULL;
+    memset(&mainroom, 0, sizeof(mainroom));
+    strcpy(mainroom.name, MAIN_NAME);
+    strcpy(mainroom.topic, MAIN_TOPIC);
+
+    /* ----------------------------------- */
+    /* main loop                           */
+    /* ----------------------------------- */
+
+#if 0
+    /* Thor: 在listen 後才回client, 每次進來就會成功 */
+    if (fork())
+	exit(0);
+#endif
+
+    FD_ZERO(&mainfds);
+    FD_SET(msock, &mainfds);
+    rptr = &rset;
+    xptr = &xset;
+    maxfds = msock + 1;
+
+    tmaintain = time(0) + CHAT_INTERVAL;
+
+    for (;;)
+    {
+	uptime = time(0);
+	if (tmaintain < uptime)
+	{
+	    tmaintain = uptime + CHAT_INTERVAL;
+
+	    /* client/server 版本利用 ping-pong 方法判斷 user 是不是還活著 */
+	    /* 如果 client 已經結束了，就釋放其 resource */
+
+	    free_resource(msock);
+	}
+
+	MYDOG;
+
+	memcpy(rptr, &mainfds, sizeof(fd_set));
+	memcpy(xptr, &mainfds, sizeof(fd_set));
+
+	/* Thor: for future reservation bug */
+
+	tv.tv_sec = CHAT_INTERVAL;
+	tv.tv_usec = 0;
+
+	MYDOG;
+
+	nfds = select(maxfds, rptr, NULL, xptr, &tv);
+
+	MYDOG;
+	/* free idle user & chatroom's resource when no traffic */
+
+	if (nfds == 0)
+	{
+	    continue;
+	}
+
+	/* check error condition */
+
+	if (nfds < 0)
+	{
+	    csock = errno;
+	    continue;
+	}
+
+	/* accept new connection */
+
+	if (FD_ISSET(msock, rptr))
+	{
+	    for (;;)
+	    {
+		MYDOG;                          /* Thor: check for endless */
+		csock = accept(msock, NULL, NULL);
+
+		if (csock >= 0)
+		{
+		    MYDOG;
+		    if((cu = (ChatUser *) malloc(sizeof(ChatUser))))
+		    {
+			memset(cu, 0, sizeof(ChatUser));
+			cu->sock = csock;
+
+			cu->unext = mainuser;
+			mainuser = cu;
+
+#if 0
+			if (mainuser.next)
+			    mainuser.next->prev = cu;
+			cu->next = mainuser.next;
+			mainuser.next = cu;
+			cu->prev = &mainuser;
+#endif
+
+			totaluser++;
+			FD_SET(csock, &mainfds);
+			if (csock >= maxfds)
+			    maxfds = csock + 1;
+
+#ifdef  DEBUG
+			logit("accept", "OK");
+#endif
+		    }
+		    else
+		    {
+			close(csock);
+			logit("accept", "malloc fail");
+		    }
+		    MYDOG;
+
+		    break;
+		}
+
+		csock = errno;
+		if (csock != EINTR)
+		{
+		    break;
+		}
+	    }
+
+	    FD_CLR(msock, rptr);
+
+	    if (--nfds <= 0)
+		continue;
+	}
+
+	for (cu = mainuser; cu; cu = cu->unext)
+	{
+	    MYDOG;
+
+	    csock = cu->sock;
+
+	    if (FD_ISSET(csock, xptr))
+	    {
+		logout_user(cu);
+		FD_CLR(csock, xptr);
+	    }
+	    else if (FD_ISSET(csock, rptr))
+	    {
+		if (cuser_serve(cu) < 0)
+		    logout_user(cu);
+	    }
+	    else
+	    {
+		continue;
+	    }
+
+	    FD_CLR(csock, rptr);
+	    if (--nfds <= 0)
+		break;
+	}
+
+	/* end of main loop */
+    }
+}
diff --git a/pttbbs/util/xchatd.h b/pttbbs/util/xchatd.h
new file mode 100644
index 00000000..fed869eb
--- /dev/null
+++ b/pttbbs/util/xchatd.h
@@ -0,0 +1,111 @@
+/* $Id$ */
+
+#ifndef _XCHAT_H_
+#define _XCHAT_H_
+
+#define XCHAT_VERSION_MAJOR 3
+#define XCHAT_VERSION_MINOR 0
+
+/* ----------------------------------------------------- */
+/* XCHAT response code : RFI 3-digit			 */
+/* ----------------------------------------------------- */
+/* Response :						 */
+/*   1xx   Informative message				 */
+/*   2xx   Command ok					 */
+/*   3xx   Command ok so far, send the rest of it	 */
+/*   4xx   Command correct, but NG for some reason	 */
+/*   5xx   Command unimplemented, incorrect, or serious	 */
+/*         program error occurred			 */
+/* Function :						 */
+/*   x0x   Connection, setup, and miscellaneous messages */
+/*   x1x   Newsgroup selection				 */
+/*   x2x   Article selection				 */
+/*   x3x   Distribution functions			 */
+/*   x4x   Posting					 */
+/*   x8x   Nonstandard extensions (AUTHINFO, XGTITLE)	 */
+/*   x9x   Debugging output				 */
+/* Information :					 */
+/*   No defined semantics				 */
+/* ----------------------------------------------------- */
+
+/* 供新版 client 使用 */
+
+#define MSG_LOGINOK     100
+#define MSG_VERSION     103
+#define MSG_MESSAGE     106
+
+#define MSG_CHATROOM    110
+#define MSG_TOPIC       113
+#define MSG_ROOM        116                                                                                        
+#define MSG_NICK        118
+#define MSG_CLRSCR      120
+
+#define MSG_MOTDSTART   130
+#define MSG_MOTD        330
+#define MSG_MOTDEND     230
+
+#define MSG_ROOMLISTSTART   133
+#define MSG_ROOMLIST        333
+#define MSG_ROOMLISTEND     233
+#define MSG_ROOMNOTIFY      134
+
+#define MSG_USERLISTSTART   136
+#define MSG_USERLIST        336
+#define MSG_USERLISTEND     236
+#define MSG_USERNOTIFY      137
+
+#define MSG_PARTYINFO       140
+#define MSG_PARTYLISTSTART  340
+#define MSG_PARTYLIST       240
+#define MSG_PARTYLISTEND    141
+
+#define MSG_PRIVMSG         145
+#define MSG_MYPRIVMSG       146
+
+#define ERR_LOGIN_NICKINUSE   501
+#define ERR_LOGIN_NICKERROR   502
+#define ERR_LOGIN_USERONLINE  503
+#define ERR_LOGIN_NOSUCHUSER  504
+#define ERR_LOGIN_PASSERROR   505
+
+static int
+Isspace (ch)
+     int ch;
+{
+   return (ch == ' ' || ch == '\t' || ch == 10 || ch == 13);
+}
+
+static char *
+nextword (str)
+     char **str;
+{
+   char *head, *tail;
+   int ch;
+
+   head = *str;
+   for (;;) {		
+
+      ch = *head;
+      if (!ch) {
+	 *str = head;
+	 return head;
+      }
+      if (!Isspace (ch))
+	 break;
+      head++;
+   }
+
+   tail = head + 1;
+   while((ch = *tail)) {
+       if(Isspace (ch)) {
+	 *tail++ = '\0';
+	 break;
+      }
+      tail++;
+   }
+   *str = tail;
+
+   return head;
+}
+
+#endif				/* _XCHAT_H_ */
diff --git a/pttbbs/util/yearsold.c b/pttbbs/util/yearsold.c
new file mode 100644
index 00000000..f93134a6
--- /dev/null
+++ b/pttbbs/util/yearsold.c
@@ -0,0 +1,106 @@
+/* $Id$ */
+/* 站上年齡統計 */
+#define _UTIL_C_
+#include "bbs.h"
+
+#define MAX_LINE        16
+
+struct userec_t cuser;
+
+void
+fouts(fp, buf, mode)
+FILE *fp;
+char buf[], mode;
+{
+    static char state = '0';
+
+    if (state != mode)
+	fprintf(fp, "[3%cm", state = mode);
+    if (buf[0])
+    {
+	fprintf(fp, buf);
+	buf[0] = 0;
+    }
+}
+
+int main(int argc, char **argv)
+{
+    int i, j, k;
+    char buf[256];
+    FILE *fp;
+    int year, max, item, maxyear;
+    long totalyear;
+    int act[25];
+    time_t now;
+    struct tm *ptime;
+
+    now = time(NULL);
+    ptime = localtime(&now);
+
+    attach_SHM();
+    if(passwd_init())
+	exit(1);
+    
+    memset(act, 0, sizeof(act));
+    for(k = 1; k <= MAX_USERS; k++) {
+	passwd_query(k, &cuser);
+	if (((ptime->tm_year - cuser.year) < 10) || ((ptime->tm_year - cuser.year) >
+						     33))
+	    continue;
+
+	act[ptime->tm_year - cuser.year - 10]++;
+	act[24]++;
+    }
+    
+    for (i = max = totalyear = maxyear = 0; i < 24; i++)
+    {
+	totalyear += act[i] * (i + 10);
+	if (act[i] > max)
+	{
+	    max = act[i];
+	    maxyear = i;
+	}
+    }
+
+    item = max / MAX_LINE + 1;
+
+    if ((fp = fopen(BBSHOME"/etc/yearsold", "w")) == NULL)
+    {
+	printf("cann't open etc/yearsold\n");
+	return 1;
+    }
+
+    fprintf(fp, "\t\t\t  " BBSNAME
+	    " 年齡統計 [%02d/%02d/%02d] \n\n",
+	    ptime->tm_year % 100, ptime->tm_mon + 1, ptime->tm_mday);
+    for (i = MAX_LINE + 1; i > 0; i--)
+    {
+	strcpy(buf, "   ");
+	for (j = 0; j < 24; j++)
+	{
+	    max = item * i;
+	    year = act[j];
+	    if (year && (max > year) && (max - item <= year))
+	    {
+		fouts(fp, buf, '7');
+		fprintf(fp, "%-3d", year);
+	    }
+	    else if (max <= year)
+	    {
+		fouts(fp, buf, '4');
+		fprintf(fp, "█ ");
+	    }
+	    else
+		strcat(buf, "   ");
+	}
+	fprintf(fp, "\n");
+    }
+
+
+    fprintf(fp, "   "
+	    "10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33\n\n"
+	    "\t\t      有效統計人次：%-9d平均年齡：%d\n"
+	    ,act[24], (int)totalyear / act[24]);
+    fclose(fp);
+    return 0;
+}
diff --git a/pttbbs/web/.cvsignore b/pttbbs/web/.cvsignore
new file mode 100644
index 00000000..33ec1741
--- /dev/null
+++ b/pttbbs/web/.cvsignore
@@ -0,0 +1,3 @@
+*.o
+*.so
+*.a
diff --git a/pttbbs/web/Makefile b/pttbbs/web/Makefile
new file mode 100644
index 00000000..095610b3
--- /dev/null
+++ b/pttbbs/web/Makefile
@@ -0,0 +1,6 @@
+all:	mod_ptt.c mod_ptt.h
+	apxs  -I ../include -c mod_ptt.c ../util/util_cache.c ../util/util_passwd.c ../util/util_record.c
+	cp mod_ptt.so /usr/local/libexec/apache/mod_ptt.so
+	chmod 775 /usr/local/libexec/apache/mod_ptt.so
+clean:
+	rm -f *.o *.a *.so
diff --git a/pttbbs/web/Makefile.old b/pttbbs/web/Makefile.old
new file mode 100644
index 00000000..db2735bf
--- /dev/null
+++ b/pttbbs/web/Makefile.old
@@ -0,0 +1,120 @@
+##
+##  Apache Makefile, automatically generated by Configure script.
+##  Hand-edited changes will be lost if the Configure script is re-run.
+##  Sources: - ../../Makefile.config (via Configuration)
+##           - ./Makefile.tmpl
+##
+
+##
+##  Inherited Makefile options from Configure script
+##  (Begin of automatically generated section)
+##
+SRCDIR=../..
+EXTRA_CFLAGS=
+EXTRA_LDFLAGS=
+EXTRA_LIBS=
+EXTRA_INCLUDES=
+EXTRA_DEPS=
+OSDIR=$(SRCDIR)/os/unix
+INCDIR=$(SRCDIR)/include
+INCLUDES0=-I$(OSDIR) -I$(INCDIR) -I../$(INCDIR)
+SHELL=/bin/sh
+OS=FreeBSD 4.6
+CC=gcc
+CPP=gcc -E
+TARGET=httpd
+OPTIM=
+CFLAGS1= -funsigned-char -DUSE_EXPAT -I$(SRCDIR)/lib/expat-lite -DNO_DL_NEEDED
+INCLUDES1=
+LIBS_SHLIB=
+LDFLAGS1=
+MFLAGS_STATIC=
+REGLIB=
+EXPATLIB=lib/expat-lite/libexpat.a
+RANLIB=ranlib
+LIBS1=  -lcrypt
+##
+##  (End of automatically generated section)
+##
+
+##
+##  Default Makefile options from Configure script
+##  (Begin of automatically generated section)
+##
+CFLAGS=$(OPTIM) $(CFLAGS1) $(EXTRA_CFLAGS)
+LIBS=$(EXTRA_LIBS) $(LIBS1)
+INCLUDES=$(INCLUDES1) $(INCLUDES0) $(EXTRA_INCLUDES)
+LDFLAGS=$(LDFLAGS1) $(EXTRA_LDFLAGS)
+INCDIR=$(SRCDIR)/include
+OBJS=mod_ptt.o parse_html.o
+BBSLIBS=util_cache.o util_passwd.o util_record.o
+LIB=libptt.a
+SHLIBS=
+OBJS_PIC=
+
+all: lib shlib
+
+lib:	$(LIB) 
+
+shlib:	$(SHLIBS)
+
+dummy $(LIB): $(OBJS)
+	rm -f $@
+	ar cr $@ $(OBJS) $(BBSLIBS)
+	$(RANLIB) $@
+
+.SUFFIXES: .o .so .dll
+
+.c.o:
+	$(CC) -c $(INCLUDES) $(CFLAGS) $<
+
+.c.so:
+	$(CC) -c $(INCLUDES) $(CFLAGS) $(CFLAGS_SHLIB) $< && mv $*.o $*.lo
+	$(LD_SHLIB) $(LDFLAGS_SHLIB) -o $@ $*.lo $(LIBS_SHLIB)
+
+clean:
+	rm -f $(LIB) $(OBJS) $(SHLIBS) $(OBJS_PIC)
+
+distclean: clean
+	rm -f Makefile
+
+#   NOT FOR END USERS!
+depend:
+	cp Makefile.tmpl Makefile.tmpl.bak \
+	    && sed -ne '1,/^# DO NOT REMOVE/p' Makefile.tmpl > Makefile.new \
+	    && gcc -MM $(INCLUDES) $(CFLAGS) *.c >> Makefile.new \
+	    && sed -e '1,$$s: $(INCDIR)/: $$(INCDIR)/:g' \
+		   -e '1,$$s: $(OSDIR)/: $$(OSDIR)/:g' Makefile.new \
+		> Makefile.tmpl \
+	    && rm Makefile.new
+
+##
+##  (End of automatically generated section)
+##
+
+#Dependencies
+
+$(OBJS) $(OBJS_PIC): Makefile
+
+# DO NOT REMOVE
+mod_ptt.o: mod_ptt.c $(INCDIR)/httpd.h \
+ $(INCDIR)/ap_config.h $(INCDIR)/ap_mmn.h \
+ $(INCDIR)/ap_config_auto.h $(OSDIR)/os.h \
+ $(INCDIR)/ap_ctype.h $(INCDIR)/hsregex.h \
+ $(INCDIR)/ap_alloc.h $(INCDIR)/buff.h $(INCDIR)/ap.h \
+ $(INCDIR)/util_uri.h $(INCDIR)/http_config.h \
+ $(INCDIR)/http_core.h $(INCDIR)/http_log.h \
+ $(INCDIR)/http_main.h $(INCDIR)/http_protocol.h \
+ $(INCDIR)/util_script.h \
+ /home/bbs/pttbbs/include/bbs.h
+
+parse_html.o: parse_html.c $(INCDIR)/httpd.h \
+ $(INCDIR)/ap_config.h $(INCDIR)/ap_mmn.h \
+ $(INCDIR)/ap_config_auto.h $(OSDIR)/os.h \
+ $(INCDIR)/ap_ctype.h $(INCDIR)/hsregex.h \
+ $(INCDIR)/ap_alloc.h $(INCDIR)/buff.h $(INCDIR)/ap.h \
+ $(INCDIR)/util_uri.h $(INCDIR)/http_config.h \
+ $(INCDIR)/http_core.h $(INCDIR)/http_log.h \
+ $(INCDIR)/http_main.h $(INCDIR)/http_protocol.h \
+ $(INCDIR)/util_script.h \
+ /home/bbs/pttbbs/include/bbs.h
diff --git a/pttbbs/web/Makefile.tmpl b/pttbbs/web/Makefile.tmpl
new file mode 100644
index 00000000..83ed1e84
--- /dev/null
+++ b/pttbbs/web/Makefile.tmpl
@@ -0,0 +1,16 @@
+
+#Dependencies
+
+$(OBJS) $(OBJS_PIC): Makefile
+
+BBSLIBS=   util_cache.o util_record.o util_passwd.o
+
+# DO NOT REMOVE
+mod_ptt.o: mod_ptt.c $(INCDIR)/httpd.h $(INCDIR)/ap_config.h \
+ $(INCDIR)/ap_mmn.h $(INCDIR)/ap_config_auto.h \
+ $(OSDIR)/os.h $(OSDIR)/os-inline.c $(INCDIR)/ap_ctype.h \
+ $(INCDIR)/ap_alloc.h $(INCDIR)/buff.h $(INCDIR)/ap.h \
+ $(INCDIR)/util_uri.h $(INCDIR)/http_config.h \
+ $(INCDIR)/http_core.h $(INCDIR)/http_log.h \
+ $(INCDIR)/http_main.h $(INCDIR)/http_protocol.h \
+ $(INCDIR)/util_script.h
diff --git a/pttbbs/web/Makefile.tmpl.bak b/pttbbs/web/Makefile.tmpl.bak
new file mode 100644
index 00000000..e686b7a9
--- /dev/null
+++ b/pttbbs/web/Makefile.tmpl.bak
@@ -0,0 +1,17 @@
+
+#Dependencies
+
+$(OBJS) $(OBJS_PIC): Makefile
+
+BBSLIBS=   util_cache.o util_record.o util_passwd.o
+
+# DO NOT REMOVE
+mod_ptt.o: mod_ptt.c $(INCDIR)/httpd.h \
+ $(INCDIR)/ap_config.h $(INCDIR)/ap_mmn.h \
+ $(INCDIR)/ap_config_auto.h $(OSDIR)/os.h \
+ $(INCDIR)/ap_ctype.h $(INCDIR)/hsregex.h \
+ $(INCDIR)/ap_alloc.h $(INCDIR)/buff.h $(INCDIR)/ap.h \
+ $(INCDIR)/util_uri.h $(INCDIR)/http_config.h \
+ $(INCDIR)/http_core.h $(INCDIR)/http_log.h \
+ $(INCDIR)/http_main.h $(INCDIR)/http_protocol.h \
+ $(INCDIR)/util_script.h
diff --git a/pttbbs/web/args.c b/pttbbs/web/args.c
new file mode 100755
index 00000000..02e0fad0
--- /dev/null
+++ b/pttbbs/web/args.c
@@ -0,0 +1,228 @@
+/*  使用方法: 自己先用 r->method_number 判斷是 M_GET 或 M_POST
+ */
+#include "mod_ptt.h"
+
+unsigned char xtoc(char ch1, char ch2) {
+  unsigned char d, up1, up2;
+
+  if (!isxdigit(ch1) || !isxdigit(ch2)) return ' ';
+
+  up1 = toupper(ch1);
+  up2 = toupper(ch2);
+
+  if (up1>='0' && up1<='9') d = up1-'0';
+  else d = up1-'A'+10;
+  d <<= 4;
+  if (up2>='0' && up2<='9') d += up2-'0';
+  else d += up2-'A'+10;
+
+  return d;
+}
+
+char * cstoxs(pool *p, char *str)
+{
+  char * newstr = pstrdup(p,""), *po = str;
+
+  for(po = str; *po; po++)
+    {
+	if(isprint(*po) && *po!=' ') newstr=psprintf(p, "%s%c", newstr,*po);
+	else newstr=psprintf(p, "%s%%%X", newstr, *po& 0xFF);
+    }
+  return newstr;
+}
+
+int  // Ptt: 我重寫拿掉mygetchar 並加上fileupload的功能 
+inital_postdata(request_rec *r, int *fileupload, char *boundary, 
+        char **data)
+{ 
+  char *buf, *mb;
+  int  size, off = 0, len_read; 
+  void (*handler)();
+ 
+  buf = table_get(r->subprocess_env,"CONTENT_TYPE"); 
+  if(!buf || 
+     (strncasecmp(buf,"application/x-www-form-urlencoded",33) && 
+             strncasecmp(buf,"multipart/form-data",19)))
+                return -1; 
+
+  if(!strncasecmp(buf,"multipart/form-data",19)) { 
+		if(!fileupload) return -1;
+                *fileupload=1; 
+                mb = strchr(buf,'='); 
+                if(mb) {
+			strcpy(boundary,mb+1);  
+			strtok(boundary, " ;\n");
+		       }
+                else return -1; 
+        } 
+ 
+  buf = table_get(r->subprocess_env,"CONTENT_LENGTH"); 
+  if(buf==NULL) return -1; 
+ 
+  size = atoi(buf); 
+  mb = (char *)palloc(r->pool,(size+1)*sizeof(char)); 
+ 
+  if(!mb || 
+     (setup_client_block(r ,REQUEST_CHUNKED_ERROR) != 0) ||               
+     (should_client_block(r) == 0)) 
+     return -1; 
+                 
+  hard_timeout("args.c copy script args", r);              
+  handler = signal(SIGPIPE, SIG_IGN);
+
+  while(size-off > 0 && (len_read = get_client_block 
+                (r, mb + off, size - off)) > 0) { 
+                        off += len_read; 
+        } 
+
+  signal(SIGPIPE, handler);
+  kill_timeout(r);
+
+  if(len_read < 0) return -1; // 讀的中途有中斷
+  mb[size]=0; // Ptt:截掉不需要吧 因為不是用字串處理方式
+ (*data) = mb; 
+  return size; 
+} 
+
+#define ENCODED_NAME     " name=\""
+#define ENCODED_FILENAME " filename=\"" 
+#define ENCODED_CONTENT  "Content-Type: "
+
+//#define FILEDATAFILE DATABASEDIR "/" FDATA
+
+int 
+unescape(request_rec *r, char** name, char** value) {
+  static char *sp=NULL,  boundary[150]; 
+  static int fileupload,  boundarylen, dsize; 
+  pool *p = r->pool;
+  char   ch, ch1, *dp, *p0, *p1, *temp_sp, *ftype;
+  int type;
+
+  if (sp==NULL) {
+    fileupload=0;
+    switch (r->method_number) { 
+	    case M_GET: 
+	       if (r->args) sp = pstrdup(p, r->args);
+	       else {sp=NULL; return -1;}
+	       break;
+	    case M_POST:
+	       if ((dsize = 
+		 inital_postdata(r, &fileupload, boundary,&sp))<0) 
+	           {sp=NULL; return -1; }
+	       if(fileupload) boundarylen = strlen(boundary);
+	       break;
+	    default: 
+	       sp=NULL;
+ 	       return -1; 
+	}
+   }
+
+  if(fileupload) 
+   {	
+	if(dsize >0 && (temp_sp = memstr(sp, boundary, dsize)))
+         { 
+	   temp_sp += boundarylen; 
+           p0 = strstr(temp_sp, "\r\n\r\n"); 
+           p1 = strstr(temp_sp, "\n\n"); 
+
+           if(!((*name) = strstr(temp_sp, ENCODED_NAME))) 
+		        {sp=NULL; return -1; }
+	   (*name) += strlen(ENCODED_NAME);
+	   strtok((*name) + 1 , "\"");
+	   if( (!p0 && p1) || (p0 && p1 && p1<p0)) 
+		{
+			(*value) = sp = p1 + 2;
+			type = 2;
+		}
+	   else if(p0)  
+		{
+                        (*value) = sp = p0 + 4; 
+			type = 4;
+		}
+	   else 
+		{
+	          sp=NULL; 
+ 	 	  return -1;
+	        }
+
+          if((p1 = memstr(temp_sp, boundary, dsize - boundarylen))) 
+		  temp_sp = p1;
+	  else
+		  temp_sp = sp + dsize;
+
+	  *(temp_sp - type) = 0;
+
+          // 檢查是不是file 若是就給fileinfo
+          if((dp=memstr(
+  	      (*name) + strlen(*name) +1, ENCODED_FILENAME, dsize)) && 
+	      dp < *value)
+            {
+		dp += strlen(ENCODED_FILENAME);
+		p0 = strchr(dp,'"');
+                *p0 = 0;
+                if(p0 - dp>3)
+		{
+                 fileheader_t *file=(fileheader_t *)pcalloc(p, sizeof(fileheader_t));
+                 if((ftype = strstr(p0 + 1, ENCODED_CONTENT)))
+		  {
+ 		   ftype +=  strlen(ENCODED_CONTENT);
+		   strtok(ftype, "\r\n");
+		  }
+                 while(p0 > dp && *p0 !='/' && *p0 !='\\') p0--;
+                 strcpy(file->name, p0+1);    
+		 strcpy(file->content_type, ftype);
+		 file->icontent_type = filetype(ftype);
+	//	 if(file->icontent_type & (FILE_TXT | FILE_HTML))
+         //          file->size = strlen(sp);
+          //       else
+		   file->size = temp_sp - sp - type;
+		 file->uploadtime = time(NULL); 
+		 file->data = (*value);
+                 (*value) = (char *)file;
+		}
+               else
+                {
+                 (*value) = NULL;
+                }      
+            }     
+
+	  dsize -= (temp_sp - sp);
+	  sp = temp_sp;
+	  return 1;
+         } 
+        else 
+         { 
+          sp=NULL; 
+          return -1; 
+         }   
+  }
+
+  dp = (*name) = sp;  
+  while(1) {
+    ch = *sp++;
+    switch(ch) {
+      case '+':
+        *dp++ = ' ';
+        break;
+      case '=':
+        *dp++ = '\0';
+	(*value) = dp;
+	break;
+      case '&': case '|':
+        *dp++ = '\0';
+        return 1;
+      case '\0': case EOF:
+        *dp = '\0'; 
+	sp=NULL;
+        return 0;
+      case '%':
+        ch = *sp++; ch1 = *sp++;
+        *dp++ = xtoc(ch, ch1);
+        break;
+      default:
+	*dp++=ch;
+        break;
+    }
+  }
+}
+
diff --git a/pttbbs/web/board.c b/pttbbs/web/board.c
new file mode 100644
index 00000000..43347912
--- /dev/null
+++ b/pttbbs/web/board.c
@@ -0,0 +1,39 @@
+#include "mod_ptt.h"
+
+extern int numboards;
+extern boardheader_t *bcache;
+extern int ptt_handler(request_rec *r, void *args);
+
+int bbs_board(request_rec *r, void *args)
+{
+    int i;
+    r->content_type = "text/xml";
+    ap_send_http_header(r);
+    ap_rputs("<hr> Ptt \n", r);
+return ptt_handler (r,args);
+
+    ap_rprintf(r,"r->filename : %s <br>",r->filename);
+    ap_rprintf(r,"r->request_time : %s <br>",ctime(&r->request_time));
+    ap_rprintf(r,"r->method : %s <br>",r->method);
+    ap_rprintf(r,"r->method_number : %d <br>",r->method_number);
+    ap_rprintf(r,"r->path_info : %s <br>",r->path_info);
+    ap_rprintf(r,"r->args : %s <br>",r->args);
+    ap_rprintf(r,"r->unparsed_uri : %s <br>",r->unparsed_uri);
+    ap_rprintf(r,"r->uri : %s <br>",r->uri);
+    ap_rprintf(r,"r->handler : %s <br>",r->handler);
+    ap_rprintf(r,"r->content_type : %s <br>",r->content_type);
+    ap_rprintf(r, "Server built: \"%s\"\n", ap_get_server_built());
+
+    ap_rputs("<hr> Ptt \n", r);
+
+    ap_rputs("<XML>",r);
+/*
+    for(i = 0; i++ < numboards; i++)
+      {
+         ap_rputs("<board>",r);
+         ap_rputs("</board>",r);
+      }
+*/
+ 
+   return OK;
+}
diff --git a/pttbbs/web/chmod b/pttbbs/web/chmod
new file mode 100644
index 00000000..a91df6d5
--- /dev/null
+++ b/pttbbs/web/chmod
@@ -0,0 +1 @@
+ftasfdsf
diff --git a/pttbbs/web/l b/pttbbs/web/l
new file mode 100755
index 00000000..5feafa93
--- /dev/null
+++ b/pttbbs/web/l
@@ -0,0 +1 @@
+lynx -dump ptt.cc/menu
diff --git a/pttbbs/web/mail.c b/pttbbs/web/mail.c
new file mode 100644
index 00000000..9f226afe
--- /dev/null
+++ b/pttbbs/web/mail.c
@@ -0,0 +1,6 @@
+#include "mod_ptt.h"
+
+int bbs_mail(request_rec *r, void *args)
+{
+   return OK;
+}
diff --git a/pttbbs/web/mod_ptt.c b/pttbbs/web/mod_ptt.c
new file mode 100644
index 00000000..3c4309ed
--- /dev/null
+++ b/pttbbs/web/mod_ptt.c
@@ -0,0 +1,284 @@
+#include "mod_ptt.h"
+extern SHM_t   *SHM;
+extern int     *GLOBALVAR;
+
+extern int numboards;
+extern boardheader_t *bcache;
+typedef struct excfg {
+    int cmode;                  /* Environment to which record applies (directory,
+                                 * server, or combination).
+                                 */
+#define CONFIG_MODE_SERVER 1
+#define CONFIG_MODE_DIRECTORY 2
+#define CONFIG_MODE_COMBO 3     /* Shouldn't ever happen. */
+    int local;                  /* Boolean: "Example" directive declared here? */
+    int congenital;             /* Boolean: did we inherit an "Example"? */
+    char *trace;                /* Pointer to trace string. */
+    char *loc;                  /* Location to which this record applies. */
+} excfg;
+
+static const char *trace = NULL;
+static table *static_calls_made = NULL;
+
+static pool *ptt_pool = NULL;
+static pool *ptt_subpool = NULL;
+
+
+module MODULE_VAR_EXPORT ptt_module;
+excfg * our_dconfig(request_rec *r)
+{
+
+    return (excfg *) ap_get_module_config(r->per_dir_config, &ptt_module);
+}
+
+static void setup_module_cells()
+{
+    if (ptt_pool == NULL) {
+        ptt_pool = ap_make_sub_pool(NULL);
+    };
+    if (static_calls_made == NULL) {
+        static_calls_made = ap_make_table(ptt_pool, 16);
+    };
+}
+
+
+static int xml_header(request_rec *r)
+{
+    r->content_type = "text/xml";
+    ap_send_http_header(r);
+    ap_rputs("<?xml version=\"1.0\" encoding=\"Big5\"?> \n", r);
+    ap_rprintf(r, "<!--  HTTP-Server-version=\"%s\"\n",
+	    ap_get_server_version());
+    ap_rprintf(r,"   r-filename=\"%s\"\n",r->filename);
+    ap_rprintf(r,"   r-request_time=\"%s\"\n",ctime(&r->request_time));
+    ap_rprintf(r,"   r-method=\"%s\"\n",r->method);
+    ap_rprintf(r,"   r-method_number=\"%d\"\n",r->method_number);
+    ap_rprintf(r,"   r-path_info=\"%s\"\n",r->path_info);
+    ap_rprintf(r,"   r-args=\"%s\"\n",r->args);
+    ap_rprintf(r,"   r-unparsed_uri=\"%s\"\n",r->unparsed_uri);
+    ap_rprintf(r,"   r-handler=\"%s\"\n",r->handler);
+    ap_rprintf(r,"   r-content_type=\"%s\"\n",r->content_type);
+    ap_rprintf(r, "  Serverbuilt=\"%s\" \n", ap_get_server_built());
+    ap_rprintf(r, "  numboards=\"%d\" \n", numboards);
+    ap_rprintf(r, "  shm=\"%d\" \n", SHM->loaded );
+    ap_rprintf(r, "  max_user=\"%d\" -->", SHM->max_user );
+}
+static int userlist(request_rec *r)
+{
+ int i,offset=0;
+ userinfo_t *ptr;
+ xml_header(r);
+ if (r->header_only) {
+        return OK;
+    }
+ if(r->args) offset=atoi(r->args);
+ if(offset<0 || offset>SHM->UTMPnumber)offset=0;
+
+ ap_rprintf(r,"<userlist>");
+ for(i=offset;i<SHM->UTMPnumber && i<50+offset;i++)
+  {
+    ptr= (userinfo_t *)SHM->sorted[SHM->currsorted][0][i];
+    if(!ptr || ptr->userid[0]==0 || ptr->invisible ) continue;
+    ap_rprintf(r,"<user>\n");
+          ap_rprintf(r," <id>%d</id>\n",i+1);
+          ap_rprintf(r," <total>%d</total>\n",SHM->UTMPnumber);
+          ap_rprintf(r," <uid>%d</uid>\n",ptr->uid);
+          ap_rprintf(r," <userid>%s</userid>\n",ptr->userid);
+          ap_rprintf(r," <username>%s</username>\n",
+                           ap_escape_html(r->pool,ptr->username));
+          ap_rprintf(r," <from>%s</from>\n",ptr->from);
+          ap_rprintf(r," <from_alias>%d</from_alias>\n",ptr->from_alias);
+          ap_rprintf(r," <mailalert>%d</mailalert>\n",ptr->mailalert);
+          ap_rprintf(r," <mind>%s</mind>\n",ap_escape_html(r->pool,ptr->mind));
+    ap_rprintf(r,"</user>");
+  }   
+ ap_rprintf(r,"</userlist>");
+}
+static int showboard(request_rec *r, int id)
+{
+    int i;
+    boardheader_t *bptr=NULL;
+    id=id-1;
+    ap_rprintf(r,"<brdlist>");
+    bptr = (boardheader_t *)bcache[id].firstchild[0];
+    for(; bptr!= (boardheader_t*)~0; )
+       {
+        if((bcache[id].brdattr&BRD_HIDE)|| 
+         bcache[id].level&& !(bcache[id].brdattr & BRD_POSTMASK )) continue;
+          ap_rprintf(r,"<brd>\n");
+          i=(bptr-bcache);   
+          ap_rprintf(r," <bid>%d</bid>",i+1);
+          ap_rprintf(r," <brdname>%s</brdname>\n",bptr->brdname);
+          ap_rprintf(r," <title>%s</title>\n",ap_escape_html(r->pool,bptr->title));
+          ap_rprintf(r," <nuser>%d</nuser>\n",bptr->nuser);
+          ap_rprintf(r," <gid>%d</gid>\n",bptr->gid);
+          ap_rprintf(r," <childcount>%d</childcount>\n",bptr->childcount);
+          ap_rprintf(r," <BM>%s</BM>\n",bptr->BM);
+          ap_rprintf(r," <brdattr>%d</brdattr>\n",bptr->brdattr);
+          ap_rprintf(r," <total>%d</total>\n",SHM->total[i]);
+          ap_rprintf(r,"</brd>\n");
+          bptr=(boardheader_t*)bptr->next[0];
+       }
+
+    ap_rprintf(r,"</brdlist>");
+}
+
+
+static int showpost(request_rec *r,int bid,int id, int num)
+{
+   int i;
+   num=256;
+   id=1;
+   char path[512];
+   fileheader_t headers[256];
+   memset(headers,0, sizeof(fileheader_t)*256);
+   sprintf(path,BBSHOME"/boards/%c/%s/.DIR",
+            bcache[bid-1].brdname[0],bcache[bid-1].brdname); 
+   get_records(path, headers, sizeof(fileheader_t)*256, id,num);
+
+   ap_rprintf(r,"<postlist>");
+
+   for(i=0;i<256;i++)
+      {
+          ap_rprintf(r,"<post>\n");
+          ap_rprintf(r," <id>%d</id>",i+1);
+          ap_rprintf(r," <filename>%s</filename>\n",headers[i].filename);
+          ap_rprintf(r," <owner>%s</owner>\n",headers[i].owner);
+          ap_rprintf(r," <date>%s</date>\n",headers[i].date);
+          ap_rprintf(r," <title>%s</title>\n", 
+                         ap_escape_html(r->pool,headers[i].title));
+          ap_rprintf(r," <money>%d</money>\n",headers[i].money);
+          ap_rprintf(r," <filemode>%c</filemode>\n",headers[i].filemode);
+          ap_rprintf(r," <recommend>%d</recommend>\n",headers[i].recommend);
+          ap_rprintf(r,"</post>\n");
+      } 
+   ap_rprintf(r,"</postlist>");
+}
+static int showmenujs(request_rec *r)
+{
+    int i;
+    boardheader_t *bptr;
+    r->content_type = "text/text";
+    ap_send_http_header(r);
+    ap_rputs("d=new dTree('d');\n",r);
+    ap_rputs("d.add(0,-1,'Class','');\n",r);
+    for(i=1;i<=numboards;i++)
+     {
+      bptr=&bcache[i-1];
+      if(!isalpha(bptr->brdname[0]))continue;
+
+      ap_rprintf(r,"d.add(%d,%d,\"%s %s..\",'/boards?%s');\n",
+            i,bptr->gid-1,
+            bptr->gid==1?"":bptr->brdname,
+             ap_escape_quotes(r->pool,
+            ap_escape_html(r->pool,bptr->title+7)),i);
+     }
+   ap_rputs("d.draw()\n",r);
+   return OK;
+}
+
+static int showxml(request_rec *r)
+{
+    int bid=1;
+    xml_header(r);
+    if (r->header_only) {
+        return OK;
+    }
+    if(r->args) bid=atoi(r->args);
+    if(bid<1 || bid>numboards)bid=1;
+
+    if(
+        !(bcache[bid-1].brdattr&BRD_HIDE)&& 
+         !(bcache[bid-1].level&&!(bcache[bid-1].brdattr & BRD_POSTMASK)))
+        if( bid==1||bcache[bid-1].brdattr&BRD_GROUPBOARD)
+         showboard(r,bid);
+        else
+         showpost(r,bid,0,0);
+   return OK;
+}
+static int ptt_handler(request_rec *r)
+{
+    excfg *dcfg;
+
+    dcfg = our_dconfig(r);
+
+    ap_soft_timeout("send ptt call trace", r);
+
+    if(!strncmp(r->unparsed_uri,"/menu",5))
+         showmenujs(r);
+    else if(!strncmp(r->unparsed_uri,"/userlist",9))
+         userlist(r);
+    else 
+        showxml(r);
+
+    ap_kill_timeout(r);
+    return OK;
+}
+
+/*  OK          Handler accepted the request and did its thing with it.     */
+/*  DECLINED    Handler took no action.                                     */
+/*  HTTP_mumble Handler looked at request and found it wanting.             */
+
+static void ptt_child_init(server_rec *s, pool *p)
+{
+
+    char *note;
+    char *sname = s->server_hostname;
+    attach_SHM();
+
+
+    setup_module_cells();
+    sname = (sname != NULL) ? sname : "";
+    note = ap_pstrcat(p, "ptt_child_init(", sname, ")", NULL);
+}
+
+static void ptt_child_exit(server_rec *s, pool *p)
+{
+
+    char *note;
+    char *sname = s->server_hostname;
+
+    /*
+     * The arbitrary text we add to our trace entry indicates for which server
+     * we're being called.
+     */
+    sname = (sname != NULL) ? sname : "";
+    note = ap_pstrcat(p, "ptt_child_exit(", sname, ")", NULL);
+}
+
+static const handler_rec ptt_handlers[] =
+{
+    {"ptt_h", ptt_handler},
+    {NULL}
+};
+
+module MODULE_VAR_EXPORT ptt_module =
+{
+    STANDARD_MODULE_STUFF,
+    NULL,               /* module initializer */
+    NULL,  /* per-directory config creator */
+    NULL,   /* dir config merger */
+    NULL,       /* server config creator */
+    NULL,        /* server config merger */
+    NULL,               /* command table */
+    ptt_handlers,           /* [9] list of handlers */
+    NULL,  /* [2] filename-to-URI translation */
+    NULL,      /* [5] check/validate user_id */
+    NULL,       /* [6] check user_id is valid *here* */
+    NULL,     /* [4] check access by host address */
+    NULL,       /* [7] MIME type checker/setter */
+    NULL,        /* [8] fixups */
+    NULL,             /* [10] logger */
+#if MODULE_MAGIC_NUMBER >= 19970103
+    NULL,      /* [3] header parser */
+#endif
+#if MODULE_MAGIC_NUMBER >= 19970719
+    ptt_child_init,         /* process initializer */
+#endif
+#if MODULE_MAGIC_NUMBER >= 19970728
+    ptt_child_exit,         /* process exit/cleanup */
+#endif
+#if MODULE_MAGIC_NUMBER >= 19970902
+    NULL
+#endif
+};
diff --git a/pttbbs/web/mod_ptt.h b/pttbbs/web/mod_ptt.h
new file mode 100644
index 00000000..125046d6
--- /dev/null
+++ b/pttbbs/web/mod_ptt.h
@@ -0,0 +1,13 @@
+#include "httpd.h"
+#include "http_config.h"
+#include "http_core.h"
+#include "http_log.h"
+#include "http_main.h"
+#include "http_protocol.h"
+#include "util_script.h"
+#include "bbs.h"
+
+#include <stdio.h>
+
+
+#define PATHLEN 512
diff --git a/pttbbs/web/mytime.h b/pttbbs/web/mytime.h
new file mode 100755
index 00000000..c9e4f29d
--- /dev/null
+++ b/pttbbs/web/mytime.h
@@ -0,0 +1,189 @@
+/* Ptt : 常用函式整理 */
+
+/*
+ * 時間處理
+ */
+#include <time.h>
+#ifdef _BBS_UTIL
+ #undef pstrdup
+ #define pstrdup(p, str) strdup(str)
+#endif
+
+int 
+mygetdate(time_t clock, int *year, int *mon, int *mday, int *week)
+{
+  struct tm *mytm = localtime(&clock);
+  if(year) *year = mytm->tm_year; 	/* 98 */
+  if(mon)  *mon  = mytm->tm_mon + 1;    /* 1~12 */
+  if(mday) *mday = mytm->tm_mday;       /* 1~31 */
+  if(week) *week = mytm->tm_wday;       /* 0~6 */
+  return 0;
+}
+
+char *
+Cdatenum_slash(pool *p,time_t *clock)                         /* 98/04/21 */
+{
+  char foo[22];
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 22, "%y/%m/%d", mytm);
+  return pstrdup(p, foo);
+}          
+
+char * 
+Cdatenum(pool *p,time_t *clock) 		                 /* 980421 */	
+{
+  char foo[22];
+  struct tm *mytm = localtime(clock); 
+  strftime(foo, 22, "%y%m%d", mytm); 
+  return pstrdup(p, foo); 
+}
+
+
+#ifndef _BBS_UTIL
+char * 
+Cdatefullnum(pool *p,time_t *clock) 			/* 19980421 */
+{
+  char foo[22];
+  struct tm *mytm = localtime(clock); 
+  strftime(foo, 22, "%Y%m%d", mytm); 
+  return pstrdup(p, foo); 
+}
+#else
+char * 
+Cdatefullnum(char *p,time_t *clock) 			/* 19980421 */
+{
+  static char foo[22];
+  struct tm *mytm = localtime(clock); 
+  strftime(foo, 22, "%Y%m%d", mytm); 
+  return foo;
+}
+#endif
+
+char * 
+Cdate(char *p,time_t *clock)
+{
+  char foo[22];
+  struct tm *mytm = localtime(clock); 
+  strftime(foo, 22, "%D %T %a", mytm); 
+  return pstrdup(p, foo); 
+}
+
+char * 
+Cdatelite(char *p,time_t *clock)
+{
+  char foo[18];
+  struct tm *mytm = localtime(clock); 
+  strftime(foo, 18, "%D %T", mytm); 
+  return pstrdup(p, foo); 
+}       
+   
+char *
+whattime(char *p,time_t *clock)
+{
+  char foo[18];
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 18, "%H:%M:%S", mytm);
+  return pstrdup(p, foo);
+} 
+
+char *
+whatyear(char *p,time_t *clock)
+{
+  char foo[6];
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 6, "%Y", mytm);
+  return pstrdup(p, foo);
+}                  
+
+char *
+whatmonth(char *p,time_t *clock)
+{
+  char foo[4];
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 4, "%m", mytm);
+  return pstrdup(p, foo);
+}                
+
+char *
+whatday(char *p,time_t *clock)
+{
+  char foo[4];
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 4, "%d", mytm);
+  return pstrdup(p, foo);
+}                 
+      
+char *
+C_week(pool *p, int a)
+{
+  char foo[5]="";
+  switch(a)
+   {
+    case 0:
+    case 7:
+	strcpy(foo,"日");
+	break;
+    case 1:
+        strcpy(foo,"一");
+        break;
+    case 2:
+        strcpy(foo,"二");
+        break;
+    case 3:
+        strcpy(foo,"三");
+        break;
+    case 4:
+        strcpy(foo,"四");
+        break;
+    case 5:
+        strcpy(foo,"五");
+        break;
+    case 6:
+        strcpy(foo,"六");
+        break;
+   }
+  return pstrdup(p, foo);
+} 
+
+char *
+whatweek(char *p,time_t *clock)
+{
+  struct tm *mytm = localtime(clock);
+  return C_week(p, mytm->tm_wday);
+}              
+
+char *
+whathour(char *p,time_t *clock)
+{
+  char foo[4]="";  
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 6, "%H", mytm);
+  return pstrdup(p, foo);   
+}
+
+char *
+whatminute(char *p,time_t *clock)
+{
+  char foo[4]="";  
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 6, "%M", mytm);
+  return pstrdup(p, foo);
+}        
+
+char *
+whatsecond(char *p,time_t *clock)
+{
+  char foo[4]="";  
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 6, "%S", mytm);
+  return pstrdup(p, foo);
+}        
+
+char *
+Wholetime(char *p,time_t *clock)                  /* 19980421 */
+{
+  char foo[40];
+  struct tm *mytm = localtime(clock);
+  strftime(foo, 40, "%Y年%m月%d日%H時%M分%S秒", mytm);
+  return pstrdup(p, foo);
+}     
diff --git a/pttbbs/web/parse_html.c b/pttbbs/web/parse_html.c
new file mode 100755
index 00000000..402412de
--- /dev/null
+++ b/pttbbs/web/parse_html.c
@@ -0,0 +1,294 @@
+#include "mod_ptt.h"
+#include <time.h>
+#include <math.h>
+#define KUSERINFO   "$userinfo$"
+#define KUSERID     "$userid$"
+#define KUSERNAME   "$username$"
+#define KUSERMONEY  "$usermoney$"
+#define KTIMEYEAR   "$timeyear$"    
+#define KTIMEMONTH  "$timemonth$"
+#define KTIMEMDAY   "$timemday$"
+#define KTIMEWEEK   "$timeweek$"
+#define KSERVERTIME "$servertime$"
+#define KTIMEHOUR   "$hour$"
+#define KTIMEMINUTE "$minute$"
+#define KTIMESECOND "$second$"
+#define KMSGONLOAD  "$MSGonLoad$"
+#define KFCSONLOAD  "$FCSonLoad$"
+#define KHTMLTITLE    "$HTMLtitle$"
+#define KSCROLLTITLE  "$SCROLLtitle$"
+#define KBGCOLOR    "$BGCOLOR$"
+#define KBGSOUND    "$BGSOUND$"
+#define KINCHTML    "$file:"
+
+
+        
+char *
+ap_parseline(request_rec *r, const char *str, char *str_substiute[]) {        
+  int i, off=0;
+  char *strbuf, *po;
+  pool *p = r->pool;
+  strbuf = pstrdup(p, str);
+
+  if(str_substiute == NULL) return strbuf;
+  for(i=0; str_substiute[i]!=NULL; i+=2)
+   {
+    off = 0;
+    while(po = strstr(strbuf + off, str_substiute[i]))
+     {
+       *po = 0;
+       strbuf = pstrcat(p, strbuf, str_substiute[i+1] !=NULL
+	      ? str_substiute[i+1] : "", po+strlen(str_substiute[i]), NULL);
+       off += str_substiute[i+1] ? strlen(str_substiute[i+1]) : 0;
+     } 
+   }
+  return strbuf;
+}
+
+char *
+ap_standard_parseline(request_rec *r, char *str)
+{
+  time_t now = time(NULL);    
+   pool *p = r->pool;        
+   char *str_substiute[]=     //   關鍵字的代換表
+      {
+        KUSERID, "ptt",
+	KUSERNAME, "name",
+/*
+        KTIMEYEAR, whatyear(p,&now),
+        KTIMEMONTH,whatmonth(p,&now),
+        KTIMEMDAY, whatday(p,&now),
+        KTIMEWEEK, whatweek(p,&now),
+        KSERVERTIME, whattime(p,&now),
+        KTIMEHOUR,     whathour(p,&now),
+        KTIMEMINUTE,   whatminute(p,&now),
+        KTIMESECOND,   whatsecond(p,&now),
+*/
+        KUSERINFO, NULL,
+        KUSERMONEY, "100",
+        NULL,NULL
+      };           
+   return ap_parseline(r, str, str_substiute);
+}
+
+int
+ap_showfile(request_rec *r, char *filename, char *table[], char *t2[], FILE *fo)
+{
+ pool *p = r->pool;
+ FILE *fp = pfopen(p, filename, "r");
+ char *str, *incfile, buf[512];
+
+ if (!fp) {
+#if DEBUG
+    rputs(filename, r);
+#endif
+    return -1;
+ }
+
+ while (fgets(buf, 512, fp))
+   {
+
+     str = ap_standard_parseline(r,
+       ap_parseline(r,
+         ap_parseline(r, buf, table),
+         t2));   
+
+    if ((incfile = strstr(str, KINCHTML)) != NULL) {
+      incfile += strlen(KINCHTML);
+      incfile = strtok(incfile, "$");
+#if 0
+      if (*incfile != '/')
+        incfile = ap_pstrcat(p, TEMPLATEDIR "/", incfile, NULL);
+#endif
+      ap_showfile(r, incfile, table, t2, fo);
+    } else   if(fo) fputs(str, fo);
+      else   rputs(str, r);          
+   }
+
+ pfclose(p, fp);
+ return 0;
+}
+
+char *
+add_href(pool *p, char *l)
+{
+  char *href[] = {"http://", "ftp://", "gopher://", "file://",
+		  "telnet://", "mailto:", NULL},
+       *end, url[PATHLEN], *tl, *po;
+  int i, urllen, off;
+
+  tl = pstrdup(p, l);
+
+  for(i=0; href[i]!=NULL; i++)
+   {
+    off = 0;
+    //Ptt: while 應該用 while 但 while 有bug
+    if((po = strstr(tl + off, href[i])))
+     {
+       for(end = po; (*end>='&' && *end<='z')||*end=='~' ; end++);
+       urllen = end - po;
+
+       if(urllen > PATHLEN)
+             {
+                off += PATHLEN; continue;
+             }
+
+       strncpy(url, po, urllen);
+       *po= 0;
+       url[urllen] = 0;
+       tl = psprintf(p, "%s<a href=\"%s\" target=\"%s\">%s</a>%s", tl,
+                url, "new", url, end);
+       off += 2 * urllen + 15;
+     }
+   }                 
+
+  return tl;
+}
+
+/*
+  format:
+    char *name, void  *ptr, size_t length
+    char *name,  int  *ptr, -1
+    char *name, char **ptr, 0
+*/
+int
+GetQueryDatas(request_rec *r, int **table)
+{
+   int rc, i, match=0, dlen, maxlen;
+   char *name, *value, *str;
+   pool *p = r->pool;
+
+   for(i=1; table[i]!=NULL; i+=3)
+	{
+	 if((int) table[i+1]) *table[i]=0;
+	 else (char *) (*table[i]) = pstrdup(p, "");
+	}
+   do
+    {
+	 if((rc = unescape(r, &name, &value))<0) break; 
+         for(i=0; table[i]; i+=3)
+	 {
+            if(!strcmp((char *)table[i], name)) break;
+
+#if 0
+/* SiE990313 test: 抓 未定義的變數 */
+	    if(!strcmp((char *)table[i], "$SPARE$"))
+	    {
+		(char *) (*table[i + 1]) = pstrdup(p, name);
+		continue;
+	    }
+#endif
+	 }
+         if(table[i] && table[i+1])
+            {
+                    if((maxlen = (int) table[i+2]) > 0)
+                          {
+		            if(!*value) continue;
+			    dlen = strlen((char *)table[i+1]); 
+                            str  = ap_escape_html(p, value);
+			    if(maxlen > dlen)
+                              strexam(
+                                 strncat((char *)table[i+1],str,maxlen-dlen)
+                              );
+                          }
+                    else  if((int) table[i+2] == 0) // for file upload
+			  {
+//                           str  = ap_escape_html(p, value);
+	                     //if(value) 
+			     (*table[i+1]) = (int) value;
+//			     else (*table[i+1]) = (int) pstrdup(p,"");
+			  }
+		    else
+                          {
+		             if(!*value) continue;
+                             *(table[i+1]) += atoi(value);
+                          }
+		match++;
+            }
+   } while(rc>0);
+   return match;
+}
+
+
+int
+ap_url_redirect(request_rec *r, char *url)
+{
+  r->status = REDIRECT;
+  
+  ap_table_setn(r->headers_out, "Location", pstrdup(r->pool, url));
+  return MOVED;
+  //return  REDIRECT, MOVED 或 HTTP_SEE_OTHER 都可
+}
+
+char *
+pint2str(pool* p, int c)
+{
+ return ap_psprintf(p,"%d",c);
+}
+
+char*
+preplace(request_rec *r, char* src, char* sig, char* rep)
+{
+  char *ptr;
+  int siglen=strlen(sig), off=0;
+
+  while((ptr = strstr(src+off,sig)))
+  {
+    *ptr = 0;
+    src = pstrcat(r->pool, src, rep, NULL);
+    off = strlen(src);
+    src = pstrcat(r->pool, src, ptr+siglen, NULL);
+  }
+  return src;
+}       
+
+int
+hex2dig(char *str)
+{
+  int base,ret=0,i,len=strlen(str);
+
+  for(i=0; i<len; i++)
+  {
+    if(str[i]>='a' && str[i]<='f') base = str[i]-'a'+10;
+    else if(str[i]>='A' && str[i]<='F') base = str[i]-'A'+10;
+    else if(str[i]>='0' && str[i]<='9') base = str[i]-'0';
+    else return -1;    
+   
+    ret += base*pow(16,len-i-1);
+  }
+  return ret;
+}          
+
+char *
+pstrncpy(pool* p, char tmp[], int n)
+{
+   char *ptr;
+   ptr=pstrdup(p,tmp);
+   *(ptr+n)=0;
+   return psprintf(p,"%s",ptr);
+}    
+
+char *
+GetPathToken(request_rec *r, int count)
+{
+  char *str, *token, *sepr = "/\\?&";
+  int i;
+  str = pstrdup(r->pool, r->path_info + 1);
+  token = strtok(str, sepr);
+  for( i = 1 ; i < count; i++)
+    {
+       token = strtok(NULL, sepr);
+       if(!token) return "-1";     /* Heat:count超過也要考慮 */
+    }
+  return token;
+}  
+
+
+/*
+  個人信件夾檔保管方式:
+
+  mail/@/rec/FF/F/UUDDTT
+  mail/@/dat/FF/F/UUDDTT
+
+*/
+
diff --git a/pttbbs/web/post.c b/pttbbs/web/post.c
new file mode 100644
index 00000000..3e67937e
--- /dev/null
+++ b/pttbbs/web/post.c
@@ -0,0 +1,6 @@
+#include "mod_ptt.h"
+
+int bbs_post(request_rec *r, void *args)
+{
+   return OK;
+}
diff --git a/pttbbs/web/r b/pttbbs/web/r
new file mode 100755
index 00000000..5e18e14c
--- /dev/null
+++ b/pttbbs/web/r
@@ -0,0 +1 @@
+sudo apachectl restart
diff --git a/pttbbs/web/s b/pttbbs/web/s
new file mode 100755
index 00000000..e1384f10
--- /dev/null
+++ b/pttbbs/web/s
@@ -0,0 +1 @@
+sudo apachectl stop
diff --git a/pttbbs/web/stuff.c b/pttbbs/web/stuff.c
new file mode 100755
index 00000000..b02dbb0d
--- /dev/null
+++ b/pttbbs/web/stuff.c
@@ -0,0 +1,269 @@
+/* Ptt : 常用字串函式整理 */            
+#include "mod_ptt.h"
+
+// 缺少 escape_url的東西
+
+/*
+ * 檔案判別
+ */      
+
+ /* 傳回:路徑大小 */
+
+off_t
+dashs(fname)
+  char *fname;
+{
+  struct stat st;
+
+  if (!stat(fname, &st))
+        return (st.st_size);
+  else
+        return 0; /* 無此檔是 size 0 */
+}   
+
+ /* 傳回:路徑時間 */
+long
+dasht(char *fname)
+{
+  struct stat st;
+
+  if (!stat(fname, &st))
+        return (st.st_mtime);
+  else
+        return -1;
+}
+
+ /* 傳回:路徑是否為link檔 */
+int
+dashl(char *fname)
+{
+  struct stat st;   
+  return (lstat(fname, &st) == 0 && S_ISLNK(st.st_mode));
+}
+
+ /* 傳回:路徑是否為檔案 */
+dashf(char *fname)
+{
+  struct stat st;
+
+  return (stat(fname, &st) == 0 && S_ISREG(st.st_mode));
+}
+
+/* 字串的小寫 */
+#define char_lower(c)  ((c >= 'A' && c <= 'Z') ? c|32 : c)                   
+
+void
+str_lower(t, s)
+  char *t, *s;
+{
+  register char ch;
+  do
+  {
+    ch = *s++;
+    *t++ = char_lower(ch);
+  } while (ch);
+}                
+
+int
+str_ncmp(s1, s2, n)
+  char *s1, *s2;
+  int n;
+{
+  int c1, c2;
+
+  while (n--)
+  {
+    c1 = *s1++;
+    if (c1 >= 'A' && c1 <= 'Z')
+      c1 |= 32;
+
+    c2 = *s2++;
+    if (c2 >= 'A' && c2 <= 'Z')
+      c2 |= 32;
+
+    if (c1 -= c2)
+      return (c1);
+
+    if (!c2)  
+      break;
+  }
+  return 0;
+}  
+char *
+memstr(char *mem, char *str, int size)
+{                        
+  char *loc, *ptr=mem, *end=mem+size;
+  int  len = strlen(str);
+  while((loc = memchr(ptr, *str, size)))
+   {
+     if(!strncmp(loc, str, len))
+	return loc;
+     ptr = loc +1;
+     size = (end - ptr);
+     if(size <=0 ) return NULL;
+   }
+  return NULL;
+}
+
+/* 傳回: strstr的比較但不計大小寫的結果 */
+/*
+char *
+strcasestr(str, tag)
+  char *str, *tag;             
+{
+  char buf[BUFLEN];
+
+  str_lower(buf, str);
+  return  strstr(buf, tag);
+}
+*/
+                      
+/* 傳回: 一個checksum 給字串比較用 */
+
+int str_checksum(char *str)
+{
+  int n=1;
+  if(strlen(str) < 6) return 0;
+  while(*str)
+        n += *str++ ^ n;
+  return n;
+}
+                    
+int
+not_alpha(ch)
+  register char ch;
+{
+  return (ch < 'A' || (ch > 'Z' && ch < 'a') || ch > 'z');
+}  
+
+int
+not_alnum(ch)
+  register char ch;
+{
+  return (ch < '0' || (ch > '9' && ch < 'A') ||
+    (ch > 'Z' && ch < 'a') || ch > 'z');
+}           
+
+char
+ch2ph(char ch)
+{
+  static const
+  //             a   b   c   d   e   f   g   h   i   j   k   l   m   n   o
+  char table[]={'2','2','2','3','3','3','4','4','4','5','5','5','6','6','6',
+  //      p   q   r   s   t   u   v   w   x   y   z
+         '7','1','7','7','8','8','8','9','9','9','1'};
+  static char d;
+  d = char_lower(ch);
+  if(d>='a' && d<='z') d=table[d-'a'];
+  return d;
+}
+
+void
+archiv32(chrono, fname)
+  time_t chrono;        /* 32 bits */
+  char *fname;          /* 7 chars */
+{
+  char *str;
+  char radix32[32] = {
+  '0', '1', '2', '3', '4', '5', '6', '7',
+  '8', '9', 'A', 'B', 'C', 'D', 'E', 'F',
+  'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N',
+  'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
+  };
+
+  str = fname + 7;
+  *str = '\0';
+  for (;;)
+  {
+    *(--str) = radix32[chrono & 31];
+    if (str == fname)
+      return;
+    chrono >>= 5;
+  }
+}
+
+/* ARPANET時間格式 */
+char *
+Atime(clock) 
+  time_t *clock;
+{
+  static char datemsg[40];
+  /* ARPANET format: Thu, 11 Feb 1999 06:00:37 +0800 (CST) */
+  /* strftime(datemsg, 40, "%a, %d %b %Y %T %Z", localtime(clock)); */
+  /* time zone的傳回值不知和ARPANET格式是否一樣,先硬給,同sendmail*/
+  strftime(datemsg, 40, "%a, %d %b %Y %T +0800 (CST)", localtime(clock));
+  return (datemsg);
+}
+
+
+/* userid是否合法 */
+int
+bad_user_id(userid)
+  char *userid;
+{
+  register char ch;
+  if (strlen(userid) < 2)
+    return 1;
+  if (not_alpha(*userid))
+    return 1;
+  if (!strcasecmp(userid, "new") || !strcasecmp(userid, "guest") ||
+      !strcasecmp(userid, "root") || !strcasecmp(userid, "webadm") ||
+      !strncasecmp(userid,"yam",3)
+     )
+    return 1;
+
+  while (ch = *(++userid))             
+  {
+    if (not_alnum(ch) || ch == '0')
+      return 1;
+  }
+  return 0;
+}    
+
+
+int
+logfile(pool *p, char *filename,char *buf)
+{
+    FILE *fp;
+    time_t now;
+    if( (fp = ap_pfopen(p, filename, "a" )) ) {
+   
+        fputs( buf, fp );
+        if(!strchr(buf,'\n')) 
+	  { 
+	    now = time(NULL);
+	    fputs(ctime(&now), fp);
+	  }
+        ap_pfclose(p, fp );
+        return 0;
+    }
+    else{ 
+        printf("error open file");
+        return -1; 
+    }
+}
+
+/* 檢查中文斷字問題 */
+char *strexam(char *s)
+{
+  int i;
+  int odd;
+  for (i = 0, odd = 0; s[i]; i++)
+    if (odd) odd = 0;
+    else if (s[i] & 128) odd = 1;
+  if (odd) s[--i] = 0;
+  return s;
+}
+
+int
+maxline(char *data,char *newline, int max)
+{
+  register int n, nlen=strlen(newline);
+  register char *po;
+
+  for(n=0, po = data; (po = strstr(po, newline)); po+=nlen)
+   {
+      if(++n>=max) {*po=0; return -1;}
+   }
+  return n;
+}
diff --git a/pttbbs/web/t b/pttbbs/web/t
new file mode 100755
index 00000000..6e8b84bc
--- /dev/null
+++ b/pttbbs/web/t
@@ -0,0 +1 @@
+tail /var/log/httpd-error.log
diff --git a/pttbbs/web/user.c b/pttbbs/web/user.c
new file mode 100644
index 00000000..fe5d0696
--- /dev/null
+++ b/pttbbs/web/user.c
@@ -0,0 +1,6 @@
+#include "mod_ptt.h"
+
+int bbs_user(request_rec *r, void *args)
+{
+   return OK;
+}