# bloc data get 
# author : qux@hauN.org

package QUX::GetBloc;

use strict;
use Jcode;
use LWP::UserAgent;
use HTTP::Request::Common;

sub new {
    my $class = shift;
    my $client = bless { }, $class;
    $client->init(@_);
    $client;
}

sub init {
    my $client = shift;
    my $param = @_;
    $client->{ua} = LWP::UserAgent->new;
    $client->{ua}->agent('QUX::GetBloc/' . qq$Revision: 1.2 $);
    $client;
}

sub getEntry {
    my $client = shift;
    my ($url) = @_;
    my $req = HTTP::Request->new(GET => $url);
    my $res = $client->{ua}->request($req);
    
    if ( $res->code == 200 ) {
	my $lines = $res->content;
	$lines =~ s/[\r\n]//g;
	$lines =~ s/.*-sidebar-->//;
	my @buffers = split(/<\/tr>/, $lines);
	foreach my $line ( @buffers ) {
	    my @columns = $line =~ m|<tr><td class="cat">(.*?)</td><td class="date">(.+?)</td><td class="title">(.+?)</td><td>(.+?)</td>|;
	    if ( @columns ) {
		my ($cat, $date, $title, $content) = @columns;
		$content =~ s/<div class="urlHead">.+<\/div><!--urlHead-->//;
		my @contents = split(/-->/, $content);
		my $catalog;
		foreach my $content_one ( @contents ) {
		    $content_one =~ s/<!--[a-zA-Z]+$//;
		    my $rawstr = $content_one;
		    $rawstr =~ s/<br>/\n/g;
		    $rawstr =~ s/<.+?>//g;
		    my ($name) = $content_one =~ /<div class="(.+?)">/;
		    if ( $name eq "operate" ) {
			# あまぞんリンク
			if ( $content_one =~ m|amazon.co.jp/exec/obidos/ASIN/(.+?)/|) {
			    $catalog->{asin} = $1;
			}
		    } elsif ( $name eq "content" ) {
			# ナニカの内容
			$catalog->{content} = $rawstr;
		    } elsif ( $name eq "urlList" ) {
			# 関連URL
			my @links = split (/<\/li>/, $content_one);
			foreach ( @links ) {
			    if ( m|(<a href="http://.+?".*?>.+?</a>)| ) {
				my $Link = $1;
				if ( $Link =~ m|amazon.co.jp/exec/obidos/ASIN/(.+?)/|) {
				    $catalog->{asin} = $1;
				    $Link =~ s/bloc-22\///g;
				}
				push @{$catalog->{urlList}}, $Link;
			    }
			}
		    } elsif ( $name eq "atAndTime" ) {
			# 時と場所
			my ($area) = $content_one =~ /<span class="area">(.+?)<\/span/;
			if ( defined($area) ) {
			    $catalog->{area} = $area;
			}
			$content_one =~ s/<span class="area">.+?<\/span>//;
			$content_one =~ s|<a href="/|<a href="http://www.bloc.jp/|;
			$content_one =~ s|</?div.*?>||g;
			$catalog->{at} = $content_one;
		    }
		}
		$title =~ s/<.+?>//g;
		$date =~ s|<span class="today">.+?</span>||g;
		$date =~ s/<.+?>//g;
		$content =~ s/<img.+?>//g;
		$catalog->{category} = $cat;
		$catalog->{date} = $date;
		$catalog->{title} = $title;
#		print "{$cat] $date $title\n";
		push @{$client->{entries}}, $catalog;
	    }
	}
	return $client->{entries};
    } else {
	$client->error("Status:" . $res->status_line."\n");
    }
}

sub error {
    my $client = shift;
    my $line = shift;
    print STDERR "$line\n";
}
1;
__END__