Subversion Repositories DevTools

#! /usr/bin/perl
# To rename all the files and directories to
# lower case.  

TravelTree();

sub TravelTree
{
        foreach (<*>)
        {
                if (chdir $_)
                {
                        TravelTree();
                }
                TranslateFileName();
        }
        chdir ("..");
}

sub TranslateFileName 
{
        my $new;

        $new = $_;
        $new =~ tr /A-Z/a-z/;
        rename($_, $new);
}