Last change
on this file since 203 was
203,
checked in by bastiaans, 18 years ago
|
Renamed: web/addons/toga -> web/addons/job_monarch
web/templates/job_monarch/cluster_extra.tpl:
|
File size:
1.3 KB
|
Rev | Line | |
---|
[110] | 1 | <?php |
---|
| 2 | include_once "./libtoga.php"; |
---|
| 3 | |
---|
[122] | 4 | if ( !empty( $_GET ) ) { |
---|
| 5 | extract( $_GET ); |
---|
| 6 | } |
---|
| 7 | |
---|
[117] | 8 | $httpvars = new HTTPVariables( $HTTP_GET_VARS, $_GET ); |
---|
[110] | 9 | $view = $httpvars->getHttpVar( "view" ); |
---|
[111] | 10 | $clustername = $httpvars->getClusterName(); |
---|
[110] | 11 | |
---|
[163] | 12 | //printf("clustername = %s\n", $clustername ); |
---|
[124] | 13 | if( isset($id) && ($id!='')) $filter[id]=$id; |
---|
| 14 | if( isset($state) && ($state!='')) $filter[state]=$state; |
---|
| 15 | if( isset($user) && ($user!='')) $filter[user]=$user; |
---|
| 16 | if( isset($queue) && ($queue!='')) $filter[queue]=$queue; |
---|
[122] | 17 | |
---|
[110] | 18 | function drawSmallClusterImage() { |
---|
| 19 | |
---|
[164] | 20 | global $clustername; |
---|
| 21 | |
---|
[122] | 22 | $ic = new ClusterImage( $clustername ); |
---|
[110] | 23 | $ic->draw(); |
---|
| 24 | } |
---|
| 25 | |
---|
| 26 | function drawBigClusterImage() { |
---|
| 27 | |
---|
[163] | 28 | global $filter, $clustername; |
---|
[122] | 29 | |
---|
| 30 | $ic = new ClusterImage( $clustername ); |
---|
[124] | 31 | foreach( $filter as $filtername=>$filtervalue ) { |
---|
| 32 | //printf("filter %s,%s\n", $filtername, $filtervalue); |
---|
| 33 | switch( $filtername ) { |
---|
[122] | 34 | |
---|
[124] | 35 | case "id": |
---|
| 36 | $ic->setFilter( 'jobid', $filtervalue ); |
---|
| 37 | break; |
---|
| 38 | case "user": |
---|
| 39 | $ic->setFilter( 'owner', $filtervalue); |
---|
| 40 | break; |
---|
| 41 | case "queue": |
---|
| 42 | $ic->setFilter( 'queue', $filtervalue); |
---|
| 43 | break; |
---|
| 44 | case "state": |
---|
| 45 | $ic->setFilter( 'status', $filtervalue); |
---|
| 46 | break; |
---|
| 47 | default: |
---|
| 48 | break; |
---|
| 49 | } |
---|
[122] | 50 | } |
---|
[114] | 51 | $ic->draw(); |
---|
[110] | 52 | } |
---|
| 53 | |
---|
| 54 | switch( $view ) { |
---|
| 55 | |
---|
| 56 | case "small-clusterimage": |
---|
| 57 | |
---|
| 58 | drawSmallClusterImage(); |
---|
| 59 | |
---|
| 60 | break; |
---|
| 61 | |
---|
| 62 | case "big-clusterimage": |
---|
| 63 | |
---|
| 64 | drawBigClusterImage(); |
---|
| 65 | |
---|
| 66 | break; |
---|
| 67 | |
---|
| 68 | default: |
---|
| 69 | |
---|
| 70 | break; |
---|
| 71 | } |
---|
| 72 | |
---|
| 73 | ?> |
---|
Note: See
TracBrowser
for help on using the repository browser.