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: |
a677f72f833a4631a7cdbd7113a60810 |
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
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 } |