--- BBS.cgi.org	Sat May 12 18:13:18 2001
+++ BBS.cgi	Sat Jun 30 04:57:29 2001
@@ -4,7 +4,7 @@
 
   BBS.cgi - a sample BBS script for the CGI_Board class library
 
-  Version: 0.70 (beta test version)
+  Version: 0.70 + Virtual Avenue patch 0.02 (beta test version)
   Date: Sat May 12 04:29:40 JST 2001
 
 =head1 Copyright
@@ -20,7 +20,7 @@
 #==============================================================================
 # Location of CGI_Board
 
-my $Version_of_CGI_Board = "0.70";
+my $Version_of_CGI_Board = "0.70+VA0.02";
 my $URL_of_CGI_Board = "http://www.math.tohoku.ac.jp/~kuroki/pub/CGI_Board/";
 my $Link_to_CGI_Board
   = qq!<a href="$URL_of_CGI_Board">CGI_Board</a> $Version_of_CGI_Board!;
@@ -30,11 +30,12 @@
 # Advertising Banner
 
 use vars qw( $Banner );
-$Banner = "";
+#$Banner = "";
 #
 # for Virtual Avenue
 #
-#$Banner .= "<!--VirtualAvenueBanner-->\n<!-- End of VA Banner -->\n";
+$Banner .= "<!--VirtualAvenueBanner-->\n<!-- End of VA Banner -->\n";
+$Banner .= "</font></center>\n";
 #
 # for Tytek
 #
@@ -56,6 +57,7 @@
   } else {
     $Script_File = $0;
   }
+  chmod 0711, $Script_File;
   ($Script_Dir, $Script_Filename) = ($Script_File =~ m!^(.*)/(.*?)$!);
   $Script_Dir = "." unless defined $Script_Dir;
   $Script_Filename = $Script_File unless defined $Script_Filename;
@@ -103,25 +105,25 @@
 #
 # Permission of directories and files
 #
-my $Perm_Config_Dir = 0777;
-my $Perm_Board_Dir  = 0777;
-my $Perm_Syslog     = 0666;
-my $Perm_Admin      = 0666;
-my $Perm_Config     = 0666;
-my $Perm_Board      = 0666;
-my $Perm_Boardlog   = 0666;
-my $Perm_Searchlog  = 0666;
-my $Perm_Errorlog   = 0666;
-#
-#my $Perm_Config_Dir = 0700;
-#my $Perm_Board_Dir  = 0755;
-#my $Perm_Syslog     = 0600;
-#my $Perm_Admin      = 0600;
-#my $Perm_Config     = 0600;
-#my $Perm_Board      = 0644;
-#my $Perm_Boardlog   = 0600;
-#my $Perm_Searchlog  = 0600;
-#my $Perm_Errorlog   = 0600;
+#my $Perm_Config_Dir = 0777;
+#my $Perm_Board_Dir  = 0777;
+#my $Perm_Syslog     = 0666;
+#my $Perm_Admin      = 0666;
+#my $Perm_Config     = 0666;
+#my $Perm_Board      = 0666;
+#my $Perm_Boardlog   = 0666;
+#my $Perm_Searchlog  = 0666;
+#my $Perm_Errorlog   = 0666;
+#
+my $Perm_Config_Dir = 0700;
+my $Perm_Board_Dir  = 0755;
+my $Perm_Syslog     = 0600;
+my $Perm_Admin      = 0600;
+my $Perm_Config     = 0600;
+my $Perm_Board      = 0644;
+my $Perm_Boardlog   = 0600;
+my $Perm_Searchlog  = 0600;
+my $Perm_Errorlog   = 0600;
 
 # Set the directory in which configuration files are placed.
 # If its first character is not "/", it is interpreted as the relative path 
@@ -161,8 +163,8 @@
 
 # Set DirectoryIndex filename.
 #
-my $DirectoryIndex = "index.html";
-#my $DirectoryIndex = undef;
+#my $DirectoryIndex = "index.html";
+my $DirectoryIndex = undef;
 
 # Check disk space
 #
@@ -239,7 +241,7 @@
 my $syslog_filename = "Syslog.cgi";
 my $syslog_file = $syslog_dir . "/" . $syslog_filename;
 my $syslog_perm = $Perm_Syslog;
-my $syslog_maxsize = 1024 * 1024;
+my $syslog_maxsize = 500 * 1024;
 # To stop logging syslog, let $syslog_file be undef.
 #my $syslog_file = undef;
 
@@ -248,7 +250,7 @@
 my $errorlog_filename = "Error.cgi";
 my $errorlog_file = $errorlog_dir . "/" . $errorlog_filename;
 my $errorlog_perm = $Perm_Errorlog;
-my $errorlog_maxsize = 1024 * 1024;
+my $errorlog_maxsize = 100 * 1024;
 # To stop logging errors, let $errorlog_file be undef.
 #my $errorlog_file = undef;
 
@@ -819,8 +821,8 @@
 $board->board_maxsize($board_maxsize);
 $board->board_seqlen($board_seqlen);
 $board->set_board_new(\&board_new);
-#$board->html_bdrhead("<!--*");
-#$board->html_bdrfoot("*-->\n");
+$board->html_bdrhead("<!--*");
+$board->html_bdrfoot("*-->\n");
 
 my $boardlog_dir = $board_dir;
 my $boardlog_id = $board_id;
@@ -843,7 +845,7 @@
 my $searchlog_filename = $board_id . "-searchlog.cgi";
 my $searchlog_file = $board_dir . "/" . $searchlog_filename;
 my $searchlog_perm = $Perm_Searchlog;
-my $searchlog_maxsize = 1024 * 1024;
+my $searchlog_maxsize = 100 * 1024;
 # To stop logging searchlog, let $searchlog_file be undef.
 #my $searchlog_file = undef;
 
@@ -1064,8 +1066,6 @@
 $Default_Rule
 <h1 align="center">New Board File of "$board_id" Created</h1>
 $Board_Menu
-$Default_Rule
-$Board_Inputform_Passwd
 $Default_Admin_Footer
 ----------END;
   exit;
@@ -1733,8 +1733,8 @@
   foreach (@item) {
     $config_value{$_} = $cgi_value{'board_' . $_};
     # Forbid SSI in board config files for safety
-    $config_value{$_} =~ s,<\!--\#[^>]*>,,g;
-#    $config_value{$_} =~ s,<\!--\#(?!exec c..="\./(?:LOGREC"|logwrite|/ad/ads\.pl"))[^>]*>,,g;
+#    $config_value{$_} =~ s,<\!--\#[^>]*>,,g;
+    $config_value{$_} =~ s,<\!--\#(?!exec c..="\./(?:LOGREC"|logwrite|/ad/ads\.pl"))[^>]*>,,g;
   }
 
   $config->splice(0); # clear $config->content
@@ -1864,12 +1864,12 @@
   symlink $filename, $link
     or fileunlock($link), print_and_die("$filename: $!");
 
-#  my $bin = $board_dir . "/" . $board_id . ".bin";
-#  if (-l $bin) {
-#    unlink $bin or fileunlock($link), print_and_die("$bin: $!");
-#  }
-#  symlink $board_id . $board_suffix, $bin
-#    or fileunlock($link), print_and_die("$bin: $!");
+  my $bin = $board_dir . "/" . $board_id . ".bin";
+  if (-l $bin) {
+    unlink $bin or fileunlock($link), print_and_die("$bin: $!");
+  }
+  symlink $board_id . $board_suffix, $bin
+    or fileunlock($link), print_and_die("$bin: $!");
 
   my $log_filename = $boardlog_id . $seq . $boardlog_suffix;
   my $oldlog_filename = $boardlog_id . $oldseq . $boardlog_suffix
@@ -1980,8 +1980,6 @@
 <pre>
 $files
 </pre>
-$Default_Rule
-$Board_Inputform_Passwd
 $Default_Admin_Footer
 ----------END;
 
@@ -3242,7 +3240,7 @@
     }
   }
 
-  print_syslog("submission_form");
+#  print_syslog("submission_form");
 
   $macro = board_macro($mode);
 
@@ -3768,7 +3766,7 @@
   }
 
   my $referer = $ENV{'HTTP_REFERER'};
-  print_syslog("read_board: $filename,$order_normal,$referer");
+#  print_syslog("read_board: $filename,$order_normal,$referer");
 
   # load $file
   open FILE, $file or print_and_die("$file: $!");
@@ -4077,10 +4075,10 @@
 
   print_errorlog($message);
 
-  my $diemessage = "$filename $line: $message";
-  $diemessage =~ tr/\n/ /;
-  die $message, "\n";
-#  exit;
+#  my $diemessage = "$filename $line: $message";
+#  $diemessage =~ tr/\n/ /;
+#  die $message, "\n";
+  exit;
 }
 
 #------------------------------------------------------------------------------