Minor debugging.

protogeni/scripts/quickvm.in

@@ -475,7 +475,9 @@ my $slice_hrn  = "${PGENIDOMAIN}.${slice_id}";
 
 print STDERR "\n";
 print STDERR "$user_urn\n";
-print STDERR "$slice_urn\n\n\n";
+print STDERR "$slice_urn\n";
+print STDERR $ENV{"SERVER_NAME"} . "\n" if (exists($ENV{"SERVER_NAME"}));
+print STDERR "\n";
 print STDERR "$rspecstr\n";
 
 #

www/aptui/instance_defs.php

@@ -159,6 +159,9 @@ class Instance
 	if (isset($_SERVER['REMOTE_ADDR'])) { 
 	    putenv("REMOTE_ADDR=" . $_SERVER['REMOTE_ADDR']);
 	}
+	if (isset($_SERVER['SERVER_NAME'])) { 
+	    putenv("SERVER_NAME=" . $_SERVER['SERVER_NAME']);
+	}
 	$retval = SUEXEC($uid, $pid,
 			 "webquickvm $options -u $uuid $xmlname",
 			 SUEXEC_ACTION_CONTINUE);