How to Post s Comment in Perl?

P3kPerl has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to Post s Comment in Perl? by marto (Cardinal) on Mar 05, 2012 at 16:16 UTC
Firstly, this is hardly a "Perl Exploit", secondly it seems you're trying to spam someone via one method or another. I for one won't be helping you with that, I'm not sure anyone else will either.	[reply]
Re^2: How to Post s Comment in Perl? by jfroebe (Parson) on Mar 05, 2012 at 16:37 UTC
I could see a valid use for such a script.. An internal website where a status of some operation is posted. It would be handy if you were say, backing up a 3TB database and getting a notification of X many GB successfully written to tape/disk. There could be other valid reasons.. but nothing comes to my caffeine addicted brain. Jason L. Froebe Blog, Tech Blog	[reply]
Re^3: How to Post s Comment in Perl? by marto (Cardinal) on Mar 05, 2012 at 16:41 UTC
Many of us will have written a program to automate something at one stage, obviously there are valid reasons for doing such things. From the wording of this post I don't think this is one of them. Update: By this I mean the message text "Perl Exploit WORKED BABE!", the email "Awesome@exploit.com", it just looks typical of (in this case wanna be) script kiddie nonsense.	[reply]
Re^3: How to Post s Comment in Perl? by stonecolddevin (Parson) on Mar 05, 2012 at 16:43 UTC
Minus the fact that it has "Perl exploit" blatantly included in the POST data. Three thousand years of beautiful tradition, from Moses to Sandy Koufax, you're god damn right I'm living in the fucking past	[reply]
Re: How to Post s Comment in Perl? by CountZero (Bishop) on Mar 05, 2012 at 16:48 UTC
I'd suggest you have a look at one of the WWW.Mechanize modules. They allow "higher level" interaction with websites and take care of all the low-level things such as headers and so. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James My blog: Imperial Deltronics	[reply]
Re^2: How to Post s Comment in Perl? by Anonymous Monk on Mar 05, 2012 at 18:06 UTC
Good work, while you're at it you should visit this page and fill in a message on the guest book, saying you helped some jerk spam their page. While you're at it, there's some pick pockets at the mall who need your help spotting marks.	[reply]
Re^3: How to Post s Comment in Perl? by aaron_baugher (Curate) on Mar 05, 2012 at 18:55 UTC
If he's smart enough to use WWW::Mechanize successfully, I don't think simply not knowing the name of a module would hold him back for long. Aaron B. My Woefully Neglected Blog, where I occasionally mention Perl.	[reply]
Re^4: How to Post s Comment in Perl? by Anonymous Monk on Mar 05, 2012 at 22:56 UTC
Re^3: How to Post s Comment in Perl? by CountZero (Bishop) on Mar 05, 2012 at 22:45 UTC
And I am sure you are a great supporter of "security through obfuscation" too. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James My blog: Imperial Deltronics	[reply]
Re^4: How to Post s Comment in Perl? by Anonymous Monk on Mar 05, 2012 at 22:58 UTC
Re: How to Post s Comment in Perl? by tobyink (Canon) on Mar 05, 2012 at 20:39 UTC
The PeerAddr passed to IO::Socket::INET needs to be a host name or IP address. Not a URL. But you seem to be using an altogther wrong layer of abstraction. Perl provides tonnes of awesome modules for dealing with HTTP and the Web, so why diddle around with stuff at the TCP/IP level? `use Web::Magic -sub => 'web'; web('http://members.sitegadgets.com/scripts/signbook.cgi') -> POST({ sgchecksum => 554, username => 'sony10' 1 => 'Perl Exploit WORKED BABE!', 2 => 'Awesome@exploit.com', 3 => 'Perl Exploit WORKED BABE!', }) -> Referer('http://members.sitegadgets.com/sony10/signbook.html') -> User_Agent('Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7; rv:9.0.1 +) Gecko/20100101 Firefox/9.0.1') -> assert_success -> assert_type(qw[text/html application/xhtml+xml]) -> do_request;` [download]	[reply] [d/l]
Re^2: How to Post s Comment in Perl? by Anonymous Monk on Mar 05, 2012 at 23:47 UTC
Web::Magic, its for trolls and spammers too :p	[reply]