ぜろちゃんねるプラス質問スレ

717 ：0ch+開発担当 ◆0chp.sx.ik ：2013/11/23(土) 21:31:06.45 ID:6ROEZnZB0

>>696
module/varda.pl の(0.7.4オリジナルで)159行目の
  $Page->Print("<a href=\"$path\">$i: $name($res)</a><br> \n");
という1行を以下のコードに書き換えてください
  my $text = '';
  if (open(my $fh, '<', "$basePath/dat/$key.dat")) {
    while (<$fh>) {
      last if(eof($fh));
    }
    close($fh);
    $text = (split(/<>/, $_, -1))[3];
    $text =~ s/<[bh]r>/ /gi;
    $text =~ s/<[^>]+>//g;
    $text =~ s/\s+/ /g;
    require Encode;
    $text = Encode::decode('sjis', $text);
    $text = substr($text, 0, 100);
    $text = Encode::encode('sjis', $text);
    $text = " : $text ";
  }
  $Page->Print("<a href=\"$path\">$i: $name($res)</a>$text<br> \n");

>>689を適用していると考えてコードを書いていますが、
$basePathを定義していなければ適当なところに以下のコードを加えてください。
  my $basePath = $Sys->Get('BBSPATH') . '/' . $Sys->Get('BBS');