EVOLUTION-MANAGER

Edit File: jsrsServer.inc.php

<?php

//
// jsrsServer.php - javascript remote scripting server include
//
// Orginal Author:  Brent Ashley [jsrs@megahuge.com]
// PHP version   :  S�bastien Cramatte [sebastien@webeclaireur.com] 
//		    Pierre Cailleux [cailleux@noos.fr] 
// Date		 :  May 2001 
// 
// see jsrsClient.js for version info
//
//  see license.txt for copyright and license info

function jsrsReturn($payload) {
  global $C;
  if(isset($_POST['C'])) $C = $_POST['C'];
  if(isset($_GET['C'])) $C = $_GET['C'];
  
  Print (
      "<html><meta charset=\"utf-8\" /><head></head><body onload=\"p=document.layers?parentLayer:window.parent;p.jsrsLoaded('" 
    . $C . "');\">jsrsPayload:<br>" 
    . "<form name=\"jsrs_Form\"><textarea name=\"jsrs_Payload\" id=\"jsrs_Payload\">"
    . jsrsEscape($payload) . "</textarea></form></body></html>");
    exit();
}

function jsrsEscape($str){
  //XXX: Parchalo --- preg_replace
  // escape ampersands so special chars aren't interpreted
  
  $tmp = str_replace( "&", "&amp;", $str );
  // escape slashes  with whacks so end tags don't interfere with return html
  return str_replace( "\/" , "\\/",$tmp); 
}

/////////////////////////////
//
// user functions

function jsrsReturnError($str){
  global $C;
  if(isset($_POST['C'])) $C = $_POST['C'];
  if(isset($_GET['C'])) $C = $_GET['C'];
  
  
  // escape quotes
  $cleanStr = preg_replace("\'","\\'",$str);
  //TODO: Cambiar esta mierda
  // !!!! --- Warning -- !!!
  $cleanStr = "jsrsError: " . preg_replace("\"", "\\\"", $cleanStr); 
  print ("<html><head></head><body " 
         . "onload=\"p=document.layers?parentLayer:window.parent;p.jsrsError('" . $C . "','" . urlencode($str) . "');\">"
         . $cleanStr . "</body></html>" );
  exit();
}

function jsrsArrayToString( $a, $delim ){
  // user function to flatten 1-dim array to string for return to client
  $d = "~";
  if (!isset($delim)) $d = $delim;
  return implode($a,$d); 
}

function jsrsBuildFunc($validFuncs) {
  $F = '';
  if(isset($_POST['F'])) {
    $F = $_POST['F'];
    $method = 'post';
  }
  if(isset($_GET['F'])) {
     $F = $_GET['F'];
     $method = 'get';
  }
 
 $func = "";

if ($F != "") {
  $func = $F;
  
      
  // make sure it's in the dispatch list
  if (strpos(strtoupper($validFuncs),strtoupper($func))===false)
     jsrsReturnError($func . " is not a valid function" );
   
   $func .= "(";
   
   switch($method){
      case 'post':
        foreach($_POST['P'] as $index => $value){
          $func .= '"'.substr($value, 1, strlen($value)-2).'",';
        }
        break;
      case 'get':
        foreach($_GET['P'] as $index => $value){
          $func .= '"'.substr($value, 1, strlen($value)-2).'",';
        }
        break;
   }
   if (substr($func,strlen($func)-1,1)==",")  
    $func = substr($func,0,strlen($func)-1);

$func .= ")";
  } 
 
 return $func;
}

function jsrsEvalEscape($thing) {
 $tmp = ereg_replace($thing,"\r\n","\n");
 return $tmp;
}

function jsrsVBArrayToString($a,$delim) {
 // --- not use in PHP see jsrsArrayToString method
 return jsrsArrayToString($a,$delim);
}