The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WebService::FC2::SpamAPI - FC2 blog spam API client

VERSION

Version 0.02

DESCRIPTION

Clinet for FC2 spam API.

http://seo.fc2.com/spam/

SYNOPSIS

    use WebService::FC2::SpamAPI;

    my $api = WebService::FC2::SpamAPI->new();

    $res = $api->check_url('http://spam.example.com');
    if ( $res->is_spam ) { ....

    @res = $api->get_url_list();

    @res = $api->get_domain_list({ dm => 'foo.example.com' });

FUNCTIONS

new

Constructor.

  my $api = WebService::FC2::SpamAPI->new();

  # use Cache ( see URI::Fetch )
  my $api = WebService::FC2::SpamAPI->new({ cache => $cache_object });

check_url

Check URL for FC2 spam list. Returns WebService::FC2::SpamAPI::Response object.

  # simple check
  $res = $api->check_url('http://xxx.example.com');
  if ( $res->is_spam ) { ....

  # returns detailed data
  # see also http://seo.fc2.com/spam/spamapi.php?m=h
  $res = $api->check_url({ url => 'http://xxx.exampl.com',
                           usid => 0000,
                           data => 1, });
  $res->is_spam;
  $res->usid;     # fc2 userid
  $res->name;     # site name
  $res->comment;  # comment
  # see WebService::FC2::SpamAPI::Response

get_url_list

Get registered spam URL list. Returns WebService::FC2::SpamAPI::Response list.

  @res = $api->get_url_list();

  @res = $api->get_url_list({ usid => 0000 }); # grep by userid

get_domain_list

Get registered spam URL list in domain. Returns WebService::FC2::SpamAPI::Response list.

  @res = $api->get_domain_list({ dm => 'example.com' }); # dm is required.

  @res = $api->get_domain_list({
     dm   => 'example.com',
     usid => 0000,    # grep by userid
  });

SEE ALSO

URI::Fetch, WebService::FC2::SpamAPI::Response, http://seo.fc2.com/spam/

AUTHOR

FUJIWARA Shunichiro, <fujiwara at topicmaker.com>

COPYRIGHT & LICENSE

Copyright 2007 FUJIWARA Shunichiro, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.