view release on metacpan or  search on metacpan

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

        [
            'formhash' => $self->{formhash},
            'message' => $data->{message},
            'subject' => $data->{subject},
            'usesig' => $data->{use_sig} // 1,
            'allownoticeauthor' => $data->{notice_author} // 1,
            'wysiwyg' => '1',
            'newalbum' => '',
            'posttime' => '',
            'save' => '',
            'uploadalbum' => '',
        ],	
    );

    return unless($res->is_success);

    my ($tid, $pid) = $res->as_string =~ m[action=edit&fid=\d+&tid=(\d+)&pid=(\d+)&]s;
    return {
        tid => $tid,
        pid => $pid, 
        response => $res,