Posted to tcl by apn at Thu Jan 16 17:10:33 GMT 2020view pretty

# Async proc to download multiple urls, zip and then mail them
# See https://www.magicsplat.com/blog/promise-async/
async zipnmail {dir urls} {
    await [download $dir $urls]
    await [pexec zip -r pages.zip $dir]
    await [pexec blat pages.zip -to someone@somewhere.com]
    tk_messageBox -message "Zipped and sent!"
}