Allow to get notifications for new mail on Ysul
Closed, WontfixPublic
Actions

Assigned To

Authored By

	dereckson
	Apr 1 2016, 20:16

Description

Grip, with a qmail server used the following notification script.

1	#!/usr/bin/env tclsh8.5
2	#Checks if there is a new mail in Maildir folders
3
4	#
5	# Helper methods
6	#
7
8	#Gets maildir directory
9	proc get_maildir {} {
10	global env
11	if [info exists env(MAILDIR)] {
12	return $env(MAILDIR)
13	}
14	return $env(HOME)/Maildir
15	}
16
17	#Return "s" when amount needs a plural
18	proc s {amount} { if {$amount >= 2} {return "s"} }
19
20	#
21	# Procedural code
22	#
23
24	#Checks if Maildir exists
25	if [file exists [set maildir [get_maildir]]] {
26	#Yes, check new mails
27	set nb [llength [glob -nocomplain -directory $maildir/new *]]
28	if {$nb > 0} {
29	puts ""
30	puts "*** You have $nb new mail[s $nb]"
31	puts ""
32	}
33	} {
34	#No, ask to create it
35	puts "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *"
36	puts " You don't have setup your mail delivery."
37	puts ""
38	puts " Please run the following command:"
39	puts " /var/qmail/bin/maildirmake $maildir"
40	puts "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *"
41	}

We should offer something in .login to call a dummy newmail so we can get in a future tweak how mail notifications work.

		Status	Subtype	Assigned	Task
		Resolved		dereckson	T298 Validate devserver operational state
		Wontfix		dereckson	T802 Allow to get notifications for new mail on Ysul

Actually, we have fewer users on Ysul than on Grip, and we can offer them support to upgrade if needed.