Posting on a site using mechanize

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;
[download]

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>
[download]

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

Replies are listed 'Best First'.
Re: Posting on a site using mechanize by Anonymous Monk on Aug 15, 2012 at 11:03 UTC
What is the problem? Use a full browser and find out :) Use http://WireShark.org or LiveHTTPHeaders to figure out what works from the browser and send something like that using Mechanize ( you can automate this using HTTP::Recorder, Web Testing with HTTP::Recorder ) ,... or use WWW::Mechanize::Firefox, it drives firefox underneath	[reply]
Re^2: Posting on a site using mechanize by cesapun (Acolyte) on Aug 15, 2012 at 11:24 UTC
Hmmm....this means that's something wrong with my code? I'm fairly new to perl language.:)	[reply]
Re^3: Posting on a site using mechanize by Anonymous Monk on Aug 15, 2012 at 11:29 UTC
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 :)	[reply]
Re^4: Posting on a site using mechanize by cesapun (Acolyte) on Aug 15, 2012 at 11:44 UTC
Re^4: Posting on a site using mechanize by cesapun (Acolyte) on Aug 15, 2012 at 11:38 UTC
Re^5: Posting on a site using mechanize by Anonymous Monk on Aug 15, 2012 at 11:44 UTC
Some notes below your chosen depth have not been shown here
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');` [download] and paste it over `$mech->click();` [download]	[reply] [d/l] [select]
Re^2: Posting on a site using mechanize by cesapun (Acolyte) on Aug 15, 2012 at 12:48 UTC
Ehh.....i have just build another site and now it works. Thanks anyway.Close this topic.	[reply]

Back to Seekers of Perl Wisdom