#!/usr/bin/perl

$dir=".";
$total_count_file = "totalcount.dat";
$today_count_file = "todaycount.dat";
$yes_count_file = "yesdaycount.dat";
$max_count_file = "maxcount.dat";
$min_count_file = "mincount.dat";
$day_file = "today.dat";
$kdate = &get_date;

################## ¼öÁ¤ÇØ¾ß ÇÒ ºÎºÐ ######################

$where="0";         # Ä«¿îÅ͸¦ °¡·Î·Î ³õÀ¸·Á¸é 0, ¼¼·Î·Î ³õÀ¸·Á¸é 1·Î

#_______________ Àüü ¿À´Ã ÇöÀç µîÀÇ ±ÛÀÚ»ö ¼³Á¤ ________________

$total_textcolor="black";        # Àüü ±ÛÀÚ»ö
$today_textcolor="black";      # ¿À´Ã ±ÛÀÚ»ö
$yes_textcolor="black";         # ¾îÁ¦ ±ÛÀÚ»ö
$max_textcolor="black";       # ÃÖ´ë ±ÛÀÚ»ö
$min_textcolor="black";        # ÃÖÀú ±ÛÀÚ»ö
$user_textcolor="black";       # ÇöÀç ±ÛÀÚ»ö


#______________ Àüü ¿À´Ã ÇöÀçµîÀÇ ¼ýÀÚ(µ¥ÀÌŸ)»ö ¼³Á¤ __________

$total_datacolor="blue";         # Àüü µ¥ÀÌŸ»ö
$today_datacolor="blue";       # ¿À´Ã µ¥ÀÌŸ»ö
$yes_datacolor="blue";         # ¾îÁ¦ µ¥ÀÌŸ»ö
$max_datacolor="blue";        # ÃÖ´ë µ¥ÀÌŸ»ö
$min_datacolor="blue";         # ÃÖÀú µ¥ÀÌŸ»ö
$user_datacolor="red";         # ÇöÀçÁ¢¼ÓÀÚ µ¥ÀÌŸ»ö

################### ¿©±â±îÁö ##############################
&cookie;
&get_current;
&get_Total_num;
&get_date_file;
&get_max_num;
&get_min_num;
&get_yes_num;
&get_today_num;
&put_date_file;  
&print_count;


sub get_date {
  local ($current_date, $sec, $min, $hour, $day, $mon, $year);
  ($sec ,$min, $hour, $day, $mon, $year) = (localtime(time))[0,1,2,3,4,5];
  $mon++;
  $current_date = "$day";

($current_date);
}

sub get_date_file {
   open(COUNT,"$day_file") || die "Can't Open Count Data File: $!\n";
    $day_file_count = <COUNT>;
   close(COUNT);
   if ($day_file_count =~ /\n$/) {
      chop($day_file_count);
   }
}

sub put_date_file {
   open(COUNT,">$day_file") || die "Can't Open Count Data File For Writing: $!\n";
   print COUNT "$kdate";
   close(COUNT);
}


sub get_Total_num {
   open(COUNT,"$total_count_file") || die "Can't Open Count Data File: $!\n";
    $total_count = <COUNT>;
   close(COUNT);
   if ($total_count =~ /\n$/) {
      chop($total_count);
   }
if ($COOKIE{'COUNT'} ne "Ä«¿îÅÍ"){$total_count++;}
   open(COUNT,">$total_count_file") || die "Can't Open Count Data File For Writing: $!\n";
   print COUNT "$total_count";
   close(COUNT);
}

sub get_yes_num {
   open(COUNT,"$yes_count_file") || die "Can't Open Count Data File: $!\n";
    $yes_count = <COUNT>;
   close(COUNT);
   if ($yes_count =~ /\n$/) {
       chop($yes_count);
   }
   }

sub get_max_num {
   open(COUNT,"$max_count_file") || die "Can't Open Count Data File: $!\n";
     $max_count = <COUNT>;
     close(COUNT);
   if ($max_count =~ /\n$/) {
     chop($max_count);
     }
     }

sub get_min_num {
   open(COUNT,"$min_count_file") || die "Can't Open Count Data File: $!\n";
     $min_count = <COUNT>;
     close(COUNT);
   if ($min_count =~ /\n$/) {
      chop($min_count);
     }
     }

sub get_today_num {
   open(COUNT,"$today_count_file") || die "Can't Open Count Data File: $!\n";
    $today_count = <COUNT>;
   close(COUNT);
   if ($today_count =~ /\n$/) {
      chop($today_count);
   }
   if ($kdate == $day_file_count){
if ($COOKIE{'COUNT'} ne "Ä«¿îÅÍ"){$today_count++;}
   }
      else {
           $yes_count=$today_count;
            open(COUNT,">$yes_count_file") || die "Can't Open Count Data File For Writing: $!\n";
            print COUNT "$yes_count";
            close(COUNT);
      if ($max_count < $today_count) {
          $max_count = $today_count;
          open(COUNT,">$max_count_file") || die "Can't Open Count Data File For Writing: $!\n";
          print COUNT "$max_count";
          close(COUNT);
          }
          elsif ($min_count > $today_count) {
          $min_count = $today_count;
          open(COUNT,">$min_count_file") || die "Can't Open Count Data File For Writing: $!\n";
          print COUNT "$min_count";
          close(COUNT);
          }
	   $today_count=1;
   }
  

   open(COUNT,">$today_count_file") || die "Can't Open Count Data File For Writing: $!\n";
   print COUNT "$today_count";
   close(COUNT);
}
sub get_current {
unless (open(MYDIR, "$dir/logs")){
print `mkdir $dir/logs`;
print `chmod 777 $dir/logs`;
print `chmod 777 $dir`;
}

$user_ip=$ENV{'REMOTE_ADDR'};

opendir(MODIFY_FILE, "$dir/logs");
@modify_file = readdir(MODIFY_FILE);
closedir(MODIFY_FILE);
foreach $modify_file (@modify_file) {
if (-f "$dir/logs/$modify_file") {
if (-M "$dir/logs/$modify_file" > 60/60/24) {
print `rm -rf $dir/logs/$modify_file`;
}
}
}

$login_data=join("||", "$year$mon$day$hour$min$sec");
unless (open(MYDIR, "$dir/logs/$user_ip")){
open(WRITE, "+>$dir/logs/$user_ip");
flock (WRITE, 8);
print WRITE "$login_data\n";
close(WRITE);
flock (WRITE, 2);
print `chmod 777 $dir/logs/$user_ip`;
}

opendir(COUNT_FILE, "$dir/logs");
@count_file = readdir(COUNT_FILE);
closedir(COUNT_FILE);
foreach $count_file (@count_file) {
if (-f "$dir/logs/$count_file") {
$user_count++;
}
}#foreach¹® Á¾·á
}
#------------------
sub print_count {
   print "Set-Cookie: COUNT=Ä«¿îÅÍ;\r\n";
   print "Content-type: text/html\n\n";
   print "<html>\n";
   print "<STYLE TYPE=\"text/css\">";
   print "<!--";
   print "body, table, tr, td{";
   print "  color: black\;";
   print "  font-family: µ¸¿ò,±¼¸², verdana, arial, helvetica, sans-serif\;";
   print "  font-size: 9pt;";
   print "  }";
   print " A:link    {text-decoration:none\;}";
   print " A:visited {text-decoration:none\;}";
   print " A:active  {color:red\;}";
   print " A:hover  {color:red\;}";
   print "-->";
   print "</style>";
   print "<body>\n";
#_______________________________________ display1(¼¼·Î¹è¿­)___________________________________
if($where eq "1") {
   print "<font color=$total_textcolor>Àüü</font> <font color=$total_datacolor>$total_count</font><br>\n";
   print "<font color=$yes_textcolor>¾îÁ¦</font> <font color=$yes_datacolor>$yes_count</font><br>\n";
   print "<font color=$max_textcolor>ÃÖ°í</font> <font color=$max_datacolor>$max_count</font><br>\n";
   print "<font color=$today_textcolor>¿À´Ã</font> <font color=$today_datacolor>$today_count</font><br>\n";
}
#_______________________________________ display2(°¡·Î¹è¿­)__________________________________

else {
  print "<font color=$total_textcolor>a22</font> <font color=$total_datacolor>$total_count</font><font color=$yes_textcolor>9e88</font> <font color=$yes_datacolor>$yes_count</font><font color=$max_textcolor>23s8</font> <font color=$max_datacolor>$max_count</font><font color=$today_textcolor>862a9</font> <font color=$today_datacolor>$today_count</font>\n";
}
#__________________________________________________________________________________________

   print "\n</body></html>\n";

   exit;
}


sub cookie{
    if($ENV{'HTTP_COOKIE'}) {
        @cookies = split(/; /,$ENV{'HTTP_COOKIE'});
        foreach(@cookies) {
        ($name,$value) = split(/=/,$_);
        $COOKIE{$name} = $value;
        }}
}