--=-=-=

"Donatas G." <dgvirtual@akl.lt> writes:

> But hey, sorry guys, just realized that --clear-fuzzy is not what I
> want... It marks fuzzy messages as translated, and I want them
> PURGED, so they become UNTRANSLATED.
> 
> Any ideas?

use this script:

--=-=-=
Content-Type: application/octet-stream
Content-Disposition: attachment; filename=fuzzy.pl

#!/usr/bin/perl -pi
#
# Copyright (C) 2004 Thierry Vignaud (tvignaud@mandrakesoft.com)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.


if ($mode != 3) {
    if (/^#, fuzzy/) {
        $mode = 2;
        # nuke fuzzy tags:
        s!, fuzzy!!;
        undef $_ if /^#$/;
    }

    # stop unfuzzy once we reach comments at end of file:
    if (/^#~/) {
        $_ = "#, fuzzy\n$_" if $mode == 2;
        $mode = 3;
    } else {

        if ($mode eq 2 and /^msgstr/) {
            $mode--;
        }

        # nuke fuzies translations:
        if ($mode == 1) {
            s/msgstr ".*"/msgstr ""/;
            $mode = 0 if /^$/;
            undef $_ if /^"/;
        }
    }
}



--=-=-=--