updates from 80n

Author: James Michael DuPont

init

@@ -1,4 +1,2 @@
-#!/bin/bash
-source profile
+. profile
 cd $zappy/data
-#$gtm

loadDiff

@@ -1,3 +1,3 @@
-. profile
-cd /$zappy/data
+. /xapi/scripts/profile
+cd /xapi/data
 $gtmrun ^loadDiff xapiDiff

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

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) {