fetch-commits.reb

#!/usr/local/bin/ren-c

Rebol [
    Title: "Fetch Commits"
    Date: 19-May-2017
    Index: http://metaeducation.s3.amazonaws.com
]

; import <xml>
import https://raw.githubusercontent.com/rgchris/Scripts/master/experimental/altxml.reb

index: load-xml/dom system/script/header/index

hex: charset "0123456789abcdef"

probe new-line/all/skip files: sort/skip collect [
    use [hash os filename][
        for-each file index/get-by-tag <Contents> [
            if parse file/get/text <Key> [
                "travis-builds/" copy os to "/" skip
                filename: "r3-" copy hash some hex opt ["-" to end] opt ".exe"
            ][
                keep hash
                keep/only reduce [
                    to tuple! os
                    to file! filename
                    to date! replace file/get/text <LastModified> "T" "/"
                ]
            ]
        ]
    ]
] 2 true 2