#!/usr/bin/perl -w
################################################################################
#                       SmartStat ver1.0 - MCOnet version                      #
################################################################################
#    Bacsi Gábor                       #    Original: SmartStat ver1.0         #
#    E-mail: b_gabor@mailbox.hu        #    Platform: Linux, WindowsNT         #
#    Tel.: +36-30/276-7696             #    Dátum: 2001-08-21                  #
################################################################################

print "Content-type:text/html\n\n";

$qs = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $qs);
foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}

require 'szamlalo.conf';
&get_time;
&check_folder;

if ($qs eq "szamol") {
    &check_folder;
    $date_filename = $this_date;
	 if (-e "data/$date_filename".".dat") {
	    &beolvas;
	    &ir;
	    #debug#&public;
	    exit;
	    } else {
	    &uj;
	    &beolvas;
	    &ir;
	    #debug#&public;
	    exit;
	 }
}

if ($qs eq "mutat") {
   &check_folder;
   $date_filename = $this_date;
  	if (-e "data/$date_filename".".dat") {
       $date_filename = $this_date;
   	 &beolvas;
   	 &html_eleje;
   	 &adatok;
   	 &html_vege;
   	 exit;
   }
    else {
    $date_filename = $this_date;
	 &uj;
    &beolvas;
    &html_eleje;
    &adatok;
    &html_vege;
    exit;
   }
}

if ($qs eq "date_archiv=$FORM{'date_archiv'}") {
   &check_folder;
   $date_filename = "$FORM{'date_archiv'}";
   &beolvas;
   &html_eleje;
   &adatok;
   &html_vege;
   exit;
   }

&hiba;

sub check_folder {
    if (!(-e "data")) {
    print "A data mappa nem található!";
    exit;
    }
}

sub hiba {
print "Nem adtál meg funkciót!";
}

sub get_time {
	my($year,$mon,$day,$hour,$min,$sec);
	@months = ('Január','Február','Március','Április','Május','Június','Július',
			  'Augusztus','Szeptember','Október','November','December');
	($daynyear,$year,$mon,$day,$hour,$min,$sec) = (localtime(time))[7,5,4,3,2,1,0];
	$mon++;
	$year = $year + 1900;
	if ($mon > 12) {
	$mon = 0;
	}

	$ev = $year;
	$date_day = sprintf(qq/%02d/,$day);
	$this_date = sprintf(qq/%04d%02d/,$year,$mon);
	$honap = $mon-1;
	$honap_neve = $months[$mon-1];

	@napok = (31,28,31,30,31,30,31,31,30,31,30,31);
	$napok_szama = "$napok[$honap]";
	$ma = "$year. $months[$mon-1] $day.";
}

sub uj {
    open(IR,">data/$date_filename".".dat");
    if ($use_flock eq "yes") {
    flock(IR,2);
    }
    for ($i=0;$i<31;$i++){
           print IR "0:";
    }
    print IR "$ev. $honap_neve";
    close IR;
    chmod(0666, "data/$date_filename".".dat");

    if (!(-e "data/public.dat")) {
    open(NEW,">data/public.dat");
    if ($use_flock eq "yes") {
    flock(NEW,2);
    }
    print NEW "0";
    close(NEW);
    chmod(0666, "data/public.dat");
    }

    open(ARCHIV,">>data/archiv.dat");
    if ($use_flock eq "yes") {
    flock(ARCHIV,2);
    }
    print ARCHIV "$date_filename\n";
    close(ARCHIV);
    chmod(0666, "data/archiv.dat");
    &check_files;
}

sub check_files {
    if(!(-e "data/$date_filename".".dat")) {
    print "A <b>$date_filename.dat</b> fájl-t nem tudom létrehozni! Adj jogosultságot a <i>data</i> mappa írására!<br>\n";
    }
    if(!(-e "data/publica.dat")) {
    print "A <b>public.dat</b> fájl-t nem tudom létrehozni! Adj jogosultságot a <i>data</i> mappa írására!<br>\n";
    }
    if(!(-e "data/archiva.dat")) {
    print "A <b>archiv.dat</b> fájl-t nem tudom létrehozni! Adj jogosultságot a <i>data</i> mappa írására!<br>\n";
    exit;
    }
}

sub beolvas {
    open(OLVAS,"data/$date_filename".".dat");
    @DATUM = <OLVAS>;
    close OLVAS;
    $file_data = join('',@DATUM);
    @file_data = split(/:/,$file_data);
    srand(time ^ $$);

    open (PUBLIC,"data/public.dat");
    $public = <PUBLIC>;
    close (PUBLIC);
}


sub ir {
    $uj = $file_data[$date_day-1]+1;

    open(IR,">data/$date_filename".".dat");
    if ($use_flock eq "yes") {
    flock(IR,2);
    }
    for ($i=0;$i<32;$i++){
    if ($i eq ($date_day-1)) {
       print IR "$uj".":";
    } else {
      if ($i eq "31") {
          print IR "$file_data['31']";
        } else {
          print IR "$file_data[$i]:";
        }
    }
    }
    close IR;

    if (!(-e "data/public.dat")) {
    open(NEW,">data/public.dat");
    if ($use_flock eq "yes") {
    flock(NEW,2);
    }
    print NEW "0";
    close(NEW);
    }

    open(READ,"data/public.dat");
    $a = <READ>;
    close(READ);

    open(WRITE,">data/public.dat");
    if ($use_flock eq "yes") {
    flock(WRITE,2);
    }
    $counter = $a+1;
    print WRITE "$counter";
    close(WRITE);

    if ($public_counter eq "yes") {
    $count_length = length($counter);
    for ($i = $pad_size;$i > $count_length;$i--) {
         $counter = "0$counter";
    }
    print "$text$counter";
    }
}

sub html_eleje {
print <<HTML;
<html>
<head>
<title>$page_title</title>
<style type="text/css"><!--
.ceg {
	font-family\: Verdana, Arial, Geneva, Helvetica;
	font-size\: 12px;
	font-style\: normal;
	font-weight\: bold;
	text-decoration\: none;
	color\: $text_color;
	background-color\: $ceg_bgcolor;
}
td {
	font-family: Verdana, Arial, Geneva, Helvetica;
	font-size: $table_font_size px;
	font-style: normal;
	font-weight: normal;
	text-decoration: none;
	color: $text_color;
	background-color: $data_bgcolor;
}
input, select {
	background color: $urlap_bgcolor;
	border-bottom: #000000 1pt solid;
	border-left: #000000 1pt solid;
	border-right: #000000 1pt solid;
	border-top: #000000 1pt solid;
	font-family: Arial, Verdana, Geneva, Helvetica;
	font-size: 12px;
	font-style: normal;
	font-weight: bold;
	text-decoration: none;
	color: #000000;
}
// --></style>
</head>
<body bgcolor="$page_bgcolor">
<center>
<table bgcolor="$line_color" width="450" border="0" cellspacing="1" cellpadding="0">
 <tr>
   <td colspan="3" align="center">
     <table border="0" cellpadding="0" cellspacing="0" width="450">
      <tr>
      <td rowspan="2"><a href="http://www.mconet.hu" target="_blank"><img src="$url/mconet.gif" width="159" height="68" border="0"></a></td>
      <td><img src="$url/statisztika.gif" width="290" height="40" border="0"></td>
      <td rowspan="2"><img src="$url/blue_dots.gif" width="1" height="68" border="0"></td>
     </tr>
     <tr>
       <td align="center" height="28" class="ceg">$name_of_company</td>
     </tr>
     <tr>
      <td colspan="3"><img src="$url/blue_line.gif" width="450" height="2" border="0"></td>
     </tr>
   </table>
   </td>
 </tr>
 <tr>
   <td colspan="3" align="right">\&nbsp;Mai dátum: $ma </td>
 </tr>
 <tr>
   <td colspan="3" height="20"><b>\&nbsp;$file_data['31'] <b></td>
 </tr>
 <tr>
   <td>\&nbsp;Nap </td>
   <td colspan="2" height="20">\&nbsp;Látogatások száma:</td>
 </tr>
HTML
}

sub adatok {
    foreach $v (@file_data){
       $osszes1 = ($osszes1+$v);
    }
    $osszes = $osszes1- $file_data['31'];

    for ($i=0;$i<$napok_szama;$i++){
    $n = $i+1;
    print " <tr>\n";
    print "   <td width=\"30\">\&nbsp;$n.</td>\n";
    print "   <td width=\"370\"><img src=\"$url/bar.gif\"";
    if ($max_visitors < "360") {
        print " width=\"$file_data[$i]\" height=\"7\"";
        } elsif ($max_visitors >= "361" & $max_visitors < "900") {
                 print " width=\"".$file_data[$i]*0.43."\" height=\"7\"";
        } elsif ($max_visitors >= "901") {
                 print " width=\"".$file_data[$i]*0.149."\" height=\"7\"";
    }
    print "</td>\n";
    print "   <td width=\"50\" align=\"center\">$file_data[$i]</td>\n";
    print " </tr>\n";
    }
}

sub html_vege {
print <<HTML;
 <tr>
   <td colspan="2" height="20">\&nbsp;Ebben a hónapban a látogatások száma:</td>
   <td align="center" height="20">$osszes</td>
 </tr>
 <tr>
   <td colspan="2" height="20">\&nbsp;<b>Az eddigi összes látogatások száma:</b> </td>
   <td align="center" height="20"><b>$public</b></td>
 </tr>
 <tr>
 <form action="$cgi_path/szamlalo.cgi" method="get">
 <td colspan="3" align="center" height="40">Archívum:&nbsp;
   <select name="date_archiv">
     <option value="x">Válasszon!
     <option value="x">----------------
HTML

    open(OLVAS,"data/archiv.dat");
    @ARCHIV = <OLVAS>;
    close OLVAS;
    $archiv_data = join('',@ARCHIV);
    @archiv_data = split(/\n/,$archiv_data);
    srand(time ^ $$);

    foreach $g (@archiv_data){
    print "     <option>$g\n";
    }

print <<HTML;
   </select>
   <input type="submit" value="Mutasd!">
  </td>
  </form>
 </tr>
 <tr>
   <td colspan="3" align="center"><img src="$url/mconeturl.gif" width="450" height="25"></td>
 </tr>
</table>
</center>
</body>
</html>
HTML
}