Code:

set verbosemail_setting(address) "wcc@techmonkeys.org"set verbosemail_setting(subject) "\[%date %time\] VerboseMail"set verbosemail_setting(bold) 1set verbosemail_setting(VERBOSEMAIL:) 1if {![string match 1.6.* $version]} { putlog "\002VERBOSEMAIL:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." }if {[info tclversion] < 8.2} { putlog "\002VERBOSEMAIL:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }bind notc - "*\[VERBOSE\]*" verbosemail_mailproc verbosemail_dopre {} {if {!$::verbosemail_setting(VERBOSEMAIL:)} { return "" }if {!$::verbosemail_setting(bold)} { return "VERBOSEMAIL: " }return "\002VERBOSEMAIL:\002 "}proc verbosemail_mail {nick uhost hand text dest} {if {[string compare [string tolower $nick] chanserv] != 0} { return }if {[catch {exec which mail}]} { putlog "[verbosemail_dopre]Error: This system does not support 'mail'." ; return }if {[catch {open verbosemail.temp w} mail]} { putlog "[verbosemail_dopre]Error: Could not open verbosemail.temp." ; return }puts $mail $text ; close $mailregsub -all -- "%botnick" $::verbosemail_setting(subject) $::botnick subjectregsub -all -- "%date" $subject [clock format [clock seconds] -format "%D"] subjectregsub -all -- "%time" $subject [clock format [clock seconds] -format "%I:%M %p"] subjectif {[catch {exec mail $::verbosemail_setting(address) -s $subject < verbosemail.temp} error]} { putlog "[verbosemail_dopre]Error: $error" }if {[catch {file delete -force verbosemail.temp}]} { putlog "[verbosemail_dopre]Error: Could not delete verbosemail.temp." }}