planetlab/pub/slices.php

   1 <?php
   2 //
   3 // Slice list
   4 //
   5 // Mark Huang <mlhuang@cs.princeton.edu>
   6 // Copyright (C) 2006 The Trustees of Princeton University
   7 //
   8 // $Id$ $
   9 //
  10
  11 // Get API handle
  12 require_once 'plc_session.php';
  13 global $adm;
  14
  15 // Get PlanetFlow stats
  16 global $planetflow, $active_bytes;
  17 include_once '_gen_planetflow.php';
  18
  19 // Print header
  20 require_once 'plc_drupal.php';
  21 drupal_set_title('Projects');
  22 include 'plc_header.php';
  23
  24 if (isset($_REQUEST['active'])) {
  25
  26 ?>
  27
  28 <p>A slice is essentially a login account on a set of nodes. The
  29 following is a list of the most active slices; you may also view a
  30 list of <a href="/db/pub/slices.php">all slices</a>.</p>
  31
  32 <?php } else { ?>
  33
  34 <p>A slice is essentially a login account on a set of nodes. The
  35 following is a list of all slices; you may also view a list of <a
  36 href="/db/pub/slices.php?active">just the most active slices</a>.</p>
  37
  38 <?php } ?>
  39
  40 <p>To provide feedback to the principals responsible for each slice,
  41 check the <b>Feedback</b> box for each slice that you would like to
  42 comment on, then click <b>Provide Feedback</b>.</p>
  43
  44 <form method="post" action="/db/pub/feedback.php">
  45
  46 <table cellspacing="0">
  47   <thead>
  48     <tr>
  49       <th>Slice</th>
  50       <th>Description</th>
  51       <th>Site</th>
  52       <th>MBytes/day</th>
  53       <th>Feedback</th>
  54     </tr>
  55   </thead>
  56   <tbody>
  57
  58 <?php
  59
  60 // Get all sites
  61 $sites = array();
  62 foreach ($adm->GetSites(NULL, array('abbreviated_name', 'site_id'))
  63          as $site) {
  64   $sites[$site['site_id']] = $site;
  65 }
  66
  67 // Get all slices
  68 $slices = $adm->GetSlices(NULL, array('name', 'url', 'description', 'site_id'));
  69
  70 // List just the active slices
  71 if (isset($_REQUEST['active'])) {
  72   // Byte threshold to be considered "active"
  73   if (!empty($_REQUEST['mbytes'])) {
  74     $active_bytes = intval($_REQUEST['mbytes'])*1024*1024;
  75   } else {
  76     $active_bytes = 100*1024*1024;
  77   }
  78
  79   // Filter just the active slices
  80   function __active_slice($slice) {
  81     global $planetflow, $active_bytes;
  82     return isset($planetflow[$slice['name']]) &&
  83       ($planetflow[$slice['name']]['bytes'] >= $active_bytes);
  84   }
  85   $slices = array_filter($slices, '__active_slice');
  86
  87   // Sort active slices by bytes in descending order
  88   function __cmp_slices_by_bytes($slicea, $sliceb) {
  89     global $planetflow;
  90     return ($planetflow[$slicea['name']]['bytes'] > $planetflow[$sliceb['name']]['bytes']) ? -1 : 1;
  91   }
  92   usort($slices, '__cmp_slices_by_bytes');
  93 } else {
  94   // Alphabetically sort slices
  95   sort_slices($slices);
  96 }
  97
  98 $class = "";
  99 foreach ($slices as $slice) {
 100   print "<tr class=\"$class\">";
 101
 102   print '<td valign="top"><a name="' .
 103     htmlspecialchars($slice['name']) .
 104     '">' .
 105     htmlspecialchars($slice['name']) .
 106     '</a></td>';
 107
 108   print '<td valign="top">';
 109   print htmlspecialchars(trim($slice['description']));
 110   if (!empty($slice['url'])) {
 111     if (strncasecmp($slice['url'], "http", 4) != 0) {
 112       $slice['url'] = "http://" . $slice['url'];
 113     }
 114     print '<br /><a href="' . htmlspecialchars($slice['url']) . '">More details...</a>';
 115   }
 116   print '</td>';
 117
 118   print '<td valign="top">';
 119   if (isset($sites[$slice['site_id']])) {
 120     $site = $sites[$slice['site_id']];
 121     print htmlspecialchars($site['abbreviated_name']);
 122   }
 123   print '</td>';
 124
 125   print '<td valign="top">';
 126   if (isset($planetflow[$slice['name']]) &&
 127       isset($planetflow[$slice['name']]['bytes']) &&
 128       $planetflow[$slice['name']]['bytes']/1024/1024 >= 1) {
 129     print number_format($planetflow[$slice['name']]['bytes']/1024/1024, 0, '.', ',');
 130   }
 131   print '</td>';
 132
 133   print '<td valign="top">';
 134   print '<input type="checkbox" name="slices[]" value="' . htmlspecialchars($slice['name']) . '" />';
 135   print '</td>';
 136
 137   print '</tr>';
 138
 139   $class = $class == "oddrow" ? "" : "oddrow";
 140 }
 141
 142 ?>
 143
 144   </tbody>
 145 </table>
 146
 147 <input type="submit" value="Provide Feedback" />
 148
 149 </form>
 150
 151 <?php
 152
 153 include 'plc_footer.php';
 154
 155 ?>