【 スクリプト改造工房 PART 5 】

[0621 nobodyさん 03/01/12 14:20 ID:???]

>>615
まずimakoko.cgiの88〜90行目の
  foreach $line(@out){
    print "document.writeln(\"$line\");\n";
  }
の行頭に#を挿入してコメントアウト。

次に48行目に以下をコピペ
if ($ENV{'QUERY_STRING'} eq 'b') {
  @NEWDATA;
  foreach $line(@DATA) {
    ($time,$host) = split(/\,/,$line);
    if (($time_now - $tmax) < $time && $host ne $myhost){
      push(@NEWDATA,$line);
    }
  }
  $count = @NEWDATA;
  @OUT = ("今hogeページに$count人の人がいます");
  if ($font){
    unshift(@OUT,$font);
    push(@OUT,"</font>");
  }
  print "Content-type: text/plain\n\n";
  print "<!--\n";
  foreach $line(@OUT){
    print "document.writeln(\"$line\");\n";
  }
  print "//-->\n";
  exit;