JOCHYGWONZLOLAA3C4JGVNQAPNPQJQ7A7ZEOZX5X6UHQOC7W7HTAC
(println 'ssh (argv))
(bye)
)
(let
(Now (connect (car (argv)) (cadr (argv)))
Was (rc DB 'ssh) )
(if2 Was Now
NIL
(mail "localhost" 25 "mpech@envs.net" "mpech@envs.net" "ssh down")
(mail "localhost" 25 "mpech@envs.net" "mpech@envs.net" "ssh up") )
(rc DB 'ssh Now)
(bye) ) )