Added onload, HTTP request errors now flagged

On load now checks for minimum client version
The HTTP request errors are now flagged with "HTTP: " prefix

Removed debug tracking from tests; it will now always get enabled

Author: SReject

src/JSON For mIRC.js

@@ -222,12 +222,17 @@
             try {
                 this._state = 'done';
                 if (this._type === 'http') {
-                    var request = new ActiveXObject(JSONWrapper.HTTP);
-                    request.open(this._http.method, this._http.url, false);
-                    this._http.headers.forEach(function (header) {
-                        request.setRequestHeader(header[0], header[1]);
-                    });
-                    request.send(this._http.data);
+                    try {
+                      var request = new ActiveXObject(JSONWrapper.HTTP);
+                      request.open(this._http.method, this._http.url, false);
+                      this._http.headers.forEach(function (header) {
+                          request.setRequestHeader(header[0], header[1]);
+                      });
+                      request.send(this._http.data);
+                    } catch (e) {
+                        e.message = "HTTP: " + e.message;
+                        throw e;
+                    }
                     this._http.response = request;
                     if (!this._parse) {
                         return this;

src/JSON For mIRC.mrc

@@ -14,6 +14,19 @@ alias JSONUrlGet {
 }
 #SReject/JSONForMirc/CompatMode end
 
+;; On load, check to make sure mIRC/AdiIRC is of an applicable version
+on *:LOAD:{
+  if ($~adiircexe) {
+    if ($version < 2.6) {
+      echo -a [JSON For mIRC] AdiIRC v2.6 or later is required
+    }
+  }
+  elseif ($version < 7.44) {
+    echo -a [JSON For mIRC] mIRC v7.44 or later is required
+    .unload -rs $qt($script)
+  }
+}
+
 
 ;; Cleanup debugging when the debug window closes
 on *:CLOSE:@SReject/JSONForMirc/Log:{

test/JSON for mIRC - Tests.mrc

@@ -2,12 +2,9 @@
 
 ;; /JSONTest
 alias JSONTest {
-  var %x = 1, %fail, %debug = $JSONDebug
+  var %x = 1, %fail
   JSONShutDown
-  if (%debug) {
-    JSONDebug on
-    window -n @SReject/JSONForMirc/log
-  }
+  JSONDebug on
   while ($isalias(jfm_test $+ %x)) {
     tokenize 32 $jfm_test [ $+ [ %x ] ]
     if (!$1) {