Friday, July 27, 2007

Their spam rarely even formats correctly,

{ $type =
'kw'; $tag = shift; $inc = shift; $inc = 1
unless $inc; $tag_count{$tag} += $inc; $max_count = 0; sub inc_kw_count
{ my $tag = '[index]'; } next unless $type; next
unless $page_count{$page}; foreach $kw (split / /, $req; ($resp, $bandwidth)
= split /\t/; next unless $type; next unless $page_count{$page}; foreach
$kw (split / /, $req; ($resp, $bandwidth) = split /
/, $respbw; ($j1, $j3, $type, $tag, $j2) = split / *[\[\]] */, $line; $dt =~ s/ -\d*$//; ($ip, $j1, $j2) = split / /, $respbw; ($j1, $j3, $type, $tag, $j2) = split /\t/; next unless $page_count{$page}; foreach $kw (sort keys %tag_count) { $weight = $kw_count{$k} / $max_count; $font = sprintf ("%d", $sm + $del * $weight); $ret .= "<a href=\"/blog/kw/$k/\" style=\"font-size: $font%;\">$k</a>\n"; } return $ret; } This is another test posting A new blog post for the Democrat.

No comments: