UNKO ヾ('Д')㍑㍗と作ろう、CGI

**UNKO ヾ('Д')㍑㍗** · NG

むぎ茶に対抗だゴラァ。
第１弾まもなく発表！

┏━━━━━━━━━┓
┃ヾ('Д')㍑㍗　　　┃
┃UNKO 　　　　　　┃
┗━━━━━━━━━┛

**UNKO ヾ('Д')㍑㍗** · NG

#!/usr/bin/perl

## 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 .= "<a href=\"http://tako.2ch.net/test/read.cgi?bbs=perl&key=995532491&ls=100\">UNKOヾ('Д')㍑㍗TXTver.-1アクセスチェッカ～</a>\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";
}
}

**UNKO ヾ('Д')㍑㍗** · NG

#UNKOカウンターの記録ヾ('Д')㍑㍗####################
sub 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 (%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;
}
}

**UNKO ヾ('Д')㍑㍗** · NG

#UNKOカウンター表示ヾ('Д')㍑㍗####################
sub unko_counter_2{
if (!open(UNKO_,"$unko_db")) {}
$ac = 0;
while(<UNKO_>) {

($time,$tmp_addr,$tmp_host) = split(/\,/);
$ac++;
}
close(UNKO_);

$unko_html .= "$unko_a $ac 人 \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アドレス
}

**UNKO ヾ('Д')㍑㍗** · NG

unko_1.txtの中身

UNKO ヾ('Д')㍑㍗と作ろう、CGI

**UNKO ヾ('Д')㍑㍗** · NG

ディレクトリ構造

unko.cgi 705
unko_1.txt 604
│
└─./log/ 600 動作しなかったら606 (ログ保存フォルダ）

**UNKO ヾ('Д')㍑㍗** · NG

第２弾、まもなく発表。
UNKO　フォトアルバム
UNKO画像を、簡単登録、簡単閲覧。
主な機能
自動縮小、自動拡大、スライド表示。

**名無しさん** · NG

>>7
ガンバレ。。

**名無しさん** · NG

なんかこの顔かわいいかも・・・
＞ヾ('Д')㍑㍗

**名無しさん** · NG

だが板違いな気も…まぁ良いか。

**名無しさん** · NG

>>10
なぜか同意。
頑張れ１。

**名無しさん** · NG

１の自作自演が相次いでるらしいな。

＝＝＝　昇華　＝＝＝

**名無しさん** · NG

１の使えないと思ったら、動作したのでびびったよ。
無駄な環境変数を記録しまくりなのが気になるが・・・。

**名無しさん** · NG

なんかカワイイな････まぁモッチャリやってくれや

**名無しさん** · NG

ははは、、意外に人気有ったり　^^；　面白いぞ>>1

9 · NG

なんかﾏﾀｰﾘしててかわいいよ～
いいな～(＞∇＜)
荒らされないようにさげさげ。

NG

糞スレまわします

**名無しさん** · NG

たまにはこんなスレもいいじゃん
なんか平和で。

NG

動かないと思ったら動いたからビックリしたぞ　ｗ
logビューワでも書こうかな････　がんばれ！>>ヾ('Д')㍑㍗

**名無しさん** · NG

>>17
あげ厨ウザイよ。ヾ('Д')㍑㍗はどうしてるのかな
久々に可愛い気なスレだから応援したいぞ

**名無しさん** · NG

ヾ('Д')㍑㍗はどうした？
放置されたと思ってしょげてるんかな。

**名無しさん** · NG

21=ヾ('Д')㍑㍗

**名無しさん** · NG

まあ気長にまとう

**名無しさん＠お腹いっぱい。** · 2001/07/25(水) 07:23

しょげるなよ(ｗ
マジでマターリカワイイと思って待ってるぞ