diff options
Diffstat (limited to '0.6.2/stat.pl')
| -rw-r--r-- | 0.6.2/stat.pl | 209 |
1 files changed, 209 insertions, 0 deletions
diff --git a/0.6.2/stat.pl b/0.6.2/stat.pl new file mode 100644 index 0000000..0cddb6e --- /dev/null +++ b/0.6.2/stat.pl @@ -0,0 +1,209 @@ +#!/usr/bin/perl -w +# yChat - Copyright by Paul C. Bütow + +use CGI; +$q = new CGI; +require config; + +my $var = $q->param('var'); +$alias = $q->param('alias'); +$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ö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 ü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ählt!" ); + print $q->br, $q->div( "(", $q->a( { -href=>"stat.pl?var=del&tmp=true&alias=$alias&tmpid=$tmpid"}, "Vollständige Ansicht"), ")" ) if ($full eq undef); + +} elsif ($var eq "var") { + + print "<div>", $q->b("Server Umgebungsvariablen:"), $q->br, $q->br, + "Die Serverumgebungsvariablen können nur von Oberwächtern eingesehen werden!", $q->br, $q->br; + + if (&hierachie($alias) eq "ow") { + &secure_checkid($alias); + 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ö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; +}
\ No newline at end of file |