(define-module (glicid packages networking)
               #:use-module ((gnu packages networking) #:prefix gnu:)
               #:use-module (guix build-system gnu)
               #:use-module (guix download)
               #:use-module ((guix licenses) #:prefix license:)
               #:use-module (guix packages))

(define-public libecap
               (package
                 (name "libecap")
                 (version "1.0.0")
                 (source (origin
                           (method url-fetch)
                           (uri (string-append "https://www.e-cap.org/archive/libecap-" version ".tar.gz"))
                           (sha256 (base32 "1gn44230z3n5vbwf1lb8ninjmhngc96criy6vc1qj8adw19bpiv4"))))
                 (build-system gnu-build-system)
                 (synopsis
                   "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
                 (description
                   "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
                 (home-page "https://www.e-cap.org/")
                 (license license:gpl3+)))

(define-public squid
               (package
                 (inherit gnu:squid)
                 (name "squid")
                 (version "5.9")
                 (source (origin
                           (method url-fetch)
                           (uri (string-append "http://www.squid-cache.org/Versions/v5/squid-" version ".tar.xz"))
                           (sha256 (base32 "1d84pd55q7k8xab978x9420j0jqm9ybyzdlimx378xd2gl0c5r9z"))))
                 (inputs `(("libecap" ,libecap)
                           ,@(package-inputs gnu:squid)))
                 (arguments
                   '(#:configure-flags (list "--disable-arch-native"
                                             "--enable-icmp"
                                             "--enable-delay-pools"
                                             "--enable-ecap"
                                             "--enable-follow-x-forwarded-for"
                                             "--enable-auth"
                                             "--enable-auth-basic"
                                             "--enable-auth-negotiate"
                                             "--enable-auth-ntlm"
                                             "--enable-log-daemon-helpers")
                     #:phases (modify-phases %standard-phases
                                             (add-before 'build 'fix-true-path
                                                         (lambda* (#:key inputs #:allow-other-keys)
                                                                  (substitute* "test-suite/testheaders.sh"
                                                                               (("/bin/true")
                                                                                (search-input-file inputs "/bin/true"))))))))))
(define-public squid-6
               (package
                 (inherit gnu:squid)
                 (name "squid")
                 (version "6.0.2")
                 (source (origin
                           (method url-fetch)
                           (uri (string-append "http://www.squid-cache.org/Versions/v6/squid-" version ".tar.xz"))
                           (sha256 (base32 "0fjv1in1n6i8bv4lbam9qpdbcqqdwkaypba37bpmdrngzlckimnm"))))
                 (inputs `(("libecap" ,libecap)
                           ,@(package-inputs gnu:squid)))
                 (arguments
                   '(#:configure-flags (list "--disable-arch-native"
                                             "--enable-icmp"
                                             "--enable-delay-pools"
                                             "--enable-ecap"
                                             "--enable-follow-x-forwarded-for"
                                             "--enable-auth"
                                             "--enable-auth-basic"
                                             "--enable-auth-negotiate"
                                             "--enable-auth-ntlm"
                                             "--with-cap"
                                             "--with-xml2"
                                             "--with-ldap"
                                             "--enable-log-daemon-helpers")
                     #:phases (modify-phases %standard-phases
                                             (add-before 'build 'fix-true-path
                                                         (lambda* (#:key inputs #:allow-other-keys)
                                                                  (substitute* "test-suite/testheaders.sh"
                                                                               (("/bin/true")
                                                                                (search-input-file inputs "/bin/true"))))))))))

(define-public openvswitch-2.17
               (package
                 (inherit gnu:openvswitch)
                 (name "openvswitch")
                 (version "2.17.2")
                 (source (origin
                           (method url-fetch)
                           (uri (string-append "https://www.openvswitch.org/releases/openvswitch-" version ".tar.gz"))
                           (sha256 (base32 "0sada2a9x9x7x6a45l7iklqh29wsbrdvvgpkyz5cpf5d5fs0sbka"))))))