<?
   // connect via localhost as tomcat service listens only there
   $host = "http://localhost:8080";
//   $host = "http://mathematica.mi.fu-berlin.de:8080";
   $uri = $_SERVER["REQUEST_URI"];
   $url = $host.$uri;

   // only allow urls beginning with $startUri
   $startUri = "/webMathematica/";
   if ( substr($uri, 0, strlen( $startUri )  ) != $startUri ) 
	exit();


   $ch = curl_init();

   // set the url to fetch
   curl_setopt($ch, CURLOPT_URL, $url); 

   // connect via localhost
   curl_setopt($ch, CURLOPT_INTERFACE, "127.0.0.1");

   // set post data
   curl_setopt($ch, CURLOPT_POSTFIELDS, substr(data_encode($_POST), 0, -1) );

   // don't give me the headers just the content
   curl_setopt($ch, CURLOPT_HEADER, 0); 

   // return the value instead of printing the response to browser
   curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); 

   // use a user agent to mimic a browser
   curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.5) Gecko/20041107 Firefox/1.0'); 

    
   $content = curl_exec($ch); 
   $err =  curl_error($ch);

   // remember to always close the session and free all resources 
   curl_close($ch);

   print $content;


function data_encode($data, $keyprefix = "", $keypostfix = "") {
  assert( is_array($data) );
  $vars=null;
  foreach($data as $key=>$value) {
   if(is_array($value)) $vars .= data_encode($value, $keyprefix.$key.$keypostfix.urlencode("["), urlencode("]"));
   else $vars .= $keyprefix.$key.$keypostfix."=".urlencode(stripslashes($value))."&";
  }
  return $vars;
}


?>