#!/usr/bin/perl -w
# yChat - Copyright by Paul C. Bütow

use CGI;
$q = new CGI;
require config;

my $var = $q->param('var');
my $alias = $q->param('alias');
my $tmpid = $q->param('tmpid');

print $q->header();
&start_html("Statistiken");
print $q->div("yChat Statistiken"), $q->hr,
      $q->div( $q->a( { -href=>"stat.pl?var=ranking&alias=$alias&tmpid=$tmpid" }, "Rankings"), " | ",
               $q->a( { -href=>"stat.pl?var=del&alias=$alias&tmpid=$tmpid" }, "Loginstatistiken"), " | ",
               $q->a( { -href=>"stat.pl?var=stat&alias=$alias&tmpid=$tmpid" }, "DB-Statistik"), " | ",
               $q->a( { -href=>"stat.pl?var=code&alias=$alias&tmpid=$tmpid" }, "Programmcode"), " | ",
               $q->a( { -href=>"stat.pl?var=var&alias=$alias&tmpid=$tmpid" }, "Umgebungsvariablen"),), $q->hr;

if ($var eq "ranking") {

 opendir(COUNTS, "data/user/counts");
  my @counts = readdir(COUNTS);
 closedir(COUNTS);

 print "<div>";

 my $nr_start = $q->param('start');
 my $nr_end = $q->param('end');
 my %online;
 my $rank;
 my $nr;

 foreach(@counts) {
  if(-f "data/user/counts/$_" ) {
   if (s#.online##g) {
    open(TOTAL, "<data/user/counts/$_.online");
     my $total = <TOTAL>;
    close TOTAL;
    $online{sprintf("%.2f",($total / 3600))} = $_;
   }
  }
 }

 print "<div>", $q->b("Rankings:"), $q->br,
       "<table><tr><td><div><b>#:</b></div></td><td><b><div>St.:</div></b></td><td><b><div>Name:</div></b></td></tr>";

 if (!$nr_start) {
  $nr_start = 1;
 } if (!$nr_end) {
  $nr_end = 20;
 }

 foreach $wert (reverse(sort { $a <=> $b } keys %online)) {
  $nr++;
  if ($online{$wert} eq $alias) {
   $rank = $nr;
   last if ($nr > $nr_end);
  }
  next if ($nr < $nr_start || $nr > $nr_end);
  print "<tr><td><font color='ffffff' size='1' face='arial'>".$nr."</font></td><td><font color='ffffff' size='1' face='arial'> ".$wert."h </font></td><td> <a href='main2.pl?var=alias_html&alias=$alias&tmp=$online{$wert}&tmpid=$tmpid'><font size='1' face='arial'>$online{$wert}</font></a></td></tr>\n";
 }
 print "</table>", $q->hr;
 $nr_start -= 20; $nr_end -= 20;
 print "Rankings von <a href='stat.pl?var=ranking&start=$nr_start&end=$nr_end&alias=$alias&tmpid=$tmpid'>$nr_start bis $nr_end</a>  anzeigen ...<br>" if ($nr_start > 0);
 $nr_start += 40; $nr_end += 40;
 print "Rankings von <a href='stat.pl?var=ranking&start=$nr_start&end=$nr_end&alias=$alias&tmpid=$tmpid'>$nr_start bis $nr_end</a>  anzeigen ...",
       $q->br, $q->br, $q->b("$alias, Du befindest Dich auf Rank $rank</div>");

} elsif ($var eq "del") {

 print "<div>", $q->b("Alte Benutzer l&ouml;schen:"), $q->br,
       "Benutzer, die sich 1440 Stunden (60 Tage) nicht mehr in das System eingeloggt haben, werden gelöscht.", $q->br, $q->br;

 opendir(USER, "data/user/options");
  my @user = readdir(USER);
 closedir(USER);
 @user = sort(@user);

 my $i = 0;
 my $j;
 my $k = 0;
 my $l = 0;
 my $full = $q->param('tmp');

 foreach(@user) {
  if (-f "data/user/lastlogin/$_") {
   open(LOGIN,"<data/user/lastlogin/$_");
    my $login = <LOGIN>;
   close LOGIN;
   $login = sprintf("%.2f",((time - $login) / 3600));
   $j++;
   if (999 < $login && $login < 1440) { # 1440 = 60 Tage
    $k++;
    print $q->font( { -color=>"ffa500" }, $q->b( "$j($k) $_ Letztes Login vor: ".$login."h") ), $q->br, "\n" if ($full ne undef);
   } elsif ($login < 48) {
    $l++;
    print $q->font( { -color=>"ffffef" }, $q->b( "$j($l) $_ Letztes Login vor: ".$login."h") ), $q->br, "\n" if ($full ne undef);
   } elsif ($login < 1440) {
    print "$j $_ Letztes Login vor: ".$login."h", $q->br, "\n" if ($full ne undef);
   } else {
    $k++;
    &kill($_,$i++,$login);
   }
  } elsif (-f "data/user/options/$_") {
   &kill($_,$i++);
  }
 }
 print $q->hr if ($full ne undef);
 print "</div>", $q->div( $q->b(
          "$j Benutzer befinden sich in der Datenbank!", $q->br,
          $q->font( { -color=>"ffffef" }, "$l Benutzer haben sich innerhalb der letzten 48 Stunden  eingeloggt!"), $q->br,
          $q->font( { -color=>"ffa500" }, "$k Benutzer haben sich &uuml;ber 1000 Stunden nicht mehr eingeloggt!"), $q->br,
          $q->font( { -color=>"ff0000" }, "$i Benutzer wurden gerade eben gelöscht!") ), $q->br, $q->br,
          "PS: Jeder registrierte Benutzername wird nur einmal gez&auml;hlt!" );
 print $q->br, $q->div( "(", $q->a( { -href=>"stat.pl?var=del&tmp=true&alias=$alias&tmpid=$tmpid"}, "Vollst&auml;ndige Ansicht"), ")" ) if ($full eq undef);

} elsif ($var eq "var") {

 print "<div>", $q->b("Server Umgebungsvariablen:"), $q->br, $q->br,
       "Die Serverumgebungsvariablen k&ouml;nnen nur von Oberw&auml;chtern eingesehen werden!", $q->br, $q->br;

 if (&hierachie($alias) eq "ow") {
  while(($key,$value) = each(%ENV)) {
   print "$key = $value\n", $q->br;
  }
 }

 print "</div>";

} elsif ($var eq "stat") {

 print $q->div( $q->b("yChat-DB Statistik:") ), $q->br;
 $files = 0;
 $size = 0;
 $directorys = 1;
 &zaehle("data");
 $size = sprintf("%.2f", ($size/1048576));
 print $q->div( "Dateien insgesamt: $files", $q->br, "MB insgesamt: $size", $q->br, "Verzeichnisse insgesamt: $directorys");

 } elsif ($var eq "code") {

 print $q->div( $q->b("yChat Programmcode-Statistik:") ), $q->br;

 my ($zeilen,$size,$bytes,$files);

 opendir(DIR,".");
  my @dir = readdir(DIR);
 closedir(DIR);
 $dir = sort(@dir);

 foreach(@dir) {
  if (/.+[pl]$/ || /.+[pm]$/) {
   $bytes = (-s);
   $size += $bytes;
   open(PL, "<$_");
    my @pl = <PL>;
   close PL;
   local $nr = $#pl+1;
   $zeilen += $nr;
   $files++;
   print $q->div("Datei $files: $nr Zeilen, $bytes Bytes"), $q->br, "\n";
  }
 }
print $q->div( $q->b("Programmcode: $files Dateien, $zeilen Zeilen", $q->br, "Größe: $size Bytes") );

}

print $q->end_html;

sub zaehle {
 local ($dir,$data) = @_;
 $dir = "$dir/$data" if ($data ne undef);
 opendir(DATA,$dir);
  local @data = readdir(DATA);
 closedir(DATA);
 $files2 = 0;
 foreach(@data) {
  if (-f "$dir/$_") {
   $files++;
   $files2++;
   $size += (-s "$dir/$_");
  } elsif (-d "$dir/$_" && $_ ne "." && $_ ne "..") {
   $directorys++;
   &zaehle($dir,$_);
  }
 }
}

sub kill {
 my ($rm,$nr,$login) = @_;
 $login = "XXXXXX" if ($login eq undef);
 print $q->font( { -color=>"ff0000" }, $q->b( "$j($nr) $rm Letztes Login vor: ".$login."h (wurde gel&ouml;scht)") ), $q->br, "\n";
 print "<font size='1'>";
 print "options " if unlink("data/user/options/$rm");
 print "profiles " if unlink("data/user/profiles/$rm");
 print "gbooks " if unlink("data/user/gbooks/$rm");
 print "counts " if unlink("data/user/counts/$rm");
 print "counts.online " if unlink("data/user/counts/".$rm.".online");
 print "lastlogin " if unlink("data/user/lastlogin/$rm");
 print "memos" if unlink("data/user/memos/$rm");
 print "</font>", $q->hr, "\n";
 &zeit;
 open(DEL, ">>data/kill");
  print DEL "($day.$month.$year $hours:$min:$sec) $rm wurde automatisch gekillt [$alias]\n";
 close DEL;
}