[Dresden-pm] Frage zu UI::Dialog

[Richard Möhn]

On Wed, Jun 02, 2010 at 10:52:44PM +0200, Hans-Dietrich Kirmse wrote:
> Es läuft eine Installationsroutine, bei der mehrere Fragen beantwortet
> werden und die Menüs dazu funktionieren auch wie erwartet. Hinterher
> möchte ich eine Messagebox bringen, in der die bisherigen Eingaben
> aufgelistet werden. Und genau das bringe ich nicht hin. Bei mir kommt
> immer Fließtext und ich sehe nicht die Spur eines Ansatzes.
> 
> 
> An folgendem Mini-Programm möchte ich mein Problem verdeutlichen:
> 
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> #!/usr/bin/perl
> use warnings;
> use strict;
> 
> use UI::Dialog::Backend::Whiptail;
> 
> my $dialog = new UI::Dialog::Backend::Whiptail(
>                backtitle => $0,
>                title     => 'delixs-Installation' );
> 
> my $host    = 'alix';
> my $ip      = '10.100.0.1';
> my $domain  = 'delixs-schule.de';
> 
> 
> my $text1 =<< "ENDE";
> Sie haben folgenden Eingaben gemacht:
> Name des Rechners: $host
> IP des Rechners:   $ip
> Domain:            $domain
> ENDE
> 
> $dialog->msgbox( title => 'Ihre Eingaben:', text => $text1 );
> 
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> 
> Will sagen, die letzte Zeile liefert mir einen grottenhäßlichen
> Fließtext, ich hätte es aber gern zumindest annähernd so wie es in der
> HERE-Variablen formatiert ist, zumindest die Zeilen.
> 
> In der Dokumentation bin ich trotz intensiver Suche nicht fündig
> geworden. Aber vielleicht liegt das auch an meinen mangelhaften
> Englischkenntnissen.


Ich hatte das Problem auch mal. Ich weiß zwar nicht mehr, warum, aber
du musst die Newlines als doppelt escapte Escape-Sequenzen (oder so
ähnlich) eingeben. Also in etwa so:

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

use UI::Dialog::Backend::Whiptail;

my $dialog = new UI::Dialog::Backend::Whiptail(
               backtitle => $0,
               title     => 'delixs-Installation' );

my $host    = 'alix';
my $ip      = '10.100.0.1';
my $domain  = 'delixs-schule.de';


my $text1 =<< "ENDE";
Sie haben folgenden Eingaben gemacht:
Name des Rechners: $host    \\n
IP des Rechners:   $ip      \\n
Domain:            $domain  \\n
ENDE

$dialog->msgbox( title => 'Ihre Eingaben:', text => $text1 );

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

-- 
Public Key-ID: 4385C7FB
Fingerprint: D74B F0D6 52BD C802 F5E2  B5BF 78AB 5563 4385 C7FB
-------------- nächster Teil --------------
Ein Dateianhang mit Binärdaten wurde abgetrennt...
Dateiname   : nicht verfügbar
Dateityp    : application/pgp-signature
Dateigröße  : 198 bytes
Beschreibung: Digital signature
URL         : <http://mail.pm.org/pipermail/dresden-pm/attachments/20100603/9653c972/attachment.bin>