---
name: "Debian::L10n::Debconf"
section: "3pm"
platform: "linux"
package: "dl10n"
version: "3.00+nmu1"
release: "Debian 12 (Bookworm)"
platforms: ["linux"]
url: "https://new.carta.tech/Debian::L10n::Debconf"
---

# Debian::L10n::Debconf(3pm)

translation status of Debconf templates

## 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\n";
 }
```

## 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\n";
     }
  ```

- 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.