오늘도 부족한 저의 실력을 설명을 하고져 합니다.
제가 요즘 제 홈페이지의 막바지 작업을 진행 중인데
지금 카운터가 설치가 않되 고민하고 있습니다..
카운터는 쏘스를 가져와서 컴파일을 한거구요..
도와 주세요..
######################################################
먼저 count.cgi 내용
#!/usr/bin/perl
##########################################################################################
$cookiepass = "1624516";
$main_dir = "/usr/local/apache/htdocs/counter/hyung";
$img_url = "http://penguin.pe.kr/counter/img/today";
$img_url = "http://penguin.pe.kr/counter/img/total";
$pass = "0725";
$width = "9";
$height = "23";
###########################################################################################
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
($name, $value) = split(/=/, $query);
$FORM{$name} = $value;
}
$picker = "$main_dir/fly";
$main_dir = "$main_dir/$FORM{'hyung'}";
$cookie = "1";
if($FORM{'pass'} ne ""){
print "Content-type: text/html";
if($FORM{'id'} eq ""){
print "<html><head><title>카운터 초기화 에러 -.-</title></head><body bgcolor=white text=black link=blue vlink=pu
rple alink=red>"; print "<p> <div align=center><table border=0 cellpadding=2 cellspacing=0 width=350 bgcolor=#00009
9>"; print "<tr><td><table border=0 cellpadding=2 cellspacing=0 width=100% bgcolor=#F5E9FF><tr><td bgcolor=#000099>";
print "<p align=center>♡-.- 아이디가 적혀있지 않군요... -.-♡</td></tr><tr><td><p align=center><br>";
print "예) id=hyung<p></td></tr></table></td></tr></table></div><p> </p></body></html>";
exit 0;
}
if($FORM{'start'} eq ""){
print "<html><head><title>초기화 에러... -.-</title></head><body bgcolor=white text=black link=blue vlink=purple al
ink=red><p> "; print "<div align=center><table border=0 cellpadding=2 cellspacing=0 width=350 bgcolor=#000099><tr><
td><table border=0 cellpadding=2 cellspacing=0 width=100% bgcolor=#F5E9FF>"; print "<tr><td bgcolor=#000099><p align=cen
ter>♡-.- 카운터 초기값이 빠졌어요... -.-♡</td></tr><tr><td><p align=center><br>"; print "예) start=123<p
></td></tr></table></td></tr></table></div><p> </p></body></html>"; exit 0;
}
mkdir("$main_dir",0777);
if($pass eq $FORM{'pass'}) {
open(READCOUNT, "$main_dir/counter.txt");
@readcount=<READCOUNT>;
$readcount[0] = "$FORM{'start'}";
close(READCOUNT);
open(PRINTCOUNT,">$main_dir/counter.txt");
&lock;
for(0..18){
print PRINTCOUNT "$readcount[$_]";
}
&unlock;
close(PRINTCOUNT);
print "<html><head><title>카운터 초기화 완료</title></head><body bgcolor=white text=black link=blue vlink=purpl
e alink=red>"; print "<p> <div align=center><table border=0 cellpadding=2 cellspacing=0 width=350 bgcolor=#000099><
tr><td><table border=0 cellpadding=2 cellspacing=0 width=100% bgcolor=#F5E9FF>"; print "<tr><td bgcolor=#000099><p align
=center>♡^.^ 카운터가 초기와 되었습니다. ^.^♡</td></tr>"; print "<tr><td><p align=center><br>초기화
된 카운터 값: $FORM{'start'}<p></td></tr></table></td></tr></table></div><p> </p></body></html>"; }
else{
print "<html><body><center><h2>Password error!!!</h2></center></body></html>";
}
exit 0;
}
&cookie;
&main_htm;
sub cookie{
if($ENV{'HTTP_COOKIE'}) {
@cookies = split(/; /,$ENV{'HTTP_COOKIE'});
foreach(@cookies) {
($name,$value) = split(/=/,$_);
$COOKIE{$name} = $value;
}
}
}
sub main_htm{
open(READCOUNT, "$main_dir/counter.txt");
@readcount=<READCOUNT>;
chop(@readcount);
close(READCOUNT);
$total=$readcount[0];
$today=$readcount[1];
if($FORM{'val'} eq "total"){
if($COOKIE{'NAME'} ne "$FORM{'id'}$cookiepass"){
&visit_count;
}
}
if ($cookie eq "1"){
print "Set-Cookie: NAME=$FORM{'id'}$cookiepass;
";
}
}
sub visit_count{
if($readcount[0] eq ""){
print "Set-Cookie: NAME=$FORM{'id'}$cookiepassBACKUP;
";
open(BACKUP01,"$main_dir/backup01.txt");
@backup=<BACKUP01>;
chop(@backup);
close(BACKUP01);
if($backup[0] eq ""){
open(BACKUP02,"$main_dir/backup02.txt");
@backup=<BACKUP02>;
chop(@backup);
close(BACKUP02);
}
open(PRINTCOUNT,">$main_dir/counter.txt");
&lock;
for(0..18){
print PRINTCOUNT "$backup[$_]";
}
&unlock;
close(PRINTCOUNT);
$plus_num = "2";
&count_plus;
}
$plus_num = "1";
&count_plus;
}
sub count_plus{
$total=$readcount[0];
$today=$readcount[1];
$read_date=$readcount[2];
$Ostm = $ENV{'HTTP_USER_AGENT'};
&get_time;
$total+=$plus_num;
if($read_date eq $writedate){
$today+=$plus_num;
}
else{
$today="1";
}
$readcount[0]=$total;
$readcount[1]=$today;
@month_check=split(///, "$readcount[2]");
if($month_check[1] ne "$month"){
$readcount[$month+2]="";
}
$readcount[2]=$writedate;
@count_day=split(/|/, "$readcount[$month+2]");
$count_day[0]+=$plus_num;
@count_hour=split(/:/, "$count_day[$mday]");
$count_hour[0]+=$plus_num;
$count_hour[$hour+1]+=$plus_num;
$count_day[$mday]=join(':' , @count_hour);
$readcount[$month+2]=join('|' ,@count_day);
@week=split(/|/,$readcount[15]);
$week[$wday] +=$plus_num;
$readcount[15]=join('|',@week);
@OSM=split(/|/,$readcount[16]);
if($Ostm =~ /95/){
$OSM[0] +=$plus_num;
}elsif($Ostm =~ /98/){
$OSM[1] +=$plus_num;
}elsif($Ostm =~ /NT/){
$OSM[2] +=$plus_num;
}elsif($Ostm =~ /Macintosh/){
$OSM[3] +=$plus_num;
}elsif($Ostm =~ /UNIX/ || $Ostm =~ /Linux/){
$OSM[4] +=$plus_num;
}elsif($Ostm =~ /SunOS/){
$OSM[5] +=$plus_num;
}else{
$OSM[6] +=$plus_num;
}
$readcount[16]=join('|',@OSM);
@BRW=split(/|/,$readcount[17]);
if($Ostm =~ /Opera/){
$BRW[0] +=$plus_num;
}elsif($Ostm =~ /MSIE 4/){
$BRW[1] +=$plus_num;
}elsif($Ostm =~ /MSIE 5/){
$BRW[2] +=$plus_num;
}elsif($Ostm =~ /Mozilla/){
$BRW[3] +=$plus_num;
}else{
$BRW[4] +=$plus_num;
}
$readcount[17]=join('|',@BRW);
open(PRINTCOUNT,">$main_dir/counter.txt");
&lock;
for(0..18){
print PRINTCOUNT "$readcount[$_]";
}
&unlock;
close(PRINTCOUNT);
if($readcount[0] ne ""){
if($total%2){
&backup01;
}
else{
&backup02;
}
}
}
sub get_time{
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$month=($mon+1);
if($year ne "99"){
if($year > 100){
$year=($year-100)+2000;
}
elsif($year < 10){
$year=2000+$year;
}
else{
$year="2000";
}
}
else{
$year="1999";
}
$writedate="$year/$month/$mday";
}
sub backup01{
open(BACKUP01,">$main_dir/backup01.txt");
for(0..18){
print BACKUP01 "$readcount[$_]";}
close(BACKUP01);
}
sub backup02{
open(BACKUP02,">$main_dir/backup02.txt");
for(0..18){
print BACKUP02 "$readcount[$_]";}
close(BACKUP02);
}
if($FORM{'img'} ne ""){
$num_img = "$img_url/$FORM{'img'}";
}
else{
$num_img = "$img_url/a";
}
if($FORM{'pos'} eq ""){
$pos_num = 6;
}
elsif(($FORM{'pos'} >= 1) && ($FORM{'pos'} <= 50)){
$pos_num = $FORM{'pos'};
}
else{
$pos_num = 6;
}
open(READCOUNT, "$main_dir/counter.txt");
@readcount=<READCOUNT>;
chop(@readcount);
close(READCOUNT);
$total=$readcount[0];
$today=$readcount[1];
if($FORM{'val'} eq "total"){
$temp_file = "$main_dir/picker1.tmp";
$num_data = sprintf("%.$pos_numd",$total);
}
elsif($FORM{'val'} eq "today"){
$temp_file = "$main_dir/picker2.tmp";
$num_data = sprintf("%.$pos_numd",$today);
}
print "Content-type: image/gif";
@w = split(//,$num_data);
$ww = $#w + 1;
$Imgwidth = ($ww * $width);
$Imgheight = $height;
open(FLY,"> $temp_file");
print FLY "new";
print FLY "size $Imgwidth,$Imgheight";
$wpos = 0;
foreach (split(//,$num_data)){
print FLY "copy $wpos,0,-1,-1,-1,-1,$num_img/$_.gif";
$wpos = ($wpos + $width);
}
print FLY "interlace";
close(FLY);
open(TMP,"$picker -q -i $temp_file |");
while( <TMP> ){
print;
}
close(TMP);
unlink($temp_file);
sub lock {
local($LockFile) = "count.loc";
local($EndTime) = time+45;
while (-s $LockFile && time < $EndTime) {
sleep(1);
}
open(LOCK, ">$main_dir/$LockFile");
print LOCK "lock";
close(LOCK);
}
sub unlock {
local($LockFile) = "count.loc";
open(LOCK, ">$main_dir/$LockFile");
print LOCK "";
close(LOCK);
}
1;
######################################################
다음은 view.cgi 내용
#!/usr/bin/perl
###########################################################################################
$main_url = "http://penguin.pe.kr/counter"; #count.cgi파일이 있는곳의 URL입니다.
$img_url = "http://penguin.pe.kr/counter/img"; #막대그래프 이미지가 있는곳의 URL입니다.
###########################################################################################
&parse;
$main_dir = "/usr/local/apache/htdocs/counter/$FORM{'hyung'}";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$month=($mon+1);
if($year ne "99"){
if($year > 100){
$year=($year-100)+2000;
}
elsif($year < 10){
$year=2000+$year;
}
else{
$year="2000";
}
}
else{
$year="1999";
}
if($FORM{'day'}){
&visit_day_form;
}
elsif($FORM{'hour_total'}){
&hour_total;
}
elsif($FORM{'week_total'}){
&week_total;
}
else{
&visit_month_form;
}
sub visit_month_form{
$month +=0;
$mday +=0;
if(!$FORM{'mon'}){
$FORM{'mon'}=$month;
}
&count_file_open;
@count_line=split(/|/ , $months_line[$FORM{'mon'}+2]);
$total=$count_line[0];
$ck_x='0';
for(1..31){
@hour_line=split(/:/, $count_line[$_]);
$read_line[$ck_x]=($hour_line[0]);
$ck_x += 1;
}
@high_line=@read_line;
@high_line=reverse(sort jangryal(@high_line));
$high_line[0]=1 if($high_line[0]<1);
$best_high=250/$high_line[0];
$how_year=$year;
if($FORM{'mon'}>$month){
$how_year-=1;
}
print "Content-type: text/html";
print <<END;
<HTML>
<HEAD>
<TITLE> $how_year년 $FORM{'mon'}월 방문통계</TITLE>
</HEAD>
<body bgcolor="#FFF6FC" text="black" link="#000099" vlink="#000099" alink="red">
<div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#FF000A">
<tr>
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF">
<tr>
<td><p align="center">☞월-일 접속통계 | <a href="$main_url/view.cgi?id=$FORM{'id'}&command=&mon=$FORM{'mon'}&day
=$mday">일-시 접속통계</a> | <a href="$main_url/view.cgi?id=$FORM{'id'}&command=&hour_total=1">시간대별 누산
</a> | <a href="$main_url/view.cgi?id=$FORM{'id'}&command=&week_total=1">요일,OS별 누산</a> </td> </tr>
</table></td>
</tr>
</table></div><br>
END
print "<div align=center><TABLE border=0 cellspacing=0 cellpadding=2 width=98% bgcolor=#EFEFEF><TR><TD width=54><P alig
n=right>月통계▶</TD>"; for(1..12){
if($FORM{'mon'} != $_){
print "<TD align=right>";
print " <A href=$main_url/view.cgi?id=$FORM{'id'}&command=&mon=$_>";
print "$_月</a></TD>";
}else{
print "<TD align=right> $_月</TD>";
}
}
print "<td widht=13></td></TR><TR><TD width=54><P align=right>접속수▶</TD>";
for(3..14){
@split_mon_hit=split(/|/,$months_line[$_]);
print "<TD align=right>";
if($FORM{'mon'} != ($_ - 2)){
print " $split_mon_hit[0]";
}else{
print " $split_mon_hit[0]";
}
print "</TD>";
}
print "<td widht=13></td></TR></TABLE></div>";
print <<END;
<br>
<TABLE border="0" cellpadding="0" cellspacing="0" width="100%">
<TR>
<TD colspan=2><nobr>
DATE [ $how_year年 $FORM{'mon'}月 날자별 접속횟수 ]</nobr></TD>
</TR>
END
for(1..31){
$width_x=$best_high*$read_line[$_-1];
$width_x=$width_x<1?1:$width_x;
print "<TR><TD width=21>";
if($_ < 10){ $_ = "0$_"; }
print "<A href=$main_url/view.cgi?id=$FORM{'id'}&command=&mon=$FORM{'mon'}&day=$_>";
print "$_</A></TD>";
print "<TD width=274><nobr>";
print "$read_line[$_-1]</nobr></TD></TR>";
}
print "</TR></TABLE>";
&banner;
print "</body></HTML>";
exit;
}
sub visit_day_form{
$month +=0;
$mday +=0;
if(!$FORM{'mon'}){
$FORM{'mon'}=$month;
}
if(!$FORM{'day'}){
$FORM{'day'}=$mday;
}
&count_file_open;
@day_line=split(/|/ , $months_line[$FORM{'mon'}+2]);
@hour_line=split(/:/ , $day_line[$FORM{'day'}]);
$total=$hour_line[0];
@high_line=@hour_line;
@high_line=reverse(sort jangryal(@high_line));
$high_line[1]=1 if($high_line[1]<1);
$best_high= 250/$high_line[1];
$how_year="$year";
if($FORM{'mon'}>$month){
$how_year-=1;
}
print "Content-type: text/html";
print <<END;
<HTML>
<HEAD>
<TITLE> $how_year년 $FORM{'mon'}월 $FORM{'day'}일 시간별 방문통계</TITLE>
</HEAD>
<BODY bgcolor="#DCFCFF" text="black" link="#FF1C20" vlink="#FF1C20" alink="red">
<div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#0000CC">
<tr>
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF">
<tr>
<td><p align="center"><a href=$main_url/view.cgi?id=$FORM{'id'}&command=VISITVIEW>월-일 접속통계</a> | ☞일-시
접속통계 | <a href="$main_url/view.cgi?id=$FORM{'id'}&command=&hour_total=1">시간대별 누산</a> | <a href="$mai
n_url/view.cgi?id=$FORM{'id'}&command=&week_total=1">요일,OS별 누산</a> </td> </tr>
</table></td>
</tr>
</table></div><br>
<TABLE border="0" cellpadding="0" cellspacing="0" width="80%">
<TR>
<TD colspan=2><nobr>HOUR [ $how_year年 $FORM{'mon'}月 $FORM{'day'}日 시간대별 접속횟수 ]
</nobr></TD> </TR>
END
for(1..24){
$width_x=$best_high*$hour_line[$_];
$width_x= 1 if($width_x < 1);
$w_t=$_-1;
$what_time=$_ < 11 ? "0$w_t" : $w_t ;
print "<TR><TD width=21>$what_time</TD>";
print "<TD width=274><nobr>";
print "$hour_line[$_]</nobr></TD></TR>";
}
print "</TABLE>";
&banner;
print "</body></HTML>";
exit;
}
sub hour_total{
$month +=0;
$mday +=0;
&count_file_open;
for(3..14){
@month=split(/|/, $months_line[$_]);
for(1..31){
@dates=split(/:/,$month[$_]);
for(0..23){
$com = $_ +1;
$HOUR{"hour_$_"} += $dates[$com];
}
}
}
$best_com=0;
for(0..23){
$best_com=$HOUR{"hour_$_"} if($HOUR{"hour_$_"} > $best_com);
}
$best_com=1 if($best_com < 1);
$long_size=250/$best_com;
print "Content-type: text/html";
print <<END;
<HTML>
<HEAD>
<TITLE> 시간대별 누산통계</TITLE>
</HEAD>
<BODY bgcolor="#E9FFF1" text="black" link="#006666" vlink="#006666" alink="red">
<div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#FF000A">
<tr>
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF">
<tr>
<td><p align="center"><a href=$main_url/view.cgi>월-일 접속통계</a> | <a href="$main_url/view.cgi?id=$FORM{'id'}&c
ommand=&mon=$FORM{'mon'}&day=$mday">일-시 접속통계</a> | ☞시간대별 누산 | <a href="$main_url/view.cgi?id=$
FORM{'id'}&command=&week_total=1">요일,OS별 누산</a> </td> </tr> </table></td>
</tr>
</table></div><br>
<TABLE border="0" cellpadding="0" cellspacing="0" width="80%">
<TR><TD colspan=2><nobr>HOUR [ 시간대별 접속횟수 누산통계 ]</nobr></TD>
</TR>
END
for(0..23){
$hour_num=$_ < 10?"0$_":$_;
$cont_num=$HOUR{"hour_$_"};
$width_num=$long_size * $cont_num;
$width_num=1 if($width_num < 1);
$cont_num="" if($cont_num < 1);
print "<TR><TD width=21>$hour_num</TD>";
print "<TD width=274><nobr>";
print "$cont_num</nobr></TD></TR>";
}
print "</TABLE>";
&banner;
print "</body></HTML>";
exit;
}
sub week_total{
$month +=0;
$mday +=0;
&count_file_open;
@week_line=split(/|/,$months_line[15]);
foreach $key(@week_line){
$best_long=$key if($key > $best_long);
}
$best_long=1 if($best_long < 1);
$gr_size=250/$best_long;
@week_text=("日","月","火","水","木","金","土");
if($months_line[16]){
@OSTM=split(/|/,$months_line[16]);
foreach $key(@OSTM){
$os_long=$key if($key > $os_long);
}
$os_long=1 if($os_long < 1);
$os_size=250/$os_long;
$w95 =$os_size*$OSTM[0];
$w98 =$os_size*$OSTM[1];
$wnt =$os_size*$OSTM[2];
$mac =$os_size*$OSTM[3];
$unix =$os_size*$OSTM[4];
$sun =$os_size*$OSTM[5];
$wex =$os_size*$OSTM[6];
}
$w95 +=1;
$w98 +=1;
$wnt +=1;
$mac +=1;
$unix +=1;
$sun +=1;
$wex +=1;
if($months_line[17]){
@BRW=split(/|/,$months_line[17]);
foreach $key(@BRW){
$brw_long=$key if($key > $brw_long);
}
$brw_long=1 if($brw_long < 1);
$brw_size=250/$brw_long;
$bre3 =$brw_size*$BRW[0];
$bre4 =$brw_size*$BRW[1];
$bre5 =$brw_size*$BRW[2];
$bnes =$brw_size*$BRW[3];
$brx =$brw_size*$BRW[4];
}
$bre3 +=1;
$bre4 +=1;
$bre5 +=1;
$bnes +=1;
$brx +=1;
print "Content-type: text/html";
print <<END;
<HTML>
<HEAD>
<TITLE> 요일,OS별 누산통계</TITLE>
</HEAD>
<BODY bgcolor="#E9FFF1" text="black" link="#006666" vlink="#006666" alink="red">
<div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#0000CC">
<tr>
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF">
<tr>
<td><p align="center"><a href=$main_url/view.cgi?id=$FORM{'id'}&command=VISITVIEW>월-일 접속통계</a> | <a href=$ma
in_url/view.cgi?id=$FORM{'id'}&command=&mon=$month&day=$mday>일-시 접속통계</a> | <a href="$main_url/view.cgi?id=$
FORM{'id'}&command=&hour_total=1">시간대별 누산</a> | ☞요일,OS별 누산 </td> </tr>
</table></td>
</tr>
</table></div><br>
<center>
[ 요일, OS별 접속횟수 누산 통계 ]</center><BR>
<TABLE border=0 cellpadding=1 cellspacing=0 width=80%><TR><TD colspan=2>▶요일별</TD></TR>
END
for(0..6){
$width = $gr_size * $week_line[$_] ;
$width += 1;
print "<TR><TD width=40>$week_text[$_]요일</TD><TD width=270><nobr> $week_line[$_]</nobr></td></TR>";
}
print "</table>";
print "<br><TABLE border=0 cellpadding=1 cellspacing=0 width=80%><TR><TD colspan=2>▶운영체제별</TD></TR>";
print "<TR><TD width=70>Windows95</TD><TD width=270><nobr> $OSTM[0]</nobr></td></TR>";
print "<TR><TD width=70>Windows98</TD><TD width=270><nobr> $OSTM[1]</nobr></td></tr>";
print "<TR><TD width=70>WindowsNT</TD><TD width=270><nobr> $OSTM[2]</nobr></td></tr>";
print "<TR><TD width=70>Macintosh</TD><TD width=270><nobr> $OSTM[3]</nobr></td></tr>";
print "<TR><TD width=70>Unix/Linux</TD><TD width=270><nobr> $OSTM[4]</nobr></td></tr>";
print "<TR><TD width=70>SunOS</TD><TD width=270><nobr> $OSTM[5]</nobr></td></tr>";
print "<TR><TD width=70>기 타</TD><TD width=170><nobr> $OSTM[6]</nobr></td></tr></table>";
print "<br><TABLE border=0 cellpadding=1 cellspacing=0 width=80%><TR><TD colspan=2>▶부라우저 별</TD></TR>";
print "<TR><TD width=90>익스플로러4.xx</TD><TD width=270><nobr> $BRW[1]</nobr></td></TR>";
print "<TR><TD width=90>익스플로러5.xx</TD><TD width=270><nobr> $BRW[2]</nobr></td></TR>";
print "<TR><TD width=90>네스케이프</TD><TD width=270><nobr> $BRW[3]</nobr></td></TR>";
print "<TR><TD width=90>오 페 라</TD><TD width=270><nobr> $BRW[0]</nobr></td></TR>";
print "<TR><TD width=90>기 타</TD><TD width=270><nobr> $BRW[4]</nobr></td></TR></table>";
&banner;
print "</body></HTML>";
exit;
}
sub count_file_open{
open(VISIT, "$main_dir/counter.txt");
@months_line=<VISIT>;
close(VISIT);
chop(@months_line);
}
sub banner{
print <<END
<br>
<div align="center"><table border="0" cellpadding="0" cellspacing="0" width="60%">
<tr>
<td><p><a href="http://soback.kornet21.net/~aaplus/" target="_blank">★Created by ensoo★</a></td>
</tr>
<tr>
<td><p align="right"><a href="http://sepal.woorizip.com/"
target="_blank">★Powered by sepal★</a></td>
</tr>
</table></div><br>
END
}
sub jangryal{
local($num_a, $num_b);
$num_a=$a=~/^[0-9]+/;
$num_b=$b=~/^[0-9]+/;
$retval=$a<=>$b;
$retval;
}
sub parse{
@args = split(/&/, $ENV{'QUERY_STRING'});
foreach $pair (@args) {
($name, $value) = split(/=/, $pair);
$FORM{$name} = $value;
}
}
1;
#####################################################
그리고 이미지 디렉토리는 counter 디렉토리 않에 있습니다
img 디렉토리 않에는 today 디렉토리와 total 디렉토리가
있습니다.
그리고 설명서를 보시려면은...
http://www.penguin.pe.kr/설명서.htm 그리고 카운터를 보시려면은 ...
http://www.penguin.pe.kr/main.html 를 주소줄에 기록을 하시면 보실수 있습니다..
![[TOP]](/images/color///top.gif){kind=small}
![[ 적수네 동네 ]](/images/button/lsn.gif){kind=small}
![[ 리눅스 상표권 독점 반대 ]](/images/button/savelinux.gif){kind=small}
![[ 한글 리눅스 문서 프로젝트 ]](/images/button/kldp1.gif){kind=small}
![[ KrLine ]](/images/button/linux01.gif){kind=small}
![[ 사랑넷 ]](/images/button/sarangnet.jpg){kind=small}
![[ Valid HTML 4.0! ]](/images/button/w3.gif){kind=small}
![[ SlashDot ]](/images/button/slashbutton.gif){kind=small}
![[ Freshmeat ]](/images/button/freshmeat.gif){kind=small}