diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer.pm | 20 | ||||
| -rw-r--r-- | perl-install/printerdrake.pm | 2 |
2 files changed, 1 insertions, 21 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm index 37e9be636..d64e47429 100644 --- a/perl-install/printer.pm +++ b/perl-install/printer.pm @@ -307,26 +307,6 @@ sub network_running { return 0; } -sub get_security_level { - # Get security level by reading /etc/profile (only after install). - # This is a preliminary solution until msec puts the security level - # definition into the correct file. - $file = "/etc/profile"; - if (-f $file) { - local *F; - open F, "< $file" || return 0; - while (my $line = <F>) { - if ($line =~ /^\s*SECURE_LEVEL=([0-5])\s*$/) { - close F; - return $1; - } - } - close F; - } - return 0; -} - - sub spooler_in_security_level { # Was the current spooler already added to the current security level? my ($spooler, $level) = @_; diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index d190638d8..722f81622 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -2419,7 +2419,7 @@ sub security_check { if ($::isInstall) { $security = $in->{security}; } else { - $security = printer::get_security_level(); + $security = any::get_secure_level(); } # Exit silently if the spooler is PDQ |