summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-08-04 15:23:47 +0000
committerdamien <damien@mandriva.com>2000-08-04 15:23:47 +0000
commitf093421759947c0e1020139c8b0bdb057105c074 (patch)
tree05bd8e206496af3b7f0e30ffa54f8c1925e8e292 /perl-install/any.pm
parenta3d551a6468bd1799197187d185689e3ac9cb4db (diff)
downloaddrakx-f093421759947c0e1020139c8b0bdb057105c074.tar
drakx-f093421759947c0e1020139c8b0bdb057105c074.tar.gz
drakx-f093421759947c0e1020139c8b0bdb057105c074.tar.bz2
drakx-f093421759947c0e1020139c8b0bdb057105c074.tar.xz
drakx-f093421759947c0e1020139c8b0bdb057105c074.zip
updated autologin.
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 52b33a9ad..ec38ba7b1 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -199,4 +199,12 @@ _("Default") => { val => \$default, type => 'bool' },
1;
}
+sub setAutologin {
+ my ($prefix, $user, $wm) = @_;
+ my $f="$prefix/etc/X11/xdm/xdm_config";
+ substInFile { s/^(DisplayManager._0.autoUser).*\n//; $_ .= "DisplayManager._0.autoUser:\t$user\n" if eof } $f;
+ substInFile { s/^(DisplayManager._0.autoString).*\n//; $_ .= "DisplayManager._0.autoString:\t$wm\n" if eof } $f;
+ # (dam's) : a patch for gdm is being done.
+}
+
1;