Trying to fix AccelerationNet#16

dertuxmalwieder · Mar 10, 2019 · cf44b52 · cf44b52
1 parent 154d20e
commit cf44b52
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/main.lisp b/src/main.lisp
@@ -2,6 +2,7 @@
 (defclass mediawiki ()
   ((url :accessor url :initarg :url :initform nil)
    (auth :accessor auth :initarg :auth :initform nil)
+   (proxy :accessor proxy :initarg :proxy :initform nil)
    (cookie-jar :accessor cookie-jar :initarg cookie-jar :initform (make-instance 'drakma:cookie-jar))))
 
 (defvar *mediawiki*)
@@ -36,6 +37,7 @@
           (drakma:http-request
            full-url
            :method method
+           :proxy (if (proxy *mediawiki*) (proxy *mediawiki*) drakma:*default-http-proxy*)
            :basic-authorization basic-authorization
            :force-ssl force-ssl
            :parameters api-params