495 lines
		
	
	
		
			16 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
			
		
		
	
	
			495 lines
		
	
	
		
			16 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
<?php
 | 
						|
/*
 | 
						|
 * Name: Simple Wiki
 | 
						|
 * Author: Shish <webmaster@shishnet.org>
 | 
						|
 * License: GPLv2
 | 
						|
 * Description: A simple wiki, for those who don't want the hugeness of mediawiki
 | 
						|
 * Documentation:
 | 
						|
 *  Standard formatting APIs are used (This will be BBCode by default)
 | 
						|
 */
 | 
						|
 | 
						|
class WikiUpdateEvent extends Event {
 | 
						|
	var $user;
 | 
						|
	var $wikipage;
 | 
						|
 | 
						|
	public function WikiUpdateEvent(User $user, WikiPage $wikipage) {
 | 
						|
		$this->user = $user;
 | 
						|
		$this->wikipage = $wikipage;
 | 
						|
	}
 | 
						|
}
 | 
						|
 | 
						|
class WikiUpdateException extends SCoreException {
 | 
						|
}
 | 
						|
 | 
						|
class WikiPage {
 | 
						|
	var $id;
 | 
						|
	var $owner_id;
 | 
						|
	var $owner_ip;
 | 
						|
	var $date;
 | 
						|
	var $title;
 | 
						|
	var $revision;
 | 
						|
	var $locked;
 | 
						|
	var $body;
 | 
						|
 | 
						|
	public function WikiPage($row) {
 | 
						|
		assert(!empty($row));
 | 
						|
 | 
						|
		$this->id = $row['id'];
 | 
						|
		$this->owner_id = $row['owner_id'];
 | 
						|
		$this->owner_ip = $row['owner_ip'];
 | 
						|
		$this->date = $row['date'];
 | 
						|
		$this->title = $row['title'];
 | 
						|
		$this->revision = $row['revision'];
 | 
						|
		$this->locked = ($row['locked'] == 'Y');
 | 
						|
		$this->body = $row['body'];
 | 
						|
	}
 | 
						|
 | 
						|
	public function get_owner() {
 | 
						|
		return User::by_id($this->owner_id);
 | 
						|
	}
 | 
						|
 | 
						|
	public function is_locked() {
 | 
						|
		return $this->locked;
 | 
						|
	}
 | 
						|
}
 | 
						|
 | 
						|
class Wiki extends SimpleExtension {
 | 
						|
	public function onInitExt($event) {
 | 
						|
		global $database;
 | 
						|
		global $config;
 | 
						|
 | 
						|
		if($config->get_int("ext_wiki_version", 0) < 1) {
 | 
						|
			$database->create_table("wiki_pages", "
 | 
						|
				id SCORE_AIPK,
 | 
						|
				owner_id INTEGER NOT NULL,
 | 
						|
				owner_ip SCORE_INET NOT NULL,
 | 
						|
				date DATETIME DEFAULT NULL,
 | 
						|
				title VARCHAR(255) NOT NULL,
 | 
						|
				revision INTEGER NOT NULL DEFAULT 1,
 | 
						|
				locked SCORE_BOOL NOT NULL DEFAULT SCORE_BOOL_N,
 | 
						|
				body TEXT NOT NULL,
 | 
						|
				UNIQUE (title, revision),
 | 
						|
				FOREIGN KEY (owner_id) REFERENCES users(id) ON DELETE CASCADE
 | 
						|
			");
 | 
						|
			$config->set_int("ext_wiki_version", 2);
 | 
						|
		}
 | 
						|
		if($config->get_int("ext_wiki_version") < 2) {
 | 
						|
			$database->Execute("ALTER TABLE wiki_pages ADD COLUMN
 | 
						|
				locked ENUM('Y', 'N') DEFAULT 'N' NOT NULL AFTER REVISION");
 | 
						|
			$config->set_int("ext_wiki_version", 2);
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	public function onPageRequest($event) {
 | 
						|
		global $config, $page, $user;
 | 
						|
		if($event->page_matches("wiki")) {
 | 
						|
			if(is_null($event->get_arg(0)) || strlen(trim($event->get_arg(0))) == 0) {
 | 
						|
				$title = "Index";
 | 
						|
			}
 | 
						|
			else {
 | 
						|
				$title = $event->get_arg(0);
 | 
						|
			}
 | 
						|
 | 
						|
			$content = $this->get_page($title);
 | 
						|
			$this->theme->display_page($page, $content, $this->get_page("wiki:sidebar"));
 | 
						|
		}
 | 
						|
		else if($event->page_matches("wiki_admin/edit")) {
 | 
						|
			$content = $this->get_page($_POST['title']);
 | 
						|
			$this->theme->display_page_editor($page, $content);
 | 
						|
		}
 | 
						|
		else if($event->page_matches("wiki_admin/save")) {
 | 
						|
			$title = $_POST['title'];
 | 
						|
			$rev = int_escape($_POST['revision']);
 | 
						|
			$body = $_POST['body'];
 | 
						|
			$lock = $user->is_admin() && isset($_POST['lock']) && ($_POST['lock'] == "on");
 | 
						|
 | 
						|
			if($this->can_edit($user, $this->get_page($title))) {
 | 
						|
				$wikipage = $this->get_page($title);
 | 
						|
				$wikipage->rev = $rev;
 | 
						|
				$wikipage->body = $body;
 | 
						|
				$wikipage->locked = $lock;
 | 
						|
				try {
 | 
						|
					send_event(new WikiUpdateEvent($user, $wikipage));
 | 
						|
 | 
						|
					$u_title = url_escape($title);
 | 
						|
					$page->set_mode("redirect");
 | 
						|
					$page->set_redirect(make_link("wiki/$u_title"));
 | 
						|
				}
 | 
						|
				catch(WikiUpdateException $e) {
 | 
						|
					$original = $this->get_page($title);
 | 
						|
					// @ because arr_diff is full of warnings
 | 
						|
					$original->body = @$this->arr_diff(
 | 
						|
							explode("\n", $original->body),
 | 
						|
							explode("\n", $wikipage->body)
 | 
						|
					);
 | 
						|
					$this->theme->display_page_editor($page, $original);
 | 
						|
				}
 | 
						|
			}
 | 
						|
			else {
 | 
						|
				$this->theme->display_permission_denied($page);
 | 
						|
			}
 | 
						|
		}
 | 
						|
		else if($event->page_matches("wiki_admin/delete_revision")) {
 | 
						|
			if($user->is_admin()) {
 | 
						|
				global $database;
 | 
						|
				$database->Execute(
 | 
						|
						"DELETE FROM wiki_pages WHERE title=:title AND revision=:rev",
 | 
						|
						array("title"=>$_POST["title"], "rev"=>$_POST["revision"]));
 | 
						|
				$u_title = url_escape($_POST["title"]);
 | 
						|
				$page->set_mode("redirect");
 | 
						|
				$page->set_redirect(make_link("wiki/$u_title"));
 | 
						|
			}
 | 
						|
		}
 | 
						|
		else if($event->page_matches("wiki_admin/delete_all")) {
 | 
						|
			if($user->is_admin()) {
 | 
						|
				global $database;
 | 
						|
				$database->Execute(
 | 
						|
						"DELETE FROM wiki_pages WHERE title=:title",
 | 
						|
						array("title"=>$_POST["title"]));
 | 
						|
				$u_title = url_escape($_POST["title"]);
 | 
						|
				$page->set_mode("redirect");
 | 
						|
				$page->set_redirect(make_link("wiki/$u_title"));
 | 
						|
			}
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	public function onWikiUpdate($event) {
 | 
						|
		global $database;
 | 
						|
		$wpage = $event->wikipage;
 | 
						|
		try {
 | 
						|
			$row = $database->Execute("
 | 
						|
				INSERT INTO wiki_pages(owner_id, owner_ip, date, title, revision, locked, body)
 | 
						|
				VALUES (?, ?, now(), ?, ?, ?, ?)", array($event->user->id, $_SERVER['REMOTE_ADDR'],
 | 
						|
				$wpage->title, $wpage->rev, $wpage->locked?'Y':'N', $wpage->body));
 | 
						|
		}
 | 
						|
		catch(Exception $e) {
 | 
						|
			throw new WikiUpdateException("Somebody else edited that page at the same time :-(");
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	public function onSetupBuilding($event) {
 | 
						|
		$sb = new SetupBlock("Wiki");
 | 
						|
		$sb->add_bool_option("wiki_edit_anon", "Allow anonymous edits: ");
 | 
						|
		$sb->add_bool_option("wiki_edit_user", "<br>Allow user edits: ");
 | 
						|
		$event->panel->add_block($sb);
 | 
						|
	}
 | 
						|
 | 
						|
	/**
 | 
						|
	 * See if the given user is allowed to edit the given page
 | 
						|
	 *
 | 
						|
	 * @retval boolean
 | 
						|
	 */
 | 
						|
	public static function can_edit(User $user, WikiPage $page) {
 | 
						|
		global $config;
 | 
						|
 | 
						|
		// admins can edit everything
 | 
						|
		if($user->is_admin()) return true;
 | 
						|
 | 
						|
		// anon / user can't ever edit locked pages
 | 
						|
		if($page->is_locked()) return false;
 | 
						|
 | 
						|
		// anon / user can edit if allowed by config
 | 
						|
		if($config->get_bool("wiki_edit_anon", false) && $user->is_anonymous()) return true;
 | 
						|
		if($config->get_bool("wiki_edit_user", false) && !$user->is_anonymous()) return true;
 | 
						|
 | 
						|
		return false;
 | 
						|
	}
 | 
						|
 | 
						|
	private function get_page($title, $revision=-1) {
 | 
						|
		global $database;
 | 
						|
		// first try and get the actual page
 | 
						|
		$row = $database->get_row("
 | 
						|
				SELECT *
 | 
						|
				FROM wiki_pages
 | 
						|
				WHERE title LIKE :title
 | 
						|
				ORDER BY revision DESC",
 | 
						|
				array("title"=>$title));
 | 
						|
 | 
						|
		// fall back to wiki:default
 | 
						|
		if(empty($row)) {
 | 
						|
			$row = $database->get_row("
 | 
						|
					SELECT *
 | 
						|
					FROM wiki_pages
 | 
						|
					WHERE title LIKE :title
 | 
						|
					ORDER BY revision DESC", array("title"=>"wiki:default"));
 | 
						|
 | 
						|
			// fall further back to manual
 | 
						|
			if(empty($row)) {
 | 
						|
				$row = array(
 | 
						|
					"id" => -1,
 | 
						|
					"owner_ip" => "0.0.0.0",
 | 
						|
					"date" => "",
 | 
						|
					"revision" => 0,
 | 
						|
					"locked" => false,
 | 
						|
					"body" => "This is a default page for when a page is empty, ".
 | 
						|
						"it can be edited by editing [[wiki:default]].",
 | 
						|
				);
 | 
						|
			}
 | 
						|
 | 
						|
			// correct the default
 | 
						|
			global $config;
 | 
						|
			$row["title"] = $title;
 | 
						|
			$row["owner_id"] = $config->get_int("anon_id", 0);
 | 
						|
		}
 | 
						|
 | 
						|
		assert(!empty($row));
 | 
						|
 | 
						|
		return new WikiPage($row);
 | 
						|
	}
 | 
						|
 | 
						|
// php-diff {{{
 | 
						|
    /** 
 | 
						|
        Diff implemented in pure php, written from scratch. 
 | 
						|
        Copyright (C) 2003  Daniel Unterberger <diff.phpnet@holomind.de> 
 | 
						|
            
 | 
						|
        This program is free software; you can redistribute it and/or 
 | 
						|
        modify it under the terms of the GNU General Public License 
 | 
						|
        as published by the Free Software Foundation; either version 2 
 | 
						|
        of the License, or (at your option) any later version. 
 | 
						|
         
 | 
						|
        This program is distributed in the hope that it will be useful, 
 | 
						|
        but WITHOUT ANY WARRANTY; without even the implied warranty of 
 | 
						|
        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
 | 
						|
        GNU General Public License for more details. 
 | 
						|
         
 | 
						|
        You should have received a copy of the GNU General Public License 
 | 
						|
        along with this program; if not, write to the Free Software 
 | 
						|
        Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. 
 | 
						|
         
 | 
						|
        http://www.gnu.org/licenses/gpl.html 
 | 
						|
 | 
						|
        About: 
 | 
						|
        I searched a function to compare arrays and the array_diff() 
 | 
						|
        was not specific enough. It ignores the order of the array-values. 
 | 
						|
        So I reimplemented the diff-function which is found on unix-systems 
 | 
						|
        but this you can use directly in your code and adopt for your needs. 
 | 
						|
        Simply adopt the formatline-function. with the third-parameter of arr_diff() 
 | 
						|
        you can hide matching lines. Hope someone has use for this. 
 | 
						|
 | 
						|
        Contact: d.u.diff@holomind.de <daniel unterberger> 
 | 
						|
    **/ 
 | 
						|
 | 
						|
    private function arr_diff( $f1 , $f2 , $show_equal = 0 ) 
 | 
						|
    { 
 | 
						|
 | 
						|
        $c1         = 0 ;                   # current line of left 
 | 
						|
        $c2         = 0 ;                   # current line of right 
 | 
						|
        $max1       = count( $f1 ) ;        # maximal lines of left 
 | 
						|
        $max2       = count( $f2 ) ;        # maximal lines of right 
 | 
						|
        $outcount   = 0;                    # output counter 
 | 
						|
        $hit1       = "" ;                  # hit in left 
 | 
						|
        $hit2       = "" ;                  # hit in right 
 | 
						|
		$stop       = 0;
 | 
						|
		$out        = "";
 | 
						|
 | 
						|
        while (  
 | 
						|
                $c1 < $max1                 # have next line in left 
 | 
						|
                and                  
 | 
						|
                $c2 < $max2                 # have next line in right 
 | 
						|
                and  
 | 
						|
                ($stop++) < 1000            # don-t have more then 1000 ( loop-stopper ) 
 | 
						|
                and  
 | 
						|
                $outcount < 20              # output count is less then 20 
 | 
						|
              ) 
 | 
						|
        { 
 | 
						|
            /** 
 | 
						|
            *   is the trimmed line of the current left and current right line 
 | 
						|
            *   the same ? then this is a hit (no difference) 
 | 
						|
            */   
 | 
						|
            if ( trim( $f1[$c1] ) == trim ( $f2[$c2])  )     
 | 
						|
            { 
 | 
						|
                /** 
 | 
						|
                *   add to output-string, if "show_equal" is enabled 
 | 
						|
                */ 
 | 
						|
                $out    .= ($show_equal==1)  
 | 
						|
                         ?  formatline ( ($c1) , ($c2), "=", $f1[ $c1 ] )  
 | 
						|
                         : "" ; 
 | 
						|
                /** 
 | 
						|
                *   increase the out-putcounter, if "show_equal" is enabled 
 | 
						|
                *   this ist more for demonstration purpose 
 | 
						|
                */ 
 | 
						|
                if ( $show_equal == 1 )   
 | 
						|
                {  
 | 
						|
                    $outcount++ ;  
 | 
						|
                } 
 | 
						|
                 
 | 
						|
                /** 
 | 
						|
                *   move the current-pointer in the left and right side 
 | 
						|
                */ 
 | 
						|
                $c1 ++; 
 | 
						|
                $c2 ++; 
 | 
						|
            } 
 | 
						|
 | 
						|
            /** 
 | 
						|
            *   the current lines are different so we search in parallel 
 | 
						|
            *   on each side for the next matching pair, we walk on both  
 | 
						|
            *   sided at the same time comparing with the current-lines 
 | 
						|
            *   this should be most probable to find the next matching pair 
 | 
						|
            *   we only search in a distance of 10 lines, because then it 
 | 
						|
            *   is not the same function most of the time. other algos 
 | 
						|
            *   would be very complicated, to detect 'real' block movements. 
 | 
						|
            */ 
 | 
						|
            else 
 | 
						|
            { 
 | 
						|
                 
 | 
						|
                $b      = "" ; 
 | 
						|
                $s1     = 0  ;      # search on left 
 | 
						|
                $s2     = 0  ;      # search on right 
 | 
						|
                $found  = 0  ;      # flag, found a matching pair 
 | 
						|
                $b1     = "" ;       
 | 
						|
                $b2     = "" ; 
 | 
						|
                $fstop  = 0  ;      # distance of maximum search 
 | 
						|
 | 
						|
                #fast search in on both sides for next match. 
 | 
						|
                while (  
 | 
						|
                        $found == 0             # search until we find a pair 
 | 
						|
                        and  
 | 
						|
                        ( $c1 + $s1 <= $max1 )  # and we are inside of the left lines 
 | 
						|
                        and  
 | 
						|
                        ( $c2 + $s2 <= $max2 )  # and we are inside of the right lines 
 | 
						|
                        and      
 | 
						|
                        $fstop++  < 10          # and the distance is lower than 10 lines 
 | 
						|
                      ) 
 | 
						|
                { 
 | 
						|
 | 
						|
                    /** 
 | 
						|
                    *   test the left side for a hit 
 | 
						|
                    * 
 | 
						|
                    *   comparing current line with the searching line on the left 
 | 
						|
                    *   b1 is a buffer, which collects the line which not match, to  
 | 
						|
                    *   show the differences later, if one line hits, this buffer will 
 | 
						|
                    *   be used, else it will be discarded later 
 | 
						|
                    */ 
 | 
						|
                    #hit 
 | 
						|
                    if ( trim( $f1[$c1+$s1] ) == trim( $f2[$c2] )  ) 
 | 
						|
                    { 
 | 
						|
                        $found  = 1   ;     # set flag to stop further search 
 | 
						|
                        $s2     = 0   ;     # reset right side search-pointer 
 | 
						|
                        $c2--         ;     # move back the current right, so next loop hits 
 | 
						|
                        $b      = $b1 ;     # set b=output (b)uffer 
 | 
						|
                    } 
 | 
						|
                    #no hit: move on 
 | 
						|
                    else 
 | 
						|
                    { 
 | 
						|
                        /** 
 | 
						|
                        *   prevent finding a line again, which would show wrong results 
 | 
						|
                        * 
 | 
						|
                        *   add the current line to leftbuffer, if this will be the hit 
 | 
						|
                        */ 
 | 
						|
                        if ( $hit1[ ($c1 + $s1) . "_" . ($c2) ] != 1 ) 
 | 
						|
                        {    
 | 
						|
                            /** 
 | 
						|
                            *   add current search-line to diffence-buffer 
 | 
						|
                            */ 
 | 
						|
                            $b1  .= $this->formatline( ($c1 + $s1) , ($c2), "-", $f1[ $c1+$s1 ] ); 
 | 
						|
 | 
						|
                            /** 
 | 
						|
                            *   mark this line as 'searched' to prevent doubles.  
 | 
						|
                            */ 
 | 
						|
                            $hit1[ ($c1 + $s1) . "_" . $c2 ] = 1 ; 
 | 
						|
                        } 
 | 
						|
                    } 
 | 
						|
 | 
						|
 | 
						|
 | 
						|
                    /** 
 | 
						|
                    *   test the right side for a hit 
 | 
						|
                    * 
 | 
						|
                    *   comparing current line with the searching line on the right 
 | 
						|
                    */ 
 | 
						|
                    if ( trim ( $f1[$c1] ) == trim ( $f2[$c2+$s2])  ) 
 | 
						|
                    { 
 | 
						|
                        $found  = 1   ;     # flag to stop search 
 | 
						|
                        $s1     = 0   ;     # reset pointer for search 
 | 
						|
                        $c1--         ;     # move current line back, so we hit next loop 
 | 
						|
                        $b      = $b2 ;     # get the buffered difference 
 | 
						|
                    } 
 | 
						|
                    else 
 | 
						|
                    {    
 | 
						|
                        /** 
 | 
						|
                        *   prevent to find line again 
 | 
						|
                        */ 
 | 
						|
                        if ( $hit2[ ($c1) . "_" . ( $c2 + $s2) ] != 1 ) 
 | 
						|
                        { 
 | 
						|
                            /** 
 | 
						|
                            *   add current searchline to buffer 
 | 
						|
                            */ 
 | 
						|
                            $b2   .= $this->formatline ( ($c1) , ($c2 + $s2), "+", $f2[ $c2+$s2 ] ); 
 | 
						|
 | 
						|
                            /** 
 | 
						|
                            *   mark current line to prevent double-hits 
 | 
						|
                            */ 
 | 
						|
                            $hit2[ ($c1) . "_" . ($c2 + $s2) ] = 1; 
 | 
						|
                        } 
 | 
						|
 | 
						|
                     } 
 | 
						|
 | 
						|
                    /** 
 | 
						|
                    *   search in bigger distance 
 | 
						|
                    * 
 | 
						|
                    *   increase the search-pointers (satelites) and try again 
 | 
						|
                    */ 
 | 
						|
                    $s1++ ;     # increase left  search-pointer 
 | 
						|
                    $s2++ ;     # increase right search-pointer   
 | 
						|
                } 
 | 
						|
 | 
						|
                /** 
 | 
						|
                *   add line as different on both arrays (no match found) 
 | 
						|
                */ 
 | 
						|
                if ( $found == 0 ) 
 | 
						|
                { 
 | 
						|
                    $b  .= $this->formatline ( ($c1) , ($c2), "-", $f1[ $c1 ] ); 
 | 
						|
                    $b  .= $this->formatline ( ($c1) , ($c2), "+", $f2[ $c2 ] ); 
 | 
						|
                } 
 | 
						|
 | 
						|
                /**  
 | 
						|
                *   add current buffer to outputstring 
 | 
						|
                */ 
 | 
						|
                $out        .= $b; 
 | 
						|
                $outcount++ ;       #increase outcounter 
 | 
						|
 | 
						|
                $c1++  ;    #move currentline forward 
 | 
						|
                $c2++  ;    #move currentline forward 
 | 
						|
 | 
						|
                /** 
 | 
						|
                *   comment the lines are tested quite fast, because  
 | 
						|
                *   the current line always moves forward 
 | 
						|
                */ 
 | 
						|
 | 
						|
            } /*endif*/ 
 | 
						|
 | 
						|
        }/*endwhile*/ 
 | 
						|
 | 
						|
        return $out; 
 | 
						|
 | 
						|
    }/*end func*/ 
 | 
						|
 | 
						|
	/** 
 | 
						|
	 *   callback function to format the diffence-lines with your 'style' 
 | 
						|
	 */ 
 | 
						|
	private function formatline( $nr1, $nr2, $stat, &$value ) { #change to $value if problems 
 | 
						|
		if(trim($value) == "") {
 | 
						|
			return ""; 
 | 
						|
		} 
 | 
						|
 | 
						|
		switch($stat) {
 | 
						|
			case "=": 
 | 
						|
				// return $nr1. " : $nr2 : = ".htmlentities( $value )  ."<br>"; 
 | 
						|
				return "$value\n";
 | 
						|
				break; 
 | 
						|
 | 
						|
			case "+": 
 | 
						|
				//return $nr1. " : $nr2 : + <font color='blue' >".htmlentities( $value )  ."</font><br>"; 
 | 
						|
				return "+++ $value\n";
 | 
						|
				break; 
 | 
						|
 | 
						|
			case "-": 
 | 
						|
				//return $nr1. " : $nr2 : - <font color='red' >".htmlentities( $value )  ."</font><br>"; 
 | 
						|
				return "--- $value\n";
 | 
						|
				break; 
 | 
						|
		} 
 | 
						|
	}
 | 
						|
// }}}
 | 
						|
}
 | 
						|
?>
 |