4 require_once 'plc_login.php';
6 // Get session and API handles
7 require_once 'plc_session.php';
11 require_once 'plc_drupal.php';
12 include 'plc_header.php';
15 require_once 'plc_functions.php';
16 require_once 'plc_objects.php';
17 require_once 'plc_peers.php';
18 require_once 'plc_visibletags2.php';
19 require_once 'linetabs.php';
20 require_once 'table2.php';
21 require_once 'nifty.php';
22 require_once 'toggle.php';
23 require_once 'columns.php';
25 // keep css separate for now
26 drupal_set_html_head('
27 <link href="/planetlab/css/my_slice.css" rel="stylesheet" type="text/css" />
31 ini_set("memory_limit","64M");
34 // --------------------
35 // recognized URL arguments
36 $peerscope=$_GET['peerscope'];
37 $pattern=$_GET['pattern'];
38 $site_id=intval($_GET['site_id']);
39 $slice_id=intval($_GET['slice_id']);
40 $person_id=intval($_GET['person_id']);
45 $tabs []= tab_nodes();
46 if (count (plc_my_site_ids()) == 1) {
47 $tabs []= tab_nodes_mysite();
49 $tabs []= tab_nodes_all_mysite();
51 $tabs []= tab_nodes_local();
53 // --------------------
57 // performs sanity check and summarize the result in a single column
58 function node_status ($node) {
61 if ($node['node_type'] != 'regular' && $node['node_type'] != 'reservable' )
62 $messages []= $node['node_type'];
64 // checks on local nodes only
65 if ( ( ! $node['peer_id']) ) {
66 // has it got interfaces
67 if (count($node['interface_ids']) == 0)
68 $messages []= "No interface";
70 return plc_vertical_table($messages,'plc-warning');
74 $first_time_configuration = false;
77 $default_configuration = "ID:f|hostname:f|ST:f|AU:f|RES:f";
79 $default_configuration = "hostname:f|ST:f|AU:f|RES:f";
81 //$extra_default = "LCN|DN|R|L|OS|MS|SN";
82 $column_configuration = "";
83 $slice_column_configuration = "";
84 $show_configuration = "";
87 $PersonTags=$api->GetPersonTags (array('person_id'=>$plc->person['person_id']));
88 //print_r($PersonTags);
89 foreach ($PersonTags as $ptag) {
90 if ($ptag['tagname'] == 'columnconf')
92 $column_configuration = $ptag['value'];
93 $conf_tag_id = $ptag['person_tag_id'];
95 if ($ptag['tagname'] == 'showconf')
97 $show_configuration = $ptag['value'];
98 $show_tag_id = $ptag['person_tag_id'];
102 //print("column configuration = ".$column_configuration);
104 $nodesconf_exists = false;
105 if ($column_configuration == "")
107 $first_time_configuration = true;
108 $column_configuration = "nodes;default";
109 $nodesconf_exists = true;
112 $slice_conf = explode(";",$column_configuration);
113 for ($i=0; $i<count($slice_conf); $i++ ) {
114 if ($slice_conf[$i] == "nodes")
117 $slice_column_configuration = $slice_conf[$i];
118 $nodesconf_exists = true;
124 $slice_column_configuration = $slice_conf[$i];
129 if ($nodesconf_exists == false)
130 $column_configuration = $column_configuration.";nodes;default";
131 //panos: need to define an "empty" configuration here (for the moment A column
132 //will be added by default the first time
135 if ($slice_column_configuration == "" || $slice_column_configuration == "default")
136 $full_configuration = $default_configuration;
139 $full_configuration = $default_configuration."|".$slice_column_configuration;
141 //print("full configuration = ".$full_configuration);
144 $node_fixed_columns=array('node_type','site_id','boot_state','last_contact','interface_ids','peer_id', 'slice_ids');
146 $fix_columns = array();
148 $fix_columns[]=array('tagname'=>'node_id', 'header'=>'ID', 'type'=>'string', 'title'=>'The ID the node');
149 $fix_columns[]=array('tagname'=>'hostname', 'header'=>'hostname', 'type'=>'string', 'title'=>'The name of the node');
150 $fix_columns[]=array('tagname'=>'peer_id', 'header'=>'AU', 'type'=>'string', 'title'=>'Authority');
151 $fix_columns[]=array('tagname'=>'run_level', 'header'=>'ST', 'type'=>'string', 'title'=>'Status');
152 $fix_columns[]=array('tagname'=>'node_type', 'header'=>'RES', 'type'=>'string', 'title'=>'Reservable');
155 $visibletags = new VisibleTags ($api, 'node');
156 $visibletags->columns();
157 $tag_columns = $visibletags->headers();
159 //columns that are not defined as extra myslice tags
160 $extra_columns = array();
162 $extra_columns[]=array('tagname'=>'sitename', 'header'=>'SN', 'type'=>'string', 'title'=>'Site name', 'fetched'=>true, 'source'=>'myplc');
163 $extra_columns[]=array('tagname'=>'domain', 'header'=>'DN', 'type'=>'string', 'title'=>'Toplevel domain name', 'fetched'=>true, 'source'=>'myplc');
164 $extra_columns[]=array('tagname'=>'ipaddress', 'header'=>'IP', 'type'=>'string', 'title'=>'IP Address', 'fetched'=>true, 'source'=>'myplc');
165 $extra_columns[]=array('tagname'=>'fcdistro', 'header'=>'OS', 'type'=>'string', 'title'=>'Operating system', 'fetched'=>false, 'source'=>'myplc');
166 $extra_columns[]=array('tagname'=>'date_created', 'header'=>'DA', 'source'=>'myplc', 'type'=>'date', 'title'=>'Date added', 'fetched'=>false);
167 $extra_columns[]=array('tagname'=>'arch', 'header'=>'A', 'source'=>'myplc', 'type'=>'string', 'title'=>'Architecture', 'fetched'=>false);
168 if (plc_is_admin()) {
169 $extra_columns[]=array('tagname'=>'deployment', 'header'=>'DL', 'source'=>'myplc', 'type'=>'string', 'title'=>'Deployment', 'fetched'=>false);
173 //NOTE: Uncomment these lines if CoMon provides information for your nodes
175 //$extra_columns[]=array('tagname'=>'bwlimit', 'header'=>'BW', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'Bandwidth limit', 'fetched'=>false);
176 //$extra_columns[]=array('tagname'=>'numcores', 'header'=>'CC', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'Number of CPU Cores', 'fetched'=>false);
177 //$extra_columns[]=array('tagname'=>'cpuspeed', 'header'=>'CR', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'CPU clock rate', 'fetched'=>false);
178 //$extra_columns[]=array('tagname'=>'disksize', 'header'=>'DS', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'Disk size', 'fetched'=>false);
179 //$extra_columns[]=array('tagname'=>'gbfree', 'header'=>'DF', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'Currently available disk space', 'fetched'=>false);
180 //$extra_columns[]=array('tagname'=>'memsize', 'header'=>'MS', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'Memory size', 'fetched'=>false);
181 //$extra_columns[]=array('tagname'=>'numslices', 'header'=>'SM', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'Number of slices in memory', 'fetched'=>false);
182 //$extra_columns[]=array('tagname'=>'uptime', 'header'=>'UT', 'source'=>'comon', 'type'=>'sortAlphaNumericTop', 'title'=>'Continuous uptime until now', 'fetched'=>false);
185 //NOTE: Uncomment these lines if TopHat provides information for your nodes
186 //$extra_columns[]=array('tagname'=>'asn', 'header'=>'AS', 'source'=>'tophat', 'type'=>'string', 'title'=>'AS Number', 'fetched'=>false);
187 //$extra_columns[]=array('tagname'=>'city', 'header'=>'LCY', 'source'=>'tophat', 'type'=>'string', 'title'=>'City', 'fetched'=>false);
188 //$extra_columns[]=array('tagname'=>'region', 'header'=>'LRN', 'source'=>'tophat', 'type'=>'string', 'title'=>'Region', 'fetched'=>false);
189 //$extra_columns[]=array('tagname'=>'country', 'header'=>'LCN', 'source'=>'tophat', 'type'=>'string', 'title'=>'Country', 'fetched'=>false);
190 //$extra_columns[]=array('tagname'=>'continent', 'header'=>'LCT', 'source'=>'tophat', 'type'=>'string', 'title'=>'Continent', 'fetched'=>false);
191 //$extra_columns[]=array('tagname'=>'hopcount', 'header'=>'HC', 'source'=>'tophat', 'type'=>'sortAlphaNumericTop', 'title'=>'Hop count from reference node', 'fetched'=>false);
192 ////$extra_columns[]=array('tagname'=>'rtt', 'header'=>'RTT', 'source'=>'tophat', 'type'=>'sortAlphaNumericTop', 'title'=>'Round trip time from reference node', 'fetched'=>false);
193 ////$extra_columns[]=array('tagname'=>'agents', 'header'=>'MA', 'source'=>'tophat', 'type'=>'sortAlphaNumericTop', 'title'=>'Co-located measurement agents', 'fetched'=>true);
194 ////$extra_columns[]=array('tagname'=>'agents_sonoma', 'header'=>'MAS', 'source'=>'tophat', 'type'=>'sortAlphaNumericTop', 'title'=>'Co-located SONoMA agents', 'fetched'=>true);
195 ////$extra_columns[]=array('tagname'=>'agents_etomic', 'header'=>'MAE', 'source'=>'tophat', 'type'=>'sortAlphaNumericTop', 'title'=>'Co-located ETOMIC agents', 'fetched'=>true);
196 ////$extra_columns[]=array('tagname'=>'agents_tdmi', 'header'=>'MAT', 'source'=>'tophat', 'type'=>'sortAlphaNumericTop', 'title'=>'Co-located TDMI agents', 'fetched'=>true);
197 ////$extra_columns[]=array('tagname'=>'agents_dimes', 'header'=>'MAD', 'source'=>'tophat', 'type'=>'sortAlphaNumericTop', 'title'=>'Co-located DIMES agents', 'fetched'=>true);
200 $ConfigureColumns =new PlekitColumns($full_configuration, $fix_columns, $tag_columns, $extra_columns);
202 $visiblecolumns = $ConfigureColumns->node_tags();
204 $node_columns=array_merge($node_fixed_columns,$visiblecolumns);
206 //$visibletags = new VisibleTags ($api, 'node');
207 //$visiblecolumns = $visibletags->column_names();
209 //print_r($visiblecolumns);
210 //$node_columns=array_merge($node_fixed_columns,$visiblecolumns);
213 // server-side filtering - set pattern in $_GET for filtering on hostname
215 $node_filter['hostname']=$pattern;
216 $title .= " matching " . $pattern;
218 $node_filter['hostname']="*";
221 // server-side selection on peerscope
222 $peerscope=new PeerScope($api,$_GET['peerscope']);
223 $node_filter=array_merge($node_filter,$peerscope->filter());
224 $title .= ' - ' . $peerscope->label();
227 $sites=$api->GetSites(array($site_id));
230 $login_base=$site['login_base'];
231 $title .= t_site($site);
232 $tabs []= tab_site($site);
233 $node_filter['site_id']=array($site_id);
237 $slices=$api->GetSlices(array($slice_id),array('node_ids','name'));
239 $title .= t_slice($slice);
240 $tabs []= tab_slice($slice);
241 $node_filter['node_id'] = $slice['node_ids'];
244 // person_id is set : this is mostly oriented towards people managing several sites
246 // avoid doing a useless call to GetPersons if the person_id is already known though $plc,
247 // as this is mostly done for the 'all my sites nodes' link
248 if ($person_id == plc_my_person_id()) {
249 $person=plc_my_person();
250 $site_ids = plc_my_site_ids();
252 // fetch the person's site_ids
253 $persons = $api->GetPersons(array('person_id'=>$person_id),array('person_id','email','site_ids'));
255 $site_ids=$person['site_ids'];
257 $title .= t_person($person);
258 $node_filter['site_id']=$site_ids;
262 //print("getting nodes ".$node_columns);
263 //print_r($node_columns);
264 $nodes=$api->GetNodes($node_filter,$node_columns);
266 //print("<p> GOT NODES </p>");
269 $ConfigureColumns->fetch_live_data($nodes);
271 $show_columns_message = TRUE;
272 $show_conf = explode(";",$show_configuration);
273 foreach ($show_conf as $ss) {
275 $show_columns_message = FALSE;
280 // build site_ids - interface_ids
282 $interface_ids=array();
283 if ($nodes) foreach ($nodes as $node) {
284 $site_ids []= $node['site_id'];
285 $interface_ids = array_merge ($interface_ids,$node['interface_ids']);
288 // fetch related interfaces
289 $interface_columns=array('ip','node_id','interface_id');
290 $interface_filter=array('is_primary'=>TRUE,'interface_id'=>$interface_ids);
291 $interfaces=$api->GetInterfaces($interface_filter,$interface_columns);
293 $interface_hash=array();
294 foreach ($interfaces as $interface) $interface_hash[$interface['node_id']]=$interface;
296 // fetch related sites
297 $site_columns=array('site_id','login_base');
298 $site_filter=array('site_id'=>$site_ids);
299 $sites=$api->GetSites($site_filter,$site_columns);
302 foreach ($sites as $site) $site_hash[$site['site_id']]=$site;
304 // --------------------
305 drupal_set_title($title);
307 plekit_linetabs($tabs);
310 drupal_set_message ('No node found');
314 $nifty=new PlekitNifty ('','objects-list','big');
316 $headers = array (); $offset=0;
318 $notes [] = "For information about the different columns please see the <b>node table layout</b> tab above or <b>mouse over</b> the column headers";
323 if (plc_is_admin()) {
324 $short="I"; $long="node_id"; $type='int';
325 $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
328 $short="P"; $long="Peer"; $type='string';
329 $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
330 $short="D"; $long="toplevel domain name"; $type='string';
331 $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
332 $headers["Site"]="string";
333 $headers["Hostname"]="string";
334 $short="IP"; $long="IP Address"; $type='sortIPAddress';
335 $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
336 $short="ST"; $long=Node::status_footnote(); $type='string';
337 $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
338 $short="SL"; $long="Number of slivers"; $type='int';
339 $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
341 $headers=array_merge($headers,$visibletags->headers());
342 $notes=array_merge($notes,$visibletags->notes());
343 $short="?"; $long="extra status info"; $type='string';
344 $headers[$short]=array('type'=>$type,'title'=>$long); $notes []= "$short = $long";
347 $info_header = array();
348 $short="?"; $long="extra status info"; $type='string';
349 $info_header[$short]=array('type'=>$type,'title'=>$long, 'label'=>'?', 'header'=>'?', 'visible'=>true);
350 //$notes []= "$short = $long";
351 //$info_header["?"] = "none";
352 $headers = array_merge($ConfigureColumns->get_headers(),$info_header);
354 if ($first_time_configuration)
355 $column_conf_visible = '1';
357 $column_conf_visible = '0';
360 This tab allows you to customize the columns in the node tables,
361 below. Information on the nodes comes from a variety of monitoring
362 sources. If you, as either a user or a provider of monitoring data,
363 would like to see additional columns made available, please send us
364 your request in mail to <a
365 href="mailto:support@myslice.info">support@myslice.info</a>. You can
366 find more information about the MySlice project at <a
367 href="http://trac.myslice.info">http://trac.myslice.info</a>.
369 $toggle_nodes=new PlekitToggle('nodes-layout',
371 array('visible'=>$column_conf_visible,
372 'info_text'=>$layout_help,
373 'info_visible'=>$show_columns_message));
374 $toggle_nodes->start();
375 print("<div id='debug'></div>");
376 print("<input type='hidden' id='slice_id' value='nodes' />");
377 print("<input type='hidden' id='person_id' value='".$plc->person['person_id']."' />");
378 print("<input type='hidden' id='conf_tag_id' value='".$conf_tag_id."' />");
379 print("<input type='hidden' id='show_tag_id' value='".$show_tag_id."' />");
380 print("<input type='hidden' id='show_configuration' value='".$show_configuration."' />");
381 print("<input type='hidden' id='column_configuration' value='".$slice_column_configuration."' />");
382 print("<br><input type='hidden' size=80 id='full_column_configuration' value='".$column_configuration."' />");
383 print("<input type='hidden' id='defaultConf' value='".$default_configuration."'></input>");
387 $ConfigureColumns->configuration_panel_html(true);
388 $ConfigureColumns->javascript_init();
389 $toggle_nodes->end();
391 $table_options = array('notes'=>$notes,
394 'configurable'=>true);
396 # initial sort on hostnames
397 $table=new PlekitTable ("nodes",$headers,3+$offset, $table_options);
400 $peers = new Peers ($api);
402 foreach ($nodes as $node) {
403 //$node_obj = new Node ($node);
405 $hostname=$node['hostname'];
406 $node_id=$node['node_id'];
407 $site_id=$node['site_id'];
408 $site=$site_hash[$site_id];
409 $login_base = $site['login_base'];
410 $ip=$interface_hash[$node['node_id']]['ip'];
411 $interface_id=$interface_hash[$node['node_id']]['interface_id'];
412 $peer_id=$node['peer_id'];
415 $table->cell($node['node_id'], array('display'=>'none'));
416 if (plc_is_admin()) $table->cell(l_node_t($node_id,$node_id));
417 $table->cell (l_node_t($node_id,$hostname));
418 $peers->cell ($table,$peer_id);
420 //prefetch some columns
421 $node['domain'] = topdomain($hostname);
422 $node['sitename'] = l_site_t($site_id,$login_base);
424 $node['ipaddress'] = l_interface_t($interface_id,$ip);
426 $node['ipaddress'] = "n/a";
428 list($label,$class) = Node::status_label_class_($node);
429 $table->cell ($label,array('class'=>$class));
430 $table->cell( ($node['node_type']=='reservable')?reservable_mark():"" );
431 //$table->cell (count($node['slice_ids']));
432 //foreach ($visiblecolumns as $tagname) $table->cell($node[$tagname]);
433 $ConfigureColumns->cells($table, $node);
434 $table->cell (node_status($node));
443 //plekit_linetabs ($tabs,"bottom");
446 include 'plc_footer.php';