#
# SetIP
# 2005/10/25 1.00 First Version
#
# Copyright(c) 2005 By H.Fujimoto
#

package MT::Plugin::SetIP;

use strict;

use MT::JunkFilter qw(ABSTAIN);
use CGI;
use base 'MT::Plugin';

my $plugin = MT::Plugin::SetIP->new({
    name => 'Set IP',
    description => "Set IP address of comment",
    version => '1.00',
    author_name => 'Hajime Fujimoto',
    author_link => 'http://www.h-fj.com/blog/'
});
MT->add_plugin($plugin);
MT->register_junk_filter({
    name => $plugin->name,
    plugin => $plugin,
    code => sub { $plugin->score(@_) },
});

sub score {
    my ($plg, $obj) = @_;

    my $query = new CGI;
    my $value = $query->param('srcip');

    if ($value) {
        $obj->ip($value);
    }
    ABSTAIN;
}

1;