UNKO ヾ('Д')㍑㍗と作ろう、CGI
■ このスレッドは過去ログ倉庫に格納されています
0001UNKO ヾ('Д')㍑㍗
NGNG第１弾まもなく発表！
┏━━━━━━━━━┓
┃ヾ('Д')㍑㍗ ┃
┃UNKO ┃
┗━━━━━━━━━┛
0002 UNKO ヾ('Д')㍑㍗
NGNG## UNKO ヾ('Д')㍑㍗
## TXT ver.-1 アクセス穴ライザー付き
## TXTを使ったUNKOのCGI アクセスチェッカ～
#http://tako.2ch.net/test/read.cgi?bbs=perl&key=995532491&ls=100
#以下設定ヾ('Д')㍑㍗####################
#UNKO1のテキスト相対パス
#テキストの中にＨＴＭＬ文を記入することでホームページを作ることが出来ます。
#ページにアクセスするときはunko.cgiにアクセスしよう。
$unko_txt1 = "./unko_1.txt";
#タイトル
$unko_title = "UNKO ヾ('Д')㍑㍗ --- UNKO TXT ver.-1";
#ログを何日間記録するか。初期設定１０日間のログを保存。
$log_time ="10";
#カウンター前の文章
$unko_a ="UNKOカウンター 本日は";
#以下ＢＯＤＹヾ('Д')㍑㍗####################
$unko_html .= "<HTML><HEAD><title>$unko_title</title></HEAD><BDOY>\n";
&unko_counter_1;
&unko_counter_2;
&unko_1;
#以下著作権表示改変不可。削除すんなよ、ゴラァ。ヾ('Д')㍑㍗ ####################
$unko_html .= "<p><p><p><small><a href=\"http://tako.2ch.net/test/read.cgi?bbs=perl&key=995532491&ls=100\">UNKOヾ('Д')㍑㍗TXTver.-1アクセスチェッカ～</a></small>\n";
$unko_html .= "</BODY></HTML>\n";
print "Content-type: text/html\n\n";
print "$unko_html\n";
exit;
#UNKOテキストの読みとりヾ('Д')㍑㍗####################
sub unko_1 {
open (UNKO_, "$unko_txt1");
@unko = <UNKO_>;
close (UNKO_);
foreach $unkosuki (@unko) {
$unko_html .= "$unkosuki";
}
}
0003UNKO ヾ('Д')㍑㍗
NGNGsub unko_counter_1{
$unko_dir = "./log/";
# 日時を取得
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 24*60*60*$log_time);
$del_unko = sprintf("%02d%02d%02d",$year,$mon +1,$mday);
$del_unko = $unko_dir . "$del_unko\.csv";
unlink("$del_unko");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@wday_array = ('日','月','火','水','木','金','土');
$date = sprintf("%01d\/%01d<br>(%s)",$mon +1,$mday,$wday_array[$wday]);
$unko_db = sprintf("%02d%02d%02d",$year,$mon +1,$mday);
$unko_db = $unko_dir . "$unko_db\.csv";
$time ="$year年$mon月$mday日$hour時$min分$sec秒$wday_array[$wday]曜日";
&env_1;
#同一IPチェック
$flag = 0;
open(IN, "$unko_db");
while(<IN>){
chomp;
($tmp_time,$tmp_addr,$tmp_host) = split /,/;
if($tmp_addr eq "$r_addr"){
$flag = 1;
last;
}
}
close IN;
unless($flag){
open(OUT, ">> $unko_db");
print OUT "$time,$r_addr,$r_host,$r_ident,$r_port,$r_user,$h_accept,$h_accept,$h_accept_c,$h_accept_e,$h_accept_l,$h_connection,$h_cookie,$h_form,$h_host,$h_referer,$h_user_a,$h_cache_c,$h_cache_in,$h_cache_ip,$h_forwarded,$h_pragma,$h_proxy_c,$h_sp_host,$h_te,$h_via,$h_x_f\n";
close OUT;
}
}
0004UNKO ヾ('Д')㍑㍗
NGNGsub unko_counter_2{
if (!open(UNKO_,"$unko_db")) {}
$ac = 0;
while(<UNKO_>) {
($time,$tmp_addr,$tmp_host) = split(/\,/);
$ac++;
}
close(UNKO_);
$unko_html .= "<b>$unko_a $ac 人</b><br>\n";
}
#環境変数ヾ('Д')㍑㍗####################
sub env_1{
#ユーザ関連の情報
$r_addr = $ENV{"REMOTE_ADDR"}; #自分（接続元）のIPアドレス
$r_host = $ENV{"REMOTE_HOST"}; #自分（接続元）のホスト名
$r_ident = $ENV{"REMOTE_IDENT"}; #自分（接続元）のユーザID
$r_port = $ENV{"REMOTE_PORT"}; #自分（接続元）のポート番号
$r_user = $ENV{"REMOTE_USER"}; #自分（接続元）の認証時のユーザ名
#クライアント関連の情報
$h_accept = $ENV{"HTTP_ACCEPT"}; #*/* ブラウザがサポートするMIMEタイプ（データ形式）
$h_accept_c = $ENV{"HTTP_ACCEPT_CHARSET"}; #ブラウザがサポートする文字コードセット
$h_accept_e = $ENV{"HTTP_ACCEPT_ENCODING"}; #エンコード形式（gzip，deflate等）
$h_accept_l = $ENV{"HTTP_ACCEPT_LANGUAGE"}; #ブラウザがサポートする言語（ja，en等）
$h_connection = $ENV{"HTTP_CONNECTION"}; #接続の状態
$h_cookie = $ENV{"HTTP_COOKIE"}; #このURLに対するcookieの情報
$h_form = $ENV{"HTTP_FORM"}; #ブラウザに設定されているE-Mailアドレス
$h_host = $ENV{"HTTP_HOST"}; #接続するホスト名
$h_referer = $ENV{"HTTP_REFERER"}; #参照（リンク）元のURL
$h_user_a = $ENV{"HTTP_USER_AGENT"}; #ブラウザに関する情報（種類，バージョン等）
#プロキシ関連の情報
$h_cache_c = $ENV{"HTTP_CACHE_CONTROL"}; #キャッシュする最長時間など
$h_cache_in = $ENV{"HTTP_CACHE_INFO"}; #キャッシュの情報
$h_cache_ip = $ENV{"HTTP_CLIENT_IP"}; #接続元のIPアドレス
$h_forwarded = $ENV{"HTTP_FORWARDED"}; #プロキシまたはクライアントの場所
$h_pragma = $ENV{"HTTP_PRAGMA"}; #プロキシのキャッシュに関する動作方式
$h_proxy_c = $ENV{"HTTP_PROXY_CONNECTION"}; #プロキシの接続形態
$h_sp_host = $ENV{"HTTP_SP_HOST"}; #接続元のIPアドレス
$h_te = $ENV{"HTTP_TE"}; #プロキシ等がサポートするTransfer-Encodings
$h_via = $ENV{"HTTP_VIA"}; #プロキシの情報（プロキシの種類，バージョン等）
$h_x_f = $ENV{"HTTP_X_FORWARDED_FOR"}; #接続元のIPアドレス
}
0005UNKO ヾ('Д')㍑㍗
NGNG<font size="7">UNKO ヾ('Д')㍑㍗と作ろう、CGI</font>
0006UNKO ヾ('Д')㍑㍗
NGNGunko.cgi 705
unko_1.txt 604
│
└─./log/ 600 動作しなかったら606 (ログ保存フォルダ）
0007 UNKO ヾ('Д')㍑㍗
NGNGUNKO フォトアルバム
UNKO画像を、簡単登録、簡単閲覧。
主な機能
自動縮小、自動拡大、スライド表示。
0008名無しさん
NGNGガンバレ。。
0009名無しさん
NGNG＞ヾ('Д')㍑㍗
0010名無しさん
NGNG0011名無しさん
NGNGなぜか同意。
頑張れ１。
0012名無しさん
NGNG＝＝＝ 昇華 ＝＝＝
0013名無しさん
NGNG無駄な環境変数を記録しまくりなのが気になるが・・・。
0014名無しさん
NGNG0015名無しさん
NGNG00169
NGNGいいな～(＞∇＜)
荒らされないようにさげさげ。
0017
NGNG0018名無しさん
NGNGなんか平和で。
0020名無しさん
NGNGあげ厨ウザイよ。ヾ('Д')㍑㍗ はどうしてるのかな
久々に可愛い気なスレだから応援したいぞ
0021名無しさん
NGNG放置されたと思ってしょげてるんかな。
0022名無しさん
NGNG0023名無しさん
NGNG0024名無しさん＠お腹いっぱい。
2001/07/25(水) 07:23ID:???マジでマターリカワイイと思って待ってるぞ
0025ヾ('Д')㌧㌦㍗
NGNG腐りかけの伊藤ハムにあたったみたいです。
みなさんすいません。
0026UNKO ヾ('Д')㍑㍗
NGNG0027名無しさん＠お腹いっぱい。
NGNGランダム送信ｺﾊﾋｺﾊﾋﾋｰ (>_< )ﾌﾞﾙﾌﾞﾙｯ....
0028名無しさん＠お腹いっぱい。
NGNG0029名無しさん＠お腹いっぱい。
NGNG0030UNKO ヾ('Д')㍑㍗
NGNG鬱だ、しのう・・・。
0031名無しさん＠お腹いっぱい。
NGNG0032名無しさん＠お腹いっぱい。
NGNG楽しみにしてるから。
0033名無しさん＠お腹いっぱい。
NGNG0034名無しさん＠お腹いっぱい。
NGNG0035名無しさん＠お腹いっぱい。
NGNG通常叩くべきなのだが何故か憎めない……可愛い。
まあ頑張って下さいな
0036名無しさん＠お腹いっぱい。
NGNG0037瓜ｷﾎﾞﾝﾇ ◆lv.9LoLU
NGNG0038UNKO ヾ('Д')㍑㍗
NGNG0039UNKO ヾ('Д')㍑㍗
NGNG0040UNKO ヾ('Д')㍑㍗
NGNG0041名無しさん＠お腹いっぱい。
NGNG0042r-ze
NGNG可愛いｖ
0043名無しさん＠お腹いっぱい。
NGNG0044名無しさん＠お腹いっぱい。
NGNGティンポ(・∀・）
ティンポ(・∀・）
ティンポ(・∀・）
ティンポ(・∀・）
／￣￣￣￣￣￣
∧＿∧ ＜ ﾏﾀｰﾘしようよ！！
（ ´∀｀） ＼＿＿＿＿＿＿
（ ）
｜ ｜ |
（_＿）＿）
■○■ ｺｺﾉ CGI━━━(ﾟ∀ﾟ)━━━ !!!!!■○■
http://hpcgi1.nifty.com/thama/resbbs/resbbs3.cgi
0045名無しさん＠お腹いっぱい。
NGNGティンポ(・∀・）
ティンポ(・∀・）
ティンポ(・∀・）
ティンポ(・∀・）
／￣￣￣￣￣￣
∧＿∧ ＜ ﾏﾀｰﾘしようよ！！
（ ´∀｀） ＼＿＿＿＿＿＿
（ ）
｜ ｜ |
（_＿）＿）
■○■ ｺｺﾉ CGI━━━(ﾟ∀ﾟ)━━━ !!!!!■○■
http://hpcgi1.nifty.com/thama/resbbs/resbbs3.cgi
0046某スレdat化計画
NGNG0047名無しさん＠お腹いっぱい。
NGNG0048名無しさん＠お腹いっぱい。
NGNG0049名無しさん＠お腹いっぱい。
NGNG0050名無しさん＠お腹いっぱい。
NGNGけどさ。
著作権表示先が404なんだけど～～～。
ま、面白いからいいや（ｗ
実際使ってるﾔｼいたら、使用感ｷﾎﾞﾝﾇ。
0051名無しさん＠お腹いっぱい。
NGNGhttp://pc.2ch.net/test/read.cgi/perl/995532491/
にかえればいいんじゃない？
0052名無しさん＠50
NGNG産休（藁
書き換えた。
0053名無しさん＠お腹いっぱい
NGNGやってみたけど、ログ溜まらないのは何故ですか
0054名無しさん＠お腹いっぱい。
NGNG明日の朝は8:00に起こしてもらっていいですか？。
0055名無しさん＠お腹いっぱい。
NGNGおい、そろそろ起きろ。
0056名無しさん＠お腹いっぱい。
NGNGokiro
0057名無しさん＠お腹いっぱい。
NGNG0058名無しさん＠お腹いっぱい。
NGNG早く起きろ。
ヾ('Д')㍑㍗も早く起きろ。
0059名無しさん＠お腹いっぱい。
NGNG0060名無しさん＠お腹いっぱい。
NGNGPHPがPerlより速いというのはCGIとして動作しているPerlと
Apacheのモジュールで動作しているPHPスクリプトを比べた場合の結果だ。
mod_perlはmod_php以上に高速である。よってPHPは糞言語であることがわかる。
0061名無しさん＠お腹いっぱい。
NGNGそれは言語の問題かね?
0063名無しさん＠お腹いっぱい。
NGNGPerlも十分遅いのでその意見は却下する。
0064名無しさん＠お腹いっぱい。
NGNG今日は友達が起こしてくれるので起こさなくていいです。
その友達は ヾ('Д')㍑㍗さん ではないです。
0065名無しさん＠お腹いっぱい。
NGNGヾ('Д')㍑㍗さん来れますか？
0066名無しさん＠お腹いっぱい。
NGNG0067名無しさん＠お腹いっぱい。
NGNG0068名無しさん＠お腹いっぱい。
NGNG0069名無しさん＠お腹いっぱい。
NGNGｲﾏﾀﾞ! 69 ｹﾞｯﾄ!!
￣∨￣￣￣￣
ヾ('Д')㍑㍗ ≡≡≡
0070名無しさん＠お腹いっぱい。
NGNG￣∨￣￣￣￣￣￣￣
ヾ('Д') ≡≡≡
0071名無しさん＠お腹いっぱい。
NGNG0072名無しさん＠お腹いっぱい。
NGNG生きてるんだろうか…。
0073名無しさん＠お腹いっぱい。
NGNGヾ('Д') ← みんなでこいつを2chに広めよう。
0074名無しさん＠お腹いっぱい。
NGNGGET UNKO ヾ('Д')㍑㍗ HTTP/1.0
0075名無しさん＠お腹いっぱい。
NGNG0076名無しさん＠お腹いっぱい。
NGNG0077名無しさん＠お腹いっぱい。
NGNG0078名無しさん＠お腹いっぱい。
NGNG『おでんはないのか？』と店員に詰め寄ってました。
0079Name_Not_Found
NGNGそろそろ起きてくれYO!
0080名無しさん＠お腹いっぱい。
NGNG0081名無しさん＠お腹いっぱい。
NGNG激しく同意。スレが立てられてから実に１１カ月後に初めて名スレの予感、というのにもはや感動すら覚える。UNKOヾ('Д')㍑㍗も喜んでいる事だろう。
0082名無しさん＠お腹いっぱい。
NGNGそろそろ1年、長寿スレage。
0083名無しさん＠お腹いっぱい。
NGNG0084名無しさん＠お腹いっぱい。
NGNG『UNKOヾ('Д')㍑㍗と作ろう、CGI』
１周年カウントダウン！
17
0085名無しさん＠お腹いっぱい。
NGNG0086名無しさん＠お腹いっぱい。
NGNG早すぎる。
16
0087名無しさん＠お腹いっぱい。
NGNG15
0088名無しさん＠お腹いっぱい。
NGNG0089名無しさん＠お腹いっぱい。
NGNG0090名無しさん＠お腹いっぱい。
NGNG0091名無しさん＠お腹いっぱい。
NGNG0092名無しさん＠お腹いっぱい。
NGNG0093名無しさん＠お腹いっぱい。
NGNGUNKOヾ('Д')㍑㍗さん、そろそろ準備の方をお願いします。
0094名無しさん＠お腹いっぱい。
NGNG0095名無しさん＠お腹いっぱい。
NGNG0096名無しさん＠お腹いっぱい。
NGNG# 名前： UNKO ヾ('Д')㍑㍗と作ろう、CGI １周年カウントダウン！
# 版数： 2002/7/1 から 2002/7/19までしか正常動作しない版 Ver 1.0
# 著作： UNKO ヾ('Д')㍑㍗と作ろう、CGI １周年カウントダウン！委員会
$title1="UNKO ヾ('Д')㍑㍗と作ろう、CGI";
$title2="１周年カウントダウン！";
$Memorialday=19;
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime(time);
$count = $Memorialday - $mday;
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>$title1</TITLE></HEAD>";
print "<BODY><CENTER>";
print "<BR>$title1<BR><BR>$title2<BR><BR><BR>";
print "<BR>$title1<BR>スレ立て記念日[7/19]１周年まで…<BR>";
print "<BR>あと $count日<BR>";
print "</CENTER></BODY></HTML>";
0097名無しさん＠お腹いっぱい。
NGNG動作しました。
7
0098名無しさん＠お腹いっぱい。
NGNG0099名無しさん＠お腹いっぱい。
NGNG0100名無しさん＠お腹いっぱい。
NGNGそして100get
0101名無しさん＠お腹いっぱい。
NGNG何人居る？
>>96，>>97が別人だとすると，少なくとも三人か。
■ このスレッドは過去ログ倉庫に格納されています