festival.edmaven.com:80

Linux b747.shapiroconsult.com 3.10.0-1160.119.1.vz7.224.4 #1 SMP Mon Sep 30 15:36:27 MSK 2024 x86_64
Apache
173.231.212.80

File Name : check_modules.pl

#!/usr/bin/perl -w

#################################################################################
#
# Perl module checker 0.0.3
#
#################################################################################
#
# This Perl script checks for installed modules by trying to 'use' the
# module. If the check fails, then the module is not present.
#
# If you want to install additional modules, use:
# > perl -MCPAN -e shell
# > install [module name]
#
# If the first one fails, please install the perl-CPAN package first
#
# Upgrade CPAN if possible:
# > install Bundle::CPAN
# > reload cpan
#
# Digest modules:
# > install Digest::MD5
# > install Digest::SHA
# > install Digest::SHA1
# > install Digest::SHA256
#

#################################################################################

use strict;

my $check = "0";

# Modules to check
my @modCheck = qw(
Digest::MD5
Digest::SHA
Digest::SHA1
Digest::SHA256
);

# Use command-line module names if present.
@modCheck = @ARGV if (@ARGV);

for (@modCheck)
  {
    if (installed("$_"))
      {
        print "$_ installed (version ",$check,").\n"
      }
     else
      {
        print "$_ NOT installed.\n"
      }
  }

#########################################
#
# SUB: Installed modules
#
#########################################

sub installed
  {

my $module = $_;

# Try to use the Perl module
    eval "use $module";

# Check eval response
    if ($@)
      {
        # Module is NOT installed
        $check = 0;
      }
     else
      {
        # Module is installed (reset module version to '1')
	$check = 1;
	
        my $version = 0;
	# Try to retrieve version number (by using eval again)
        eval "\$version = \$$module\::VERSION";
	
	# Set version number if no problem occurred
        $check = $version if (!$@);
      }
      
    # Return version number
    return $check;
}

exit();

# The end

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2018-02-24 11:09:57
..	dir	-	root/root	0755	2018-02-19 11:49:06
contrib	dir	-	root/root	0755	2017-11-29 04:14:02
i18n	dir	-	root/root	0755	2018-02-19 11:49:06
signatures	dir	-	root/root	0755	2017-11-29 04:14:02
ACKNOWLEDGMENTS	text/plain	1.54 KB	root/root	0644	2017-11-29 04:14:02
CHANGELOG	text/plain	104.21 KB	root/root	0644	2018-02-19 11:49:06
FAQ	text/plain	25.91 KB	root/root	0644	2018-02-19 11:49:06
LICENSE	text/plain	17.59 KB	root/root	0644	2017-11-29 04:14:02
README	text/plain	33.12 KB	root/root	0644	2018-02-19 11:49:06
backdoorports.dat	text/plain	1.03 KB	root/root	0644	2017-11-29 04:14:02
check_modules.pl	text/x-perl	1.85 KB	root/root	0755	2017-11-29 04:14:02
filehashsha.pl	text/x-perl	689 B	root/root	0755	2017-11-29 04:14:02
mirrors.dat	text/plain	97 B	root/root	0644	2017-11-29 04:14:02
programs_bad.dat	text/plain	3.52 KB	root/root	0644	2017-11-29 04:14:02
readlink.sh	text/x-shellscript	3.15 KB	root/root	0755	2017-11-29 04:14:02
rkhunter	text/x-shellscript	562.35 KB	root/root	0755	2018-02-24 11:08:27
rkhunter.8	text/troff	19.64 KB	root/root	0644	2017-11-29 04:14:02
rkhunter.conf	text/plain	47.38 KB	root/root	0644	2018-02-19 11:49:06
rkhunter.spec	text/plain	6.33 KB	root/root	0644	2020-02-27 04:52:26
stat.pl	text/x-perl	3.02 KB	root/root	0755	2017-11-29 04:14:02
suspscan.dat	text/plain	1.86 KB	root/root	0644	2017-11-29 04:14:02