(define-module (my-packages freeswitch)
  #:use-module (guix)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages autotools))

(package
    (name "freeswitch")
    (version "1.10.9")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://github.com/signalwire/freeswitch/archive/refs/tags/v" version ".tar.gz"))
              (sha256
               (base32
                "0hdaa8hz82sfc2dapzw73vdwcd2iyd6z7p0kq6wvwxny452a3xjk"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("libtool" ,libtool)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-before 'configure 'bootstrap
           (lambda* (#:key inputs #:allow-other-keys)
                    (zero? (system* "sh" "bootstrap.sh")))))
       ))
    (home-page "https://freeswitch.com/")
    (synopsis "Scalable open-source cross-platform telephony platform")
    (description "FreeSWITCH is a scalable open-source cross-platform telephony platform designed to route and interconnect popular communication protocols using audio, video, text, or any other for\
m of media.")
    (license gpl3+))