★さくらインターネット共用（Web・VD）その２

[0001 www50 NG NG]

さくらウェブ・バーチャルドメイン利用者の方、情報交換しませんか？

障害情報
http://www.sakura.ad.jp/?view=trouble
さくらウェブ
http://www.sakura.ad.jp/support/web/
バーチャルドメイン
http://www.sakura.ad.jp/support/vd/
約款
http://www.sakura.ad.jp/join/agreement/agreement.html

元スレ：ＳＲＳさくらインターネット(さくらＷｅｂスタンダード）使用者の集い
http://pc.2ch.net/test/read.cgi/perl/976897162/l50

[0002 名無しさん＠お腹いっぱい。 NG NG]

ネタがないので・・ログの見方です。

「access_log」のファイル名でサーバ上にあるアクセスログを、保存する名前を
「access_log日付.csv」としてダウンロードし、一旦保存します。
保存したログファイルをExcelで開き、昇順{A→Z}で揃えて、チェック。
Excelを閉じるときは変更を保存しないようにしています。

Windows機で作動する、つかえるログビューアはありませんか？
有料ソフト以外で・・

[0003 名無しさん＠お腹いっぱい。 NG NG]

例えば、１利用者当たりの合計転送量とか・・

[0004 名無しさん＠お腹いっぱい。 NG NG]

>2
analogとか…
www.jp.analog.cx

[0005 2 NG NG]

>>4
どうもです。
そのページ読んでたら眠くなってきた・・

[0006 前スレ925 NG NG]

まだ100MB…

[0007 名無しさん＠お腹いっぱい。 NG NG]

>1さん、スレ立てどうもです。
タイトルの文字数制限でご苦労なされたようで…。

ところで、バーチャルドメインのサーバーはスタンダードのように
転送量の確認をすることはできないのでしょうか？
オンラインマニュアルには載ってないですよね？

[0008 1 NG NG]

>>7
どうもです。

やっぱり、載ってないようです。
桜の管理者にだけ、自動で集計が行くようになっているのかな？？
access_log.countファイルは、アクセスログの行数ですし。
あれば良いんですけどね。

[0009 名無しさん＠お腹いっぱい。 NG NG]

access_logにリクエスト毎に転送したファイルサイズが書いてあるから、
それを足していけば計算できます。

ちなみにこんな感じ。

#!/usr/bin/perl

while(<>){
($userip, $user, $accessdate, $request, $answer, $sendbyte, $referer, $browser) = /(.*?)\s-(.*?)-\s\[(.*?)\]\s\"(.*?)\"\s(\d+?)\s(.*?)\s\"(.*?)\"\s\"(.*?)\"/;
$totalbyte += $sendbyte;
}
print "$totalbyte bytes.\n";

で、これをsize.plとかでサーバに置いておいて、
cat access_log | perl size.pl みたいな感じで使えば計算できます。

変なとこがあったらすいませんです＆長文失礼。

[0010 ｺｺ ﾀﾞﾖ NG NG]

■○■ ｺｺﾉ　CGI━━━(ﾟ∀ﾟ)━━━ !!!!!■○■

http://hpcgi1.nifty.com/thama/resbbs/resbbs3.cgi

━(ﾟ∀ﾟ)━ ｶﾝﾘﾆﾝ　ﾉ　ｵﾝﾅﾉｺｶﾞ　ﾁｮｳ　ｶﾜｲｲﾝﾀﾞﾖ ━(ﾟ∀ﾟ)━

[0011 名無しさん＠お腹いっぱい。 NG NG]

なんか障害復帰したってあるけどＣＧＩが動かない…
ページの読みこみもすごく遅い
困った
他の方はそんなことないですか？

[0012 1 NG NG]

>>9
ありがとうございます。telnetで動きました。
それを元に、ブラウザで見れるようにしてみました。
一応動いてますが、おかしいところがあったら言ってください。

#!/usr/local/bin/perl

open INPUT, "<../../access_log"; #CGIを置く位置で変える
while(<INPUT>){($userip, $user, $accessdate, $request, $answer, $sendbyte, $referer, $browser) = /(.*?)\s-(.*?)-\s\[(.*?)\]\s\"(.*?)\"\s(\d+?)\s(.*?)\s\"(.*?)\"\s\"(.*?)\"/; $totalbyte += $sendbyte;}
close INPUT;

open INPUT, "<../../access_log.count"; #CGIを置く位置で変える
while(<INPUT>){$counter = $_;}
close INPUT;

$MB=0; $KB=0; $B=$totalbyte;
if ($totalbyte >= 1024){ $B = $totalbyte % 1024; $totalkirobyte = ($totalbyte - $B)/1024;}
if ($totalkirobyte >= 1024){ $KB = $totalkirobyte % 1024; $MB = ($totalkirobyte - $KB)/1024;}

print "Content-type: text/html\n\n";
print "$counter<br><br>\n";
print "$totalbyte <font size=1>Bytes</font> ( $MB <font size=1>M</font> $KB <font size=1>K</font> $B <font size=1>Bytes</font>)\n";
__END__