Index: /trunk/tools/who_uses_the_cluster/_who_uses_the_cluster_analyze.pl =================================================================== --- /trunk/tools/who_uses_the_cluster/_who_uses_the_cluster_analyze.pl (revision 29102) +++ /trunk/tools/who_uses_the_cluster/_who_uses_the_cluster_analyze.pl (revision 29103) @@ -10,13 +10,13 @@ $LOGFILE_BASE="/home/panstarrs/ipp/.tmp/log_"; # Hosts on which the 'who_uses_the_system' command was run -@HOSTS=qw/ippdb00 ippdb01 ippdb02 - ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09 - ippc10 ippc11 ippc12 ippc13 ippc14 ippc15 ippc16 ippc17 ippc18 ippc19 - ipp004 ipp005 ipp006 ipp007 ipp008 ipp009 +@HOSTS=qw/ipp004 ipp005 ipp006 ipp007 ipp008 ipp009 ipp010 ipp011 ipp012 ipp013 ipp014 ipp015 ipp016 ipp017 ipp018 ipp019 ipp020 ipp021 ipp023 ipp024 ipp025 ipp026 ipp027 ipp028 ipp029 ipp030 ipp031 ipp032 ipp033 ipp034 ipp035 ipp036 ipp037 ipp038 ipp039 ipp040 ipp041 ipp042 ipp043 ipp044 ipp045 ipp046 ipp047 ipp048 ipp049 - ipp050 ipp051 ipp052 ipp053/; + ipp050 ipp051 ipp052 ipp053 + ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09 + ippc10 ippc11 ippc12 ippc13 ippc14 ippc15 ippc16 ippc17 ippc18 ippc19 + ippdb00 ippdb01 ippdb02/; print "\n"; @@ -26,4 +26,5 @@ print "\n"; # Scan each logfile +$currentColumn = 0; foreach $computer (@HOSTS) { $LOGFILE=$LOGFILE_BASE.$computer; @@ -39,4 +40,5 @@ # We don't want the 'top' process to be shown $line =~ s/\s+/;/g; + # print "$line\n"; $line =~ s/^;//g; @values = split ';', $line; @@ -45,5 +47,5 @@ $proc =$values[8]; $mem =$values[9]; - $procname = $values[11]; + $procname = join(" ", @values[11, -1]); #$values[11..-1]; if (!defined $summary{$pid}) { # The pid is a new one @@ -72,6 +74,6 @@ $stats = stat($LOGFILE); # Show results - printf("\n", - $computer, $LOGFILE, scalar localtime $stats->mtime); + printf("\n", + $LOGFILE, scalar localtime $stats->mtime, $computer); $onceShown = 0; while ( my ($pid, $value) = each(%summary) ) {
%sFrom %s (%s)
%s