#!/usr/local/bin/perl
#!D:/Perl/bin/perl.exe

# メールアドレス収集ソフトに負担を強いるCGI用perlスクリプト例その1(HTML::Entitiesモジュール未使用)
# HtmlEntity1.pl 2004.07.09 作成：鷹の巣　http://sakaguch.com/

# 目的：不特定多数によるCGIへのメールアドレス書き込みに対して、
# 　　　メールアドレス収集ソフトに収集されにくくするperlスクリプトの例です。
# 参考URL http://ab.jpn.ph/soft/html_rand.html

#■□■ 基本設定 ■□■
# メールアドレスをHTMLエンティティ出力形式に変換する。
# 1＝変換する、0＝変換しない
$mail_entity = 1;

$email ="webmaster\@example.com";
$ename = "管理者名";
#■□■ 基本設定終わり ■□■

print "メールアドレス($email)のリンクをHTMLエンティティ出力形式に変換すると、\n";
$email_link = &email_link ( $email , $ename );
print "$email_link\n";
print "になります。\n\n";

exit;

#----------------------------------------------------#
# メールアドレスのリンクをHTMLエンティティ表示にする #
#----------------------------------------------------#
sub email_link {
	my ( $e_mail , $e_name ) = @_;
	my $mailto;
	if ($mail_entity) {
		$mailto = 'mailto:';
		for ( 0 .. length($e_mail)-1 ) { $mailto .= '&#' . ord ( substr ( $e_mail , $_ , 1 ) ) . ';'; }
	} else {
		$mailto = "mailto:$e_mail";
	}
	return "<a href=\"$mailto\">$e_name</a>";
}