From 16bde8b3d7027aba56051fbf557b7735eb2ee6aa Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Mon, 11 Jun 2001 13:49:39 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'rp-pppoe'.

---
 perl-install/modparm.pm | 60 -------------------------------------------------
 1 file changed, 60 deletions(-)
 delete mode 100644 perl-install/modparm.pm

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

diff --git a/perl-install/modparm.pm b/perl-install/modparm.pm
deleted file mode 100644
index b6aee8905..000000000
--- a/perl-install/modparm.pm
+++ /dev/null
@@ -1,60 +0,0 @@
-package modparm; # $Id$
-
-use diagnostics;
-use strict;
-
-#-######################################################################################
-#- misc imports
-#-######################################################################################
-use common qw(:common :functional);
-use log;
-
-
-
-#-######################################################################################
-#- Functions
-#-######################################################################################
-sub read_modparm_file {
-  my $file = -e "modparm.lst" ? "modparm.lst" : "$ENV{SHARE_PATH}/modparm.lst";
-  my @line;
-
-  my %modparm_hash;
-  local *F; open F, $file or log::l("missing $file: $!"), return;
-  local $_;
-  while (<F>) {
-    chomp;
-    @line = split ':';
-
-    $modparm_hash{$line[0]}{$line[1]} = {
-					 type => $line[2],
-					 default => $line[3],
-					 desc => $line [4],
-					};
-  }
-  \%modparm_hash;
-}
-
-sub get_options_result($@) {
-  my ($module, @value) = @_;
-  my $modparm_hash = modparm::read_modparm_file;
-
-  mapn {
-      my ($a, $b) = @_;
-      $a ? "$b=$a" : ()
-  } \@value, [ keys %{$modparm_hash->{$module}} ];
-}
-
-sub get_options_name($) {
-  my ($module) = @_;
-  my @names;
-  my $modparm_hash = modparm::read_modparm_file;
-
-  while (my ($k, $v) = each %{$modparm_hash->{$module} || {}}) {
-       my $opttype = $v->{type};
-       my $default = $v->{default};
-       push @names, "$k ($v->{type})" . (defined($v->{default}) && "[$v->{default}]");
-  }
-  @names;
-}
-
-1;
-- 
cgit v1.2.1