|
|
| (11 intermediate revisions by the same user not shown) |
| Line 1: |
Line 1: |
| − | ==Requires==
| + | {{to wooz|MakePage}} |
| − | [[User:Woozle/StringTemplate.php|StringTemplate.php]]
| |
| − | ==Code==
| |
| − | <php><?php
| |
| − | /*
| |
| − | NAME: SpecialMakePage
| |
| − | PURPOSE: Special page for creating a new page from a form
| |
| − | Other extensions can do this, but they don't make it at all easy
| |
| − | to base the title on variables which are substituted from fields on the form.
| |
| − | AUTHOR: Woozle Staddon
| |
| − | VERSION:
| |
| − | 2007-11-23 (Wzl) Writing started
| |
| − | 2007-11-24 (Wzl) More or less working; doesn't work with _POST data,
| |
| − | and I don't understand why not.
| |
| − | 2007-11-29 (Wzl) Adding variable for defining new title name
| |
| − | 2008-01-22 (Wzl) Put in some friendly debugging text for when title can't be created
| |
| − | 2008-06-25 (Wzl) Added "!TIMESTAMP" internal variable, and framework for adding more internal variables
| |
| − | Future: If it ever turns out that we really want to be able to base these on the contents of a page,
| |
| − | I suggest a syntax like <<@page_name>>. The page would need to be parsed in some cases but possibly
| |
| − | not in others; perhaps <<@@page_name>> to indicate the page should be parsed?
| |
| − | 2008-07-24 (Wzl) Minor tweak so it will work with MW v1.12
| |
| − | 2008-09-29 (Wzl) - 0.4 - Made keys case-insensitive so it would work again. Don't know why this is suddenly a problem.
| |
| − | 2009-02-11 (Wzl) clsStringTemplate is now in a separate php file
| |
| − | 2009-02-13 (Wzl) $wgOptCP_SubstFinish "]" -> "$]" so links and other bracketed stuff don't confuse the var parser
| |
| − | 2009-02-26 (Wzl) - 0.5 - "$objNewEdit->action = 'submit';" before "->showEditForm()" fixes MW 1.14 problem
| |
| − | 2009-03-30 (Wzl) - 0.6 - removed unused value $wgOptCP_SubstSetVal
| |
| − | */
| |
| − | require_once('StringTemplate.php');
| |
| − | | |
| − | $wgSpecialPages['MakePage'] = 'SpecialMakePage'; # Let MediaWiki know about your new special page.
| |
| − | $wgExtensionCredits['other'][] = array(
| |
| − | 'name' => 'Special:MakePage',
| |
| − | 'url' => 'http://htyp.org/MediaWiki/Special/MakePage',
| |
| − | 'description' => 'special page for making new pages using form data plus a template',
| |
| − | 'author' => 'Woozle (Nick) Staddon',
| |
| − | 'version' => '0.6 2009-03-30'
| |
| − | );
| |
| − | | |
| − | // Options which can be overridden in LocalSettings:
| |
| − | // -- these strings indicate the start and end of a template variable name
| |
| − | /* old defaults
| |
| − | $wgOptCP_SubstStart = '<<';
| |
| − | $wgOptCP_SubstFinish = '>>';
| |
| − | */
| |
| − | $wgOptCP_SubstStart = '[$';
| |
| − | $wgOptCP_SubstFinish = '$]';
| |
| − | | |
| − | function wfSpecialMakePage() {
| |
| − | // This registers the page's class. I think.
| |
| − | global $wgRequest;
| |
| − | | |
| − | $app = new SpecialMakePage($wgRequest);
| |
| − | | |
| − | $app->doCreate();
| |
| − | }
| |
| − | | |
| − | require_once( $wgScriptPath.'includes/SpecialPage.php' );
| |
| − | require_once( $wgScriptPath.'includes/EditPage.php' );
| |
| − | | |
| − | class SpecialMakePage extends SpecialPage {
| |
| − | public function __construct() {
| |
| − | global $wgMessageCache;
| |
| − | | |
| − | SpecialPage::SpecialPage( 'MakePage','edit' );
| |
| − | $this->includable( true );
| |
| − | $wgMessageCache->addMessage('makepage', 'Make new pages from form data');
| |
| − | }
| |
| − | public function doCreate() {
| |
| − | global $wgRequest, $wgOut, $wgTitle;
| |
| − | global $wgOptCP_SubstStart;
| |
| − | global $wgOptCP_SubstFinish;
| |
| − | global $wgErrorText;
| |
| − | global $wxgDebug;
| |
| − | | |
| − | $this->setHeaders();
| |
| − | // $in_linkdate = $wgRequest->getText('date'); // link's date string
| |
| − | //$in_newtitle = $wgRequest->getText('!TITLE'); // title for new/modified page
| |
| − | $strNewTitle = $wgRequest->getText('!TITLETPLT'); // template for new page's title
| |
| − | $in_tpltpg = $wgRequest->getText('!TPLTPAGE'); // page to use as a template
| |
| − | $in_tplttxt = $wgRequest->getText('!TPLTTEXT'); // text to use as a template
| |
| − | $strDataStart = $wgRequest->getText('!TPLTSTART'); // optional starting marker
| |
| − | $strDataStop = $wgRequest->getText('!TPLTSTOP'); // optional stopping marker
| |
| − | $referer = $_SERVER['HTTP_REFERER']; // name of page which sent the form data
| |
| − | // $strNewTitle = $in_linkdate.' '.$in_newtitle;
| |
| − | // $strNewTitleTest = '<<date>> <<pagetitle>>'; // debug
| |
| − | // $in_NewTitle = $wgRequest->getText('tplttext'); // text to use as a template
| |
| − | | |
| − | // get the text to be used as a template:
| |
| − | if ($in_tpltpg) {
| |
| − | // if it's a page, load that (overrules direct specification):
| |
| − | $objTplt = Title::newFromText($in_tpltpg);
| |
| − | $objArtcl = new Article($objTplt);
| |
| − | $strNewText = $objArtcl->getContent();
| |
| − | } else {
| |
| − | $strNewText = $in_tplttxt;
| |
| − | }
| |
| − | // truncate before/after markers, if any:
| |
| − | if ($strDataStop != '') {
| |
| − | $posSt = strpos ( $strNewText, $strDataStop );
| |
| − | if ($posSt !== FALSE) {
| |
| − | $strNewText = substr($strNewText,0,$posSt);
| |
| − | }
| |
| − | }
| |
| − | if ($strDataStart != '') {
| |
| − | $posSt = strpos ( $strNewText, $strDataStart );
| |
| − | if ($posSt !== FALSE) {
| |
| − | $strNewText = substr($strNewText,$posSt+strlen($strDataStart));
| |
| − | }
| |
| − | }
| |
| − | | |
| − | // do variable swapout:
| |
| − | $objTplt = new clsStringTemplate_MWRequest($wgOptCP_SubstStart,$wgOptCP_SubstFinish);
| |
| − | // calculate contents for new page
| |
| − | $objTplt->Value = $strNewText;
| |
| − | $strNewText = $objTplt->Replace();
| |
| − | /*
| |
| − | $wgOut->AddWikiText('<br>TEXT REPLACEMENT:');
| |
| − | $wgOut->AddWikiText($wxgDebug);
| |
| − | $wxgDebug = '';
| |
| − | */
| |
| − | // calculate title for new page
| |
| − | $strOldTitle = $strNewTitle;
| |
| − | $objTplt->Value = $strOldTitle;
| |
| − | $strNewTitle = $objTplt->Replace();
| |
| − | /*
| |
| − | $wgOut->AddWikiText("\n* START: [$wgOptCP_SubstStart] : STOP: [$wgOptCP_SubstFinish]");
| |
| − | $wgOut->AddWikiText("\n* TITLE REPLACEMENT [$strOldTitle]->[$strNewTitle]:");
| |
| − | $wgOut->AddWikiText($wxgDebug);
| |
| − | $wxgDebug = '';
| |
| − | /**/
| |
| − | $wgOut->setPageTitle( $strNewTitle );
| |
| − | /*
| |
| − | 2008-01-22 For future reference: we might want to just remove any characters not found in $wgLegalTitleChars (=Title::legalChars())
| |
| − | Sometimes CRs or TABs get pasted invisibly into the title, causing mysterious inability to create the page.
| |
| − | */
| |
| − | $objNewTitle = Title::newFromText( $strNewTitle );
| |
| − | | |
| − | /*
| |
| − | // Debugging:
| |
| − | $wgOut->AddWikiText("GET DATA:");
| |
| − | foreach ($_GET AS $key => $value) {
| |
| − | $wgOut->AddWikiText("'''$key''': $value<br>");
| |
| − | }
| |
| − | | |
| − | $wgOut->AddWikiText("POST DATA:");
| |
| − | foreach ($_POST AS $key => $value) {
| |
| − | $wgOut->AddWikiText("'''$key''': $value<br>");
| |
| − | }
| |
| − | $wgOut->AddWikiText("--END--");
| |
| − | /**/
| |
| − | | |
| − | $doPreview = true; // always preview, for now
| |
| − | if ($doPreview) {
| |
| − | if (is_object($objNewTitle)) {
| |
| − | $objNewArticle = new Article($objNewTitle);
| |
| − | $objNewArticle->mContent = $strNewText;
| |
| − | $objNewEdit = new EditOtherPage($objNewArticle);
| |
| − | $strNewTitle_check = $objNewEdit->mTitle->getPrefixedText();
| |
| − | // $strNewTitle_check = $objNewTitle->getPrefixedText();
| |
| − | // $strNewTitle_check = $objNewArticle->mTitle->getPrefixedText();
| |
| − | $wgOut->AddWikiText("'''New Title''': [[$strNewTitle_check]]<br>'''Template''': [[$in_tpltpg]]<br>");
| |
| − | $wgOut->AddWikiText("'''Preview''': <hr>\n$strNewText<hr>");
| |
| − |
| |
| − | // $wgOut->AddHTML($objNewEdit->getPreviewText());
| |
| − | $objNewEdit->textbox1 = $strNewText;
| |
| − | $objNewEdit->preview = true;
| |
| − | // $objNewEdit->edit();
| |
| − | $wgOut->AddWikiText("'''Make final changes to the text here, and save to create the page:'''");
| |
| − | $wgTitle = $objNewTitle; // make the form post to the page we want to create
| |
| − | $objNewEdit->action = 'submit';
| |
| − | $objNewEdit->showEditForm('new page from form at '.$referer);
| |
| − | } else {
| |
| − | $txtOut = 'There seems to be a problem with the title: [['.$strNewTitle.']]';
| |
| − | if ($wgErrorText) {
| |
| − | $txtOut .= ': ' . $wgErrorText;
| |
| − | }
| |
| − | $txtOut .= "\n\n".$wxgDebug;
| |
| − | $wgOut->AddWikiText($txtOut);
| |
| − | }
| |
| − | } else {
| |
| − | $objNewArticle->doEdit( $strNewText, 'new page from form at '.$referer, EDIT_NEW );
| |
| − | }
| |
| − | $wgOut->returnToMain( false );
| |
| − | }
| |
| − | }
| |
| − | | |
| − | class EditOtherPage extends EditPage {
| |
| − | function EditOtherPage( $article ) {
| |
| − | $this->mArticle =& $article;
| |
| − | $this->mTitle =& $article->mTitle;
| |
| − | | |
| − | # Placeholders for text injection by hooks (empty per default)
| |
| − | $this->editFormPageTop =
| |
| − | $this->editFormTextTop =
| |
| − | $this->editFormTextAfterWarn =
| |
| − | $this->editFormTextAfterTools =
| |
| − | $this->editFormTextBottom = "";
| |
| − | }
| |
| − | /* private function getContent() {
| |
| − | // content already loaded by SetParams, so do nothing
| |
| − | }
| |
| − | function initialiseForm() {
| |
| − | // overrides parent
| |
| − | $this->edittime = $this->mArticle->getTimestamp();
| |
| − | $this->textbox1 = $this->getContent();
| |
| − | if ( !$this->mArticle->exists() && $this->mArticle->mTitle->getNamespace() == NS_MEDIAWIKI )
| |
| − | $this->textbox1 = wfMsgWeirdKey( $this->mArticle->mTitle->getText() ) ;
| |
| − | wfProxyCheck();
| |
| − | }
| |
| − | */
| |
| − | function showEditForm($iSummary='') {
| |
| − | if ($iSummary) {
| |
| − | $this->summary = $iSummary;
| |
| − | }
| |
| − | parent::showEditForm();
| |
| − | }
| |
| − | }
| |
| − | | |
| − | class clsStringTemplate_array extends clsStringTemplate {
| |
| − | // This version can be used if the values are in an associative array
| |
| − | public $List;
| |
| − | | |
| − | protected function GetValue($iName) {
| |
| − | return $this->List[$iName];
| |
| − | }
| |
| − | }
| |
| − | | |
| − | class clsStringTemplate_MWRequest extends clsStringTemplate {
| |
| − | // This version is for $wgRequest in MediaWiki code
| |
| − | private $Keys;
| |
| − | | |
| − | function __construct($iStartMark, $iFinishMark) {
| |
| − | parent::__construct($iStartMark, $iFinishMark);
| |
| − |
| |
| − | foreach ($_POST AS $key => $value) {
| |
| − | $strKey = strtolower($key);
| |
| − | $this->Keys[$strKey] = $key;
| |
| − | }
| |
| − | }
| |
| − | protected function GetValue($iName) {
| |
| − | global $wgRequest, $wxgDebug;
| |
| − | | |
| − | $wxgDebug .= '* ['.$iName.'] = ';
| |
| − | switch ($iName) {
| |
| − | case '!TIMESTAMP':
| |
| − | $strFmt = $this->GetValue('!TIMEFMT');
| |
| − | //$strFmt = $wgRequest->getText('!TIMEFMT');
| |
| − | if ($strFmt == '') {
| |
| − | $strNow = 'must specify !TIMEFMT';
| |
| − | } else {
| |
| − | $strNow = date($strFmt);
| |
| − | }
| |
| − | $strOut = $strNow;
| |
| − | break;
| |
| − | default:
| |
| − | // $strVal = $wgRequest->getText($iName);
| |
| − | // if ($strVal == '') {
| |
| − | $strName = strtolower($iName);
| |
| − | $strKey = $this->Keys[$strName];
| |
| − | $strVal = $_POST[$strKey];
| |
| − | // }
| |
| − | $strOut = $strVal;
| |
| − | break;
| |
| − | }
| |
| − | $wxgDebug .= '['.$strOut.']';
| |
| − | return $strOut;
| |
| − | }
| |
| − | }</php> | |
This page has been moved to wooz.dev, User:Woozle's coding site.