lib/plugin/UpLoad.php

   1 <?php // -*-php-*-
   2 rcs_id('$Id: UpLoad.php,v 1.15 2004-09-22 13:46:26 rurban Exp $');
   3 /*
   4  Copyright 2003, 2004 $ThePhpWikiProgrammingTeam
   5
   6  This file is part of PhpWiki.
   7
   8  PhpWiki is free software; you can redistribute it and/or modify
   9  it under the terms of the GNU General Public License as published by
  10  the Free Software Foundation; either version 2 of the License, or
  11  (at your option) any later version.
  12
  13  PhpWiki is distributed in the hope that it will be useful,
  14  but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16  GNU General Public License for more details.
  17
  18  You should have received a copy of the GNU General Public License
  19  along with PhpWiki; if not, write to the Free Software
  20  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  21
  22  */
  23
  24 /**
  25  * UpLoad:  Allow Administrator to upload files to a special directory,
  26  *          which should preferably be added to the InterWikiMap
  27  * Usage:   <?plugin UpLoad ?>
  28  * Author:  NathanGass <gass@iogram.ch>
  29  * Changes: ReiniUrban <rurban@x-ray.at>,
  30  *          qubit <rtryon@dartmouth.edu>
  31  * Note:    See also Jochen Kalmbach's plugin/UserFileManagement.php
  32  */
  33
  34 class WikiPlugin_UpLoad
  35 extends WikiPlugin
  36 {
  37     var $disallowed_extensions;
  38     // TODO: use PagePerms instead
  39     var $only_authenticated = true; // allow only authenticated users may upload.
  40
  41     function getName () {
  42         return "UpLoad";
  43     }
  44
  45     function getDescription () {
  46         return _("Upload files to the local InterWiki Upload:<filename>");
  47     }
  48
  49     function getDefaultArguments() {
  50         return array('logfile'  => 'phpwiki-upload.log',
  51                      // add a link of the fresh file automatically to the
  52                      // end of the page (or current page)
  53                      'autolink' => true,
  54                      'page'     => '[pagename]',
  55                      );
  56     }
  57
  58     function run($dbi, $argstr, &$request, $basepage) {
  59         $this->disallowed_extensions = explode("\n",
  60 "ad[ep]
  61 asd
  62 ba[st]
  63 chm
  64 cmd
  65 com
  66 cgi
  67 cpl
  68 crt
  69 dll
  70 eml
  71 exe
  72 hlp
  73 hta
  74 in[fs]
  75 isp
  76 jse?
  77 lnk
  78 md[betw]
  79 ms[cipt]
  80 nws
  81 ocx
  82 ops
  83 pcd
  84 p[ir]f
  85 php
  86 pl
  87 py
  88 reg
  89 sc[frt]
  90 sh[bsm]?
  91 swf
  92 url
  93 vb[esx]?
  94 vxd
  95 ws[cfh]");
  96         //removed "\{[[:xdigit:]]{8}(?:-[[:xdigit:]]{4}){3}-[[:xdigit:]]{12}\}"
  97
  98         $args = $this->getArgs($argstr, $request);
  99         extract($args);
 100
 101         $file_dir = getUploadFilePath();
 102         //$url_prefix = SERVER_NAME . DATA_PATH;
 103
 104         $form = HTML::form(array('action' => $request->getPostURL(),
 105                                  'enctype' => 'multipart/form-data',
 106                                  'method' => 'post'));
 107         $contents = HTML::div(array('class' => 'wikiaction'));
 108         $contents->pushContent(HTML::input(array('type' => 'hidden',
 109                                                  'name' => 'MAX_FILE_SIZE',
 110                                                  'value' => MAX_UPLOAD_SIZE)));
 111         $contents->pushContent(HTML::input(array('name' => 'userfile',
 112                                                  'type' => 'file',
 113                                                  'size' => '50')));
 114         $contents->pushContent(HTML::raw(" "));
 115         $contents->pushContent(HTML::input(array('value' => _("Upload"),
 116                                                  'type' => 'submit')));
 117         $form->pushContent($contents);
 118
 119         $message = HTML();
 120         $userfile = $request->getUploadedFile('userfile');
 121         if ($userfile) {
 122             $userfile_name = $userfile->getName();
 123             $userfile_name = basename($userfile_name);
 124             $userfile_tmpname = $userfile->getTmpName();
 125
 126             if ($this->only_authenticated) {
 127                 // Make sure that the user is logged in.
 128                 //
 129                 $user = $request->getUser();
 130                 if (!$user->isAuthenticated()) {
 131                     $message->pushContent(_("ACCESS DENIED: You must log in to upload files."),
 132                                           HTML::br(),HTML::br());
 133                     $result = HTML();
 134                     $result->pushContent($form);
 135                     $result->pushContent($message);
 136                     return $result;
 137                 }
 138             }
 139
 140             if (preg_match("/(\." . join("|\.", $this->disallowed_extensions) . ")\$/",
 141                            $userfile_name))
 142             {
 143                 $message->pushContent(fmt("ERROR uploading '%s': ",$userfile_name));
 144                 $message->pushContent(fmt("Files with extension %s are not allowed",
 145                                           join(", ", $this->disallowed_extensions)),HTML::br(),HTML::br());
 146             }
 147             elseif (file_exists($file_dir . $userfile_name)) {
 148                 $message->pushContent(fmt("ERROR uploading '%s': ",$userfile_name));
 149                 $message->pushContent(fmt("There is already a file with name %s uploaded",
 150                                           $userfile_name),HTML::br(),HTML::br());
 151             }
 152             elseif ($userfile->getSize() > (MAX_UPLOAD_SIZE)) {
 153                 $message->pushContent(fmt("ERROR uploading '%s': ",$userfile_name));
 154                 $message->pushContent(_("Sorry but this file is too big"),HTML::br(),HTML::br());
 155             }
 156             elseif (move_uploaded_file($userfile_tmpname, $file_dir . $userfile_name) or
 157                     (IsWindows() and rename($userfile_tmpname, $file_dir . $userfile_name))
 158                     )
 159             {
 160                 $interwiki = new PageType_interwikimap();
 161                 $link = $interwiki->link("Upload:$userfile_name");
 162                 $message->pushContent(_("File successfully uploaded."));
 163                 $message->pushContent(HTML::ul(HTML::li($link)));
 164
 165                 // the upload was a success and we need to mark this event in the "upload log"
 166                 if ($logfile) {
 167                     $upload_log = $file_dir . basename($logfile);
 168                     $this->log($userfile, $upload_log, $message);
 169                 }
 170                 if ($autolink) {
 171                     require_once("lib/loadsave.php");
 172                     $pagehandle = $dbi->getPage($page);
 173                     if ($pagehandle->exists()) {// don't replace default contents
 174                         $current = $pagehandle->getCurrentRevision();
 175                         $version = $current->getVersion();
 176                         $text = $current->getPackedContent();
 177                         $newtext = $text . "\n* [Upload:$userfile_name]";
 178                         $meta = $current->_data;
 179                         $meta['summary'] = sprintf(_("uploaded %s"),$userfile_name);
 180                         $pagehandle->save($newtext, $version + 1, $meta);
 181                     }
 182                 }
 183             }
 184             else {
 185                 $message->pushContent(fmt("ERROR uploading '%s': ",$userfile_name));
 186                 $message->pushContent(HTML::br(),_("Uploading failed."),HTML::br());
 187             }
 188         }
 189         else {
 190             $message->pushContent(HTML::br(),HTML::br());
 191         }
 192
 193         //$result = HTML::div( array( 'class' => 'wikiaction' ) );
 194         $result = HTML();
 195         $result->pushContent($form);
 196         $result->pushContent($message);
 197         return $result;
 198     }
 199
 200     function log ($userfile, $upload_log, &$message) {
 201         global $WikiTheme;
 202         $user = $GLOBALS['request']->_user;
 203         if (!is_writable($upload_log)) {
 204             $message->pushContent(_("Error: the upload log is not writable"));
 205             $message->pushContent(HTML::br());
 206         }
 207         elseif (!$log_handle = fopen ($upload_log, "a")) {
 208             $message->pushContent(_("Error: can't open the upload logfile"));
 209             $message->pushContent(HTML::br());
 210         }
 211         else {        // file size in KB; precision of 0.1
 212             $file_size = round(($userfile->getSize())/1024, 1);
 213             if ($file_size <= 0) {
 214                 $file_size = "&lt; 0.1";
 215             }
 216             $userfile_name = $userfile->getName();
 217             fwrite($log_handle,
 218                    "\n"
 219                    . "<tr><td><a href=\"$userfile_name\">$userfile_name</a></td>"
 220                    . "<td align=\"right\">$file_size kB</td>"
 221                    . "<td>&nbsp;&nbsp;" . $WikiTheme->formatDate(time()) . "</td>"
 222                    . "<td>&nbsp;&nbsp;<em>" . $user->getId() . "</em></td></tr>");
 223             fclose($log_handle);
 224         }
 225         return;
 226     }
 227
 228 }
 229
 230 // $Log: not supported by cvs2svn $
 231 // Revision 1.14  2004/06/16 10:38:59  rurban
 232 // Disallow refernces in calls if the declaration is a reference
 233 // ("allow_call_time_pass_reference clean").
 234 //   PhpWiki is now allow_call_time_pass_reference = Off clean,
 235 //   but several external libraries may not.
 236 //   In detail these libs look to be affected (not tested):
 237 //   * Pear_DB odbc
 238 //   * adodb oracle
 239 //
 240 // Revision 1.13  2004/06/14 11:31:39  rurban
 241 // renamed global $Theme to $WikiTheme (gforge nameclash)
 242 // inherit PageList default options from PageList
 243 //   default sortby=pagename
 244 // use options in PageList_Selectable (limit, sortby, ...)
 245 // added action revert, with button at action=diff
 246 // added option regex to WikiAdminSearchReplace
 247 //
 248 // Revision 1.12  2004/06/13 11:34:22  rurban
 249 // fixed bug #969532 (space in uploaded filenames)
 250 // improved upload error messages
 251 //
 252 // Revision 1.11  2004/06/11 09:07:30  rurban
 253 // support theme-specific LinkIconAttr: front or after or none
 254 //
 255 // Revision 1.10  2004/04/12 10:19:18  rurban
 256 // fixed copyright year
 257 //
 258 // Revision 1.9  2004/04/12 10:18:22  rurban
 259 // removed the hairy regex line
 260 //
 261 // Revision 1.8  2004/04/12 09:12:22  rurban
 262 // fix syntax errors
 263 //
 264 // Revision 1.7  2004/04/09 17:49:03  rurban
 265 // Added PhpWiki RssFeed to Sidebar
 266 // sidebar formatting
 267 // some browser dependant fixes (old-browser support)
 268 //
 269 // Revision 1.6  2004/02/27 01:36:51  rurban
 270 // autolink enabled
 271 //
 272 // Revision 1.5  2004/02/27 01:24:43  rurban
 273 // use IntwerWiki links for uploaded file.
 274 // autolink to page prepared, but not yet ready
 275 //
 276 // Revision 1.4  2004/02/21 19:12:59  rurban
 277 // patch by Sascha Carlin
 278 //
 279 // Revision 1.3  2004/02/17 12:11:36  rurban
 280 // added missing 4th basepage arg at plugin->run() to almost all plugins. This caused no harm so far, because it was silently dropped on normal usage. However on plugin internal ->run invocations it failed. (InterWikiSearch, IncludeSiteMap, ...)
 281 //
 282 // Revision 1.2  2004/01/26 09:18:00  rurban
 283 // * changed stored pref representation as before.
 284 //   the array of objects is 1) bigger and 2)
 285 //   less portable. If we would import packed pref
 286 //   objects and the object definition was changed, PHP would fail.
 287 //   This doesn't happen with an simple array of non-default values.
 288 // * use $prefs->retrieve and $prefs->store methods, where retrieve
 289 //   understands the interim format of array of objects also.
 290 // * simplified $prefs->get() and fixed $prefs->set()
 291 // * added $user->_userid and class '_WikiUser' portability functions
 292 // * fixed $user object ->_level upgrading, mostly using sessions.
 293 //   this fixes yesterdays problems with loosing authorization level.
 294 // * fixed WikiUserNew::checkPass to return the _level
 295 // * fixed WikiUserNew::isSignedIn
 296 // * added explodePageList to class PageList, support sortby arg
 297 // * fixed UserPreferences for WikiUserNew
 298 // * fixed WikiPlugin for empty defaults array
 299 // * UnfoldSubpages: added pagename arg, renamed pages arg,
 300 //   removed sort arg, support sortby arg
 301 //
 302 // Revision 1.1  2003/11/04 18:41:41  carstenklapp
 303 // New plugin which was submitted to the mailing list some time
 304 // ago. (This is the best UpLoad function I have seen for PhpWiki so
 305 // far. Cleaned up text formatting and typos from the version on the
 306 // mailing list. Still needs a few adjustments.)
 307
 308 // (c-file-style: "gnu")
 309 // Local Variables:
 310 // mode: php
 311 // tab-width: 8
 312 // c-basic-offset: 4
 313 // c-hanging-comment-ender-p: nil
 314 // indent-tabs-mode: nil
 315 // End:
 316 ?>