upraveno na automaticke zjistovani pouzitych perlovych modulu a jejich...

upraveno na automaticke zjistovani pouzitych perlovych modulu a jejich lokalnich verzi v danem adresari

packages/chck_modules_version.sh

 #!/bin/bash
 #
-# Script obtain Perl package version
+# The script automatically obtain Perl modules and their local version
+# in set directory (recursively)
 #
-#modules=(LWP::Protocol::https)
-modules=(SOAP::Lite SOAP::Transport::HTTP DBI DBD::mysql Format::Human::Bytes Sys::Syslog File::Basename Net::CIDR::Lite DateTime Getopt::Std Switch IO::Socket::SSL MIME::Base64 Crypt::X509 Carp)
 
-for module in ${modules[@]}
+if [[ -z $1 || ! -d $1 ]]; then
+	echo "Usage: ${0##*/} <directory>"
+	exit 1
+fi
+
+modules_file="/tmp/warden-server-modules.txt"
+sed '/^use [A-Z]/!d; /Warden/d' `find $1 -type f` 2>/dev/null | cut -f 2 -d " " | sed 's/;//' | sort -u > $modules_file
+
+for module in $(<$modules_file);
 do
 	perl -e "eval { require $module; }; if (\$@) { print \"$module: version not found\n\"; } else { print \"$module >= \$$module::VERSION\n\"}"
 done