#!/usr/bin/env pil21

#!/usr/bin/env pil

   (rc DB 'ssh T  'https T) )

   (rc DB 'ssh T  'https T  'crates T) )

(de last-vers ()
   (let V NIL
      (in '(curl "-s" "https://raw.githubusercontent.com/rust-lang/crates.io-index/master/pi/ju/pijul")
         (until (eof)
            (from "vers\":\"")
            (setq V (read))
            (line) ) )
      V ) )

(de crates ()
   (let (Now (last-vers)  Was (rc DB 'crates))
      (unless (= Now Was)
         (mail "localhost" 25 "mpech@envs.net" "mpech@envs.net" "crates changed")
         (rc DB 'crates Now) )
      (bye) ) )