Change Details

#!/usr/bin/env tclsh8.5 #Checks if there is a new mail in Maildir folders # # Helper methods # #Gets maildir directory proc get_maildir {} { global env if [info exists env(MAILDIR)] { return $env(MAILDIR) } return $env(HOME)/Maildir } #Return "s" when amount needs a plural proc s {amount} { if {$amount >= 2} {return "s"} } # # Procedural code # #Checks if Maildir exists if [file exists [set maildir [get_maildir]]] { #Yes, check new mails set nb [llength [glob -nocomplain -directory $maildir/new *]] if {$nb > 0} { puts "" puts "*** You have $nb new mail[s $nb]" puts "" } } { #No, ask to create it puts "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *" puts " You don't have setup your mail delivery." puts "" puts " Please run the following command:" puts " /var/qmail/bin/maildirmake $maildir" puts "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *" }