po: gettext-ize error messages
authorintrigeri <intrigeri@boum.org>
Fri, 2 Jan 2009 14:00:34 +0000 (15:00 +0100)
committerintrigeri <intrigeri@boum.org>
Fri, 2 Jan 2009 14:00:34 +0000 (15:00 +0100)
Signed-off-by: intrigeri <intrigeri@boum.org>
IkiWiki/Plugin/google.pm
IkiWiki/Plugin/po.pm
IkiWiki/Plugin/search.pm

index 4bba5775c2ba8583fc06504496e39792c2107bad..71948a7e91fb40f1208c4d7e9bccf6fde1dca630 100644 (file)
@@ -24,7 +24,7 @@ sub getsetup () {
 
 sub checkconfig () {
        if (! length $config{url}) {
 
 sub checkconfig () {
        if (! length $config{url}) {
-               error(sprintf(gettext("Must specify %s when using the google search plugin"), "url"));
+               error(sprintf(gettext("Must specify %s when using the %s plugin"), "url", 'google search'));
        }
        my $uri=URI->new($config{url});
        if (! $uri || ! defined $uri->host) {
        }
        my $uri=URI->new($config{url});
        if (! $uri || ! defined $uri->host) {
index 68fd692836964cc6ce38360a71d39a283ec66816..75344b4b625d4b14e53d9f7ca0e50362f9b51071 100644 (file)
@@ -128,11 +128,12 @@ sub getsetup () {
 sub checkconfig () {
        foreach my $field (qw{po_master_language po_slave_languages}) {
                if (! exists $config{$field} || ! defined $config{$field}) {
 sub checkconfig () {
        foreach my $field (qw{po_master_language po_slave_languages}) {
                if (! exists $config{$field} || ! defined $config{$field}) {
-                       error(sprintf(gettext("Must specify %s"), $field));
+                       error(sprintf(gettext("Must specify %s when using the %s plugin"), $field, 'po'));
                }
        }
        if (! (keys %{$config{po_slave_languages}})) {
                }
        }
        if (! (keys %{$config{po_slave_languages}})) {
-               error(gettext("At least one slave language must be defined in po_slave_languages"));
+               error(gettext("At least one slave language must be defined ".
+                             "in po_slave_languages when using the po plugin"));
        }
        map {
                islanguagecode($_)
        }
        map {
                islanguagecode($_)
@@ -474,7 +475,7 @@ sub formbuilder (@) {
                else {
                        # make sure the default value is not po;
                        # does this case actually happen?
                else {
                        # make sure the default value is not po;
                        # does this case actually happen?
-                       debug "po(formbuilder) type field is not select - not implemented yet";
+                       debug sprintf("po(formbuilder) type field is not select - not implemented yet");
                }
        }
 }
                }
        }
 }
@@ -762,17 +763,21 @@ sub refreshpofiles ($@) {
        my @pofiles=@_;
 
        my $potfile=potfile($masterfile);
        my @pofiles=@_;
 
        my $potfile=potfile($masterfile);
-       error("[po/refreshpofiles] POT file ($potfile) does not exist") unless (-e $potfile);
+       (-e $potfile)
+               or error(sprintf(gettext("po(refreshpofiles) POT file (%s) does not exist"),
+                                $potfile));
 
        foreach my $pofile (@pofiles) {
                IkiWiki::prep_writefile(basename($pofile),dirname($pofile));
                if (-e $pofile) {
                        system("msgmerge", "-U", "--backup=none", $pofile, $potfile) == 0
 
        foreach my $pofile (@pofiles) {
                IkiWiki::prep_writefile(basename($pofile),dirname($pofile));
                if (-e $pofile) {
                        system("msgmerge", "-U", "--backup=none", $pofile, $potfile) == 0
-                               or error("[po/refreshpofiles:$pofile] failed to update");
+                               or error(sprintf(gettext("po(refreshpofiles) failed to update %s"),
+                                                $pofile));
                }
                else {
                        File::Copy::syscopy($potfile,$pofile)
                }
                else {
                        File::Copy::syscopy($potfile,$pofile)
-                               or error("[po/refreshpofiles:$pofile] failed to copy the POT file");
+                               or error(sprintf(gettext("po(refreshpofiles) failed to copy the POT file to %s"),
+                                                $pofile));
                }
        }
 }
                }
        }
 }
@@ -819,7 +824,8 @@ sub percenttranslated ($) {
                'file_in_name'  => [ $masterfile ],
                'file_in_charset'  => 'utf-8',
                'file_out_charset' => 'utf-8',
                'file_in_name'  => [ $masterfile ],
                'file_in_charset'  => 'utf-8',
                'file_out_charset' => 'utf-8',
-       ) or error("[po/percenttranslated:$page]: failed to translate");
+       ) or error(sprintf(gettext("po(percenttranslated) failed to translate %s"),
+                          $page));
        my ($percent,$hit,$queries) = $doc->stats();
        $percent =~ s/\.[0-9]+$//;
        return $percent;
        my ($percent,$hit,$queries) = $doc->stats();
        $percent =~ s/\.[0-9]+$//;
        return $percent;
@@ -949,7 +955,7 @@ sub po_to_markup ($$;$) {
                                     UNLINK => 1)->filename;
 
        sub failure ($) {
                                     UNLINK => 1)->filename;
 
        sub failure ($) {
-               my $msg = '[po/po_to_markup:'.$page.'] ' . shift;
+               my $msg = "po(po_to_markup) - $page : " . shift;
                if ($nonfatal) {
                        warn $msg;
                        return undef;
                if ($nonfatal) {
                        warn $msg;
                        return undef;
@@ -958,7 +964,7 @@ sub po_to_markup ($$;$) {
        }
 
        writefile(basename($infile), File::Spec->tmpdir, $content)
        }
 
        writefile(basename($infile), File::Spec->tmpdir, $content)
-               or return failure("failed to write $infile");
+               or return failure(sprintf(gettext("failed to write %s"), $infile));
 
        my $masterfile = srcfile($pagesources{masterpage($page)});
        my %options = (
 
        my $masterfile = srcfile($pagesources{masterpage($page)});
        my %options = (
@@ -970,10 +976,12 @@ sub po_to_markup ($$;$) {
                'file_in_name'  => [ $masterfile ],
                'file_in_charset'  => 'utf-8',
                'file_out_charset' => 'utf-8',
                'file_in_name'  => [ $masterfile ],
                'file_in_charset'  => 'utf-8',
                'file_out_charset' => 'utf-8',
-       ) or return failure("failed to translate");
-       $doc->write($outfile) or return failure("could not write $outfile");
+       ) or return failure(gettext("failed to translate"));
+       $doc->write($outfile)
+               or return failure(sprintf(gettext("failed to write %s"), $outfile));
 
 
-       $content = readfile($outfile) or return failure("could not read $outfile");
+       $content = readfile($outfile)
+               or return failure(sprintf(gettext("failed to read %s"), $outfile));
 
        # Unlinking should happen automatically, thanks to File::Temp,
        # but it does not work here, probably because of the way writefile()
 
        # Unlinking should happen automatically, thanks to File::Temp,
        # but it does not work here, probably because of the way writefile()
@@ -1010,7 +1018,7 @@ sub isvalidpo ($) {
        }
 
        writefile(basename($infile), File::Spec->tmpdir, $content)
        }
 
        writefile(basename($infile), File::Spec->tmpdir, $content)
-               or return failure("failed to write $infile");
+               or return failure(sprintf(gettext("failed to write %s"), $infile));
 
        my $res = (system("msgfmt", "--check", $infile, "-o", "/dev/null") == 0);
 
 
        my $res = (system("msgfmt", "--check", $infile, "-o", "/dev/null") == 0);
 
index d79e3170ec4b4e86873d64d0200357670aa0df67..393c17e0fe8cf6b9ec137ba7cfc8ac64e008cd4b 100644 (file)
@@ -33,7 +33,7 @@ sub getsetup () {
 sub checkconfig () {
        foreach my $required (qw(url cgiurl)) {
                if (! length $config{$required}) {
 sub checkconfig () {
        foreach my $required (qw(url cgiurl)) {
                if (! length $config{$required}) {
-                       error(sprintf(gettext("Must specify %s when using the search plugin"), $required));
+                       error(sprintf(gettext("Must specify %s when using the %s plugin"), $required, 'search'));
                }
        }
        
                }
        }