Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
WWW /
Search /
Ebay /
[ HOME SHELL ]
Name
Size
Permission
Action
Auctions.pm
588
B
-rw-r--r--
BuyItNow.pm
2.11
KB
-rw-r--r--
ByEndDate.pm
5.87
KB
-rw-r--r--
BySellerID.pm
2.8
KB
-rw-r--r--
Category.pm
3.17
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Category.pm
=head1 NAME WWW::Search::Ebay::Category - backend for returning entire categories on www.ebay.com =head1 SYNOPSIS use WWW::Search; my $oSearch = new WWW::Search('Ebay::Category'); # Category 1381 is Disney Modern Premiums: $oSearch->native_query(1381); while (my $oResult = $oSearch->next_result()) { print $oResult->url, "\n"; } =head1 DESCRIPTION This class is a Ebay specialization of L<WWW::Search>. It handles making and interpreting Ebay searches F<http://www.ebay.com>. This class exports no public interface; all interaction should be done through L<WWW::Search> objects. =head1 NOTES Returns the "first" 200 *auction* 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 L<WWW::Search::Ebay> for a description of the results. =head1 METHODS =cut ##################################################################### package WWW::Search::Ebay::Category; use strict; use warnings; use Carp; use Date::Manip; use base 'WWW::Search::Ebay'; our $VERSION = 2.611; our $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 $self->{_options} = { _ipg => 200, _sacat => $native_query, }; return $self->SUPER::_native_setup_search($native_query, $rhOptsArg); } # _native_setup_search sub _get_result_count_elements { my $self = shift; my $tree = shift; my @ao; push @ao, $tree->look_down( _tag => 'h2', class => 'srp-controls__count-heading', ); return @ao; } sub _get_itemtitle_tds { my $self = shift; my $tree = shift; printf STDERR (" TTT this is Category::_get_itemtitle_tds") if (1 < $self->{_debug}); my @ao; push @ao, $tree->look_down(_tag => 'div', class => 's-item__image-section', ); printf STDERR (" DDD found %d itemtitle tags", scalar(@ao)) if (1 < $self->{_debug}); return @ao; } # _get_itemtitle_tds 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; =head1 SEE ALSO To make new back-ends, see L<WWW::Search>. =head1 CAVEATS =head1 BUGS Please tell the author if you find any! =head1 AUTHOR Maintained by Martin Thurn, C<mthurn@cpan.org>, L<http://www.sandcrawler.com/SWB/cpan-modules.html>. =head1 LEGALESE Copyright (C) 1998-2009 Martin 'Kingpin' Thurn 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. =cut __END__
Close