IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 29103


Ignore:
Timestamp:
Sep 1, 2010, 3:40:14 PM (16 years ago)
Author:
Serge CHASTEL
Message:

Full command line

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/who_uses_the_cluster/_who_uses_the_cluster_analyze.pl

    r29091 r29103  
    1010$LOGFILE_BASE="/home/panstarrs/ipp/.tmp/log_";
    1111# Hosts on which the 'who_uses_the_system' command was run
    12 @HOSTS=qw/ippdb00 ippdb01 ippdb02
    13     ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09
    14     ippc10 ippc11 ippc12 ippc13 ippc14 ippc15 ippc16 ippc17 ippc18 ippc19
    15                                 ipp004 ipp005 ipp006 ipp007 ipp008 ipp009
     12@HOSTS=qw/ipp004 ipp005 ipp006 ipp007 ipp008 ipp009
    1613    ipp010 ipp011 ipp012 ipp013 ipp014 ipp015 ipp016 ipp017 ipp018 ipp019
    1714    ipp020 ipp021        ipp023 ipp024 ipp025 ipp026 ipp027 ipp028 ipp029
    1815    ipp030 ipp031 ipp032 ipp033 ipp034 ipp035 ipp036 ipp037 ipp038 ipp039
    1916    ipp040 ipp041 ipp042 ipp043 ipp044 ipp045 ipp046 ipp047 ipp048 ipp049
    20     ipp050 ipp051 ipp052 ipp053/;
     17    ipp050 ipp051 ipp052 ipp053
     18    ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09
     19    ippc10 ippc11 ippc12 ippc13 ippc14 ippc15 ippc16 ippc17 ippc18 ippc19
     20    ippdb00 ippdb01 ippdb02/;
    2121
    2222print "<html>\n";
    … …  
    2626print "<table border=\"1\">\n";
    2727# Scan each logfile
     28$currentColumn = 0;
    2829foreach $computer (@HOSTS) {
    2930    $LOGFILE=$LOGFILE_BASE.$computer;
    … …  
    3940                # We don't want the 'top' process to be shown
    4041                $line  =~ s/\s+/;/g;
     42                # print "$line\n";
    4143                $line =~ s/^;//g;
    4244                @values = split ';', $line;
    … …  
    4547                $proc =$values[8];
    4648                $mem =$values[9];
    47                 $procname = $values[11];
     49                $procname = join(" ", @values[11, -1]); #$values[11..-1];
    4850                if (!defined $summary{$pid}) {
    4951                    # The pid is a new one
    … …  
    7274        $stats = stat($LOGFILE);
    7375        # Show results
    74         printf("<tr><td title=\"Hostname\"><b>%s</b></td><td colspan=\"5\" title=\"Where do the data come from on ipp004?\">From %s (%s)</td></tr>\n",
    75                $computer, $LOGFILE, scalar localtime $stats->mtime);
     76        printf("<tr><td colspan=\"6\" title=\"From %s (%s)\"><b>%s</b></td></tr>\n",
     77               $LOGFILE, scalar localtime $stats->mtime, $computer);
    7678        $onceShown = 0;
    7779        while ( my ($pid, $value) = each(%summary) ) {
Note: See TracChangeset for help on using the changeset viewer.