Debian::L10n::Debconf(3pm)				User Contributed Perl Documentation				Debian::L10n::Debconf(3pm)

NAME

       Debian::L10n::Debconf - translation status of Debconf templates

SYNOPSIS

	use Debian::L10n::Debconf;
	my $tmpl = Debian::L10n::Debconf->new();
	$tmpl->read_compact($file);
	my @languages = $tmpl->langs();
	foreach (sort @languages) {
	       my ($t,$f,$u) = $tmpl->stats($_);
	       print "$_:${t}t${f}f${u}u
";
	}

DESCRIPTION

       This module extracts informations about translation status of Debconf templates files.

METHODS

       new This is the constructor.

	      my $tmpl = Debian::L10n::Debconf->new();

       read_compact
	   Read a templates file containing all translations.  An optional second argument may be used, any non-zero value tells that this file
	   comes with translations in other files.  In such a case no warning is raised if this file contains translated fields, because
	   maintainer is assumed to be responsible for such translations.

	      $tmpl->read_compact($file);

       read_dispatched
	   Read templates contained in several files.  First argument is the English file, all other arguments are translated templates files.

	      @trans = qw(templates.de templates.fr templates.ja templates.nl);
	      $tmpl->read_dispatched('templates', @trans);

       langs
	   Return the languages in which this templates file is translated.

	      my @list = $tmpl->langs();

       filename
	   When templates are dispatched into several files, return the filename in which the language passed as argument is found.

	      my $filename = $tmpl->filename("de");

       count
	   Return the number of translatable strings in this templates file.

	      my $number = $tmpl->count();

       stats
	   With an argument, return an array consisting of the number of translated, fuzzy and untranslated strings for the language given as
	   argument.  Without argument, return a hash array indexed by language and returning an array of the number of translated, fuzzy and
	   untranslated strings.

	      my ($t, $f, $u) = $tmpl->stats("de");
	      my %stats  = $tmpl->stats();
	      foreach (keys %stats) {
		      print $_.':'. $stats{$_}->[0].'t'.$stats{$_}->[1].'f'.
			   $stats{$_}->[2]."u
";
	      }

       entries
	   Return an array containing all Debconf ids found in this templates file.

	      my @ids = $tmpl->entries();

AUTHOR

       Copyright (C) 2001  Denis Barbier <barbier@debian.org>

       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 of the License, or (at your option) any later version.

perl v5.14.2							    2011-03-30						Debian::L10n::Debconf(3pm)