current version

[opsoft_test.git] / silentbob / scripts / fixdoxy.pl

#!/usr/bin/perl

my $fileName;
foreach $fileName (@ARGV) {
        fixFile ($fileName);
}

sub fixFile ($) {
        my $m_fileName = shift;
        open (FILE, "< $m_fileName") or die "Не могу открыть файл $m_fileName";
        @allData = <FILE>;
        close FILE;
        $data = join ("",       @allData);
        $data =~ s/charset=iso-8859-1/charset=utf8/g;
        open (FILE, "> $m_fileName");
        print FILE $data;
        close FILE;
}