Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

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
[LanX]: belg4mit: thanks for fixing your CB log!

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2018-06-23 15:01 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.