Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Automatically send alert emails after each webpage request. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
d4e9df1729ced9096bd7c3211166c05d |
User & Date: | drh 2018-06-23 18:44:37.796 |
Context
2018-06-23
| ||
19:36 | Add the /msgadmin page. ... (check-in: 0c4d3c12 user: drh tags: trunk) | |
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) | |
Changes
Changes to src/cgi.c.
︙ | ︙ | |||
334 335 336 337 338 339 340 341 342 343 344 345 346 347 | if( size>0 ){ fwrite(blob_buffer(&cgiContent[i]), 1, size, g.httpOut); } } } fflush(g.httpOut); CGIDEBUG(("DONE\n")); } /* ** Do a redirect request to the URL given in the argument. ** ** The URL must be relative to the base of the fossil server. */ | > > > > > | 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 | if( size>0 ){ fwrite(blob_buffer(&cgiContent[i]), 1, size, g.httpOut); } } } fflush(g.httpOut); CGIDEBUG(("DONE\n")); /* After the webpage has been sent, do any useful background /* processing. */ email_auto_exec(); } /* ** Do a redirect request to the URL given in the argument. ** ** The URL must be relative to the base of the fossil server. */ |
︙ | ︙ |
Changes to src/email.c.
︙ | ︙ | |||
229 230 231 232 233 234 235 236 237 238 239 240 241 242 | "enn", "", 0); @ <p><b>Required.</b> @ This is short name used to identifies the repository in the @ Subject: line of email alerts. Traditionally this name is @ included in square brackets. Examples: "[fossil-src]", "[sqlite-src]". @ (Property: "email-subname")</p> @ <hr> multiple_choice_attribute("Email Send Method", "email-send-method", "esm", "off", count(azSendMethods)/2, azSendMethods); @ <p>How to send email. The "Pipe to a command" @ method is the usual choice in production. @ (Property: "email-send-method")</p> @ <hr> | > > > > > > > > > | 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 | "enn", "", 0); @ <p><b>Required.</b> @ This is short name used to identifies the repository in the @ Subject: line of email alerts. Traditionally this name is @ included in square brackets. Examples: "[fossil-src]", "[sqlite-src]". @ (Property: "email-subname")</p> @ <hr> onoff_attribute("Automatic Email Exec", "email-autoexec", "eauto", 0, 0); @ <p>If enabled, then email notifications are automatically @ dispatched after some webpages are accessed. This eliminates the @ need to have a cron job running to invoke "fossil email exec" @ periodically. @ (Property: "email-autoexec")</p> @ <hr> multiple_choice_attribute("Email Send Method", "email-send-method", "esm", "off", count(azSendMethods)/2, azSendMethods); @ <p>How to send email. The "Pipe to a command" @ method is the usual choice in production. @ (Property: "email-send-method")</p> @ <hr> |
︙ | ︙ | |||
1656 1657 1658 1659 1660 1661 1662 | #define SENDALERT_DIGEST 0x0001 /* Send a digest */ #define SENDALERT_PRESERVE 0x0002 /* Do not mark the task as done */ #define SENDALERT_STDOUT 0x0004 /* Print emails instead of sending */ #endif /* INTERFACE */ /* | | | 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 | #define SENDALERT_DIGEST 0x0001 /* Send a digest */ #define SENDALERT_PRESERVE 0x0002 /* Do not mark the task as done */ #define SENDALERT_STDOUT 0x0004 /* Print emails instead of sending */ #endif /* INTERFACE */ /* ** Send alert emails to all subscribers. */ void email_send_alerts(u32 flags){ EmailEvent *pEvents, *p; int nEvent = 0; Stmt q; const char *zDigest = "false"; Blob hdr, body; |
︙ | ︙ | |||
1752 1753 1754 1755 1756 1757 1758 | } db_multi_exec("DELETE FROM pending_alert WHERE sentDigest AND sentSep"); } send_alerts_done: email_sender_free(pSender); db_end_transaction(0); } | > > > > > > > > > > > > > > > > > > > > > > > > > | 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 | } db_multi_exec("DELETE FROM pending_alert WHERE sentDigest AND sentSep"); } send_alerts_done: email_sender_free(pSender); db_end_transaction(0); } /* ** Check to see if any email notifications need to occur, and then ** do them. ** ** This routine is called after certain webpages have been run and ** have already responded. */ void email_auto_exec(void){ int iJulianDay; if( g.db==0 ) return; db_begin_transaction(); if( !email_tables_exist() ) goto autoexec_done; if( !db_get_boolean("email-autoexec",0) ) goto autoexec_done; if( !db_exists("SELECT 1 FROM pending_alert") ) goto autoexec_done; email_send_alerts(0); iJulianDay = db_int(0, "SELECT julianday('now')"); if( iJulianDay>db_get_int("email-last-digest",0) ){ email_send_alerts(SENDALERT_DIGEST); db_set_int("email-last-digest", iJulianDay, 0); } autoexec_done: db_end_transaction(0); } |
Changes to src/setup.c.
︙ | ︙ | |||
967 968 969 970 971 972 973 | style_footer(); } /* ** Generate a checkbox for an attribute. */ | | | 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 | style_footer(); } /* ** Generate a checkbox for an attribute. */ void onoff_attribute( const char *zLabel, /* The text label on the checkbox */ const char *zVar, /* The corresponding row in the VAR table */ const char *zQParm, /* The query parameter */ int dfltVal, /* Default value if VAR table entry does not exist */ int disabled /* 1 if disabled */ ){ const char *zQ = P(zQParm); |
︙ | ︙ |