Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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("http://estorrents.site40.net/demo.php"); $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.

Comment on Posting on a site using mechanize
Select or Download Code
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?

        Kinda.

        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
    Cut
    $mech->submit_form( form_id => 'addCommentForm');
    and paste it over
    $mech->click();

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

      Thanks anyway.Close this topic.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://987530]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2014-07-10 23:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (217 votes), past polls