src/yetibot/commands/curl.clj from devth/yetibot

src/yetibot/commands/curl.clj

Summary

Maintainability

Test Coverage

Issues
Source
Stats

Issues

(ns yetibot.commands.curl
  (:require
    [clojure.java.shell :as shell]
    [clojure.string :as s]
    [yetibot.core.hooks :refer [cmd-hook]]))

(defn curl
  "curl <options> <url> # execute standard curl tool"
  {:test #(curl {:args "-I http://www.google.com"})}
  [{opts-and-url :args}]
  (let [curl (partial shell/sh "curl")]
    (:out (apply curl (s/split opts-and-url #"\s")))))

(cmd-hook #"curl"
          #".+" curl)