(define-module (raingloom packages mininet)
  #:use-module (gnu packages networking)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages bash)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (guix utils)
  #:use-module (guix build-system trivial))

(define-public mininet
  (package
   (name "mininet")
   (version "2.2.2")
   (source (origin
            (method git-fetch)
            (uri (git-reference
		  (url "git://github.com/mininet/mininet.git")
		  (commit version)))
	    (sha256 (base32 "18w9vfszhnx4j3b8dd1rvrg8xnfk6rgh066hfpzspzqngd5qzakg"))
	    (file-name (git-file-name name version))))
   (build-system gnu-build-system)
   (arguments
    '(#:phases
      (modify-phases %standard-phases
		     (delete 'configure)
		     (delete 'check))
      #:make-flags
      (let ((out (assoc-ref %outputs "out")))
		     (list (string-append "BINDIR=" out "/usr/bin")
			   (string-append "MANDIR=" out "/usr/share/man/man1")))))
   (inputs `(("openvswitch" ,openvswitch)
	     ("python2" ,python-2.7)
	     ("python2-pyflakes" ,python2-pyflakes)
	     ("ethtool" ,ethtool)
	     ("inetutils" ,inetutils)
	     ("net-tools" ,net-tools)
	     ("psmisc" ,psmisc)
	     ("libcgroup" ,libcgroup)
	     ("iproute2" ,iproute)
	     ("iperf" ,iperf)
	     ("bash" ,bash)))
   (synopsis "Rapid Prototyping for Software Defined Networks")
   (description "Mininet emulates a complete network of hosts, links, and switches on a single machine.")
   (home-page "http://mininet.org/")
   (license bsd-style)))