servicepipe.php3 2.13 KB
Newer Older
1 2
<?php
#
3
# Copyright (c) 2005, 2006, 2007 University of Utah and the Flux Group.
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
# 
# {{{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/>.
# 
# }}}
23 24 25 26 27 28
#
include("defs.php3");

#
# Only known and logged in users can watch LEDs
#
29 30 31
$this_user = CheckLoginOrDie();
$uid       = $this_user->uid();
$isadmin   = ISADMIN();
32 33 34 35

#
# Verify page arguments.
#
36 37 38
$reqargs = RequiredPageArguments("node",    PAGEARG_NODE,
				 "service", PAGEARG_STRING,
				 "init",    PAGEARG_STRING);
39

40
if (!$node->AccessCheck($this_user, $TB_NODEACCESS_READINFO)) {
41 42 43 44 45 46 47 48 49 50 51 52 53 54
    USERERROR("Not enough permission.", 1);
}

$port = "";
$initPacket = "";

if ($service == "telemetry") {
    $port = 2531;
    $initPacket = base64_decode($init);
}
else {
    USERERROR("Unknown service: $service.", 1);
}

55
if ($node->NodeStatus() != "up") {
56 57 58 59 60 61 62 63 64
    USERERROR("Node is down.", 1);
}

header("Content-Type: text/plain");
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");
flush();

65
$socket = fsockopen("$node_id", $port);
66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

#
# Clean up when the remote user disconnects
#
function SPEWCLEANUP()
{
    global $socket;

    if (!$socket || !connection_aborted()) {
	exit();
    }
    fclose($socket);
    exit();
}
# ignore_user_abort(1);
register_shutdown_function("SPEWCLEANUP");

if ($initPacket != "") {
     fwrite($socket, $initPacket);
     fflush($socket);
}

do {
    $bits = fread($socket, 512);
    echo "$bits";
    flush();
} while($bits != "");

fclose($socket);

?>