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

# メールアドレス収集ソフトに負担を強いるCGI用perlスクリプト例その2(HTML::Entitiesモジュール使用)
# HtmlEntity2.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 = "管理者名";
#■□■ 基本設定終わり ■□■

use HTML::Entities;

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

print "元に戻すと\n";
decode_entities( $email_link );
print "$email_linkになります。\n";
exit;

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