Difference between revisions of "MediaWiki/extension/Special/MakePage"

from HTYP, the free directory anyone can edit if they can prove to me that they're not a spambot
Jump to navigation Jump to search
m (Reverted edits by 173.30.75.163 (Talk) to last revision by Woozle)
m (Woozle moved page MediaWiki/extensions/Special/MakePage to MediaWiki/extension/Special/MakePage: The Diagram is telling me how to reorganize this. Must obey The Diagram.)
 
(14 intermediate revisions by 2 users not shown)
Line 1: Line 1:
==Overview==
+
{{to wooz|MakePage}}
''to be written''
 
==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>
 

Latest revision as of 20:04, 1 May 2022

Wooz-dev-logo.take 1.crop.1200pxw.png This page has been moved to wooz.dev, User:Woozle's coding site.