From 6e8710aedaf7485a1a3721531f89ea6baeaf7d6b Mon Sep 17 00:00:00 2001
From: Rene <pacoon@protonmail.com>
Date: Tue, 19 Feb 2019 11:19:35 -0600
Subject: [PATCH 2/2] gnu: Add x11vnc.

---
 gnu/packages/vnc.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm
index 3233d83cb..3223dcd87 100644
--- a/gnu/packages/vnc.scm
+++ b/gnu/packages/vnc.scm
@@ -18,7 +18,13 @@
 
 (define-module (gnu packages vnc)
   #:use-module (gnu packages)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages xorg)
   #:use-module (guix build-system cmake)
+  #:use-module (guix build-system gnu)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module ((guix licenses) #:prefix license:)
@@ -47,3 +53,41 @@
 implement a VNC server.")
     (license license:gpl2+)
     (properties `((upstream-name . "LibVNCServer")))))
+
+(define-public x11vnc
+  (package
+    (name "x11vnc")
+    (version "0.9.16")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/LibVNC/x11vnc/archive/"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "1g9jpl8i2fds5m2gn77f65inh6n718yvxs51wkwwdvi5bxgmnpl8"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         ;; The ./configure script fails with /bin/sh and does not accept
+         ;; CONFIG_SHELL and SHELL parameters, then re-create configure script.
+         (replace 'bootstrap
+           (lambda _
+             (invoke "autoreconf" "-vfi"))))))
+    (native-inputs
+     `(("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("pkg-config" ,pkg-config)
+       ("zlib" ,zlib)))
+    (inputs
+     `(("libvncserver" ,libvncserver)
+       ("libx11" ,libx11)
+       ("libxext" ,libxext)
+       ("libxtst" ,libxtst)
+       ("openssl" ,openssl)))
+    (home-page "http://www.karlrunge.com/x11vnc/index.html")
+    (synopsis "VNC server for real X displays")
+    (description "X11vnc is a VNC (Virtual Network Computing) server, allows one
+to view remotely and interact with real X displays.  For example, a display
+corresponding to a physical monitor, keyboard, and mouse.")
+    (license license:gpl2+)))
-- 
2.20.1