loncom/debugging_tools/login_count.pl - diff

Return to login_count.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.4, 2005/03/30 17:18:04	version 1.5, 2005/03/30 17:24:36
Line 6 use LONCAPA::Configuration;	Line 6 use LONCAPA::Configuration;
use Date::Manip;	use Date::Manip;

my $start_time=&UnixDate("Aug 30th 00:00:00 2004","%s");	my $start_time=&UnixDate("Aug 30th 00:00:00 2004","%s");
my @counts=('1','10','100','1000','10000','100000','250000');	my @counts=('1','10');#,'100','1000','10000','100000','250000');


sub only_user_activitylog_files {	sub only_user_activitylog_files {
Line 43 sub print_data {	Line 43 sub print_data {
$total_login+=scalar(@{$data{$key}});	$total_login+=scalar(@{$data{$key}});
my $day=strftime('%F',localtime($key));	my $day=strftime('%F',localtime($key));
$byday{$day}+=scalar(@{$data{$key}});	$byday{$day}+=scalar(@{$data{$key}});
while ($total_login >= $counts[0]) {	while ($counts[0] && $total_login >= $counts[0]) {
print("The $counts[0] ($total_login) login was ".	print("The $counts[0] ($total_login) login was ".
join(', ',@{$data{$key}})."\n");	join(', ',@{$data{$key}})."\n");
shift(@counts);	shift(@counts);