KENT-WEB サポートコーナー 過去ログ [ 0087 ]

記事No： 4816
投稿日： 2008/11/08(Sat) 18:52:22
タイトル： topicsボードにカウンタを
ID情報： kera
投稿者： ar
URL： http://cgi3.synapse.ne.jp/~kerasa/p-topics/topics.cgi

topicsボードにJoyful Noteについているようなカウンタをつけたいのですが
Joyful Noteをみてもまったくわかりません
申し訳ありません、教えてください
宜しくお願いいたします。

記事No： 4817
投稿日： 2008/11/08(Sat) 21:24:06
タイトル： Re: topicsボードにカウンタを
ID情報： Fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

> topicsボードにJoyful Noteについているようなカウンタをつけたいのですが
> Joyful Noteをみてもまったくわかりません
> 申し訳ありません、教えてください
> 宜しくお願いいたします。


こちらのカウンターを利用されてはいかがでしょうか。
http://www.kent-web.com/count/index.html

JoyfulNoteのカウンターを利用するのであればこちら
http://www.kent-web.com/support/old/62/0507.html

記事No： 4818
投稿日： 2008/11/09(Sun) 01:04:16
タイトル： Re^2: topicsボードにカウンタを
ID情報： kera
投稿者： ar
URL： http://cgi3.synapse.ne.jp/~kerasa/p-topics/topics.cgi

> > topicsボードにJoyful Noteについているようなカウンタをつけたいのですが
> > Joyful Noteをみてもまったくわかりません
> > 申し訳ありません、教えてください
> > 宜しくお願いいたします。
>
>
> こちらのカウンターを利用されてはいかがでしょうか。
> http://www.kent-web.com/count/index.html
>
> JoyfulNoteのカウンターを利用するのであればこちら
> http://www.kent-web.com/support/old/62/0507.html
------------------------------------------------
ありがとうございます
JoyfulNoteのカウンターを利用で
いろいろやってみたのですが
旨くいきません
パーミションも設定したのですが、画面じたいがでなくなってしまいます
以下の感じで入れてみたのですが、間違いをお教えください
宜しくお願いします

#------------#
# 基本設定 #
#------------#

# 外部ファイル取り込み
require './cgi-lib.pl';
require './jcode.pl';
require './topiset.cgi';
>
> # ミニカウンタの設置
> # → 0=no 1=テキスト 2=GIF画像
> $counter = 1;
>
> # ミニカウンタの桁数
> $mini_fig = 6;
>
> # テキストのとき：ミニカウンタの色
> $cnt_color = "#BB0000";
>
> # GIFカウンタのとき：画像までのディレクトリ
> # → 最後は必ず / で閉じる
> $gif_path = "./img/";
> $mini_w = 8; # 画像の横サイズ
> $mini_h = 12; # 画像の縦サイズ
>
> # カウンタファイル
> $cntfile = './count.dat';
>
>

# 本体ファイルURL
$script = './topics.cgi';

# ログファイル
$logfile = './topics.dat';

# テンプレート

-------------------------------------------
#------------#
# 記事表示 #
#------------#
sub logfile {
local($flag,$msg,$i,$next,$back,$loop,@head,@loop,@foot);

# HTMLヘッダ
print "Content-type: text/html\n\n";
> # カウンタ処理
> if ($counter) { &counter; }##　←　追加
>
# テンプレート読み込み
$loop="";
@head=();
@foot=();
$flag=0;
open(IN,"$tmpfile") || &error("Open Error: $tmpfile");
while (<IN>) {
-------------------------------------------------------


# 画像ディレクトリ
if (-d $imgdir) {
print "<li>画像ディレクトリ：パスOK!\n";
if (-r $imgdir && -w $imgdir && -x $imgdir) {
print "<li>画像ディレクトリのパーミッション：OK!\n";
} else {
print "<li>画像ディレクトリのパーミッションが不正です。\n";
}
} else {
print "<li>画像ディレクトリのパスが不正です： $imgdir\n";
}

print <<EOM;
<li>バージョン：$ver
</ul>> #-------------------------------------------------
> # カウンタ処理
> #-------------------------------------------------
> sub counter {
> $addr = $ENV{'REMOTE_ADDR'};
>
> # 閲覧時のみカウントアップ
> if ($mode eq '') { $cntup=1; } else { $cntup=0; }
>
> # カウントファイルを読みこみ
> open(IN,"$cntfile") || &error("Open Error: $cntfile");
> eval "flock(IN, 1);";
> $data = <IN>;
> close(IN);
>
> # IPチェックとログ破損チェック
> ($cnt, $ip) = split(/:/, $data);
> if ($addr eq "$ip" || $cnt eq "") { $cntup=0; }
>
> # カウントアップ
> if ($cntup) {
> $cnt++;
> open(OUT,"+< $cntfile") || &error("Write Error: $cntfile");
> eval "flock(OUT, 2);";
> truncate(OUT, 0);
> seek(OUT, 0, 0);
> print OUT "$cnt\:$addr";
> close(OUT);
> }
>
> # 桁数調整
> while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; }
> @cnts = split(//, $cnt);
>
> # GIFカウンタ表示
> if ($counter == 2) {
> foreach (0 .. $#cnts) {
> print "<img src=\"$gif_path$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
> }
> }
> # テキストカウンタ表示
> else {
> print "<font color=\"$cnt_color\" face=\"verdana,Times New Roman,Arial\">$cnt</font><br>\n";
> }
> }
>
>
</body>
</html>
EOM
exit;
}


__END__





記事No： 4820
投稿日： 2008/11/09(Sun) 15:59:18
タイトル： Re^3: topicsボードにカウンタを
ID情報： Fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

> print <<EOM;
> <li>バージョン：$ver
> </ul>> #-------------------------------------------------
> > # カウンタ処理
> > #-------------------------------------------------
> > sub counter {
> > $addr = $ENV{'REMOTE_ADDR'};
> >
> > # 閲覧時のみカウントアップ
> > if ($mode eq '') { $cntup=1; } else { $cntup=0; }
> >
> > # カウントファイルを読みこみ
> > open(IN,"$cntfile") || &error("Open Error: $cntfile");
> > eval "flock(IN, 1);";
> > $data = <IN>;
> > close(IN);
> >
> > # IPチェックとログ破損チェック
> > ($cnt, $ip) = split(/:/, $data);
> > if ($addr eq "$ip" || $cnt eq "") { $cntup=0; }
> >
> > # カウントアップ
> > if ($cntup) {
> > $cnt++;
> > open(OUT,"+< $cntfile") || &error("Write Error: $cntfile");
> > eval "flock(OUT, 2);";
> > truncate(OUT, 0);
> > seek(OUT, 0, 0);
> > print OUT "$cnt\:$addr";
> > close(OUT);
> > }
> >
> > # 桁数調整
> > while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; }
> > @cnts = split(//, $cnt);
> >
> > # GIFカウンタ表示
> > if ($counter == 2) {
> > foreach (0 .. $#cnts) {
> > print "<img src=\"$gif_path$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
> > }
> > }
> > # テキストカウンタ表示
> > else {
> > print "<font color=\"$cnt_color\" face=\"verdana,Times New Roman,Arial\">$cnt</font><br>\n";
> > }
> > }
> >
> >
> </body>
> </html>
> EOM
> exit;
> }
>
>
> __END__


カウンタ処理サブルーチンを挿入する位置が間違っています。

#-------------------------------------------------
# カウンタ処理
#-------------------------------------------------
★ここに挿入
__END__

記事No： 4821
投稿日： 2008/11/09(Sun) 20:01:25
タイトル： Re^4: topicsボードにカウンタを
ID情報： kera
投稿者： ar
URL： http://cgi3.synapse.ne.jp/~kerasa/p-topics/topics.cgi

> > print <<EOM;
> > <li>バージョン：$ver
> > </ul>> #-------------------------------------------------
> > > # カウンタ処理
> > > #-------------------------------------------------
> > > sub counter {
> > > $addr = $ENV{'REMOTE_ADDR'};
> > >
> > > # 閲覧時のみカウントアップ
> > > if ($mode eq '') { $cntup=1; } else { $cntup=0; }
> > >
> > > # カウントファイルを読みこみ
> > > open(IN,"$cntfile") || &error("Open Error: $cntfile");
> > > eval "flock(IN, 1);";
> > > $data = <IN>;
> > > close(IN);
> > >
> > > # IPチェックとログ破損チェック
> > > ($cnt, $ip) = split(/:/, $data);
> > > if ($addr eq "$ip" || $cnt eq "") { $cntup=0; }
> > >
> > > # カウントアップ
> > > if ($cntup) {
> > > $cnt++;
> > > open(OUT,"+< $cntfile") || &error("Write Error: $cntfile");
> > > eval "flock(OUT, 2);";
> > > truncate(OUT, 0);
> > > seek(OUT, 0, 0);
> > > print OUT "$cnt\:$addr";
> > > close(OUT);
> > > }
> > >
> > > # 桁数調整
> > > while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; }
> > > @cnts = split(//, $cnt);
> > >
> > > # GIFカウンタ表示
> > > if ($counter == 2) {
> > > foreach (0 .. $#cnts) {
> > > print "<img src=\"$gif_path$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
> > > }
> > > }
> > > # テキストカウンタ表示
> > > else {
> > > print "<font color=\"$cnt_color\" face=\"verdana,Times New Roman,Arial\">$cnt</font><br>\n";
> > > }
> > > }
> > >
> > >
> > </body>
> > </html>
> > EOM
> > exit;
> > }
> >
> >
> > __END__
>
>
> カウンタ処理サブルーチンを挿入する位置が間違っています。
>
> #-------------------------------------------------
> # カウンタ処理
> #-------------------------------------------------
> ★ここに挿入
> __END__

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
すみません、修正しましたが
旨くいきません、反応無しです
現在はこんな感じです
パーミッションは
topics.cgiは　755
count.datは　766
それからcount.datは素人考えでJoyful Noteにあるものをそのまま
つかってますがそれが良くないのでしょうか
再度おおしえください
これでだめなら
ケントさんのに挑戦してみます。

：：：：：：：：：：：：：：：：：：：：：：：：：：：

require './cgi-lib.pl';
require './jcode.pl';
require './topiset.cgi';
>
> # ミニカウンタの設置
> # → 0=no 1=テキスト 2=GIF画像
> $counter = 1;
>
> # ミニカウンタの桁数
> $mini_fig = 6;
>
> # テキストのとき：ミニカウンタの色
> $cnt_color = "#BB0000";
>
> # GIFカウンタのとき：画像までのディレクトリ
> # → 最後は必ず / で閉じる
> $gif_path = "./img/";
> $mini_w = 8; # 画像の横サイズ
> $mini_h = 12; # 画像の縦サイズ
>
> # カウンタファイル
> $cntfile = './count.dat';
>
>
# 本体ファイルURL
$script = './topics.cgi';

# ログファイル
$logfile = './topics.dat';

# テンプレート
$tmpfile = './tmp.html';
-----------------------------------

#------------#
# 記事表示 #
#------------#
sub logfile {
local($flag,$msg,$i,$next,$back,$loop,@head,@loop,@foot);

# HTMLヘッダ
print "Content-type: text/html\n\n";
> # カウンタ処理
> if ($counter) { &counter; }##　←　追加
>
# テンプレート読み込み
$loop="";
@head=();
@foot=();

：：：：：：：：：：：：：：：：：：：：：：：：：：：：：

</ul>
</body>
</html>
EOM
exit;
}

：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：

> #-------------------------------------------------
> # カウンタ処理
> #-------------------------------------------------
> sub counter {
> $addr = $ENV{'REMOTE_ADDR'};
>
> # 閲覧時のみカウントアップ
> if ($mode eq '') { $cntup=1; } else { $cntup=0; }
>
> # カウントファイルを読みこみ
> open(IN,"$cntfile") || &error("Open Error: $cntfile");
> eval "flock(IN, 1);";
> $data = <IN>;
> close(IN);
>
> # IPチェックとログ破損チェック
> ($cnt, $ip) = split(/:/, $data);
> if ($addr eq "$ip" || $cnt eq "") { $cntup=0; }
>
> # カウントアップ
> if ($cntup) {
> $cnt++;
> open(OUT,"+< $cntfile") || &error("Write Error: $cntfile");
> eval "flock(OUT, 2);";
> truncate(OUT, 0);
> seek(OUT, 0, 0);
> print OUT "$cnt\:$addr";
> close(OUT);
> }
>
> # 桁数調整
> while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; }
> @cnts = split(//, $cnt);
>
> # GIFカウンタ表示
> if ($counter == 2) {
> foreach (0 .. $#cnts) {
> print "<img src=\"$gif_path$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
> }
> }
> # テキストカウンタ表示
> else {
> print "<font color=\"$cnt_color\" face=\"verdana,Times New Roman,Arial\">$cnt</font><br>\n";
> }
> }
>
>
__END__


記事No： 4822
投稿日： 2008/11/09(Sun) 20:14:27
タイトル： Re^5: topicsボードにカウンタを
ID情報： Fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

サーバーにあるtopics.cgiをtopics.txtに拡張子を変更してブラウザで見えるようにしてみてください。

記事No： 4823
投稿日： 2008/11/09(Sun) 20:18:53
タイトル： Re^6: topicsボードにカウンタを
ID情報： kera
投稿者： ar
URL： http://cgi3.synapse.ne.jp/~kerasa/p-topics/topics.cgi

> サーバーにあるtopics.cgiをtopics.txtに拡張子を変更してブラウザで見えるようにしてみてください。
--------------------------
topics.txtに変更しました
今ブラウザでみえます
宜しくお願いします

記事No： 4824
投稿日： 2008/11/09(Sun) 20:30:52
タイトル： Re^7: topicsボードにカウンタを
ID情報： Fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

> > サーバーにあるtopics.cgiをtopics.txtに拡張子を変更してブラウザで見えるようにしてみてください。
> --------------------------
> topics.txtに変更しました
> 今ブラウザでみえます
> 宜しくお願いします


追加部分の行頭に「>」が付いています。
返信コメント覧ではなく記事本文から直接コピーしてください。

記事No： 4825
投稿日： 2008/11/09(Sun) 20:53:29
タイトル： 出来ましたtopicsボードにカウンタを
ID情報： kera
投稿者： ar
URL： http://cgi3.synapse.ne.jp/~kerasa/p-topics/topics.cgi

> > > サーバーにあるtopics.cgiをtopics.txtに拡張子を変更してブラウザで見えるようにしてみてください。
> > --------------------------
> > topics.txtに変更しました
> > 今ブラウザでみえます
> > 宜しくお願いします
>
>
> 追加部分の行頭に「>」が付いています。
> 返信コメント覧ではなく記事本文から直接コピーしてください。
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
ありがとうございました
カウンター出ました
いつもBALさんには、親切にしていただき
感謝しております

あとは、カウンターが実際に動けば完璧です
ありがとうございました
これからも宜しくお願いいたします。

[検索ページ]