全文配信用のサブルーチン追加。以下を『（関数）文字列カット』の上に入れた。

sub Morelink {
  my( $str ) = @_;
  #画像とリンクを絶対パスに変換
  use URI;
  $str =~ s/(href="|src=")([^"]+?)"/$1. URI->new_abs($2, $RSS_BASE_URI2) .'"'/eg;
  #ネタバレ部分を隠す
  $str =~ s/(<a[^>]*sfield_view.*?>)([^<]*<\/a>)/<a href=\"$RSS_ITEM_URI\">$2/g;
  $str =~ s/(<input[^>]*"nbtn"[^>]*value=")([^"]*)(\" onclick[^>]*sfield_view.*?>)/<a href=\"$RSS_ITEM_URI\">$2<\/a>/g;
  $str =~ s/<div[^>]*sfield\".*?<\/div>//g;
  #<br /><img />
  $str =~ s/<br>/<br \/>\n/g;
  $str =~ s/(<img[^>]*)([^\/])>/$1$2 \/>/g;

  return $str;
}

--------------------------------------

『ログ取得』以下を次のように書き換え。

#**********************************************************
#*  ログ取得
#**********************************************************/
for ($_ = 0; ($_ <= $#nli) && ($_ < $RSS_NUM); $_++) {
  # ファイル読み込み
  open(FILE, "<.$nli[$_][0]");
  @logfile = <FILE>;
  close(FILE);
 
  chomp($logfile[0]);
  @logdata = split(/\x01/, $logfile[0]);

  # 記事のURI
  $flist=$nli[$_][0];
  $flist =~ s/^$vDir//g;
  $dateSUB = substr($flist, 9, 1);
  $dateY   = substr($flist, 0, 4);
  $dateM   = substr($flist, 5, 2);
  $dateD   = substr($flist, 7, 2);
  $RSS_ITEM_URI=$RSS_SCRIPT_URI."?DT=".$dateY.$dateM.$dateD.$dateSUB."#".$dateY.$dateM.$dateD.$dateSUB;
 
  # タイトル
  if ($logdata[1] eq "") {
    $logdata[1] = "Untitled";
  }
   
  # ログのタグを除去
  $logdata[2] = Morelink($logdata[2]);
  $logdata[1] = Striptags($logdata[1]);
  $desc = Striptags($logdata[2]);
  
  # 本文丸め込み
  $logdata[1] = Trimwidth($logdata[1], 100);
  $desc = Trimwidth($desc, 200);

  # 日付
  if ($logdata[0] =~ /.*(\d\d):(\d\d)$/) {
     $DATETIME = sprintf("%s-%s-%sT%02d:%02d:00+09:00",$dateY,$dateM,$dateD,$1,$2);
  } else {
    $DATETIME = sprintf("%s-%s-%sT00:00:00+09:00",$dateY,$dateM,$dateD);
  }
  
  # FOAFによる画像メタデータを出力する
  # $RSS_OUTPUT_FOAFIMAGEに『0』を指定した場合は除く
  my($altname);
  if ($logdata[9] eq "") {
   $altname = $logdata[3];
	 }else{
	$altname = $logdata[9];
	}
  $FOAFIMAGE = "";
  if( $RSS_OUTPUT_FOAFIMAGE and $logdata[3] ne "" ) {
    # サムネイル
    if ($logdata[3] =~ /(.*)(\.jpg$|\.jpeg$|\.gif$|\.png$)/) {
      my $thumbnail = $1.".thumb";
      if (-e $vDir."/".$dateY."/".$thumbnail.".jpg") {
        $FOAFIMAGE .= "<a href=\"".$RSS_BASE_URI2.$dateY."/".$logdata[3]."\"><img src=\"".$RSS_BASE_URI2.$dateY."/".$thumbnail.".jpg"."\" alt=\"".$altname."\" /></a><br /><br />\n";
      } elsif (-e $vDir."/".$dateY."/".$thumbnail.".jpeg") {
        $FOAFIMAGE .= "<a href=\"".$RSS_BASE_URI2.$dateY."/".$logdata[3]."\"><img src=\"".$RSS_BASE_URI2.$dateY."/".$thumbnail.".jpeg"."\" alt=\"".$altname."\" /></a><br /><br />\n";
      } elsif (-e $vDir."/".$dateY."/".$thumbnail.".gif") {
        $FOAFIMAGE .= "<a href=\"".$RSS_BASE_URI2.$dateY."/".$logdata[3]."\"><img src=\"".$RSS_BASE_URI2.$dateY."/".$thumbnail.".gif"."\" alt=\"".$altname."\" /></a><br /><br />\n";
      } elsif (-e $vDir."/".$dateY."/".$thumbnail.".png") {
        $FOAFIMAGE .= "<a href=\"".$RSS_BASE_URI2.$dateY."/".$logdata[3]."\"><img src=\"".$RSS_BASE_URI2.$dateY."/".$thumbnail.".png"."\" alt=\"".$altname."\" /></a><br /><br />\n";
      }else{
 	    $FOAFIMAGE .= "<img src=\"".$RSS_BASE_URI2.$dateY."/".$logdata[3]."\" alt=\"".$altname."\" /><br /><br />\n";
		}
    }
  }
  
  # タグにまとめる
  $RESOURCES .= "    <rdf:li rdf:resource=\"".$RSS_ITEM_URI."\" />\n";
  $ITEMS     .= " <item rdf:about=\"".$RSS_ITEM_URI."\">\n";
  $ITEMS     .= "  <title>".$logdata[1]."</title>\n";
  $ITEMS     .= "  <link>".$RSS_ITEM_URI."</link>\n";
  $ITEMS     .= "  <description>".$desc."</description>\n";
  $ITEMS     .= "  <content:encoded><![CDATA[".$FOAFIMAGE.$logdata[2]."]]></content:encoded>";
  $ITEMS     .= "  <dc:creator>".$auther."</dc:creator>\n";
  $ITEMS     .= "  <dc:date>".$DATETIME."</dc:date>\n";
  $ITEMS     .= " </item>\n";
}

---------------------------------------

『XMLとしてまとめます』内の「  xml:lang="ja">」の上の行あたりに

  xmlns:content="http://purl.org/rss/1.0/modules/content/"

を追加。