ちょっとしたPHPスクリプト(役に立つかも)

OKWEB で、こんな質問があったので、スクリプトを書いてみました。

ちなみに、楽天のブログは、rdfタグを吐いていないので、読めません。

<?php
$U = $_REQUEST["URL"];
if ($U) {
$F = fopen($U,"r");
if ($F) {
while (!FEof($F)) {
$S=FGetS($F,1024);
if (StrPos($S,"rdf:about=")) {
echo "<DIV STYLE=\"background-color:#EEFFEE;border-color:#080;border-style:solid;border-width:1px 0px 0px 0px;\">$S</DIV>";
}
if (StrPos($S,"trackback:ping=")) {
echo "<DIV STYLE=\"background-color:#EEFFEE\">$S</DIV>";
}
if (StrPos($S,"dc:date")) {
echo "<DIV STYLE=\"background-color:#EEFFEE\">$S</DIV>";
}
if (StrPos($S,"dc:title")) {
$A=mb_convert_encoding("$S","SJIS","auto");
echo "<DIV STYLE=\"background-color:#EEFFCC\">$A</DIV>";
}
if (StrPos($S,"dc:description=")) {
$A=mb_convert_encoding("$S","SJIS","auto");
echo "<DIV STYLE=\"background-color:#EEFFFF\">$A</DIV>";
}
}
} else {
echo "<PRE>\n<DIV STYLE=\"color:red;font-size:large\">'$U'はみつかりませんでした</DIV>";
}
}
$SN=$_ENV["SCRIPT_NAME"];
echo "<FORM ACTION=$SN METHOD=POST>\n";
echo "URL:<INPUT TYPE=TEXT NAME=URL SIZE=80>";
echo "<INPUT TYPE=SUBMIT VALUE=\"表\示\">";
echo "</FORM>";
?>

実行画面はこれ。