Changeset 6715


Ignore:
Timestamp:
Mar 24, 2020 4:50:54 PM (7 months ago)
Author:
clarksm
Message:

Record [click] events when cache hit occurs.
Record squid with [click] event and with submit --local <command>

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.7/lang/tcl/scripts/task.tcl

    r6710 r6715  
    253253        success  0
    254254        xmlobj   ""
     255        squid    ""
    255256    }
    256257
     
    258259
    259260    set helperEligible [IsCacheHelperEligible]
     261    if { [info exists env(WHIMRC)] } {
     262        set helperEligible 0
     263    }
    260264
    261265    set driverFile [GetDriverFile]
     
    274278        }
    275279        global env
     280        if { $helperEligible } {
     281            if { $_job(squid) != "" } {
     282                set ::env(RAPPTURE_CACHE_SQUID) $_job(squid)
     283            }
     284        }
     285#       puts stderr "RAPPTURE_CACHE_SQUID = $::env(RAPPTURE_CACHE_SQUID)"
    276286        if { $_uq(type) == "" } {
    277287            if { $helperEligible } {
     
    293303            return [list 1 $mesg]
    294304        }
    295         Rappture::rusage mark
     305
    296306        if { ![ExecuteSimulationCommand $cmd] } {
    297307            return [list 1 $_job(mesg)]
     
    908918        foreach key [array names data] {
    909919            # Add anything else that the client gave -- venue, etc.
    910             lappend details $key $data($key)
     920            if { $data($key) != "" } {
     921                lappend details $key $data($key)
     922            }
    911923        }
    912924
     
    975987                         "cputime"  0 \
    976988                         "status"   0
     989            if { $_job(squid) != "" } {
     990                lappend args "squid" $_job(squid)
     991            }
    977992            uplevel #0 $jobstats $args
    978993        }
     
    10021017            cputime 0
    10031018            status 0
     1019            squid ""
    10041020        }
    10051021        foreach arg [lrange [string range $_job(stderr) $p0 $p1] 1 end] {
     
    10211037        foreach key [array names data] {
    10221038            # Add anything else that the client gave -- venue, etc.
    1023             lappend details $key $data($key)
     1039            if { $data($key) != "" } {
     1040                lappend details $key $data($key)
     1041            }
    10241042        }
    10251043
     
    10731091
    10741092itcl::body Rappture::Task::LogCachedSimulationUsage {} {
     1093    Rappture::rusage mark
     1094    array set times [Rappture::rusage measure]
     1095
     1096    if { [string length $jobstats] > 0} {
     1097        set recordJobstats 1
     1098        if { [info exists _resources(-cacheuser)] } {
     1099            global env
     1100            if { $env(USER) eq $_resources(-cacheuser) } {
     1101                set recordJobstats 0
     1102            }
     1103        }
     1104        if { $recordJobstats } {
     1105            if { $_uq(type) != "" } {
     1106                if { [string length $jobstats] > 0} {
     1107                    lappend args "job"      [incr jobnum] \
     1108                                 "event"    "\[click-uq\]" \
     1109                                 "start"    $times(start) \
     1110                                 "walltime" 0 \
     1111                                 "cputime"  0 \
     1112                                 "status"   0 \
     1113                                 "squid"    $_job(squid)
     1114                    uplevel #0 $jobstats $args
     1115                }
     1116            } else {
     1117                lappend args "job"      [incr jobnum] \
     1118                             "event"    "\[click\]" \
     1119                             "start"    $times(start) \
     1120                             "walltime" 0 \
     1121                             "cputime"  0 \
     1122                             "status"   0 \
     1123                             "squid"    $_job(squid)
     1124                uplevel #0 $jobstats $args
     1125            }
     1126        }
     1127    }
     1128
    10751129    if { [catch {
    10761130        Rappture::library $_job(runfile)
     
    11101164        }
    11111165    }
     1166    set _job(squid) $squid
     1167
    11121168#   puts stderr "SQUID = $headers(etag)"
    11131169#   puts stderr "SQUID = $squid"
Note: See TracChangeset for help on using the changeset viewer.