#! /usr/local/bin/perl

#
#	くずはすくりぷと Final Beta #3 (Preview Release 2)
#	 (個人用環境設定画面用関数群)
#


###############################################################################
#  環境設定画面表示
###############################################################################

sub prtcustom {
	
	my ( @follow, @reload );
	$follow[$followwin] = 'checked';
	$reload[$reltype] = 'checked';
	
	print <<EOF;
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>$bbstitle 個人用環境設定</TITLE>
</HEAD>
$body
<H3>$bbstitle 個人用環境設定</H3><BR>
<FORM method="post" action="$cgiurl">
  <INPUT type="hidden" name="mode" value="customset">
  <UL>
    <LI><STRONG>表\示設定</STRONG><BR> <BR>
    <TABLE border="0" cellspacing="0" cellpadding="0">
      <TR>
        <TD>文字色　　　</TD>
        <TD><INPUT type="text" name="textc" size="7" value="$textc"></TD>
        <TD>　背景色</TD>
        <TD><input type="text" name="bgc" size="7" value="$bgc"></TD>
      </TR>
      <TR>
        <TD>リンク色</TD>
        <TD><input type="text" name="linkc" size="7" value="$linkc"></TD>
        <TD>　訪問済リンク色 </td><td><input type="text" name="vlinkc" size="7" value="$vlinkc"></TD>
      </TR>
      <TR>
        <TD>引用行文字色</TD>
        <TD><INPUT type="text" name="quotc" size="7" value="$quotc"></TD>
    </TABLE>
  </UL>
  <UL>
    <LI><STRONG>０件リロード時のメッセージの表\示方法</STRONG><BR> <BR>
    <INPUT type="radio" name="reload" value="0" $reload[0]>標準（投稿時刻降順表\示）<BR>
    <INPUT type="radio" name="reload" value="1" $reload[1]>反転（投稿時刻昇順表\示）<BR>
  </UL>
  <UL>
    <LI><STRONG>画像自動展開の初期値</STRONG><BR> <BR>
    画像自動展開 <INPUT type="checkbox" name="autoimg" value="checked" $FORM{'autoimg'}> <BR>
  </UL>
  <BR>
  「登録」を押した後に表\示されるURLをブックマークに登録しましょう。<BR>
  上記の設定で掲示板を訪問することができます。<BR> <BR>
  <INPUT type="hidden" name="autolink" value="$FORM{'autolink'}">
  <INPUT type="submit" name="btnname" value="登録">
  <INPUT type="reset" name="btnname" value="元に戻す">
  <INPUT type="submit" name="btnname" value="規定値に戻す">
</FORM>
</BODY>
</HTML>
EOF
}

#  <UL>
#    <LI><STRONG>フォロー画面の表\示方法</STRONG><BR> <BR>
#    <INPUT type="radio" name="followwin" value="0" $follow[0]>新規ウィンドウを開いて表\示<BR>
#    <INPUT type="radio" name="followwin" value="1" $follow[1]>新規ウィンドウを開かずに表\示<BR>
#  </UL>

###############################################################################
#  環境設定結果画面表示
###############################################################################

sub setcustom {
	
	my ( $i, $custom );
	
	if ( $FORM{'btnname'} ne '規定値に戻す' ) {
		$i = $FORM{'followwin'} * 2 + $FORM{'reload'};
		$custom = "?autolink=$FORM{'autolink'}&autoimg=$FORM{'autoimg'}&custom=$FORM{'textc'}$FORM{'bgc'}$FORM{'linkc'}$FORM{'vlinkc'}$FORM{'quotc'}$i";
	}
	
	print "Location: $cgiurl$custom\n\n";
}


1;


__END__
