[PATCH] gnu: Add slurm-llnl.

[Pjotr Prins <pjotr.public12@thebird.nl>]

* gnu/packages/parallel.scm (slurm-llnl): New variable.
---
 gnu/packages/parallel.scm | 51 ++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 48 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/parallel.scm b/gnu/packages/parallel.scm
index 8f63bda..03ee460 100644
--- a/gnu/packages/parallel.scm
+++ b/gnu/packages/parallel.scm
@@ -2,7 +2,8 @@
 ;;; Copyright © 2013,2014 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il>
-;;;
+;;; Copyright © 2014, 2015 Pjotr Prins <pjotr.guix@thebird.nl>
+
 ;;; This file is part of GNU Guix.
 ;;;
 ;;; GNU Guix is free software; you can redistribute it and/or modify it
@@ -20,11 +21,17 @@
 
 (define-module (gnu packages parallel)
   #:use-module (guix packages)
-  #:use-module (guix licenses)
   #:use-module (guix download)
+  #:use-module (guix licenses)
+  #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages)
-  #:use-module (gnu packages perl))
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages tcl)
+  #:use-module (gnu packages tls))
 
 (define-public parallel
   (package
@@ -47,3 +54,41 @@
 or more computers.  Jobs can consist of single commands or of scripts
 and they are executed on lists of files, hosts, users or other items.")
     (license gpl3+)))
+
+(define-public slurm-llnl
+  (package
+   (name "slurm-llnl")
+   (version "15-08-6-1")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "https://github.com/SchedMD/slurm/archive/slurm-"
+                                version ".tar.gz"))
+            (file-name (string-append name "-" version ".tar.gz"))
+            (sha256
+             (base32
+              "1h8al21blmrhma9r7qxkba2g5i74m3hrjc9a640j7px54szvg18v"))))
+   (inputs `(("openssl" ,openssl)
+             ("munge" ,munge)
+             ("perl" ,perl)
+             ("expect" ,expect)
+             ("python" ,python)
+             ("linux-pam" , linux-pam)))
+   (build-system gnu-build-system)
+   (arguments
+    `(#:configure-flags '("--enable-pam")
+      #:phases
+      (modify-phases %standard-phases
+       (add-before
+        'configure 'rewrite-usr-bin
+        (lambda* (#:key inputs #:allow-other-keys)
+                 (substitute* "./doc/html/shtml2html.py"
+                              (("#!/usr/bin/env python")
+                               (string-append "#!" (which "python3"))))
+                 (substitute* "src/common/env.c"
+                              (("/usr/bin/env") (which "env"))))))))
+   (home-page "http://www.schedmd.com/")
+   (synopsis "Tool for cluster computing")
+   (description
+    "Fault-tolerant, and highly scalable cluster management and job
+scheduling system for large and small clusters.")
+   (license license:openssl)))
-- 
2.5.0