WWW::Search::Ebay::BySellerID - backend for searching eBay for items offered by a particular seller

WWW-Search-Ebay documentation Contained in the WWW-Search-Ebay distribution.

Index

Code Index:

NAME

Top

WWW::Search::Ebay::BySellerID - backend for searching eBay for items offered by a particular seller

SYNOPSIS

Top

  use WWW::Search;
  my $oSearch = new WWW::Search('Ebay::BySellerID');
  my $sQuery = WWW::Search::escape_query("martinthurn");
  $oSearch->native_query($sQuery);
  while (my $oResult = $oSearch->next_result())
    { print $oResult->url, "\n"; }

DESCRIPTION

Top

See WWW::Search::Ebay for details. The query string must be an eBay seller ID.

This class is an Ebay specialization of WWW::Search. It handles making and interpreting Ebay searches http://www.ebay.com.

This class exports no public interface; all interaction should be done through WWW::Search objects.

NOTES

Top

Searches only for items offered by eBay sellers whose ID matches exactly.

See WWW::Search::Ebay for explanation of the results.

SEE ALSO

Top

To make new back-ends, see WWW::Search.

BUGS

Top

Please tell the author if you find any!

AUTHOR

Top

Martin 'Kingpin' Thurn, mthurn at cpan.org, http://tinyurl.com/nn67z.

LICENSE

Top

Copyright (C) 1998-2009 Martin 'Kingpin' Thurn

WWW-Search-Ebay documentation Contained in the WWW-Search-Ebay distribution. 
# $Id: BySellerID.pm,v 2.11 2010-04-25 00:05:56 Martin Exp $


package WWW::Search::Ebay::BySellerID;

use strict;
use warnings;

use base 'WWW::Search::Ebay';
our
$VERSION = do { my @r = (q$Revision: 2.11 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };

sub _native_setup_search
  {
  my ($self, $sQuery, $rh) = @_;
  $rh->{'MfcISAPICommand'} = 'MemberSearchResult';
  $rh->{'frompage'} = 'itemsbyseller';
  $rh->{'sofindtype'} = '26';
  $rh->{'userid'} = $sQuery;
  # $rh->{'completed'} = 1;  # Also return completed auctions
  # $rh->{'since'} = 30;  # The oldest possible
  # $rh->{'include'} = 1;  # also return bidders email addresses (only
                         # possible if you login)
  $rh->{'fcm'} = 0;  # Whether to return "similar" user ids
  $rh->{'frpp'} = '200';  # Results per page
  $rh->{'submit'} = 'Search';
  # Don't know what the rest are for:
  $rh->{'fcl'} = '3';
  $rh->{'amp;sspagename'} = 'h:h:advsearch:US';
  $rh->{'sacat'} = '-1';
  $rh->{'nojspr'} = 'y';
  $rh->{'catref'} = 'C5';
  $rh->{'from'} = 'R7';
  $rh->{'pfid'} = '0';
  return $self->SUPER::_native_setup_search('', $rh);
  } # _native_setup_search

sub _columns_SAME_AS_PARENT
  {
  my $self = shift;
  # This is for basic USA eBay:
  return qw( paypal bids price enddate );
  } # _columns

1;

__END__