view release on metacpan or  search on metacpan

lib/BBS/DiscuzX2.pm  view on Meta::CPAN

        quickforward=>'yes',
        handlekey=>'ls', 
    ];
    my $res = $self->{browser}->post($url, $data);
    return unless($res->is_success);
    $self->{site}  = $opt{site};

    $res = $self->{browser}->get($opt{site}.'forum.php');
    return unless($res->is_success);

    ($self->{formhash}) = $res->decoded_content =~ m/formhash=(\w+)">/s;
    return 1;
}

sub post_thread {
    my ($self, $data) = @_;
    my $url = "$self->{site}forum.php?mod=post&action=newthread&fid=$data->{fid}&extra=&topicsubmit=yes";
    my $res = $self->{browser}->post($url,
        [
            'formhash' => $self->{formhash},
            'message' => $data->{message},