PlanetLabConf/get_plc_config.php

   1 <?php
   2 //
   3 // Print a subset of the variables from the PLC configuration store in
   4 // various formats (Perl, Python, PHP, sh)
   5 //
   6 // Mark Huang <mlhuang@cs.princeton.edu>
   7 // Copyright (C) 2006 The Trustees of Princeton University
   8 //
   9 // $Id$
  10 //
  11
  12 // Try the new plc_config.php file first
  13 include 'plc_config.php';
  14 require_once 'plc_api.php';
  15 global $adm;
  16
  17 if (isset($_REQUEST['perl'])) {
  18   $shebang = '#!/usr/bin/perl';
  19   $format = "our $%s=%s;\n";
  20   $end = '';
  21 } elseif (isset($_REQUEST['python'])) {
  22   $shebang = '#!/usr/bin/python';
  23   $format = "%s=%s\n";
  24   $end = '';
  25 } elseif (isset($_REQUEST['php'])) {
  26   $shebang = '<?php';
  27   $format = "define('%s', %s);\n";
  28   $end = '?>';
  29 } else {
  30   $shebang = '#!/bin/sh';
  31   $format = "%s=%s\n";
  32   $end = '';
  33 }
  34
  35 echo $shebang . "\n";
  36 $limit_view = True;
  37
  38 if (isset($_REQUEST['node_id']) ) {
  39     $node_id = intval($_REQUEST['node_id']);
  40 } else {
  41     $node_id = 0;
  42 }
  43
  44
  45 if ($node_id) {
  46     $nodes = $adm->GetNodes($node_id);
  47     if (!empty($nodes)) {
  48         $node = $nodes[0];
  49         $tags = $adm->GetNodeTags(array('node_id' => $node_id,
  50                                         'tagname' => 'infrastructure'));
  51         if (!empty($tags)) {
  52             $tag = $tags[0];
  53             if ( intval($tag['value']) == 1 ) {
  54                 $interfaces = $adm->GetInterfaces(array('ip' => $_SERVER['REMOTE_ADDR']));
  55                 if (!empty($interfaces)) {
  56                     $nodes = $adm->GetNodes(array($interfaces[0]['node_id']));
  57                     if (!empty($nodes)) {
  58                         $node = $nodes[0];
  59                         if ( $node['node_id'] == $node_id )
  60                         {
  61                             # NOTE: only provide complete view if
  62                             #     node exists
  63                             #   node has infrastrucure tag
  64                             #   infrastructure tag value == 1
  65                             # Check that the requestor is the node.
  66                             $limit_view = False;
  67                         }
  68                       }
  69                 }
  70             }
  71         }
  72     }
  73 }
  74
  75 if ( $limit_view ) {
  76     $plc_constants = array('PLC_API_HOST', 'PLC_API_PATH', 'PLC_API_PORT',
  77                'PLC_WWW_HOST', 'PLC_BOOT_HOST', 'PLC_PLANETFLOW_HOST',
  78                'PLC_NAME', 'PLC_SLICE_PREFIX', 'PLC_MONITOR_HOST',
  79                'PLC_MAIL_SUPPORT_ADDRESS',
  80                'PLC_MAIL_MOM_LIST_ADDRESS',
  81                'PLC_MAIL_SLICE_ADDRESS');
  82 } else {
  83     $plc_constants = array();
  84     $const = get_defined_constants(true);
  85     foreach ( $const['user'] as $name => $v ){
  86         if ( preg_match('/^PLC_/', $name) == 1 ){
  87             $plc_constants[] = $name;
  88         }
  89     }
  90 }
  91
  92 foreach ($plc_constants as $name) {
  93     if (defined($name)) {
  94         // Perl, PHP, Python, and sh all support strong single quoting
  95         $value = "'" . str_replace("'", "\\'", constant($name)) . "'";
  96         printf($format, $name, $value);
  97     }
  98 }
  99 printf($format, 'PLC_API_CA_SSL_CRT', "'/usr/boot/cacert.pem'");
 100 printf($format, 'PLC_ROOT_GPG_KEY_PUB', "'/usr/boot/pubring.gpg'");
 101
 102 echo $end . "\n";
 103
 104 ?>