#!/usr/bin/perl

#
###                         PRIMARY UBB SCRIPT                ##
#
# Ultimate Bulletin Board is copyright Madrona Park, Inc., 1998.
#
#       ------------ Ultimate.cgi -------------
#
#  This file contains intro functionality for the UBB.
#
#  Madrona Park, Inc. offers no
#  warranties on this script.  The owner/licensee of the script is
#  solely responsible for any problems caused by installation of
#  the script or use of the script, including messages that may be
#  posted on the BB.
#
#  All copyright notices regarding the Ultimate Bulletin Board
#  must remain intact on the scripts and in the HTML
#  for the scripts.
#
# For more info on the Ultimate BB, 
# see http://www.UltimateBB.com
#
###############################################################
#
#If you are running UBB on IIS,
#you may need to add the following line
#if so, just remove the "#" sign before the print line below
#print "HTTP/1.0 200 OK\n";
eval {
  ($0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
  ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
 
#substitute all require files here for the file

require "UltBB.setup";
require "Date.pl";
require "mods.file";
require "Styles.file";
require "cookie-lib.pl";
require "ubb_library.pl";
};

&ReadParse;

if ($in{'action'} eq "Redirect") {
print "Location: $in{'GoTo'}\n\n";
exit;
 } #end Redirect check
 
print ("Content-type: text/html\n\n");

if ($BBStatus eq "OFF") {
&StandardHTML("情報フォーラムはメンテナンス中です。今しばらくお待ちください。");
exit;
}

foreach $row(@in) {
	($Name, $Value) = split ("=", $row);
	$Name = &decodeURL($Name);
	$Value = &decodeURL($Value);
		if ($Name eq "forum") {
			$Forum = $Value;
			$Forum =~ s/\/\\//g;
			$ForumCoded = &HTMLIFY($Forum);
			$ForumCoded =~ tr/ /+/;
			$Forum = &UNHTMLIFY($Forum);
	}
		if ($Name eq "TopicSubject") {
			$TopicSubject = $Value;
			$TopicSubject =~ s/<.+?>//g;
				$TopicSubject = &UNHTMLIFY($TopicSubject);
	}
		if ($Name eq "UserName") {
		$UserName = $Value;
		$UserNameFile = $UserName;
		$UserNameFile =~ s/ /_/g; #remove spaces
	}
	if ($Name eq "BypassCookie") {
		$BypassCookie = $Value;
	}
	if ($Name eq "category") {
			$category = $Value;
			$category =~ s/\/\\//g;
			$categoryCoded = &HTMLIFY($category);
			$categoryCoded =~ tr/ /+/;
			$category = &UNHTMLIFY($category);
	}
		if ($Name eq "PasswordConfirm") {
			$PasswordConfirm = $Value;
		}

		if ($Name eq "number") {
			$number = $Value;
	}
		if ($Name eq "DaysPrune") {
			$DaysPrune = $Value;
	}
	if ($Name eq "topic") {
			$topic = $Value;
	}

	if ($Name eq "Email") {
			$Email = $Value;
			$Email =~tr/A-Z/a-z/; 
	}
	if ($Name eq "URL") {
			$URL = &CleanThis($Value);
			$URL = &PipeCleaner($URL);
	}
	if ($Name eq "Permissions") {
			$Permissions = $Value;
	}
	if ($Name eq "Occupation") {
			$Occupation = &CleanThis($Value);
			$Occupation = &PipeCleaner($Occupation);
	}
	if ($Name eq "Location") {
			$Location = &CleanThis($Value);
			$Location = &PipeCleaner($Location);
	}
	if ($Name eq "TotalPosts") {
		$TotalPosts = $Value;
	}
	if ($Name eq "Status") {
		$Status = $Value;
	}
	if ($Name eq "Interests") {
			$Interests = &CleanThis($Value);
			$Interests = &PipeCleaner($Value);
	}
		if ($Name eq "sendto") {
			$sendto = $Value;
	}
}  # end FOREACH $row

if ($VariablesPath eq "") {
	$VariablesPath = $CGIPath;
}

#set Random Number- for use in Banner Ads, etc.
$RandomNumber = &MakeRandomNumber;
$RandomNumber2 = $RandomNumber + 100074;

if ($Header ne "") {
$Header =~ s/UBBrandomX/$RandomNumber/isg;
$Header =~ s/UBBrandomY/$RandomNumber2/isg;
}
if ($Footer ne "") {
$Footer =~ s/UBBrandomX/$RandomNumber/isg;
$Footer =~ s/UBBrandomY/$RandomNumber2/isg;
}


#adjust bgcolor variables
if ($BGColor ne ""){
$BGColor = qq(bgcolor="$BGColor");
}
if ($AltColumnColor1 ne ""){
$AltColumnColor1 = qq(bgcolor="$AltColumnColor1");
}
if ($AltColumnColor2 ne ""){
$AltColumnColor2 = qq(bgcolor="$AltColumnColor2");
}
if ($CategoryStripColor ne ""){
$CategoryStripColor = qq(bgcolor="$CategoryStripColor");
}
if ($TableColorStrip ne ""){
$TableColorStrip = qq(bgcolor="$TableColorStrip");
}
if ($PageBackground ne ""){
$PageBackground = qq(background="$NonCGIURL/$PageBackground");
}
if ($TableBorderColor ne ""){
$TableWidth2 = "100%";
$BorderTop = qq(<table border=0 cellpadding=0 cellspacing=0 width="$TableWidth"><TR><td bgcolor="$TableBorderColor">);
$BorderBottom = qq(</td></tr></table> );
}  else {
$TableWidth2 = $TableWidth;
$BorderTop = "";
$BorderBottom = "";
}

$ReplyMessage = $in{'ReplyMessage'};
$Message = $in{'Message'};

		$SubjectCoded = &HTMLIFY($TopicSubject);
		$SubjectCoded =~ tr/ /+/;

if (@in == 0) {
&Intro;
exit;
}
 
if ($in{'action'} eq "intro") {
 &Intro;
 exit;
 }  

if ($in{'action'} eq "agree") {
 &Agree;
 } 
 if ($in{'action'} eq "email") {
 &DoEmail($in{'ToWhom'});
 }  

  
if ($in{'action'} eq "register") {
   &Register;
 }  
 
if ($in{'action'} eq "rules") {
 &Rules;
 exit;
 }  
 
if ($in{'action'} eq "lostpw") {
	if ($UseEmail eq "ON") {
 &LostPW;
 }  else {
 &StandardHTML("この機能は、現在使用できません。「戻る」をクリックしてフォーラムに戻ってください。");
 }
 }  
 

 ## INTRO PAGE SUBROUTINES ####
 
sub Intro {
&get_cookie;  #retrieves all current cookies

#check for Digests
if (-e "$NonCGIPath/digests/digestsummary.cgi") {
	$DigestWording = qq(<P><A HREF="$CGIURL/ubbmail.cgi?action=subscribe">Subscribe to a Digest</A>);
}

if ($cookie{DaysPrune}) {
$DaysPrune = "$cookie{DaysPrune}";
}  else {
$DaysPrune = $DaysPruneDefault;
}

if ($BypassCookie eq "true") {
	$NoNewLogin = "true";
	$SessionLogin = "$cookie{sessionLogin}";
	
}  else {
	$NoNewLogin = "false";
	$SessionLogin = "$cookie{lastLogin}";
	$SessionLoginDT = "$cookie{LastLoginDT}";
}
&decodeURL($SessionLoginDT);

	&GetDateTime;

if ($cookie{LastLoginDT}) {
$Legend = "<img src=\"$NonCGIURL/on.gif\" width=22 height=15 border=0 alt=\"On\"><FONT SIZE=1>&nbsp;&nbsp; 前回利用日以降の新しい投稿があります</FONT><BR><img src=\"$NonCGIURL/off.gif\" width=22 height=15 border=0 alt=\"off\"><FONT SIZE=1>&nbsp;&nbsp;  前回利用日以降の新しい投稿はありません</FONT>";

if ($cookie{sessionLoginDT}) {
$UseDT = $cookie{sessionLoginDT};
}  else {
$UseDT = $cookie{LastLoginDT};
}

#split the d/t string
($StoredDate, $StoredTime, $TheAMPM) = split(/ /, $UseDT);
my $FormatDate = "";
my $FormatTime = "";

#format date-----------------------------------

if ($DateFormat eq "US") {
	$FormatDate = $StoredDate;
}
elsif ($DateFormat eq "Euro") {
	$FormatDate = &DateFormat("$StoredDate", "Euro");
}
elsif ($DateFormat eq "USX") {
	$FormatDate = &DateFormat("$StoredDate", "USExpanded");
} else {
	$FormatDate = &DateFormat("$StoredDate", "EuroExpanded");
}

#format time--------------------------------
if ($TimeFormat eq "AMPM") {
	$FormatTime = "$StoredTime $TheAMPM";
} else {
	($gethr, $getmin) = split(/:/, $StoredTime);
	&ConvertTo24Hour;
	$FormatTime = "$gethr:$getmin";
}

#combine date/time line
$LastLoginTime = ("前回の利用日: $FormatDate $FormatTime");
}  else {
$LastLoginTime = "";
}

## check other display options--
if ($DisplayMemberTotal eq "true") {
&GetMemberListArray;
my $TotalMembers = @members;
$MemberLine = "登録メンバー: <B>$TotalMembers</B>";
}
else
{
$MemberLine = ""
}

if ($category ne "") {
	$CategoriesOnly = "false";
}

if ($CategoriesOnly ne "true")  {
# check Forum Total option--
if ($ForumTotalOption eq "Topics") {
$TopRow = qq(<td NOWRAP valign=bottom align=center>
<B><FONT SIZE="1" FACE="$FontFace" COLOR="$TableStripTextColor">トピック</FONT></B>
</td>);
$TheColSpan = "5";
}
elsif ($ForumTotalOption eq "Posts") {
$TopRow = qq(<td NOWRAP valign=bottom align=center>
<b><FONT SIZE="2" FACE="$FontFace" COLOR="$TableStripTextColor">投稿</FONT></B>
</td>);
$TheColSpan = "5";
}  else {
$TopRow = qq(<td NOWRAP valign=bottom align=center><b>
<FONT SIZE="1" FACE="$FontFace" COLOR="$TableStripTextColor">トピック</FONT></B>
</td><td NOWRAP valign=bottom align=center><B>
<FONT SIZE="2" FACE="$FontFace" COLOR="$TableStripTextColor">投稿</FONT></B>
</td>);
$TheColSpan = "6";
}

&ForumsTopHTML;
&ForumTableTop1;

&get_cookie;  #retrieves all current cookies
@forums = &OpenForumsFile;

if ($category ne "") {
for $forumline(@forums) {
	@forumfacts = split(/\|/, $forumline);
	if ($forumfacts[0] eq "$category") {
		push(@sortforums, $forumline);
	}
	
}

}  else {

if ($CategoryView eq "yes") {
@sortforums = sort(@forums); #sorts forums by category
}  else  {
@sortforums = @forums;
} #end if/else categoryview eq yes
}  #end category limitation check

$forumcategory = "";

for (@sortforums) {
@thisforuminfo = split(/\|/, $_);
chomp($thisforuminfo[8]);
$x = "$thisforuminfo[8]";

if ($thisforuminfo[6] eq "private") {
	$ExactPath = "Forum$x/private-$thisforuminfo[7]";
}  else {
	$ExactPath = "Forum$x";
}

$GetHour = "";
$GetMinute = "";
$MilHour = "";
$TheDate = "";
$LatestTime = "";


if ($CategoryView eq "yes") {
$thisforumcategory = &decodeURL($thisforuminfo[0]);
if ($in{'category'} eq "") {
if ($thisforumcategory ne "$forumcategory") {
print<<CategoryHeader;
<TR $CategoryStripColor><TD colspan=$TheColSpan>
<FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor"><B> $thisforumcategory</B></FONT>
</td></tr>
CategoryHeader
}
}
$forumcategory = "$thisforumcategory";
} # end if categoryview eq yes

## Get Forum Data from lastnumber.file(s)
open (FORUMDATA, "$ForumsPath/$ExactPath/lastnumber.file"); 
 my @data = <FORUMDATA>;
close (FORUMDATA);
$TotalTopics = $data[1];
chomp($TotalTopics);
$TotalPosts = $data[2];
chomp($TotalPosts);

if ($TotalTopics eq "") {
	$TotalTopics = "0";
	}
	
if ($TotalPosts eq "") {
	$TotalPosts = "0";
	}

if ($TotalTopics > 0) {
#open lasttime.file for forum
open (LTime, "$ForumsPath/$ExactPath/lasttime.file"); 
    @lasttime = <LTime>;
close (LTime);

$LastDate = $lasttime[0];
$LastTime = $lasttime[1];
chomp($LastDate);
chomp($LastTime);

#split time
($GetHour, $GetMinute) = split(/:/, $LastTime);
($GetMinute, $AMpm) = split(/ /, $GetMinute);
chomp($AMpm);
($GetMonth, $GetDate, $GetYear) = split(/-/, $LastDate);

	&MilitaryTime2;
	$MilTime = "$MilHour:$GetMinute";

if ($TimeFormat eq "24HR") {
	$LatestTime = "$MilTime";
} else {
	$LatestTime = "$LastTime";
}
	
	
if ($DateFormat eq "US") {
	$TheDate = $LastDate;
	$DateWording = "すべての日付は MM-DD-YY 形式です。";
	$Breaker = "";
	$DateSize = "2";
}
elsif ($DateFormat eq "Euro") {
	$TheDate = &DateFormat("$LastDate", "Euro");
	$DateWording = "すべての日付は DD-MM-YY 形式です。";
	$Breaker = "";
	$DateSize = "2";
}
elsif ($DateFormat eq "USX") {
	$TheDate = &DateFormat("$LastDate", "USExpanded");
	$Breaker = "<BR>";
	$DateSize = "1";
} else {
	$TheDate = &DateFormat("$LastDate", "EuroExpanded");
	$Breaker ="<BR>";
		$DateSize = "1";
}
	
}  else {
$GetMonth = "";
$GetDate= "";
$GetYear = "";
$LatestTime = "";
$TheDate = "";
}

$ForumName = $thisforuminfo[1];
$Moderator = ("Forum" . "$x" . "Moderator");
$Moderator = $$Moderator;
$ForumDesc = $thisforuminfo[2];
$OnOff = $thisforuminfo[3];
chomp($OnOff);

$ForumName =~ s/\/\\//g;
$ForumCoded = &HTMLIFY($ForumName);
$ForumCoded =~ tr/ /+/;
$ForumDesc =~ s/&quot;/"/g;
$ForumName = &UNHTMLIFY($ForumName);
###
		
if ($ForumDescriptions eq "no") {
	$ForumDesc = "";
}

if ($GetMonth ne "") {

# Compare Last Login Time to Last Post Time.. 

$LPMonth = $GetMonth;

if ($GetYear > 96)  {
	$JYear = ("19" . "$GetYear");
	} else  {
		$JYear = ("20" . "$GetYear");
	}
$LastPostJulian = &jday($LPMonth, $GetDate, $JYear);

$LPTime = ("$MilHour" . "$GetMinute");
$LastPostJulian = ($LastPostJulian + ($LPTime * 0.0001));

if ($LastPostJulian > $SessionLogin) {
	$NewStuffIcon = "<IMG SRC=\"$NonCGIURL/on.gif\" BORDER=0>";
} else {
	$NewStuffIcon = "<IMG SRC=\"$NonCGIURL/off.gif\" BORDER=0>";
}


}  else {
	$NewStuffIcon = "<IMG SRC=\"$NonCGIURL/off.gif\" BORDER=0>";

} # end if/else month ne ""


unless ($cookie{lastLogin}) {
	$NewStuffIcon = "";
	$Legend = "";
}



# check Forum Total option--
if ($ForumTotalOption eq "Topics") {
$GutsRow = qq(<td $AltColumnColor2 align=center valign=top NOWRAP>
<FONT SIZE='3' FACE="$FontFace">$TotalTopics</FONT>
</td><td $AltColumnColor1 NOWRAP valign=top align=center>
<FONT SIZE="$DateSize" FACE="$FontFace">$TheDate $Breaker<FONT COLOR="$TimeColor" SIZE="$DateSize" FACE="$FontFace">$LatestTime</FONT>
</td><td $AltColumnColor2 valign=top>
<FONT SIZE='2' FACE="$FontFace">$Moderator</FONT></td></tr>);
}
elsif ($ForumTotalOption eq "Posts") {
$GutsRow = qq(<td $AltColumnColor2 align=center valign=top NOWRAP>
<FONT SIZE='3' FACE="$FontFace">$TotalPosts</FONT>
</td><td $AltColumnColor1 NOWRAP valign=top align=center>
<FONT SIZE="$DateSize" FACE="$FontFace">$TheDate $Breaker<FONT COLOR="$TimeColor" SIZE="$DateSize" FACE="$FontFace">$LatestTime</FONT>
</td><td $AltColumnColor2 valign=top>
<FONT SIZE='2' FACE="$FontFace">$Moderator</FONT></td></tr>);
}  else {
$GutsRow = qq(<td $AltColumnColor2 align=center valign=top NOWRAP>
<FONT SIZE='3' FACE="$FontFace">$TotalTopics</FONT>
</td><td $AltColumnColor1 align=center valign=top NOWRAP>
<FONT SIZE='3' FACE="$FontFace">$TotalPosts</FONT>
</td><td $AltColumnColor2 NOWRAP valign=top align=center>
<FONT SIZE="$DateSize" FACE="$FontFace">$TheDate $Breaker<FONT COLOR="$TimeColor" SIZE="$DateSize" FACE="$FontFace">$LatestTime</FONT>
</td>
<td $AltColumnColor1 valign=top>
<FONT SIZE='2' FACE="$FontFace">$Moderator</FONT></td></tr>);
}

if ($OnOff eq "On") {
&ForumsGutsHTML;
} ## End IF ONOFF Conditional
}
&ForumsBottomHTML;
}  else {  ## CATEGORIES ONLY VIEW

&ForumsTopHTML;
&ForumTableTop2;

#open Forums variable file
@theforums = &OpenForumsFile;
@forums = sort(@theforums);

my $ThisCategory = "";
my $ThatCategory = "";
my $CatCount = 1;
my $CategoryColor = "$AltColumnColor1";

foreach $one(@forums) {
@forumarray = split(/\|/, $one);
$ThisCategory = $forumarray[0];

if ($forumarray[3] eq "On") {

if ($ThisCategory eq "$ThatCategory")  {
	$CatCount++;
} else {

unless ($ThatCategory eq "") {

	if ($CategoryColor eq "$AltColumnColor1") {
		$CategoryColor = "$AltColumnColor2";
	}  else {
		$CategoryColor = "$AltColumnColor1";
	}
		$ThatCategory =~ s/\/\\//g;
		$ThatCategoryCoded = &HTMLIFY($ThatCategory);
		$ThatCategoryCoded =~ tr/ /+/;

print<<CatInfo;
<TR $CategoryColor><TD><FONT SIZE="$TextSize" FACE="$FontFace"><A HREF="Ultimate.cgi?action=intro&category=$ThatCategoryCoded&BypassCookie=true">$ThatCategory</A></font></TD><TD align=center><FONT SIZE="$TextSize" FACE="$FontFace">$CatCount</font></TD></tr>
CatInfo
$CatCount = 1;
$FirstTwo = "";
}
}
$ThatCategory = $ThisCategory;


} #if forum is ON
}
		$ThatCategory =~ s/\/\\//g;
		$ThatCategoryCoded = &HTMLIFY($ThatCategory);
		$ThatCategoryCoded =~ tr/ /+/;
		
	if ($CategoryColor eq "$AltColumnColor1") {
		$CategoryColor = "$AltColumnColor2";
	}  else {
		$CategoryColor = "$AltColumnColor1";
	}
	
#print last set
print<<CatInfo;
<TR $CategoryColor><TD><FONT SIZE="$TextSize" FACE="$FontFace"><A HREF="Ultimate.cgi?action=intro&category=$ThatCategoryCoded&BypassCookie=true">$ThatCategory</a></font></TD><TD align=center><FONT SIZE="$TextSize" FACE="$FontFace">$CatCount</FONT></TD></tr>
CatInfo

&ForumsBottom2HTML;
} #end if/else categories only view



}  #END INTRO SR ###


sub ForumsTopHTML {
print <<INTROHTML;
<HTML>
<HEAD><TITLE>$BBName - 情報フォーラム</title>
<SCRIPT LANGUAGE="JavaScript">
<!-- HIDE
var noNewLogin = "$NoNewLogin";
var dc = document.cookie;
var sessionLogin = escape("$SessionLogin");
var sessionLoginDT = escape("$SessionLoginDT");

if (document.cookie) {
var DaysPrune = getCookie("DaysPrune");
	if (DaysPrune == null) {
		var DaysPrune = "$DaysPruneDefault";
	}
} else {
var DaysPrune = "$DaysPruneDefault";
}

expireDate = new Date;
if (expireDate.getYear() < 100) {
expireDate.setYear(expireDate.getYear() + 1900 + 1);
} else {
expireDate.setYear(expireDate.getYear()+1);
}

if (noNewLogin != "true") {

var CookieLogin = escape("$LastLoginJulian");
var CookieLoginDT = escape("$LastLoginDT");

	  document.cookie = "lastLogin=" + CookieLogin + ";expires=" + expireDate.toGMTString() + ";";
  document.cookie = "LastLoginDT=" + CookieLoginDT + ";expires=" + expireDate.toGMTString() + ";";
	  document.cookie = "sessionLogin=" + sessionLogin + ";";
document.cookie = "sessionLoginDT=" + sessionLoginDT + ";";
}

function getCookie(name){
var cname = name + "=";               
var dc = document.cookie;
if (dc.length > 0) {              
    begin = dc.indexOf(cname);
	 if (begin != -1) {           
        begin += cname.length;
		end = dc.indexOf(";", begin);
            if (end == -1) end = dc.length;
            return unescape(dc.substring(begin, end));        }
}
return null;
}
// STOP HIDING FROM OTHER BROWSERS -->
</SCRIPT>
</head>
 <BODY $BGColor  $PageBackground text="$TextColor" link="$LinkColor" alink="$ActiveLinkColor" vlink="$VisitedLinkColor">
<FONT FACE="$FontFace" SIZE="$TextSize">
$Header
<center>
<table border=0 width=$TableWidth>
<tr>

<td>
<CENTER>
<IMG SRC=../images/Caption/jyoho.gif><BR>
<br><FONT SIZE="2" FACE="$FontFace">
<A HREF="$CGIURL/ubbmisc.cgi?action=editbio&Browser=$Browser&DaysPrune=$DaysPrune&LastLogin=$in{'LastLogin'}"><ACRONYM TITLE="プロファイルの編集はここをクリック。"><B>プロファイル</B></ACRONYM></A> | <A HREF="$CGIURL/Ultimate.cgi?action=agree"><ACRONYM TITLE="登録は無料!"><B>登録</B></ACRONYM></A> | <A HREF="$CGIURL/ubbmisc.cgi?action=setprefs"><ACRONYM TITLE="設定をセットする。"><B>設定</B></ACRONYM></A> | <A HREF="$NonCGIURL/faq.html" target=_blank><ACRONYM TITLE="よくある質問。"><B>利用方法</B></ACRONYM></A> | <A HREF="$CGIURL/search.cgi?action=intro"><ACRONYM TITLE="キーワード、日付、名前で検索。"><B>検索</B></ACRONYM></A>
$DigestWording
</FONT>
</CENTER>
</td></TR>
</table>
INTROHTML
}  ## END FORUMS TOP HTML


sub ForumTableTop1 {

if ($BypassCookie eq "true") {
	$LastLoginTime = "";
}

if ($category ne "") {
	$CategoryLine = qq(<b><A HREF="Ultimate.cgi?action=intro&BypassCookie=true">すべてのフォーラム・カテゴリを\表\示</A></B>);
	$ForumHeader = "カテゴリ: $category";
	$LastLoginTime = $MemberLine;
} else {
	$ForumHeader = "フォーラム";
	$CategoryLine = $MemberLine;
}

print<<TableTop1;
<table cellpadding=0 border=0 width="$TableWidth">
<TR>
<td valign=bottom align=left>
<FONT SIZE="1" FACE="$FontFace"></font>
</td>
<td valign=bottom align=right><FONT SIZE="1" FACE="$FontFace">$CategoryLine</font></td></tr>
</table>

$BorderTop

<table cellpadding=4 cellspacing=1 border=0 width="$TableWidth2">
<tr $TableColorStrip>
<TD>&nbsp;</TD>
<td valign=bottom>
<FONT SIZE="2" FACE="$FontFace" COLOR="$TableStripTextColor"><B>$ForumHeader</B></FONT>
</td>
$TopRow
<td NOWRAP valign=bottom align=center>
<FONT SIZE="2" FACE="$FontFace" COLOR="$TableStripTextColor"><B>前回の投稿</B></FONT>
</td>
<td NOWRAP valign=bottom>
<FONT SIZE="2" FACE="$FontFace" COLOR="$TableStripTextColor"><B>管理</B><BR></FONT>
</td></tr>
TableTop1
}

sub ForumTableTop2 {
print<<TableTop2;
<table border=0 cellpadding=3>
<TR>
<td colspan=2 align=left>
<FONT SIZE="1" FACE="$FontFace">$LastLoginTime</font>
</td>
</tr>
<tr $TableColorStrip>
<td NOWRAP valign=bottom>
<FONT SIZE="2" FACE="$FontFace" COLOR="$TableStripTextColor"><B>カテゴリ</B></FONT>
</td>
<td valign=bottom align=center>
<FONT SIZE="2" FACE="$FontFace" COLOR="$TableStripTextColor"><B>フォーラム</B></FONT>
</td>
</tr>
TableTop2
}

sub ForumsGutsHTML {
print <<ForumSummary;
<TR>
<TD $BGColor valign=top>$NewStuffIcon</td>
<TD $AltColumnColor1 valign=top><FONT SIZE="3" FACE="$FontFace"><B>
<A HREF="$CGIURL/forumdisplay.cgi?action=topics&forum=$ForumCoded&number=$x&DaysPrune=$DaysPrune&LastLogin=$LastLogin">$ForumName</A></B></FONT><BR>
<FONT SIZE="2" FACE="$FontFace">
$ForumDesc
</FONT>
</td>
$GutsRow
ForumSummary
}  ## END FORUMS GUTS HTML

sub ForumsBottomHTML {
print <<BOTTOMhtml;
</table>
$BorderBottom

</center>
<P>
<FONT SIZE="1" FACE="$FontFace">すべての時間は $TimeZone です。 $DateWording</FONT>
<P>
$Legend
<P><center></font>
BOTTOMhtml

&PageBottomHTML;
}  ## END Forums Bottom HTML subroutine

sub ForumsBottom2HTML {
print <<BOTTOMhtml;
</table>
</center>
<P><center></font>
BOTTOMhtml

&PageBottomHTML;
}  ## END Forums Bottom2 HTML subroutine

### END Intro Page Subroutines ####
 
sub LostPW {
&StandardTopHTML;
print<<LostPassword;
<br><BR><B>
<FONT SIZE="$TextSize" FACE="$FontFace">
以下に入力した電子メールアドレスに、ユーザー名とパスワード情報をお送りします。
<P>
<center>
<FORM ACTION="ubbmisc.cgi" METHOD="POST">あなたの電子メールアドレス: &nbsp;&nbsp;&nbsp;
<INPUT TYPE="TEXT" NAME="sendto" SIZE=35 MAXLENGTH=90>
<P>
<input type="Hidden" name="action" value="pwrequest">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="ユーザー名/パスワードをリクエスト">
</FORM>
</center>
</B>
</FONT>
<p>
</BODY></HTML>
LostPassword
}


sub Agree {
print <<Agreement;
<HTML>
 <BODY $BGColor  $PageBackground text="$TextColor" link="$LinkColor" alink="$ActiveLinkColor" vlink="$VisitedLinkColor">
<FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">
$Header
<table border=0><TR><TD>
</TD><TD align=center><FONT SIZE="+1" FACE="$FontFace" COLOR="$LinkColor"><BR><BR><B>$BBName 規則</B></FONT></td></tr></table> 
<br>
<FONT SIZE="$TextSize" FACE="$FontFace">
掲示板にメッセージを投稿したり、「無料日本語サポート」クーポンを利用するには、最初にメンバー登録が必要です。メンバー登録は無料です。以下の掲示板の利用規定に同意後、[同意] ボタンをクリックして登録してください。同意できない場合は、[キャンセル] ボタンをクリックしてください。
<HR width=90%>
<CENTER><B><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$BBName 規則とポリシー</B></CENTER>
<P>
<Blockquote>
$BBRules</FONT>
</blockquote>
<HR width=90%><CENTER>
<FORM ACTION="Ultimate.cgi" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="action" VALUE="register">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="同意">
</FORM>
<FORM ACTION="Ultimate.cgi" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="action" VALUE="intro">
<INPUT TYPE="HIDDEN" NAME="BypassCookie" VALUE="true">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="キャンセル">
</FORM><BR><BR><BR><BR>
$Footer
</CENTER>
</FONT>
<p></font>
</BODY></HTML>
Agreement
}

sub Register {
if (($UseEmail eq "ON") && ($EmailVerify eq "ON")) {
$EmailVerifyHTML = "<tr $AltColumnColor2><TD  colspan=2><FONT SIZE=\"$TextSize\" FACE=\"$FontFace\" COLOR=\"$LinkColor\">注意：登録パスワードは、入力された電子メールアドレスに送付します。電子メールアドレスが間違っていると、掲示板にアクセスするパスワードを送付できませんのでご注意ください。</FONT></td></tr>";

$PasswordWording1 = "ユーザー名は、25文字以内の半角英数字で入力してください。";
$PasswordWording2 = "";

} else {

$EmailVerifyHTML = qq(<TR $AltColumnColor2><TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>パスワード*</B></FONT></TD><TD><INPUT TYPE="PASSWORD" NAME="Password" VALUE="" SIZE=13 MAXLENGTH=13> </TD></TR>
<TR $AltColumnColor2><TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>パスワードを再入力*</B></FONT></TD><TD><INPUT TYPE="PASSWORD" NAME="PasswordConfirm" VALUE="" SIZE=13 MAXLENGTH=13></TD></tr>);

$PasswordWording1 = "ユーザー名は、25文字以内、パスワードは13文字以内の半角英数字を入力してください。パスワードは、\"May\"と\"may\" のように、大文字と小文字を区別しますのでご注意ください。";

$PasswordWording2 = "パスワードは、送付する際に、暗号化されませんので、悪用される恐れのあるＩＤ番号などをパスワードに使用しないでください。";
}

if ($DaysPruneDefault == 1) {
	$Select1 = "SELECTED";
}
elsif ($DaysPruneDefault == 2) {
	$Select2 = "SELECTED";
}
elsif ($DaysPruneDefault == 5) {
	$Select5 = "SELECTED";
}
elsif ($DaysPruneDefault == 10) {
	$Select10 = "SELECTED";
}
elsif ($DaysPruneDefault == 20) {
	$Select20 = "SELECTED";
}
elsif ($DaysPruneDefault == 30) {
	$Select30 = "SELECTED";
}
elsif ($DaysPruneDeafult == 45) {
	$Select45 = "SELECTED";
}
elsif ($DaysPruneDefault == 60) {
	$Select60 = "SELECTED";
}
elsif ($DaysPruneDefault == 75) {
	$Select75 = "SELECTED";
}
elsif ($DaysPruneDefault == 100) {
	$Select100 = "SELECTED";
}  else {
	$Select365 = "SELECTED";
}
if ($AllowSignature eq "YES") {
		$SigStatus = "enabled";
	}	else {
		$SigStatus = "not enabled";
	}

print<<RegHTML;
<HTML>
<HEAD>
	<TITLE>$BBName 登録</TITLE>
</HEAD>
 <BODY $BGColor  $PageBackground text="$TextColor" link="$LinkColor" alink="$ActiveLinkColor" vlink="$VisitedLinkColor">
<FONT SIZE="3" FACE="$FontFace" COLOR="$TextColor">
$Header

<FONT SIZE="3" FACE="$FontFace" COLOR="$LinkColor"><B>
<BR><BR>メンバー登録
</B></FONT>
<P><center>
$BorderTop
<table border=0 cellspacing=1 cellpadding=4 width="$TableWidth2">
<tr>
<td $BGColor colspan=2>
<FONT SIZE="$TextSize" FACE="$FontFace">
掲示板にメッセージを投稿したり、「無料日本語サポート」クーポンを利用するには、最初にメンバー登録が必要です。 
 
<BR><BR>
注意: このページに入力した必要項目以外の情報と名前は、掲示板の利用者も見ることができますので、オプションで入力してください。必要項目には、*印が付いています。電子メールアドレスを表\示したくない場合は、このページ下部の「投稿するときに、あなたの電子メールアドレスも表\示しますか？」で「いいえ」をクリックしてください。<BR>
</td></tr>
<tr $AltColumnColor1>
<FORM NAME="Register" METHOD=POST ACTION="ubbmisc.cgi">

<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>ユーザー名* （25文字以内の半角英数字、ニックネームも可）</B></FONT></TD>
<TD><INPUT TYPE="TEXT" NAME="UserName" VALUE="" SIZE=25 MAXLENGTH=25>
 </TD>
</TR>
$EmailVerifyHTML
<TR $AltColumnColor1>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>電子メール・アドレス*</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Email" VALUE="" SIZE=30 MAXLENGTH=50>
 </TD>
</TR>
<TR $AltColumnColor2>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>性別*</B></FONT></TD>
	<TD><CENTER><FONT SIZE="$TextSize" FACE="$FontFace"><INPUT TYPE="RADIO" NAME="SexType" VALUE="M" CHECKED>
男性 <INPUT TYPE="RADIO" NAME="SexType" VALUE="F"> 女性</FONT>
</CENTER> </TD></TR>
<TR $AltColumnColor1>
        <TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>未・既婚*</B></FONT></TD>
        <TD><CENTER><FONT SIZE="$TextSize" FACE="$FontFace"><INPUT TYPE="RADIO"
NAME="MaritalType" VALUE="M" CHECKED>
既婚 <INPUT TYPE="RADIO" NAME="MaritalType" VALUE="S"> 未婚</FONT>
</CENTER> </TD></TR>
<TR $AltColumnColor2>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>年齢*</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Age" VALUE="" SIZE=7 MAXLENGTH=4>
 </TD></tr>
<TR $AltColumnColor1>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>都道府県</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Location" VALUE="" SIZE=30 MAXLENGTH=50>
 </TD></tr>

<TR $AltColumnColor2>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>職業</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Occupation" VALUE="" SIZE=30 MAXLENGTH=50>
 </TD>
</TR>

<TR $AltColumnColor1>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>ホームページ</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="URL" VALUE="http://" SIZE=30 MAXLENGTH=100>
 </TD></tr>
<TR $AltColumnColor2>
	<TD ><FONT SIZE="$TextSize" FACE="$FontFace"><B>趣味</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="Interests" VALUE="" SIZE=30 MAXLENGTH=200>
 </TD></tr>
 
<TR $AltColumnColor1>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>ICQ 番号</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="ICQnum" VALUE="" SIZE=7 MAXLENGTH=20>
 </TD></tr>
 

 <TR $AltColumnColor2>
	<TD valign=top><FONT SIZE="$TextSize" FACE="$FontFace"><B>署名</B></font><BR><FONT SIZE="2" FACE="$FontFace">オプションで投稿の最後に署名を入力できます。</B></FONT></TD>
	<TD><TEXTAREA NAME="Signature" ROWS=3 COLS=25 WRAP=PHYSICAL>
</TEXTAREA>
 </TD></tr>
 
 <TR $AltColumnColor1>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>掲示板の管理者やモデレーターが、あなたに電子メールをお送りすることはできますか？</B></FONT></TD>
	<TD><CENTER><FONT SIZE="$TextSize" FACE="$FontFace"><B><INPUT TYPE="RADIO" NAME="AllowMassMail" VALUE="yes" CHECKED> はい  &nbsp;&nbsp;&nbsp;<INPUT TYPE="RADIO" NAME="AllowMassMail" VALUE="no"> いいえ</B></FONT></CENTER>
 </TD></tr>
 


<tr $AltColumnColor2>
<TD valign=top><FONT SIZE="$TextSize" FACE="$FontFace"><B>ブラウザのメモリに、ユーザー名とパスワードを一年間保存します（利用ごとに、ユーザー名とパスワードを入力する手間が省けます。）</B></FONT></TD>
<TD valign=top><CENTER><FONT SIZE="$TextSize" FACE="$FontFace"><INPUT TYPE="RADIO" NAME="NameStorage" VALUE="yes" CHECKED>
 はい <INPUT TYPE="RADIO" NAME="NameStorage" VALUE="no"> いいえ</font>
</CENTER> </TD>
</TR>

<TR $AltColumnColor1>
	<TD valign=top><FONT SIZE="$TextSize" FACE="$FontFace"><B>デフォルトのトピック\表\示:</B></FONT></TD>
	<TD valign=top><CENTER><SELECT NAME="DaysPrune">
	<OPTION value="1" $Select1>昨日からのトピックを\表\示
	<OPTION value="2" $Select2>2日前からのトピックを\表\示
	<OPTION value="5" $Select5>5日前からのトピックを\表\示
	<OPTION value="10" $Select10>10日前からのトピックを\表\示
	<OPTION value="20" $Select20>20日前からのトピックを\表\示
	<OPTION value="30" $Select30>30日前からのトピックを\表\示
	<OPTION value="45" $Select45>45日前からのトピックを\表\示
	<OPTION value="60" $Select60>60日前からのトピックを\表\示
	<OPTION value="75" $Select75>75日前からのトピックを\表\示
	<OPTION value="100" $Select100>100日前からのトピックを\表\示
	<OPTION value="365" $Select365>1年前からのトピックを\表\示
	</SELECT>
</CENTER>
	
 </TD></tr>
<tr $AltColumnColor2>
<TD valign=top><FONT SIZE="$TextSize" FACE="$FontFace"><B>投稿するときに、あなたの電子メールアドレスも\表\示しますか？</B></FONT></TD>
<TD valign=top><CENTER><FONT SIZE="$TextSize" FACE="$FontFace"><INPUT TYPE="RADIO" NAME="EmailView" VALUE="yes" CHECKED>
 はい <INPUT TYPE="RADIO" NAME="EmailView" VALUE="no"> いいえ</font>
</CENTER> </TD>
</TR>
</TABLE>
$BorderBottom
<BR><BR>

<INPUT TYPE="HIDDEN" NAME="action" VALUE="RegSubmit">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="送る">
<INPUT TYPE="RESET" NAME="Reset" VALUE="リセット">
</FORM>
<BR><BR>
$Footer</center><BR></font></BODY>
</HTML>
RegHTML
}  ## END Register SR ##