Hi I need a perl script to enter the contact form for a user such as this, on ebay,
http://feedback.ebay.com/ws1/eBayISAPI.dll?ViewFeedback&userid=phildevon&item=5714621736&iid=5714621736&frompage=222
.. just as if "Contact Member" was selected from a browser.
then, send them a message, (ie: for if someone wins one of my
auctions, to automatically send them shipping details or ask for
payment if a few days pass after the auction) here
http://contact.ebay.com/ws1/eBayISAPI.dll
.. which is refered from the previous page.
This script, I found on google, logs me in,
#!/usr/bin/perl
use LWP;
use HTTP::Request::Common;
use HTTP::Cookies;
$userid = 'userid';
$pass = 'password';
$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file=>'lwp-cookies',autosave=>1));
$req=$ua->request(GET 'http://cgi3.ebay.com/aw-cgi/eBayISAPI.dll?SignIn');
$req=$ua->request(POST 'http://cgi3.ebay.com/aw-cgi/eBayISAPI.dll',
[
'MfcISAPICommand' => 'SignInWelcome',
'siteid' => 0,
'co_partnerId' => 2,
'UsingSSL' => 0,
'ru' => '',
'pp' => '',
'pa1' => '',
'pa2' => '',
'pa3' => '',
'i1' => -1,
'pageType' => 559,
'userid' => $userid,
'pass' => $pass,
]);
.., but when I try a similar POST, based on the parameter settings I
see in the source output from my browser, it does not "contact user"
$req=$ua->request(POST 'http://feedback.ebay.com/wsi1/eBayISAPI.dll',
[
'MfcISAPICommand' => 'ReturnUserEmail',
'requested' => 'phildevon',
'frm' => 279,
'iid' => -1,
'de' => 'off',
'redirect' => 0,
'contactsubmit' => 'Contact Member',
]);
Thanks,
Matt |