적수네 동네 - 질문과 답변 [ 게시물 수정 ]

	>> Edit article


			이름
			제목
			패스워드

오늘도 부족한 저의 실력을 설명을 하고져 합니다. 
제가 요즘 제 홈페이지의 막바지 작업을 진행 중인데 
지금 카운터가 설치가 않되 고민하고 있습니다.. 
카운터는 쏘스를 가져와서 컴파일을 한거구요.. 
도와 주세요.. 
###################################################### 
먼저 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{&#039;QUERY_STRING&#039;}); 
foreach $query (@querys) { 
($name, $value) = split(/=/, $query); 
$FORM{$name} = $value; 
} 
 $picker = "$main_dir/fly"; 
$main_dir = "$main_dir/$FORM{&#039;hyung&#039;}"; 
$cookie = "1"; 
 if($FORM{&#039;pass&#039;} ne ""){ 
print "Content-type: text/html"; 
if($FORM{&#039;id&#039;} eq ""){ 
print "<title>카운터 초기화 에러 -.-</title>"; 
print " 
  <table border=0 cellpadding=2 cellspacing=0 width=350 bgcolor=#000099>"; 
print "<tr><td><table border=0 cellpadding=2 cellspacing=0 width=100% bgcolor=#F5E9FF><tr><td bgcolor=#000099>"; 
print " 
♡-.- 아이디가 적혀있지 않군요... -.-♡</td></tr><tr><td> 
  "; 
print "예) id=hyung 
 </td></tr></table></td></tr></table> 
   "; 
exit 0; 
} 
 if($FORM{&#039;start&#039;} eq ""){ 
print "<title>초기화 에러... -.-</title> 
"; 
print " 
 <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> 
♡-.- 카운터 초기값이 빠졌어요... -.-♡</td></tr><tr><td> 
  "; 
print "예) start=123 
 </td></tr></table></td></tr></table> 
   "; 
exit 0; 
} 
 mkdir("$main_dir",0777); 
if($pass eq $FORM{&#039;pass&#039;}) { 
open(READCOUNT, "$main_dir/counter.txt"); 
@readcount=; 
$readcount[0] = "$FORM{&#039;start&#039;}"; 
close(READCOUNT); 
open(PRINTCOUNT,">$main_dir/counter.txt"); 
&lock; 
for(0..18){ 
print PRINTCOUNT "$readcount[$_]"; 
} 
&unlock; 
close(PRINTCOUNT); 
 print "<title>카운터 초기화 완료</title>"; 
print " 
  <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> 
♡^.^ 카운터가 초기와 되었습니다. ^.^♡</td></tr>"; 
print "<tr><td> 
  초기화된 카운터 값: $FORM{&#039;start&#039;} 
 </td></tr></table></td></tr></table> 
   "; 
 } 
else{ 
print " 
Password error!!! 
"; 
} 
exit 0; 
} 
 &cookie; 
&main_htm; 
 sub cookie{ 
if($ENV{&#039;HTTP_COOKIE&#039;}) { 
@cookies = split(/; /,$ENV{&#039;HTTP_COOKIE&#039;}); 
foreach(@cookies) { 
($name,$value) = split(/=/,$_); 
$COOKIE{$name} = $value; 
} 
} 
} 
 sub main_htm{ 
open(READCOUNT, "$main_dir/counter.txt"); 
@readcount=; 
chop(@readcount); 
close(READCOUNT); 
$total=$readcount[0]; 
$today=$readcount[1]; 
if($FORM{&#039;val&#039;} eq "total"){ 
if($COOKIE{&#039;NAME&#039;} ne "$FORM{&#039;id&#039;}$cookiepass"){ 
&visit_count; 
} 
} 
if ($cookie eq "1"){ 
print "Set-Cookie: NAME=$FORM{&#039;id&#039;}$cookiepass;
"; 
} 
} 
 sub visit_count{ 
if($readcount[0] eq ""){ 
print "Set-Cookie: NAME=$FORM{&#039;id&#039;}$cookiepassBACKUP;
"; 
 open(BACKUP01,"$main_dir/backup01.txt"); 
@backup=; 
chop(@backup); 
close(BACKUP01); 
 if($backup[0] eq ""){ 
open(BACKUP02,"$main_dir/backup02.txt"); 
@backup=; 
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{&#039;HTTP_USER_AGENT&#039;}; 
&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(&#039;:&#039; , @count_hour); 
$readcount[$month+2]=join(&#039;|&#039; ,@count_day); 
@week=split(/|/,$readcount[15]); 
$week[$wday] +=$plus_num; 
$readcount[15]=join(&#039;|&#039;,@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(&#039;|&#039;,@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(&#039;|&#039;,@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{&#039;img&#039;} ne ""){ 
$num_img = "$img_url/$FORM{&#039;img&#039;}"; 
} 
else{ 
$num_img = "$img_url/a"; 
} 
 if($FORM{&#039;pos&#039;} eq ""){ 
$pos_num = 6; 
} 
elsif(($FORM{&#039;pos&#039;} >= 1) && ($FORM{&#039;pos&#039;} <= 50)){ 
$pos_num = $FORM{&#039;pos&#039;}; 
} 
else{ 
$pos_num = 6; 
} 
 open(READCOUNT, "$main_dir/counter.txt"); 
@readcount=; 
chop(@readcount); 
close(READCOUNT); 
$total=$readcount[0]; 
$today=$readcount[1]; 
  if($FORM{&#039;val&#039;} eq "total"){ 
$temp_file = "$main_dir/picker1.tmp"; 
$num_data = sprintf("%.$pos_numd",$total); 
 } 
elsif($FORM{&#039;val&#039;} 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( ){ 
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{&#039;hyung&#039;}"; 
 ($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{&#039;day&#039;}){ 
&visit_day_form; 
} 
elsif($FORM{&#039;hour_total&#039;}){ 
&hour_total; 
} 
elsif($FORM{&#039;week_total&#039;}){ 
&week_total; 
} 
else{ 
&visit_month_form; 
} 
 sub visit_month_form{ 
 $month +=0; 
$mday +=0; 
 if(!$FORM{&#039;mon&#039;}){ 
$FORM{&#039;mon&#039;}=$month; 
} 
 &count_file_open; 
@count_line=split(/|/ , $months_line[$FORM{&#039;mon&#039;}+2]); 
$total=$count_line[0]; 
$ck_x=&#039;0&#039;; 
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{&#039;mon&#039;}>$month){ 
$how_year-=1; 
} 
 print "Content-type: text/html"; 
 print < 
 <title> $how_year년 $FORM{&#039;mon&#039;}월 방문통계</title> 
   <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> 
☞월-일 접속통계 | 일-시 접속통계 | 시간대별 누산 | 요일,OS별 누산 </td> 
</tr> 
</table></td> 
</tr> 
</table> 
   END 
 print " 
<table border=0 cellspacing=0 cellpadding=2 width=98% bgcolor=#EFEFEF><tr><td width=54> 
月통계▶</td>"; 
for(1..12){ 
 if($FORM{&#039;mon&#039;} != $_){ 
print "<td align=right>"; 
print " "; 
print "$_月</td>"; 
}else{ 
print "<td align=right> $_月</td>"; 
} 
 } 
print "<td widht=13></td></tr><tr><td width=54> 
 접속수▶</td>"; 
for(3..14){ 
@split_mon_hit=split(/|/,$months_line[$_]); 
print "<td align=right>"; 
if($FORM{&#039;mon&#039;} != ($_ - 2)){ 
print " $split_mon_hit[0]"; 
}else{ 
print " $split_mon_hit[0]"; 
} 
print "</td>"; 
} 
print "<td widht=13></td></tr></table> 
 "; 
 print < 
 <table border="0" cellpadding="0" cellspacing="0" width="100%"> 
<tr> 
<td colspan=2> 
DATE [ $how_year年 $FORM{&#039;mon&#039;}月 날자별 접속횟수 ]</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 ""; 
print "$_</td>"; 
print "<td width=274>"; 
print "$read_line[$_-1]</td></tr>"; 
} 
print "</tr></table>"; 
&banner; 
print ""; 
exit; 
} 
 sub visit_day_form{ 
$month +=0; 
$mday +=0; 
if(!$FORM{&#039;mon&#039;}){ 
$FORM{&#039;mon&#039;}=$month; 
} 
if(!$FORM{&#039;day&#039;}){ 
$FORM{&#039;day&#039;}=$mday; 
} 
&count_file_open; 
@day_line=split(/|/ , $months_line[$FORM{&#039;mon&#039;}+2]); 
@hour_line=split(/:/ , $day_line[$FORM{&#039;day&#039;}]); 
$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{&#039;mon&#039;}>$month){ 
$how_year-=1; 
} 
 print "Content-type: text/html"; 
 print < 
 <title> $how_year년 $FORM{&#039;mon&#039;}월 $FORM{&#039;day&#039;}일 시간별 방문통계</title> 
   <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> 
월-일 접속통계 | ☞일-시 접속통계 | 시간대별 누산 | 요일,OS별 누산 </td> 
</tr> 
</table></td> 
</tr> 
</table> 
   <table border="0" cellpadding="0" cellspacing="0" width="80%"> 
<tr> 
<td colspan=2>HOUR [ $how_year年 $FORM{&#039;mon&#039;}月 $FORM{&#039;day&#039;}日 시간대별 접속횟수 ]</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>"; 
print "$hour_line[$_]</td></tr>"; 
} 
print "</table>"; 
&banner; 
print ""; 
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 < 
 <title> 시간대별 누산통계</title> 
    <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> 
월-일 접속통계 | 일-시 접속통계 | ☞시간대별 누산 | 요일,OS별 누산 </td> 
</tr> 
</table></td> 
</tr> 
</table> 
   <table border="0" cellpadding="0" cellspacing="0" width="80%"> 
<tr><td colspan=2>HOUR [ 시간대별 접속횟수 누산통계 ]</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>"; 
print "$cont_num</td></tr>"; 
} 
print "</table>"; 
&banner; 
print ""; 
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 < 
  <title> 요일,OS별 누산통계</title> 
   <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> 
월-일 접속통계 | 일-시 접속통계 | 시간대별 누산 | ☞요일,OS별 누산 </td> 
</tr> 
</table></td> 
</tr> 
</table> 
     [ 요일, OS별 접속횟수 누산 통계 ] 
  <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> $week_line[$_]</td></tr>"; 
} 
print "</table>"; 
 print " 
<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> $OSTM[0]</td></tr>"; 
print "<tr><td width=70>Windows98</td><td width=270> $OSTM[1]</td></tr>"; 
print "<tr><td width=70>WindowsNT</td><td width=270> $OSTM[2]</td></tr>"; 
print "<tr><td width=70>Macintosh</td><td width=270> $OSTM[3]</td></tr>"; 
print "<tr><td width=70>Unix/Linux</td><td width=270> $OSTM[4]</td></tr>"; 
print "<tr><td width=70>SunOS</td><td width=270> $OSTM[5]</td></tr>"; 
print "<tr><td width=70>기 타</td><td width=170> $OSTM[6]</td></tr></table>"; 
print " 
<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> $BRW[1]</td></tr>"; 
print "<tr><td width=90>익스플로러5.xx</td><td width=270> $BRW[2]</td></tr>"; 
print "<tr><td width=90>네스케이프</td><td width=270> $BRW[3]</td></tr>"; 
print "<tr><td width=90>오 페 라</td><td width=270> $BRW[0]</td></tr>"; 
print "<tr><td width=90>기 타</td><td width=270> $BRW[4]</td></tr></table>"; 
&banner; 
print ""; 
exit; 
} 
 sub count_file_open{ 
open(VISIT, "$main_dir/counter.txt"); 
@months_line=; 
close(VISIT); 
chop(@months_line); 
} 
 sub banner{ 
print < 
  <table border="0" cellpadding="0" cellspacing="0" width="60%"> 
<tr> 
<td> 
★Created by ensoo★</td> 
</tr> 
<tr> 
<td> 
 ★Powered by sepal★</td> 
</tr> 
</table> 
   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{&#039;QUERY_STRING&#039;}); 
 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 를 주소줄에 기록을 하시면 보실수 있습니다..