package Mail::SpamAssassin::Plugin::name;

use Mail::SpamAssassin::Plugin;
use strict;
use Socket;

use vars qw(@ISA);
@ISA = qw(Mail::SpamAssassin::Plugin);

sub new {
    my ($class, $mailsa) = @_;

    $class = ref($class) || $class;
    my $self = $class->SUPER::new($mailsa);
    bless ($self, $class);

    $self->register_eval_rule("get_name");

    return $self;
}

sub get_name {
    my ($self,$pms) = @_;
    my $packed_ip = gethostbyname("fubar.localdomain");
    my $ip = '';
    $ip = inet_ntoa($packed_ip) if defined $packed_ip;
            
    Mail::SpamAssassin::Plugin::dbg("gethostbyname: $ip");

    return 0;
}

1;
