// Check for uppercase extension. We allow these filenames but check if an image
// with lowercase extension exists already
$warning = '';
- wfDebugLog( 'borko', 'wtf' );
if( strpos( $file->getName(), '.' ) == false ) {
$partname = $file->getName();
} else {
list( $partname, $rawExtension ) = explode( '.', $file->getName(), 2 );
}
- wfDebugLog( 'borko', sprintf( "%s - %s - %s", $partname, $rawExtension, $file->getExtension() ) );
$sk = $wgUser->getSkin();
if ( $rawExtension != $file->getExtension() ) {
// Check for another file using the normalized form...
$nt_lc = Title::newFromText( $partname . '.' . $file->getExtension() );
$file_lc = wfLocalFile( $nt_lc );
- if( $file_lc ) {
- wfDebugLog( 'borko', 'whee: ' . $file_lc->getName() );
- } else {
- wfDebugLog( 'borko', 'no lc match');
- }
} else {
$file_lc = false;
- wfDebugLog( 'borko', 'extensions ok');
}
if( $file->exists() ) {
$warning .= '<li>' . wfMsgExt( 'fileexists', 'parseline', $dlink ) . '</li>' . $dlink2;
} elseif ( $file_lc && $file_lc->exists() ) {
- wfDebugLog( 'borko', 'whee: ' . $file_lc->getName() );
# Check if image with lowercase extension exists.
# It's not forbidden but in 99% it makes no sense to upload the same filename with uppercase extension
$dlink = $sk->makeKnownLinkObj( $nt_lc );