ユーザ関数

改行出力


# *******************************************************************
# 
# *******************************************************************
sub OutCr {
	for ( 0 .. $#_ ) {
		print "$_[$_]\n";
	}
}

<br> + 改行出力


# *******************************************************************
# <br> + 改行出力
# *******************************************************************
sub OutBr {
	for ( 0 .. $#_ ) {
		print "$_[$_]<br>\n";
	}
}

<HTML> と <HEAD>～</HEAD> の出力


# *******************************************************************
# 
# *******************************************************************
sub LoadHead {
	print "<HTML>\n<HEAD>\n";
	if ( $_[1] ne "" ) {
		print "<TITLE>$_[1]</TITLE>\n";
	}
	if ( $_[0] ne "" ) {
		print '<LINK REL="stylesheet" TYPE="text/css" HREF="' . $_[0] . '"' . ">\n"
	}
	print "</HEAD>\n";
}

BODY タグとそのオプションの出力


# *******************************************************************
# BODY タグとそのオプションの出力
# *******************************************************************
sub LoadBody {
	print "<BODY";
	for ( 0 .. $#_ ) {
		print " $_[$_]";
	}
	print ">\n";
}

FORM タグとそのオプションの出力 ( 0:action,1:method )


# *******************************************************************
# 
# *******************************************************************
sub LoadForm {
	print "<FORM name=frmStart";
	if ( $_[0] ne "" ) {
		print " action=$_[0]";
	}
	else {
		print " action=$ScriptName";
	}
	if ( $_[1] ne "" ) {
		print " method=$_[1]";
	}
	else {
		print " method=post";
	}

	for ( 2 .. $#_ ) {
		print " $_[$_]";
	}
	print ">\n";
}

<INPUT ... > の配置


# *******************************************************************
# 
# *******************************************************************
sub InputTag {
	local( $strType )	= $_[0];
	local( $strName )	= $_[1];
	local( @InputOption )	= split(/:/, $_[2]);
	local( $strRet )	= "";

	$strRet = "<INPUT type=$strType name=$strName";
	for ( 0 .. $#InputOption ) {
		if ( $_ == 0 ) {
			if ( $InputOption[$_] eq "0" ) {
				$strRet = $strRet . " readonly";
			}
		}
		elsif ( $_ == 1 ) {
			if ( $InputOption[$_] ne "" ) {
				$strRet = $strRet . " class=$InputOption[$_]";
			}
		}
		elsif ( $_ == 2 ) {
			if ( $InputOption[$_] ne "" ) {
				$strRet = $strRet . " maxlength=$InputOption[$_]";
			}
		}
		elsif ( $_ == 3 ) {
			if ( $InputOption[$_] ne "" ) {
				$strRet = $strRet . " size=$InputOption[$_]";
			}
		}
		else {
		}
	}
	for ( 3 .. $#_ ) {
		$strRet = $strRet . " $_[$_]";
	}

	if ( $Form{ $strName } ne "" ) {
		$strRet = $strRet . " value='$Form{ $strName }'";
	}

	$strRet = $strRet . ">";

	$strRet;

}

<TEXTAREA> ... </TEXTAREA> の配置


# *******************************************************************
# 
# *******************************************************************
sub InputArea {
	local( $strName )	= $_[0];
	local( $strRet )	= "";

	$strRet = "<TEXTAREA name=$strName";
	for ( 1 .. $#_ ) {
		$strRet = $strRet . " $_[$_]";
	}
	$strRet = $strRet . ">";

	if ( $Form{ $strName } ne "" ) {
		$strRet = $strRet . $Form{ $strName };
	}

	$strRet = $strRet . "</TEXTAREA>";

	$strRet;

}