From owner-FreeBSD-users-jp@jp.FreeBSD.org Tue Dec 13 23:41:17 2005
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id jBDEfHE08986;
	Tue, 13 Dec 2005 23:41:17 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from vc-net.ne.jp (ds9.mmtr.or.jp [210.228.173.148] (may be forged))
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id jBDEfH908981
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Tue, 13 Dec 2005 23:41:17 +0900 (JST)
	(envelope-from md440@vc-net.ne.jp)
Received: from localhost (210.165.78.214:50595)
	by vc-net.ne.jp with [XMail 1.18 (Win32/Ix86) ESMTP Server]
	id <S11861E7> for <FreeBSD-users-jp@jp.FreeBSD.org> from <md440@vc-net.ne.jp>;
	Tue, 13 Dec 2005 23:43:26 +0900
Message-ID: <86acf5ysav.wl@vc-net.ne.jp>
From: "Dobashi.M"<md440@vc-net.ne.jp>
To: FreeBSD-users-jp@jp.FreeBSD.org
User-Agent: Wanderlust/2.10.1 (Watching The Wheels) SEMI/1.14.6 (Maruoka) FLIM/1.14.6 (Marutamachi) APEL/10.6 MULE XEmacs/21.4 (patch 14) (Reasonable Discussion) (i386--freebsd)
MIME-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka")
Content-Type: text/plain; charset=ISO-2022-JP
X-Dispatcher: imput version 20040704(IM147)
Lines: 77
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Tue, 13 Dec 2005 23:39:52 +0900
X-Sequence: FreeBSD-users-jp 88781
Subject: [FreeBSD-users-jp 88781] Web =?ISO-2022-JP?B?GyRCJTUlJBsoQg==?=
 =?ISO-2022-JP?B?GyRCJUgkWCROJVAlQyVVJSElKiE8JVAhPCVVJW0bKEI=?=
 =?ISO-2022-JP?B?GyRCITw5NjdiGyhC?=
 ? =?ISO-2022-JP?B?GyRCJFgkTktJMVI6dhsoQg==?= ?
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: md440@vc-net.ne.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+051211

$B$$$D$bJY6/$K$J$j$^$9!#(B($B$3$3$X$NEj9F$+$I$&$+LB$C$?$N$G$9$,(B...)
$B@hF|EvJ}$N(BWeb$B%5%$%H$G(B CGI$B%+%&%s%?$N%G!<%?$J$I$,>C<:$7$^$7$?!#(B

index.html$B$G$N2U=j$O(B
<!--#exec cmd="./sub/countgif.cgi countgif"-->

$B2<5-$N$h$&$K%"%/%;%9%m%0$bO?$C$F$$$?$N$G$9$,(B
<!--#exec cmd="./sub/accesslog.cgi"-->

% cat accesslog.cgi
...
open(AGENT,">>$agent");
print AGENT $ENV{'HTTP_USER_AGENT'}, "\n";
close(AGENT);
...

$B$=$NCf$N(Bagent.log$B$K0J2<$NMM$J5-O?$,$"$j(B,$B$=$l$G(B(countgif.cnt$B$J$I$,(B)$B:o=|(B
$B$5$l$?$N$G$O(B?$B$H;W$o$l$^$9!#(B

% hd agent.log | jless
...
00001ff0  45 54 20 43 4c 52 20 31  2e 31 2e 34 33 32 32 3b  |ET CLR 1.1.4322;|
00002000  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00004800  68 6f 6d 65 31 2f 6d 64  34 34 30 2f 70 75 62 6c  |home1/md440/publ|
00004810  69 63 5f 68 74 6d 6c 2f  73 75 62 2f 64 61 74 61  |ic_html/sub/data|
00004820  2f 63 6f 75 6e 74 67 69  66 2e 63 6e 74 00 00 00  |/countgif.cnt...|
00004830  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00004860  00 00 00 00 30 30 30 30  36 36 36 00 30 30 31 32  |....0000666.0012|
00004870  35 36 31 00 30 30 32 33  34 32 30 00 30 30 30 30  |561.0023420.0000|
00004880  30 30 30 30 30 30 36 00  31 30 33 34 30 32 36 30  |0000006.10340260|
00004890  37 35 37 00 30 31 37 34  33 33 00 20 30 00 00 00  |757.017433. 0...|
000048a0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00004900  00 75 73 74 61 72 20 20  00 00 00 00 00 00 00 00  |.ustar  ........|
00004910  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00004940  00 00 00 00 00 00 00 00  00 30 30 30 30 30 30 30  |.........0000000|
00004950  00 30 30 30 30 30 30 30  00 00 00 00 00 00 00 00  |.0000000........|
00004960  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00004a00  31 33 37 31 36 0a 00 00  00 00 00 00 00 00 00 00  |13716...........|
00004a10  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00004a10  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
...($BB3$/(B)

$B$=$3$G(Baccesslog.cgi$B$r0J2<$NMM$K2~D{$7$h$&$+$H;W$$$^$9!#(B
...
open(AGENT,">>$agent");
$age = &length_check($ENV{'HTTP_USER_AGENT'});
print AGENT "$age\n";
close(AGENT);

sub length_check{
  my ($in) = @_;

  $in =~ tr/\x00/*/s;
  return $in;
}
...

agent.log$B%U%!%$%k$G$N%F%9%H$G$O0J2<$NMM$K$J$j$^$9!#(B
...*home1/md440/public_html/sub/data/countgif.cnt*0000666*0012561*0023420*\
00000000006*10340260757*017433* 0*ustar  *0000000*0000000*13716
...
$B$7$+$7(B,$B$3$l$GKI$2$k$b$N$G$7$g$&$+(B? 
0$B$G$N%Q%G%#%s%0(B(?)$B$O!V(Bprint AGENT "$age\n"$B!W$9$k0JA0$K0-$5$r$7$F$$$k$N(B
$B$G$O$J$$$G$7$g$&$+(B?

($B%5!<%P!<B&$G$O0J9_(B *.shtml$B$G$N(BSSI$BF0:n$KJQ99$5$l$^$7$?!#$^$?%5!<%P!<$G$O(B
-sh-2.05b$ uname -a
Linux vs05 2.4.20-8 #1 Thu Mar 13 17:54:28 EST 2003 i686 i686 i386 GNU/Linux
$B$r;HMQ$7$F$$$^$9(B)
-- 
                        /  Name : Dobashi Mitsuyoshi  /
                       / E-mail : md440@vc-net.ne.jp /
