<?php
if (!isset($SAJAX_INCLUDED)) {

        /*
         * GLOBALS AND DEFAULTS
         *
         */
        $GLOBALS['sajax_version'] = '0.12';
        $GLOBALS['sajax_debug_mode'] = 0;
        $GLOBALS['sajax_export_list'] = array();
        $GLOBALS['sajax_request_type'] = 'GET';
        $GLOBALS['sajax_remote_uri'] = '';
        $GLOBALS['sajax_failure_redirect'] = '';

        /*
         * CODE
         *
         */

        //
        // Initialize the Sajax library.
        //
        function sajax_init() {
        }

        //
        // Helper function to return the script's own URI.
        //
        function sajax_get_my_uri() {
            if (isset($_SERVER["REQUEST_URI"]))
                return $_SERVER["REQUEST_URI"];
        else
            return $_SERVER['PHP_SELF'];
        }
        $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\": " . sajax_get_js_repr($v) . ", ";
                        }
                        if (count($value))
                                $s = substr($s, 0, -2);
                        return $s . " }";
                }
                else {
                        $esc_val = sajax_esc($value);
                        $s = "'$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 "-:ajax parameters are not valid";
                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 != "GET" && $t != "POST")
                        return "// Invalid type: $t.. \n\n";

                $html = "

                // remote scripting library
                // (c) copyright 2005 modernmethod, inc
                var sajax_debug_mode = " . ($sajax_debug_mode ? "true" : "false") . ";
                var sajax_request_type = \"" . $t . "\";
                var sajax_target_id = \"\";
                var sajax_failure_redirect = \"" . $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;

                        if (window.XMLHttpRequest) {
                                A = new XMLHttpRequest();
                        }
                        else {
                             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 = \"" . sajax_url_encode($sajax_remote_uri) . "\";
                        // NM
                        if (-1 != uri.indexOf(\"?\"))
                                uri = uri.substr(0, uri.indexOf(\"?\"));
                        // NM
                        if (sajax_request_type == \"GET\") {

                                if (uri.indexOf(\"?\") == -1)
                                        uri += \"?rs=\" + escape(func_name);
                                else
                                        uri += \"&rs=\" + escape(func_name);
                                uri += \"&rst=\" + escape(sajax_target_id);
                                uri += \"&rsrnd=\" + new Date().getTime();

                                for (i = 0; i < args.length-1; i++)
                                        uri += \"&rsargs[]=\" + escape(args[i]);

                                post_data = null;
                        }
                        else if (sajax_request_type == \"POST\") {
                                post_data = \"rs=\" + escape(func_name);
                                post_data += \"&rst=\" + escape(sajax_target_id);
                                post_data += \"&rsrnd=\" + new Date().getTime();

                                for (i = 0; i < args.length-1; i++)
                                        post_data = post_data + \"&rsargs[]=\" + (document.inputEncoding == 'UTF-8' ? encodeURIComponent(args[i]) : escape(args[i]));
                        }
                        else {
                                alert(\"Illegal request type: \" + sajax_request_type);
                        }

                        x = sajax_init_object();
                        if (x == null) {
                                if (sajax_failure_redirect != \"\") {
                                        location.href = sajax_failure_redirect;
                                        return false;
                                } else {
                                        sajax_debug(\"NULL sajax object for user agent:\\n\" + navigator.userAgent);
                                        return false;
                                }
                        } else {
                                x.open(sajax_request_type, uri, true);
                                // window.open(uri);

                                sajax_requests[sajax_requests.length] = x;

                                if (sajax_request_type == \"POST\") {
                                        x.setRequestHeader(\"Method\", \"POST \" + uri + \" HTTP/1.1\");
                                        x.setRequestHeader(\"Content-Type\", \"application/x-www-form-urlencoded\");
                                }
                                //charset magia, acontece aqui
                                //x.setCharacterEncoding( document.inputEncoding );
                                x.onreadystatechange = function() {
                                        if (x.readyState != 4)
                                                return;

                                        sajax_debug(\"received \" + x.responseText);

                                        var status;
                                        var data;
                                        var txt = x.responseText.replace(/^\s*|\s*$/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 );

                                                                if (document.getElementById(\"id_fatal_error\") && data.lastIndexOf('Fatal error') > -1)
                                                                {
                                                                    sc_ret_error = \"<table width=20%><tr><td>\" + data + \"</td></tr></table>\";
                                                                    document.getElementById(\"id_fatal_error\").style.display = \"\";
                                                                    document.getElementById(\"id_fatal_error\").innerHTML = sc_ret_error;
                                                                }

                                                        }
                                                }
                                        }
                                }
                        }

                        sajax_debug(func_name + \" uri = \" + uri + \"/post = \" + post_data);
                        x.send(post_data);
                        sajax_debug(func_name + \" waiting..\");
                        delete x;
                        return true;
                }

                ";
                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('"', '\\"', $val);
        }

        function sajax_get_one_stub($func_name) {
                $html = "

                // wrapper for " . $func_name . "

                function x_" . $func_name . "() {
                        sajax_do_call(\"" . $func_name . "\",
                                x_" . $func_name . ".arguments);
                }

                ";
                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; $i < $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();
        }

		function sajax_url_encode($string) {
				$entities = array('%21', '%2A', '%27', '%28', '%29', '%3B', '%3A', '%40', '%26', '%3D', '%2B', '%24', '%2C', '%2F', '%3F', '%25', '%23', '%5B', '%5D');
				$replacements = array('!', '*', "'", "(", ")", ";", ":", "@", "&", "=", "+", "$", ",", "/", "?", "%", "#", "[", "]");

				return str_replace($entities, $replacements, urlencode($string));
		}


        $SAJAX_INCLUDED = 1;
}
?>
