view release on metacpan or  search on metacpan

examples/ebay/eBay.pm  view on Meta::CPAN

package AAA::eBay;

use strict;
use warnings;
use Apache::Constants qw( :common );
use Apache::FastForward;
use Apache::FastForward::Spreadsheet;
use Net::eBay;
use Socket;

# This fakes some catalogue numbers and internal registration&mapping of eBay-IDs
my %books = (   'L1B215' =>{ ebay_id => '110019678243', titel => 'Blood Meridian : Or the Evening Redness in the West by Cormac Mccarthy', price => 5, quantity => 5 },
		'L1B226' =>{ ebay_id => '110019678242', titel => 'As I Lay Dying  by William Faulkner', price => 10, quantity => 3 },
		'L1B237' =>{ ebay_id => '110019678245', titel => 'The Great Gatsby by F. Scott Fitzgerald', price => 7, quantity => 10 },
		'L1B311' =>{ ebay_id => '110019678241', titel => 'The Portrait of a Lady  by Henry James', price => 9, quantity => 3 },
		'L1B119' =>{ ebay_id => '110019678192', titel => 'The Adventures of Huckleberry Finn  by Mark Twain', price => 5, quantity => 15 });

sub handler {
    
    my $r = Apache::FastForward->new( shift );

    $r->send_http_header( 'text/plain' );

    # Template initialisation
    my $sheet = tie my %sheet, 'Apache::FastForward::Spreadsheet';
    my %csv_atr = (
        'quote_char'  => '"',
        'escape_char' => '"',
        'sep_char'    => ';',
        'binary'      => 1 );
    
     
    $sheet->LoadTemplate( '/var/www/ebay/FF4eBay-tmpl--v4.csv', \%csv_atr);

    # If IP numbers in a sheet are used (eg for testing with VMware and/or dhcp) 
    # it can spare updating the template each time a dhcp lease ends
    my $c = $r->connection();
    my $local_addr = $c->local_addr();
    my ($local_port, $local_ip) = Socket::sockaddr_in( $local_addr );
    $local_ip = Socket::inet_ntoa( $local_ip );
    $sheet{'B1'} = 'http://'.$local_ip.'/ebay';
    
    # The Start of Everything ~{;-)
    $r->ParseBody();
    
    # Is the right table inside?
    unless ( $r->IsDefinedTable( 'item', 'check' ) ){

	    print $sheet->DumpAsCSV( \%csv_atr );
	    return OK
    }

    # Are the values in the tabel within of a correct range?
    my @item_check_table = $r->GetTable( 'item', 'check' );
    my $system_message = '***';
    foreach my $row ( @item_check_table ){

	    unless ( defined( $books{$row->{item}} ) or $row->{item} eq ''){
	        $system_message .= ' The item "'.$row->{item}.'" does not exist '.'***'
	    }
    }

    unless ( $system_message =~ /^\*\*\*$/ ){

	$sheet{'C12'} = $system_message;
        print $sheet->DumpAsCSV( \%csv_atr );
	
	return OK
    }
    
    # Downloading the eBay prices...
    
    # eBay-API access expiration: 2008-10-25 07:29:01
    my $eBay = new Net::eBay( {
                              SiteLevel => 'dev',
                              DeveloperKey => 'K5C16E838BG13GLOPFFKU966JFK12D',
                              ApplicationKey => 'JERZYWACHOH4S5X99K418JJ1298BH8',
                              CertificateKey => 'T48W813V3EK$SM4AE2VE1-RD3AY168',
                              Token => 'AgAAAA**AQAAAA**aAAAAA**veA6Rg**nY+sHZ2PrBmdj6wVnY+sEZ2PrA2dj6wFk4CnDJCAoQ6dj6x9nY+seQ**uK0AAA**AAMAAA**ftgjtxOWDHk4YDlxQFfmJM6YZOmUvW4+IFi1fFQGBOuFQqibA6vL48n82pgxD0R3gY4e/Y7Ry5H6P6IDMOX8Obr8JW2XQ/KM47WUPiJ199...
                             } );

    $eBay->setDefaults( { API => 2 } );

    my $result = $eBay->submitRequest( "GetSellerTransactions",
                                     {
                                      ModTimeFrom => '2007-05-18T00:00:00.463Z',
				      ModTimeTo => '2007-05-19T00:00:00.463Z'
                                     }