207f44e8c2e4111cc86989c18474dca20e093a4f
[lhc/web/wiklou.git] / includes / specials / SpecialUpload.php
1 <?php
2 /**
3 * @file
4 * @ingroup SpecialPage
5 */
6
7
8 /**
9 * Entry point
10 */
11 function wfSpecialUpload() {
12 global $wgRequest;
13 $form = new UploadForm( $wgRequest );
14 $form->execute();
15 }
16
17 /**
18 * implements Special:Upload
19 * @ingroup SpecialPage
20 */
21 class UploadForm {
22 const SUCCESS = 0;
23 const BEFORE_PROCESSING = 1;
24 const LARGE_FILE_SERVER = 2;
25 const EMPTY_FILE = 3;
26 const MIN_LENGTH_PARTNAME = 4;
27 const ILLEGAL_FILENAME = 5;
28 const PROTECTED_PAGE = 6;
29 const OVERWRITE_EXISTING_FILE = 7;
30 const FILETYPE_MISSING = 8;
31 const FILETYPE_BADTYPE = 9;
32 const VERIFICATION_ERROR = 10;
33 const UPLOAD_VERIFICATION_ERROR = 11;
34 const UPLOAD_WARNING = 12;
35 const INTERNAL_ERROR = 13;
36
37 /**#@+
38 * @access private
39 */
40 var $mComment, $mLicense, $mIgnoreWarning, $mCurlError;
41 var $mDestName, $mTempPath, $mFileSize, $mFileProps;
42 var $mCopyrightStatus, $mCopyrightSource, $mReUpload, $mAction, $mUploadClicked;
43 var $mSrcName, $mSessionKey, $mStashed, $mDesiredDestName, $mRemoveTempFile, $mSourceType;
44 var $mDestWarningAck, $mCurlDestHandle;
45 var $mLocalFile;
46
47 # Placeholders for text injection by hooks (must be HTML)
48 # extensions should take care to _append_ to the present value
49 var $uploadFormTextTop;
50 var $uploadFormTextAfterSummary;
51
52 const SESSION_VERSION = 1;
53 /**#@-*/
54
55 /**
56 * Constructor : initialise object
57 * Get data POSTed through the form and assign them to the object
58 * @param $request Data posted.
59 */
60 function UploadForm( &$request ) {
61 global $wgAllowCopyUploads;
62 $this->mDesiredDestName = $request->getText( 'wpDestFile' );
63 $this->mIgnoreWarning = $request->getCheck( 'wpIgnoreWarning' );
64 $this->mComment = $request->getText( 'wpUploadDescription' );
65 $this->mReUpload = $request->getCheck( 'wpReUpload' );
66
67 if( !$request->wasPosted() ) {
68 # GET requests just give the main form; no data except destination
69 # filename and description
70 return;
71 }
72
73 # Placeholders for text injection by hooks (empty per default)
74 $this->uploadFormTextTop = "";
75 $this->uploadFormTextAfterSummary = "";
76
77 $this->mReUpload = $request->getCheck( 'wpReUpload' );
78 $this->mUploadClicked = $request->getCheck( 'wpUpload' );
79
80 $this->mLicense = $request->getText( 'wpLicense' );
81 $this->mCopyrightStatus = $request->getText( 'wpUploadCopyStatus' );
82 $this->mCopyrightSource = $request->getText( 'wpUploadSource' );
83 $this->mWatchthis = $request->getBool( 'wpWatchthis' );
84 $this->mSourceType = $request->getText( 'wpSourceType' );
85 $this->mDestWarningAck = $request->getText( 'wpDestFileWarningAck' );
86
87 $this->mAction = $request->getVal( 'action' );
88
89 $this->mSessionKey = $request->getInt( 'wpSessionKey' );
90 if( !empty( $this->mSessionKey ) &&
91 isset( $_SESSION['wsUploadData'][$this->mSessionKey]['version'] ) &&
92 $_SESSION['wsUploadData'][$this->mSessionKey]['version'] == self::SESSION_VERSION ) {
93 /**
94 * Confirming a temporarily stashed upload.
95 * We don't want path names to be forged, so we keep
96 * them in the session on the server and just give
97 * an opaque key to the user agent.
98 */
99 $data = $_SESSION['wsUploadData'][$this->mSessionKey];
100 $this->mTempPath = $data['mTempPath'];
101 $this->mFileSize = $data['mFileSize'];
102 $this->mSrcName = $data['mSrcName'];
103 $this->mFileProps = $data['mFileProps'];
104 $this->mCurlError = 0/*UPLOAD_ERR_OK*/;
105 $this->mStashed = true;
106 $this->mRemoveTempFile = false;
107 } else {
108 /**
109 *Check for a newly uploaded file.
110 */
111 if( $wgAllowCopyUploads && $this->mSourceType == 'web' ) {
112 $this->initializeFromUrl( $request );
113 } else {
114 $this->initializeFromUpload( $request );
115 }
116 }
117 }
118
119 /**
120 * Initialize the uploaded file from PHP data
121 * @access private
122 */
123 function initializeFromUpload( $request ) {
124 $this->mTempPath = $request->getFileTempName( 'wpUploadFile' );
125 $this->mFileSize = $request->getFileSize( 'wpUploadFile' );
126 $this->mSrcName = $request->getFileName( 'wpUploadFile' );
127 $this->mCurlError = $request->getUploadError( 'wpUploadFile' );
128 $this->mSessionKey = false;
129 $this->mStashed = false;
130 $this->mRemoveTempFile = false; // PHP will handle this
131 }
132
133 /**
134 * Copy a web file to a temporary file
135 * @access private
136 */
137 function initializeFromUrl( $request ) {
138 global $wgTmpDirectory;
139 $url = $request->getText( 'wpUploadFileURL' );
140 $local_file = tempnam( $wgTmpDirectory, 'WEBUPLOAD' );
141
142 $this->mTempPath = $local_file;
143 $this->mFileSize = 0; # Will be set by curlCopy
144 $this->mCurlError = $this->curlCopy( $url, $local_file );
145 $pathParts = explode( '/', $url );
146 $this->mSrcName = array_pop( $pathParts );
147 $this->mSessionKey = false;
148 $this->mStashed = false;
149
150 // PHP won't auto-cleanup the file
151 $this->mRemoveTempFile = file_exists( $local_file );
152 }
153
154 /**
155 * Safe copy from URL
156 * Returns true if there was an error, false otherwise
157 */
158 private function curlCopy( $url, $dest ) {
159 global $wgUser, $wgOut;
160
161 if( !$wgUser->isAllowed( 'upload_by_url' ) ) {
162 $wgOut->permissionRequired( 'upload_by_url' );
163 return true;
164 }
165
166 # Maybe remove some pasting blanks :-)
167 $url = trim( $url );
168 if( stripos($url, 'http://') !== 0 && stripos($url, 'ftp://') !== 0 ) {
169 # Only HTTP or FTP URLs
170 $wgOut->showErrorPage( 'upload-proto-error', 'upload-proto-error-text' );
171 return true;
172 }
173
174 # Open temporary file
175 $this->mCurlDestHandle = @fopen( $this->mTempPath, "wb" );
176 if( $this->mCurlDestHandle === false ) {
177 # Could not open temporary file to write in
178 $wgOut->showErrorPage( 'upload-file-error', 'upload-file-error-text');
179 return true;
180 }
181
182 $ch = curl_init();
183 curl_setopt( $ch, CURLOPT_HTTP_VERSION, 1.0); # Probably not needed, but apparently can work around some bug
184 curl_setopt( $ch, CURLOPT_TIMEOUT, 10); # 10 seconds timeout
185 curl_setopt( $ch, CURLOPT_LOW_SPEED_LIMIT, 512); # 0.5KB per second minimum transfer speed
186 curl_setopt( $ch, CURLOPT_URL, $url);
187 curl_setopt( $ch, CURLOPT_WRITEFUNCTION, array( $this, 'uploadCurlCallback' ) );
188 curl_exec( $ch );
189 $error = curl_errno( $ch ) ? true : false;
190 $errornum = curl_errno( $ch );
191 // if ( $error ) print curl_error ( $ch ) ; # Debugging output
192 curl_close( $ch );
193
194 fclose( $this->mCurlDestHandle );
195 unset( $this->mCurlDestHandle );
196 if( $error ) {
197 unlink( $dest );
198 if( wfEmptyMsg( "upload-curl-error$errornum", wfMsg("upload-curl-error$errornum") ) )
199 $wgOut->showErrorPage( 'upload-misc-error', 'upload-misc-error-text' );
200 else
201 $wgOut->showErrorPage( "upload-curl-error$errornum", "upload-curl-error$errornum-text" );
202 }
203
204 return $error;
205 }
206
207 /**
208 * Callback function for CURL-based web transfer
209 * Write data to file unless we've passed the length limit;
210 * if so, abort immediately.
211 * @access private
212 */
213 function uploadCurlCallback( $ch, $data ) {
214 global $wgMaxUploadSize;
215 $length = strlen( $data );
216 $this->mFileSize += $length;
217 if( $this->mFileSize > $wgMaxUploadSize ) {
218 return 0;
219 }
220 fwrite( $this->mCurlDestHandle, $data );
221 return $length;
222 }
223
224 /**
225 * Start doing stuff
226 * @access public
227 */
228 function execute() {
229 global $wgUser, $wgOut;
230 global $wgEnableUploads;
231
232 # Check php's file_uploads setting
233 if( !wfIniGetBool( 'file_uploads' ) ) {
234 $wgOut->showErrorPage( 'uploaddisabled', 'php-uploaddisabledtext', array( $this->mDesiredDestName ) );
235 return;
236 }
237
238 # Check uploading enabled
239 if( !$wgEnableUploads ) {
240 $wgOut->showErrorPage( 'uploaddisabled', 'uploaddisabledtext', array( $this->mDesiredDestName ) );
241 return;
242 }
243
244 # Check permissions
245 if( !$wgUser->isAllowed( 'upload' ) ) {
246 if( !$wgUser->isLoggedIn() ) {
247 $wgOut->showErrorPage( 'uploadnologin', 'uploadnologintext' );
248 } else {
249 $wgOut->permissionRequired( 'upload' );
250 }
251 return;
252 }
253
254 # Check blocks
255 if( $wgUser->isBlocked() ) {
256 $wgOut->blockedPage();
257 return;
258 }
259
260 if( wfReadOnly() ) {
261 $wgOut->readOnlyPage();
262 return;
263 }
264
265 if( $this->mReUpload ) {
266 if( !$this->unsaveUploadedFile() ) {
267 return;
268 }
269 # Because it is probably checked and shouldn't be
270 $this->mIgnoreWarning = false;
271
272 $this->mainUploadForm();
273 } else if( 'submit' == $this->mAction || $this->mUploadClicked ) {
274 $this->processUpload();
275 } else {
276 $this->mainUploadForm();
277 }
278
279 $this->cleanupTempFile();
280 }
281
282 /**
283 * Do the upload
284 * Checks are made in SpecialUpload::execute()
285 *
286 * @access private
287 */
288 function processUpload(){
289 global $wgUser, $wgOut, $wgFileExtensions, $wgLang;
290 $details = null;
291 $value = null;
292 $value = $this->internalProcessUpload( $details );
293
294 switch($value) {
295 case self::SUCCESS:
296 $wgOut->redirect( $this->mLocalFile->getTitle()->getFullURL() );
297 break;
298
299 case self::BEFORE_PROCESSING:
300 break;
301
302 case self::LARGE_FILE_SERVER:
303 $this->mainUploadForm( wfMsgHtml( 'largefileserver' ) );
304 break;
305
306 case self::EMPTY_FILE:
307 $this->mainUploadForm( wfMsgHtml( 'emptyfile' ) );
308 break;
309
310 case self::MIN_LENGTH_PARTNAME:
311 $this->mainUploadForm( wfMsgHtml( 'minlength1' ) );
312 break;
313
314 case self::ILLEGAL_FILENAME:
315 $filtered = $details['filtered'];
316 $this->uploadError( wfMsgWikiHtml( 'illegalfilename', htmlspecialchars( $filtered ) ) );
317 break;
318
319 case self::PROTECTED_PAGE:
320 $wgOut->showPermissionsErrorPage( $details['permissionserrors'] );
321 break;
322
323 case self::OVERWRITE_EXISTING_FILE:
324 $errorText = $details['overwrite'];
325 $this->uploadError( $wgOut->parse( $errorText ) );
326 break;
327
328 case self::FILETYPE_MISSING:
329 $this->uploadError( wfMsgExt( 'filetype-missing', array ( 'parseinline' ) ) );
330 break;
331
332 case self::FILETYPE_BADTYPE:
333 $finalExt = $details['finalExt'];
334 $this->uploadError(
335 wfMsgExt( 'filetype-banned-type',
336 array( 'parseinline' ),
337 htmlspecialchars( $finalExt ),
338 $wgLang->commaList( $wgFileExtensions ),
339 $wgLang->formatNum( count($wgFileExtensions) )
340 )
341 );
342 break;
343
344 case self::VERIFICATION_ERROR:
345 $veri = $details['veri'];
346 $this->uploadError( $veri->toString() );
347 break;
348
349 case self::UPLOAD_VERIFICATION_ERROR:
350 $error = $details['error'];
351 $this->uploadError( $error );
352 break;
353
354 case self::UPLOAD_WARNING:
355 $warning = $details['warning'];
356 $this->uploadWarning( $warning );
357 break;
358
359 case self::INTERNAL_ERROR:
360 $internal = $details['internal'];
361 $this->showError( $internal );
362 break;
363
364 default:
365 throw new MWException( __METHOD__ . ": Unknown value `{$value}`" );
366 }
367 }
368
369 /**
370 * Really do the upload
371 * Checks are made in SpecialUpload::execute()
372 *
373 * @param array $resultDetails contains result-specific dict of additional values
374 *
375 * @access private
376 */
377 function internalProcessUpload( &$resultDetails ) {
378 global $wgUser;
379
380 if( !wfRunHooks( 'UploadForm:BeforeProcessing', array( &$this ) ) )
381 {
382 wfDebug( "Hook 'UploadForm:BeforeProcessing' broke processing the file.\n" );
383 return self::BEFORE_PROCESSING;
384 }
385
386 /**
387 * If there was no filename or a zero size given, give up quick.
388 */
389 if( trim( $this->mSrcName ) == '' || empty( $this->mFileSize ) ) {
390 return self::EMPTY_FILE;
391 }
392
393 /* Check for curl error */
394 if( $this->mCurlError ) {
395 return self::BEFORE_PROCESSING;
396 }
397
398 /**
399 * Chop off any directories in the given filename. Then
400 * filter out illegal characters, and try to make a legible name
401 * out of it. We'll strip some silently that Title would die on.
402 */
403 if( $this->mDesiredDestName ) {
404 $basename = $this->mDesiredDestName;
405 } else {
406 $basename = $this->mSrcName;
407 }
408 $filtered = wfStripIllegalFilenameChars( $basename );
409
410 /* Normalize to title form before we do any further processing */
411 $nt = Title::makeTitleSafe( NS_FILE, $filtered );
412 if( is_null( $nt ) ) {
413 $resultDetails = array( 'filtered' => $filtered );
414 return self::ILLEGAL_FILENAME;
415 }
416 $filtered = $nt->getDBkey();
417
418 /**
419 * We'll want to blacklist against *any* 'extension', and use
420 * only the final one for the whitelist.
421 */
422 list( $partname, $ext ) = $this->splitExtensions( $filtered );
423
424 if( count( $ext ) ) {
425 $finalExt = $ext[count( $ext ) - 1];
426 } else {
427 $finalExt = '';
428 }
429
430 # If there was more than one "extension", reassemble the base
431 # filename to prevent bogus complaints about length
432 if( count( $ext ) > 1 ) {
433 for( $i = 0; $i < count( $ext ) - 1; $i++ )
434 $partname .= '.' . $ext[$i];
435 }
436
437 if( strlen( $partname ) < 1 ) {
438 return self::MIN_LENGTH_PARTNAME;
439 }
440
441 $this->mLocalFile = wfLocalFile( $nt );
442 $this->mDestName = $this->mLocalFile->getName();
443
444 /**
445 * If the image is protected, non-sysop users won't be able
446 * to modify it by uploading a new revision.
447 */
448 $permErrors = $nt->getUserPermissionsErrors( 'edit', $wgUser );
449 $permErrorsUpload = $nt->getUserPermissionsErrors( 'upload', $wgUser );
450 $permErrorsCreate = ( $nt->exists() ? array() : $nt->getUserPermissionsErrors( 'create', $wgUser ) );
451
452 if( $permErrors || $permErrorsUpload || $permErrorsCreate ) {
453 // merge all the problems into one list, avoiding duplicates
454 $permErrors = array_merge( $permErrors, wfArrayDiff2( $permErrorsUpload, $permErrors ) );
455 $permErrors = array_merge( $permErrors, wfArrayDiff2( $permErrorsCreate, $permErrors ) );
456 $resultDetails = array( 'permissionserrors' => $permErrors );
457 return self::PROTECTED_PAGE;
458 }
459
460 /**
461 * In some cases we may forbid overwriting of existing files.
462 */
463 $overwrite = $this->checkOverwrite( $this->mDestName );
464 if( $overwrite !== true ) {
465 $resultDetails = array( 'overwrite' => $overwrite );
466 return self::OVERWRITE_EXISTING_FILE;
467 }
468
469 /* Don't allow users to override the blacklist (check file extension) */
470 global $wgCheckFileExtensions, $wgStrictFileExtensions;
471 global $wgFileExtensions, $wgFileBlacklist;
472 if ($finalExt == '') {
473 return self::FILETYPE_MISSING;
474 } elseif ( $this->checkFileExtensionList( $ext, $wgFileBlacklist ) ||
475 ($wgCheckFileExtensions && $wgStrictFileExtensions &&
476 !$this->checkFileExtension( $finalExt, $wgFileExtensions ) ) ) {
477 $resultDetails = array( 'finalExt' => $finalExt );
478 return self::FILETYPE_BADTYPE;
479 }
480
481 /**
482 * Look at the contents of the file; if we can recognize the
483 * type but it's corrupt or data of the wrong type, we should
484 * probably not accept it.
485 */
486 if( !$this->mStashed ) {
487 $this->mFileProps = File::getPropsFromPath( $this->mTempPath, $finalExt );
488 $this->checkMacBinary();
489 $veri = $this->verify( $this->mTempPath, $finalExt );
490
491 if( $veri !== true ) { //it's a wiki error...
492 $resultDetails = array( 'veri' => $veri );
493 return self::VERIFICATION_ERROR;
494 }
495
496 /**
497 * Provide an opportunity for extensions to add further checks
498 */
499 $error = '';
500 if( !wfRunHooks( 'UploadVerification',
501 array( $this->mDestName, $this->mTempPath, &$error ) ) ) {
502 $resultDetails = array( 'error' => $error );
503 return self::UPLOAD_VERIFICATION_ERROR;
504 }
505 }
506
507
508 /**
509 * Check for non-fatal conditions
510 */
511 if ( ! $this->mIgnoreWarning ) {
512 $warning = '';
513
514 $comparableName = str_replace( ' ', '_', $basename );
515 global $wgCapitalLinks, $wgContLang;
516 if ( $wgCapitalLinks ) {
517 $comparableName = $wgContLang->ucfirst( $comparableName );
518 }
519
520 if( $comparableName !== $filtered ) {
521 $warning .= '<li>'.wfMsgHtml( 'badfilename', htmlspecialchars( $this->mDestName ) ).'</li>';
522 }
523
524 global $wgCheckFileExtensions;
525 if ( $wgCheckFileExtensions ) {
526 if ( !$this->checkFileExtension( $finalExt, $wgFileExtensions ) ) {
527 global $wgLang;
528 $warning .= '<li>' .
529 wfMsgExt( 'filetype-unwanted-type',
530 array( 'parseinline' ),
531 htmlspecialchars( $finalExt ),
532 $wgLang->commaList( $wgFileExtensions ),
533 $wgLang->formatNum( count($wgFileExtensions) )
534 ) . '</li>';
535 }
536 }
537
538 global $wgUploadSizeWarning;
539 if ( $wgUploadSizeWarning && ( $this->mFileSize > $wgUploadSizeWarning ) ) {
540 $skin = $wgUser->getSkin();
541 $wsize = $skin->formatSize( $wgUploadSizeWarning );
542 $asize = $skin->formatSize( $this->mFileSize );
543 $warning .= '<li>' . wfMsgHtml( 'large-file', $wsize, $asize ) . '</li>';
544 }
545 if ( $this->mFileSize == 0 ) {
546 $warning .= '<li>'.wfMsgHtml( 'emptyfile' ).'</li>';
547 }
548
549 if ( !$this->mDestWarningAck ) {
550 $warning .= self::getExistsWarning( $this->mLocalFile );
551 }
552
553 $warning .= $this->getDupeWarning( $this->mTempPath, $finalExt );
554
555 if( $warning != '' ) {
556 /**
557 * Stash the file in a temporary location; the user can choose
558 * to let it through and we'll complete the upload then.
559 */
560 $resultDetails = array( 'warning' => $warning );
561 return self::UPLOAD_WARNING;
562 }
563 }
564
565 /**
566 * Try actually saving the thing...
567 * It will show an error form on failure.
568 */
569 $pageText = self::getInitialPageText( $this->mComment, $this->mLicense,
570 $this->mCopyrightStatus, $this->mCopyrightSource );
571
572 $status = $this->mLocalFile->upload( $this->mTempPath, $this->mComment, $pageText,
573 File::DELETE_SOURCE, $this->mFileProps );
574 if ( !$status->isGood() ) {
575 $resultDetails = array( 'internal' => $status->getWikiText() );
576 return self::INTERNAL_ERROR;
577 } else {
578 if ( $this->mWatchthis ) {
579 global $wgUser;
580 $wgUser->addWatch( $this->mLocalFile->getTitle() );
581 }
582 // Success, redirect to description page
583 $img = null; // @todo: added to avoid passing a ref to null - should this be defined somewhere?
584 wfRunHooks( 'UploadComplete', array( &$this ) );
585 return self::SUCCESS;
586 }
587 }
588
589 /**
590 * Do existence checks on a file and produce a warning
591 * This check is static and can be done pre-upload via AJAX
592 * Returns an HTML fragment consisting of one or more LI elements if there is a warning
593 * Returns an empty string if there is no warning
594 */
595 static function getExistsWarning( $file ) {
596 global $wgUser, $wgContLang;
597 // Check for uppercase extension. We allow these filenames but check if an image
598 // with lowercase extension exists already
599 $warning = '';
600 $align = $wgContLang->isRtl() ? 'left' : 'right';
601
602 if( strpos( $file->getName(), '.' ) == false ) {
603 $partname = $file->getName();
604 $rawExtension = '';
605 } else {
606 $n = strrpos( $file->getName(), '.' );
607 $rawExtension = substr( $file->getName(), $n + 1 );
608 $partname = substr( $file->getName(), 0, $n );
609 }
610
611 $sk = $wgUser->getSkin();
612
613 if ( $rawExtension != $file->getExtension() ) {
614 // We're not using the normalized form of the extension.
615 // Normal form is lowercase, using most common of alternate
616 // extensions (eg 'jpg' rather than 'JPEG').
617 //
618 // Check for another file using the normalized form...
619 $nt_lc = Title::makeTitle( NS_FILE, $partname . '.' . $file->getExtension() );
620 $file_lc = wfLocalFile( $nt_lc );
621 } else {
622 $file_lc = false;
623 }
624
625 if( $file->exists() ) {
626 $dlink = $sk->makeKnownLinkObj( $file->getTitle() );
627 if ( $file->allowInlineDisplay() ) {
628 $dlink2 = $sk->makeImageLinkObj( $file->getTitle(), wfMsgExt( 'fileexists-thumb', 'parseinline' ),
629 $file->getName(), $align, array(), false, true );
630 } elseif ( !$file->allowInlineDisplay() && $file->isSafeFile() ) {
631 $icon = $file->iconThumb();
632 $dlink2 = '<div style="float:' . $align . '" id="mw-media-icon">' .
633 $icon->toHtml( array( 'desc-link' => true ) ) . '<br />' . $dlink . '</div>';
634 } else {
635 $dlink2 = '';
636 }
637
638 $warning .= '<li>' . wfMsgExt( 'fileexists', array('parseinline','replaceafter'), $dlink ) . '</li>' . $dlink2;
639
640 } elseif( $file->getTitle()->getArticleID() ) {
641 $lnk = $sk->makeKnownLinkObj( $file->getTitle(), '', 'redirect=no' );
642 $warning .= '<li>' . wfMsgExt( 'filepageexists', array( 'parseinline', 'replaceafter' ), $lnk ) . '</li>';
643 } elseif ( $file_lc && $file_lc->exists() ) {
644 # Check if image with lowercase extension exists.
645 # It's not forbidden but in 99% it makes no sense to upload the same filename with uppercase extension
646 $dlink = $sk->makeKnownLinkObj( $nt_lc );
647 if ( $file_lc->allowInlineDisplay() ) {
648 $dlink2 = $sk->makeImageLinkObj( $nt_lc, wfMsgExt( 'fileexists-thumb', 'parseinline' ),
649 $nt_lc->getText(), $align, array(), false, true );
650 } elseif ( !$file_lc->allowInlineDisplay() && $file_lc->isSafeFile() ) {
651 $icon = $file_lc->iconThumb();
652 $dlink2 = '<div style="float:' . $align . '" id="mw-media-icon">' .
653 $icon->toHtml( array( 'desc-link' => true ) ) . '<br />' . $dlink . '</div>';
654 } else {
655 $dlink2 = '';
656 }
657
658 $warning .= '<li>' .
659 wfMsgExt( 'fileexists-extension', 'parsemag',
660 $file->getTitle()->getPrefixedText(), $dlink ) .
661 '</li>' . $dlink2;
662
663 } elseif ( ( substr( $partname , 3, 3 ) == 'px-' || substr( $partname , 2, 3 ) == 'px-' )
664 && ereg( "[0-9]{2}" , substr( $partname , 0, 2) ) )
665 {
666 # Check for filenames like 50px- or 180px-, these are mostly thumbnails
667 $nt_thb = Title::newFromText( substr( $partname , strpos( $partname , '-' ) +1 ) . '.' . $rawExtension );
668 $file_thb = wfLocalFile( $nt_thb );
669 if ($file_thb->exists() ) {
670 # Check if an image without leading '180px-' (or similiar) exists
671 $dlink = $sk->makeKnownLinkObj( $nt_thb);
672 if ( $file_thb->allowInlineDisplay() ) {
673 $dlink2 = $sk->makeImageLinkObj( $nt_thb,
674 wfMsgExt( 'fileexists-thumb', 'parseinline' ),
675 $nt_thb->getText(), $align, array(), false, true );
676 } elseif ( !$file_thb->allowInlineDisplay() && $file_thb->isSafeFile() ) {
677 $icon = $file_thb->iconThumb();
678 $dlink2 = '<div style="float:' . $align . '" id="mw-media-icon">' .
679 $icon->toHtml( array( 'desc-link' => true ) ) . '<br />' .
680 $dlink . '</div>';
681 } else {
682 $dlink2 = '';
683 }
684
685 $warning .= '<li>' . wfMsgExt( 'fileexists-thumbnail-yes', 'parsemag', $dlink ) .
686 '</li>' . $dlink2;
687 } else {
688 # Image w/o '180px-' does not exists, but we do not like these filenames
689 $warning .= '<li>' . wfMsgExt( 'file-thumbnail-no', 'parseinline' ,
690 substr( $partname , 0, strpos( $partname , '-' ) +1 ) ) . '</li>';
691 }
692 }
693
694 $filenamePrefixBlacklist = self::getFilenamePrefixBlacklist();
695 # Do the match
696 foreach( $filenamePrefixBlacklist as $prefix ) {
697 if ( substr( $partname, 0, strlen( $prefix ) ) == $prefix ) {
698 $warning .= '<li>' . wfMsgExt( 'filename-bad-prefix', 'parseinline', $prefix ) . '</li>';
699 break;
700 }
701 }
702
703 if ( $file->wasDeleted() && !$file->exists() ) {
704 # If the file existed before and was deleted, warn the user of this
705 # Don't bother doing so if the file exists now, however
706 $ltitle = SpecialPage::getTitleFor( 'Log' );
707 $llink = $sk->makeKnownLinkObj( $ltitle, wfMsgHtml( 'deletionlog' ),
708 'type=delete&page=' . $file->getTitle()->getPrefixedUrl() );
709 $warning .= '<li>' . wfMsgWikiHtml( 'filewasdeleted', $llink ) . '</li>';
710 }
711 return $warning;
712 }
713
714 /**
715 * Get a list of warnings
716 *
717 * @param string local filename, e.g. 'file exists', 'non-descriptive filename'
718 * @return array list of warning messages
719 */
720 static function ajaxGetExistsWarning( $filename ) {
721 $file = wfFindFile( $filename );
722 if( !$file ) {
723 // Force local file so we have an object to do further checks against
724 // if there isn't an exact match...
725 $file = wfLocalFile( $filename );
726 }
727 $s = '&nbsp;';
728 if ( $file ) {
729 $warning = self::getExistsWarning( $file );
730 if ( $warning !== '' ) {
731 $s = "<ul>$warning</ul>";
732 }
733 }
734 return $s;
735 }
736
737 /**
738 * Render a preview of a given license for the AJAX preview on upload
739 *
740 * @param string $license
741 * @return string
742 */
743 public static function ajaxGetLicensePreview( $license ) {
744 global $wgParser, $wgUser;
745 $text = '{{' . $license . '}}';
746 $title = Title::makeTitle( NS_FILE, 'Sample.jpg' );
747 $options = ParserOptions::newFromUser( $wgUser );
748
749 // Expand subst: first, then live templates...
750 $text = $wgParser->preSaveTransform( $text, $title, $wgUser, $options );
751 $output = $wgParser->parse( $text, $title, $options );
752
753 return $output->getText();
754 }
755
756 /**
757 * Check for duplicate files and throw up a warning before the upload
758 * completes.
759 */
760 function getDupeWarning( $tempfile, $extension ) {
761 $hash = File::sha1Base36( $tempfile );
762 $dupes = RepoGroup::singleton()->findBySha1( $hash );
763 $archivedImage = new ArchivedFile( null, 0, $hash.".$extension" );
764 if( $dupes ) {
765 global $wgOut;
766 $msg = "<gallery>";
767 foreach( $dupes as $file ) {
768 $title = $file->getTitle();
769 $msg .= $title->getPrefixedText() .
770 "|" . $title->getText() . "\n";
771 }
772 $msg .= "</gallery>";
773 return "<li>" .
774 wfMsgExt( "file-exists-duplicate", array( "parse" ), count( $dupes ) ) .
775 $wgOut->parse( $msg ) .
776 "</li>\n";
777 } elseif ( $archivedImage->getID() > 0 ) {
778 global $wgOut;
779 $name = Title::makeTitle( NS_FILE, $archivedImage->getName() )->getPrefixedText();
780 return Xml::tags( 'li', null, wfMsgExt( 'file-deleted-duplicate', array( 'parseinline' ), array( $name ) ) );
781 } else {
782 return '';
783 }
784 }
785
786 /**
787 * Get a list of blacklisted filename prefixes from [[MediaWiki:filename-prefix-blacklist]]
788 *
789 * @return array list of prefixes
790 */
791 public static function getFilenamePrefixBlacklist() {
792 $blacklist = array();
793 $message = wfMsgForContent( 'filename-prefix-blacklist' );
794 if( $message && !( wfEmptyMsg( 'filename-prefix-blacklist', $message ) || $message == '-' ) ) {
795 $lines = explode( "\n", $message );
796 foreach( $lines as $line ) {
797 // Remove comment lines
798 $comment = substr( trim( $line ), 0, 1 );
799 if ( $comment == '#' || $comment == '' ) {
800 continue;
801 }
802 // Remove additional comments after a prefix
803 $comment = strpos( $line, '#' );
804 if ( $comment > 0 ) {
805 $line = substr( $line, 0, $comment-1 );
806 }
807 $blacklist[] = trim( $line );
808 }
809 }
810 return $blacklist;
811 }
812
813 /**
814 * Stash a file in a temporary directory for later processing
815 * after the user has confirmed it.
816 *
817 * If the user doesn't explicitly cancel or accept, these files
818 * can accumulate in the temp directory.
819 *
820 * @param string $saveName - the destination filename
821 * @param string $tempName - the source temporary file to save
822 * @return string - full path the stashed file, or false on failure
823 * @access private
824 */
825 function saveTempUploadedFile( $saveName, $tempName ) {
826 global $wgOut;
827 $repo = RepoGroup::singleton()->getLocalRepo();
828 $status = $repo->storeTemp( $saveName, $tempName );
829 if ( !$status->isGood() ) {
830 $this->showError( $status->getWikiText() );
831 return false;
832 } else {
833 return $status->value;
834 }
835 }
836
837 /**
838 * Stash a file in a temporary directory for later processing,
839 * and save the necessary descriptive info into the session.
840 * Returns a key value which will be passed through a form
841 * to pick up the path info on a later invocation.
842 *
843 * @return int
844 * @access private
845 */
846 function stashSession() {
847 $stash = $this->saveTempUploadedFile( $this->mDestName, $this->mTempPath );
848
849 if( !$stash ) {
850 # Couldn't save the file.
851 return false;
852 }
853
854 $key = mt_rand( 0, 0x7fffffff );
855 $_SESSION['wsUploadData'][$key] = array(
856 'mTempPath' => $stash,
857 'mFileSize' => $this->mFileSize,
858 'mSrcName' => $this->mSrcName,
859 'mFileProps' => $this->mFileProps,
860 'version' => self::SESSION_VERSION,
861 );
862 return $key;
863 }
864
865 /**
866 * Remove a temporarily kept file stashed by saveTempUploadedFile().
867 * @access private
868 * @return success
869 */
870 function unsaveUploadedFile() {
871 global $wgOut;
872 if( !$this->mTempPath ) return true; // nothing to delete
873 $repo = RepoGroup::singleton()->getLocalRepo();
874 $success = $repo->freeTemp( $this->mTempPath );
875 if ( ! $success ) {
876 $wgOut->showFileDeleteError( $this->mTempPath );
877 return false;
878 } else {
879 return true;
880 }
881 }
882
883 /* -------------------------------------------------------------- */
884
885 /**
886 * @param string $error as HTML
887 * @access private
888 */
889 function uploadError( $error ) {
890 global $wgOut;
891 $wgOut->addHTML( '<h2>' . wfMsgHtml( 'uploadwarning' ) . "</h2>\n" );
892 $wgOut->addHTML( '<span class="error">' . $error . '</span>' );
893 }
894
895 /**
896 * There's something wrong with this file, not enough to reject it
897 * totally but we require manual intervention to save it for real.
898 * Stash it away, then present a form asking to confirm or cancel.
899 *
900 * @param string $warning as HTML
901 * @access private
902 */
903 function uploadWarning( $warning ) {
904 global $wgOut;
905 global $wgUseCopyrightUpload;
906
907 $this->mSessionKey = $this->stashSession();
908 if( !$this->mSessionKey ) {
909 # Couldn't save file; an error has been displayed so let's go.
910 return;
911 }
912
913 $wgOut->addHTML( '<h2>' . wfMsgHtml( 'uploadwarning' ) . "</h2>\n" );
914 $wgOut->addHTML( '<ul class="warning">' . $warning . "</ul>\n" );
915
916 $titleObj = SpecialPage::getTitleFor( 'Upload' );
917
918 if ( $wgUseCopyrightUpload ) {
919 $copyright = Xml::hidden( 'wpUploadCopyStatus', $this->mCopyrightStatus ) . "\n" .
920 Xml::hidden( 'wpUploadSource', $this->mCopyrightSource ) . "\n";
921 } else {
922 $copyright = '';
923 }
924
925 $wgOut->addHTML(
926 Xml::openElement( 'form', array( 'method' => 'post', 'action' => $titleObj->getLocalURL( 'action=submit' ),
927 'enctype' => 'multipart/form-data', 'id' => 'uploadwarning' ) ) . "\n" .
928 Xml::hidden( 'wpIgnoreWarning', '1' ) . "\n" .
929 Xml::hidden( 'wpSessionKey', $this->mSessionKey ) . "\n" .
930 Xml::hidden( 'wpUploadDescription', $this->mComment ) . "\n" .
931 Xml::hidden( 'wpLicense', $this->mLicense ) . "\n" .
932 Xml::hidden( 'wpDestFile', $this->mDesiredDestName ) . "\n" .
933 Xml::hidden( 'wpWatchthis', $this->mWatchthis ) . "\n" .
934 "{$copyright}<br />" .
935 Xml::submitButton( wfMsg( 'ignorewarning' ), array ( 'name' => 'wpUpload', 'id' => 'wpUpload', 'checked' => 'checked' ) ) . ' ' .
936 Xml::submitButton( wfMsg( 'reuploaddesc' ), array ( 'name' => 'wpReUpload', 'id' => 'wpReUpload' ) ) .
937 Xml::closeElement( 'form' ) . "\n"
938 );
939 }
940
941 /**
942 * Displays the main upload form, optionally with a highlighted
943 * error message up at the top.
944 *
945 * @param string $msg as HTML
946 * @access private
947 */
948 function mainUploadForm( $msg='' ) {
949 global $wgOut, $wgUser, $wgLang, $wgMaxUploadSize;
950 global $wgUseCopyrightUpload, $wgUseAjax, $wgAjaxUploadDestCheck, $wgAjaxLicensePreview;
951 global $wgRequest, $wgAllowCopyUploads;
952 global $wgStylePath, $wgStyleVersion;
953
954 $useAjaxDestCheck = $wgUseAjax && $wgAjaxUploadDestCheck;
955 $useAjaxLicensePreview = $wgUseAjax && $wgAjaxLicensePreview;
956
957 $adc = wfBoolToStr( $useAjaxDestCheck );
958 $alp = wfBoolToStr( $useAjaxLicensePreview );
959 $autofill = wfBoolToStr( $this->mDesiredDestName == '' );
960
961 $wgOut->addScript( "<script type=\"text/javascript\">
962 wgAjaxUploadDestCheck = {$adc};
963 wgAjaxLicensePreview = {$alp};
964 wgUploadAutoFill = {$autofill};
965 </script>" );
966 $wgOut->addScriptFile( 'upload.js' );
967 $wgOut->addScriptFile( 'edit.js' ); // For <charinsert> support
968
969 if( !wfRunHooks( 'UploadForm:initial', array( &$this ) ) )
970 {
971 wfDebug( "Hook 'UploadForm:initial' broke output of the upload form\n" );
972 return false;
973 }
974
975 if( $this->mDesiredDestName ) {
976 $title = Title::makeTitleSafe( NS_FILE, $this->mDesiredDestName );
977 // Show a subtitle link to deleted revisions (to sysops et al only)
978 if( $title instanceof Title && ( $count = $title->isDeleted() ) > 0 && $wgUser->isAllowed( 'deletedhistory' ) ) {
979 $link = wfMsgExt(
980 $wgUser->isAllowed( 'delete' ) ? 'thisisdeleted' : 'viewdeleted',
981 array( 'parse', 'replaceafter' ),
982 $wgUser->getSkin()->makeKnownLinkObj(
983 SpecialPage::getTitleFor( 'Undelete', $title->getPrefixedText() ),
984 wfMsgExt( 'restorelink', array( 'parsemag', 'escape' ), $count )
985 )
986 );
987 $wgOut->addHTML( "<div id=\"contentSub2\">{$link}</div>" );
988 }
989
990 // Show the relevant lines from deletion log (for still deleted files only)
991 if( $title instanceof Title && $title->isDeleted() > 0 && !$title->exists() ) {
992 $this->showDeletionLog( $wgOut, $title->getPrefixedText() );
993 }
994 }
995
996 $cols = intval($wgUser->getOption( 'cols' ));
997
998 if( $wgUser->getOption( 'editwidth' ) ) {
999 $width = " style=\"width:100%\"";
1000 } else {
1001 $width = '';
1002 }
1003
1004 if ( '' != $msg ) {
1005 $sub = wfMsgHtml( 'uploaderror' );
1006 $wgOut->addHTML( "<h2>{$sub}</h2>\n" .
1007 "<span class='error'>{$msg}</span>\n" );
1008 }
1009 $wgOut->addHTML( '<div id="uploadtext">' );
1010 $wgOut->addWikiMsg( 'uploadtext', $this->mDesiredDestName );
1011 $wgOut->addHTML( "</div>\n" );
1012
1013 # Print a list of allowed file extensions, if so configured. We ignore
1014 # MIME type here, it's incomprehensible to most people and too long.
1015 global $wgCheckFileExtensions, $wgStrictFileExtensions,
1016 $wgFileExtensions, $wgFileBlacklist;
1017
1018 $allowedExtensions = '';
1019 if( $wgCheckFileExtensions ) {
1020 if( $wgStrictFileExtensions ) {
1021 # Everything not permitted is banned
1022 $extensionsList =
1023 '<div id="mw-upload-permitted">' .
1024 wfMsgWikiHtml( 'upload-permitted', $wgLang->commaList( $wgFileExtensions ) ) .
1025 "</div>\n";
1026 } else {
1027 # We have to list both preferred and prohibited
1028 $extensionsList =
1029 '<div id="mw-upload-preferred">' .
1030 wfMsgWikiHtml( 'upload-preferred', $wgLang->commaList( $wgFileExtensions ) ) .
1031 "</div>\n" .
1032 '<div id="mw-upload-prohibited">' .
1033 wfMsgWikiHtml( 'upload-prohibited', $wgLang->commaList( $wgFileBlacklist ) ) .
1034 "</div>\n";
1035 }
1036 } else {
1037 # Everything is permitted.
1038 $extensionsList = '';
1039 }
1040
1041 # Get the maximum file size from php.ini as $wgMaxUploadSize works for uploads from URL via CURL only
1042 # See http://www.php.net/manual/en/ini.core.php#ini.upload-max-filesize for possible values of upload_max_filesize
1043 $val = trim( ini_get( 'upload_max_filesize' ) );
1044 $last = strtoupper( ( substr( $val, -1 ) ) );
1045 switch( $last ) {
1046 case 'G':
1047 $val2 = substr( $val, 0, -1 ) * 1024 * 1024 * 1024;
1048 break;
1049 case 'M':
1050 $val2 = substr( $val, 0, -1 ) * 1024 * 1024;
1051 break;
1052 case 'K':
1053 $val2 = substr( $val, 0, -1 ) * 1024;
1054 break;
1055 default:
1056 $val2 = $val;
1057 }
1058 $val2 = $wgAllowCopyUploads ? min( $wgMaxUploadSize, $val2 ) : $val2;
1059 $maxUploadSize = '<div id="mw-upload-maxfilesize">' .
1060 wfMsgExt( 'upload-maxfilesize', array( 'parseinline', 'escapenoentities' ),
1061 $wgLang->formatSize( $val2 ) ) .
1062 "</div>\n";
1063
1064 $sourcefilename = wfMsgExt( 'sourcefilename', array( 'parseinline', 'escapenoentities' ) );
1065 $destfilename = wfMsgExt( 'destfilename', array( 'parseinline', 'escapenoentities' ) );
1066
1067 $msg = $this->mReUpload ? 'filereuploadsummary' : 'fileuploadsummary';
1068 $summary = wfMsgExt( $msg, 'parseinline' );
1069
1070 $licenses = new Licenses();
1071 $license = wfMsgExt( 'license', array( 'parseinline' ) );
1072 $nolicense = wfMsgHtml( 'nolicense' );
1073 $licenseshtml = $licenses->getHtml();
1074
1075 $ulb = wfMsgHtml( 'uploadbtn' );
1076
1077
1078 $titleObj = SpecialPage::getTitleFor( 'Upload' );
1079
1080 $encDestName = htmlspecialchars( $this->mDesiredDestName );
1081
1082 $watchChecked = $this->watchCheck() ? 'checked="checked"' : '';
1083 # Re-uploads should not need "file exist already" warnings
1084 $warningChecked = ($this->mIgnoreWarning || $this->mReUpload) ? 'checked="checked"' : '';
1085
1086 // Prepare form for upload or upload/copy
1087 if( $wgAllowCopyUploads && $wgUser->isAllowed( 'upload_by_url' ) ) {
1088 $filename_form =
1089 "<input type='radio' id='wpSourceTypeFile' name='wpSourceType' value='file' " .
1090 "onchange='toggle_element_activation(\"wpUploadFileURL\",\"wpUploadFile\")' checked='checked' />" .
1091 "<input tabindex='1' type='file' name='wpUploadFile' id='wpUploadFile' " .
1092 "onfocus='" .
1093 "toggle_element_activation(\"wpUploadFileURL\",\"wpUploadFile\");" .
1094 "toggle_element_check(\"wpSourceTypeFile\",\"wpSourceTypeURL\")' " .
1095 "onchange='fillDestFilename(\"wpUploadFile\")' size='60' />" .
1096 wfMsgHTML( 'upload_source_file' ) . "<br/>" .
1097 "<input type='radio' id='wpSourceTypeURL' name='wpSourceType' value='web' " .
1098 "onchange='toggle_element_activation(\"wpUploadFile\",\"wpUploadFileURL\")' />" .
1099 "<input tabindex='1' type='text' name='wpUploadFileURL' id='wpUploadFileURL' " .
1100 "onfocus='" .
1101 "toggle_element_activation(\"wpUploadFile\",\"wpUploadFileURL\");" .
1102 "toggle_element_check(\"wpSourceTypeURL\",\"wpSourceTypeFile\")' " .
1103 "onchange='fillDestFilename(\"wpUploadFileURL\")' size='60' disabled='disabled' />" .
1104 wfMsgHtml( 'upload_source_url' ) ;
1105 } else {
1106 $filename_form =
1107 "<input tabindex='1' type='file' name='wpUploadFile' id='wpUploadFile' " .
1108 ($this->mDesiredDestName?"":"onchange='fillDestFilename(\"wpUploadFile\")' ") .
1109 "size='60' />" .
1110 "<input type='hidden' name='wpSourceType' value='file' />" ;
1111 }
1112 if ( $useAjaxDestCheck ) {
1113 $warningRow = "<tr><td colspan='2' id='wpDestFile-warning'>&nbsp;</td></tr>";
1114 $destOnkeyup = 'onkeyup="wgUploadWarningObj.keypress();"';
1115 } else {
1116 $warningRow = '';
1117 $destOnkeyup = '';
1118 }
1119 # Uploading a new version? If so, the name is fixed.
1120 $on = $this->mReUpload ? "disabled='disabled'" : "";
1121
1122 $encComment = htmlspecialchars( $this->mComment );
1123
1124 $wgOut->addHTML(
1125 Xml::openElement( 'form', array( 'method' => 'post', 'action' => $titleObj->getLocalURL(),
1126 'enctype' => 'multipart/form-data', 'id' => 'mw-upload-form' ) ) .
1127 Xml::openElement( 'fieldset' ) .
1128 Xml::element( 'legend', null, wfMsg( 'upload' ) ) .
1129 Xml::openElement( 'table', array( 'border' => '0', 'id' => 'mw-upload-table' ) ) .
1130 "<tr>
1131 {$this->uploadFormTextTop}
1132 <td class='mw-label'>
1133 <label for='wpUploadFile'>{$sourcefilename}</label>
1134 </td>
1135 <td class='mw-input'>
1136 {$filename_form}
1137 </td>
1138 </tr>
1139 <tr>
1140 <td></td>
1141 <td>
1142 {$maxUploadSize}
1143 {$extensionsList}
1144 </td>
1145 </tr>
1146 <tr>
1147 <td class='mw-label'>
1148 <label for='wpDestFile'>{$destfilename}</label>
1149 </td>
1150 <td class='mw-input'>
1151 <input tabindex='2' type='text' name='wpDestFile' id='wpDestFile' size='60'
1152 value=\"{$encDestName}\" onchange='toggleFilenameFiller()' $on $destOnkeyup />
1153 </td>
1154 </tr>
1155 <tr>
1156 <td class='mw-label'>
1157 <label for='wpUploadDescription'>{$summary}</label>
1158 </td>
1159 <td class='mw-input'>
1160 <textarea tabindex='3' name='wpUploadDescription' id='wpUploadDescription' rows='6'
1161 cols='{$cols}'{$width}>$encComment</textarea>
1162 {$this->uploadFormTextAfterSummary}
1163 </td>
1164 </tr>
1165 <tr>"
1166 );
1167 # Re-uploads should not need license info
1168 if ( !$this->mReUpload && $licenseshtml != '' ) {
1169 global $wgStylePath;
1170 $wgOut->addHTML( "
1171 <td class='mw-label'>
1172 <label for='wpLicense'>$license</label>
1173 </td>
1174 <td class='mw-input'>
1175 <select name='wpLicense' id='wpLicense' tabindex='4'
1176 onchange='licenseSelectorCheck()'>
1177 <option value=''>$nolicense</option>
1178 $licenseshtml
1179 </select>
1180 </td>
1181 </tr>
1182 <tr>"
1183 );
1184 if( $useAjaxLicensePreview ) {
1185 $wgOut->addHTML( "
1186 <td></td>
1187 <td id=\"mw-license-preview\"></td>
1188 </tr>
1189 <tr>"
1190 );
1191 }
1192 }
1193
1194 if ( !$this->mReUpload && $wgUseCopyrightUpload ) {
1195 $filestatus = wfMsgExt( 'filestatus', 'escapenoentities' );
1196 $copystatus = htmlspecialchars( $this->mCopyrightStatus );
1197 $filesource = wfMsgExt( 'filesource', 'escapenoentities' );
1198 $uploadsource = htmlspecialchars( $this->mCopyrightSource );
1199
1200 $wgOut->addHTML( "
1201 <td class='mw-label' style='white-space: nowrap;'>
1202 <label for='wpUploadCopyStatus'>$filestatus</label></td>
1203 <td class='mw-input'>
1204 <input tabindex='5' type='text' name='wpUploadCopyStatus' id='wpUploadCopyStatus'
1205 value=\"$copystatus\" size='60' />
1206 </td>
1207 </tr>
1208 <tr>
1209 <td class='mw-label'>
1210 <label for='wpUploadCopyStatus'>$filesource</label>
1211 </td>
1212 <td class='mw-input'>
1213 <input tabindex='6' type='text' name='wpUploadSource' id='wpUploadCopyStatus'
1214 value=\"$uploadsource\" size='60' />
1215 </td>
1216 </tr>
1217 <tr>"
1218 );
1219 }
1220
1221 $wgOut->addHTML( "
1222 <td></td>
1223 <td>
1224 <input tabindex='7' type='checkbox' name='wpWatchthis' id='wpWatchthis' $watchChecked value='true' />
1225 <label for='wpWatchthis'>" . wfMsgHtml( 'watchthisupload' ) . "</label>
1226 <input tabindex='8' type='checkbox' name='wpIgnoreWarning' id='wpIgnoreWarning' value='true' $warningChecked />
1227 <label for='wpIgnoreWarning'>" . wfMsgHtml( 'ignorewarnings' ) . "</label>
1228 </td>
1229 </tr>
1230 $warningRow
1231 <tr>
1232 <td></td>
1233 <td class='mw-input'>
1234 <input tabindex='9' type='submit' name='wpUpload' value=\"{$ulb}\"" . $wgUser->getSkin()->tooltipAndAccesskey( 'upload' ) . " />
1235 </td>
1236 </tr>
1237 <tr>
1238 <td></td>
1239 <td class='mw-input'>"
1240 );
1241 $wgOut->addWikiText( wfMsgForContent( 'edittools' ) );
1242 $wgOut->addHTML( "
1243 </td>
1244 </tr>" .
1245 Xml::closeElement( 'table' ) .
1246 Xml::hidden( 'wpDestFileWarningAck', '', array( 'id' => 'wpDestFileWarningAck' ) ) .
1247 Xml::closeElement( 'fieldset' ) .
1248 Xml::closeElement( 'form' )
1249 );
1250 $uploadfooter = wfMsgNoTrans( 'uploadfooter' );
1251 if( $uploadfooter != '-' && !wfEmptyMsg( 'uploadfooter', $uploadfooter ) ){
1252 $wgOut->addWikiText( '<div id="mw-upload-footer-message">' . $uploadfooter . '</div>' );
1253 }
1254 }
1255
1256 /* -------------------------------------------------------------- */
1257
1258 /**
1259 * See if we should check the 'watch this page' checkbox on the form
1260 * based on the user's preferences and whether we're being asked
1261 * to create a new file or update an existing one.
1262 *
1263 * In the case where 'watch edits' is off but 'watch creations' is on,
1264 * we'll leave the box unchecked.
1265 *
1266 * Note that the page target can be changed *on the form*, so our check
1267 * state can get out of sync.
1268 */
1269 function watchCheck() {
1270 global $wgUser;
1271 if( $wgUser->getOption( 'watchdefault' ) ) {
1272 // Watch all edits!
1273 return true;
1274 }
1275
1276 $local = wfLocalFile( $this->mDesiredDestName );
1277 if( $local && $local->exists() ) {
1278 // We're uploading a new version of an existing file.
1279 // No creation, so don't watch it if we're not already.
1280 return $local->getTitle()->userIsWatching();
1281 } else {
1282 // New page should get watched if that's our option.
1283 return $wgUser->getOption( 'watchcreations' );
1284 }
1285 }
1286
1287 /**
1288 * Split a file into a base name and all dot-delimited 'extensions'
1289 * on the end. Some web server configurations will fall back to
1290 * earlier pseudo-'extensions' to determine type and execute
1291 * scripts, so the blacklist needs to check them all.
1292 *
1293 * @return array
1294 */
1295 public function splitExtensions( $filename ) {
1296 $bits = explode( '.', $filename );
1297 $basename = array_shift( $bits );
1298 return array( $basename, $bits );
1299 }
1300
1301 /**
1302 * Perform case-insensitive match against a list of file extensions.
1303 * Returns true if the extension is in the list.
1304 *
1305 * @param string $ext
1306 * @param array $list
1307 * @return bool
1308 */
1309 function checkFileExtension( $ext, $list ) {
1310 return in_array( strtolower( $ext ), $list );
1311 }
1312
1313 /**
1314 * Perform case-insensitive match against a list of file extensions.
1315 * Returns true if any of the extensions are in the list.
1316 *
1317 * @param array $ext
1318 * @param array $list
1319 * @return bool
1320 */
1321 public function checkFileExtensionList( $ext, $list ) {
1322 foreach( $ext as $e ) {
1323 if( in_array( strtolower( $e ), $list ) ) {
1324 return true;
1325 }
1326 }
1327 return false;
1328 }
1329
1330 /**
1331 * Verifies that it's ok to include the uploaded file
1332 *
1333 * @param string $tmpfile the full path of the temporary file to verify
1334 * @param string $extension The filename extension that the file is to be served with
1335 * @return mixed true of the file is verified, a WikiError object otherwise.
1336 */
1337 function verify( $tmpfile, $extension ) {
1338 #magically determine mime type
1339 $magic = MimeMagic::singleton();
1340 $mime = $magic->guessMimeType($tmpfile,false);
1341
1342
1343 #check mime type, if desired
1344 global $wgVerifyMimeType;
1345 if ($wgVerifyMimeType) {
1346 wfDebug ( "\n\nmime: <$mime> extension: <$extension>\n\n");
1347 #check mime type against file extension
1348 if( !self::verifyExtension( $mime, $extension ) ) {
1349 return new WikiErrorMsg( 'uploadcorrupt' );
1350 }
1351
1352 #check mime type blacklist
1353 global $wgMimeTypeBlacklist;
1354 if( isset($wgMimeTypeBlacklist) && !is_null($wgMimeTypeBlacklist) ) {
1355 if ( $this->checkFileExtension( $mime, $wgMimeTypeBlacklist ) ) {
1356 return new WikiErrorMsg( 'filetype-badmime', htmlspecialchars( $mime ) );
1357 }
1358
1359 # Check IE type
1360 $fp = fopen( $tmpfile, 'rb' );
1361 $chunk = fread( $fp, 256 );
1362 fclose( $fp );
1363 $extMime = $magic->guessTypesForExtension( $extension );
1364 $ieTypes = $magic->getIEMimeTypes( $tmpfile, $chunk, $extMime );
1365 foreach ( $ieTypes as $ieType ) {
1366 if ( $this->checkFileExtension( $ieType, $wgMimeTypeBlacklist ) ) {
1367 return new WikiErrorMsg( 'filetype-bad-ie-mime', $ieType );
1368 }
1369 }
1370 }
1371 }
1372
1373 #check for htmlish code and javascript
1374 if( $this->detectScript ( $tmpfile, $mime, $extension ) ) {
1375 return new WikiErrorMsg( 'uploadscripted' );
1376 }
1377 if( $extension == 'svg' || $mime == 'image/svg+xml' ) {
1378 if( $this->detectScriptInSvg( $tmpfile ) ) {
1379 return new WikiErrorMsg( 'uploadscripted' );
1380 }
1381 }
1382
1383 /**
1384 * Scan the uploaded file for viruses
1385 */
1386 $virus= $this->detectVirus($tmpfile);
1387 if ( $virus ) {
1388 return new WikiErrorMsg( 'uploadvirus', htmlspecialchars($virus) );
1389 }
1390
1391 wfDebug( __METHOD__.": all clear; passing.\n" );
1392 return true;
1393 }
1394
1395 /**
1396 * Checks if the mime type of the uploaded file matches the file extension.
1397 *
1398 * @param string $mime the mime type of the uploaded file
1399 * @param string $extension The filename extension that the file is to be served with
1400 * @return bool
1401 */
1402 static function verifyExtension( $mime, $extension ) {
1403 $magic = MimeMagic::singleton();
1404
1405 if ( ! $mime || $mime == 'unknown' || $mime == 'unknown/unknown' )
1406 if ( ! $magic->isRecognizableExtension( $extension ) ) {
1407 wfDebug( __METHOD__.": passing file with unknown detected mime type; " .
1408 "unrecognized extension '$extension', can't verify\n" );
1409 return true;
1410 } else {
1411 wfDebug( __METHOD__.": rejecting file with unknown detected mime type; ".
1412 "recognized extension '$extension', so probably invalid file\n" );
1413 return false;
1414 }
1415
1416 $match= $magic->isMatchingExtension($extension,$mime);
1417
1418 if ($match===NULL) {
1419 wfDebug( __METHOD__.": no file extension known for mime type $mime, passing file\n" );
1420 return true;
1421 } elseif ($match===true) {
1422 wfDebug( __METHOD__.": mime type $mime matches extension $extension, passing file\n" );
1423
1424 #TODO: if it's a bitmap, make sure PHP or ImageMagic resp. can handle it!
1425 return true;
1426
1427 } else {
1428 wfDebug( __METHOD__.": mime type $mime mismatches file extension $extension, rejecting file\n" );
1429 return false;
1430 }
1431 }
1432
1433
1434 /**
1435 * Heuristic for detecting files that *could* contain JavaScript instructions or
1436 * things that may look like HTML to a browser and are thus
1437 * potentially harmful. The present implementation will produce false positives in some situations.
1438 *
1439 * @param string $file Pathname to the temporary upload file
1440 * @param string $mime The mime type of the file
1441 * @param string $extension The extension of the file
1442 * @return bool true if the file contains something looking like embedded scripts
1443 */
1444 function detectScript($file, $mime, $extension) {
1445 global $wgAllowTitlesInSVG;
1446
1447 #ugly hack: for text files, always look at the entire file.
1448 #For binarie field, just check the first K.
1449
1450 if (strpos($mime,'text/')===0) $chunk = file_get_contents( $file );
1451 else {
1452 $fp = fopen( $file, 'rb' );
1453 $chunk = fread( $fp, 1024 );
1454 fclose( $fp );
1455 }
1456
1457 $chunk= strtolower( $chunk );
1458
1459 if (!$chunk) return false;
1460
1461 #decode from UTF-16 if needed (could be used for obfuscation).
1462 if (substr($chunk,0,2)=="\xfe\xff") $enc= "UTF-16BE";
1463 elseif (substr($chunk,0,2)=="\xff\xfe") $enc= "UTF-16LE";
1464 else $enc= NULL;
1465
1466 if ($enc) $chunk= iconv($enc,"ASCII//IGNORE",$chunk);
1467
1468 $chunk= trim($chunk);
1469
1470 #FIXME: convert from UTF-16 if necessarry!
1471
1472 wfDebug("SpecialUpload::detectScript: checking for embedded scripts and HTML stuff\n");
1473
1474 #check for HTML doctype
1475 if (eregi("<!DOCTYPE *X?HTML",$chunk)) return true;
1476
1477 /**
1478 * Internet Explorer for Windows performs some really stupid file type
1479 * autodetection which can cause it to interpret valid image files as HTML
1480 * and potentially execute JavaScript, creating a cross-site scripting
1481 * attack vectors.
1482 *
1483 * Apple's Safari browser also performs some unsafe file type autodetection
1484 * which can cause legitimate files to be interpreted as HTML if the
1485 * web server is not correctly configured to send the right content-type
1486 * (or if you're really uploading plain text and octet streams!)
1487 *
1488 * Returns true if IE is likely to mistake the given file for HTML.
1489 * Also returns true if Safari would mistake the given file for HTML
1490 * when served with a generic content-type.
1491 */
1492
1493 $tags = array(
1494 '<a href',
1495 '<body',
1496 '<head',
1497 '<html', #also in safari
1498 '<img',
1499 '<pre',
1500 '<script', #also in safari
1501 '<table'
1502 );
1503 if( ! $wgAllowTitlesInSVG && $extension !== 'svg' && $mime !== 'image/svg' ) {
1504 $tags[] = '<title';
1505 }
1506
1507 foreach( $tags as $tag ) {
1508 if( false !== strpos( $chunk, $tag ) ) {
1509 return true;
1510 }
1511 }
1512
1513 /*
1514 * look for javascript
1515 */
1516
1517 #resolve entity-refs to look at attributes. may be harsh on big files... cache result?
1518 $chunk = Sanitizer::decodeCharReferences( $chunk );
1519
1520 #look for script-types
1521 if (preg_match('!type\s*=\s*[\'"]?\s*(?:\w*/)?(?:ecma|java)!sim',$chunk)) return true;
1522
1523 #look for html-style script-urls
1524 if (preg_match('!(?:href|src|data)\s*=\s*[\'"]?\s*(?:ecma|java)script:!sim',$chunk)) return true;
1525
1526 #look for css-style script-urls
1527 if (preg_match('!url\s*\(\s*[\'"]?\s*(?:ecma|java)script:!sim',$chunk)) return true;
1528
1529 wfDebug("SpecialUpload::detectScript: no scripts found\n");
1530 return false;
1531 }
1532
1533 function detectScriptInSvg( $filename ) {
1534 $check = new XmlTypeCheck( $filename, array( $this, 'checkSvgScriptCallback' ) );
1535 return $check->filterMatch;
1536 }
1537
1538 /**
1539 * @todo Replace this with a whitelist filter!
1540 */
1541 function checkSvgScriptCallback( $element, $attribs ) {
1542 $stripped = $this->stripXmlNamespace( $element );
1543
1544 if( $stripped == 'script' ) {
1545 wfDebug( __METHOD__ . ": Found script element '$element' in uploaded file.\n" );
1546 return true;
1547 }
1548
1549 foreach( $attribs as $attrib => $value ) {
1550 $stripped = $this->stripXmlNamespace( $attrib );
1551 if( substr( $stripped, 0, 2 ) == 'on' ) {
1552 wfDebug( __METHOD__ . ": Found script attribute '$attrib'='value' in uploaded file.\n" );
1553 return true;
1554 }
1555 if( $stripped == 'href' && strpos( strtolower( $value ), 'javascript:' ) !== false ) {
1556 wfDebug( __METHOD__ . ": Found script href attribute '$attrib'='$value' in uploaded file.\n" );
1557 return true;
1558 }
1559 }
1560 }
1561
1562 private function stripXmlNamespace( $name ) {
1563 // 'http://www.w3.org/2000/svg:script' -> 'script'
1564 $parts = explode( ':', strtolower( $name ) );
1565 return array_pop( $parts );
1566 }
1567
1568 /**
1569 * Generic wrapper function for a virus scanner program.
1570 * This relies on the $wgAntivirus and $wgAntivirusSetup variables.
1571 * $wgAntivirusRequired may be used to deny upload if the scan fails.
1572 *
1573 * @param string $file Pathname to the temporary upload file
1574 * @return mixed false if not virus is found, NULL if the scan fails or is disabled,
1575 * or a string containing feedback from the virus scanner if a virus was found.
1576 * If textual feedback is missing but a virus was found, this function returns true.
1577 */
1578 function detectVirus($file) {
1579 global $wgAntivirus, $wgAntivirusSetup, $wgAntivirusRequired, $wgOut;
1580
1581 if ( !$wgAntivirus ) {
1582 wfDebug( __METHOD__.": virus scanner disabled\n");
1583 return NULL;
1584 }
1585
1586 if ( !$wgAntivirusSetup[$wgAntivirus] ) {
1587 wfDebug( __METHOD__.": unknown virus scanner: $wgAntivirus\n" );
1588 $wgOut->wrapWikiMsg( '<div class="error">$1</div>', array( 'virus-badscanner', $wgAntivirus ) );
1589 return wfMsg('virus-unknownscanner') . " $wgAntivirus";
1590 }
1591
1592 # look up scanner configuration
1593 $command = $wgAntivirusSetup[$wgAntivirus]["command"];
1594 $exitCodeMap = $wgAntivirusSetup[$wgAntivirus]["codemap"];
1595 $msgPattern = isset( $wgAntivirusSetup[$wgAntivirus]["messagepattern"] ) ?
1596 $wgAntivirusSetup[$wgAntivirus]["messagepattern"] : null;
1597
1598 if ( strpos( $command,"%f" ) === false ) {
1599 # simple pattern: append file to scan
1600 $command .= " " . wfEscapeShellArg( $file );
1601 } else {
1602 # complex pattern: replace "%f" with file to scan
1603 $command = str_replace( "%f", wfEscapeShellArg( $file ), $command );
1604 }
1605
1606 wfDebug( __METHOD__.": running virus scan: $command \n" );
1607
1608 # execute virus scanner
1609 $exitCode = false;
1610
1611 #NOTE: there's a 50 line workaround to make stderr redirection work on windows, too.
1612 # that does not seem to be worth the pain.
1613 # Ask me (Duesentrieb) about it if it's ever needed.
1614 $output = array();
1615 if ( wfIsWindows() ) {
1616 exec( "$command", $output, $exitCode );
1617 } else {
1618 exec( "$command 2>&1", $output, $exitCode );
1619 }
1620
1621 # map exit code to AV_xxx constants.
1622 $mappedCode = $exitCode;
1623 if ( $exitCodeMap ) {
1624 if ( isset( $exitCodeMap[$exitCode] ) ) {
1625 $mappedCode = $exitCodeMap[$exitCode];
1626 } elseif ( isset( $exitCodeMap["*"] ) ) {
1627 $mappedCode = $exitCodeMap["*"];
1628 }
1629 }
1630
1631 if ( $mappedCode === AV_SCAN_FAILED ) {
1632 # scan failed (code was mapped to false by $exitCodeMap)
1633 wfDebug( __METHOD__.": failed to scan $file (code $exitCode).\n" );
1634
1635 if ( $wgAntivirusRequired ) {
1636 return wfMsg('virus-scanfailed', array( $exitCode ) );
1637 } else {
1638 return NULL;
1639 }
1640 } else if ( $mappedCode === AV_SCAN_ABORTED ) {
1641 # scan failed because filetype is unknown (probably imune)
1642 wfDebug( __METHOD__.": unsupported file type $file (code $exitCode).\n" );
1643 return NULL;
1644 } else if ( $mappedCode === AV_NO_VIRUS ) {
1645 # no virus found
1646 wfDebug( __METHOD__.": file passed virus scan.\n" );
1647 return false;
1648 } else {
1649 $output = join( "\n", $output );
1650 $output = trim( $output );
1651
1652 if ( !$output ) {
1653 $output = true; #if there's no output, return true
1654 } elseif ( $msgPattern ) {
1655 $groups = array();
1656 if ( preg_match( $msgPattern, $output, $groups ) ) {
1657 if ( $groups[1] ) {
1658 $output = $groups[1];
1659 }
1660 }
1661 }
1662
1663 wfDebug( __METHOD__.": FOUND VIRUS! scanner feedback: $output \n" );
1664 return $output;
1665 }
1666 }
1667
1668 /**
1669 * Check if the temporary file is MacBinary-encoded, as some uploads
1670 * from Internet Explorer on Mac OS Classic and Mac OS X will be.
1671 * If so, the data fork will be extracted to a second temporary file,
1672 * which will then be checked for validity and either kept or discarded.
1673 *
1674 * @access private
1675 */
1676 function checkMacBinary() {
1677 $macbin = new MacBinary( $this->mTempPath );
1678 if( $macbin->isValid() ) {
1679 $dataFile = tempnam( wfTempDir(), "WikiMacBinary" );
1680 $dataHandle = fopen( $dataFile, 'wb' );
1681
1682 wfDebug( "SpecialUpload::checkMacBinary: Extracting MacBinary data fork to $dataFile\n" );
1683 $macbin->extractData( $dataHandle );
1684
1685 $this->mTempPath = $dataFile;
1686 $this->mFileSize = $macbin->dataForkLength();
1687
1688 // We'll have to manually remove the new file if it's not kept.
1689 $this->mRemoveTempFile = true;
1690 }
1691 $macbin->close();
1692 }
1693
1694 /**
1695 * If we've modified the upload file we need to manually remove it
1696 * on exit to clean up.
1697 * @access private
1698 */
1699 function cleanupTempFile() {
1700 if ( $this->mRemoveTempFile && $this->mTempPath && file_exists( $this->mTempPath ) ) {
1701 wfDebug( "SpecialUpload::cleanupTempFile: Removing temporary file {$this->mTempPath}\n" );
1702 unlink( $this->mTempPath );
1703 }
1704 }
1705
1706 /**
1707 * Check if there's an overwrite conflict and, if so, if restrictions
1708 * forbid this user from performing the upload.
1709 *
1710 * @return mixed true on success, WikiError on failure
1711 * @access private
1712 */
1713 function checkOverwrite( $name ) {
1714 $img = wfFindFile( $name );
1715
1716 $error = '';
1717 if( $img ) {
1718 global $wgUser, $wgOut;
1719 if( $img->isLocal() ) {
1720 if( !self::userCanReUpload( $wgUser, $img->name ) ) {
1721 $error = 'fileexists-forbidden';
1722 }
1723 } else {
1724 if( !$wgUser->isAllowed( 'reupload' ) ||
1725 !$wgUser->isAllowed( 'reupload-shared' ) ) {
1726 $error = "fileexists-shared-forbidden";
1727 }
1728 }
1729 }
1730
1731 if( $error ) {
1732 $errorText = wfMsg( $error, wfEscapeWikiText( $img->getName() ) );
1733 return $errorText;
1734 }
1735
1736 // Rockin', go ahead and upload
1737 return true;
1738 }
1739
1740 /**
1741 * Check if a user is the last uploader
1742 *
1743 * @param User $user
1744 * @param string $img, image name
1745 * @return bool
1746 */
1747 public static function userCanReUpload( User $user, $img ) {
1748 if( $user->isAllowed( 'reupload' ) )
1749 return true; // non-conditional
1750 if( !$user->isAllowed( 'reupload-own' ) )
1751 return false;
1752
1753 $dbr = wfGetDB( DB_SLAVE );
1754 $row = $dbr->selectRow('image',
1755 /* SELECT */ 'img_user',
1756 /* WHERE */ array( 'img_name' => $img )
1757 );
1758 if ( !$row )
1759 return false;
1760
1761 return $user->getId() == $row->img_user;
1762 }
1763
1764 /**
1765 * Display an error with a wikitext description
1766 */
1767 function showError( $description ) {
1768 global $wgOut;
1769 $wgOut->setPageTitle( wfMsg( "internalerror" ) );
1770 $wgOut->setRobotPolicy( "noindex,nofollow" );
1771 $wgOut->setArticleRelated( false );
1772 $wgOut->enableClientCache( false );
1773 $wgOut->addWikiText( $description );
1774 }
1775
1776 /**
1777 * Get the initial image page text based on a comment and optional file status information
1778 */
1779 static function getInitialPageText( $comment, $license, $copyStatus, $source ) {
1780 global $wgUseCopyrightUpload;
1781 if ( $wgUseCopyrightUpload ) {
1782 if ( $license != '' ) {
1783 $licensetxt = '== ' . wfMsgForContent( 'license' ) . " ==\n" . '{{' . $license . '}}' . "\n";
1784 }
1785 $pageText = '== ' . wfMsg ( 'filedesc' ) . " ==\n" . $comment . "\n" .
1786 '== ' . wfMsgForContent ( 'filestatus' ) . " ==\n" . $copyStatus . "\n" .
1787 "$licensetxt" .
1788 '== ' . wfMsgForContent ( 'filesource' ) . " ==\n" . $source ;
1789 } else {
1790 if ( $license != '' ) {
1791 $filedesc = $comment == '' ? '' : '== ' . wfMsg ( 'filedesc' ) . " ==\n" . $comment . "\n";
1792 $pageText = $filedesc .
1793 '== ' . wfMsgForContent ( 'license' ) . " ==\n" . '{{' . $license . '}}' . "\n";
1794 } else {
1795 $pageText = $comment;
1796 }
1797 }
1798 return $pageText;
1799 }
1800
1801 /**
1802 * If there are rows in the deletion log for this file, show them,
1803 * along with a nice little note for the user
1804 *
1805 * @param OutputPage $out
1806 * @param string filename
1807 */
1808 private function showDeletionLog( $out, $filename ) {
1809 global $wgUser;
1810 $loglist = new LogEventsList( $wgUser->getSkin(), $out );
1811 $pager = new LogPager( $loglist, 'delete', false, $filename );
1812 if( $pager->getNumRows() > 0 ) {
1813 $out->addHTML( '<div class="mw-warning-with-logexcerpt">' );
1814 $out->addWikiMsg( 'upload-wasdeleted' );
1815 $out->addHTML(
1816 $loglist->beginLogEventsList() .
1817 $pager->getBody() .
1818 $loglist->endLogEventsList()
1819 );
1820 $out->addHTML( '</div>' );
1821 }
1822 }
1823 }