Re: Debian-Pakete bauen mit Debconf::Client::ConfModule

[Hans-Dietrich Kirmse <hd.kirmse@gmx.de>]

Hallo,

ich bin mit meinem Problem weiter gekommen, aber noch nicht komplett gelöst.

Hans-Dietrich Kirmse schrieb:
> Hallo,
>
> ich stehe folgendes Problem: ich möchte Debian-Pakete erstellen, wobei
> in den postinstall-Scripten Daten aus der debconf-Datenbank geholt
> werden sollen. Nur: da ich kein Shellscripting kann, bin ich darauf
> angewiesen, die Scripte in Perl zu erstellen. Nur bekomme ich den
> Zugriff auf die Debconf-DB in Perl leider nicht hin.
>
> folgendes Shell-Script funktioniert bei mir problemlos:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
> #!/bin/bash
>
> . /usr/share/debconf/confmodule
> db_version 2.0
>
> db_get delixs/host
> echo $RET
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
> liefert den Hostnamen (hier laut Voreinstellung "alix")
>
>
> Nun habe ich schon stundenlang versucht, ein analoges Perl-Programm
> zu erstellen.

folgendes Programm leistet fast das Gewünschte


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#!/usr/bin/perl
use warnings;
use strict;

use Debconf::Client::ConfModule ':all';
version('2.0');

my ($status, $value) = get('delixs/host');
print $value, "\n";

open DATEI, '>', 'temp.txt'
  or die "konnte Datei nicht oeffnen.$!\n";
print DATEI $value, "\n";
close DATEI;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Es wird auf der Konsole immernoch *nichts* ausgegeben.
Aber der Host wird in die Datei 'temp.txt' geschrieben.

Was da nun wieder verbogen wird, werde ich (hoffentlich) in der
Mailinglisten für Perl erfahren.


Danke für's Mitdenken.


Mit freundlichen Grüßen
Hans-Dietrich