/*

Cross-Browser XMLHttpRequest v1.1
=================================

Emulate Gecko 'XMLHttpRequest()' functionality in IE and Opera. Opera requires
the Sun Java Runtime Environment <http://www.java.com/>.

by Andrew Gregory
http://www.scss.com.au/family/andrew/webdesign/xmlhttprequest/

This work is licensed under the Creative Commons Attribution License. To view a
copy of this license, visit http://creativecommons.org/licenses/by/1.0/ or send
a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California 94305,
USA.

Not Supported in Opera
----------------------
* user/password authentication
* responseXML data member

Not Fully Supported in Opera
----------------------------
* async requests
* abort()
* getAllResponseHeaders(), getAllResponseHeader(header)

*/
// IE support
if (window.ActiveXObject && !window.XMLHttpRequest) {
  window.XMLHttpRequest = function() {
    return new ActiveXObject((navigator.userAgent.toLowerCase().indexOf('msie 5') != -1) ? 'Microsoft.XMLHTTP' : 'Msxml2.XMLHTTP');
  };
}
// Gecko support
/* ;-) */
// Opera support
if (window.opera && !window.XMLHttpRequest) {
  window.XMLHttpRequest = function() {
    this.readyState = 0; // 0=uninitialized,1=loading,2=loaded,3=interactive,4=complete
    this.status = 0; // HTTP status codes
    this.statusText = '';
    this._headers = [];
    this._aborted = false;
    this._async = true;
    this.abort = function() {
      this._aborted = true;
    };
    this.getAllResponseHeaders = function() {
      return this.getAllResponseHeader('*');
    };
    this.getAllResponseHeader = function(header) {
      var ret = '';
      for (var i = 0; i < this._headers.length; i++) {
        if (header == '*' || this._headers[i].h == header) {
          ret += this._headers[i].h + ': ' + this._headers[i].v + '\n';
        }
      }
      return ret;
    };
    this.setRequestHeader = function(header, value) {
      this._headers[this._headers.length] = {h:header, v:value};
    };
    this.open = function(method, url, async, user, password) {
      this.method = method;
      this.url = url;
      this._async = true;
      this._aborted = false;
      if (arguments.length >= 3) {
        this._async = async;
      }
      if (arguments.length > 3) {
        // user/password support requires a custom Authenticator class
        opera.postError('XMLHttpRequest.open() - user/password not supported');
      }
      this._headers = [];
      this.readyState = 1;
      if (this.onreadystatechange) {
        this.onreadystatechange();
      }
    };
    this.send = function(data) {
      if (!navigator.javaEnabled()) {
        alert("XMLHttpRequest.send() - Java must be installed and enabled.");
        return;
      }
      if (this._async) {
        setTimeout(this._sendasync, 0, this, data);
        // this is not really asynchronous and won't execute until the current
        // execution context ends
      } else {
        this._sendsync(data);
      }
    }
    this._sendasync = function(req, data) {
      if (!req._aborted) {
        req._sendsync(data);
      }
    };
    this._sendsync = function(data) {
      this.readyState = 2;
      if (this.onreadystatechange) {
        this.onreadystatechange();
      }
      // open connection
      var url = new java.net.URL(new java.net.URL(window.location.href), this.url);
      var conn = url.openConnection();
      for (var i = 0; i < this._headers.length; i++) {
        conn.setRequestProperty(this._headers[i].h, this._headers[i].v);
      }
      this._headers = [];
      if (this.method == 'POST') {
        // POST data
        conn.setDoOutput(true);
        var wr = new java.io.OutputStreamWriter(conn.getOutputStream());
        wr.write(data);
        wr.flush();
        wr.close();
      }
      // read response headers
      // NOTE: the getHeaderField() methods always return nulls for me :(
      var gotContentEncoding = false;
      var gotContentLength = false;
      var gotContentType = false;
      var gotDate = false;
      var gotExpiration = false;
      var gotLastModified = false;
      for (var i = 0; ; i++) {
        var hdrName = conn.getHeaderFieldKey(i);
        var hdrValue = conn.getHeaderField(i);
        if (hdrName == null && hdrValue == null) {
          break;
        }
        if (hdrName != null) {
          this._headers[this._headers.length] = {h:hdrName, v:hdrValue};
          switch (hdrName.toLowerCase()) {
            case 'content-encoding': gotContentEncoding = true; break;
            case 'content-length'  : gotContentLength   = true; break;
            case 'content-type'    : gotContentType     = true; break;
            case 'date'            : gotDate            = true; break;
            case 'expires'         : gotExpiration      = true; break;
            case 'last-modified'   : gotLastModified    = true; break;
          }
        }
      }
      // try to fill in any missing header information
      var val;
      val = conn.getContentEncoding();
      if (val != null && !gotContentEncoding) this._headers[this._headers.length] = {h:'Content-encoding', v:val};
      val = conn.getContentLength();
      if (val != -1 && !gotContentLength) this._headers[this._headers.length] = {h:'Content-length', v:val};
      val = conn.getContentType();
      if (val != null && !gotContentType) this._headers[this._headers.length] = {h:'Content-type', v:val};
      val = conn.getDate();
      if (val != 0 && !gotDate) this._headers[this._headers.length] = {h:'Date', v:(new Date(val)).toUTCString()};
      val = conn.getExpiration();
      if (val != 0 && !gotExpiration) this._headers[this._headers.length] = {h:'Expires', v:(new Date(val)).toUTCString()};
      val = conn.getLastModified();
      if (val != 0 && !gotLastModified) this._headers[this._headers.length] = {h:'Last-modified', v:(new Date(val)).toUTCString()};
      // read response data
      var reqdata = '';
      var stream = conn.getInputStream();
      if (stream) {
        var reader = new java.io.BufferedReader(new java.io.InputStreamReader(stream));
        var line;
        while ((line = reader.readLine()) != null) {
          if (this.readyState == 2) {
            this.readyState = 3;
            if (this.onreadystatechange) {
              this.onreadystatechange();
            }
          }
          reqdata += line + '\n';
        }
        reader.close();
        this.status = 200;
        this.statusText = 'OK';
        this.responseText = reqdata;
        this.readyState = 4;
        if (this.onreadystatechange) {
          this.onreadystatechange();
        }
        if (this.onload) {
          this.onload();
        }
      } else {
        // error
        this.status = 404;
        this.statusText = 'Not Found';
        this.responseText = '';
        this.readyState = 4;
        if (this.onreadystatechange) {
          this.onreadystatechange();
        }
        if (this.onerror) {
          this.onerror();
        }
      }
    };
  };
}
// ActiveXObject emulation
if (!window.ActiveXObject && window.XMLHttpRequest) {
  window.ActiveXObject = function(type) {
    switch (type.toLowerCase()) {
      case 'microsoft.xmlhttp':
      case 'msxml2.xmlhttp':
        return new XMLHttpRequest();
    }
    return null;
  };
}

function toXml(text, handleComma) {    

    if(handleComma) text = text.replace(/&#44;/gi, "------safe comma-----");
    var i;    
    var xml="";
    for(i=0; i < text.length; i++)
    {
                
        var c = text.charAt(i);
        switch(c)
        {
        case ",":
            xml = xml + ((handleComma) ? "&#xff00;" : ",");
            break;
        case "<":
            xml = xml + "&lt;";
            break;
        case ">":
            xml = xml + "&gt;";
            break;
        case "\"":
            xml = xml + "&quot;";
            break;
        case "'":
            xml = xml + "'";
            break;
        case "&":
            xml = xml +"&amp;";
            break;
        default:
            if( c > 127)
            {
                xml = xml + "&#" + text.charCodeAt(i) + ";"
            }
            else
            {
                xml = xml + c;
            }            
        }        
    }        
    if(handleComma) xml = xml.replace(/------safe comma-----/g, ",");
    return (xml);
}


function ScormRequest(postdata)
{
    var xmlhttp = new XMLHttpRequest();        
    if(xmlhttp)
    {
	    var url;
        url = serverUrl + "/Scorm.ashx?documentID="+escape(documentID)+"&version="+version+"&subSessionID="+escape(subSessionID)+"&ts="+escape(( new Date() ).getTime());
    	
	    try
	    {
	      xmlhttp.open(postdata ? "POST" : "GET", url, false);
	      xmlhttp.send(postdata);	
              if(xmlhttp.status != 200)
	      {	
                if(confirm("Could not save results. You may need to login again. Retry?"))
  	        {		    
	          return ScormRequest(postdata); 
	        }
	      }
        }
        catch(error)
        {
		    if(confirm("Communication Error. Retry?"))
		    {		    
			    return ScormRequest(postdata); 
		    }
		    else
		    {
			    alert("Request to the url "+url+" failed for the following reason: "+error);
		    }
        }
        
        
        var results = xmlhttp.responseText; 
        delete xmlhttp;
        return results;

    }
    else
    {
    alert("http not active");
    }
}

window.cmi = new Object();
window.cmi.core = new Object();
window.cmi.core.score = new Object();
window.cmi.interactions = new Array();
window.cmi.objectives = new Array();
window.cmi.comments_from_lms = new Array();
window.cmi.comments_from_learner = new Array();

function __lmsCommit() {  }
function __lmsGetErrorString() { return ""; }
function __lmsGetDiagnostic() { return ""; }
function __lmsGetError() { return ""; }


function __getJsName(name)
{
    var jsName = "window.";
    var i;
    var lastIndex = 0;
    i = name.indexOf("."); 
    do
    {	        
        var val = name.substr(lastIndex, i - lastIndex);
        if(isNaN(parseInt(val)))
        {
            if(val == "_count")
            {
                val = "length";
            }        
            jsName = jsName+((lastIndex>0) ? "." : "") + val;
        }
        else
        {
            if(!eval(jsName))
            {
                eval(jsName+"= new Array();");
            }
            jsName = jsName+"["+ val + "]";
            if(!eval(jsName))
            {
                eval(jsName+"= new Object();");
            }
        }
        i = i+1;
        lastIndex = i;
        i = name.indexOf(".",i)
    }
    while(i != -1);
       
    var val = name.substr(lastIndex, name.length - lastIndex);
    if(val == "_count")
    {
        val = "length";
    }        
    jsName = jsName + ((lastIndex>0) ? "." : "")+val;
    return jsName;
}


function __lmsSetData(name, value) 
{ 
    var jsName = __getJsName(name);        
    try
    {
        eval(jsName + "=value;");
        return value;
    }
    catch(ex)
    {
        alert("error setting: "+name+" ("+jsName+")\r\n"+ex);
        return value;
    }
}
function __lmsGetData(name) 
{ 	
    var jsName = __getJsName(name);
    try
    {        
        var v = eval(jsName);
        return v;
    }
    catch(ex)
    {
        alert("error getting: "+name+" ("+jsName+")\r\n"+ex);
        return null;
    }
}
function __lmsInitialize(str) { }

function __getObjectXml(name, obj, indent)
{
    var indentStr = "";
    if(!indent)
    {
        indent = 0;
    }    
    var i;
    for(i = 0; i < indent; i++)
    {
        indentStr+="  ";
    }
    
    var xml = indentStr+"<"+name+">\r\n";
    
    
    for(i in obj)    
    {   
        if(!isNaN(parseInt(i)) )
        {
            var itemName = "item";            
            
            xml += __getObjectXml(itemName, obj[i],indent+1);
        }
        else
        {
            var child = obj[i];
            
            var type = typeof(child);
        
            if(type == 'number' || type == 'string')
            {                
                xml+=indentStr+"  <"+i+">"+toXml(obj[i], i == "student_response")+"</"+i+">\r\n";
            }                    
            else if(type == 'function')
            {
            }
            else
            {            
                xml += __getObjectXml(i, obj[i], indent+1);
            }
        }
        
    }
    return xml + indentStr + "</"+name+">\r\n";
}

function __lmsFinish(str) 
{ 	
	sessionData = __getObjectXml("cmi", window.cmi);
	
	ScormRequest(sessionData);
	
	if(window.opener)
	{
	    if(window.opener.refreshStatus)
	    {
	        window.opener.refreshStatus(window.cmi.core.score);
	    }
	}
	window.close();

}
function ScormAPIClass()
{	
	this.LMSGetLastError = __lmsGetError;
	this.LMSGetErrorString = __lmsGetErrorString;
	this.LMSGetDiagnostic = __lmsGetDiagnostic;
	this.LMSSetValue = __lmsSetData;
	this.LMSGetValue = __lmsGetData;
	this.LMSInitialize = __lmsInitialize;
	this.LMSFinish = __lmsFinish;
	this.LMSCommit = __lmsCommit;
}


window.API = new ScormAPIClass();