WWW::Search::Ebay::Stores - backend for searching eBay Stores

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

Index

Code Index:

NAME

Top

WWW::Search::Ebay::Stores - backend for searching eBay Stores

SYNOPSIS

Top

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

DESCRIPTION

Top

This class is a 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

The search is done against eBay Stores items only.

The query is applied to TITLES only.

See WWW::Search::Ebay for a description of the search 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.

Some fixes along the way contributed by Troy Davis.

LICENSE

Top

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

WWW-Search-Ebay documentation Contained in the WWW-Search-Ebay distribution. 
# $Id: Stores.pm,v 1.18 2010-04-25 00:03:52 Martin Exp $


package WWW::Search::Ebay::Stores;

use strict;
use warnings;

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

sub _native_setup_search
  {
  my ($self, $sQuery, $rh) = @_;
  # As of 2004-10-20:
  # http://search.stores.ebay.com/search/search.dll?sofocus=bs&sbrftog=1&catref=C6&socurrencydisplay=1&from=R10&sasaleclass=1&sorecordsperpage=100&sotimedisplay=1&socolumnlayout=2&satitle=star+wars+lego&sacategory=-6%26catref%3DC6&bs=Search&sofp=4&sotr=2&sapricelo=&sapricehi=&searchfilters=&sosortproperty=1&sosortorder=1
  # simplest = http://search.stores.ebay.com/search/search.dll?socurrencydisplay=1&sasaleclass=1&sorecordsperpage=100&sotimedisplay=1&socolumnlayout=2&satitle=star+wars+lego
  # As of 2005-08-29:
  # http://search.stores.ebay.com/search/search.dll?satitle=093624-69602-5
  $rh->{'search_host'} = 'http://search.stores.ebay.com';
  $rh->{'search_path'} = '/search/search.dll';
  $rh->{'satitle'} = $sQuery;
  # Turn off default W::S::Ebay options:
  $self->{_options} = {};
  return $self->SUPER::_native_setup_search($sQuery, $rh);
  } # _native_setup_search

sub _preprocess_results_page_OFF
  {
  my $self = shift;
  my $sPage = shift;
  # print STDERR Dumper($self->{response});
  # For debugging:
  print STDERR $sPage;
  exit 88;
  } # _preprocess_results_page

sub _columns_same_as_base_ebay
  {
  my $self = shift;
  # This is for Stores:
  return qw( paypal bids price enddate );
  } # _columns


1;

__END__