From 28d4952a757d83f8d90b3d0062f4aa169a399694 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 21 Sep 2000 14:52:51 +0000 Subject: *** empty log message *** --- perl-install/any.pm | 69 +++++++++++++++++++++++++++++++++++++++++++++++------ 1 file changed, 62 insertions(+), 7 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index fa19cae21..5094c9939 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -361,21 +361,19 @@ END 'ABORT' 'Invalid Login' 'ABORT' 'Login incorrect' '' 'ATZ' -'OK' END if ($modem->{special_command}) { print CHAT <{special_command}' -'OK' +'OK' '$modem->{special_command}' END } print CHAT <{auth} eq 'Terminal-based' || $modem->{auth} eq 'Script-based') { print CHAT <{prefix}, "$ENV{SHARE_PATH}/kppprc.in", ".kde/share/config/kppprc", 1, %toreplace); + #- install kppprc file according to used configuration. commands::mkdir_("-p", "$prefix/usr/share/config"); - template2file("$ENV{SHARE_PATH}/kppprc.in", "$prefix/usr/share/config/kppprc", %toreplace); + local *KPPPRC; + open KPPPRC, ">$prefix/usr/share/config/kppprc" or die "Can't open $prefix/usr/share/config/kppprc: $!"; + print KPPPRC <