includes/SpecialBooksources.php

   1 <?php
   2 /**
   3  * ISBNs in wiki pages will create links to this page, with the ISBN passed
   4  * in via the query string.
   5  *
   6  * @package MediaWiki
   7  * @subpackage SpecialPage
   8  */
   9
  10 /**
  11  * Constructor
  12  */
  13 function wfSpecialBooksources( $par ) {
  14         global $wgRequest;
  15
  16         $isbn = $par;
  17         if( empty( $par ) ) {
  18                 $isbn = $wgRequest->getVal( 'isbn' );
  19         }
  20         $isbn = preg_replace( '/[^0-9X]/', '', $isbn );
  21
  22         $bsl = new BookSourceList( $isbn );
  23         $bsl->show();
  24 }
  25
  26 /**
  27  *
  28  * @package MediaWiki
  29  * @subpackage SpecialPage
  30  */
  31 class BookSourceList {
  32         var $mIsbn;
  33
  34         function BookSourceList( $isbn ) {
  35                 $this->mIsbn = $isbn;
  36         }
  37
  38         function show() {
  39                 global $wgOut;
  40
  41                 $wgOut->setPagetitle( wfMsg( "booksources" ) );
  42                 if( $this->mIsbn == '' ) {
  43                         $this->askForm();
  44                 } else {
  45                         $this->showList();
  46                 }
  47         }
  48
  49         function showList() {
  50                 global $wgOut, $wgContLang;
  51                 $fname = "BookSourceList::showList()";
  52
  53                 # First, see if we have a custom list setup in
  54                 # [[Wikipedia:Book sources]] or equivalent.
  55                 $bstitle = Title::makeTitleSafe( NS_PROJECT, wfMsg( "booksources" ) );
  56                 if( $bstitle ) {
  57                         $revision = Revision::newFromTitle( $bstitle );
  58                         if( $revision ) {
  59                                 $bstext = $revision->getText();
  60                                 if( $bstext ) {
  61                                         $bstext = str_replace( "MAGICNUMBER", $this->mIsbn, $bstext );
  62                                         $wgOut->addWikiText( $bstext );
  63                                         return;
  64                                 }
  65                         }
  66                 }
  67
  68                 # Otherwise, use the list of links in the default Language.php file.
  69                 $s = wfMsgWikiHtml( 'booksourcetext' ) . "<ul>\n";
  70                 $bs = $wgContLang->getBookstoreList() ;
  71                 $bsn = array_keys ( $bs ) ;
  72                 foreach ( $bsn as $name ) {
  73                         $adr = $bs[$name] ;
  74                         if ( ! $this->mIsbn ) {
  75                                 $adr = explode( ":" , $adr , 2 );
  76                                 $adr = explode( "/" , $adr[1] );
  77                                 $a = "";
  78                                 while ( $a == "" ) {
  79                                         $a = array_shift( $adr );
  80                                 }
  81                                 $adr = "http://".$a ;
  82                         } else {
  83                                 $adr = str_replace ( "$1" , $this->mIsbn , $adr ) ;
  84                         }
  85                         $name = htmlspecialchars( $name );
  86                         $adr = htmlspecialchars( $adr );
  87                         $s .= "<li><a href=\"{$adr}\" class=\"external\">{$name}</a></li>\n" ;
  88                 }
  89                 $s .= "</ul>\n";
  90
  91                 $wgOut->addHTML( $s );
  92         }
  93
  94         function askForm() {
  95                 global $wgOut, $wgTitle;
  96                 $fname = "BookSourceList::askForm()";
  97
  98                 $action = $wgTitle->escapeLocalUrl();
  99                 $isbn = htmlspecialchars( wfMsg( "isbn" ) );
 100                 $go = htmlspecialchars( wfMsg( "go" ) );
 101                 $out = "<form action=\"$action\" method='post'>
 102                         $isbn: <input name='isbn' id='isbn' />
 103                         <input type='submit' value=\"$go\" />
 104                 </form>";
 105                 $wgOut->addHTML( $out );
 106         }
 107 }
 108
 109 ?>