KENT-WEB ¥µ¥Ý¡¼¥È¥³¡¼¥Ê¡¼ ²áµî¥í¥° [ 0336 ]


µ­»öNo¡§ 16740
Åê¹ÆÆü¡§ 2022/02/17(Thu) 18:42:24
¥¿¥¤¥È¥ë¡§ Lime Counter¤Ë¤Ä¤¤¤Æ
ID¾ðÊó¡§ aicom
Åê¹Æ¼Ô¡§ aicom

¤Ï¤¸¤á¤Þ¤·¤Æ¡£¤³¤ÎÅ٤ϤªÀ¤Ïäˤʤê¤Þ¤¹¡£

¡ÖLime Counter ver5.01¡×¤Ç¥À¥¦¥ó¥í¡¼¥É¥«¥¦¥ó¥¿¡¼¤òÍøÍѤ·¤¿¤¯¡¢¥Æ¥¹¥È¹½ÃÛ¤ò¤·¤Æ¤¤¤Þ¤¹¡£
¤µ¤¯¤é¥¤¥ó¥¿¡¼¥Í¥Ã¥È¥µ¡¼¥Ð¡¼¤Ç¤¹¡£
»ÅÍͤʤɤˤĤ¤¤Æ¤ª»Ç¤¤¤·¤¿¤¯¡¢Åê¹Æ¤µ¤»¤Æ¤¤¤¿¤À¤­¤Þ¤·¤¿¡£

£±¡¥¥«¥¦¥ó¥¿Ãͤò£°¤Ë¥ê¥»¥Ã¥È¤Ç¤­¤Ê¤¤
IDÅÐÏ¿²èÌ̤«¤é¸Ä¡¹¤ÎID¤ò¡Ö½¤Àµ¡×¤Ç³«¤­¡¢
¡Ö¥«¥¦¥ó¥¿Ã͡פò0¤Ë¤·¤ÆÁ÷¿®¤·¤Æ¤âÈ¿±Ç¤µ¤ì¤Þ¤»¤ó¡£
¤¿¤À¡¢1°Ê¾å¤Î¿ôÃͤǤ¢¤ì¤ÐÁý¸º¤¬¤Ç¤­¤Þ¤·¤¿¡£

ÀßÄê¤ÎÌäÂ꤫¡¢»ÅÍͤʤΤ«ÀÚ¤êʬ¤±¤ò¤·¤¿¤¤¤Ç¤¹¡£

¢§¥«¥¦¥ó¥¿ÃÍÊѹ¹Îã
¡ß¡¡1¡¡¢ª¡¡0
¡»¡¡2¡¡¢ª¡¡1
¡»¡¡1¡¡¢ª¡¡2

£²¡¥ID¤ÎÅÐÏ¿¾å¸Â
º£²óÀßÃÖ¤ò¹Í¤¨¤Æ¤¤¤ë¥µ¥¤¥È¤Ç¤Ï¿ôÃͤò·×¬¤·¤¿¤¤¥Õ¥¡¥¤¥ë¤¬
Áí¿ô¤ÇÌó1500¤Û¤É¤Ë¤Ê¤ë¸«¹þ¤ß¤Ç¤¹¡£

­¡1500¤ÎIDÅÐÏ¿¡Ü·×¬¤ËCGI¤ÏÂѤ¨¤é¤ì¤ë¤Ç¤·¤ç¤¦¤«¡©
¡¡¢¨¥µ¡¼¥Ð¡¼¤ÎÍÆÎ̤ÎÌäÂê¤Ï½ü¤¤¤Æ¡£

­¢ID¤ÎÅÐÏ¿¤Ë¾å¸Â¤Ï¤¢¤ê¤Þ¤¹¤«¡©

­£init.cgi¤Î°Ê²¼¿ôÃͤϡ¢¤É¤¦¤¤¤Ã¤¿¾ì¹ç¤ËÊѹ¹¤¬É¬ÍפÊÀßÄê¤Ç¤·¤ç¤¦¤«¡©
# ´ÉÍý²èÌ̤κÇÂç¼õÍý¥µ¥¤¥º¡Ê¥Ð¥¤¥È¡Ë
$cf{maxdata} = 10240;

½éÊâŪ¤ÊÉôʬ¤â¤¢¤ê¶²½Ì¤Ç¤¹¤¬¡¢¤´¶µ¼¨¤¤¤¿¤À¤±¤Þ¤¹¤È¹¬¤¤¤Ç¤¹¡£

¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£


µ­»öNo¡§ 16742
Åê¹ÆÆü¡§ 2022/02/17(Thu) 22:19:52
¥¿¥¤¥È¥ë¡§ Re: Lime Counter¤Ë¤Ä¤¤¤Æ
ID¾ðÊó¡§ hamel
Åê¹Æ¼Ô¡§ HUMMEL

> £±¡¥¥«¥¦¥ó¥¿Ãͤò£°¤Ë¥ê¥»¥Ã¥È¤Ç¤­¤Ê¤¤
> IDÅÐÏ¿²èÌ̤«¤é¸Ä¡¹¤ÎID¤ò¡Ö½¤Àµ¡×¤Ç³«¤­¡¢
> ¡Ö¥«¥¦¥ó¥¿Ã͡פò0¤Ë¤·¤ÆÁ÷¿®¤·¤Æ¤âÈ¿±Ç¤µ¤ì¤Þ¤»¤ó¡£
> ¤¿¤À¡¢1°Ê¾å¤Î¿ôÃͤǤ¢¤ì¤ÐÁý¸º¤¬¤Ç¤­¤Þ¤·¤¿¡£

¼è¤ê´º¤¨¤º¡¢¡Ö1.¡×¤À¤±¡£

admin.cgiÆâ£±£¶£°¹ÔÌܤ¢¤¿¤ê

# ¥«¥¦¥ó¥¿¹¹¿·
if ($in{cnt} != $in{count}) {
open(DAT,"+< $cf{logdir}/$in{id}.dat");
eval "flock(DAT, 2);";
my $count = <DAT>;
my ($count,$ip) = split(/:/,$count);
seek(DAT, 0, 0);
print DAT "$in{count}:$ip";
truncate(DAT, tell(DAT));
close(DAT);
}

¢¬¤ò¢­¤Î¤è¤¦¤ËÄɲý¤Àµ

# ¥«¥¦¥ó¥¿¹¹¿·
if ($in{cnt} != $in{count}) {
open(DAT,"+< $cf{logdir}/$in{id}.dat");
eval "flock(DAT, 2);";
my $count = <DAT>;
my ($count,$ip) = split(/:/,$count);
seek(DAT, 0, 0);
print DAT "$in{count}:$ip";
truncate(DAT, tell(DAT));
close(DAT);
} elsif ($in{cnt} == $in{count}) {
open(DAT,"+< $cf{logdir}/$in{id}.dat");
eval "flock(DAT, 2);";
my $count = <DAT>;
my ($count,$ip) = split(/:/,$count);
seek(DAT, 0, 0);
print DAT "0:$ip";
truncate(DAT, tell(DAT));
close(DAT);
}

°Ê¾å¤Ç´ÉÍý¥â¡¼¥É¤Ç¤Î¿ôÃͤν¤ÀµÊѹ¹¤ÏÀµ¾ï¤Ëºîư¤¹¤ë¤Ï¤º¤Ç¤¹¡£


µ­»öNo¡§ 16749
Åê¹ÆÆü¡§ 2022/02/18(Fri) 13:12:46
¥¿¥¤¥È¥ë¡§ Re^2: Lime Counter¤Ë¤Ä¤¤¤Æ
ID¾ðÊó¡§ aicom
Åê¹Æ¼Ô¡§ aicom

HUMMEL¤µ¤Þ

¤µ¤Ã¤½¤¯¤Î¤´²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤¤¤¿¤À¤¤¤¿¥³¡¼¥É¤Ë½ñ¤­´¹¤¨¤¿¤È¤³¤í¡¢Àµ¾ï¤Ë¡Ö0¡×¤ËÊѹ¹¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
¤È¤Æ¤â½õ¤«¤ê¤Þ¤·¤¿¡£¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

---------------------------------------------

£².ID¤Î¾å¸Â¤Ë¤Ä¤¤¤Æ¤Ï
CGI¤òÊ£¿ô¤Ëʬ¤±¤ë¤Ê¤É¤·¤Æ¡¢¸¡¾Ú¡¦ÀßÃÖ¤ò¤·¤Æ¤ß¤è¤¦¤È»×¤¤¤Þ¤¹¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£


[¸¡º÷¥Ú¡¼¥¸]