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