(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.7")
    (source
      (origin
        (method url-fetch)
        (uri (string-append "http://www.squid-cache.org/Versions/v5/squid-" version ".tar.xz"))
        (sha256 (base32 "10fdgrdiycphs8ciyn1q5p6dcyngmr614rry6gylx72cpam561vb"))
      )
    )
    (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-5.5
  (package
    (inherit squid)
    (name "squid")
    (version "5.5")
    (source
      (origin
        (method url-fetch)
        (uri (string-append "http://www.squid-cache.org/Versions/v5/squid-" version ".tar.xz"))
        (sha256 (base32 "0v0h949l4wd1hl87a8wkk1fkvj8j44wifyxi9myxdgbnci6lh7af"))
      )
    )
  )
)

(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"))
      )
    )
  )
)