Return to stats.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/stats.pl, revision 1.3

1.1       boris       1: #!/usr/bin/perl
                      2: #
                      3: # Get statistics for the database in the form
                      4: # Date total_questions  distinct_questions
                      5: #
                      6: use DBI;
                      7: use CGI ':all';
                      8: use strict;
                      9: 
1.2       boris      10: eval {require "dbdefs.pl";};
1.1       boris      11: my $dbuser||="piataev";
                     12: my $dbname||="chgk";
                     13: my $dbpass||="";
                     14: my $dbhost||="localhost";
                     15: 
                     16: 
                     17: my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =
                     18:     gmtime(time);
                     19: $year += 1900;
1.3     ! boris      20: $mon ++;
1.1       boris      21: my @names=('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
                     22: $wday=$names[$wday];
                     23: 
                     24: printf "$wday %04d-%02d-%02d %02d:%02d:%02d GMT ", $year,$mon,$mday,$hour,$min,$sec;
                     25: 
                     26: my($dsn) = "DBI:mysql:database=$dbname;host=$dbhost";
                     27: my $dbh = DBI->connect($dsn, $dbuser, $dbpass) || die "Cannot connect\n";
                     28: 
                     29: my ($sth) = $dbh->prepare("SELECT COUNT(*) FROM Questions");
                     30: $sth->execute;
                     31: my $total=($sth->fetchrow)[0];
                     32: $sth->finish;
                     33: $sth= $dbh -> prepare("select distinct count(first) FROM equalto");
                     34: $sth -> execute;
                     35: my ($equal)=$sth->fetchrow;
                     36: $sth -> finish;
                     37: 
                     38: print " $total ",$total-$equal, "\n";
                     39: 
                     40: $dbh->disconnect;
                     41: 
                     42: exit 0;