executable_rofi-billing2-server 427 B

123456789101112131415
  1. #!/usr/bin/env -S guile --no-auto-compile -e main -s
  2. !#
  3. (use-modules (srfi srfi-1)
  4. (ice-9 match))
  5. (define (main . args)
  6. (if (= (length (last args)) 1)
  7. (system* "mjru-infa" "server")
  8. (match args
  9. (((_ args))
  10. (match (delete "" (string-split args #\space))
  11. ((datacenter rack server-name server-id billing2-id billing2-url)
  12. (system* "firefox" billing2-url)))))))