summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-09-01 07:57:16 +0000
committerdamien <damien@mandriva.com>2000-09-01 07:57:16 +0000
commited0e070f2f50f0c2283651e1de0c9bb6713f3c29 (patch)
tree51c83002416c20dbc85045ccc0cd7154b72a0589 /perl-install/any.pm
parent23de025004e087985f16d552b9254f5d2567116e (diff)
downloaddrakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar
drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar.gz
drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar.bz2
drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.tar.xz
drakx-backup-do-not-use-ed0e070f2f50f0c2283651e1de0c9bb6713f3c29.zip
*** empty log message ***
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1878ed0c7..eb6eee009 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -236,13 +236,16 @@ _("Default") => { val => \$default, type => 'bool' },
}
sub setAutologin {
- my ($prefix, $user, $exe, $flag) = @_;
+ my ($prefix, $user, $wm, $exe, $flag) = @_;
my $f = "$prefix/etc/sysconfig/autologin";
my $t1 = "USER=";
my $t2 = "EXEC=";
my $t3 = "AUTOLOGIN=";
substInFile { s/^(\Q$t1\E|\Q$t2\E|\Q$t3\E).*\n//; $_ .= "$t1$user\n$t2$exe\n$t3=$flag" if eof } $f;
`chmod 644 $f`;
+ local *F;
+ open F, ">$prefix/etc/sysconfig/desktop" or die "Can't open $!";
+ print F "$wm";
}