function ewiki_pingback_rpc($source_url, $target_url) { global $ewiki_config; #-- does the target URL refer to a known WikiPage ? $id = ewiki_url2id($target_url); if (!$id) { xmlrpc_send_response(xmlrpc_error(0x21, "Could not determine PageName for the given target URL.")); } if (!($data = ewiki_db::GET($id))) { xmlrpc_send_response(xmlrpc_error(0x20, "The given target page does not exist.")); } #-- check if the caller really has a link as he claims ini_set("user_agent", $ewiki_config["ua"]); if (strpos($source_url, "http://") === 0 && ($test = ewiki_http_asis($source_url, 96256))) { $test = strtolower($test); $test_url = strtolower($target_url); if (!strpos($test, $test_url) and !strpos($test, htmlentities($test_url))) { return xmlrpc_error(0x11, "Sorry, but couldn't find a link to '{$target_url}' on your given '{$source_url}' page."); } } else { return xmlrpc_error(0x10, "Your given source URL does not exist, could not be retrieved."); } #-- reject other frivolous links if (preg_match('#^http://[^/]+/?$#', $source_url)) { return xmlrpc_error(0x11, "Rejected '{$source_url}' as frivolous."); } #-- check write permissions if (EWIKI_DB_F_TEXT != $data["flags"] & EWIKI_DB_F_TYPE or $data["flags"] & EWIKI_DB_F_READONLY) { return xmlrpc_error(0x31, "Sorry, but this page is write-protected or not a system page."); } #-- already on page if (strpos($data["content"], $source_url)) { return xmlrpc_error(0x30, "The given link does already exist on this page."); } #-- other go-away cases if (function_exists("ewiki_banned_url") && ewiki_banned_url($source_url) || function_exists("ewiki_blocked_url") && ewiki_blocked_url($source_url)) { return xmlrpc_error(0x100, "Your link is unwanted here (registered on BlockedLinks or BannedLinks)."); } #-- else update page $data["content"] = rtrim($data["content"]) . "\n* {$source_url} (PingBack)\n"; ewiki_db::UPDATE($data); $data["version"]++; $ok = ewiki_db::WRITE($data); #-- fin response if ($ok) { return "Link to '{$source_url}' was added to page '{$id}'."; } else { return xmlrpc_error(0x101, "Seems like a database/writing error occoured."); } }
function ewiki_mpi_registerspam($action, &$args, &$iii, &$s) { global $ewiki_id; if (!$_POST["regspam"]) { return <<<END <form action="{$_SERVER['REQUEST_URI']}" method="POST" enctype="multipart/form-data"> <textarea name="add_spam" cols="50" rows="3"></textarea><br/> <input type="submit" name="regspam" value="add listed urls" /> </form> END; } else { #-- scan for links $text = $_REQUEST["add_spam"]; ewiki_scan_wikiwords($text, $uu); $ls = array(); foreach ($uu as $href => $uu) { if ($l = strpos($href, "://")) { // filter out redundant pattern parts $href = substr($href, $l + 3); if (strpos($href, "www.") === 0) { $href = substr($href, 4); } $href = trim($href, "/"); $ls[] = strtok($href, " "); } } #-- reduce $ls = array_unique($ls); $data = ewiki_db::GET($ewiki_id); foreach (explode("\n", trim($data["refs"])) as $href) { if (in_array($href, $ls)) { unset($ls[array_search($href, $ls)]); } } #-- add to current page if ($ls) { $inj = "* [" . implode("], [", $ls) . "]\n"; $data["content"] = preg_replace("/(^[-*#])/m", "{$inj}\$1", $data["content"], 1); ewiki_db::UPDATE($data); $data["version"]++; ewiki_db::WRITE($data); return "\n<div class=\"system-message ok\">new links added as patterns here (please go back and reload page to see it)</div>\n"; } else { return "\n<div class=\"system-message failure\">no new links found, please add the patterns by hand then</div>\n"; } } }
function ewiki_mpi_bugreportstate($action, $args, &$iii, &$s) { global $ewiki_id; #-- possible states $values = array("open", "closed", "done", "frozen", "answered"); foreach ($args as $i => $name) { if (is_int($i)) { if (preg_match("/^\\w+\$/", $name) && !in_array($name, $values)) { $values[] = $name; } } } $rxvals = implode("|", $values); #-- if button pressed if (($new = $_REQUEST["brs_change"]) && in_array($new, $values)) { $pages = ewiki_get_backlinks($ewiki_id); $pages[] = $ewiki_id; #-- change assoc pages foreach ($pages as $id) { $data = ewiki_db::GET($id); if (preg_match("/\n\\|.*stat(e|us).*\\|.*({$rxvals})/", $data["content"]) or preg_match("/\n\\|.*({$rxvals}).*\\|.*{$ewiki_id}/", $data["content"])) { $data["content"] = preg_replace("/(\n\\|.*stat(?:e|us).*\\|.*?)[_*]*(?:{$rxvals})[_*]*/", "\$1{$new}", $data["content"]); $data["content"] = preg_replace("/(\n\\|.*?)[_*]*(?:{$rxvals})[_*]*(.*?\\|.*{$ewiki_id})/", "\$1{$new}\$2", $data["content"]); ewiki_db::UPDATE($data); $data["version"]++; ewiki_db::WRITE($data); } } $o = "<p>(status changed)</p>"; $iii[0][0] = preg_replace("/({$rxvals})/", "{$new}", $iii[0][0]); } else { $url = ewiki_script("", $ewiki_id); $o .= <<<EOT <form action="{$url}#added" method="POST" enctype="multipart/form-data"> <input type="submit" name="brs_change" value="open"> <input type="submit" name="brs_change" value="closed"> <input type="submit" name="brs_change" value="frozen"> </form> EOT; } return $o; }
function PUT($path, $ct, $charset) { #-- let's call the auth routine once more?? $this->auth(); #-- get old page version $id = $this->id($path); $data = ewiki_db::GET($id) or $data = ewiki_db::CREATE($id); #-- read from whereever $data["content"] = $this->get_body(); #-- check content-type if ($ct != "text/wiki" && $ct != "text/plain") { return "422 Only WikiPages Accepted"; } #-- save back to db ewiki_db::UPDATE($data); $data["version"] += 1; $ok = ewiki_db::WRITE($data); #-- handle response here if ($ok) { return "200 Written Successfully"; } return "500 Couldn't Save"; }
function ewiki_mpi_bugreport($action, $args, &$iii, &$s) { global $ewiki_id; $MAIN = $ewiki_id; //"BugReports"; $ELSE = $args[0] or $ELSE = rtrim($MAIN, "s"); $o = ""; if ($_REQUEST["br_save"]) { #-- check parameters $content = $_REQUEST["content"]; $title = $_REQUEST["title"]; $author = $_REQUEST["author"]; if (strlen($content) < 50) { return "<p><b>Insufficient information for a useful BugReport.</b></p>"; } if (strstr($title, "???")) { $title = substr($content, 0, 50); } #-- make page name for bug report $new_id = ewiki_title_to_pagename($title, $ELSE); #-- generate bug page text $new = "This page is part of the {$MAIN} series. Please go there to submit a new bug or to see the list of all existing reports.\n"; if ($m = $_REQUEST["br_notify"]) { $new .= "\n[notify:{$m}]\n"; } $new .= "\n----\n\n" . "!! {$title}\n\n"; foreach ($_REQUEST["i"] as $i => $v) { if ($v != "unknown") { $new .= "| {$i} | {$v} |\n"; } } $new .= "| status | __open__ |\n <?plugin BugReportState ?" . "> \n"; $new .= "\n{$author}: {$content}\n\n"; #-- create new bug report page $data = ewiki_db::CREATE($new_id); $data["content"] = $new; ewiki_db::UPDATE($data); $data["version"] = 1; $ok = ewiki_db::WRITE($data); if (!$ok) { return "<b>Error</b> while creating new bug report page. Please go back and change the title (at least two words required), so we can try again."; } #-- store bugreport entry on main page $data = ewiki_db::GET($MAIN); $list_e = "| __open__ | {$new_id} | {$title} |\n"; $data["content"] = preg_replace("/(\n\\|.+\\|.+\\|\\s*\n)/", "\$1{$list_e}", $data["content"], 1); ewiki_db::UPDATE($data); $data["version"]++; ewiki_db::WRITE($data); if ($notify = function_exists($pf = "ewiki_notify_edit_hook")) { $pf($MAIN, $data, $uu); } #-- append to page output $iii[] = array("\n\n| new bug report [#added \"added\"] as {$new_id} |\n\n", 0xffff, "core"); } else { $url = ewiki_script("", $ewiki_id); $ver = EWIKI_VERSION; $current_vers = "<option>{$ver}"; for ($i = $ver[strlen($ver) - 1] - 1; $i > 0; $i--) { $current_vers .= "<option>" . substr($ver, 0, strlen($ver) - 1) . $i; } $o .= <<<EOT <form style="border:2px #444455 solid; background:#9999aa; padding:5px;"class="BugReport" action="{$url}#added" method="POST" enctype="multipart/form-data"> bug title: <input type="text" name="title" value="???" size="50"> <br/> <br/> YourName: <input type="text" name="author" value="anonymous" size="30"> <br/> <br/> your ewiki version: <select name="i[ewiki version]"><option>unknown<option>other{$current_vers}<option>CVS today<option>CVS yesterday<option>CVS last week<option>two weeks old<option>latest -dev<option>R1.02a<option>R1.01f<option>R1.01e<option>R1.01d<option>R1.01c<option>R1.01b<option>R1.01a</select> plattform: <select name="i[operating system]"><option>unknown<option>other<option>Win4<option>NT (2K,XP)<option>Unix<option>Linux<option>OS X</select> <br/> database: <select name="i[database backend]"><option>unknown<option>mysql<option>db_flat_files<option>db_fast_files<option>anydb: other<option>anydb: pgsql<option>dzf2<option>dba/dbm<option>phpwiki13<option>zip<option>other<option>own</select> php version: <select name="i[php version]"><option>unknown<option>4.0.x<option>4.1.x<option>4.2.x<option>4.3.x<option>4.4/4.5 (CVS)<option>5.0-beta/rc<option>5.0.x<option>CGI/suPHP<option>PHP/FastCGI<option>SafeMode 4.x</select> <br> problem category (vague): <select name="i[bug category]"><option>unknown<option>general<option>feature request<option>get running<option>markup<option>links<option>error message<option>plugin<option>page plugin<option>action plugin<option>auth plugin<option>aview plugin<option>edit plugin<option>feature extension<option>link tweak plugin<option>mpi plugin<option>spages<option>lib extension<option>module plugin<option>db plugin<option>configuration<option>documentation</select> <br/> <br/> long error description:<br /> <textarea name="content" cols="75" rows="8"> </textarea> <br/><br/> <input type="submit" name="br_save" value="create bug page"> <br/> <br/> email notification <input type="text" name="br_notify" value="" size="16"> <br/><small>(opt., only enter if you want get notified on any responses)</small> <br/> </form> EOT; } return $o; }
<?php /* This part writes back the $anacron[] timestamps, so we can keep track of when we run which parts in here. */ #-- update if ($anacron && ANACRON_ID) { echo "[{$cron}]: writing back anacron timestamps\n"; #-- get old $data = ewiki_db::GET(ANACRON_ID) or $data = ewiki_db::CREATE(ANACRON_ID); #-- vars $data["flags"] = EWIKI_DB_F_SYSTEM; ewiki_db::UPDATE($data); $data["lastmodified"] = $anacron["last"] = EWIKI_CRON; $data["content"] = serialize($anacron); #-- overwrite ewiki_db::WRITE($data, 1) or $data["version"]++ && ewiki_db::WRITE($data); }