+++ /dev/null
-<?php
-#
-# The otherwise invisible markup [notify:you@there.net] will trigger a
-# mail, whenever a page is changed. The TLD decides in which language
-# the message will be delivered. One can also append the lang code after
-# a comma or semicolon behind the mail address to set it explicitely:
-# [notify:me@here.org,de] or [notify:you@there.net;eo]
-#
-# Nevertheless English will be used as the default automagically, if
-# nothing else was specified, no need to worry about this.
-#
-# additional features:
-# * diff inclusion
-# * any mail address (works without notify: prefix) on the "GlobalNotify"
-# page will receive a notification for any changed page
-# * [notify:icq:123456789] - suddenly ICQ.com took the pager service down
-#
-# To include a diff, just set the following constant. Also use it to
-# define the minimum number of changed bytes that are necessary to
-# result in a notification mail. Only use it with Linux/UNIX.
-
-define("EWIKI_NOTIFY_WITH_DIFF", 0); #-- set it to 100 or so
-define("EWIKI_NOTIFY_SENDER",'ewiki');
-define("EWIKI_NOTIFY_GLOBAL", "GlobalNotify");
-define("EWIKI_NOTIFY_DIFF_EXE", "diff");
-define("EWIKI_NOTIFY_DIFF_PARAMS", " --ignore-case --ignore-space-change");
-
-#-- glue
-$ewiki_plugins["edit_hook"][] = "ewiki_notify_edit_hook";
-$ewiki_plugins["format_source"][] = "ewiki_format_remove_notify";
-$ewiki_config["interwiki"]["notify"] = "mailto:";
-
-
-#-- email message text ---------------------------------------------------
-$ewiki_t["en"]["NOTIFY_SUBJECT"] = '"$id" was changed [notify:...]';
-$ewiki_t["en"]["NOTIFY_BODY"] = <<<_END_OF_STRING
-Hi,
-
-A WikiPage has changed and you requested to be notified when this
-happens. The changed page was '\$id' and can be found
-at the following URL:
-\$link
-
-To see just the changes in the new version, you can click here:
-\$diff_link
-
-To stop messages like this please strip the [notify:...] with your address
-from the page edit box at \$edit_link
-
-(\$wiki_title on http://\$server/)
-\$server_admin
-_END_OF_STRING;
-
-
-#-- translation.de
-$ewiki_t["de"]["NOTIFY_SUBJECT"] = '"$id" wurde geändert [notify:...]';
-$ewiki_t["de"]["NOTIFY_BODY"] = <<<_END_OF_STRING
-Hi,
-
-Eine WikiSeite hat sich geändert, und du wolltest ja unbedingt wissen,
-wenn das passiert. Die geänderte Seite war '\$id' und
-ist leicht zu finden unter folgender URL:
-\$link
-
-Wenn du diese Benachrichtigungen nicht mehr bekommen willst, solltest du
-deine [notify:...]-Adresse aus der entsprechenden Edit-Box herauslöschen:
-\$edit_link
-
-(\$wiki_title auf http://\$server/)
-\$server_admin
-_END_OF_STRING;
-
-
-#----------------------------------------------------------------------------
-
-
-
-#-- implementatition
-function ewiki_notify_edit_hook($id, $data, &$hidden_postdata) {
-
- global $ewiki_t, $ewiki_plugins;
- $ret_err = 0;
-
- if (!isset($_REQUEST["save"])) {
- return(false);
- }
-
- #-- list from current page
- $mailto = ewiki_notify_links($data["content"], 0);
-
- #-- add entries from GlobalNotify page/list
- if ($add = ewiki_db::GET(EWIKI_NOTIFY_GLOBAL)) {
- ewiki_scan_wikiwords($add["content"], $uu, $strip_emails=false);
- foreach ($uu as $add=>$stat) {
- if (strpos($add, "@") && strpos($add, ".")) {
- $mailto[] = str_replace("notify:", "", $add);
- }
- }
- }
-
- if (!count($mailto)) {
- return(false);
- }
-
- #-- generate diff
- $diff = "";
- if (EWIKI_NOTIFY_WITH_DIFF && (DIRECTORY_SEPARATOR=="/")) {
-
- #-- save page versions temporarily as files
- $fn1 = EWIKI_TMP."/ewiki.tmp.notify.diff.".md5($data["content"]);
- $fn2 = EWIKI_TMP."/ewiki.tmp.notify.diff.".md5($_REQUEST["content"]);
- $f = fopen($fn1, "w");
- fwrite($f, $data["content"]);
- fclose($f);
- $f = fopen($fn2, "w");
- fwrite($f, $_REQUEST["content"]);
- fclose($f);
- #-- set mtime of the old one (GNU diff will report it)
- touch($fn1, $data["lastmodified"]);
-
- #-- get diff output, rm temp files
- $diff_exe = EWIKI_NOTIFY_DIFF_EXE;
- $diff_params = EWIKI_NOTIFY_DIFF_PARAMS;
- if ($f = popen("$diff_exe $diff_params $fn1 $fn2 2>&1 ", "r")) {
-
- $diff .= fread($f, 16<<10);
- pclose($f);
-
- $diff_failed = !strlen($diff)
- || (strpos($diff, "Files ") === 0);
-
- #-- do not [notify:] if changes were minimal
- if ((!$diff_failed) && (strlen($diff) < EWIKI_NOTIFY_WITH_DIFF)) {
-#echo("WikiNotice: no notify, because too few changes (" .strlen($diff)." byte)\n");
- $ret_err = 1;
- }
-
- $diff = "\n\n-----------------------------------------------------------------------------\n\n"
- . $diff;
- }
- else {
- $diff = "";
-#echo("WikiWarning: diff failed in notify module\n");
- }
-
- unlink($fn1);
- unlink($fn2);
-
- if ($ret_err) {
- return(false);
- }
- }
-
- #-- separate addresses into (TLD) groups
- $mailto_lang = array(
- );
- foreach ($mailto as $m) {
-
- $lang = "";
-
- #-- remove lang selection trailer
- $m = strtok($m, ",");
- if ($uu = strtok(",")) {
- $lang = $uu;
- }
- $m = strtok($m, ";");
- if ($uu = strtok(";")) {
- $lang = $uu;
- }
-
- #-- else use TLD as language code
- if (empty($lang)) {
- $r = strrpos($m, ".");
- $lang = substr($m, $r+1);
- }
- $lang = trim($lang);
-
- #-- address mangling
- $m = trim($m);
- if (substr($m, 0, 4) == "icq:") {
- $m = substr($m, 4) . "@pager.icq.com";
- }
-
- $mailto_lang[$lang][] = $m;
- }
-
- #-- go thru email address groups
- foreach ($mailto_lang as $lang=>$a_mailto) {
-
- $pref_langs = array(
- "$lang", "en"
- ) + (array)$ewiki_t["languages"];
-
- ($server = $_SERVER["HTTP_HOST"]) or
- ($server = $_SERVER["SERVER_NAME"]);
- $s_4 = "http".($_SERVER['HTTPS'] == "on" ? 's':'')."://" . $server . $_SERVER["REQUEST_URI"];
- $link = str_replace("edit/$id", "$id", $s_4);
- $difflink = str_replace("edit/$id", "diff/$id", $s_4);
-
- $m_text = ewiki_t("NOTIFY_BODY", array(
- "id" => $id,
- "link" => $link,
- "diff_link" => $difflink,
- "edit_link" => $s_4,
- "server_admin" => $_SERVER["SERVER_ADMIN"],
- "server" => $server,
- "wiki_title" => EWIKI_PAGE_INDEX,
- ), $pref_langs);
- $m_text .= $diff;
-
- $m_from = EWIKI_NOTIFY_SENDER."@$server";
- $m_subject = ewiki_t("NOTIFY_SUBJECT", array(
- "id" => $id,
- ), $pref_langs);
-
- $m_to = implode(", ", $a_mailto);
-
- mail($m_to, $m_subject, $m_text, "From: \"$s_2\" <$m_from>\nX-Mailer: ErfurtWiki/".EWIKI_VERSION);
-
- }
-}
-
-
-
-function ewiki_notify_links(&$source, $strip=1) {
- $links = array();
- $l = 0;
- if (strlen($source) > 10)
- while (($l = @strpos($source, "[notify:", $l)) !== false) {
- $r = strpos($source, "]", $l);
- $n = strpos($source, "\n", $l);
- if ($r && (!$n || ($r<$n))) {
- $str = substr($source, $l, $r + 1 - $l);
- if (!strpos("\n", $str)) {
- $links[] = trim(substr($str, 8, -1));
- if ($strip) {
- $source = substr($source, 0, $l) . substr($source, $r + 1);
- }
- }
- }
- $l++;
- }
- return($links);
-}
-
-
-
-function ewiki_format_remove_notify(&$source) {
- ewiki_notify_links($source, 1);
-}
-
-
-
-?>
\ No newline at end of file
projects / atutor.git / blobdiff