add proto, msg pretty print, misc update

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@3011 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

6 files changed, 23 insertions, 4 deletions

diff --git a/include/proto.h b/include/proto.h
index 932933ab..1859dff8 100644
--- a/include/proto.h
+++ b/include/proto.h
@@ -518,6 +518,8 @@ void new_register(void);
 int checkpasswd(const char *passwd, char *test);
 void check_register(void);
 char *genpasswd(char *pw);
+int setupnewuser(const userec_t *user);
+
 
 /* screen */
 void mouts(int y, int x, const char *str);
diff --git a/include/pttstruct.h b/include/pttstruct.h
index 05025248..7c5a12a6 100644
--- a/include/pttstruct.h
+++ b/include/pttstruct.h
@@ -665,4 +665,18 @@ typedef struct {
 } ocfs_t;
 #endif
 
+// kcwu: for bug tracking
+/* not used right now */
+enum {
+    F_VER,
+    F_EDIT,
+    F_MORE,
+    F_WRITE_REQUEST,
+    F_TALK_REQUEST,
+    F_WATER,
+    F_USERLIST,
+    F_GEM,
+};
+
+
 #endif
diff --git a/mbbsd/admin.c b/mbbsd/admin.c
index 9a0fd4e0..f2e82bfa 100644
--- a/mbbsd/admin.c
+++ b/mbbsd/admin.c
@@ -1148,7 +1148,9 @@ scan_register_form(const char *regfile, int automode, int neednum)
 		} else {
 		    if (search_ulist(unum) == NULL)
 		    {
-		        ans[0] = getkey("是否接受此資料(Y/N/Q/Del/Skip)？[S])");
+			move(b_lines, 0); clrtoeol();
+			outs("是否接受此資料(Y/N/Q/Del/Skip)？[S] ");
+		        ans[0] = igetch();
 		    }
 		    else
 			ans[0] = 's';
diff --git a/staticweb/index.pl b/staticweb/index.pl
index 82d52f02..b135655d 100755
--- a/staticweb/index.pl
+++ b/staticweb/index.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # $Id$
 use lib qw/./;
 use LocalVars;
diff --git a/staticweb/man.pl b/staticweb/man.pl
index b77fcd03..f7f13804 100755
--- a/staticweb/man.pl
+++ b/staticweb/man.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # $Id$
 use CGI qw/:cgi :html2/;
 use lib qw/./;
diff --git a/staticweb/manbuilder.pl b/staticweb/manbuilder.pl
index 34a53442..806d9a1c 100755
--- a/staticweb/manbuilder.pl
+++ b/staticweb/manbuilder.pl
@@ -1,4 +1,5 @@
-#!/usr/local/bin/speedy
+#!/usr/bin/env perl
+# or local/bin/speedy
 # $Id$
 use lib '/home/bbs/bin/';
 use strict;