planetlab/events/index.php

   1 <?php
   2 // $Id$
   3
   4 // Require login
   5 require_once 'plc_login.php';
   6
   7 // Get session and API handles
   8 require_once 'plc_session.php';
   9 global $plc, $api;
  10
  11 //// Print header
  12 require_once 'plc_drupal.php';
  13 include 'plc_header.php';
  14
  15 // Common functions
  16 require_once 'plc_functions.php';
  17 require_once 'plc_tables.php';
  18 require_once 'plc_minitabs.php';
  19
  20 // needs much memory
  21 ini_set("memory_limit","256M");
  22
  23 //set default title
  24 drupal_set_title('Events');
  25
  26 // page size
  27 $page_size=30;
  28
  29 $messages = array ();
  30
  31 //////////////////////////////////////////////////////////// form
  32
  33 // defaults for day ('j'), 3-letter month ('M') or year ('Y')
  34 function the_date ($key,$dateformat) {
  35   if ($_GET[$key]) return $_GET[$key];
  36   else return date($dateformat);
  37 }
  38
  39 // fill out dates from now if not specified
  40 $from_d = the_date('from_d','j');
  41 $from_m = the_date('from_m','M');
  42 $from_y = the_date('from_y','Y');
  43 $until_d = the_date('until_d','j');
  44 $until_m = the_date('until_m','M');
  45 $until_y = the_date('until_y','Y');
  46
  47 // create the options area from a list and the selected entry
  48 function dropdown_options ($array,$selected) {
  49   $result="";
  50   foreach ($array as $item) {
  51     $result.= "<option value=" . $item;
  52     if ($item == $selected) $result .= ' selected=selected';
  53     $result .= '>' . $item . '</option>';
  54   }
  55   return $result;
  56 }
  57
  58 $days=range(1,31);
  59 $from_d_dropdown_options=dropdown_options($days,$from_d);
  60 $until_d_dropdown_options=dropdown_options($days,$until_d);
  61 $months=array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
  62 $from_m_dropdown_options=dropdown_options($months,$from_m);
  63 $until_m_dropdown_options=dropdown_options($months,$until_m);
  64 // only propose years ranging from now + 3 full years back
  65 $this_year=date('Y');
  66 $years=range($this_year-3,$this_year);
  67 $from_y_dropdown_options=dropdown_options($years,$from_y);
  68 $until_y_dropdown_options=dropdown_options($years,$until_y);
  69
  70 $event_form = <<< EOF
  71 <form method=get name='F' action='/db/events/index.php' >
  72
  73 <table align='bottom'>
  74 <tr><td colspan=2>
  75 <table> <TR><TD>
  76 <input type='radio' name='type' id='events' value='Event' checked='checked'>&nbsp;Events:
  77 </TD><TD>
  78 <input type='text' onSelect="submit();" onFocus='events.checked=true' name='event' size=20>
  79 </TD></TR><TR><TD>
  80 <input type='radio' name='type' id='persons' value='Person'>&nbsp;Persons:
  81 </TD><TD>
  82 <input type='text' onSelect="submit();" onFocus='persons.checked=true' name='person' size=20>
  83 </TD></TR><TR><TD>
  84 <input type='radio' name='type' id='nodes' value='Node'>&nbsp;Nodes:
  85 </TD><TD>
  86 <input type='text' onSelect="submit();" onFocus='nodes.checked=true' name='node' size=20>
  87 </TD></TR><TR><TD>
  88 <input type='radio' name='type' id='sites' value='Site'>&nbsp;Sites:
  89 </TD><TD>
  90 <input type='text' onSelect="submit();" onFocus='sites.checked=true' name='site' size=20>
  91 </TD></TR><TR><TD>
  92 <input type='radio' name='type' id='slices' value='Slice'>&nbsp;Slices:
  93 </TD><TD>
  94 <input type='text' onSelect="submit();" onFocus='slices.checked=true' name='slice' size=20>
  95 </TD></TR></table>
  96 </td></tr>
  97
  98
  99 <tr><th>FROM (inclusive)</th> <th>UNTIL (inclusive)</th> </tr>
 100
 101 <tr>
 102       <td>
 103         <SELECT NAME='from_d'>
 104 $from_d_dropdown_options
 105         </SELECT>
 106         <SELECT NAME='from_m' >
 107 $from_m_dropdown_options
 108         </SELECT>
 109         <SELECT NAME='from_y' >
 110 $from_y_dropdown_options
 111         </SELECT>
 112 </td>
 113
 114 <TD>
 115    <SELECT NAME=' until_d' >
 116 $until_d_dropdown_options
 117     </SELECT>
 118     <SELECT NAME=' until_m' >
 119 $until_m_dropdown_options
 120    </SELECT>
 121     <SELECT NAME=' until_y' >
 122 $until_y_dropdown_options
 123     </SELECT>
 124 </td></tr>
 125
 126 <TR><TD colspan=2>
 127 <input type='submit' align='middle' value='Show Events'>
 128 </TD></TR>
 129 </table>
 130 </form>
 131
 132 EOF;
 133
 134 //////////////////////////////////////////////////////////// dates
 135 function parse_date ($day,$month,$year) {
 136   // if everything empty -> unspecified date, return 0
 137   if ( empty($day) && empty($month) && empty($year)) {
 138     return array ("xxx",0);
 139   } else {
 140     // fill missing fields with current value
 141     if (empty($day)) $day=date('d');
 142     if (empty($month)) $month=date('M');
 143     if (empty($year)) $year=date('Y');
 144     $date=sprintf("%s %s %s",$day,$month,$year);
 145     $time=strtotime($date);
 146     return array($date,$time);
 147   }
 148 }
 149
 150 function parse_dates () {
 151   list($from_date,$from_time) = parse_date($_GET['from_d'],$_GET['from_m'],$_GET['from_y']);
 152   list($until_date,$until_time) = parse_date($_GET['until_d'],$_GET['until_m'],$_GET['until_y']);
 153   return array($from_date,$from_time,$until_date,$until_time);
 154 }
 155
 156 //////////////////////////////////////////////////////////// layout
 157 // outline node ids and person ids with a link
 158 function e_node ($node_id) {
 159   if (! $node_id) return "";
 160   return l_node_t($node_id,$node_id);
 161 }
 162 function e_person ($person_id) {
 163   if (! $person_id) return "";
 164   return l_person_t($person_id,$person_id);
 165 }
 166 // xxx broken
 167 function e_event ($event_id) {
 168   if (! $event_id) return "";
 169   return href(l_event("Event","event",$event_id),$event_id);
 170 }
 171
 172 function e_subject ($type,$id) {
 173   $mess=$type . " " . $id;
 174   switch ($type) {
 175   case 'Node': return l_node_t ($id,$mess);
 176   case 'Site': return l_site_t ($id,$mess);
 177   case 'Person': return l_person_t ($id,$mess);
 178   case 'Slice': return l_slice_t ($id,$mess);
 179   case 'Role': case 'Key': case 'PCU': case 'Interface': case 'NodeGroup': case "Address":
 180     return "$mess";
 181   default: return "Unknown $type" . "-" . $id;
 182   }
 183 }
 184
 185 // synthesize links to the subject objects from types and ids
 186 function e_subjects ($param) {
 187   $types=$param['object_types'];
 188   $ids=$param['object_ids'];
 189   if ( ! $types) return "";
 190   return plc_vertical_table(array_map ("e_subject",$types,$ids));
 191 }
 192
 193 function e_issuer ($param) {
 194   if ($param['node_id'])        return e_subject('Node',$param['node_id']);
 195   if ($param['person_id'])      return e_subject('Person',$param['person_id']);
 196   return '???';
 197 }
 198
 199 function e_auth ($event) {
 200   if (array_key_exists('auth_type',$event))
 201     return $event['auth_type'];
 202     else
 203       return "";
 204 }
 205
 206 function e_fault ($event) {
 207   $f=$event['fault_code'];
 208   if ($f==0) return "OK";
 209   else return $f;
 210 }
 211
 212 ////////////////////////////////////////////////////////////
 213 // for convenience, add 1 day to the 'until' date as otherwise this corresponds to 0:00
 214 $STEP=24*60*60;
 215
 216 if ( ! plc_is_admin()) {
 217   plc_warning("You need admin role to see this page.");
 218
 219  } else if (! $_GET['type']) {
 220   echo "<h2>Select the events to focus on :</h2>";
 221   // print the selection frame
 222   echo $event_form;
 223
 224  } else {
 225
 226   $tabs=array();
 227   $tabs['Back to events form']=l_events();
 228   plc_tabs($tabs);
 229
 230   // handle dates
 231   list($from_date,$from_time,$until_date,$until_time) = parse_dates ();
 232   // add one day to until_time - otherwise this corresponds to 0:0
 233   $until_time += $STEP;
 234   if ( ($from_time != 0) && ($until_time != $STEP) && ($from_time > $until_time) ) {
 235     $messages[] = "Warning - <from> is after <until>";
 236   }
 237
 238   $filter=array();
 239   // sort events by time is not good enough, let's use event_id
 240   $filter['-SORT']='-event_id';
 241   if ($from_time != 0) {
 242     $filter[']time']=$from_time;
 243   }
 244   if ($until_time != $STEP) {
 245     $filter['[time']=$until_time;
 246   }
 247
 248   //////////////////////////////////////// Events
 249   $type=$_GET['type'];
 250   if ($type == 'Event') {
 251
 252    // and the filter applied for fetching events using GetEvent
 253     $user_desc=$_GET['event'];
 254     if ( ! empty($user_desc)) {
 255       // should parse stuff like 45-90,230-3000 - some other day
 256       $filter['event_id']=intval($user_desc);
 257     }
 258     // the filter might be void here - in python we need an empty dict but that's not what we get so
 259     if (empty($filter)) {
 260       $filter[']time']=0;
 261     }
 262     $events = $api->GetEvents($filter);
 263     $title="Events matching " . ($user_desc ? $user_desc : "everything");
 264     if ($from_time != 0)
 265       $title .= " From " . $from_date;
 266     if ($until_time != $STEP)
 267       $title .= " Until " . $until_date;
 268
 269     // see actual display of $title and $events below
 270
 271   } else {
 272
 273     switch ($type) {
 274     case 'Person':
 275       $primary_key='person_id';
 276       $string_key='email';
 277       $user_input=$_GET['person'];
 278       $method="GetPersons";
 279       $object_type='Person';
 280       break;
 281
 282     case 'Node':
 283       $primary_key='node_id';
 284       $string_key='hostname';
 285       $user_input=$_GET['node'];
 286       $method="GetNodes";
 287       $object_type='Node';
 288       break;
 289
 290     case 'Site':
 291       $primary_key='site_id';
 292       $string_key='login_base';
 293       $user_input=$_GET['site'];
 294       $method="GetSites";
 295       $object_type='Site';
 296       break;
 297
 298     case 'Slice':
 299       $primary_key='slice_id';
 300       $string_key='name';
 301       $user_input=$_GET['slice'];
 302       $method="GetSlices";
 303       $object_type='Slice';
 304       break;
 305     }
 306
 307     $object_ids=array();
 308     $title=sprintf('Events for type %s:',$object_type);
 309     foreach ( split(",",$user_input) as $user_desc) {
 310       # numeric
 311       if (my_is_int($user_desc)) {
 312         $obj_check = call_user_func(array($api,$method),array(intval($user_desc)),array($primary_key));
 313         if (empty ($obj_check)) {
 314           $messages[] = "No such " . $primary_key . ": " . $user_desc;
 315         } else {
 316           $object_ids[] = $obj_check[0][$primary_key];
 317           $title .= $user_desc . ", " ;
 318         }
 319       } else {
 320         # string
 321         $new_object_ids=call_user_func (array($api,$method), array($string_key=>$user_desc),array($primary_key,$string_key));
 322         if (empty($new_object_ids)) {
 323           $messages[] = "No " . $string_key . " matching " . $user_desc;
 324         } else {
 325           foreach ($new_object_ids as $new_obj_id) {
 326             $object_ids[] = $new_obj_id[$primary_key];
 327             $title .= $new_obj_id[$primary_key] . ", ";
 328           }
 329         }
 330       }
 331     }
 332
 333     $event_objs = $api->GetEventObjects(array('object_id'=>$object_ids,'object_type'=>$object_type),array('event_id'));
 334     // get set of event_ids
 335     $event_ids = array_map ( create_function ('$eo','return $eo["event_id"];') , $event_objs);
 336
 337     $events = $api->GetEvents (array('event_id'=>$event_ids));
 338
 339     // see actual display of $title and $events below
 340
 341   }
 342
 343   drupal_set_title ($title);
 344   // Show messages
 345   if (!empty($messages))
 346     foreach ($messages as $line)
 347       drupal_set_message($line);
 348
 349   $headers=array("Id"=>"int",
 350                  "Time"=>"EnglishDateTime",
 351                  "Method"=>"string",
 352                  "Message"=>"string",
 353                  "Subjects"=>"string",
 354                  "Issuer"=>"string",
 355                  "Auth"=>"string",
 356                  "R"=>"string",
 357                  "D"=>"none",
 358                  );
 359
 360   $table = new PlcTable ("events",$headers,"0r");
 361   $table->set_options (array ('max_pages'=>20));
 362   $table->start ();
 363   foreach ($events as $event) {
 364
 365     // the call button
 366     $message = htmlentities($event['message'], ENT_QUOTES);
 367     $call = htmlentities($event['call'], ENT_QUOTES);
 368     $text = sprintf("message=<<%s>>\\n\\ncall=<<%s>>\\n\\nruntime=<<%f>>\\n",$message,$call,$event['runtime']);
 369     $method = "<input type=button name='call' value='" . $event['call_name'] ."' onclick='alert(\"" . $text . "\")'";
 370     //    $method = sprintf('<span title="%s">%s</span>',$call,$method);
 371
 372   // the message button
 373     $trunc_mess=htmlentities(truncate($event['message'],40),ENT_QUOTES);
 374     $message="<input type=button name='message' value='" . $trunc_mess ."' onclick='alert(\"" . $text . "\")'";
 375     $details="<input type=button name='message' value='X' onclick='alert(\"" . $text . "\")'";
 376     //    $message=sprintf('<span title="%s">%s</span>',$message,$message);
 377
 378     $message=truncate($event['message'],40);
 379     $table->row_start();
 380     $table->cell(e_event($event['event_id']));
 381     $table->cell(date('M/d/Y H:i', $event['time']));
 382     $table->cell($event['call_name']);
 383     $table->cell($message);
 384     $table->cell(e_subjects($event));
 385     $table->cell(e_issuer($event));
 386     $table->cell(e_auth($event));
 387     $table->cell(e_fault($event));
 388     $table->cell($details);
 389     $table->row_end();
 390   }
 391   $table->set_options(array('notes'=>array("The R column shows the call result value, a.k.a. fault_code",
 392                                            "Click the button in the D(etails) column to get more details")));
 393   $table->end();
 394
 395  }
 396
 397
 398   // Print footer
 399 include 'plc_footer.php';
 400
 401 ?>
 402