UseModWiki소스수정/파일업로드_중복이름_처리의 내용을 적용.
/화일업로드와 /오에카키에서, 파일 이름이 중복될 경우, 파일명_숫자.확장자
형태로 이름을 붙이도록 변경.
# $dir내에 $file이름과 동일한 파일이 있을 경우 뒤에 숫자를 붙여 겹치지 않는 번호를 반환함 sub GetUniqueUploadFilename { my ( $dir, $file ) = @_; return $file if ( not -f "$dir/$file" ); my ( $filename, $ext ) = ( $file =~ m/^(.+)(\.[^.]+)$/ ); unless ( $ext ) { $filename = $file; $ext = ''; } my $num = 1; while ( -f "$dir/${filename}_$num$ext" ) { $num++; } return "${filename}_$num$ext"; }