CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Need a Custom or Prewritten Perl Program?: I need a program that...:
adds an image/banner to auction sites

 



Pantheus
Deleted

Aug 26, 2000, 12:51 AM

Post #1 of 3 (1021 views)
adds an image/banner to auction sites Can't Post

I'm seeking a script that with one click, can go to an online auction site (eBay, for example), find that users open auctions page listing, and add an image/banner to each of the pages, that have open auctions.

Think membership situation, where a member would want to add the Association logo to each of their open auctions.

I have seen this done, in a couple places, and can't sniff out how it's done, nor do it myself.

have own server, Linux/perl5/cgi-bin


j0k3r
Deleted

Aug 28, 2000, 10:24 PM

Post #2 of 3 (1021 views)
Re: adds an image/banner to auction sites [In reply to] Can't Post

This is a quick script that I use to get the auction numbers of the items I'm selling on ebay. It's a start to your script. The rest of your script can be done using more of the LWP mod. It is just automating form submission. You’re just bypassing the log in form and sending the variables need straight to the CGI program. If I have time I will dig up an example for you.

~JpT~

#!/usr/bin/perl

use LWP::UserAgent;

# Variables
$user="***your ebay user name***";

print getauctions($user);
exit;

sub getauctions {
my $user=$_[0];
my ($hdrs, $url, $req, $ua, $resp, @shtemp, $temp, @stemp, $id, @html);
$hdrs = new HTTP::Headers(Accept => 'text/plain',User-Agent => 'JpTools 1.0');
$url = new URI::URL("http://cgi6.ebay.com/aw-cgi/eBayISAPI.dll?ViewListedItems&userid=$user&include=0&since=-1&sort=2");
$req = new HTTP::Request(GET, $url, $hdrs);
$ua = new LWP::UserAgent;
$resp = $ua->request($req);
if ($resp->is_success) {
@shtemp=split/\n/,$resp->content;
foreach $temp (@shtemp) {
if ($temp=~/eBayISAPI\.dll\?ViewItem/) {
$temp=~s/<tr><td>//g;
$temp=~s/>.*/>/g;
@stemp=split/=/,$temp;
$id=$stemp[2];
$id=~s/">//g;
push (@html,$id);
}
}
}
else {
print "Error accessing ebay";
exit;
}
return @html;
}


Pantheus
Deleted

Aug 28, 2000, 10:47 PM

Post #3 of 3 (1021 views)
Re: adds an image/banner to auction sites [In reply to] Can't Post

Thanks!

Since you understand the problem(s) would you for a FEE deliver a completed script, including input GUI ?

I have a set of rough specs.

pantheus@spamcop.net

[This message has been edited by Pantheus (edited 08-29-2000).]

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives