#!/usr/bin/perl
use Encode;

$base = "http://www.horobi.com/hatena";
my $super_pre_mode = 0;
my $tw_mode = 0;
my $tw_profile_mode = 0;
my %tw_last_sid = {};

while(<>){
    if ($super_pre_mode) {
	if (/^||<$/) {
	    $super_pre_mode = 0;
	}
	print $_;
	next;
    } 
    if (/^>\|[^|]*\|$/) {
	$super_pre_mode = 1;
    } elsif (/^>tw>$/) {
	$tw_mode = 1;
	print "><blockquote>\n";
	next;
    } elsif (/^<</) {
	if ($tw_mode) {
	    print "</blockquote><\n";
	    $tw_mode = 0;
	    next;
	}
    } elsif (/^\|/ && $tw_mode) {
	my ($x, $uid, $name, $web, $bio) = split /\|/;
	&print_tw_profile($uid, $name, $web, $bio);
	next;
    } elsif ($tw_mode) {
	chomp;
	my ($from, $message) = /^([^:]*):(.*)$/;
	$_ = $from;
	my ($user) = /^([^\/]*)/;
	my ($sid) = /^[^\/]*\/(.*)$/;
	#print "from: http://twitter.com/$user/status/$sid\n";
	#print "message: $message\n";
	&print_tw_status($user, $sid, $message);
	$tw_last_sid{$user} = $sid;
	next;
    } elsif (/^img:([^:]+):((right|left|\+):)?(.*)/) {
	# img tag
	$file = $1;
	$align = $3;
	$title = $4;
	$_ = "<img src=\"$base\/$file\" title=\"$title\" alt=\"$title\"";
	if ($align eq '+') {
	    $_ .= ">";
	} elsif ($align) {
	    $_ .= " align=\"$align\">";
	} else {
	    $_ .= ">\n";
	}
    } elsif (/\[img:[^:\]]+:[^\]]*\]/) {
	$_ =~ s/\[img:([^:\]]+):([^\]]*)\]/<img src=\"$base\/$1\" title=\"$2\" alt=\"$2\">/g;
    }
    # wikipedia inline-tag
    #s/\[wikipedia:([^\]]+)\]/&word_to_wpurl($1)/ge;
    print $_;
}

sub word_to_wpurl {
    my $word = shift;
    my $uword = $word;
    Encode::from_to($uword, "euc-jp", "utf-8");
    return "<a href=\"http://ja.wikipedia.org/wiki/" 
	. &encode_url($uword) . "\">wikipedia&#58;$word</a>";
}
sub encode_url {
    my $url = shift;
    $url =~ s/([^0-9A-Za-z_ ])/"%".unpack("H2",$1)/ge;
    return $url;
}

sub print_tw_profile() {
    my ($uid, $name, $web, $bio) = @_;
    print <<END
   <div class="tw-user-profile">
     <img class="tw-profile-thumb" src="$base/${uid}-tw_profile.jpg" alt="$uid/$name">
     <div class="tw-screen-name"><a href="http://twitter.com/$uid">$uid</a></div>
     <div class="tw-full-name"><b>Name</b> $name</div>
     <div class="tw-web"><b>Web</b> <a href="$web">$web</a></div>
     <div class="tw-bio"><b>Bio</b> $bio</div>
     <br clear="all"/>
   </div>
END
;
}
sub print_tw_status() {
    my ($user, $sid, $message) = @_;
    $message =~ s/@([a-zA-Z0-9_]+)/<a href="http:\/\/twitter.com\/$1">\@$1<\/a>/g;
    print <<END
  <div class="tw tw-user-$user">
    <div class="tw-content">
      <table cellspacing="0">
	<tbody>
	  <tr>
	    <td class="tw-status-body">
	      <div>
		<div class="tw-status-content">$message</div>
		<div class="tw-status-meta">
		  <a href="http://twitter.com/$user/status/$sid">permalink</a>
		</div>
	      </div>
	    </td>
	  </tr>
	</tbody>
      </table>
      <div class="tw-user-info">
	<div class="tw-profile-thumb">
	  <a href="http://twitter.com/$user">
	    <img alt="$user" src="$base/${user}-tw_profile.jpg"/>
	  </a>
	</div>
	<div class="tw-screen-name">
	  <a href="http://twitter.com/$user">$user</a>
	</div>
      </div>
    </div>
  </div>
END
;
}