WWW::Search::Ebay::Completed::Category - backend for returning entire categories of completed auctions on www.ebay.com

WWW-Ebay documentation

Contained in the WWW-Ebay distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
NOTES
METHODS
SEE ALSO
CAVEATS
BUGS
AUTHOR
LEGALESE

Code Index:

package WWW::Search::Ebay::Completed::Category
__END__
EOF

NAME

WWW::Search::Ebay::Completed::Category - backend for returning entire categories of completed auctions on www.ebay.com

SYNOPSIS

  use WWW::Search;
  my $oSearch = new WWW::Search('Ebay::Completed::Category');
  # Category 35845 is Disney Modern Bottles:
  $oSearch->native_query(35845);
  $oSearch->login('ebay_username', 'ebay_password');
  while (my $oResult = $oSearch->next_result())
    { print $oResult->url, "\n"; }

DESCRIPTION

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

Returns the "first" 200 completed items in the given category. I'm not sure what exactly "first" means in this case; YMMV.

It is up to you to determine the number of the category you want.

See the NOTES section of WWW::Search::Ebay for a description of the results.

METHODS

SEE ALSO

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

CAVEATS

BUGS

Please tell the author if you find any!

AUTHOR

Maintained by Martin Thurn, mthurn@cpan.org, http://www.sandcrawler.com/SWB/cpan-modules.html.

LEGALESE

THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.

WWW-Ebay documentation

Contained in the WWW-Ebay distribution.

# $Id: Category.pm,v 1.2 2009/01/22 03:40:57 Martin Exp $

#####################################################################

package WWW::Search::Ebay::Completed::Category;

use strict;
use warnings;

use Carp;
use base 'WWW::Search::Ebay::Completed';

our
$VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };

my $MAINTAINER = 'Martin Thurn <mthurn@cpan.org>';

use constant DEBUG_FUNC => 0;

sub _native_setup_search
  {
  my ($self, $native_query, $rhOptsArg) = @_;
  $rhOptsArg ||= {};
  unless (ref($rhOptsArg) eq 'HASH')
    {
    carp " --- second argument to _native_setup_search should be hashref, not arrayref";
    return undef;
    } # unless
  # As of Jan. 2009:
  # http://completed.shop.ebay.com/items/__W0QQLHQ5fCompleteZ1?_ipg=200&_sacat=1381
  $self->{'search_host'} = 'http://completed.shop.ebay.com';
  $self->{search_path} = q{/items/__W0QQLHQ5fCompleteZ1};
  $self->{_options} = {
                       _ipg => 200,
                       _sacat => $native_query,
                      };
  return $self->SUPER::_native_setup_search($native_query, $rhOptsArg);
  } # _native_setup_search


sub _preprocess_results_page_OFF
  {
  my $self = shift;
  my $sPage = shift;
  # For debugging:
  print STDERR $sPage;
  exit 88;
  } # preprocess_results_page

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

1;

__END__