#! /usr/local/bin/perl

#
#	͂Ղ Final Beta #3 (Preview Release 2)
#	 (lpݒʗp֐Q)
#


###############################################################################
#  ݒʕ\
###############################################################################

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 lpݒ</TITLE>
</HEAD>
$body
<H3>$bbstitle lpݒ</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>F@@@</TD>
        <TD><INPUT type="text" name="textc" size="7" value="$textc"></TD>
        <TD>@wiF</TD>
        <TD><input type="text" name="bgc" size="7" value="$bgc"></TD>
      </TR>
      <TR>
        <TD>NF</TD>
        <TD><input type="text" name="linkc" size="7" value="$linkc"></TD>
        <TD>@KσNF </td><td><input type="text" name="vlinkc" size="7" value="$vlinkc"></TD>
      </TR>
      <TR>
        <TD>psF</TD>
        <TD><INPUT type="text" name="quotc" size="7" value="$quotc"></TD>
    </TABLE>
  </UL>
  <UL>
    <LI><STRONG>O[h̃bZ[W̕\\@</STRONG><BR> <BR>
    <INPUT type="radio" name="reload" value="0" $reload[0]>Wie~\\j<BR>
    <INPUT type="radio" name="reload" value="1" $reload[1]>]ie\\j<BR>
  </UL>
  <UL>
    <LI><STRONG>摜WJ̏l</STRONG><BR> <BR>
    摜WJ <INPUT type="checkbox" name="autoimg" value="checked" $FORM{'autoimg'}> <BR>
  </UL>
  <BR>
  uo^vɕ\\URLubN}[Nɓo^܂傤B<BR>
  L̐ݒŌfK₷邱Ƃł܂B<BR> <BR>
  <INPUT type="hidden" name="autolink" value="$FORM{'autolink'}">
  <INPUT type="submit" name="btnname" value="o^">
  <INPUT type="reset" name="btnname" value="ɖ߂">
  <INPUT type="submit" name="btnname" value="Klɖ߂">
</FORM>
</BODY>
</HTML>
EOF
}

#  <UL>
#    <LI><STRONG>tH[ʂ̕\\@</STRONG><BR> <BR>
#    <INPUT type="radio" name="followwin" value="0" $follow[0]>VKEBhEJĕ\\<BR>
#    <INPUT type="radio" name="followwin" value="1" $follow[1]>VKEBhEJɕ\\<BR>
#  </UL>

###############################################################################
#  ݒ茋ʉʕ\
###############################################################################

sub setcustom {
	
	my ( $i, $custom );
	
	if ( $FORM{'btnname'} ne 'Klɖ߂' ) {
		$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__
