Nuke Mail 1.0.1 for Nuke

# This example mails a dust busting report to your in house producer:

proc mailMyDustBustedFrames {} {

set subject "Dust bust report on script "[file tail [knob root.name]]""
set mailMsg ""


append mailMsg "Dust bust report on script "[file tail [knob root.name]]""
append mailMsg "n"[knob root.name]""


set dustBustNodes {}
foreach node [nodes] {
if { [class ${node}] eq "DustBust" } {
lappend dustBustNodes ${node}
}
}

foreach node ${dustBustNodes} {
foreach stroke [value "${node}.points"] {
set dustBustedFrames([lindex ${stroke} 0]) 1
# puts "painted: [lindex ${stroke} 0]"
}
}

# For our producer.
if { [array size dustBustedFrames] > 0 } {
append mailMsg "n"
append mailMsg "n[array size dustBustedFrames] Dust Busted frames:"
append mailMsg "n[lsort [array names dustBustedFrames]]"
append mailMsg "n"
} else {
append mailMsg "n"
append mailMsg "No dustbusted frames.n"
}


# Prepare a panel

set msgPanel {}
lappend msgPanel {"Subject" subject}
lappend msgPanel {"Message" mailMsg n}


# Display panel

if [catch {
panel -w800 "Dust Bust Report Panel" ${msgPanel}
}] return;


filmgateMail
--debugcmd puts
--method ESMTP
--auth LOGIN
--username "a_generic_mail_account@yourdomain.com"
--password "pasword"
--server mail.yourdomain.com
--port 587
--domain [info hostname].yourdomain.com
--from "a_generic_mail_account@yourdomain.com"
--replyto "a_generic_mail_account@yourdomain.com"
--to "producer@yourdomain.com"
--subject ${subject}
--msg ${mailMsg}

message "Mail sent"
return
}


menu "Report/Dust bust report" "" { mailMyDustBustedFrames }