5 // Mark Huang <mlhuang@cs.princeton.edu>
6 // Copyright (C) 2006 The Trustees of Princeton University
12 require_once 'plc_session.php';
15 // Get PlanetFlow stats
16 global $planetflow, $active_bytes;
17 // Thierry : this is not found at PlanetLab Europe
18 //include_once '_gen_planetflow.php';
21 require_once 'plc_drupal.php';
22 drupal_set_title('Projects');
23 include 'plc_header.php';
25 if (isset($_REQUEST['active'])) {
29 <p>A slice is essentially a login account on a set of nodes. The
30 following is a list of the most active slices; you may also view a
31 list of <a href="/db/pub/slices.php">all slices</a>.</p>
35 <p>A slice is essentially a login account on a set of nodes. The
36 following is a list of all slices; you may also view a list of <a
37 href="/db/pub/slices.php?active">just the most active slices</a>.</p>
41 <p>To provide feedback to the principals responsible for each slice,
42 check the <b>Feedback</b> box for each slice that you would like to
43 comment on, then click <b>Provide Feedback</b>.</p>
45 <form method="post" action="/db/pub/feedback.php">
47 <table cellspacing="0">
62 $sites = $adm->GetSites(NULL, array('abbreviated_name', 'site_id'));
63 if (!empty($sites)) foreach ($sites as $site) {
64 $sites[$site['site_id']] = $site;
68 $slices = $adm->GetSlices(NULL, array('name', 'url', 'description', 'site_id'));
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;
76 $active_bytes = 100*1024*1024;
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);
85 $slices = array_filter($slices, '__active_slice');
87 // Sort active slices by bytes in descending order
88 function __cmp_slices_by_bytes($slicea, $sliceb) {
90 return ($planetflow[$slicea['name']]['bytes'] > $planetflow[$sliceb['name']]['bytes']) ? -1 : 1;
92 usort($slices, '__cmp_slices_by_bytes');
95 function __cmp_slices($a, $b) {
96 return strcasecmp($a['name'], $b['name']);
98 // Alphabetically sort slices
99 usort($slices, '__cmp_slices');
103 foreach ($slices as $slice) {
104 print "<tr class=\"$class\">";
106 print '<td valign="top"><a name="' .
107 htmlspecialchars($slice['name']) .
109 htmlspecialchars($slice['name']) .
112 print '<td valign="top">';
113 print htmlspecialchars(trim($slice['description']));
114 if (!empty($slice['url'])) {
115 if (strncasecmp($slice['url'], "http", 4) != 0) {
116 $slice['url'] = "http://" . $slice['url'];
118 print '<br /><a href="' . htmlspecialchars($slice['url']) . '">More details...</a>';
122 print '<td valign="top">';
123 if (isset($sites[$slice['site_id']])) {
124 $site = $sites[$slice['site_id']];
125 print htmlspecialchars($site['abbreviated_name']);
129 print '<td valign="top">';
130 if (isset($planetflow[$slice['name']]) &&
131 isset($planetflow[$slice['name']]['bytes']) &&
132 $planetflow[$slice['name']]['bytes']/1024/1024 >= 1) {
133 print number_format($planetflow[$slice['name']]['bytes']/1024/1024, 0, '.', ',');
137 print '<td valign="top">';
138 print '<input type="checkbox" name="slices[]" value="' . htmlspecialchars($slice['name']) . '" />';
143 $class = $class == "oddrow" ? "" : "oddrow";
151 <input type="submit" value="Provide Feedback" />
157 include 'plc_footer.php';