From aa912d0daeaa6d4d84addfd2fc0ebba11e137edd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 29 Oct 1999 03:06:22 +0000
Subject: no_comment

---
 perl-install/commands.pm | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'perl-install/commands.pm')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index bb64fc180..c6f68c37a 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -447,7 +447,7 @@ $l{Destination}, $l{Gateway}, $l{Mask}, $l{Iface}
 
 sub df {
     my ($h) = getopts(\@_, qw(h));
-    my ($dev, $size, $free, $used, $use, $mntpoint);
+    my ($dev, $blocksize, $size, $free, $used, $use, $mntpoint);
     open DF, ">&STDOUT";
     format DF_TOP =
 Filesystem          Size      Used    Avail     Use  Mounted on
@@ -465,7 +465,9 @@ $dev, $size, $used, $free, $use, $mntpoint
 	$mntpoint = $h{$dev};
 	my $buf = ' ' x 20000;
 	syscall_('statfs', $mntpoint, $buf) or next;
-	(undef, undef, $size, $free) = unpack "l7", $buf;
+	(undef, $blocksize, $size, undef, $free, undef) = unpack "L2L4", $buf;
+	$_ *= $blocksize / 1024 foreach $size, $free;
+
 	$size or next;
 
 	$use = int (100 * ($size - $free) / $size);
@@ -490,6 +492,22 @@ sub lspci {
     require 'pci_probing/main.pm';
     print join "\n", pci_probing::main::list (), '';
 }
+sub dmesg { print cat_("/tmp/syslog"); }
+
+sub  install_cpio($$) {
+    my ($dir, $name) = @_; 
+
+    return "$dir/$name" if -e "$dir/$name";
+
+    my $cpio = "$dir.cpio.bz2";
+    -e $cpio or return;
+
+    eval { rm("-r", $dir) };
+    mkdir $dir, 0755;
+    require 'run_program.pm';
+    run_program::run("cd $dir ; bzip2 -cd $cpio | cpio -id $name $name/*");
+    "$dir/$name";
+}
 
 #-######################################################################################
 #- Wonderful perl :(
-- 
cgit v1.2.1