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

1 ：UNKO ヾ('Д')㍑㍗：2001/07/19(木) 17:48

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

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

2 ： UNKO ヾ('Д')㍑㍗：2001/07/19(木) 17:52

#!/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";
}
}

3 ：UNKO ヾ('Д')㍑㍗：2001/07/19(木) 17:57

#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;
}
}

4 ：UNKO ヾ('Д')㍑㍗：2001/07/19(木) 17:58

#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アドレス
}

5 ：UNKO ヾ('Д')㍑㍗：2001/07/19(木) 18:00

unko_1.txtの中身

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

6 ：UNKO ヾ('Д')㍑㍗：2001/07/19(木) 18:19

ディレクトリ構造

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

7 ： UNKO ヾ('Д')㍑㍗：2001/07/20(金) 18:36

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

8 ：名無しさん：2001/07/20(金) 18:55

>>7
ガンバレ。。

9 ：名無しさん：2001/07/20(金) 19:30

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

10 ：名無しさん：2001/07/20(金) 19:37

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

11 ：名無しさん：2001/07/20(金) 21:05

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

12 ：名無しさん：2001/07/20(金) 22:51

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

＝＝＝　昇華　＝＝＝

13 ：名無しさん：2001/07/21(土) 01:04

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

14 ：名無しさん：2001/07/21(土) 03:09

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

15 ：名無しさん：2001/07/21(土) 09:33

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

16 ：9：2001/07/21(土) 13:29

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

17 ：：2001/07/21(土) 22:42

糞スレまわします

18 ：名無しさん：2001/07/21(土) 22:54

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

19 ：：2001/07/22(日) 09:25

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

20 ：名無しさん：2001/07/22(日) 12:23

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

21 ：名無しさん：2001/07/24(火) 00:24

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

22 ：名無しさん：2001/07/24(火) 02:50

21=ヾ('Д')㍑㍗

23 ：名無しさん：2001/07/24(火) 12:08

まあ気長にまとう

24 ：名無しさん＠お腹いっぱい。：2001/07/25(水) 07:23 ID:???

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

25 ：ヾ('Д')㌧㌦㍗：2001/07/26(木) 22:25

兄貴のヾ('Д')㍑㍗は今熱を出して寝ています。
腐りかけの伊藤ハムにあたったみたいです。
みなさんすいません。

26 ：UNKO ヾ('Д')㍑㍗：2001/07/28(土) 13:18

サーカム食らった。CGIどころじゃないよ。

27 ：名無しさん＠お腹いっぱい。：2001/07/28(土) 15:21

あちゃー　ご愁傷さま
ランダム送信ｺﾊﾋｺﾊﾋﾋｰ　　(>_< )ﾌﾞﾙﾌﾞﾙｯ....

28 ：名無しさん＠お腹いっぱい。：2001/08/05(日) 16:04

保守上げ

29 ：名無しさん＠お腹いっぱい。：2001/08/05(日) 22:59

保守ｓａｇｅ

30 ：UNKO ヾ('Д')㍑㍗：2001/08/06(月) 16:07

今度は、コードレッドかよ。
鬱だ、しのう・・・。

31 ：名無しさん＠お腹いっぱい。：2001/08/08(水) 00:01

ヾ('Д')㍑㍗　＜＜＜一生懸命手を振ってる感じがカワイイ（笑

32 ：名無しさん＠お腹いっぱい。：2001/08/08(水) 02:57

早くUNKOフォトアルバム作ってくれよ。
楽しみにしてるから。

33 ：名無しさん＠お腹いっぱい。：2001/08/18(土) 18:42

ヾ('Д') あげあげ