From 912521ef0711204965aa2319d41c7741bd3f4f4c Mon Sep 17 00:00:00 2001 From: joey Date: Fri, 29 Dec 2006 04:38:40 +0000 Subject: * Initial work on internationalization of the program code. po/ikiwiki.pot is available for translation. * Export gettext() from IkiWiki module. --- IkiWiki/Wrapper.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'IkiWiki/Wrapper.pm') diff --git a/IkiWiki/Wrapper.pm b/IkiWiki/Wrapper.pm index a3ecccd5b..e761085fb 100644 --- a/IkiWiki/Wrapper.pm +++ b/IkiWiki/Wrapper.pm @@ -13,15 +13,15 @@ sub gen_wrapper () { #{{{ $config{destdir}=abs_path($config{destdir}); my $this=abs_path($0); if (! -x $this) { - error("$this doesn't seem to be executable"); + error(sprintf(gettext("%s doesn't seem to be executable"), $this)); } if ($config{setup}) { - error("cannot create a wrapper that uses a setup file"); + error(gettext("cannot create a wrapper that uses a setup file")); } my $wrapper=possibly_foolish_untaint($config{wrapper}); if (! defined $wrapper || ! length $wrapper) { - error("wrapper filename not specified"); + error(gettext("wrapper filename not specified")); } delete $config{wrapper}; @@ -59,7 +59,7 @@ EOF $configstring=~s/"/\\"/g; $configstring=~s/\n/\\\n/g; - open(OUT, ">$wrapper.c") || error("failed to write $wrapper.c: $!");; + open(OUT, ">$wrapper.c") || error(sprintf(gettext("failed to write %s: %s"), "$wrapper.c", $!));; print OUT <<"EOF"; /* A wrapper for ikiwiki, can be safely made suid. */ #define _GNU_SOURCE @@ -94,14 +94,14 @@ $envsave EOF close OUT; if (system("gcc", "$wrapper.c", "-o", $wrapper) != 0) { - error("failed to compile $wrapper.c"); + error(sprintf(gettext("failed to compile %s"), "$wrapper.c")); } unlink("$wrapper.c"); if (defined $config{wrappermode} && ! chmod(oct($config{wrappermode}), $wrapper)) { error("chmod $wrapper: $!"); } - print "successfully generated $wrapper\n"; + printf(gettext("successfully generated %s\n"), $wrapper); } #}}} 1 -- cgit v1.2.3