nodelist screen wip, cleanup wizard
smbaker [Sat, 10 Nov 2012 19:44:51 +0000 (11:44 -0800)]
apps/gacksadmin/user_nodelist.php
apps/gacksadmin/vicci.module
apps/gacksadmin/wizard.php

index cca31ae..2c402fa 100644 (file)
@@ -1,50 +1,83 @@
 <?php
-\r
-// Require login\r
-require_once 'plc_login.php';\r
-\r
-// Get session and API handles\r
-require_once 'plc_session.php';\r
-global $plc, $api, $adm;\r
-\r
-// Common functions\r
-require_once 'plc_functions.php';\r
-require_once 'gacks_functions.php';\r
-require_once 'gacksclient.php';\r
-require_once 'linetabs.php';\r
-require_once 'table.php';\r
-require_once 'details.php';\r
-require_once 'toggle.php';\r
-require_once 'form.php';\r
-\r
-// find person roles\r
-$_person= $plc->person;\r
-$_person_id = $plc->person['person_id'];\r
+
+// this must occur before linetabs.php, or linetabs won't work. I have no idea why.
+drupal_add_js("misc/popup.js");
+
+// Require login
+require_once 'plc_login.php';
+
+// Get session and API handles
+require_once 'plc_session.php';
+global $plc, $api, $adm;
+
+// Common functions
+require_once 'plc_functions.php';
+require_once 'plc_peers.php';
+require_once 'gacks_functions.php';
+require_once 'gacksclient.php';
+require_once 'linetabs.php';
+require_once 'table.php';
+require_once 'details.php';
+require_once 'toggle.php';
+require_once 'form.php';
+require_once 'nifty.php';
+
+// find person roles
+$_person= $plc->person;
+$_person_id = $plc->person['person_id'];
 $_roles= $_person['role_ids'];
 
 // Print header
-require_once 'plc_drupal.php';\r
-drupal_set_title('Node Wizard');\r
+require_once 'plc_drupal.php';
+drupal_set_title('Manage Nodes');
 include 'plc_header.php';
 
-$tabs['Show Nodes'] = array('method'=>'POST',
-                           'url'=>l_gacks_nodelist(),\r
+$tabs['Show Nodes'] = array('method'=>'GET',
+                           'url'=>l_gacks_nodelist(),
                            'bubble'=>"Show nodes in your slice");
 
-$tabs['Add Nodes'] = array('method'=>'POST',
-                           'url'=>l_gacks_wizard(),\r
-                           'bubble'=>"Add nodes to your slice");\r
-\r
+$tabs['Add Nodes'] = array('method'=>'GET',
+                           'url'=>l_gacks_wizard(),
+                           'bubble'=>"Add nodes to your slice");
+
 plekit_linetabs($tabs);
 
-print "<br>";
+$nifty=new PlekitNifty ('nodewizard','objects-list','big');
+$nifty->start();
+
+print '<div style="width: 640px; margin-left: auto; margin-right: auto;">';
+
 $account_name = get_account_name($api, $_person_id);
 
 if ($account_name != NULL) {
+    $slices=$api->GetSlices($account_name);
+    if ($slices) {
+        $headNode = get_slice_headnode($api, $account_name);
+        if ($headNode) {
+            print "<br>Head Node (Hadoop/MPI):</br>";
+            print "<textarea name=headnode cols=40 rows=1>";
+            print $headNode;
+            print "</textarea>";
+        }
+
+        $slice = $slices[0];
+        $slice_nodes=$api->GetNodes(array('node_id'=>$slice['node_ids']),array("hostname"));
+        print "<br>Nodes:<br>";
+        print "<textarea name=nodelist cols=40 readonly>";
+        foreach ($slice_nodes as $node) {
+            print $node["hostname"];
+            print "\n";
+        }
+        print "</textarea>";
+    }
 }
 
+print '</div>';
+
+$nifty->end();
+
 include 'plc_footer.php';
-\r
-?>\r
+
+?>
 
 
index 5344c17..ada445d 100644 (file)
@@ -106,7 +106,7 @@ function vicci_block($op = 'list', $delta = 0, $edit = array()) {
             $items []= expanded($bullet_item);
         }
 
-        $bullet_item = href( l_gacks_wizard(), "Manage Slice Nodes");
+        $bullet_item = href( l_gacks_nodelist(), "Manage Slice Nodes");
         $items []= expanded($bullet_item);
 
         $bullet_item = href( l_gacks_user_reservations(), "Reserve resources");
index d6ec71e..a0b43da 100644 (file)
@@ -1,43 +1,52 @@
 <?php
-\r
-// Require login\r
-require_once 'plc_login.php';\r
-\r
-// Get session and API handles\r
-require_once 'plc_session.php';\r
-global $plc, $api, $adm;\r
-\r
-// Common functions\r
-require_once 'plc_functions.php';\r
-require_once 'gacks_functions.php';\r
-require_once 'gacksclient.php';\r
-require_once 'linetabs.php';\r
-require_once 'table.php';\r
-require_once 'details.php';\r
-require_once 'toggle.php';\r
-require_once 'form.php';\r
-\r
-// find person roles\r
-$_person= $plc->person;\r
-$_person_id = $plc->person['person_id'];\r
+
+// this must occur before linetabs.php, or linetabs won't work. I have no idea why.
+drupal_add_js("misc/popup.js");
+
+// Require login
+require_once 'plc_login.php';
+
+// Get session and API handles
+require_once 'plc_session.php';
+global $plc, $api, $adm;
+
+// Common functions
+require_once 'plc_functions.php';
+require_once 'plc_peers.php';
+require_once 'gacks_functions.php';
+require_once 'gacksclient.php';
+require_once 'linetabs.php';
+require_once 'table.php';
+require_once 'details.php';
+require_once 'toggle.php';
+require_once 'form.php';
+require_once 'nifty.php';
+
+// find person roles
+$_person= $plc->person;
+$_person_id = $plc->person['person_id'];
 $_roles= $_person['role_ids'];
 
 // Print header
-require_once 'plc_drupal.php';\r
-drupal_set_title('Node Wizard');\r
+require_once 'plc_drupal.php';
+drupal_set_title('Node Wizard');
 include 'plc_header.php';
 
-$tabs['Show Nodes'] = array('method'=>'POST',
-                           'url'=>l_gacks_nodelist(),\r
+$tabs['Show Nodes'] = array('method'=>'GET',
+                           'url'=>l_gacks_nodelist(),
                            'bubble'=>"Show nodes in your slice");
 
-$tabs['Add Nodes'] = array('method'=>'POST',
-                           'url'=>l_gacks_wizard(),\r
-                           'bubble'=>"Add nodes to your slice");\r
-\r
+$tabs['Add Nodes'] = array('method'=>'GET',
+                           'url'=>l_gacks_wizard(),
+                           'bubble'=>"Add nodes to your slice");
+
 plekit_linetabs($tabs);
 
-print "<br>";
+$nifty=new PlekitNifty ('nodewizard','objects-list','big');
+$nifty->start();
+print '<div style="width: 640px; margin-left: auto; margin-right: auto;">';
+
+//print "<br>";
 $account_name = get_account_name($api, $_person_id);
 
 if ($account_name != NULL) {
@@ -98,14 +107,17 @@ EOF;
 A 'sliver' is an instance of a virtual machine on a Vicci node.
 The term 'sliver' is synonymous with 'VM' in OpenStack, or 'instance' in EC2.
 Currently, each sliver is instantiated on a distinct node, and therefore,
-the total number of VMs is bounded by either the number of nodes\r
+the total number of VMs is bounded by either the number of nodes
 as a given site (currently 70) or overall (currently 350).
 EOF;
     $form->end();
 }
 
+print "</div>";
+$nifty->end();
+
 include 'plc_footer.php';
-\r
-?>\r
+
+?>