<?php        
  if (!isset($SAJAX\_INCLUDED))\; \{$/*  
  	 * GLOBALS AND DEFAULTS
  	 *
  	 */ 
          GLOBALS['sajax_version'] = '0.12';        
          $GLOBALS[\text{'}sajax\_debug\_mode\text{'}]\; =\; 0;$GLOBALS['sajax_export_list'] = array();
          $GLOBALS[\text{'}sajax\_request\_type\text{'}]\; =\; \text{'}GET\text{'};$GLOBALS['sajax_remote_uri'] = '';
          $GLOBALS[\text{'}sajax\_failure\_redirect\text{'}]\; =\; \text{'}\text{'};$/*
  	 * CODE
  	 *
  	 */ 
           
          //
          // Initialize the Sajax library.
          //
          function sajax_init() {
          }
          
          //
          // Helper function to return the script's own URI. 
          // 
          function sajax_get_my_uri() {
                  return _SERVER["REQUEST_URI"];
          }
          $sajax\_remote\_uri\; =\; sajax\_get\_my\_uri();\; //\; //\; Helper\; function\; to\; return\; an\; eval()-usable\; representation\; //\; of\; an\; object\; in\; JavaScript.\; //\; function\; sajax\_get\_js\_repr($value) {
                  $type\; =\; gettype($value);
                  
                  if ($type\; ==\; "boolean")\; \{\; return\; ($value) ? "Boolean(true)" : "Boolean(false)";
                  } 
                  elseif ($type\; ==\; "integer")\; \{\; return\; "parseInt($value)";
                  } 
                  elseif ($type\; ==\; "double")\; \{\; return\; "parseFloat($value)";
                  } 
                  elseif ($type\; ==\; "array"\; ||$type == "object" ) {
                          //
                          // XXX Arrays with non-numeric indices are not
                          // permitted according to ECMAScript, yet everyone
                          // uses them.. We'll use an object.
                          // 
                          $s\; =\; "\{\; ";\; if\; ($type == "object") {
                                  $value\; =\; get\_object\_vars($value);
                          } 
                          foreach ($value\; as$k=>$v)\; \{$esc_key = sajax_esc($k);\; if\; (is\_numeric($k)) 
                                          $s\; .=\; "$k: " . sajax_get_js_repr($v)\; .\; ",\; ";\; else$s .= "\"$esc\_key\backslash ":\; "\; .\; sajax\_get\_js\_repr($v) . ", ";
                          }
                          if (count($value))$s = substr($s,\; 0,\; -2);\; return$s . " }";
                  } 
                  else {
                          $esc\_val\; =\; sajax\_esc($value);
                          $s\; =\; "\text{'}$esc_val'";
                          return $s;\; \}\; \}\; function\; sajax\_handle\_client\_request()\; \{\; global$sajax_export_list;
                  
                  $mode\; =\; "";\; if\; (!\; empty($_GET["rs"])) 
                          $mode\; =\; "get";\; if\; (!empty($_POST["rs"]))
                          $mode\; =\; "post";\; if\; (empty($mode)) 
                          return;
  
                  $target\; =\; "";\; if\; ($mode == "get") {
                          // Bust cache in the head
                          header ("Expires: Mon, 26 Jul 1997 05:00:00 GMT");    // Date in the past
                          header ("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
                          // always modified
                          header ("Cache-Control: no-cache, must-revalidate");  // HTTP/1.1
                          header ("Pragma: no-cache");                          // HTTP/1.0
                          $func\_name\; =$_GET["rs"];
                          if (! empty($\_GET["rsargs"]))$args = $\_GET["rsargs"];\; else$args = array();
                  }
                  else {
                          $func\_name\; =$_POST["rs"];
                          if (! empty($\_POST["rsargs"]))$args = $\_POST["rsargs"];\; else$args = array();
                  }
                  
                  if (! in_array($func\_name,$sajax_export_list))
                          echo "-:$func\_name\; not\; callable";\; else\; \{\; echo\; "+:";$result = call_user_func_array($func\_name,$args);
                          echo "var res = " . trim(sajax_get_js_repr($result))\; .\; ";\; res;";\; \}\; exit;\; \}\; function\; sajax\_get\_common\_js()\; \{\; global$sajax_debug_mode;
                  global $sajax\_request\_type;\; global$sajax_remote_uri;
                  global $sajax\_failure\_redirect;$t = strtoupper($sajax\_request\_type);\; if\; ($t != "" && t != "POST") 
                          return "// Invalid type: $t..\; \backslash n\backslash n";\; ob\_start();\; ?>\; //\; remote\; scripting\; library\; //\; (c)\; copyright\; 2005\; modernmethod,\; inc\; var\; sajax\_debug\_mode\; =$<?php echo sajax_debug_mode ? "true" : "false"; ?>;
                  var sajax_request_type = "<?php echo $t;\; ?>";\; var\; sajax\_target\_id\; =\; "";\; var\; sajax\_failure\_redirect\; =\; "$<?php echo sajax_failure_redirect; ?>";
                  
                  function sajax_debug(text) {
                          if (sajax_debug_mode)
                                  alert(text);
                  }
                  
                   function sajax_init_object() {
                           sajax_debug("sajax_init_object() called..")
                           
                           var A;
                           
                           var msxmlhttp = new Array(
                                  'Msxml2.XMLHTTP.5.0',
                                  'Msxml2.XMLHTTP.4.0',
                                  'Msxml2.XMLHTTP.3.0',
                                  'Msxml2.XMLHTTP',
                                  'Microsoft.XMLHTTP');
                          for (var i = 0; i < msxmlhttp.length; i++) {
                                  try {
                                          A = new ActiveXObject(msxmlhttp[i]);
                                  } catch (e) {
                                          A = null;
                                  }
                          }
                           
                          if(!A && typeof XMLHttpRequest != "undefined")
                                  A = new XMLHttpRequest();
                          if (!A)
                                  sajax_debug("Could not create connection object.");
                          return A;
                  }
                  
                  var sajax_requests = new Array();
                  
                  function sajax_cancel() {
                          for (var i = 0; i < sajax_requests.length; i++) 
                                  sajax_requests[i].abort();
                  }
                  
                  function sajax_do_call(func_name, args) {
                          var i, x, n;
                          var uri;
                          var post_data;
                          var target_id;
                          
                          sajax_debug("in sajax_do_call().." + sajax_request_type + "/" + sajax_target_id);
                          target_id = sajax_target_id;
                          if (typeof(sajax_request_type) == "undefined" || sajax_request_type == "") 
                                  sajax_request_type = "GET";
                          
                          uri = "<?php echo /g,"");
                                          status = txt.charAt(0);
                                          data = txt.substring(2);
  
                                          if (status == "") {
                                                  // let's just assume this is a pre-response bailout and let it slide for now
                                          } else if (status == "-") 
                                                  alert("Error: " + data);
                                          else {
                                                  if (target_id != "") 
                                                          document.getElementById(target_id).innerHTML = eval(data);
                                                  else {
                                                          try {
                                                                  var callback;
                                                                  var extra_data = false;
                                                                  if (typeof args[args.length-1] == "object") {
                                                                          callback = args[args.length-1].callback;
                                                                          extra_data = args[args.length-1].extra_data;
                                                                  } else {
                                                                          callback = args[args.length-1];
                                                                  }
                                                                  callback(eval(data), extra_data);
                                                          } catch (e) {
                                                                  sajax_debug("Caught error " + e + ": Could not eval " + data );
                                                          }
                                                  }
                                          }
                                  }
                          }
                          
                          sajax_debug(func_name + " uri = " + uri + "/post = " + post_data);
                          x.send(post_data);
                          sajax_debug(func_name + " waiting..");
                          delete x;
                          return true;
                  }
                  
                  <?php
                  $html\; =\; ob\_get\_contents();\; ob\_end\_clean();\; return$html;
          }
          
          function sajax_show_common_js() {
                  echo sajax_get_common_js();
          }
          
          // javascript escape a value
          function sajax_esc($val)\; \{$val = str_replace("\\", "\\\\", $val);$val = str_replace("\r", "\\r", $val);$val = str_replace("\n", "\\n", $val);$val = str_replace("'", "\\'", $val);\; return\; str\_replace(\text{'}"\text{'},\; \text{'}\backslash \backslash "\text{'},$val);
          }
  
          function sajax_get_one_stub($func\_name)\; \{\; ob\_start();\; ?>\; //\; wrapper\; for$<?php echo func_name; ?>
                  
                  function x_<?php echo $func\_name;\; ?>()\; \{\; sajax\_do\_call("$<?php echo func_name; ?>",
                                  x_<?php echo $func\_name;\; ?>.arguments);\; \}$<?php
                  html = ob_get_contents();
                  ob_end_clean();
                  return $html;\; \}\; function\; sajax\_show\_one\_stub($func_name) {
                  echo sajax_get_one_stub($func\_name);\; \}\; function\; sajax\_export()\; \{\; global$sajax_export_list;
                  
                  $n\; =\; func\_num\_args();\; for\; ($i = 0; n; $i++)\; \{$sajax_export_list[] = func_get_arg($i);\; \}\; \}$sajax_js_has_been_shown = 0;
          function sajax_get_javascript()
          {
                  global $sajax\_js\_has\_been\_shown;\; global$sajax_export_list;
                  
                  $html\; =\; "";\; if\; (!$sajax_js_has_been_shown) {
                          $html\; .=\; sajax\_get\_common\_js();$sajax_js_has_been_shown = 1;
                  }
                  foreach ($sajax\_export\_list\; as$func) {
                          $html\; .=\; sajax\_get\_one\_stub($func);
                  }
                  return $html;\; \}\; function\; sajax\_show\_javascript()\; \{\; echo\; sajax\_get\_javascript();\; \}$SAJAX_INCLUDED = 1;
  }
  ?>