NAME

SomethingAwful::Forums

SYNOPSIS

use Modern::Perl;
use SomethingAwful::Forums;
use Data::Dumper;

my $SA = SomethingAwful::Forums->new;

$SA->login(
    'username' => 'something',
    'password' => 'awful',
);

my $scraped_thread = $SA->fetch_posts( 
    thread_id => 3343753, 
    pages     => 1, 
);

# view the data structure
say Dumper( $scraped_thread ); 

$SA->reply_to_thread( thread_id => 3343753, 'gas' );

DESCRIPTION

Scrape and post to the forums.SomethingAwful.com forums.

See /examples folder.

INSTALLATION

# install everything needed by the SomethingAwful::Forums module + examples
cpanm --with-recommends git://github.com/ugexe/SomethingAwful--Forums.git

OBJECTS

index_scraper

Web::Scraper scraper for scraping forum's index page.

forum_scraper

Web::Scraper for scraping a specific forum.

thread_scraper

Web::Scraper for scraping specific thread.

base_url

Contains the URL of the forum index. Allows use of an IP address if DNS fails to resolve.

mech

WWW::Mechanize object used internally to navigate web pages.

logged_in

Returns 1 if it successfully logged in.

METHODS

login

$SA->login( username => $username, password => $password )

Login to forums using passed credentials.

reply_to_thread

$SA->reply_to_thread( thread_id => $thread_id, body => $body )

Reply to a specific thread

reply_to_post

$SA->reply_to_post( post_id => $post_id, body => $body )

Reply to a specific post.

fetch_forums

$SA->fetch_forums

Return a hashref representing the scraped forum index.

fetch_threads

$SA->fetch_threads( forum_id => $forum_id, pages => [1,2] )

Return a hashref repsenting the threads scraped from the supplied pages of the supplied forum id.

fetch_posts

$SA->fetch_posts( thread_id => $forum_id, pages => [1,2] )

Return a hashref repsenting the posts scraped from the supplied pages of the supplied thread id.

AUTHOR

ugexe

LICENSE

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