Fossil

Check-in [a677f72f]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Include the email-sender.tcl script as an example of how to relay from the database drop to /usr/sbin/sendmail.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: a677f72f833a4631a7cdbd7113a60810c53af4fd43c9f4f0ee36fc3c1ee33f2f
User & Date: drh 2018-06-23 17:50:27.236
Context
2018-06-23
18:44
Automatically send alert emails after each webpage request. ... (check-in: d4e9df17 user: drh tags: trunk)
17:50
Include the email-sender.tcl script as an example of how to relay from the database drop to /usr/sbin/sendmail. ... (check-in: a677f72f user: drh tags: trunk)
17:17
New note on why SMTP might be hard to implement as a sending method. ... (check-in: b3e72035 user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Added tools/email-sender.tcl.










































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/tcl
#
# Monitor the database file named by the DBFILE variable
# looking for email messages sent by Fossil.  Forward each
# to /usr/sbin/sendmail.
#
set POLLING_INTERVAL 10000   ;# milliseconds
set DBFILE /home/www/fossil/emailqueue.db
set PIPE "/usr/sbin/sendmail -t"

package require sqlite3
# puts "SQLite version [sqlite3 -version]"
sqlite3 db $DBFILE
db timeout 5000
catch {db eval {PRAGMA journal_mode=WAL}}
db eval {
  CREATE TABLE IF NOT EXISTS email(
    emailid INTEGER PRIMARY KEY,
    msg TXT
  );
}
while {1} {
  db transaction immediate {
    set n 0
    db eval {SELECT msg FROM email} {
      set out [open |$PIPE w]
      puts -nonewline $out $msg
      flush $out
      close $out
      incr n
    }
    if {$n>0} {
      db eval {DELETE FROM email}
    }
  }
  after $POLLING_INTERVAL
}