Skip to content

GitLab

emulab-devel
emulab-devel
Switch branch/tag
Find file Normal viewHistoryPermalink
quickvm_sup.php 4.42 KB
Newer Older
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 
<?php
#
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
# 
# {{{EMULAB-LICENSE
# 
# This file is part of the Emulab network testbed software.
# 
# This file is free software: you can redistribute it and/or modify it
# under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 of the License, or (at
# your option) any later version.
# 
# This file is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public
# License for more details.
# 
# You should have received a copy of the GNU Affero General Public License
# along with this file.  If not, see <http://www.gnu.org/licenses/>.
# 
# }}}
#
function SPITHEADER($thinheader = 0)
{
Leigh B Stoller's avatar
Google analytics code.  
Leigh B Stoller committed
26 27 
    global $TBMAINSITE;
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
28 29 30 31 
    $height = ($thinheader ? 150 : 250);
    
    echo "<html>
      <head>
Leigh B Stoller's avatar
Checkpoint.  
Leigh B Stoller committed
32 
        <title>AptLab</title>
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
33 
        <link rel='stylesheet' href='bootstrap/css/bootstrap.css'>
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
34 35 
        <link rel='stylesheet' href='quickvm.css'>
        <script src='quickvm_sup.js'></script>
Leigh B Stoller's avatar
Include date.format.js library.  
Leigh B Stoller committed
36 
        <script src='date.format.js'></script>
Leigh B Stoller's avatar
Minor fix.  
Leigh B Stoller committed
37 
        <script src='https://www.emulab.net/emulab_sup.js'></script>
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
38 
        <script src='https://code.jquery.com/jquery.js'></script>
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
39 
        <script src='bootstrap/js/bootstrap.js'></script>
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
40 
      </head>
Leigh B Stoller's avatar
Google analytics code.  
Leigh B Stoller committed
41 42 43 44 45 46 47 
    <body>\n";
    
    if ($TBMAINSITE && file_exists("../google-analytics.php")) {
	readfile("../google-analytics.php");
    }
    
    echo "
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
48 
    <!-- Container for body, needed for sticky footer -->
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
49 50 51 52 53 54 55 
    <div id='wrap'>
      <div style='background-color: #ff6600'>
         <img class='align-center' style='width: ${height}px'
               src='aptlogo.png'/>
      </div>
     <!-- Page content -->
     <div class='container'>\n";
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
56 57 58 59 60 61 62 63 

}

function SPITFOOTER()
{
    echo "</div>
      </div>
      <!--- Footer -->
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
64 65 66 
      <div>
       <div id='footer'>
        <div class='pull-left'>Powered by
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
67 
             <img src='emulab-whiteout.png' id='elabpower'></div>
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
68 69 
        <div class='pull-right'>&copy; 2013 The University of Utah</div>
       </div>
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
70 
      </div>
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
71 
      <!-- Placed at the end of the document so the pages load faster -->
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 
     </body></html>\n";
}

#
# Does not return; page exits.
#
function SPITAJAX_RESPONSE($value)
{
    $results = array(
	'code'  => 0,
	'value' => $value
	);
    echo json_encode($results);
}
Leigh B Stoller's avatar
Checkpoint.  
Leigh B Stoller committed
87 
function SPITAJAX_ERROR($code, $msg)
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
88 89 
{
    $results = array(
Leigh B Stoller's avatar
Checkpoint.  
Leigh B Stoller committed
90 
	'code'  => code,
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
91 92 93 94 95 
	'value' => $msg
	);
    echo json_encode($results);
}
Leigh B Stoller's avatar
Checkpoint  
Leigh B Stoller committed
96 97 98 99 100 
#
# Spit out an info tooltip.
#
function SpitToolTip($info)
{
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
101 102 103 104 
    echo "<a href='#' class='btn btn-xs' data-toggle='popover' ".
	"data-content='$info'> ".
        "<span class='glyphicon glyphicon-question-sign'></span> ".
        "</a>\n";
Leigh B Stoller's avatar
Checkpoint  
Leigh B Stoller committed
105 106 
}
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
107 108 109 110 111 112 113 114 
#
# Generate an authentication object to pass to the browser that
# is passed to the web server on boss. This is used to grant
# permission to the user to invoke ssh to a local node using their
# emulab generated (no passphrase) key. This is basically a clone
# of what GateOne does, but that code was a mess. 
#
function SSHAuthObject($uid, $nodeid)
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
115 
{
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
116 117 118 119 
    global $USERNODE;
	
    $file = "/usr/testbed/etc/sshauth.key";
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
120 121 122 
    #
    # We need the secret that is shared with ops.
    #
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
123 
    $fp = fopen($file, "r");
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
124 
    if (! $fp) {
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
125 
	TBERROR("Error opening $file", 0);
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
126 127 
	return null;
    }
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
128 
    $key = fread($fp, 128);
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
129 
    fclose($fp);
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
130 131 
    if (!$key) {
	TBERROR("Could not get key from $file", 0);
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
132 133 
	return null;
    }
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
134 135 136 
    $key   = chop($key);
    $stuff = GENHASH();
    $now   = time();
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
137 138
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
139 140 141 142 143 144 145 146 147 148 149 150 
    $authobj = array('uid'       => $uid,
		     'stuff'     => $stuff,
		     'nodeid'    => $nodeid,
		     'timestamp' => $now,
		     'baseurl'   => "https://${USERNODE}",
		     'signature_method' => 'HMAC-SHA1',
		     'api_version' => '1.0',
		     'signature' => hash_hmac('sha1',
					      $uid . $stuff . $nodeid . $now,
					      $key),
    );
    return json_encode($authobj);
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 
}

#
# This is a little odd; since we are using our local CM to create
# the experiment, we can just ask for the graphic directly.
#
function GetTopoMap($uid, $pid, $eid)
{
    global $TBSUEXEC_PATH;
    $xmlstuff = "";
    
    if ($fp = popen("$TBSUEXEC_PATH nobody nobody webvistopology ".
		    "-x -s $uid $pid $eid", "r")) {

	while (!feof($fp) && connection_status() == 0) {
	    $string = fgets($fp);
	    if ($string) {
		$xmlstuff .= $string;
	    }
	}
	return $xmlstuff;
    }
    else {
	return "";
    }
}

?>