--- loncom/debugging_tools/login_count.pl	2004/09/08 19:41:23	1.3
+++ loncom/debugging_tools/login_count.pl	2005/03/30 17:18:04	1.4
@@ -16,6 +16,7 @@ sub only_user_activitylog_files {
 
 my %data;
 my $numusers;
+my %machine;
 sub process_activitylog_file {
     if ($File::Find::dir=~m|/\d/\d/\d/|) { return; }
     if ($_ ne 'activity.log') {	return; }
@@ -24,8 +25,9 @@ sub process_activitylog_file {
     my $user=(split('/',$File::Find::dir))[-1];
     while (my $line=<FILE>) {
 	if ($line !~ /Login/) { next; }
-	my ($date)=split(':',$line,2);
+	my ($date,$machine)=split(':',$line,3);
 	if ($date > $start_time) { push (@{$data{$date}},$user);	}
+	$machine{$machine}++;
     }
     if ($numusers%100 == 0) {
 	print "\b\b\b\b\b\b\b\b\b\b\b\b\b\bDid $user";
@@ -52,6 +54,10 @@ sub print_data {
     	print("$key -> $byday{$key}\n");
     }
     print("total -> $total_login\n");
+    print("\nMachine Logins\n");
+    foreach my $key (sort(keys(%machine))) {
+	print("$key \t-> $machine{$key}\n");
+    }
 }
 
 $|=1;