Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Posting on a site using mechanize

by cesapun (Acolyte)
on Aug 15, 2012 at 10:44 UTC ( #987530=perlquestion: print w/replies, xml ) Need Help??
cesapun has asked for the wisdom of the Perl Monks concerning the following question:

Hello !

So,i have this code

#!/usr/bin/perl -w use strict; use warnings; use WWW::Mechanize; my $torrent_name = "Unmechanical-TiNYiSO"; my $cat = "Games"; my $mech = WWW::Mechanize->new( autocheck => 1);#Initializes WWW::Mech +anize ##############PRINT ON ESTORRENTS########### print "[INFO] Posting on ESTorrents!\n"; $mech->get(""); $mech->submit_form( form_id => 'addCommentForm'); $mech->field('name' , 'test'); $mech->field('body' , 'lol'); $mech->field('category' , 'Category:'); $mech->click(); print "[INFO] All Finished!\n"; #Alerts The User my $e = $mech->content(format => 'text'); print $e;

but is does not seems to work

This is the source code from that site:

<div id="addCommentContainer"> <p>Add a Torrent</p> <form id="addCommentForm" method="post" action=""> <div> <label for="name">Info</label> <input type="text" name="name" id="name" /> <label for="body">Torrent Name</label> <textarea name="body" id="body" cols="20" rows="5"></texta +rea> <label for="cat">Category</label> <input type="text" name="category" id="category" /> <input type="submit" id="submit" value="Submit" /> </div> </form> </div>

What is the problem?Because after running that script,nothing appears on that site.

Replies are listed 'Best First'.
Re: Posting on a site using mechanize
by Anonymous Monk on Aug 15, 2012 at 11:03 UTC

      Hmmm....this means that's something wrong with my code?

      I'm fairly new to perl language.:)

        Hmmm....this means that's something wrong with my code?


        You're talking to a space-alien (random website), and those are usually tested using browser like firefox...

        so if it works with firefox, all you have to do is get your program to talk using the same accent and everything (http headers...)

        Unless you have an error message to report :)

Re: Posting on a site using mechanize
by Anonymous Monk on Aug 15, 2012 at 12:09 UTC
    $mech->submit_form( form_id => 'addCommentForm');
    and paste it over

      Ehh.....i have just build another site and now it works.

      Thanks anyway.Close this topic.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://987530]
Approved by Corion
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (2)
As of 2017-08-18 01:49 GMT
Find Nodes?
    Voting Booth?
    Who is your favorite scientist and why?

    Results (294 votes). Check out past polls.