summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-21 14:52:51 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-21 14:52:51 +0000
commit28d4952a757d83f8d90b3d0062f4aa169a399694 (patch)
tree2ed59dd882f4400add02c4ede29087b501fe2a62 /perl-install
parentdbfcb7d415b85793e4243ae0d0ec7aba60fafa80 (diff)
downloaddrakx-backup-do-not-use-28d4952a757d83f8d90b3d0062f4aa169a399694.tar
drakx-backup-do-not-use-28d4952a757d83f8d90b3d0062f4aa169a399694.tar.gz
drakx-backup-do-not-use-28d4952a757d83f8d90b3d0062f4aa169a399694.tar.bz2
drakx-backup-do-not-use-28d4952a757d83f8d90b3d0062f4aa169a399694.tar.xz
drakx-backup-do-not-use-28d4952a757d83f8d90b3d0062f4aa169a399694.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm2
-rw-r--r--perl-install/any.pm69
2 files changed, 63 insertions, 8 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 6dd6efd05..6ce395a06 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -298,7 +298,7 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . "
#- hack for ATI Mach64 card where two options should be used if using Utah-GLX.
- if ($card->{type} =~ /ATI Mach64/) {
+ if ($card->{identifier} =~ /3D Rage Pro AGP/) {
$card->{options_xf3}{no_font_cache} = $card->{Utah_glx};
$card->{options_xf3}{no_pixmap_cache} = $card->{Utah_glx};
}
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 <<END;
-'$modem->{special_command}'
-'OK'
+'OK' '$modem->{special_command}'
END
}
print CHAT <<END;
-'ATDT$toreplace{phone}'
+'OK' 'ATDT$toreplace{phone}'
'CONNECT' ''
END
if ($modem->{auth} eq 'Terminal-based' || $modem->{auth} eq 'Script-based') {
print CHAT <<END;
-'ogin:' '$toreplace{login}'
+'ogin:--ogin:' '$toreplace{login}'
'ord:' '$toreplace{passwd}'
END
}
@@ -405,9 +403,66 @@ END
chmod 0600, $secrets;
}
- #-install_any::template2userfile($o->{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 <<END;
+# KDE Config File
+[Account0]
+ExDNSDisabled=0
+AutoName=0
+ScriptArguments=
+AccountingEnabled=0
+Phonenumber=$toreplace{phone}
+IPAddr=0.0.0.0
+Domain=$toreplace{domain}
+Name=$toreplace{connection}
+VolumeAccountingEnabled=0
+pppdArguments=
+Password=$toreplace{passwd}
+BeforeDisconnect=
+Command=
+ScriptCommands=
+Authentication=$toreplace{pppauth}
+DNS=$toreplace{dnsserver}
+SubnetMask=0.0.0.0
+AccountingFile=
+DefaultRoute=1
+Username=$toreplace{login}
+Gateway=0.0.0.0
+StorePassword=1
+DisconnectCommand=
+[Modem]
+BusyWait=0
+Enter=CR
+FlowControl=CRTSCTS
+Volume=0
+Timeout=60
+UseCDLine=0
+UseLockFile=1
+Device=/dev/modem
+Speed=57600
+[Graph]
+InBytes=0,0,255
+Text=0,0,0
+Background=255,255,255
+Enabled=true
+OutBytes=255,0,0
+[General]
+QuitOnDisconnect=0
+ShowLogWindow=0
+DisconnectOnXServerExit=1
+DefaultAccount=$toreplace{connection}
+iconifyOnConnect=1
+Hint_QuickHelp=0
+AutomaticRedial=0
+PPPDebug=0
+NumberOfAccounts=1
+ShowClock=1
+DockIntoPanel=0
+pppdTimeout=30
+END
miscellaneousNetwork($prefix);
}