summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-28 09:38:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-28 09:38:02 +0000
commitb8a801583778dee5b9075e938ed318d17c63a162 (patch)
treedb0bc8b83d78519fe0844b26d01e2d29689baa3c /perl-install
parent7dbb82bda658c7aa17d764ebccd4953a389a833b (diff)
downloaddrakx-backup-do-not-use-b8a801583778dee5b9075e938ed318d17c63a162.tar
drakx-backup-do-not-use-b8a801583778dee5b9075e938ed318d17c63a162.tar.gz
drakx-backup-do-not-use-b8a801583778dee5b9075e938ed318d17c63a162.tar.bz2
drakx-backup-do-not-use-b8a801583778dee5b9075e938ed318d17c63a162.tar.xz
drakx-backup-do-not-use-b8a801583778dee5b9075e938ed318d17c63a162.zip
security fix and various
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm1
-rw-r--r--perl-install/c/stuff.xs.pm13
-rwxr-xr-xperl-install/standalone/drakboot2
3 files changed, 15 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 2cd02125e..df680587f 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -992,6 +992,7 @@ sub install {
my %l = grep_each { $::b } %{$lilo->{methods}};
my @rcs = map {
+ c::is_secure_file('/tmp/.error') or die "can't ensure a safe /tmp/.error";
my $f = $bootloader::{"install_$_"} or die "unknown bootloader method $_";
eval { $f->(@_) };
$@;
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index d0e5bf2a5..f6e63a85d 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -157,6 +157,19 @@ setMouseLive(display, type, emulate3buttons)
print '
int
+is_secure_file(filename)
+ char * filename
+ CODE:
+ {
+ int fd;
+ unlink(filename); /* in case it exists and we manage to remove it */
+ RETVAL = (fd = open(filename, O_RDWR | O_CREAT | O_EXCL, 0600)) != -1;
+ if (RETVAL) close(fd);
+ }
+ OUTPUT:
+ RETVAL
+
+int
is_ext3(device_name)
char * device_name
CODE:
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index dc63f22a7..8a17b4813 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -22,7 +22,7 @@ $::expert = /-expert/;
my $in = 'interactive'->vnew('su', 'bootloader');
-require 'bootlook.pm' if ref($in) =~ /gtk/;
+require 'bootlook.pm' if $in->isa('interactive_gtk');
lilo_choice();