WWW::Scraper::ISBN::TWPchome_Driver - Search driver for TWPchome's online catalog.

# ex:ts=8

package WWW::Scraper::ISBN::TWPchome_Driver;

use strict;
use warnings;

use vars qw($VERSION @ISA);
$VERSION = '0.01';

#--------------------------------------------------------------------------

#--------------------------------------------------------------------------

###########################################################################
#Library Modules                                                          #
###########################################################################

use WWW::Scraper::ISBN::Driver;
use WWW::Mechanize;
use Template::Extract;

use Data::Dumper;

###########################################################################
#Constants                                                                #
###########################################################################

use constant	QUERY	=> 'http://ec2.pchome.com.tw/adm/search.htm?search_word=202&search_prod=008&getkey=%s';

#--------------------------------------------------------------------------

###########################################################################
#Inheritence                                                              #
###########################################################################

@ISA = qw(WWW::Scraper::ISBN::Driver);

###########################################################################
#Interface Functions                                                      #
###########################################################################

sub search {
	my $self = shift;
	my $isbn = shift;
	$self->found(0);
	$self->book(undef);

	my $url = sprintf(QUERY, $isbn);
	my $mechanize = WWW::Mechanize->new();
	$mechanize->get($url);
	return undef unless($mechanize->success());

	# The Search Results page
	my $template = <<END;
°Ó«~¦WºÙ[% ... %]<strong><a href="[% book %]">
END

	my $extract = Template::Extract->new;
	my $data = $extract->extract($template, $mechanize->content());

	return $self->handler("Could not extract data from TWPchome result page.")
		unless(defined $data);

	$data->{book} =~ s/^\.\.\///;
	my $book = "http://ec2.pchome.com.tw/".$data->{book};

	$mechanize->get($book);

	$template = <<END;
<!--©ïÀY¦æ¾P®×¦r-->[% ... %]
<b style='font-size:24px'><font color='000000'>[% title %]</font>[% ... %]
<!--¦æ¾P®×°Ó«~¹Ï-->[% ... %]
<img src=[% image_link %]>[% ... %]
<!--ÀW¹D³W®æ-->[% ... %]
§@ªÌ¡G[% author %]<br>[% ... %]
¥Xª©ªÀ¡G[% publisher %]<br>[% ... %]
­¶¼Æ¡G[% pages %]<br>[% ... %]
ªìª©¤é¡G[% pubdate %]<br>[% ... %]
ISBN¡G[% isbn %] <br>[% ... %]
©w»ù[% ... %]<s>[% price_list %]</s>[% ... %]
¯S»ù[% ... %]'>[% price_sell %]</font>
END

	$data = $extract->extract($template, $mechanize->content());

	return $self->handler("Could not extract data from TWPchome result page.")
		unless(defined $data);

	$data->{title} =~ s/^\s*//;
	$data->{title} =~ s/\s*$//;
	$data->{price_list} =~ s/\$//;

	my $bk = {
		'isbn'		=> $data->{isbn},
		'title'		=> $data->{title},
		'author'	=> $data->{author},
		'pages'		=> $data->{pages},
		'book_link'	=> $book,
		'image_link'	=> $data->{image_link},
		'pubdate'	=> $data->{pubdate},
		'publisher'	=> $data->{publisher},
		'price_list'	=> $data->{price_list},
		'price_sell'	=> $data->{price_sell},
	};

	$self->book($bk);
	$self->found(1);
	return $self->book;
}

1;
__END__