[kitagata_support:11643] HP更新依頼（雇用調整助成金）

cgi-bin/mail/jcode.pl

@@ -0,0 +1,731 @@
+package jcode;
+;######################################################################
+;#
+;# jcode.pl: Perl library for Japanese character code conversion
+;#
+;# Copyright (c) 1995-1998 Kazumasa Utashiro <utashiro@iij.ad.jp>
+;# Internet Initiative Japan Inc.
+;# 3-13 Kanda Nishiki-cho, Chiyoda-ku, Tokyo 101-0054, Japan
+;#
+;# Copyright (c) 1992,1993,1994 Kazumasa Utashiro
+;# Software Research Associates, Inc.
+;#
+;# Original version was developed under the name of srekcah@sra.co.jp
+;# February 1992 and it was called kconv.pl at the beginning.  This
+;# address was a pen name for group of individuals and it is no longer
+;# valid.
+;#
+;# Use and redistribution for ANY PURPOSE, without significant
+;# modification, is granted as long as all copyright notices are
+;# retained.  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND
+;# ANY EXPRESS OR IMPLIED WARRANTIES ARE DISCLAIMED.
+;#
+;# The latest version is available here:
+;#
+;#	ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/
+;#
+;; $rcsid = q$Id: jcode.pl,v 2.8 1998/09/23 17:22:55 utashiro Exp $;
+;#
+;######################################################################
+;#
+;# PERL4 INTERFACE:
+;#
+;#	&jcode'getcode(*line)
+;#		Return 'jis', 'sjis', 'euc' or undef according to
+;#		Japanese character code in $line.  Return 'binary' if
+;#		the data has non-character code.
+;#
+;#		When evaluated in array context, it returns a list
+;#		contains two items.  First value is the number of
+;#		characters which matched to the expected code, and
+;#		second value is the code name.  It is useful if and
+;#		only if the number is not 0 and the code is undef;
+;#		that case means it couldn't tell 'euc' or 'sjis'
+;#		because the evaluation score was exactly same.  This
+;#		interface is too tricky, though.
+;#
+;#		Code detection between euc and sjis is very difficult
+;#		or sometimes impossible or even lead to wrong result
+;#		when it includes JIS X0201 KANA characters.  So JIS
+;#		X0201 KANA is ignored for automatic code detection.
+;#
+;#	&jcode'convert(*line, $ocode [, $icode [, $option]])
+;#		Convert the contents of $line to the specified
+;#		Japanese code given in the second argument $ocode.
+;#		$ocode can be any of "jis", "sjis" or "euc", or use
+;#		"noconv" when you don't want the code conversion.
+;#		Input code is recognized automatically from the line
+;#		itself when $icode is not supplied (JIS X0201 KANA is
+;#		ignored in code detection.  See the above descripton
+;#		of &getcode).  $icode also can be specified, but
+;#		xxx2yyy routine is more efficient when both codes are
+;#		known.
+;#
+;#		It returns the code of input string in scalar context,
+;#		and a list of pointer of convert subroutine and the
+;#		input code in array context.
+;#
+;#		Japanese character code JIS X0201, X0208, X0212 and
+;#		ASCII code are supported.  X0212 characters can not be
+;#		represented in SJIS and they will be replased by
+;#		"geta" character when converted to SJIS.
+;#
+;#		See next paragraph for $option parameter.
+;#
+;#	&jcode'xxx2yyy(*line [, $option])
+;#		Convert the Japanese code from xxx to yyy.  String xxx
+;#		and yyy are any convination from "jis", "euc" or
+;#		"sjis".  They return *approximate* number of converted
+;#		bytes.  So return value 0 means the line was not
+;#		converted at all.
+;#
+;#		Optional parameter $option is used to specify optional
+;#		conversion method.  String "z" is for JIS X0201 KANA
+;#		to X0208 KANA, and "h" is for reverse.
+;#
+;#	$jcode'convf{'xxx', 'yyy'}
+;#		The value of this associative array is pointer to the
+;#		subroutine jcode'xxx2yyy().
+;#
+;#	&jcode'to($ocode, $line [, $icode [, $option]])
+;#	&jcode'jis($line [, $icode [, $option]])
+;#	&jcode'euc($line [, $icode [, $option]])
+;#	&jcode'sjis($line [, $icode [, $option]])
+;#		These functions are prepared for easy use of
+;#		call/return-by-value interface.  You can use these
+;#		funcitons in s///e operation or any other place for
+;#		convenience.
+;#
+;#	&jcode'jis_inout($in, $out)
+;#		Set or inquire JIS start and end sequences.  Default
+;#		is "ESC-$-B" and "ESC-(-B".  If you supplied only one
+;#		character, "ESC-$" or "ESC-(" is prepended for each
+;#		character respectively.  Acutually "ESC-(-B" is not a
+;#		sequence to end JIS code but a sequence to start ASCII
+;#		code set.  So `in' and `out' are somewhat misleading.
+;#
+;#	&jcode'get_inout($string)
+;#		Get JIS start and end sequences from $string.
+;#
+;#	&jcode'cache()
+;#	&jcode'nocache()
+;#	&jcode'flush()
+;#		Usually, converted character is cached in memory to
+;#		avoid same calculations have to be done many times.
+;#		To disable this caching, call &jcode'nocache().  It
+;#		can be revived by &jcode'cache() and cache is flushed
+;#		by calling &jcode'flush().  &cache() and &nocache()
+;#		functions return previous caching state.
+;#
+;#	---------------------------------------------------------------
+;#
+;#	&jcode'h2z_xxx(*line)
+;#		JIS X0201 KANA (so-called Hankaku-KANA) to X0208 KANA
+;#		(Zenkaku-KANA) code conversion routine.  String xxx is
+;#		any of "jis", "sjis" and "euc".  From the difficulty
+;#		of recognizing code set from 1-byte KATAKANA string,
+;#		automatic code recognition is not supported.
+;#
+;#	&jcode'z2h_xxx(*line)
+;#		X0208 to X0201 KANA code conversion routine.  String
+;#		xxx is any of "jis", "sjis" and "euc".
+;#
+;#	$jcode'z2hf{'xxx'}
+;#	$jcode'h2zf{'xxx'}
+;#		These are pointer to the corresponding function just
+;#		as $jcode'convf.
+;#
+;#	---------------------------------------------------------------
+;#
+;#	&jcode'tr(*line, $from, $to [, $option])
+;#		&jcode'tr emulates tr operator for 2 byte code.  Only 'd'
+;#		is interpreted as option.
+;#
+;#		Range operator like `A-Z' for 2 byte code is partially
+;#		supported.  Code must be JIS or EUC, and first byte
+;#		should be same on first and last character.
+;#
+;#		CAUTION: Handling range operator is a kind of trick
+;#		and it is not perfect.  So if you need to transfer `-' 
+;#		character, please be sure to put it at the beginning
+;#		or the end of $from and $to strings.
+;#
+;#	&jcode'trans($line, $from, $to [, $option)
+;#		Same as &jcode'tr but accept string and return string
+;#		after translation.
+;#
+;#	---------------------------------------------------------------
+;#
+;#	&jcode'init()
+;#		Initialize the variables used in this package.  You
+;#		don't have to call this when using jocde.pl by `do' or
+;#		`require' interface.  Call it first if you embedded
+;#		the jcode.pl at the end of your script.
+;#
+;######################################################################
+;#
+;# PERL5 INTERFACE:
+;#
+;#	Current jcode.pl is written in Perl 4 but it is possible to
+;#	use from Perl 5 using `references'.  Fully perl5 capable version
+;#	is future issue.
+;#
+;#	jcode::getcode(\$line)
+;#	jcode::convert(\$line, $ocode [, $icode [, $option]])
+;#	jcode::xxx2yyy(\$line [, $option])
+;#	&{$jcode::convf{'xxx', 'yyy'}}(\$line)
+;#	jcode::to($ocode, $line [, $icode [, $option]])
+;#	jcode::jis($line [, $icode [, $option]])
+;#	jcode::euc($line [, $icode [, $option]])
+;#	jcode::sjis($line [, $icode [, $option]])
+;#	jcode::jis_inout($in, $out)
+;#	jcode::get_inout($string)
+;#	jcode::cache()
+;#	jcode::nocache()
+;#	jcode::flush()
+;#	jcode::h2z_xxx(\$line)
+;#	jcode::z2h_xxx(\$line)
+;#	&{$jcode::z2hf{'xxx'}}(\$line)
+;#	&{$jcode::h2zf{'xxx'}}(\$line)
+;#	jcode::tr(\$line, $from, $to [, $option])
+;#	jcode::trans($line, $from, $to [, $option)
+;#	jcode::init()
+;#
+;######################################################################
+;#
+;# SAMPLES
+;#
+;# Convert any Kanji code to JIS and print each line with code name.
+;#
+;#	while (<>) {
+;#	    $code = &jcode'convert(*_, 'jis');
+;#	    print $code, "\t", $_;
+;#	}
+;#	
+;# Convert all lines to JIS according to the first recognized line.
+;#
+;#	while (<>) {
+;#	    print, next unless /[\033\200-\377]/;
+;#	    (*f, $icode) = &jcode'convert(*_, 'jis');
+;#	    print;
+;#	    defined(&f) || next;
+;#	    while (<>) { &f(*_); print; }
+;#	    last;
+;#	}
+;#
+;# The safest way of JIS conversion.
+;#
+;#	while (<>) {
+;#	    ($matched, $code) = &jcode'getcode(*_);
+;#	    print, next unless (@buf || $matched);
+;#	    push(@buf, $_);
+;#	    next unless $code;
+;#	    eval "&jcode'${code}2jis(*_), print while (\$_ = shift(\@buf));";
+;#	    eval "&jcode'${code}2jis(*_), print while (\$_ = <>);";
+;#	    last;
+;#	}
+;#		
+;######################################################################
+
+;#
+;# Call initialize function if it is not called yet.  This may sound
+;# strange but it makes easy to embed the jcode.pl at the end of
+;# script.  Call &jcode'init at the beginning of the script in that
+;# case.
+;#
+&init unless defined $version;
+
+;#
+;# Initialize variables.
+;#
+sub init {
+    $version = $rcsid =~ /,v ([\d.]+)/ ? $1 : 'unkown';
+
+    $re_bin  = '[\000-\006\177\377]';
+
+    $re_jis0208_1978 = '\e\$\@';
+    $re_jis0208_1983 = '\e\$B';
+    $re_jis0208_1990 = '\e&\@\e\$B';
+    $re_jis0208 = "$re_jis0208_1978|$re_jis0208_1983|$re_jis0208_1990";
+    $re_jis0212 = '\e\$\(D';
+    $re_jp      = "$re_jis0208|$re_jis0212";
+    $re_asc     = '\e\([BJ]';
+    $re_kana    = '\e\(I';
+    $esc_0208 = "\e\$B";
+    $esc_0212 = "\e\$(D";
+    $esc_asc  = "\e(B";
+    $esc_kana = "\e(I";
+
+    $re_sjis_c    = '[\201-\237\340-\374][\100-\176\200-\374]';
+    $re_sjis_kana = '[\241-\337]';
+
+    $re_euc_c    = '[\241-\376][\241-\376]';
+    $re_euc_kana = '\216[\241-\337]';
+    $re_euc_0212 = '\217[\241-\376][\241-\376]';
+
+    # Use `geta' for undefined character code
+    $undef_sjis = "\x81\xac";
+
+    $cache = 1;
+
+    # X0201 -> X0208 KANA conversion table.  Looks weird?  Not that
+    # much.  This is simply JIS text without escape sequences.
+    ($h2z_high = $h2z = <<'__TABLE_END__') =~ tr/\041-\176/\241-\376/;
+!	!#	$	!"	%	!&	"	!V	#	!W
+^	!+	_	!,	0	!<
+'	%!	(	%#	)	%%	*	%'	+	%)
+,	%c	-	%e	.	%g	/	%C
+1	%"	2	%$	3	%&	4	%(	5	%*
+6	%+	7	%-	8	%/	9	%1	:	%3
+6^	%,	7^	%.	8^	%0	9^	%2	:^	%4
+;	%5	<	%7	=	%9	>	%;	?	%=
+;^	%6	<^	%8	=^	%:	>^	%<	?^	%>
+@	%?	A	%A	B	%D	C	%F	D	%H
+@^	%@	A^	%B	B^	%E	C^	%G	D^	%I
+E	%J	F	%K	G	%L	H	%M	I	%N
+J	%O	K	%R	L	%U	M	%X	N	%[
+J^	%P	K^	%S	L^	%V	M^	%Y	N^	%\
+J_	%Q	K_	%T	L_	%W	M_	%Z	N_	%]
+O	%^	P	%_	Q	%`	R	%a	S	%b
+T	%d			U	%f			V	%h
+W	%i	X	%j	Y	%k	Z	%l	[	%m
+\	%o	]	%s	&	%r	3^	%t
+__TABLE_END__
+    %h2z = split(/\s+/, $h2z . $h2z_high);
+    %z2h = reverse %h2z;
+
+    $convf{'jis'  , 'jis' } = *jis2jis;
+    $convf{'jis'  , 'sjis'} = *jis2sjis;
+    $convf{'jis'  , 'euc' } = *jis2euc;
+    $convf{'euc'  , 'jis' } = *euc2jis;
+    $convf{'euc'  , 'sjis'} = *euc2sjis;
+    $convf{'euc'  , 'euc' } = *euc2euc;
+    $convf{'sjis' , 'jis' } = *sjis2jis;
+    $convf{'sjis' , 'sjis'} = *sjis2sjis;
+    $convf{'sjis' , 'euc' } = *sjis2euc;
+    $h2zf{'jis' } = *h2z_jis;
+    $z2hf{'jis' } = *z2h_jis;
+    $h2zf{'euc' } = *h2z_euc;
+    $z2hf{'euc' } = *z2h_euc;
+    $h2zf{'sjis'} = *h2z_sjis;
+    $z2hf{'sjis'} = *z2h_sjis;
+}
+
+;#
+;# Set escape sequences which should be put before and after Japanese
+;# (JIS X0208) string.
+;#
+sub jis_inout {
+    $esc_0208 = shift || $esc_0208;
+    $esc_0208 = "\e\$$esc_0208" if length($esc_0208) == 1;
+    $esc_asc = shift || $esc_asc;
+    $esc_asc = "\e\($esc_asc" if length($esc_asc) == 1;
+    ($esc_0208, $esc_asc);
+}
+
+;#
+;# Get JIS in and out sequences from the string.
+;#
+sub get_inout {
+    local($esc_0208, $esc_asc);
+    $_[$[] =~ /$re_jis0208/o && ($esc_0208 = $&);
+    $_[$[] =~ /$re_asc/o && ($esc_asc = $&);
+    ($esc_0208, $esc_asc);
+}
+
+;#
+;# Recognize character code.
+;#
+sub getcode {
+    local(*_) = @_;
+    local($matched, $code);
+
+    if (!/[\e\200-\377]/) {	# not Japanese
+	$matched = 0;
+	$code = undef;
+    }				# 'jis'
+    elsif (/$re_jp|$re_asc|$re_kana/o) {
+	$matched = 1;
+	$code = 'jis';
+    }
+    elsif (/$re_bin/o) {	# 'binary'
+	$matched = 0;
+	$code = 'binary';
+    }
+    else {			# should be 'euc' or 'sjis'
+	local($sjis, $euc);
+
+	$sjis += length($&) while /($re_sjis_c)+/go;
+	$euc  += length($&) while /($re_euc_c|$re_euc_kana|$re_euc_0212)+/go;
+
+	$matched = &max($sjis, $euc);
+	$code = ('euc', undef, 'sjis')[($sjis<=>$euc) + $[ + 1];
+    }
+    wantarray ? ($matched, $code) : $code;
+}
+sub max { $_[ $[ + ($_[$[] < $_[$[+1]) ]; }
+
+;#
+;# Convert any code to specified code.
+;#
+sub convert {
+    local(*_, $ocode, $icode, $opt) = @_;
+    return (undef, undef) unless $icode = $icode || &getcode(*_);
+    return (undef, $icode) if $icode eq 'binary';
+    $ocode = 'jis' unless $ocode;
+    $ocode = $icode if $ocode eq 'noconv';
+    local(*f) = $convf{$icode, $ocode};
+    &f(*_, $opt);
+    wantarray ? (*f, $icode) : $icode;
+}
+
+;#
+;# Easy return-by-value interfaces.
+;#
+sub jis  { &to('jis',  @_); }
+sub euc  { &to('euc',  @_); }
+sub sjis { &to('sjis', @_); }
+sub to {
+    local($ocode, $_, $icode, $opt) = @_;
+    &convert(*_, $ocode, $icode, $opt);
+    $_;
+}
+sub what {
+    local($_) = @_;
+    &getcode(*_);
+}
+sub trans {
+    local($_) = shift;
+    &tr(*_, @_);
+    $_;
+}
+
+;#
+;# SJIS to JIS
+;#
+sub sjis2jis {
+    local(*_, $opt, $n) = @_;
+    &sjis2sjis(*_, $opt) if $opt;
+    s/($re_sjis_kana)+|($re_sjis_c)+/&_sjis2jis($&, $')/geo;
+    $n;
+}
+sub _sjis2jis {
+    local($_) = shift;
+    local($post) = $_[$[] =~ /^($re_sjis_kana|$re_sjis_c)/o ? "" : $esc_asc;
+    if (/^$re_sjis_kana/o) {
+	$n += tr/\241-\337/\041-\137/;
+	$esc_kana . $_ . $post;
+    } else {
+	$n += s/$re_sjis_c/$s2e{$&}||&s2e($&)/geo;
+	tr/\241-\376/\041-\176/;
+	$esc_0208 . $_ . $post;
+    }
+}
+
+;#
+;# EUC to JIS
+;#
+sub euc2jis {
+    local(*_, $opt, $n) = @_;
+    &euc2euc(*_, $opt) if $opt;
+    s/($re_euc_kana)+|($re_euc_c)+|($re_euc_0212)+/&_euc2jis($&, $')/geo;
+    $n;
+}
+sub _euc2jis {
+    local($_) = shift;
+    local($pre, $post);
+
+    $pre = tr/\216//d ? $esc_kana : tr/\217//d ? $esc_0212 : $esc_0208;
+    if ($_[$[] =~ /^($re_euc_kana|$re_euc_c|$re_euc_0212)/o) {
+	$post = "";
+    } else {
+	$post = $esc_asc;
+    }
+    $n += tr/\241-\376/\041-\176/;
+    $pre . $_ . $post;
+}
+
+;#
+;# JIS to EUC
+;#
+sub jis2euc {
+    local(*_, $opt, $n) = @_;
+    s/($re_jp|$re_asc|$re_kana)([^\e]*)/&_jis2euc($1,$2)/geo;
+    &euc2euc(*_, $opt) if $opt;
+    $n;
+}
+sub _jis2euc {
+    local($esc, $_) = @_;
+    if ($esc !~ /$re_asc/o) {
+	$n += tr/\041-\176/\241-\376/;
+	if ($esc =~ /$re_kana/o) {
+	    s/[\241-\337]/\216$&/g;
+	}
+	elsif ($esc =~ /$re_jis0212/o) {
+	    s/[\241-\376][\241-\376]/\217$&/g;
+	}
+    }
+    $_;
+}
+
+;#
+;# JIS to SJIS
+;#
+sub jis2sjis {
+    local(*_, $opt, $n) = @_;
+    &jis2jis(*_, $opt) if $opt;
+    s/($re_jp|$re_asc|$re_kana)([^\e]*)/&_jis2sjis($1,$2)/geo;
+    $n;
+}
+sub _jis2sjis {
+    local($esc, $_) = @_;
+    if ($esc =~ /$re_jis0212/o) {
+	s/../$undef_sjis/g;
+	$n = length;
+    }
+    elsif ($esc !~ /$re_asc/o) {
+	$n += tr/\041-\176/\241-\376/;
+	s/$re_euc_c/$e2s{$&}||&e2s($&)/geo if $esc =~ /$re_jp/o;
+    }
+    $_;
+}
+
+;#
+;# SJIS to EUC
+;#
+sub sjis2euc {
+    local(*_, $opt,$n) = @_;
+    $n = s/$re_sjis_kana|$re_sjis_c/$s2e{$&}||&s2e($&)/geo;
+    &euc2euc(*_, $opt) if $opt;
+    $n;
+}
+sub s2e {
+    local($c1, $c2, $code);
+    ($c1, $c2) = unpack('CC', $code = shift);
+
+    if (0xa1 <= $c1 && $c1 <= 0xdf) {
+	$c2 = $c1;
+	$c1 = 0x8e;
+    } elsif (0x9f <= $c2) {
+	$c1 = $c1 * 2 - ($c1 >= 0xe0 ? 0xe0 : 0x60);
+	$c2 += 2;
+    } else {
+	$c1 = $c1 * 2 - ($c1 >= 0xe0 ? 0xe1 : 0x61);
+	$c2 += 0x60 + ($c2 < 0x7f);
+    }
+    if ($cache) {
+	$s2e{$code} = pack('CC', $c1, $c2);
+    } else {
+	pack('CC', $c1, $c2);
+    }
+}
+
+;#
+;# EUC to SJIS
+;#
+sub euc2sjis {
+    local(*_, $opt,$n) = @_;
+    &euc2euc(*_, $opt) if $opt;
+    $n = s/$re_euc_c|$re_euc_kana|$re_euc_0212/$e2s{$&}||&e2s($&)/geo;
+}
+sub e2s {
+    local($c1, $c2, $code);
+    ($c1, $c2) = unpack('CC', $code = shift);
+
+    if ($c1 == 0x8e) {		# SS2
+	return substr($code, 1, 1);
+    } elsif ($c1 == 0x8f) {	# SS3
+	return $undef_sjis;
+    } elsif ($c1 % 2) {
+	$c1 = ($c1>>1) + ($c1 < 0xdf ? 0x31 : 0x71);
+	$c2 -= 0x60 + ($c2 < 0xe0);
+    } else {
+	$c1 = ($c1>>1) + ($c1 < 0xdf ? 0x30 : 0x70);
+	$c2 -= 2;
+    }
+    if ($cache) {
+	$e2s{$code} = pack('CC', $c1, $c2);
+    } else {
+	pack('CC', $c1, $c2);
+    }
+}
+
+;#
+;# JIS to JIS, SJIS to SJIS, EUC to EUC
+;#
+sub jis2jis {
+    local(*_, $opt) = @_;
+    s/$re_jis0208/$esc_0208/go;
+    s/$re_asc/$esc_asc/go;
+    &h2z_jis(*_) if $opt =~ /z/;
+    &z2h_jis(*_) if $opt =~ /h/;
+}
+sub sjis2sjis {
+    local(*_, $opt) = @_;
+    &h2z_sjis(*_) if $opt =~ /z/;
+    &z2h_sjis(*_) if $opt =~ /h/;
+}
+sub euc2euc {
+    local(*_, $opt) = @_;
+    &h2z_euc(*_) if $opt =~ /z/;
+    &z2h_euc(*_) if $opt =~ /h/;
+}
+
+;#
+;# Cache control functions
+;#
+sub cache {
+    ($cache, $cache = 1)[$[];
+}
+sub nocache {
+    ($cache, $cache = 0)[$[];
+}
+sub flushcache {
+    undef %e2s;
+    undef %s2e;
+}
+
+;#
+;# X0201 -> X0208 KANA conversion routine
+;#
+sub h2z_jis {
+    local(*_, $n) = @_;
+    if (s/$re_kana([^\e]*)/$esc_0208 . &_h2z_jis($1)/geo) {
+	1 while s/(($re_jis0208)[^\e]*)($re_jis0208)/$1/o;
+    }
+    $n;
+}
+sub _h2z_jis {
+    local($_) = @_;
+    $n += s/[\41-\137]([\136\137])?/$h2z{$&}/g;
+    $_;
+}
+
+sub h2z_euc {
+    local(*_) = @_;
+    s/\216([\241-\337])(\216([\336\337]))?/$h2z{"$1$3"}/g;
+}
+
+sub h2z_sjis {
+    local(*_, $n) = @_;
+    s/(($re_sjis_c)+)|(([\241-\337])([\336\337])?)/
+	$1 || ($n++, $e2s{$h2z{$3}} || &e2s($h2z{$3}))/geo;
+    $n;
+}
+
+;#
+;# X0208 -> X0201 KANA conversion routine
+;#
+sub z2h_jis {
+    local(*_, $n) = @_;
+    s/($re_jis0208)([^\e]+)/&_z2h_jis($2)/geo;
+    $n;
+}
+sub _z2h_jis {
+    local($_) = @_;
+    s/(\%[!-~]|![\#\"&VW+,<])+|([^!%][!-~]|![^\#\"&VW+,<])+/&__z2h_jis($&)/ge;
+    $_;
+}
+sub __z2h_jis {
+    local($_) = @_;
+    return $esc_0208 . $_ unless /^%/ || /^![\#\"&VW+,<]/;
+    $n += length($_) / 2;
+    s/../$z2h{$&}/g;
+    $esc_kana . $_;
+}
+
+sub z2h_euc {
+    local(*_, $n) = @_;
+    &init_z2h_euc unless defined %z2h_euc;
+    s/$re_euc_c|$re_euc_kana/$z2h_euc{$&} ? ($n++, $z2h_euc{$&}) : $&/geo;
+    $n;
+}
+
+sub z2h_sjis {
+    local(*_, $n) = @_;
+    &init_z2h_sjis unless defined %z2h_sjis;
+    s/$re_sjis_c/$z2h_sjis{$&} ? ($n++, $z2h_sjis{$&}) : $&/geo;
+    $n;
+}
+
+;#
+;# Initializing JIS X0208 to X0201 KANA table for EUC and SJIS.  This
+;# can be done in &init but it's not worth doing.  Similarly,
+;# precalculated table is not worth to occupy the file space and
+;# reduce the readability.  The author personnaly discourages to use
+;# X0201 Kana character in the any situation.
+;#
+sub init_z2h_euc {
+    local($k, $_);
+    s/[\241-\337]/\216$&/g && ($z2h_euc{$k} = $_) while ($k, $_) = each %z2h;
+}
+sub init_z2h_sjis {
+    local($_, $v);
+    /[\200-\377]/ && ($z2h_sjis{&e2s($_)} = $v) while ($_, $v) = each %z2h;
+}
+
+;#
+;# TR function for 2-byte code
+;#
+sub tr {
+    # $prev_from, $prev_to, %table are persistent variables
+    local(*_, $from, $to, $opt) = @_;
+    local(@from, @to);
+    local($jis, $n) = (0, 0);
+    
+    $jis++, &jis2euc(*_) if /$re_jp|$re_asc|$re_kana/o;
+    $jis++ if $to =~ /$re_jp|$re_asc|$re_kana/o;
+
+    if ($from ne $prev_from || $to ne $prev_to) {
+	($prev_from, $prev_to) = ($from, $to);
+	undef %table;
+	&_maketable;
+    }
+
+    s/[\200-\377][\000-\377]|[\000-\377]/
+	defined($table{$&}) && ++$n ? $table{$&} : $&/ge;
+
+    &euc2jis(*_) if $jis;
+
+    $n;
+}
+
+sub _maketable {
+    local($ascii) = '(\\\\[\\-\\\\]|[\0-\133\135-\177])';
+
+    &jis2euc(*to) if $to =~ /$re_jp|$re_asc|$re_kana/o;
+    &jis2euc(*from) if $from =~ /$re_jp|$re_asc|$re_kana/o;
+
+    grep(s/([\200-\377])[\200-\377]-\1[\200-\377]/&_expnd2($&)/ge, $from, $to);
+    grep(s/$ascii-$ascii/&_expnd1($&)/geo, $from, $to);
+
+    @to   = $to   =~ /[\200-\377][\000-\377]|[\000-\377]/g;
+    @from = $from =~ /[\200-\377][\000-\377]|[\000-\377]/g;
+    push(@to, ($opt =~ /d/ ? '' : $to[$#to]) x (@from - @to)) if @to < @from;
+    @table{@from} = @to;
+}
+
+sub _expnd1 {
+    local($_) = @_;
+    s/\\(.)/$1/g;
+    local($c1, $c2) = unpack('CxC', $_);
+    if ($c1 <= $c2) {
+	for ($_ = ''; $c1 <= $c2; $c1++) {
+	    $_ .= pack('C', $c1);
+	}
+    }
+    $_;
+}
+
+sub _expnd2 {
+    local($_) = @_;
+    local($c1, $c2, $c3, $c4) = unpack('CCxCC', $_);
+    if ($c1 == $c3 && $c2 <= $c4) {
+	for ($_ = ''; $c2 <= $c4; $c2++) {
+	    $_ .= pack('CC', $c1, $c2);
+	}
+    }
+    $_;
+}
+
+1;

cgi-bin/mail/webform_kirari.cgi

@@ -0,0 +1,684 @@
+#!/usr/bin/perl
+
+;##########################################################################
+;#
+;# WebFORM v4.4 <フリーソフト>
+;#
+;#  (c)CGI-RESCUE
+;#  http://www.rescue.ne.jp/
+;#
+;# Hostory
+;# 06/Jun/1998 v3.0 セキュリティ強化
+;# 08/Aug/1998 v3.1 カーボンコピー処理改善
+;# 29/Oct/1998 v4.0 カーボンコピー処理はセキュリティの問題で廃止
+;# 16/Feb/2006 v4.1 スパムに対する脆弱性を修正
+;# 08/Jul/2006 v4.2 スパムに対する脆弱性を修正(v4.1の修正ミスを修正)
+;# 13/Nov/2006 v4.3 スパムメール防止機能を追加（スパムキー機能）
+;# 18/Jan/2007 v4.4 スパムに対する脆弱性を修正、およびSENDMAILの誤作動データの置換処理
+;#
+;##########################################################################
+
+#------ 初期設定 ----------------------------------------------------------
+
+#use Jcode;
+#use Encode;
+use Encode 'from_to';
+use Encode 'encode';
+use Encode 'decode';
+use MIME::Base64;
+
+#■日本語コード変換ライブラリ
+require './jacode.pl';
+
+#■SENDMAILの設定
+$sendmail = '/usr/lib/sendmail';
+
+#■受信先メールアドレス
+#$mailto = 'kuni.takenaka@gmail.com';
+$mailto = '';
+
+#■名称
+$title = 'メール送信';
+
+#■画面のボディ設定
+$body = '<body id="back">';
+
+#■記入者メールアドレス( name="email"の時 )未入力でも送信する  1:する 0:しない
+#  メールアドレスはあくまでも記入者の申告であり、正しいかどうかは分かりません。
+$mailcheck = 0;
+
+#■タイトル欄に入力がない場合のデフォルト値
+#$subject = '- NO SUBJECT -';
+$subject = "お問い合わせ";
+
+#■スパムキー機能を使う場合のキーワード設定
+#
+#  画面に表示した単語、文章、文字列を入力させたり、それを画像にしたものを入力させる（目の不自由な方には対応できないことに留意）、
+#  または質問の答えを書かせるなどして、このＣＧＩの送信機能を悪用して自動で送信してくるスパムを、
+#  自動（ロボット）では処理できない段取りを挿入することにより防止する機能です。
+#
+#  スパムキー <input type="text" name="spam_key">
+#
+#  のように、｢name=｣を｢spam_key｣にして入力した内容は、ＣＧＩ内に設定したキーワードと
+# 「一致」(半角・全角・大文字・小文字などは区別される)しなければ送信しないという機能です。
+#  これを設定しても、ＣＧＩ内にキーワードを設定しない場合は設定エラーになります。キーワードを設定しても、フォームに設定しない場合は無視されます。
+#  キーワードは '' の間に設定してください。例：'日本' 例：'123'
+
+$spam_base_key = '';
+
+#--------------------------------------------------------------------------
+
+### 時刻取得
+($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+@mon_array = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
+@wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+$date_now = sprintf("%s, %02d %s %04d %02d:%02d:%02d +0900 (JST)",$wday_array[$wday],$mday,$mon_array[$mon],$year +1900,$hour,$min,$sec); # JSTは日本標準時という意味です
+
+### データ入力
+if ($ENV{'REQUEST_METHOD'} ne "POST") { &error('エラー','標準入力 METHOD=POST でご利用ください.'); }
+read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+if ($buffer eq '') { &error('エラー','このプログラムは直接起動できません.','使い方を確認してください.'); }
+$ref = &encTag($ENV{'HTTP_REFERER'});
+$buffer2 = $ENV{'QUERY_STRING'};
+if ($buffer2 ne '') { &error('エラー','標準入力 METHOD=POST でご利用ください.','または、クエリーにデータが検出されました.'); }
+
+
+### デコード
+@pairs = split(/&/,$buffer);
+foreach $pair (@pairs) {
+
+	($name,$value) = split(/=/,$pair);
+	$value =~ tr/+/ /;
+	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+	$name =~ tr/+/ /;
+	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+
+	#&jcode'convert(*name,'jis'); &jcode'convert(*value,'jis');
+	#jcode::convert(*name,'sjis'); jcode::convert(*value,'sjis');
+	#jcode::convert(*name,'jis'); jcode::convert(*value,'jis');
+
+	#from_to($name, 'UTF-8', 'Shift_JIS'); from_to($value, 'UTF-8', 'Shift_JIS');
+	$env = jcode::getcode(*name);
+	if ($name eq "subject") {
+		$env = jcode::getcode(*value);
+	}
+	if ( $env eq "sjis" ) {
+		#from_to($name, 'Shift_JIS', 'UTF-8'); from_to($value, 'Shift_JIS', 'UTF-8');
+		#from_to($name, 'Shift_JIS', 'Shift_JIS'); from_to($value, 'Shift_JIS', 'Shift_JIS');
+		$name = decode('Shift_JIS', $name); $value = decode('Shift_JIS', $value);
+	} else { 
+		#from_to($name, 'UTF-8', 'Shift_JIS'); from_to($value, 'UTF-8', 'Shift_JIS');
+		$name = decode('UTF-8', $name); $value = decode('UTF-8', $value);
+	}
+	$name = encode('Shift_JIS', $name); $value = encode('Shift_JIS', $value);
+
+	#$value =~ s/http/"><s>te&st<\/s>/;#debug用
+
+	if ($value =~ /\r\n/) { $value =~ s/\r//g; } # 改行コードをUNIX(\n)に統一
+	elsif ($value =~ /\r/) { $value =~ s/\r/\n/g; }
+
+	if ($name eq "location") { $lct = &encTag($value); }
+	elsif ($name eq "c_copy" && $value eq "on") { $cc = "on"; }
+	elsif ($name eq "no_check" && $value eq "on") { $nocheck = "on"; }
+	elsif ($name eq "space_check" && $value eq "on") { $spcheck = "on"; }
+	elsif ($name eq "no_check") { ; }
+	elsif ($name eq "ref_url") { $ref_url = &encTag($value); }
+	elsif ($name eq "ref_name") { $ref_name = &encTag($value); }
+	elsif ($name eq "spam_key") { $spam_key = $value; $spam = 1; }
+	elsif ($name eq "subject" && $value ne "") { $subject = $value; }
+	elsif ($name eq "subject") { ; }
+	elsif ($name eq "ref_page") { $ref = &encTag($value); }
+	elsif ($name eq "password") {
+
+		$password = $value;
+		push(@DATA_N,$name);
+		push(@DATA_V,$value);
+	}
+	else {
+		if ($name =~ /^email/i || $name =~ /^e\-mail/i) {
+
+			$value =~ s/　/ /g;
+			if ($value =~ / / || $value =~ /;/) { $value = ""; }
+			if (!($value =~ /(.*)\@(.*)\.(.*)/)) { $value = ""; }
+
+			$email = $value;
+		}
+
+		push(@DATA_N,$name);
+		push(@DATA_V,$value);
+
+		$name = &encTag($name);
+		$value = &encTag($value);
+		push(@DATA_NS,$name);
+		push(@DATA_VS,$value);
+	}
+}
+
+### 入力チェック
+$ref =~ s/\n|\r//g; # 汚染チェック
+$lct =~ s/\n|\r//g; # 汚染チェック
+if (!$mailcheck && $email eq '') { &error('エラー','Ｅメールを入力してください.'); }
+if ($mailcheck && $email eq '') { $email = 'anonymous@on.the.net'; } # メール未記入でも送信する場合の仮メールアドレス
+if ($spcheck eq "on") {	foreach (@DATA_V) { if ($_ eq "") { &error('送信できません','受信者の意向により、全ての項目を埋めないと送信できません.'); } }}
+if ($mailto eq '' || !($mailto =~ /(.*)\@(.*)\.(.*)/)) { &error('設定ミス','受信先メールアドレスが設定されていません.'); }
+if ($spam_base_key eq '' && $spam) { &error('設定ミス','スパムキー用のキーワードが設定されていません.'); }
+if ($spam_base_key ne '' && $spam_base_key ne $spam_key) { &error('送信できません','画面に書かれていることに従ってキーワードを入力してください.'); }
+if ($nocheck eq "on") { &sendmail; } # 確認画面を出さずに送信へ
+
+### 内容確認画面出力
+print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+<h1>内容確認</h1>
+<form method="POST" action="webform_kirari.cgi">
+<blockquote>
+<table border=0 cellpadding=3 cellspacing=3>
+<tr><td bgcolor="#ffcccc"><b><font size=+1>項目</font></b></td><td bgcolor="#ffcccc"><b><font size=+1>内容</font></b></td></tr>
+EOF
+
+$count = @DATA_NS;
+
+foreach (0..$count-1) {
+
+	print "<input type=hidden name=\"$DATA_NS[($_)]\" value=\"$DATA_VS[($_)]\">\n";
+	print "<tr><td bgcolor=\"#ffeedd\">$DATA_NS[($_)] <br></td>";
+
+	if ($DATA_VS[($_)] =~ /\n/) { print "<td bgcolor=\"#ffffff\"><pre>$DATA_VS[($_)]</pre></td></tr>\n"; }
+	else { print "<td bgcolor=\"#ffffff\">$DATA_VS[($_)]</td></tr>\n"; }
+	print "</td></tr>\n";
+}
+
+print "</table></blockquote><p>\n";
+
+print "<input type=hidden name=\"no_check\" value=\"on\">\n";
+print "<input type=hidden name=\"ref_page\" value=\"$ref\">\n";
+
+if ($lct ne "") { print "<input type=hidden name=\"location\" value=\"$lct\">\n"; }
+if ($cc eq "on") { print "<input type=hidden name=\"c_copy\" value=\"on\">\n"; }
+if ($ref_url ne "") { print "<input type=hidden name=\"ref_url\" value=\"$ref_url\">\n"; }
+if ($ref_name ne "") { print "<input type=hidden name=\"ref_name\" value=\"$ref_name\">\n"; }
+if ($subject ne "") { print "<input type=hidden name=\"subject\" value=\"$subject\">\n"; }
+if ($password ne "") { print "<input type=hidden name=\"password\" value=\"$password\">\n"; }
+if ($spam_key ne "") { print "<input type=hidden name=\"spam_key\" value=\"$spam_key\">\n"; }
+
+if ($email eq '' || $email =~ /\,/) { print "<font size=+2><b>メールアドレスを正しく１つ入力しないと送信できません</b></font><p>\n"; }
+else { print "<input type=submit value=\"  送 信  \"><p>\n"; }
+
+print "</form><p><hr>\n";
+print "<i>送信先：<a href=\"mailto:$mailto\">$mailto</a><i>\n";
+print "<p>\n";
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+print "</body></html>\n";
+exit;
+
+sub sendmail {
+
+	$email =~ s/\n//g; # 汚染チェック
+	if (length($email) > 255) { &error('エラー','メールアドレスの長さ制限は255バイトまでです.'); }
+	if ($email =~ /\,/) { &error('エラー','メールアドレスを正しく１つ入力しないと送信できません.'); }
+
+	$subject =~ s/\n//g; # 汚染チェック
+	if (length($subject) > 255) { &error('エラー','メール題名の長さ制限は255バイト(全角はその半分)までです.'); }
+
+	$host = $ENV{'REMOTE_HOST'};
+	$addr = $ENV{'REMOTE_ADDR'};
+	if ($host eq "" || $host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
+
+	if (!(open(OUT,"| $sendmail -t"))) { &error('システム異常','申し訳ありませんが何らかの原因で処理できません.'); }
+
+	print OUT "X-Mailer: WebFORM v4.4 by CGI-RESCUE\n";
+	print OUT "X-HTTP-User-Agent: " . &encTag($ENV{'HTTP_USER_AGENT'}) . "\n";
+	print OUT "X-Remote-host: $host \[$addr\]\n";
+	$Ref = &decTag($ref); print OUT "X-HTTP-REFERER: $Ref\n";
+	print OUT "Errors-To: $mailto\n";
+	print OUT "To: $mailto\n";
+	print OUT "From: $email\n";
+	$Subject = &decTag($subject);
+	$Subject = decode('Shift_JIS', $Subject);
+	$Subject = encode('JIS', $Subject);
+	print OUT "Subject: $Subject\n";
+	print OUT "Date: $date_now\n";
+	print OUT "Content-Transfer-Encoding: 7bit\n";
+	print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";
+
+	$count = @DATA_N;
+	foreach (0..$count-1) {
+
+		if ($DATA_V[$_] =~ /\n/) { &jis("$DATA_N[$_] \n\n$DATA_V[$_]\n"); print OUT "$msg\n\n"; }
+		else { &jis("$DATA_N[$_] \n $DATA_V[$_]"); print OUT "$msg\n\n"; }
+	}
+
+	close(OUT);
+
+	if ($cc eq "on" && $lct ne '') {
+
+		print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+		print "<h1>送信完了</h1>\n";
+		print "ただ今<a href=\"mailto:$mailto\">$mailto</a>宛てに送信された内容は以下の通りです.<br>\n";
+		print "内容の写しとしてお控えください.<p>\n";
+		print "<form>\n";
+		print "<blockquote>\n";
+		print "<textarea cols=70 rows=20>";
+		&cc;
+		print "</textarea></form></blockquote><p>\n";
+		print "<h3>[<a href=\"$lct\" target=\"_top\">入力フォームへ戻る</a>]</h3>";
+	}
+	elsif ($cc eq "on") {
+
+		print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+		print "<h1>送信完了</h1>\n";
+		print "ただ今<a href=\"mailto:$mailto\">$mailto</a>宛てに送信された内容は以下の通りです.<br>\n";
+		print "内容の写しとしてお控えください.<p>\n";
+		print "<form>\n";
+		print "<blockquote>\n";
+		print "<textarea cols=70 rows=20>";
+		&cc;
+		print "</textarea></form></blockquote><p>\n";
+		if ($ref_url ne '' && $ref_name ne '') {  print "<h3>[<a href=\"$ref_url\" target=\"_top\">$ref_name</a>]</h3>"; }
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+		print "</body></html>\n";
+	}
+	elsif ($lct ne '') { print "Location: $lct\n\n"; }
+	else {
+		print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+		print "<H1>送信完了</H1>\n";
+		print "ご記入されたものは<a href=\"mailto:$mailto\">$mailto</a>宛てに電子メールされました.<br>\n";
+		print "Thank you for sending comments to $mailto .<p>\n";
+		if ($ref_url ne '' && $ref_name ne '') {  print "<h3>[<a href=\"$ref_url\" target=\"_top\">$ref_name</a>]</h3>"; }
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+		print "<p></body></html>\n";
+	}
+	exit;
+}
+
+sub cc {
+
+	print "Date: $date_now\n";
+	print "To: $mailto\n";
+	print "Subject: $subject\n\n";
+
+	foreach (0..$count-1) {
+
+		if ($DATA_VS[$_] =~ /\n/) { print "$DATA_NS[$_] \n\n$DATA_VS[$_]\n\n"; }
+		else { print "$DATA_NS[$_] \n $DATA_VS[$_]\n\n"; }
+	}
+}
+
+sub jis {
+
+	$msg = $_[0];
+	local(@msg);
+
+	@msg = split(/\n/,$msg);
+	foreach $i (0..$#msg) {
+
+		if ($msg[$i] eq '.') { splice(@msg,$i,1,'..'); }
+	}
+
+	$msg = join("\n",@msg);
+
+	#&jcode'convert(*msg, 'jis');
+	#&jcode'convert(*msg, 'sjis');
+	#jcode::convert(\$msg, 'jis');
+	#jcode::convert($msg, 'jis');
+
+	from_to($msg,'Shift_JIS', 'JIS');
+	#from_to($msg,'UTF-8', 'JIS');
+
+	#from_to($msg,'Shift_JIS', 'Shift_JIS');
+	#from_to($msg,'UTF-8', 'Shift_JIS');
+	
+#	my $env = jcode::getcode(*msg);
+#	if ( $env eq "sjis" ) {
+#		from_to($msg,'Shift_JIS', 'JIS');
+#	} else { 
+#		from_to($msg,'UTF-8', 'JIS');
+#	}
+
+}
+
+sub encTag {
+
+	local($line) = $_[0];
+	$line =~ s/"/&quot;/g;
+	$line =~ s/</&lt;/g;
+	$line =~ s/>/&gt;/g;
+	$line;
+}
+
+sub decTag {
+
+	local($line) = $_[0];
+	$line =~ s/&quot;/"/g;
+	$line =~ s/&lt;/</g;
+	$line =~ s/&gt;/>/g;
+	$line;
+}
+
+sub error {
+
+	print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+        print "<h1>$_[0]</h1>\n";
+	print "<h3>$_[1]</h3>\n";
+
+	if ($ref eq '') {
+
+		print "※ フォームページが取得できません.<br>\n";
+		print "※ ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
+	}
+	else {
+
+		print "※ フォームページ　<a href=\"$ref\">$ref</a><br>\n";
+		print "※ フォームページへ戻るか、ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
+	}
+
+print "<p>\n";
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+print "</body></html>\n";
+	exit;
+}

cgi-bin/mail/webform_kirari_.cgi

@@ -0,0 +1,683 @@
+#!/usr/bin/perl
+
+;##########################################################################
+;#
+;# WebFORM v4.4 <フリーソフト>
+;#
+;#  (c)CGI-RESCUE
+;#  http://www.rescue.ne.jp/
+;#
+;# Hostory
+;# 06/Jun/1998 v3.0 セキュリティ強化
+;# 08/Aug/1998 v3.1 カーボンコピー処理改善
+;# 29/Oct/1998 v4.0 カーボンコピー処理はセキュリティの問題で廃止
+;# 16/Feb/2006 v4.1 スパムに対する脆弱性を修正
+;# 08/Jul/2006 v4.2 スパムに対する脆弱性を修正(v4.1の修正ミスを修正)
+;# 13/Nov/2006 v4.3 スパムメール防止機能を追加（スパムキー機能）
+;# 18/Jan/2007 v4.4 スパムに対する脆弱性を修正、およびSENDMAILの誤作動データの置換処理
+;#
+;##########################################################################
+
+#------ 初期設定 ----------------------------------------------------------
+
+#use Jcode;
+#use Encode;
+use Encode 'from_to';
+use Encode 'encode';
+use Encode 'decode';
+use MIME::Base64;
+
+#■日本語コード変換ライブラリ
+require './jacode.pl';
+
+#■SENDMAILの設定
+$sendmail = '/usr/lib/sendmail';
+
+#■受信先メールアドレス
+$mailto = 'kuni.takenaka@gmail.com';
+
+#■名称
+$title = 'メール送信';
+
+#■画面のボディ設定
+$body = '<body id="back">';
+
+#■記入者メールアドレス( name="email"の時 )未入力でも送信する  1:する 0:しない
+#  メールアドレスはあくまでも記入者の申告であり、正しいかどうかは分かりません。
+$mailcheck = 0;
+
+#■タイトル欄に入力がない場合のデフォルト値
+#$subject = '- NO SUBJECT -';
+$subject = "お問い合わせ";
+
+#■スパムキー機能を使う場合のキーワード設定
+#
+#  画面に表示した単語、文章、文字列を入力させたり、それを画像にしたものを入力させる（目の不自由な方には対応できないことに留意）、
+#  または質問の答えを書かせるなどして、このＣＧＩの送信機能を悪用して自動で送信してくるスパムを、
+#  自動（ロボット）では処理できない段取りを挿入することにより防止する機能です。
+#
+#  スパムキー <input type="text" name="spam_key">
+#
+#  のように、｢name=｣を｢spam_key｣にして入力した内容は、ＣＧＩ内に設定したキーワードと
+# 「一致」(半角・全角・大文字・小文字などは区別される)しなければ送信しないという機能です。
+#  これを設定しても、ＣＧＩ内にキーワードを設定しない場合は設定エラーになります。キーワードを設定しても、フォームに設定しない場合は無視されます。
+#  キーワードは '' の間に設定してください。例：'日本' 例：'123'
+
+$spam_base_key = '';
+
+#--------------------------------------------------------------------------
+
+### 時刻取得
+($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+@mon_array = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
+@wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+$date_now = sprintf("%s, %02d %s %04d %02d:%02d:%02d +0900 (JST)",$wday_array[$wday],$mday,$mon_array[$mon],$year +1900,$hour,$min,$sec); # JSTは日本標準時という意味です
+
+### データ入力
+if ($ENV{'REQUEST_METHOD'} ne "POST") { &error('エラー','標準入力 METHOD=POST でご利用ください.'); }
+read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+if ($buffer eq '') { &error('エラー','このプログラムは直接起動できません.','使い方を確認してください.'); }
+$ref = &encTag($ENV{'HTTP_REFERER'});
+$buffer2 = $ENV{'QUERY_STRING'};
+if ($buffer2 ne '') { &error('エラー','標準入力 METHOD=POST でご利用ください.','または、クエリーにデータが検出されました.'); }
+
+
+### デコード
+@pairs = split(/&/,$buffer);
+foreach $pair (@pairs) {
+
+	($name,$value) = split(/=/,$pair);
+	$value =~ tr/+/ /;
+	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+	$name =~ tr/+/ /;
+	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+
+	#&jcode'convert(*name,'jis'); &jcode'convert(*value,'jis');
+	#jcode::convert(*name,'sjis'); jcode::convert(*value,'sjis');
+	#jcode::convert(*name,'jis'); jcode::convert(*value,'jis');
+
+	#from_to($name, 'UTF-8', 'Shift_JIS'); from_to($value, 'UTF-8', 'Shift_JIS');
+	$env = jcode::getcode(*name);
+	if ($name eq "subject") {
+		$env = jcode::getcode(*value);
+	}
+	if ( $env eq "sjis" ) {
+		#from_to($name, 'Shift_JIS', 'UTF-8'); from_to($value, 'Shift_JIS', 'UTF-8');
+		#from_to($name, 'Shift_JIS', 'Shift_JIS'); from_to($value, 'Shift_JIS', 'Shift_JIS');
+		$name = decode('Shift_JIS', $name); $value = decode('Shift_JIS', $value);
+	} else { 
+		#from_to($name, 'UTF-8', 'Shift_JIS'); from_to($value, 'UTF-8', 'Shift_JIS');
+		$name = decode('UTF-8', $name); $value = decode('UTF-8', $value);
+	}
+	$name = encode('Shift_JIS', $name); $value = encode('Shift_JIS', $value);
+
+	#$value =~ s/http/"><s>te&st<\/s>/;#debug用
+
+	if ($value =~ /\r\n/) { $value =~ s/\r//g; } # 改行コードをUNIX(\n)に統一
+	elsif ($value =~ /\r/) { $value =~ s/\r/\n/g; }
+
+	if ($name eq "location") { $lct = &encTag($value); }
+	elsif ($name eq "c_copy" && $value eq "on") { $cc = "on"; }
+	elsif ($name eq "no_check" && $value eq "on") { $nocheck = "on"; }
+	elsif ($name eq "space_check" && $value eq "on") { $spcheck = "on"; }
+	elsif ($name eq "no_check") { ; }
+	elsif ($name eq "ref_url") { $ref_url = &encTag($value); }
+	elsif ($name eq "ref_name") { $ref_name = &encTag($value); }
+	elsif ($name eq "spam_key") { $spam_key = $value; $spam = 1; }
+	elsif ($name eq "subject" && $value ne "") { $subject = $value; }
+	elsif ($name eq "subject") { ; }
+	elsif ($name eq "ref_page") { $ref = &encTag($value); }
+	elsif ($name eq "password") {
+
+		$password = $value;
+		push(@DATA_N,$name);
+		push(@DATA_V,$value);
+	}
+	else {
+		if ($name =~ /^email/i || $name =~ /^e\-mail/i) {
+
+			$value =~ s/　/ /g;
+			if ($value =~ / / || $value =~ /;/) { $value = ""; }
+			if (!($value =~ /(.*)\@(.*)\.(.*)/)) { $value = ""; }
+
+			$email = $value;
+		}
+
+		push(@DATA_N,$name);
+		push(@DATA_V,$value);
+
+		$name = &encTag($name);
+		$value = &encTag($value);
+		push(@DATA_NS,$name);
+		push(@DATA_VS,$value);
+	}
+}
+
+### 入力チェック
+$ref =~ s/\n|\r//g; # 汚染チェック
+$lct =~ s/\n|\r//g; # 汚染チェック
+if (!$mailcheck && $email eq '') { &error('エラー','Ｅメールを入力してください.'); }
+if ($mailcheck && $email eq '') { $email = 'anonymous@on.the.net'; } # メール未記入でも送信する場合の仮メールアドレス
+if ($spcheck eq "on") {	foreach (@DATA_V) { if ($_ eq "") { &error('送信できません','受信者の意向により、全ての項目を埋めないと送信できません.'); } }}
+if ($mailto eq '' || !($mailto =~ /(.*)\@(.*)\.(.*)/)) { &error('設定ミス','受信先メールアドレスが設定されていません.'); }
+if ($spam_base_key eq '' && $spam) { &error('設定ミス','スパムキー用のキーワードが設定されていません.'); }
+if ($spam_base_key ne '' && $spam_base_key ne $spam_key) { &error('送信できません','画面に書かれていることに従ってキーワードを入力してください.'); }
+if ($nocheck eq "on") { &sendmail; } # 確認画面を出さずに送信へ
+
+### 内容確認画面出力
+print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+<h1>内容確認</h1>
+<form method="POST" action="webform_kirari.cgi">
+<blockquote>
+<table border=0 cellpadding=3 cellspacing=3>
+<tr><td bgcolor="#ffcccc"><b><font size=+1>項目</font></b></td><td bgcolor="#ffcccc"><b><font size=+1>内容</font></b></td></tr>
+EOF
+
+$count = @DATA_NS;
+
+foreach (0..$count-1) {
+
+	print "<input type=hidden name=\"$DATA_NS[($_)]\" value=\"$DATA_VS[($_)]\">\n";
+	print "<tr><td bgcolor=\"#ffeedd\">$DATA_NS[($_)] <br></td>";
+
+	if ($DATA_VS[($_)] =~ /\n/) { print "<td bgcolor=\"#ffffff\"><pre>$DATA_VS[($_)]</pre></td></tr>\n"; }
+	else { print "<td bgcolor=\"#ffffff\">$DATA_VS[($_)]</td></tr>\n"; }
+	print "</td></tr>\n";
+}
+
+print "</table></blockquote><p>\n";
+
+print "<input type=hidden name=\"no_check\" value=\"on\">\n";
+print "<input type=hidden name=\"ref_page\" value=\"$ref\">\n";
+
+if ($lct ne "") { print "<input type=hidden name=\"location\" value=\"$lct\">\n"; }
+if ($cc eq "on") { print "<input type=hidden name=\"c_copy\" value=\"on\">\n"; }
+if ($ref_url ne "") { print "<input type=hidden name=\"ref_url\" value=\"$ref_url\">\n"; }
+if ($ref_name ne "") { print "<input type=hidden name=\"ref_name\" value=\"$ref_name\">\n"; }
+if ($subject ne "") { print "<input type=hidden name=\"subject\" value=\"$subject\">\n"; }
+if ($password ne "") { print "<input type=hidden name=\"password\" value=\"$password\">\n"; }
+if ($spam_key ne "") { print "<input type=hidden name=\"spam_key\" value=\"$spam_key\">\n"; }
+
+if ($email eq '' || $email =~ /\,/) { print "<font size=+2><b>メールアドレスを正しく１つ入力しないと送信できません</b></font><p>\n"; }
+else { print "<input type=submit value=\"  送 信  \"><p>\n"; }
+
+print "</form><p><hr>\n";
+print "<i>送信先：<a href=\"mailto:$mailto\">$mailto</a><i>\n";
+print "<p>\n";
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+print "</body></html>\n";
+exit;
+
+sub sendmail {
+
+	$email =~ s/\n//g; # 汚染チェック
+	if (length($email) > 255) { &error('エラー','メールアドレスの長さ制限は255バイトまでです.'); }
+	if ($email =~ /\,/) { &error('エラー','メールアドレスを正しく１つ入力しないと送信できません.'); }
+
+	$subject =~ s/\n//g; # 汚染チェック
+	if (length($subject) > 255) { &error('エラー','メール題名の長さ制限は255バイト(全角はその半分)までです.'); }
+
+	$host = $ENV{'REMOTE_HOST'};
+	$addr = $ENV{'REMOTE_ADDR'};
+	if ($host eq "" || $host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
+
+	if (!(open(OUT,"| $sendmail -t"))) { &error('システム異常','申し訳ありませんが何らかの原因で処理できません.'); }
+
+	print OUT "X-Mailer: WebFORM v4.4 by CGI-RESCUE\n";
+	print OUT "X-HTTP-User-Agent: " . &encTag($ENV{'HTTP_USER_AGENT'}) . "\n";
+	print OUT "X-Remote-host: $host \[$addr\]\n";
+	$Ref = &decTag($ref); print OUT "X-HTTP-REFERER: $Ref\n";
+	print OUT "Errors-To: $mailto\n";
+	print OUT "To: $mailto\n";
+	print OUT "From: $email\n";
+	$Subject = &decTag($subject);
+	$Subject = decode('Shift_JIS', $Subject);
+	$Subject = encode('JIS', $Subject);
+	print OUT "Subject: $Subject\n";
+	print OUT "Date: $date_now\n";
+	print OUT "Content-Transfer-Encoding: 7bit\n";
+	print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";
+
+	$count = @DATA_N;
+	foreach (0..$count-1) {
+
+		if ($DATA_V[$_] =~ /\n/) { &jis("$DATA_N[$_] \n\n$DATA_V[$_]\n"); print OUT "$msg\n\n"; }
+		else { &jis("$DATA_N[$_] \n $DATA_V[$_]"); print OUT "$msg\n\n"; }
+	}
+
+	close(OUT);
+
+	if ($cc eq "on" && $lct ne '') {
+
+		print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+		print "<h1>送信完了</h1>\n";
+		print "ただ今<a href=\"mailto:$mailto\">$mailto</a>宛てに送信された内容は以下の通りです.<br>\n";
+		print "内容の写しとしてお控えください.<p>\n";
+		print "<form>\n";
+		print "<blockquote>\n";
+		print "<textarea cols=70 rows=20>";
+		&cc;
+		print "</textarea></form></blockquote><p>\n";
+		print "<h3>[<a href=\"$lct\" target=\"_top\">入力フォームへ戻る</a>]</h3>";
+	}
+	elsif ($cc eq "on") {
+
+		print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+		print "<h1>送信完了</h1>\n";
+		print "ただ今<a href=\"mailto:$mailto\">$mailto</a>宛てに送信された内容は以下の通りです.<br>\n";
+		print "内容の写しとしてお控えください.<p>\n";
+		print "<form>\n";
+		print "<blockquote>\n";
+		print "<textarea cols=70 rows=20>";
+		&cc;
+		print "</textarea></form></blockquote><p>\n";
+		if ($ref_url ne '' && $ref_name ne '') {  print "<h3>[<a href=\"$ref_url\" target=\"_top\">$ref_name</a>]</h3>"; }
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+		print "</body></html>\n";
+	}
+	elsif ($lct ne '') { print "Location: $lct\n\n"; }
+	else {
+		print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+		print "<H1>送信完了</H1>\n";
+		print "ご記入されたものは<a href=\"mailto:$mailto\">$mailto</a>宛てに電子メールされました.<br>\n";
+		print "Thank you for sending comments to $mailto .<p>\n";
+		if ($ref_url ne '' && $ref_name ne '') {  print "<h3>[<a href=\"$ref_url\" target=\"_top\">$ref_name</a>]</h3>"; }
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+		print "<p></body></html>\n";
+	}
+	exit;
+}
+
+sub cc {
+
+	print "Date: $date_now\n";
+	print "To: $mailto\n";
+	print "Subject: $subject\n\n";
+
+	foreach (0..$count-1) {
+
+		if ($DATA_VS[$_] =~ /\n/) { print "$DATA_NS[$_] \n\n$DATA_VS[$_]\n\n"; }
+		else { print "$DATA_NS[$_] \n $DATA_VS[$_]\n\n"; }
+	}
+}
+
+sub jis {
+
+	$msg = $_[0];
+	local(@msg);
+
+	@msg = split(/\n/,$msg);
+	foreach $i (0..$#msg) {
+
+		if ($msg[$i] eq '.') { splice(@msg,$i,1,'..'); }
+	}
+
+	$msg = join("\n",@msg);
+
+	#&jcode'convert(*msg, 'jis');
+	#&jcode'convert(*msg, 'sjis');
+	#jcode::convert(\$msg, 'jis');
+	#jcode::convert($msg, 'jis');
+
+	from_to($msg,'Shift_JIS', 'JIS');
+	#from_to($msg,'UTF-8', 'JIS');
+
+	#from_to($msg,'Shift_JIS', 'Shift_JIS');
+	#from_to($msg,'UTF-8', 'Shift_JIS');
+	
+#	my $env = jcode::getcode(*msg);
+#	if ( $env eq "sjis" ) {
+#		from_to($msg,'Shift_JIS', 'JIS');
+#	} else { 
+#		from_to($msg,'UTF-8', 'JIS');
+#	}
+
+}
+
+sub encTag {
+
+	local($line) = $_[0];
+	$line =~ s/"/&quot;/g;
+	$line =~ s/</&lt;/g;
+	$line =~ s/>/&gt;/g;
+	$line;
+}
+
+sub decTag {
+
+	local($line) = $_[0];
+	$line =~ s/&quot;/"/g;
+	$line =~ s/&lt;/</g;
+	$line =~ s/&gt;/>/g;
+	$line;
+}
+
+sub error {
+
+	print "Content-type: text/html\n\n";
+print <<"EOF";
+<!doctype html>
+<html>
+<head>
+<meta charset="Shift_JIS">
+<title>$title</title>
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/base.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_header.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/footer.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/second_section.css">
+<link rel="stylesheet" href="http://www.town.kitagata.gifu.jp/kirari/css/third_template.css" >
+<script src="http://www.town.kitagata.gifu.jp/kirari/js/include.js"></script>
+<meta name="google-translate-customization" content="45643f5d79d6e245-283971e7754d7b90-g905c6e6b6867bf2f-2f"></meta>
+</head>
+$body
+<div id="main" class="gothic">
+<!--セクション 操作-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/operation.html");
+</script>
+
+<!--ヘッダーデータ-->
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header.html");
+</script>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/header_public.html");
+</script>
+
+<!--セクション ブロック-->
+<div id="third_body">
+<!--セクション template-->
+<section id="template" >
+<!-- パンくずリスト -->
+<article id="breadcrumb" >
+<div id="breadcrumb_title">
+<div id="breadcrumb_title_block">
+<span id="breadcrumb_title"><a href="../../index.html">トップ</a>><a href="http://www.town.kitagata.gifu.jp/kirari/second/learning_consultation_service_life.html">生涯学習相談窓口</a>>お問い合わせ</span>
+</div>
+</div>
+</article>
+<!-- パンくずリスト ここまで -->
+<article id="template" >
+<div id="template_title" class="gothic">
+<div id="template_title_block">
+<span id="template_title">お問い合わせ</span>
+</div>
+</div>
+<!-- 大タイトルに本文データが無い場合はこのブロックを消す -->
+<span id="template_article_block">
+EOF
+        print "<h1>$_[0]</h1>\n";
+	print "<h3>$_[1]</h3>\n";
+
+	if ($ref eq '') {
+
+		print "※ フォームページが取得できません.<br>\n";
+		print "※ ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
+	}
+	else {
+
+		print "※ フォームページ　<a href=\"$ref\">$ref</a><br>\n";
+		print "※ フォームページへ戻るか、ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
+	}
+
+print "<p>\n";
+print <<"EOF";
+</span>
+<!-- 本文データ ここまで -->
+</article>
+</section>
+</div>
+
+<script type="text/javascript">
+include("http://www.town.kitagata.gifu.jp/kirari/third/learning_consultation_service_life/footer.html");
+</script>
+
+</div>
+EOF
+print "</body></html>\n";
+	exit;
+}

third/business/SME_employment_adjustment_subsidy_project_cost_subsidy.html

@@ -178,7 +178,7 @@
           </div>
           <span id="template_article_block">
             補助金の交付対象期間は、下記のとおり国が定める緊急対応期間とします。<br />
-            令和2年4月1日～令和2年9月30日<br />
+            令和２年４月１日～令和２年１２月３１日<br />
           </span>
         </article>