system('cls');

##########################################################################
##########################################################################
##########################################################################

 $dir	        = '.';			#without /
 $pr	 	= '[torrent]';

##########################################################################
##########################################################################
##########################################################################

sub saveFile
{
	open(myFILE,">$_[0]") || die "error: $!";
	print myFILE $_[1];
	close(myFILE);
} 

sub cyr #Kaimi modifed
{
	($_)=@_;
	y/А-яЁё/\x80-\xaf\xe0-\xf1/;
	return $_;
}

sub read_str
{
	if ($_[0] =~ /:$_[1](\d{0,4}):/)
	{return substr($_[0], index($_[0],$_[1])+length($_[1])+length($1)+1, $1)}
	else {return '';}
}

sub read_num
{
	if ($_[0] =~ /$_[1]i(\d{0,64})e/)
	{return $1} else {return ''}
}

sub rename_torrent #Kaimi modifed
{
	my $new_name;
	$new_name=cyr(read_str($_[0],'name'));
	$new_name=~s/\[torrents.ru\]//ge;
	return $new_name.'.torrent';
}

##########################################################################
##########################################################################
##########################################################################

system('cls');

print "--====--=--=- eLWAux -=-==-====--\n";
print "--===-== torrent renamer -=-===--\n";
print "--====-==-=-=-=-=-=-=-=--==-===--\n\n";

opendir(TEMPDIR,$dir) or die("[-] Error ($!)..");
@FILES=grep(/\.torrent$/i, readdir TEMPDIR);
closedir(TEMPDIR);

print '[i] '.@FILES." *.torrent's found\n";
print '[i] '.localtime(time())."\n";

print "--====-==-=-=-=-=-=-=-=--==-===--\n\n";

$g=0;$bef='';$aft='';$nren='';
foreach my $file(@FILES) {
	$res='';
        open(DESC, $file);
        read(DESC,$res,-s $file);
        close(DESC);

	print '    '.cyr($file)."\n";
	$n = $pr.rename_torrent($res);
	if ($n eq $file)
		{ print '[-] '.$n."\n";
		  $nren.=$n."\n";
		} else
		{ $g++;
		  rename $file,$n;
		  $bef.=$file."\n";
		  $aft.=$n."\n";
		  print '[+] '.$n."\n";
		}	
	$i++;
	}

print '[i] renamed: '.$g."\n";
print '[%] '.int(($g/@FILES)*100).'% renamed!';

saveFile('result_rename.txt',
	"renamed: $g files\n".
	"         ".int(($g/@FILES)*100)."% of all file(s)\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"before:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$bef."\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"after:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$aft."\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	"\nnot renamed:\n".
	"==-=--==--=--=-=-=-=-=-=-=-=--==--==-=-=--=-=--==-\n".
	$nren."\n");
<STDIN>;