Backup TCL Script + e-Mail

[BiLL]

Hello,

I am searching for a TCL script which sends me a few files from the shell via e-mail. Its function is to backup specified files from the shell.
The backup can be done via timer or public command (owner flag).

Would be nice if anyone can help me with such a script, I think
its useful and some other peeps would like to see it too.

Big Thanks!

[caesar]

Code: Select all

set ufmail "foo@bar.com"

bind pub n !backup pub:backup

proc pub:backup {nick uhost hand chan arg} {
global userfile botnet-nick ufmail
if {![file exists $userfile]} {
    putserv "NOTICE $nick :Userfile can't be found for mailing.."
  } else {
    if {[catch {exec mail -s "$userfile from ${botnet-nick}" $ufmail < $userfile}]} {
      putserv "NOTICE $nick :Error sending $userfile."
    } else {
      putserv "NOTICE $nick :Sent $userfile."
    }
  }
  return 0
}