planetlab/nodes/interface.php

   1 <?php
   2
   3 // $Id$
   4
   5 // Require login
   6 require_once 'plc_login.php';
   7
   8 // Get session and API handles
   9 require_once 'plc_session.php';
  10 global $plc, $api;
  11
  12 // Common functions
  13 require_once 'plc_functions.php';
  14 require_once 'linetabs.php';
  15 require_once 'details.php';
  16 require_once 'table.php';
  17 require_once 'toggle.php';
  18
  19 require_once 'plc_drupal.php';
  20 include 'plc_header.php';
  21
  22 // purpose : display, update or add an interface
  23
  24 // interface:
  25 // updating : _GET['id'] :
  26 //      if id is set: display the interface, allows to update/add a new if the user has privileges
  27 // adding: _GET['node_id']:
  28 //      otherwise, node_id is needed and the form only allows to add
  29
  30 if ( isset ($_GET['id'])) {
  31   $mode='update';
  32   $interface_id=intval($_GET['id']);
  33   $interfaces=$api->GetInterfaces(array('interface_id'=>$interface_id));
  34   $interface=$interfaces[0];
  35   $node_id=$interface['node_id'];
  36   $title=('Updating interface ' . $interface['ip']);
  37  } else if (isset ($_GET['node_id'])) {
  38   $mode='add';
  39   $interface=array();
  40   $node_id=$_GET['node_id'];
  41   $title=('Adding interface');
  42  }
  43 // check
  44 if ( ! $node_id) {
  45   drupal_set_error('Malformed URL in interface.php, need id or node_id');
  46   plc_redirect(l_nodes());
  47   return;
  48  }
  49
  50 $tabs=array();
  51 $tabs[] = array('label'=>'Back to node', 'url'=>l_node($node_id),
  52                 'values' => array('show_details'=>False,'show_interfaces'=>True),
  53                 'bubble'=>'Cancel pending changes');
  54 plekit_linetabs($tabs);
  55
  56 $fields=array( 'method', 'type', 'ip', 'gateway', 'network', 'broadcast', 'netmask',
  57                'dns1', 'dns2', 'hostname', 'mac', 'bwlimit', 'node_id' );
  58
  59 //////////////////////////////
  60 $nodes= $api->GetNodes( array( intval($node_id) ), array( 'node_id', 'hostname', 'site_id' ) );
  61 $node= $nodes[0];
  62 $site_id=$node['site_id'];
  63
  64 $can_update= plc_is_admin() || ( plc_in_site ($site_id) && ( plc_is_pi() || plc_is_tech()));
  65
  66 drupal_set_title($title . " on " . $node['hostname']);
  67
  68 // include javacsript helpers
  69 require_once 'prototype.php';
  70 drupal_set_html_head ('
  71 <script type="text/javascript" src="/planetlab/nodes/interface.js"></script>
  72 ');
  73
  74 $toggle = new PlekitToggle ('interface',"Details",
  75                             array('bubble'=>'Display and modify details for that interface',
  76                                   'visible'=>get_arg('show_details',true)));
  77 $toggle->start();
  78
  79 $details=new PlekitDetails($can_update);
  80
  81 // xxx hardwire network type for now
  82 $form_variables = array('node_id'=>$node_id,'type'=>"ipv4");
  83 if ($mode == "update") $form_variables['interface_id']=$interface_id;
  84 $form=$details->form_start(l_actions(),$form_variables);
  85
  86 $details->start();
  87
  88 $method_select = $form->select_html ("method",
  89                                      interface_method_selectors($api,$interface['method'],false),
  90                                      array('id'=>'method','onChange'=>'updateMethodFields()'));
  91 $details->th_td("Method",$method_select,"method",array('input_type'=>'select','value'=>$interface['method']));
  92
  93 // dont display the 'type' selector as it contains only ipv4
  94 //>>> GetNetworkTypes()
  95 //[u'ipv4']
  96
  97 $details->th_td("IP",$interface['ip'],"ip",array('width'=>15,
  98                                                  'onKeyup'=>'networkHelper()',
  99                                                  'onChange'=>'networkHelper()'));
 100 $details->th_td("Netmask",$interface['netmask'],"netmask",array('width'=>15,
 101                                                                 'onKeyup'=>'networkHelper()',
 102                                                                 'onChange'=>'networkHelper()'));
 103 $details->th_td("Network",$interface['network'],"network",array('width'=>15));
 104 $details->th_td("Broadcast",$interface['broadcast'],"broadcast",array('width'=>15));
 105 $details->th_td("Gateway",$interface['gateway'],"gateway",array('width'=>15,
 106                                                                 'onChange'=>'subnetChecker("gateway",false)'));
 107 $details->th_td("DNS 1",$interface['dns1'],"dns1",array('width'=>15,
 108                                                                 'onChange'=>'subnetChecker("dns1",false)'));
 109 $details->th_td("DNS 2",$interface['dns2'],"dns2",array('width'=>15,
 110                                                                 'onChange'=>'subnetChecker("dns2",true)'));
 111 $details->space();
 112 $details->th_td("BW limit (bps)",$interface['bwlimit'],"bwlimit",array('width'=>11));
 113 $details->th_td("Hostname",$interface['hostname'],"hostname");
 114 # xxx should the user be allowed to change this ?
 115 $mac=$interface['mac'];
 116 if ($mac) $details->th_td("MAC address",$mac);
 117
 118 // the buttons
 119 $update_button = $form->submit_html ("update-interface","Update",
 120                                      array('onSubmit'=>'interfaceSubmit()'));
 121 $add_button = $form->submit_html ("add-interface","Add as new",
 122                                   array('onSubmit'=>'interfaceSubmit()'));
 123 switch ($mode) {
 124  case 'add':
 125    $details->tr($add_button,"right");
 126    break;
 127  case 'update':
 128    $details->tr($update_button . "&nbsp" . $add_button,"right");
 129    break;
 130  }
 131
 132 $details->end();
 133 $form->end();
 134 $toggle->end();
 135
 136 // no tags if the interface has not been created yet
 137 if ($mode == 'add') return;
 138
 139
 140 //////////////////////////////////////// tags
 141 $toggle=new PlekitToggle ('tags','Tags',
 142                           array('visible'=>get_arg('show_tags',false)));
 143 $toggle->start();
 144
 145 $form = new PlekitForm (l_actions(),array('interface_id'=>$interface_id));
 146 $form->start();
 147
 148 $tags=$api->GetInterfaceTags (array('interface_id'=>$interface_id));
 149 function get_tagname ($tag) { return $tag['tagname'];}
 150 $tagnames = array_map ("get_tagname",$tags);
 151
 152
 153 $headers=array("Name"=>"string",
 154                "Value"=>"string",
 155                );
 156 if ($can_update) $headers[plc_delete_icon()]="none";
 157
 158 $table_options=array("notes_area"=>false,"pagesize_area"=>false,"search_width"=>10);
 159 $table=new PlekitTable("interface_tags",$headers,0,$table_options);
 160 $table->start();
 161 if ($tags) foreach ($tags as $tag) {
 162   $table->row_start();
 163   $table->cell(l_tag_obj($tag));
 164   $table->cell($tag['value']);
 165   // the remove checkbox
 166   if ($can_update) $table->cell ($form->checkbox_html('interface_tag_ids[]',$tag['interface_tag_id']));
 167   $table->row_end();
 168 }
 169
 170 if ($can_update) {
 171   $table->tfoot_start();
 172
 173   // remove tag
 174   $table->row_start();
 175   $table->cell($form->submit_html("delete-interface-tags","Remove Tags"),
 176                // use the whole columns and right adjust
 177                array('hfill'=>true,'align'=>'right'));
 178   $table->row_end();
 179
 180   // set tag area
 181   $table->row_start();
 182   // get list of tag names in the interface/* category
 183   $all_tags= $api->GetTagTypes( array ("category"=>"interface*"), array("tagname","tag_type_id"));
 184   // xxx cannot use onchange=submit() - would need to somehow pass action name
 185   function tag_selector ($tag) { return array("display"=>$tag['tagname'],"value"=>$tag['tag_type_id']); }
 186   $selector=array_map("tag_selector",$all_tags);
 187   $table->cell($form->select_html("tag_type_id",$selector,array('label'=>"Choose")));
 188   $table->cell($form->text_html("value","",array('width'=>8)));
 189   //cell-xxx
 190   $table->cell($form->submit_html("set-tag-on-interface","Set Tag"),2,"left");
 191   $table->row_end();
 192  }
 193
 194 $table->end();
 195 $form->end();
 196 $toggle->end();
 197
 198 //plekit_linetabs ($tabs,"bottom");
 199
 200 // Print footer
 201 include 'plc_footer.php';
 202
 203 ?>