allow for some specially tagged machines to get all plc config values.

diff --git a/PlanetLabConf/get_plc_config.php b/PlanetLabConf/get_plc_config.php
index 6fd4d4c..645bfe8 100755 (executable)
--- a/PlanetLabConf/get_plc_config.php
+++ b/PlanetLabConf/get_plc_config.php
@@ -11,6 +11,8 @@
 
 // Try the new plc_config.php file first
 include 'plc_config.php';
+require_once 'plc_api.php';
+global $adm;
 
 if (isset($_REQUEST['perl'])) {
   $shebang = '#!/usr/bin/perl';
@@ -31,21 +33,69 @@ if (isset($_REQUEST['perl'])) {
 }
 
 echo $shebang . "\n";
+$limit_view = True;
 
-foreach (array('PLC_API_HOST', 'PLC_API_PATH', 'PLC_API_PORT',
-              'PLC_WWW_HOST', 'PLC_BOOT_HOST', 'PLC_PLANETFLOW_HOST',
-              'PLC_NAME', 'PLC_SLICE_PREFIX', 'PLC_MONITOR_HOST',
-              'PLC_MAIL_SUPPORT_ADDRESS',
-              'PLC_MAIL_MOM_LIST_ADDRESS',
-              'PLC_MAIL_SLICE_ADDRESS')
-        as $name) {
-  if (defined($name)) {
-    // Perl, PHP, Python, and sh all support strong single quoting
-    $value = "'" . str_replace("'", "\\'", constant($name)) . "'";
-    printf($format, $name, $value);
-  }
+if (isset($_REQUEST['node_id']) ) {
+       $node_id = intval($_REQUEST['node_id']);
+} else {
+       $node_id = 0;
+}
+
+
+if ($node_id) {
+       $nodes = $adm->GetNodes($node_id);
+    if (!empty($nodes)) {
+        $node = $nodes[0];
+        $tags = $adm->GetNodeTags(array('node_id' => $node_id,
+                                                                               'tagname' => 'infrastructure'));
+        if (!empty($tags)) {
+            $tag = $tags[0];
+            if ( intval($tag['value']) == 1 ) {
+                               $interfaces = $adm->GetInterfaces(array('ip' => $_SERVER['REMOTE_ADDR']));
+                               if (!empty($interfaces)) {
+                                       $nodes = $adm->GetNodes(array($interfaces[0]['node_id']));
+                                       if (!empty($nodes)) {
+                                               $node = $nodes[0];
+                                               if ( $node['node_id'] == $node_id )
+                                               {
+                                                       # NOTE: only provide complete view if 
+                                                       #     node exists
+                                                       #   node has infrastrucure tag
+                                                       #   infrastructure tag value == 1
+                                                       # Check that the requestor is the node.
+                                       $limit_view = False;
+                                               }
+                                       }
+                               }
+            }
+        }
+    }
 }
 
+if ( $limit_view ) {
+    $plc_constants = array('PLC_API_HOST', 'PLC_API_PATH', 'PLC_API_PORT',
+               'PLC_WWW_HOST', 'PLC_BOOT_HOST', 'PLC_PLANETFLOW_HOST',
+               'PLC_NAME', 'PLC_SLICE_PREFIX', 'PLC_MONITOR_HOST',
+               'PLC_MAIL_SUPPORT_ADDRESS',
+               'PLC_MAIL_MOM_LIST_ADDRESS',
+               'PLC_MAIL_SLICE_ADDRESS');
+} else {
+       $plc_constants = array();
+       $const = get_defined_constants(true);
+       foreach ( $const['user'] as $name => $v ){
+           if ( preg_match('/^PLC_/', $name) == 1 ){
+                       $plc_constants[] = $name;
+               }               
+       }
+}
+
+foreach ($plc_constants as $name) {
+       if (defined($name)) {
+               // Perl, PHP, Python, and sh all support strong single quoting
+               $value = "'" . str_replace("'", "\\'", constant($name)) . "'";
+               printf($format, $name, $value);
+       }
+}
 printf($format, 'PLC_API_CA_SSL_CRT', "'/usr/boot/cacert.pem'");
 printf($format, 'PLC_ROOT_GPG_KEY_PUB', "'/usr/boot/pubring.gpg'");