Changeset 29105

Timestamp:

Sep 1, 2010, 4:09:20 PM (16 years ago)

Author:

Serge CHASTEL

Message:

Whole command should be displayed now

File:

• trunk/tools/who_uses_the_cluster/_who_uses_the_cluster_analyze.pl (modified) (3 diffs)

trunk/tools/who_uses_the_cluster/_who_uses_the_cluster_analyze.pl

@@ -26 +26 @@
 print "<table border=\"1\">\n";
 # Scan each logfile
-$currentColumn = 0;
 foreach $computer (@HOSTS) {
     $LOGFILE=$LOGFILE_BASE.$computer;
@@ -40 +39 @@
                 # We don't want the 'top' process to be shown
                 $line  =~ s/\s+/;/g;
-                # print "$line\n";
+                print "$line\n";
                 $line =~ s/^;//g;
                 @values = split ';', $line;
@@ -47 +46 @@
                 $proc =$values[8];
                 $mem =$values[9];
-                $procname = join(" ", @values[11, -1]); #$values[11..-1];
+                $size = scalar(@values);
+                $procname = join(" ", @values[11..$size]); #$values[11..-1];
+                #print "$size PROCNAME = [$procname]\n";
                 if (!defined $summary{$pid}) {
                     # The pid is a new one