0

yychatについて 全くの初心者です
説明どうりにYYCHATを設定したのですがチャットが出て来ません
素人なんでなんでかもわかりません

Check.cgiでやるとこんなかんじです


#! /usr/bin/perl #┌───────────────────────────────── #│ YY-CHAT : check.cgi - 2011/09/24 #│ Copyright (c) KentWeb #│ http://www.kent-web.com/ #└───────────────────────────────── # モジュール宣言 use strict; use CGI::Carp qw(fatalsToBrowser); # 外部ファイル取り込み require './init.cgi'; my %cf = &init; print < Check Mode: [ $cf{version} ]
EOM # ファイル my %log = ( logfile => 'データファイル', memfile => '在室ファイル', denyfile => '拒否ファイル', ); foreach ( keys(%log) ) { if (-e $cf{$_}) { print "
$log{$_}パス : OK
"; } else { print "
$log{$_}パス : NG
"; } if (-r $cf{$_} && -w $cf{$_}) { print "
$log{$_}パーミッション : OK
"; } else { print "
$log{$_}パーミッション : NG
"; } } # テンプレート my @tmpl = qw|data error form form2 out|; foreach (@tmpl) { if (-f "$cf{tmpldir}/$_.html") { print "
テンプレート( $_.html ) : OK
"; } else { print "
テンプレート( $_.html ) : NG
"; } } print < EOM exit;

質問者が選んだベストソリューション

Yahoo!知恵袋 4282日前