#!/usr/bin/perl
##入り口に日本語

print <<"_TXT_";
Content-type: text/html; charset=utf-8

<title>digest -- i16's blogs</title>
<style type=text/css>
li { margin: 5px; }
</style>
<base target=_blank>
<h1>digest -- i16's blogs</h1>
<hr>
_TXT_

$arg=$ENV{'QUERY_STRING'};
$lines=($arg=~s/lines(\d)\://)?$1:0;

open(B,"</home/i16/bin/scatdogtz.addrs");
@blogs=<B>;
close(B);

foreach(@blogs) {
	($mail,$spec,$name,$url,$rss)=split;
	$rssx=$lines?"lines$lines:$rss":$rss;
	print <<"_TXT_" if $url=~/^http/;
<h3><a href=\"$url\">$name</a> -- $spec</h3>
<script type=text/javascript src="http://i16.jp/blogscript.cgi?$rssx" charset=utf-8></script>
<hr>
_TXT_
	}

print <<"_TXT_";
<a href=/>i16</a>

<script type="text/javascript"><!--
google_ad_client = "pub-5124236532169566";
/* 728x90, 作成済み 08/11/28 */
google_ad_slot = "7375742521";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
try {
var pageTracker = _gat._getTracker("UA-5604735-1");
pageTracker._trackPageview();
} catch(err) {}</script>

_TXT_