IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 33496 for trunk


Ignore:
Timestamp:
Mar 13, 2012, 10:39:27 AM (14 years ago)
Author:
Serge CHASTEL
Message:

Added new wave nodes ippc3--c63

Location:
trunk/tools/who_uses_the_cluster
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/who_uses_the_cluster/_who_uses_the_cluster.sh

    r29107 r33496  
    2525
    2626# The hosts list on which we're sshing
    27 HOSTS="ippdb00 ippdb01 ippdb02\
    28     ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09\
     27HOSTS="ippdb00 ippdb01 ippdb02 ippdb03\
     28           ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09\
    2929    ippc10 ippc11 ippc12 ippc13 ippc14 ippc15 ippc16 ippc17 ippc18 ippc19\
     30    ippc20 ippc21 ippc22 ippc23 ippc24 ippc25 ippc26 ippc27 ippc28 ippc29\
     31    ippc30 ippc31 ippc32 ippc33 ippc34 ippc35 ippc36 ippc37 ippc38 ippc39\
     32    ippc40 ippc41 ippc42 ippc43 ippc44 ippc45 ippc46 ippc47 ippc48 ippc49\
     33    ippc50 ippc51 ippc52 ippc53 ippc54 ippc55 ippc56 ippc57 ippc58 ippc59\
     34    ippc60 ippc61 ippc62 ippc63\
    3035                                ipp004 ipp005 ipp006 ipp007 ipp008 ipp009\
    3136    ipp010 ipp011 ipp012 ipp013 ipp014 ipp015 ipp016 ipp017 ipp018 ipp019\
    … …  
    3338    ipp030 ipp031 ipp032 ipp033 ipp034 ipp035 ipp036 ipp037 ipp038 ipp039\
    3439    ipp040 ipp041 ipp042 ipp043 ipp044 ipp045 ipp046 ipp047 ipp048 ipp049\
    35     ipp050 ipp051 ipp052 ipp053"
     40    ipp050 ipp051 ipp052 ipp053 ipp054 ipp055 ipp056 ipp057 ipp058 ipp059\
     41    ipp060 ipp061 ipp062 ipp063 ipp064 ipp065 ipp066\
     42    stare00 stare01 stare02 stare03 stare04"
    3643
    3744# Basename of the files

  • trunk/tools/who_uses_the_cluster/_who_uses_the_cluster_analyze.pl

    r29108 r33496  
    1515    ipp030 ipp031 ipp032 ipp033 ipp034 ipp035 ipp036 ipp037 ipp038 ipp039
    1616    ipp040 ipp041 ipp042 ipp043 ipp044 ipp045 ipp046 ipp047 ipp048 ipp049
    17     ipp050 ipp051 ipp052 ipp053
    18     ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09
     17    ipp050 ipp051 ipp052 ipp053 ipp054 ipp055 ipp056 ipp057 ipp058 ipp059
     18    ipp060 ipp061 ipp062 ipp063 ipp064 ipp065 ipp066
     19           ippc01 ippc02 ippc03 ippc04 ippc05 ippc06 ippc07 ippc08 ippc09
    1920    ippc10 ippc11 ippc12 ippc13 ippc14 ippc15 ippc16 ippc17 ippc18 ippc19
    20     ippdb00 ippdb01 ippdb02/;
     21    ippc20 ippc21 ippc22 ippc23 ippc24 ippc25 ippc26 ippc27 ippc28 ippc29
     22    ippc30 ippc31 ippc32 ippc33 ippc34 ippc35 ippc36 ippc37 ippc38 ippc39
     23    ippc40 ippc41 ippc42 ippc43 ippc44 ippc45 ippc46 ippc47 ippc48 ippc49
     24    ippc50 ippc51 ippc52 ippc53 ippc54 ippc55 ippc56 ippc57 ippc58 ippc59
     25    ippc60 ippc61 ippc62 ippc63
     26    ippdb00 ippdb01 ippdb02 ippdb03 stare00 stare01 stare02 stare03 stare04/;
    2127
    2228print "<html>\n";
    … …  
    4046                $line  =~ s/\s+/;/g;
    4147                $line =~ s/^;//g;
    42                 # print "$line\n";
     48                # print "$line\n";
    4349                @values = split ';', $line;
    4450                $pid = $values[0];
    45                 #print $pid, "\n";
     51                #print $pid, "\n";
    4652                $username = $values[1];
    4753                $proc =$values[8];
    4854                $mem =$values[9];
    49                 $size = scalar(@values);
    50                 #$procname = $values[11];
    51                 $fullprocname = "";
    52                 #print "$procname \n";
    53                 for ($i=11;$i<$size;$i++) {
    54                         $fullprocname = $fullprocname.$values[$i]." ";
    55                 }
     55                $size = scalar(@values);
     56                #$procname = $values[11];
     57                $fullprocname = "";
     58                #print "$procname \n";
     59                for ($i=11;$i<$size;$i++) {
     60                        $fullprocname = $fullprocname.$values[$i]." ";
     61                }
    5662                if (!defined $summary{$pid}) {
    5763                    # The pid is a new one
    … …  
    6369                } else {
    6470                    # The pid has already been observed
    65                     # print "The pid has already been observed\n";
     71                    # print "The pid has already been observed\n";
    6672                    #if ($summary{$pid}{"procname"} eq $procname) {
    6773                        $before = $summary{$pid}{"count"};
    … …  
    8591        $onceShown = 0;
    8692        while ( my ($pid, $value) = each(%summary) ) {
    87                 # print $value->{"count"} , " ", $pid, "\n";
     93                # print $value->{"count"} , " ", $pid, "\n";
    8894            if ($value->{"count"} > 1) {
    89                 #print "Ok\n";
     95                #print "Ok\n";
    9096                $onceShown = 1;
    9197                printf("<tr>\n");

  • trunk/tools/who_uses_the_cluster/who_uses_the_cluster_analyze.sh

    r29109 r33496  
    88mkdir -p $CLUSTERMONITORDIR
    99/bin/rm -f $CLUSTERMONITORDIR/top.html
     10#/bin/mv -f $CLUSTERMONITORDIR/top.html $CLUSTERMONITORDIR/top_`date +"%Y%m%dT%H%M"`.html
    1011$INSTALLDIR/_who_uses_the_cluster_analyze.pl > $CLUSTERMONITORDIR/top.html
     12
Note: See TracChangeset for help on using the changeset viewer.