#!/usr/bin/perl 
# V imenih doc fajlov zamenja sumnike z csz in  presledke z _
#
#

use File::Basename;
sub zamenjaj {

    my $fname=$_[0];

    $fname =~ tr/[\237,\236,\232,\217,\216,\212]/[c,z,s,C,Z,S]/;
    $fname =~ tr/[\xE6,\xE7,\xA6,\xAC,\xA7],\xE7/[S,s,Z,C,z]/;

    $fname=~s/[^.\w\/]/_/g;
    $fname=~s/ /_/g;
    $fname=~s/\.\_/./g;
    $fname=~s/\_\././g;
    $fname=~s/___/_/g;
    $fname=~s/__/_/g;

    return $fname;

}



$cmd=q!find ~/ -name "*.doc"!;
$ret=`$cmd`;


@fn=split(/\n/,$ret);
foreach $fname (@fn) {
#$fname=$ARGV[0];

$dir   = dirname($fname);
$bname = basename($fname);
$sname = zamenjaj($bname);




if ($bname ne $sname){
    $cmd =`mv \"$dir/$bname\"  \"$dir/$sname\" ;`;
    print "Preimenoval sem  $bname v $sname\n";
} else {
    print "$bname OK\n";
}

}