#!/usr/bin/perl

my $u1 = '@<a class="tweet-url username" href="#" rel="nofollow">';
my $u2 = '</a>';
my $tw11 = '<li class="hentry status latest-status">
    <span class="status-body">
    <span class="status-content">
    <span class="actions">
			<div>
				<a id="" class="fav-action non-fav" title="favorite this tweet">
					&nbsp;&nbsp;
				</a>
			</div>
		</span>
    <span class="entry-content">';
my $tw12 = '<li class="hentry status">
    <span class="status-body">
    <span class="status-content">
    <span class="actions">
			<div>
				<a id="" class="fav-action non-fav" title="favorite this tweet">
					&nbsp;&nbsp;
				</a>
			</div>
		</span>
    <span class="entry-content">';
my $tw2 = '</span>
          </span>
    <span class="meta entry-meta" data="{}">
			<a class="entry-date" rel="bookmark" href="#">
    <span class="published timestamp" data="#">';
my $tw3 = ' ago</span> </a><span>via web</span>';
my $repl1 = ' <a href="#">in reply to ';
my $repl2 = '</a></span>';
my $tw4 = '<ul class="actions-hover">
      <li>
      <span class="reply">
        <span class="reply-icon icon"></span>
        <a href="#" title="reply to Walfas">Reply</a>
      </span>
    </li><li>
        <span class="retweet-link">
          <span class="retweet-icon icon"></span>
          <a title="Retweet" href="#">Retweet</a>
        </span>
      </li>

  </ul>
    <ul class="meta-data clearfix">
</ul>
  </span>
</li>';

my $ago = 2;
my $first = 1;
foreach( <> ) {
	my $tw1;
	if( $first == 1 ) {
		$tw1 = $tw11;
		$first = 0;
	}
	else {
		$tw1 = $tw12;
	}
	my $text = $_;
	$ago += int(rand() * 10);
	my $ago_t;
	if( $ago < 60 ) {
		$ago_t = "$ago minutes";
	}
	else {
		$ago_t = int($ago / 60) . " hours";
	}
	my ($reply) = ($text =~ /$\@([^ ]+)/);
	if( $reply && $reply ne "" ) {
		$reply = $repl1 . $reply . $repl2;
	}
	$text =~ s/\@([^ ]+)/$u1$1$u2/gi;
	print $tw1 . $text . $tw2 . $ago_t . $tw3 . $reply . $tw4;
}