UseModWiki소스수정/GetUniqueUploadFilename함수

1. GetUniqueUploadFilename 함수

1.1. wiki.pl 수정

1.2. 추가 업데이트 내역

1.3. 사용자 의견

1. GetUniqueUploadFilename 함수

1.1. wiki.pl 수정

# $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";
}

1.2. 추가 업데이트 내역

1.3. 사용자 의견