[1] | 1 | <?php
|
---|
| 2 |
|
---|
[20] | 3 | $us3bin = exec( "ls -d ~us3/lims/bin" );
|
---|
[6] | 4 | include "$us3bin/listen-config.php";
|
---|
[1] | 5 |
|
---|
[26] | 6 | if ( ! preg_match( "/_local/", $class_dir ) )
|
---|
[25] | 7 | {
|
---|
| 8 | $xml = get_data();
|
---|
[1] | 9 |
|
---|
[25] | 10 | if ( $xml != "" )
|
---|
| 11 | parse( $xml );
|
---|
| 12 | }
|
---|
[1] | 13 |
|
---|
| 14 | $data = array();
|
---|
| 15 |
|
---|
[6] | 16 | local_status();
|
---|
| 17 |
|
---|
[1] | 18 | foreach ( $data as $item )
|
---|
| 19 | {
|
---|
[26] | 20 | if ( ! preg_match( "/error/", $item[ 'running' ] ) )
|
---|
| 21 | update( $item[ 'cluster' ], $item[ 'queued' ], $item[ 'status' ], $item[ 'running' ] );
|
---|
[1] | 22 | }
|
---|
| 23 |
|
---|
| 24 | exit();
|
---|
| 25 |
|
---|
| 26 | // Get the cluster status
|
---|
| 27 |
|
---|
| 28 | function get_data()
|
---|
| 29 | {
|
---|
| 30 | global $self;
|
---|
| 31 | $url = "http://community.ucs.indiana.edu:19444/orps-service/XML/gateway/ultrascan";
|
---|
| 32 |
|
---|
| 33 | try
|
---|
| 34 | {
|
---|
| 35 | $post = new HttpRequest( $url, HttpRequest::METH_GET );
|
---|
| 36 | $http = $post->send();
|
---|
| 37 | $xml = $post->getResponseBody();
|
---|
| 38 | }
|
---|
| 39 | catch ( HttpException $e )
|
---|
| 40 | {
|
---|
[6] | 41 | // write_log( "$self: Cluster Status not available" );
|
---|
[1] | 42 | return "";
|
---|
| 43 | }
|
---|
| 44 |
|
---|
| 45 | return $xml;
|
---|
| 46 | }
|
---|
| 47 |
|
---|
| 48 | // Parse the xml
|
---|
| 49 |
|
---|
| 50 | function parse( $xml )
|
---|
| 51 | {
|
---|
| 52 | global $data;
|
---|
| 53 |
|
---|
| 54 | $data = array();
|
---|
| 55 |
|
---|
| 56 | $x = new XML_Array( $xml );
|
---|
| 57 | $d = $x->ReturnArray();
|
---|
| 58 |
|
---|
| 59 | if ( ! isset( $d[ 'summaries' ] ) ) exit(); // Bad input
|
---|
| 60 |
|
---|
| 61 | foreach ( $d[ 'summaries' ] as $item )
|
---|
| 62 | {
|
---|
| 63 | $a = Array();
|
---|
| 64 |
|
---|
| 65 |
|
---|
| 66 | $a[ 'queued' ] = $item[ 'waitingJobs' ];
|
---|
| 67 | $a[ 'running' ] = $item[ 'runningJobs' ];
|
---|
| 68 |
|
---|
| 69 | if ( $a[ 'queued' ] == "" || $a[ 'queued' ] < 0 ) $a[ 'queued' ] = 0;
|
---|
| 70 | if ( $a[ 'running' ] == "" || $a[ 'running' ] < 0 ) $a[ 'running' ] = 0;
|
---|
| 71 |
|
---|
| 72 | $clusterParts = explode( ".", $item[ 'resourceId' ] );
|
---|
| 73 | $cluster = preg_replace( '/\d+$/', "", $clusterParts[ 0 ] );
|
---|
| 74 |
|
---|
| 75 | if ( $cluster == 'uthscsa-bcf' ) $cluster = 'bcf';
|
---|
| 76 | if ( $cluster == 'uthscsa-alamo' ) $cluster = 'alamo';
|
---|
| 77 |
|
---|
| 78 | $a[ 'cluster' ] = $cluster;
|
---|
| 79 |
|
---|
| 80 | switch ( $item[ 'resourceStatus' ] )
|
---|
| 81 | {
|
---|
| 82 | case 'UP' :
|
---|
| 83 | $status = "up";
|
---|
| 84 | break;
|
---|
| 85 |
|
---|
| 86 | case 'DOWN' :
|
---|
| 87 | $status = "down";
|
---|
| 88 | break;
|
---|
| 89 |
|
---|
| 90 | case 'WARN' :
|
---|
| 91 | $status = "warn";
|
---|
| 92 | break;
|
---|
| 93 |
|
---|
| 94 | case 'FAILED' :
|
---|
| 95 | default :
|
---|
| 96 | $status = "unknown";
|
---|
| 97 | break;
|
---|
| 98 | }
|
---|
| 99 |
|
---|
| 100 | $a[ 'status' ] = $status;
|
---|
| 101 |
|
---|
| 102 | $data[] = $a;
|
---|
| 103 | }
|
---|
| 104 | }
|
---|
| 105 |
|
---|
| 106 | // Put it in the DB
|
---|
| 107 |
|
---|
| 108 | function update( $cluster, $queued, $status, $running )
|
---|
| 109 | {
|
---|
| 110 | global $dbhost;
|
---|
| 111 | global $guser;
|
---|
| 112 | global $gpasswd;
|
---|
| 113 | global $gDB;
|
---|
| 114 | global $self;
|
---|
[23] | 115 | //echo " $cluster $queued, $status, $running\n";
|
---|
[1] | 116 |
|
---|
| 117 | $gfac_link = mysql_connect( $dbhost, $guser, $gpasswd );
|
---|
| 118 | $result = mysql_select_db( $gDB, $gfac_link );
|
---|
| 119 |
|
---|
| 120 | if ( ! $result )
|
---|
| 121 | {
|
---|
| 122 | write_log( "$self: Could not connect to DB $gDB" );
|
---|
| 123 | echo "Could not connect to DB $gDB.\n";
|
---|
| 124 | exit();
|
---|
| 125 | }
|
---|
| 126 |
|
---|
| 127 | $query = "SELECT * FROM cluster_status WHERE cluster='$cluster'";
|
---|
| 128 | $result = mysql_query( $query, $gfac_link );
|
---|
| 129 |
|
---|
| 130 | if ( ! $result )
|
---|
| 131 | {
|
---|
| 132 | write_log( "$self: Query failed $query - " . mysql_error( $gfac_link ) );
|
---|
| 133 | echo "$self: Query failed $query - " . mysql_error( $gfac_link ) . "\n";
|
---|
| 134 | exit();
|
---|
| 135 | }
|
---|
| 136 |
|
---|
| 137 | $rows = mysql_num_rows( $result );
|
---|
| 138 |
|
---|
| 139 | if ( $rows == 0 ) // INSERT
|
---|
| 140 | {
|
---|
| 141 | $query = "INSERT INTO cluster_status SET " .
|
---|
| 142 | "cluster='$cluster', " .
|
---|
| 143 | "queued=$queued, " .
|
---|
| 144 | "running=$running, " .
|
---|
| 145 | "status='$status'";
|
---|
| 146 | }
|
---|
| 147 | else // UPDATE
|
---|
| 148 | {
|
---|
| 149 | $query = "UPDATE cluster_status SET " .
|
---|
| 150 | "queued=$queued, " .
|
---|
| 151 | "running=$running, " .
|
---|
| 152 | "status='$status' " .
|
---|
| 153 | "WHERE cluster='$cluster'";
|
---|
| 154 | }
|
---|
| 155 |
|
---|
| 156 | $result = mysql_query( $query, $gfac_link );
|
---|
| 157 |
|
---|
| 158 | if ( ! $result )
|
---|
| 159 | {
|
---|
| 160 | write_log( "$self: Query failed $query - " . mysql_error( $gfac_link ) );
|
---|
| 161 | echo "$self: Query failed $query - " . mysql_error( $gfac_link ) . "\n";
|
---|
| 162 | }
|
---|
| 163 | }
|
---|
| 164 |
|
---|
[6] | 165 | // Get local cluster status
|
---|
| 166 |
|
---|
| 167 | function local_status()
|
---|
| 168 | {
|
---|
| 169 | global $self;
|
---|
| 170 | global $data;
|
---|
[25] | 171 | global $dbhost;
|
---|
| 172 | global $org_domain;
|
---|
[26] | 173 | global $class_dir;
|
---|
[6] | 174 |
|
---|
[26] | 175 | if ( preg_match( "/_local/", $class_dir ) )
|
---|
[25] | 176 | {
|
---|
| 177 | if ( preg_match( "/attlocal/", $org_domain ) )
|
---|
[28] | 178 | $clusters = array( "us3iab-devel", "alamo-local" );
|
---|
[25] | 179 | else
|
---|
| 180 | $clusters = array( "us3iab-node0" );
|
---|
| 181 | }
|
---|
| 182 | else
|
---|
| 183 | {
|
---|
| 184 | $clusters = array( "alamo", "lonestar5", "stampede", "comet",
|
---|
| 185 | "gordon", "jureca", "jacinto" );
|
---|
| 186 | }
|
---|
| 187 |
|
---|
[6] | 188 | foreach ( $clusters as $clname )
|
---|
| 189 | {
|
---|
| 190 | $a = Array();
|
---|
[25] | 191 | //echo "$self: clname=$clname\n";
|
---|
| 192 |
|
---|
[11] | 193 | switch( $clname )
|
---|
| 194 | {
|
---|
[25] | 195 | case 'us3iab-node0':
|
---|
| 196 | case 'us3iab-node1':
|
---|
| 197 | case 'us3iab-devel':
|
---|
| 198 | {
|
---|
| 199 | $qstat = `/usr/bin/qstat -B 2>&1|tail -1`;
|
---|
| 200 |
|
---|
| 201 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 202 | $que = $sparts[ 3 ];
|
---|
| 203 | $run = $sparts[ 4 ];
|
---|
| 204 | $sta = $sparts[ 10 ];
|
---|
| 205 | if ( $sta == "Active" )
|
---|
| 206 | $sta = "up";
|
---|
| 207 | else
|
---|
| 208 | $sta = "down";
|
---|
| 209 | break;
|
---|
| 210 | }
|
---|
[28] | 211 | case 'alamo-local':
|
---|
[11] | 212 | case 'alamo':
|
---|
| 213 | {
|
---|
| 214 | $host = "us3@alamo.uthscsa.edu";
|
---|
| 215 | $qstat = `ssh $host '/usr/bin/qstat -B 2>&1|tail -1'`;
|
---|
| 216 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 217 | $que = $sparts[ 3 ];
|
---|
| 218 | $run = $sparts[ 4 ];
|
---|
| 219 | $sta = $sparts[ 10 ];
|
---|
| 220 | if ( $sta == "Active" )
|
---|
| 221 | $sta = "up";
|
---|
| 222 | else
|
---|
| 223 | $sta = "down";
|
---|
| 224 | break;
|
---|
| 225 | }
|
---|
[17] | 226 | case 'jacinto':
|
---|
| 227 | {
|
---|
| 228 | $host = "us3@jacinto.uthscsa.edu";
|
---|
| 229 | $qstat = `ssh $host '/opt/torque/bin/qstat -B 2>&1|tail -1'`;
|
---|
| 230 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 231 | $que = $sparts[ 3 ];
|
---|
| 232 | $run = $sparts[ 4 ];
|
---|
| 233 | $sta = $sparts[ 9 ];
|
---|
| 234 | if ( $sta == "Active" )
|
---|
| 235 | $sta = "up";
|
---|
| 236 | else
|
---|
| 237 | $sta = "down";
|
---|
| 238 | break;
|
---|
| 239 | }
|
---|
[11] | 240 | case 'stampede':
|
---|
| 241 | {
|
---|
| 242 | $host = "us3@stampede.tacc.utexas.edu";
|
---|
[23] | 243 | $qstat = `ssh $host '/usr/local/bin/showq 2>&1|grep "Total Jobs"'`;
|
---|
[11] | 244 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 245 | $tot = $sparts[ 2 ];
|
---|
| 246 | $run = $sparts[ 5 ];
|
---|
| 247 | $que = $sparts[ 8 ];
|
---|
| 248 | $sta = "up";
|
---|
| 249 | if ( $tot == '' || $tot == '0' )
|
---|
| 250 | $sta = "down";
|
---|
| 251 | break;
|
---|
| 252 | }
|
---|
[17] | 253 | case 'lonestar5':
|
---|
| 254 | {
|
---|
| 255 | $host = "us3@ls5.tacc.utexas.edu";
|
---|
[23] | 256 | $qstat = `ssh $host '/usr/local/bin/showq 2>&1|grep "Total Jobs"'`;
|
---|
[17] | 257 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 258 | $tot = $sparts[ 2 ];
|
---|
| 259 | $run = '0';
|
---|
| 260 | $que = '0';
|
---|
| 261 | $sta = "up";
|
---|
| 262 | if ( $tot == '' || $tot == '0' )
|
---|
| 263 | {
|
---|
| 264 | $sta = "down";
|
---|
| 265 | }
|
---|
| 266 | else
|
---|
| 267 | {
|
---|
| 268 | $run = $sparts[ 5 ];
|
---|
| 269 | $que = $sparts[ 8 ];
|
---|
| 270 | }
|
---|
| 271 | break;
|
---|
| 272 | }
|
---|
[11] | 273 | case 'comet':
|
---|
| 274 | {
|
---|
| 275 | $host = "us3@comet.sdsc.edu";
|
---|
[15] | 276 | $qstat = `ssh $host '/usr/bin/sinfo -s -p compute -o "%a %F" |tail -1'`;
|
---|
[11] | 277 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 278 | $sta = $sparts[ 0 ];
|
---|
| 279 | $knts = $sparts[ 1 ];
|
---|
| 280 | $sparts = preg_split( '/\//', $knts );
|
---|
| 281 | $run = $sparts[ 0 ];
|
---|
| 282 | $que = $sparts[ 1 ];
|
---|
[15] | 283 | if ( $sta == "" )
|
---|
| 284 | $sta = "down";
|
---|
[11] | 285 | break;
|
---|
| 286 | }
|
---|
| 287 | case 'gordon':
|
---|
| 288 | {
|
---|
| 289 | $host = "us3@gordon.sdsc.edu";
|
---|
| 290 | $qstat = `ssh $host '/opt/torque/bin/qstat -B 2>&1|tail -1'`;
|
---|
| 291 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 292 | $que = $sparts[ 3 ];
|
---|
| 293 | $run = $sparts[ 4 ];
|
---|
| 294 | $sta = $sparts[ 10 ];
|
---|
| 295 | if ( $sta == "Active" )
|
---|
| 296 | $sta = "up";
|
---|
| 297 | else
|
---|
| 298 | $sta = "down";
|
---|
| 299 | break;
|
---|
| 300 | }
|
---|
| 301 | case 'jureca':
|
---|
| 302 | {
|
---|
[15] | 303 | $host = "swus1@jureca.fz-juelich.de";
|
---|
[17] | 304 | $qstat = `ssh $host '~swus1/scripts/qstat-jureca 2>&1'`;
|
---|
[11] | 305 | $sparts = preg_split( '/\s+/', $qstat );
|
---|
| 306 | $sta = $sparts[ 0 ];
|
---|
[17] | 307 | $run = $sparts[ 1 ];
|
---|
| 308 | $que = $sparts[ 2 ];
|
---|
[11] | 309 | break;
|
---|
| 310 | }
|
---|
| 311 | }
|
---|
[6] | 312 |
|
---|
[17] | 313 | if ( $sta == "" )
|
---|
| 314 | $sta = "down";
|
---|
| 315 |
|
---|
[11] | 316 | if ( $sta == "down" )
|
---|
| 317 | {
|
---|
| 318 | $que = "0";
|
---|
| 319 | $run = "0";
|
---|
| 320 | }
|
---|
| 321 |
|
---|
[6] | 322 | $a[ 'cluster' ] = $clname;
|
---|
| 323 | $a[ 'queued' ] = $que;
|
---|
| 324 | $a[ 'running' ] = $run;
|
---|
| 325 | $a[ 'status' ] = $sta;
|
---|
[25] | 326 | //echo "$self: $clname $que $run $sta\n";
|
---|
[6] | 327 |
|
---|
| 328 | $data[] = $a;
|
---|
[11] | 329 |
|
---|
[17] | 330 | if ( $clname == 'alamo' || $clname == 'jacinto' )
|
---|
[11] | 331 | {
|
---|
| 332 | $a[ 'cluster' ] = $clname . "-local";
|
---|
| 333 | $data[] = $a;
|
---|
| 334 | }
|
---|
[6] | 335 | }
|
---|
| 336 | }
|
---|
| 337 |
|
---|
[1] | 338 | class XML_Array
|
---|
| 339 | {
|
---|
| 340 | var $_data = Array();
|
---|
| 341 | var $_name = Array();
|
---|
| 342 | var $_rep = Array();
|
---|
| 343 | var $_parser = 0;
|
---|
| 344 | var $_level = 0;
|
---|
| 345 | var $_index = 0;
|
---|
| 346 |
|
---|
| 347 | function XML_Array( &$data )
|
---|
| 348 | {
|
---|
| 349 | $this->_parser = xml_parser_create();
|
---|
| 350 |
|
---|
| 351 | xml_set_object ( $this->_parser, $this );
|
---|
| 352 | xml_parser_set_option ( $this->_parser, XML_OPTION_CASE_FOLDING, false );
|
---|
| 353 | xml_set_element_handler ( $this->_parser, "_startElement", "_endElement" );
|
---|
| 354 | xml_set_character_data_handler( $this->_parser, "_cdata" );
|
---|
| 355 |
|
---|
| 356 | $this->_data = array();
|
---|
| 357 | $this->_level = 0;
|
---|
| 358 |
|
---|
| 359 | if ( ! xml_parse( $this->_parser, $data, true ) )
|
---|
| 360 | return false;
|
---|
| 361 |
|
---|
| 362 | xml_parser_free( $this->_parser );
|
---|
| 363 | }
|
---|
| 364 |
|
---|
| 365 | function & ReturnArray()
|
---|
| 366 | {
|
---|
| 367 | return $this->_data[ 0 ];
|
---|
| 368 | }
|
---|
| 369 |
|
---|
| 370 | function _startElement( $parser, $name, $attrs )
|
---|
| 371 | {
|
---|
| 372 | if ( $name == "resourceHealth" )
|
---|
| 373 | {
|
---|
[6] | 374 | ## $name .= $this->_index;
|
---|
[1] | 375 | $this->_index++;
|
---|
| 376 | }
|
---|
| 377 |
|
---|
| 378 | if ( ! isset( $this->_rep[ $name ] ) ) $this->_rep[ $name ] = 0;
|
---|
| 379 |
|
---|
| 380 | $this->_addElement( $name, $this->_data[ $this->_level ], $attrs );
|
---|
| 381 | $this->_name[ $this->_level ] = $name;
|
---|
| 382 | $this->_level++;
|
---|
| 383 | }
|
---|
| 384 |
|
---|
| 385 | function _endElement( $parser, $name )
|
---|
| 386 | {
|
---|
| 387 | if ( isset( $this->_data[ $this->_level ] ) )
|
---|
| 388 | {
|
---|
| 389 | $this->_addElement( $this->_name[ $this->_level - 1 ],
|
---|
| 390 | $this->_data[ $this->_level - 1 ],
|
---|
| 391 | $this->_data[ $this->_level ]
|
---|
| 392 | );
|
---|
| 393 | }
|
---|
| 394 |
|
---|
| 395 | unset( $this->_data[ $this->_level ] );
|
---|
| 396 | $this->_level--;
|
---|
| 397 | $this->_rep[ $name ]++;
|
---|
| 398 | }
|
---|
| 399 |
|
---|
| 400 | function _cdata( $parser, $data )
|
---|
| 401 | {
|
---|
| 402 | if ( $this->_name[ $this->_level - 1 ] )
|
---|
| 403 | {
|
---|
| 404 | $this->_addElement( $this->_name[ $this->_level - 1 ],
|
---|
| 405 | $this->_data[ $this->_level - 1 ],
|
---|
| 406 | str_replace( array( ">", "<",""", "&" ),
|
---|
| 407 | array( ">" , "<" , '"' , "&" ),
|
---|
| 408 | $data
|
---|
| 409 | )
|
---|
| 410 | );
|
---|
| 411 | }
|
---|
| 412 | }
|
---|
| 413 |
|
---|
| 414 | function _addElement( &$name, &$start, $add = array() )
|
---|
| 415 | {
|
---|
| 416 | if ( ( sizeof( $add ) == 0 && is_array( $add ) ) || ! $add )
|
---|
| 417 | {
|
---|
| 418 | if ( ! isset( $start[ $name ] ) ) $start[ $name ] = '';
|
---|
| 419 | $add = '';
|
---|
| 420 | }
|
---|
| 421 |
|
---|
| 422 | $update = &$start[ $name ];
|
---|
| 423 |
|
---|
| 424 | if ( is_array( $add) &&
|
---|
| 425 | is_array( $update ) ) $update += $add;
|
---|
| 426 | elseif ( is_array( $update ) ) return;
|
---|
| 427 | elseif ( is_array( $add ) ) $update = $add;
|
---|
| 428 | elseif ( $add ) $update .= $add;
|
---|
| 429 | }
|
---|
| 430 | }
|
---|
| 431 | ?>
|
---|