Skip to content

GitLab

emulab-devel
emulab-devel
Switch branch/tag
Find file Normal viewHistoryPermalink
quickvm_sup.php 14.2 KB
Newer Older
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
1 2 
<?php
#
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
3 
# Copyright (c) 2000-2014 University of Utah and the Flux Group.
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 
# 
# {{{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/>.
# 
# }}}
#
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 
$APTHOST	= "$WWWHOST";
$APTBASE	= "$TBBASE/apt";

#
# Global flag to disable accounts. We do this on some pages which
# should not display login/account info.
#
$disable_accounts = 0;

#
# So, we could be coming in on the alternate APT address (virtual server)
# which causes cookie problems. I need to look into avoiding this problem
# but for now, just change the global value of the TBAUTHDOMAIN when we do.
# The downside is that users will have to log in twice if they switch back
# and forth.
#
if ($TBMAINSITE && $_SERVER["SERVER_NAME"] == "www.aptlab.net") {
    $TBAUTHDOMAIN = ".aptlab.net";
    $APTHOST      = "www.aptlab.net";
Leigh B Stoller's avatar
Minor fixups for cookie handling and login/logout buttons.  
Leigh B Stoller committed
43 
    $WWWHOST      = "www.aptlab.net";
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
44 45 46 
    $APTBASE      = "https://www.aptlab.net";
}
Leigh B Stoller's avatar
Change styling for error pages to APT styling.  
Leigh B Stoller committed
47 48 49 50 
#
# Redefine this so APT errors are styled properly.
#
$PAGEERROR_HANDLER = function($msg, $status_code = 0) {
Leigh B Stoller's avatar
Add red/green dot mode. Improve error page.  
Leigh B Stoller committed
51 52 53 54 55 
    global $drewheader;

    if (! $drewheader) {
	SPITHEADER();
    }
Leigh B Stoller's avatar
Change styling for error pages to APT styling.  
Leigh B Stoller committed
56 57 58 59 60 61 
    echo $msg;
    echo "<script src='js/lib/require.js' data-main='js/null.js'></script>\n";
    SPITFOOTER();
    die("");
};
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
62 63 
function SPITHEADER($thinheader = 0)
{
Leigh B Stoller's avatar
Google analytics code.  
Leigh B Stoller committed
64 
    global $TBMAINSITE;
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
65 
    global $login_user, $login_status;
Leigh B Stoller's avatar
Add red/green dot mode. Improve error page.  
Leigh B Stoller committed
66 
    global $disable_accounts, $page_title, $drewheader;
Leigh B Stoller's avatar
Add profile editing, deletion, and quick link to instantiate.  
Leigh B Stoller committed
67 68 69 70 
    $title = "AptLab";
    if (isset($page_title)) {
	$title .= " - $page_title";
    }
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
71 
    $height = ($thinheader ? 150 : 250);
Leigh B Stoller's avatar
Add red/green dot mode. Improve error page.  
Leigh B Stoller committed
72 
    $drewheader = 1;
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
73 74 75 76 77 78 79 80 81 

    #
    # Figure out who is logged in, if anyone.
    #
    if (($login_user = CheckLogin($status)) != null) {
	$login_status = $status;
	$login_uid    = $login_user->uid();
    }
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
82 83 
    echo "<html>
      <head>
Leigh B Stoller's avatar
Add profile editing, deletion, and quick link to instantiate.  
Leigh B Stoller committed
84 
        <title>$title</title>
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
85 
        <link rel='stylesheet' href='bootstrap/css/bootstrap.css'>
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
86 
        <link rel='stylesheet' href='quickvm.css'>
Jonathon Duerig's avatar
Better organization of Apt JS client-side code. Checkpoint.  
Jonathon Duerig committed
87 
	<script src='js/common.js'></script>
Leigh B Stoller's avatar
Minor fix.  
Leigh B Stoller committed
88 
        <script src='https://www.emulab.net/emulab_sup.js'></script>
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
89 
      </head>
Jonathon Duerig's avatar
Refactored Apt initialization code into 'main.js' module.  
Jonathon Duerig committed
90 
    <body style='display: none'>\n";
Leigh B Stoller's avatar
Google analytics code.  
Leigh B Stoller committed
91 92 93 94 
    
    if ($TBMAINSITE && file_exists("../google-analytics.php")) {
	readfile("../google-analytics.php");
    }
Leigh B Stoller's avatar
First cut a new page to create new profiles, plus backend scripts  
Leigh B Stoller committed
95
Leigh B Stoller's avatar
Google analytics code.  
Leigh B Stoller committed
96 
    echo "
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
97 
    <!-- 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
98 
    <div id='wrap'>
Leigh B Stoller's avatar
First cut a new page to create new profiles, plus backend scripts  
Leigh B Stoller committed
99 100 101 102 103 104 
         <div class='navbar navbar-static-top' role='navigation'>
           <div class='navbar-inner'>
             <div class='brand'>
                 <img src='aptlogo.png'/>
             </div>
             <ul class='nav navbar-nav navbar-right'>";
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
105 
    if (!$disable_accounts) {
Leigh B Stoller's avatar
Add red/green dot mode. Improve error page.  
Leigh B Stoller committed
106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 
	if ($login_user && ISADMINISTRATOR()) {
	    echo "<li>\n";
	    if (ISADMIN()) {
		$url = CreateURL("toggle", $login_user,
				 "type", "adminon", "value", 0);
		
		echo "<a href='/$url'>
                             <img src='/redball.gif'
                                  style='height: 10px;'
                                  border='0' alt='Admin On'></a>\n";
	    }
	    else {
		$url = CreateURL("toggle", $login_user,
				 "type", "adminon", "value", 1);

		echo "<a href='/$url'>
                              <img src='/greenball.gif'
                                   style='height: 10px;'
                                   border='0' alt='Admin Off'></a>\n";
	    }
	    echo "</li>\n";
	}
Leigh B Stoller's avatar
Fixes to NavBar login/loguout handling.  
Leigh B Stoller committed
128 
	echo "<li id='loginstatus'>".
Leigh B Stoller's avatar
More navbar tweaks.  
Leigh B Stoller committed
129 
	    ($login_user ? "<p>$login_uid logged in</p>" : "") . "</li>\n";
Leigh B Stoller's avatar
Add red/green dot mode. Improve error page.  
Leigh B Stoller committed
130
Leigh B Stoller's avatar
Fixes to NavBar login/loguout handling.  
Leigh B Stoller committed
131 132 133 134 
	if (!NOLOGINS()) {
	    echo "<li id='loginbutton' " .
		($login_user ? "class='hidden'" : "") . ">" .
		"       <a class='btn btn-primary navbar-btn'
Leigh B Stoller's avatar
Minor fixups for cookie handling and login/logout buttons.  
Leigh B Stoller committed
135 
                           id='loginbutton'
Leigh B Stoller's avatar
First cut a new page to create new profiles, plus backend scripts  
Leigh B Stoller committed
136 137 138 139 140 
	                   data-toggle='modal'
                           href='#quickvm_login_modal'
                           data-target='#quickvm_login_modal'>
                        Login</a></li>
                  \n";
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
141 142 
	}
    }
Leigh B Stoller's avatar
First cut a new page to create new profiles, plus backend scripts  
Leigh B Stoller committed
143 144 
    echo "   </ul>
             <ul class='nav navbar-nav navbar-left'>
Leigh B Stoller's avatar
More navbar tweaks.  
Leigh B Stoller committed
145 
                <li><a class='btn btn-quickvm-home navbar-btn'
Leigh B Stoller's avatar
Minor changes after page renames.  
Leigh B Stoller committed
146 
                       href='instantiate.php'>Home</a></li>\n";
Leigh B Stoller's avatar
Fixes to NavBar login/loguout handling.  
Leigh B Stoller committed
147 148 149 150 
    if (!$disable_accounts) {
	echo "  <li id='quickvm_actions_menu' class='dropdown ".
	    (!$login_user ? "hidden" : "") . "'>" .
	         "<a href='#' class='dropdown-toggle' data-toggle='dropdown'>
Leigh B Stoller's avatar
Add profile editing, deletion, and quick link to instantiate.  
Leigh B Stoller committed
151 152 153 
                    Actions <b class='caret'></b></a>
                  <ul class='dropdown-menu'>
                   <li><a href='myprofiles.php'>My Profiles</a></li>
Leigh B Stoller's avatar
Checkpoint.  
Leigh B Stoller committed
154 
                   <li><a href='myexperiments.php'>My Experiments</a></li>
Leigh B Stoller's avatar
Add profile editing, deletion, and quick link to instantiate.  
Leigh B Stoller committed
155 156 
                   <li><a href='manage_profile.php'>Create Profile</a></li>
                   <li class='divider'></li>
Leigh B Stoller's avatar
Checkpoint.  
Leigh B Stoller committed
157 
	           <li><a href='logout.php'>Logout</a></li>
Leigh B Stoller's avatar
Add profile editing, deletion, and quick link to instantiate.  
Leigh B Stoller committed
158 159 
                  </ul>
                </li>\n";
Leigh B Stoller's avatar
First cut a new page to create new profiles, plus backend scripts  
Leigh B Stoller committed
160 161 162 163 164 
    }
    echo "   </ul>
           </div>
         </div>\n";
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
165 
    SpitLoginModal("quickvm_login_modal");
Leigh B Stoller's avatar
First cut a new page to create new profiles, plus backend scripts  
Leigh B Stoller committed
166 167 
    echo " <!-- Page content -->
           <div class='container'>\n";
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
168 169 170 171 172 
}

function SPITFOOTER()
{
    echo "</div>
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
173 174 
      </div>\n";
    echo "
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
175 
      <!--- Footer -->
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
176 177 178 
      <div>
       <div id='footer'>
        <div class='pull-left'>Powered by
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
179 
             <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
180 181 
        <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
182 
      </div>
Leigh B Stoller's avatar
Convert to bootstrap V3.0, remove all UIKIT code.  
Leigh B Stoller committed
183 
      <!-- 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
184 185 186 
     </body></html>\n";
}
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
187 188 
function SPITUSERERROR($msg)
{
Leigh B Stoller's avatar
Add red/green dot mode. Improve error page.  
Leigh B Stoller committed
189 
    PAGEERROR($msg, 0);
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
190 191 
}
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
192 193 194 195 196 197 198 199 200 201 202 203 
#
# 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
204 
function SPITAJAX_ERROR($code, $msg)
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
205 206 
{
    $results = array(
Leigh B Stoller's avatar
Checkpoint.  
Leigh B Stoller committed
207 
	'code'  => code,
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
208 209 210 211 212 
	'value' => $msg
	);
    echo json_encode($results);
}
Leigh B Stoller's avatar
Checkpoint  
Leigh B Stoller committed
213 214 215 216 217 
#
# 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
218 219 220 221 
    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
222 223 
}
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 
#
# Spit out the verify modal. We are not using real password authentication
# like the rest of the Emulab website. Assumed to be inside of a form
# that handles a create button.
#
function SpitVerifyModal($id, $label)
{
    echo "<!-- This is the user verify modal -->
          <div id='$id' class='modal fade'>
            <div class='modal-dialog'>
            <div class='modal-content'>
               <div class='modal-header'>
                <button type='button' class='close' data-dismiss='modal'
                   aria-hidden='true'>&times;</button>
                <h3>Important</h3>
               </div>
               <div class='modal-body'>
                    <p>Check your email for a verification code, and
                       enter it here:</p>
                       <div class='form-group'>
                        <input name='verify' class='form-control'
                               placeholder='Verification code'
                               autofocus type='text' />
                       </div>
                       <div class='form-group'>
                        <button class='btn btn-primary form-control'
                            type='submit' name='create'>
                            $label</button>
                       </div>
               </div>
            </div>
            </div>
         </div>\n";
}

#
# Spit out the login modal. 
#
Robert Ricci's avatar
Cleanup of Apt login dialog  
Robert Ricci committed
262 
function SpitLoginModal($id)
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
263 
{
Robert Ricci's avatar
Cleanup of Apt login dialog  
Robert Ricci committed
264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 
?>
    <!-- This is the login modal -->
    <div id='<?php echo $id ?>' class='modal fade' role='dialog'>
        <div class='modal-dialog'>
        <form id='quickvm_login_form'
              role='form'
              method='post' action='login.php'>
        <input type=hidden name=refer value=1>
        <div id='quickvm_login_form_error'
             class='align-center'></div>
        <div class='modal-content'>
           <div class='modal-header'>
            <button type='button' class='close' data-dismiss='modal'
               aria-hidden='true'>&times;</button>
               <h4 class='modal-title'>Log in to Apt</h4>
           </div>
           <div class='modal-body form-horizontal'>
             <div class='form-group'>
                       <label for='uid' class='col-sm-2 control-label'>Username</label>
                       <div class='col-sm-10'>
                           <input name='uid' class='form-control'
                                  placeholder='Aptlab.net or Emulab.net Username'
                                  autofocus type='text'>
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
287 
                       </div>
Robert Ricci's avatar
Cleanup of Apt login dialog  
Robert Ricci committed
288 289 290 291 292 293 294 
                   </div>
                   <div class='form-group'>
                       <label for='password' class='col-sm-2 control-label'>Password </label>
                       <div class='col-sm-10'>
                           <input name='password' class='form-control'
                                  placeholder='Password'
                                  type='password'>
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
295 
                       </div>
Robert Ricci's avatar
Cleanup of Apt login dialog  
Robert Ricci committed
296 297 298 299 300 
                   </div>
             </div>
             <div class='modal-footer'>
                   <div class='form-group'>
                        <button class='btn btn-success btn-sm'
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
301 302 303 304 
                            id='quickvm_login_modal_button'
                            class='form-control'
                            type='submit' name='login'>
                            Login</button>
Robert Ricci's avatar
Cleanup of Apt login dialog  
Robert Ricci committed
305 306 307 308 309 310 311 312 313 314 
                         or
                         <a class='btn btn-primary btn-sm'
                            href='signup.php'>Sign Up</a> 
                   </div>
             </div>
        </div>
        </form>
        </div>
     </div>
<?php
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
315 316 
}
Leigh B Stoller's avatar
Add profile editing, deletion, and quick link to instantiate.  
Leigh B Stoller committed
317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 
#
# Topology view modal, shared across a few pages.
#
function SpitTopologyViewModal($modal_name, $profile_array)
{
    echo "<!-- This is the topology view modal -->
          <div id='$modal_name' class='modal fade'>
          <div class='modal-dialog'  id='showtopo_dialog'>
            <div class='modal-content'>
               <div class='modal-header'>
                <button type='button' class='close' data-dismiss='modal'
                   aria-hidden='true'>
                   &times;</button>
                <h3>Select a Profile</h3>
               </div>
               <div class='modal-body'>
                 <!-- This topo diagram goes inside this div -->
                 <div class='panel panel-default'
                            id='showtopo_container'>
                  <div class='form-group pull-left'>
                    <ul class='list-group' id='profile_name'
                            name='profile'
                            >\n";
    while (list ($id, $title) = each ($profile_array)) {
	$selected = "";
	if ($profile_value == $id)
	    $selected = "selected";
                      
	echo "          <li class='list-group-item profile-item' $selected
                            value='$id'>$title </li>\n";
    }
    echo "          </ul>
                  </div> 
                  <div class='pull-right'>
                    <span id='showtopo_title'></span>
                    <div class='panel-body'>
                     <div id='showtopo_div'></div>
                     <span class='pull-left' id='showtopo_description'></span>
                    </div>
                   </div>
                 </div>
                 <div id='showtopo_buttons' class='pull-right'>
                     <button id='showtopo_select'
                           class='btn btn-primary btn-sm'
                           type='submit' name='select'>
                              Select Profile</button>
                      <button type='button' class='btn btn-default btn-sm' 
                      data-dismiss='modal' aria-hidden='true'>
                     Cancel</button>
                    </div>
               </div>
            </div>
          </div>
       </div>\n";
}
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
373 374 375 376 377 378 379 380 
#
# 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
381 
{
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
382 383 384 385 
    global $USERNODE;
	
    $file = "/usr/testbed/etc/sshauth.key";
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
386 387 388 
    #
    # 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
389 
    $fp = fopen($file, "r");
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
390 
    if (! $fp) {
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
391 
	TBERROR("Error opening $file", 0);
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
392 393 
	return null;
    }
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
394 
    $key = fread($fp, 128);
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
395 
    fclose($fp);
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
396 397 
    if (!$key) {
	TBERROR("Could not get key from $file", 0);
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
398 399 
	return null;
    }
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
400 401 402 
    $key   = chop($key);
    $stuff = GENHASH();
    $now   = time();
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
403 404
Leigh B Stoller's avatar
First checkin of shellinabox support for APT.  
Leigh B Stoller committed
405 406 407 408 409 410 411 412 413 414 415 416 
    $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
417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 
}

#
# 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 "";
    }
}
Leigh B Stoller's avatar
Checkpoint a slew of changes to the APT code. New signup page,  
Leigh B Stoller committed
444 445 446 447 448 449 450 451 452 453 454 455 456 
#
# Redirect request to https
#
function RedirectSecure()
{
    global $APTHOST;

    if (!isset($_SERVER["SSL_PROTOCOL"])) {
	header("Location: https://$APTHOST". $_SERVER['REQUEST_URI']);
	exit();
    }
}
Leigh B Stoller's avatar
Minor tweaks.  
Leigh B Stoller committed
457 458 459 460 461 462 463 464 465 466 467 
#
# Redirect to the login page()
#
function RedirectLoginPage()
{
    # HTTP_REFERER will not work reliably when redirecting so
    # pass in the URI for this page as an argument
    header("Location: login.php?referrer=".
	   urlencode($_SERVER['REQUEST_URI']));
}
Leigh B Stoller's avatar
First working APT code.  
Leigh B Stoller committed
468 
?>