mirror of
https://github.com/fnproject/fn.git
synced 2022-10-28 21:29:17 +03:00
64c6118313
* Removed a bunch of old examples. * moved grafana back. * Bumping, circle didn't do build... ?
39 lines
1.0 KiB
Forth
Executable File
39 lines
1.0 KiB
Forth
Executable File
open System
|
|
open System.IO
|
|
open System.Security.Cryptography
|
|
|
|
let createChecksum (data:byte array) =
|
|
use md5 = MD5.Create ()
|
|
let hash = data |> md5.ComputeHash
|
|
BitConverter.ToString(hash).Replace("-", "").ToLower ()
|
|
|
|
let downloadRemoteImageFile uri =
|
|
async {
|
|
let req = System.Net.HttpWebRequest.Create (System.Uri (uri)) :?> System.Net.HttpWebRequest
|
|
let! res = req.AsyncGetResponse ()
|
|
let stm = res.GetResponseStream ()
|
|
use ms = new MemoryStream ()
|
|
stm.CopyTo(ms)
|
|
return ms.ToArray ()
|
|
}
|
|
|
|
[<EntryPoint>]
|
|
let main argv =
|
|
let isPipedInput =
|
|
try
|
|
Console.KeyAvailable |> ignore
|
|
false
|
|
with
|
|
| _ -> true
|
|
|
|
match isPipedInput with
|
|
| true ->
|
|
let input = stdin
|
|
async {
|
|
let! uri = input.ReadToEndAsync () |> Async.AwaitTask
|
|
return! downloadRemoteImageFile uri
|
|
} |> Async.RunSynchronously
|
|
|> createChecksum
|
|
|> printfn "%s"
|
|
| false -> () // if nothing is being piped in, then exit
|
|
0 |