File Coverage

blib/lib/WWW/WikiSpaces.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	31	38.7

package WWW::WikiSpaces;

use strict;
use warnings;
use WWW::Mechanize;

require Exporter;
our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(post);

our $VERSION = '0.01';

sub new() {
	my ($class, $home, $user, $pass) = @_;
	my $self = {
	        mech	=> WWW::Mechanize->new(agent => 'Windows IE 6', cookie_jar => {}),
		home	=> $home,
	        user	=> $user,
		pass	 => $pass
	};

	$self->{mech}->get('http://www.wikispaces.com/');
	$self->{mech}->follow_link(url => 'http://www.wikispaces.com/site/signin');
	$self->{mech}->submit_form(
		form_number => 2,
		fields      => {
			username	=> $self->{user},
			password	=> $self->{pass},
			},
		button => 'go');

	bless $self, $class;
	return $self;
};

sub post($$) {
	my ($self, $title, $text) = @_;

	# go to input title page for new post
	#$self->{mech}->get('http://' . $self->{home} . '.wikispaces.com/');
	$self->{mech}->get('http://' . $self->{home} . '.wikispaces.com/space/page');

	# fill title
	$self->{mech}->form('newpage');
	$self->{mech}->set_fields(page => $title);
	$self->{mech}->click();

	# fill post
	$self->{mech}->form('rte');
	$self->{mech}->set_fields(WikispacesEditorContent => $text, comment => '', tagInput => '');
	$self->{mech}->click_button(value => 'Save');
};

1;

__END__