| Revision: | 1.1 |
| Committed: | Sun Feb 27 18:51:40 2011 UTC (12 years, 6 months ago) by phil |
| Content type: | application/x-csh |
| Branch: | MAIN |
| CVS Tags: | Ver_6-0, Ver_6-1, Ver_6-2, Ver_6-3, Ver_6-4, Ver_9-1, Ver_5-14, Ver_5-13, Ver_LATEST, Ver_9-3, Ver_9-41, Ver_9-2, Ver_8-8, Ver_8-2, Ver_8-3, Ver_8-0, Ver_8-1, Ver_8-6, Ver_8-7, Ver_8-4, Ver_8-5, Ver_7-1, Ver_7-0, Ver_9-5, Ver_9-4, Ver_8-10, Ver_8-11, Ver_8-12, Ver_9-0, HEAD |
| Log Message: | initial |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | phil | 1.1 | #! /bin/csh -f |
| 2 | |||
| 3 | # set echo | ||
| 4 | |||
| 5 | @ fourdays = 4 * 1440 | ||
| 6 | @ fivedays = 5 * 1440 | ||
| 7 | @ sixdays = 6 * 1440 | ||
| 8 | @ oneweek = 7 * 1440 | ||
| 9 | |||
| 10 | set hproduct = (lev1_nrt V_45s_nrt V_720s_nrt lev1 cosmic_rays V_45s V_720s) | ||
| 11 | set product = (lev0 $hproduct) | ||
| 12 | set green = ( 2 5 30 48 $fourdays $fourdays $fivedays $fivedays) | ||
| 13 | set yellow = ( 4 10 60 80 $fivedays $fivedays $sixdays $sixdays) | ||
| 14 | set red = ( 8 20 120 150 $sixdays $sixdays $oneweek $oneweek) | ||
| 15 | |||
| 16 | set now = `date -u +%Y.%m.%d_%H:%M:%S` | ||
| 17 | set now_t = `time_convert time=$now` | ||
| 18 | |||
| 19 | set nprod = $#product | ||
| 20 | set iprod = 1 | ||
| 21 | while ($iprod <= $nprod) | ||
| 22 | set prod = $product[$iprod] | ||
| 23 | if ($prod == lev0) then | ||
| 24 | set times = `show_info key=T_OBS -q hmi.lev0a'[? FSN < 200000000 ?]' n=-1` | ||
| 25 | else | ||
| 26 | set times = `show_info -q key=T_OBS hmi.$prod'[$]'` | ||
| 27 | endif | ||
| 28 | set times_t = `time_convert time=$times` | ||
| 29 | @ lags = ( $now_t - $times_t ) / 60 | ||
| 30 | if ($lags <= $green[$iprod]) then | ||
| 31 | set stat = GREEN | ||
| 32 | else if ($lags <= $yellow[$iprod]) then | ||
| 33 | set stat = YELLOW | ||
| 34 | else | ||
| 35 | set stat = RED | ||
| 36 | endif | ||
| 37 | if ($lags < 60) then | ||
| 38 | set lag = $lags" minutes" | ||
| 39 | else if ($lags < 1440) then | ||
| 40 | set hours = `arith $lags / 60` | ||
| 41 | set lag = $hours" hours" | ||
| 42 | else | ||
| 43 | set days = `arith $lags / 1440` | ||
| 44 | set lag = $days" days" | ||
| 45 | endif | ||
| 46 | echo "`printf %-12s $prod`" "`printf %7s $stat`" ' ' $lag | ||
| 47 | @ iprod = $iprod + 1 | ||
| 48 | end | ||
| 49 | |||
| 50 |