source: trunk/phpgwapi/js/tools/xconnector.js @ 2628

(function()
{
        var _THREADS = [];
        var _ie;

        function _config(pObj, pEvent, pHandler)
        {
                if ( typeof pObj == 'object' )
                {
                        if ( pEvent.substring(0, 2) == 'on' )
                                pEvent = pEvent.substring(2, pEvent.length);

                        if ( pObj.addEventListener )
                                pObj.addEventListener(pEvent, pHandler, false);
                        else if ( pObj.attachEvent )
                                pObj.attachEvent('on' + pEvent, pHandler);
                }
        }

        // xhr = XMLHttpRequest
        function _xhr()
        {
                try
                {
                        return new XMLHttpRequest();
                }
                catch ( _e )
                {
                        _ie = true;
                        try
                        {
                                return new ActiveXObject('Msxml2.XMLHTTP');
                        }
                        catch ( _e1 )
                        {
                                try
                                {
                                        return new ActiveXObject('Microsoft.XMLHTTP');
                                }
                                catch ( _e2 )
                                {
                                        return false;
                                }
                        }
                }
        }

        function _HANDLER()
        {
                var _ID = arguments[0];

                if  ( _THREADS[_ID] )
                {
                        if ( _ie && _THREADS[_ID]._XHR.readyState != 4 )
                                return false;

                        switch ( _THREADS[_ID]._XHR.readyState )
                        {
                                case 3 :
                                        if ( _THREADS[_ID]._HANDLER.stream )
                                        {
                                                var _data = _THREADS[_ID]._XHR.responseText.substr(_THREADS[_ID]._index).replace(/^ +| +$/g, '');
                                                //alert(_data);
                                                _THREADS[_ID]._rtlen = _THREADS[_ID]._XHR.responseText.length;

                                                if ( _THREADS[_ID]._index < _THREADS[_ID]._rtlen && _data.length )
                                                        try
                                                        {
                                                                _THREADS[_ID]._HANDLER.stream(_data);
                                                        }
                                                        catch(_e)
                                                        {
                                                                //alert("#stream\n\n" + _e + "\n\n" + _e.description);
                                                        }

                                                if ( _THREADS[ _ID ] )
                                                        _THREADS[ _ID ]._index = _THREADS[ _ID ]._rtlen;
                                        }
                                break;
                                case 4 :
                                        try
                                        {
                                                switch ( _THREADS[ _ID ]._XHR.status )
                                                {
                                                        case 200:
                                                                var _data = ( _THREADS[ _ID ]._MODE == 'XML' ) ?
                                                                        _THREADS[ _ID ]._XHR.responseXML :
                                                                        _THREADS[ _ID ]._XHR.responseText;

                                                                if ( _ie && _THREADS[ _ID ]._HANDLER.stream )
                                                                        _THREADS[ _ID ]._HANDLER.stream(_data);

                                                                var _request = ( _THREADS[ _ID ]._HANDLER.request ) ?
                                                                        _THREADS[ _ID ]._HANDLER.request : false;

                                                                if ( _THREADS[ _ID ]._MODE == 'XML' && _data.documentElement && _data.documentElement.hasAttribute( 'ControllerKey' ) )
                                                                {
                                                                        this._CONTROLLER_KEY = _data.documentElement.getAttribute( 'ControllerKey' );
                                                                        _data.documentElement.removeAttribute( 'ControllerKey' );
                                                                }

                                                                if ( _THREADS[ _ID ]._CACHE )
                                                                        this._CACHED[ _ID ] = _data;

                                                                delete _THREADS[ _ID ];

                                                                if ( _request )
                                                                        try
                                                                        {
                                                                                _request( _data );
                                                                        }
                                                                        catch( e )
                                                                        {
                                                                                //alert("#request\n\n" + _ID + "\n\n" + _e + "\n\n" + _e.description);
                                                                        }

                                                        break; // [case : status 200]
                                                        case 404:
                                                                delete _THREADS[ _ID ];
                                                                alert( 'Page Not Found!' );
                                                        break; // [case : status 404]
                                                        default:
                                                                delete _THREADS[ _ID ];
                                                }
                                        }
                                        catch( e )
                                        {
                                        }
                                break;
                                default :
                        }
                }
        }

        function _execute( )
        {
                var _ID = arguments[0];

                var _ACTION = 'act=' + _ID;
                var _TARGET = this._PATH + this._CONTROLLER + _THREADS[ _ID ]._ACCESS;

                var _SEND = null;

                //if ( _THREADS[_ID]._METHOD == 'GET' )
                //      _TARGET += '?' + _ACTION;

                //_TARGET += _ID;

                _THREADS[ _ID ]._XHR.open( ( ( _THREADS[ _ID ]._POST ) ? 'POST' : 'GET' ), _TARGET, true);

                if ( _THREADS[ _ID ]._POST )
                {
                        _THREADS[ _ID ]._XHR.setRequestHeader( 'Content-Type','application/x-www-form-urlencoded' );
                        _THREADS[ _ID ]._XHR.setRequestHeader( 'Cache-Control',  'no-store, no-cache, must-revalidate' );
                        _THREADS[ _ID ]._XHR.setRequestHeader( 'Cache-Control', 'post-check=0, pre-check=0' );
                        _THREADS[ _ID ]._XHR.setRequestHeader( 'Pragma', 'no-cache' );

                        _SEND = _THREADS[ _ID ]._POST;

                        if ( this._CONTROLLER_KEY && typeof _SEND.documentElement == 'object' )
                                _SEND.documentElement.setAttribute( 'ControllerKey', this._CONTROLLER_KEY );
                }

                _THREADS[ _ID ]._XHR.setRequestHeader( 'BackgroundRequest', Date.parse( new Date ) );

                var _this = this;
                _THREADS[ _ID ]._XHR.onreadystatechange = function( ){ _HANDLER.call( _this, _ID ); };
                _THREADS[ _ID ]._XHR.send( _SEND );
        }

        function usage( )
        {
                return ""+
                        "Description:\n"+
                        "\t<obj>.go({string access, [mixed handler[, XMLObject post]]})\n\n"+
                        "Parameters:\n"+
                        "\taccess : assinatura de acesso à camada de controle.\n"+
                        "\thandler : uma função a ser executada no fim da requisição\n"+
                        "\t\tou um objeto que poderá conter dois índices sendo\n"+
                        "\t\tque ambos deverão ser uma função que será executada\n"+
                        "\t\tconforme o status do objeto xhr, sendo que na posição\n"+
                        "\t\t'stream' será a função a ser executada a cada iteração\n"+
                        "\t\tdo objeto xhr e na posição 'request' será a função\n"+
                        "\t\ta ser executada no fim da requisição.\n"+
                        "\tpost : se especificado deverá ser uma query string ou um\n"+
                        "\tXML bem formatado.\n\n";
        }

        // @PARAM <string> access :
        //              assinatura de acesso à camada de controle
        //
        // @PARAM <object> handler :
        //              OBS : neste caso a conexão assumirá que se trata de uma stream
        //              objeto contendo dois duas funções, sendo,
        //              no índice stream deverá conter uma função que será execultada
        //              a cada mudança de status do objeto xhr
        //
        // @PARAM <function> handler :
        //              funcão a ser executada no retorno da requisição
        //              OBS : neste caso a conexão assumirá que se trata de uma
        //              requisição função que será execultada no final da requisição
        //
        // @PARAM <XMLObject> post:
        //              este parâmetro define se a conexão é via GET ou POST
        //              caso o parâmetro não esteja presente a conexão será execultada
        //              via GET, por outro lado, caso ele exista deverá ser uma query
        //              string válida ou um xml bem formatado
        //
        function go( )
        {
                if ( arguments.length != 1 )
                        return { 'error' : "#0\n\n" + usage( ) };

                var _argv = arguments[ 0 ];

                if ( ( ! _argv.access ) || ( typeof _argv.access != 'string' ) || ( ! _argv.access.length ) )
                        return { 'error' : "#1\n\n" + usage( ) };

                var _ID = _argv.access;

                _THREADS[ _ID ] = {
                        '_ACCESS'       : _argv.access,
                        '_HANDLER'      : { },
                        '_POST'         : ( ( _argv.post ) ? _argv.post : false ),  // [GET | POST]
                        '_MODE'         : 'TEXT', // [XML | TEXT]
                        '_TYPE'         : null, // [4 for request | 3 for stream]
                        '_XHR'          : null, // [4 for request | 3 for stream]
                        '_CACHE'        : ( ( _argv.cache && _argv.cache === true ) ? true : false )
                };

                if ( _argv.mode && ( _argv.mode == 'XML' || _argv.mode == 'TEXT' ) )
                        _THREADS[ _ID ]._MODE = _argv.mode;

                if ( _argv.handler )
                        switch ( typeof _argv.handler )
                        {
                                case 'function' :
                                        _THREADS[ _ID ]._HANDLER = { 'request' : _argv.handler };
                                        break;
                                case 'object' :
                                        for ( var i in _argv.handler )
                                                if ( i != 'stream' && i != 'request' )
                                                {
                                                        delete _THREADS[ _ID ];
                                                        return { 'error' : "#2\n\n" + usage( ) };
                                                }
                                                else if ( i == 'stream' )
                                                {
                                                        _THREADS[ _ID ]._index = 0;
                                                        _THREADS[ _ID ]._rtlen = 0;
                                                }
                                                _THREADS[ _ID ]._HANDLER = _argv.handler;
                                        break;
                        }

                if ( _THREADS[ _ID ]._CACHE && this._CACHED[ _ID ] )
                {
                        if ( _THREADS[ _ID ]._HANDLER.request )
                                _THREADS[ _ID ]._HANDLER.request( this._CACHED[ _ID ] );
                }
                else
                {
                        if ( ! ( _THREADS[ _ID ]._XHR = _xhr( ) ) )
                        {
                                delete _THREADS[_ID];
                                return { 'error' : "#3 it cannot make a xhr object" };
                        }

                        _execute.call( this, _ID );
                }

                return { 'success' : "your thread is running and the response will be manipulated by the handler" };
        }

        function _abort()
        {
                for ( var _ID in _THREADS )
                {
                        // @TODO
                        // try/catch for unknown error of IE.
                        // Check, store and retrieve the try/catch.
                        try
                        {
                                if ( _THREADS[_ID] && _THREADS[_ID]._XHR && _THREADS[_ID]._XHR.abort )
                                        _THREADS[_ID]._XHR.abort();

                                delete _THREADS[_ID];
                        }
                        catch(e){}
                }
        }

        function Connector( )
        {
                var _argv = arguments;

                this._PATH = '';

                this._CONTROLLER  = '';

                this._CACHED = [ ];

                if ( ( _argv.length == 1 ) && ( typeof _argv[0] == 'object' ) )
                {
                        _argv = _argv[ 0 ];

                        if ( _argv.path && ( typeof _argv.path == 'string' ) )
                        {
                                if ( _argv.path.indexOf('/') != 0 )
                                        _argv.path = '/' + _argv.path;

                                if ( _argv.path.lastIndexOf('/') != ( _argv.path.length - 1) )
                                        _argv.path += '/';

                                this._PATH = _argv.path;
                        }

                        if ( _argv.controller )
                                this._CONTROLLER = _argv.controller;

                        this._CONTROLLER_KEY = ( _argv.key ) ?
                                _argv.key : false;
                }
        }

        Connector.prototype.go = go;
        Connector.prototype.abort = _abort;
        Connector.prototype.cache = function( )
        {
                return this;
        };
        window.XConnector = Connector;

        _config( window, 'onbeforeunload', _abort );
}
)();