#!/usr/bin/perl -w

use strict;

Test->start();

package Test;

use lib '/app/tools/common/lib';
use base 'Common::Script';

use lib '/app/tools/bookpub/lib';
use BookPub::RDAS::URL::ProductPrice::Google;

sub _options {
    {
        client_id => {
            short       => 'c',
            description => 'Limit to client id',
            required    => 1,
            parameter   => 'i'
        },
        product_id => {
            short       => 'p',
            description => 'Limit to client id',
            required    => 1,
            parameter   => 'i'
        },
    };
}

sub _process {
    my $self = shift;

    my $url = BookPub::RDAS::URL::ProductPrice::Google->GetURL( productID => $self->param('product_id') );

    if ($url) {
        print "URL: $url\n";
    } else {
        print "No URL found for product ID: " . $self->param('product_id') . "\n";
    }
}