Import of revision 19971210+
[mspang/plceo1.git] / stats.pl
1 #
2 # Date                  Name                            Modification
3 # ----          ----                ------------
4 # 94/11/20              Alex Brodsky            Split off from main ceo file
5 # 95/10/06              Nikita Borisov          We create new accounts, not new members
6 # 96/10/23              Nikita Borisov          Use dbmtie instead of fakedbm
7 #
8
9
10 sub Statsmembers
11 {
12         eval { dbmtie($MEMDB,\%MEM) } || do
13     {
14         print "\n${beep}Unable to open members database: $!\n";
15         return;
16     };
17         local($total) = scalar(split(/,/,$MEM{$TERM}));
18         dbmuntie(\%MEM);
19         return $total;
20 }
21
22 sub Statscash
23 {
24         local($lastamount);
25     open (CASH, $CASHLOG) || do
26     {
27         print "Error opening cash log file: $!\n";
28         return;
29     };
30     while(<CASH>)
31     {
32         next if /^\s*$/;
33         next if /^\s*#/;
34         $lastamount = (split(';'))[3];
35     }
36     close(CASH);
37         return sprintf("\$%.2f", $lastamount);
38 }
39
40
41 sub dostats
42 {
43         local($date,@ltime);
44         print "\nCSC Vital Statistics:\n";
45         print "---------------------\n";
46         print "Cash on hand: ", &Statscash, "\n";
47         print "Total membership for $CAPTERM: ", &Statsmembers, "\n";
48         open(QUOTA, $QUOTAINFO);
49         print <QUOTA>;
50         close(QUOTA);
51         ## New members last created:
52         print "New accounts last created: ";
53         @ltime = localtime((stat($USERTODOOLD))[9]);
54         $date = ('Sun ','Mon ','Tue ','Wed ','Thu ','Fri ','Sat ')[$ltime[6]];
55         $date .= ('Jan ','Feb ','Mar ','Apr ','May ','Jun ','Jul ','Aug ','Sep ','Oct ','Nov ','Dec ')[$ltime[4]];
56         $date .= sprintf("%2d ",$ltime[3]);
57         $date .= sprintf("%02d:%02d:%02d 19%02d",@ltime[2,1,0,5]);
58         print $date,"\n";
59         ## New quota done:
60         print "Quotas last updated: ";
61         @ltime = localtime((stat($QUOTATODOOLD))[9]);
62         $date = ('Sun ','Mon ','Tue ','Wed ','Thu ','Fri ','Sat ')[$ltime[6]];
63         $date .= ('Jan ','Feb ','Mar ','Apr ','May ','Jun ','Jul ','Aug ','Sep ','Oct ','Nov ','Dec ')[$ltime[4]];
64         $date .= sprintf("%2d ",$ltime[3]);
65         $date .= sprintf("%02d:%02d:%02d 19%02d",@ltime[2,1,0,5]);
66         print $date,"\n";
67 }
68
69 1;
70