From 37860db32a298e81d107848c7021f39427ff2e29 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Sep 1999 00:38:28 +0000
Subject: no_comment

---
 perl-install/commands.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

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

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 3c4c19a3e..e4510a22d 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -393,6 +393,8 @@ sub unpack_ {
 }
 
 sub insmod {
+    my ($h) = getopts(\@_, qw(h));
+    $h || @_ == 0 and die "usage: insmod <module> [options]\n";
     my $name = shift;
     my $f = "/tmp/$name.o";
     require 'run_program.pm';
@@ -402,6 +404,15 @@ sub insmod {
     unlink $f;
 }
 
+sub modprobe {
+    my ($h) = getopts(\@_, qw(h));
+    $h || @_ == 0 and die "usage: modprobe <module> [options]\n";
+    my $name = shift;
+    require 'modules.pm';
+    modules::load_deps("/modules/modules.dep");
+    modules::load($name, '', @_);
+}
+
 sub route {
     @_ == 0 or die "usage: route\nsorry, no modification handled\n";
     my ($titles, @l) = cat_("/proc/net/route");
@@ -459,6 +470,18 @@ $dev, $size, $used, $free, $use, $mntpoint
     }
 }
 
+sub kill {
+    my $signal = 15;
+    @_ or die "usage: kill [-<signal>] pids\n";
+    $signal = (shift, $1)[1] if $_[0] =~ /^-(.*)/;
+    kill $signal, @_ or die "kill failed: $!\n";
+}
+
+sub lspci {
+    require 'pci_probing/main.pm';
+    print join "\n", pci_probing::main::list (), '';
+}
+
 #-######################################################################################
 #- Wonderful perl :(
 #-######################################################################################
-- 
cgit v1.2.1