From 2ab44b9e3b8c90dc59ad1e50ae71fa5ef0e553a5 Mon Sep 17 00:00:00 2001
From: James Michael DuPont <JamesMikeDuPont@googlemail.com>
Date: Fri, 24 Feb 2012 09:58:22 +0100
Subject: [PATCH] updates from 80n

---
 init           | 4 +---
 loadDiff       | 4 ++--
 profile        | 7 +++----
 serverLink.cgi | 8 ++++----
 4 files changed, 10 insertions(+), 13 deletions(-)

diff --git a/init b/init
index 9a49d39..49a10ae 100755
--- a/init
+++ b/init
@@ -1,4 +1,2 @@
-#!/bin/bash
-source profile
+. profile
 cd $zappy/data
-#$gtm
diff --git a/loadDiff b/loadDiff
index 861efc4..5977a0b 100755
--- a/loadDiff
+++ b/loadDiff
@@ -1,3 +1,3 @@
-. profile
-cd /$zappy/data
+. /xapi/scripts/profile
+cd /xapi/data
 $gtmrun ^loadDiff xapiDiff
diff --git a/profile b/profile
index c26618a..863f8e4 100755
--- a/profile
+++ b/profile
@@ -1,9 +1,8 @@
-zappy='/home/mdupont/experiments/fosm/pine02' ; export zappy
-gtm_dist="/usr/lib/fis-gtm/V5.4-002B_x86"; export gtm_dist
+zappy='/pine01' ; export zappy
+gtm_dist="$zappy/gtm"; export gtm_dist
 gtmx="$zappy/gtmx"; export gtmx
 gtmgbldir="$zappy/data/xapi_small.gld"; export gtmgbldir
-#gtmroutines="$zappy/scripts/o($zappy/scripts $zappy/serenji $gtmx $gtm_dist)"; export gtmroutines
-gtmroutines=". $zappy/scripts/ $gtmx $gtm_dist"; export gtmroutines
+gtmroutines="$zappy/scripts/o($zappy/scripts $zappy/serenji $gtmx $gtm_dist)"; export gtmroutines
 gtm="$gtmx/gtmrun ^direct gtm"; export gtm
 gtmrun="$gtmx/gtmrun" ; export gtmrun
 mupip="$gtm_dist/mupip"; export mupip
diff --git a/serverLink.cgi b/serverLink.cgi
index 0f394fa..15d6235 100755
--- a/serverLink.cgi
+++ b/serverLink.cgi
@@ -71,10 +71,10 @@ if ($ENV{'REQUEST_METHOD'} eq 'POST') {
 	read(STDIN,$postData,$ENV{'CONTENT_LENGTH'});
 	$ENV{'POST_DATA'}=$postData;
 }
-#if ($ENV{'REQUEST_METHOD'} eq 'PUT') {
-#        read(STDIN,$payload,$ENV{'CONTENT_LENGTH'});
-#        $ENV{'PAYLOAD'}=$payload;
-#}
+if ($ENV{'REQUEST_METHOD'} eq 'PUT') {
+        read(STDIN,$payload,$ENV{'CONTENT_LENGTH'});
+        $ENV{'PAYLOAD'}=$payload;
+}
 
 # Walk ENV hash and print
 foreach $key (keys %ENV) {