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 : BuyItNow.pm
# $Id: BuyItNow.pm,v 1.16 2013-06-23 18:31:15 martin Exp $ =head1 NAME WWW::Search::Ebay::BuyItNow - backend for searching eBay Buy-It-Now items =head1 SYNOPSIS use WWW::Search; my $oSearch = new WWW::Search('Ebay::BuyItNow'); my $sQuery = WWW::Search::escape_query("jawa"); $oSearch->native_query($sQuery); while (my $oResult = $oSearch->next_result()) { print $oResult->url, "\n"; } =head1 DESCRIPTION This class is a Ebay specialization of 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 The search is done against eBay Buy-It-Now items only. The query is applied to TITLES only. In the resulting WWW::Search::Result objects, the description field consists of a human-readable combination (joined with semicolon-space) of the Item Number; number of bids; and high bid amount (or starting bid amount). =head1 SEE ALSO To make new back-ends, see L<WWW::Search>. =head1 BUGS Please tell the author if you find any! =head1 AUTHOR Martin 'Kingpin' Thurn, C<mthurn at cpan.org>, L<http://tinyurl.com/nn67z>. =head1 LICENSE Copyright (C) 1998-2009 Martin 'Kingpin' Thurn =cut package WWW::Search::Ebay::BuyItNow; use strict; use warnings; use WWW::Search::Ebay; use base 'WWW::Search::Ebay'; our $VERSION = do { my @r = (q$Revision: 1.16 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r }; sub _native_setup_search { my ($self, $sQuery, $rh) = @_; # http://shop.ebay.com/items/_W0QQLHQ5fBINZ1QQLHQ5fIncludeSIFZ1?_nkw=Burkina+Faso+flag&_sacat=0&_fromfsb=&_trksid=m270.l1313&_odkw=Burkina+Faso&_osacat=0 # http://shop.ebay.com/items/_W0QQLHQ5fBINZ1QQLHQ5fIncludeSIFZ1?_nkw=Burkina+Faso+flag $self->{search_host} = q{http://shop.ebay.com}; $self->{search_path} = q{/items/_W0QQLHQ5fBINZ1}; $self->{'_options'} = { '_nkw' => $sQuery, }; return $self->SUPER::_native_setup_search($sQuery, $rh); } # _native_setup_search sub _columns { my $self = shift; return qw( price ); } # _columns 1; __END__
Close