1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#!/usr/bin/perl
use vars qw($dsn $username $password $dbh $query);
use vars qw($my_mon $my_year);
use vars qw($title);
use vars qw($min_time $max_time $min_mon $max_mon $min_year $max_year );
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Time::Local;
require "/etc/icelog.conf";
my $cgi = new CGI;
($query) = $cgi->keywords;
$dbh = DBI->connect($dsn, $username, $password)
or die "Can't connect to $dsn: ". $DBI::errstr;
if ( $cgi->param('customer') ) {
@customers = ( $cgi->param('customer') );
} else { #everybody
my $sth = $dbh->prepare('select distinct customer from icelog')
or die $dbh->errstr;
$sth->execute or die $sth->errstr;
@customers = map { $_->[0] } @{$sth->fetchall_arrayref};
$sth->finish;
}
($my_mon,$my_year) = ($cgi->param('mon'), $cgi->param('year'));
my $sth = $dbh->prepare('select min(start), max(start) from icelog')
or die $dbh->errstr;
$sth->execute or die $sth->errstr;
( $min_time, $max_time ) = @{$sth->fetchrow_arrayref};
$sth->finish;
( $min_mon, $min_year ) = (localtime($min_time))[4,5];
$min_mon++; $min_year+=1900;
( $max_mon, $max_year ) = (localtime($max_time))[4,5];
$max_mon++; $max_year+=1900;
my $title = 'icecast log';
if ( $my_mon && $my_year ) {
$title .= " $my_mon/$my_year";
} else {
$title .= ' (all)';
}
print $cgi->header, <<END;
<html>
<head>
<title>icecast log</title>
</head>
<body bgcolor="#e8e8e8">
<h2>$title</h2>
END
for ( my($mon,$year) = ($min_mon, $min_year);
$year < $max_year || ( $year == $max_year && $mon <= $max_mon);
do { $mon++; if ( $mon == 13 ) { $year++; $mon-=12; } }
) {
$cgi->param('year', $year);
$cgi->param('mon', $mon);
print '<a href="'. $cgi->self_url. qq(">$mon/$year</a> | );
}
$cgi->param('year', '');
$cgi->param('mon', '');
print '<a href="'. $cgi->self_url. qq(">all</a>);
$cgi->param('year', $my_year);
$cgi->param('mon', $my_mon);
print <<END;
<br>
<table border>
<tr><th>Cust#</th><th>Minutes (live)</th><th>Minutes (archived)</th><th>Minutes (total)</th></tr>
END
foreach my $customer ( @customers ) {
my $liveminutes = &getminutes($customer, 'Y', $my_mon, $my_year);
my $archminutes = &getminutes($customer, 'N', $my_mon, $my_year);
my $totminutes = $liveminutes + $archminutes;
$cgi->param('customer', $customer);
my $self_url = $cgi->self_url;
print qq(<tr><td><a href="$self_url">$customer</a></td><td>$liveminutes</td><td>$archminutes</td><td>$totminutes</td></tr>);
}
print <<END;
</table>
</html>
END
sub getminutes {
my($customer, $liveflag, $mon, $year) = @_;
my $statement =
'select sum(seconds) from icelog where customer = ? and liveflag = ?';
if ( $mon && $year ) {
my $start = timelocal(0,0,0,1,$mon-1,$year-1900);
$mon++; if ( $mon == 13 ) { $year++; $mon-=12; }
my $end = timelocal(0,0,0,1,$mon-1,$year-1900) - 1;
$statement .= " and start >= $start and start <= $end";
}
#warn $statement;
my $sth = $dbh->prepare($statement) or die $dbh->errstr;
$sth->execute($customer, $liveflag) or die $sth->errstr;
my $seconds = $sth->fetchrow_arrayref->[0];
$sth->finish;
sprintf("%.3f", $seconds / 60);
}
|
