|
- module IrcBot.RemoteUploader where
-
-
- import System.Process
-
-
- uploadLocalFile :: String -> IO String
-
- uploadLocalFile filePath =
- do
- if filePath /= "" then do
- let command = "curl"
- let params = "file=@"++ filePath
- readProcess command ["-F",params,"0x0.st"] ""
- else return $ ";_;"
|