# fakenames plugin for SpamAssassin: checks for obviously made-up names
# Adam Sampson <ats@offog.org>
package FakeNames;
use strict;
use Mail::SpamAssassin;
use Mail::SpamAssassin::Plugin;
our @ISA = qw(Mail::SpamAssassin::Plugin);
sub new {
	my ($class, $mailsa) = @_;
	$class = ref($class) &#124;&#124; $class;
	my $self = $class->SUPER::new($mailsa);
	bless ($self, $class);
	$self->register_eval_rule("name_in_subject");
	return $self;
}
# Look for first name in subject line ("hi it's Lea")
sub name_in_subject {
	my ($self, $permsgstatus) = @_;
	my $name = $permsgstatus->get('From:name');
	my $subject = $permsgstatus->get('Subject');
	$name =~ s/^\s*(\S+).*$/1ドル/;
	if ($name ne '' and index($subject, $name) != -1) {
		return 1;
	}
	return 0;
}
1;
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://offog.org/git/misccode/fakenames.pm">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://offog.org/git/misccode/fakenames.pm" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>