# rename_file_with_odd_charachters(filename,table,field,id)
sub rename_file_with_odd_charachters {


my $file = $_[0]; # the fielname
my $table = $_[1] || 'Links';
my $field = $_[2];
my $ID = $_[3];

return;

if ($debug > 0) {

print $IN->header;
use Data::Dumper;
print Dumper(@_);

print qq|<br /><br />
FILE: $file <br />
Table: $table <br />
Field: $field <br />
ID: $ID <br />
|;

}

# if true, we have charachrers we don't want - so lets replace them
if ($_[0] =~ /[\&\[\]ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûùA-Z?!;«»\(\)" ]/) {

# print $IN->header;

if ($debug > 0) {
print qq|<font color="red">We got a match </font> <br />|
}


my $image = ReadImageForConvert($ID,$field,$table);

my @split = split /\//, $image;
pop @split;
my $folder = join("/", @split);

# print qq|Ok, we got the image of $image <br />|;
my $old_filename = $image;
my $new_filename = GT::CGI->unescape($image);

$old_filename =~ s/$folder\///;
$new_filename =~ s/$folder\///;

$old_filename = GT::CGI->escape($old_filename);

my @file_split = split /\./, $_[0];
my $ext = $file_split[$#file_split];

$new_filename = generate_random_string(10) . ".$ext"; #tr{&[]ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûùA-Z?!;«»()" }{ aaaaaacceeeeeeeeiiiiiioooooouuuuuua-z__________};

if ($debug > 0) {
print qq|<font color="red">$new_filename</font> <br />|
}

if ($debug > 0) {
print $IN->header;
}
print qq|
folder: $folder <br />
old filename : $old_filename
<br /> new filename: $new_filename
| if $debug > 0;


copy(qq|$folder/$old_filename|,qq|$folder/$new_filename|);
unlink(qq|$folder/$old_filename|);

$new_filename =~ s/^\d+\-//;

$DB->table("${table}_Files")->update( { File_Name => $new_filename }, { ForeignColKey => $ID } ) || die $GT::SQL::error;
$DB->table("${table}")->update( { $field => $new_filename }, { ID => $ID } ) || die $GT::SQL::error;


}

}