3 # check-perl-modules.pl -- check for modules used by Girocco
4 # Copyright (c) 2013 Kyle J. McKay. All rights reserved.
5 # License GPLv2+: GNU GPL version 2 or later.
6 # www.gnu.org/licenses/gpl-2.0.html
7 # This is free software: you are free to change and redistribute it.
8 # There is NO WARRANTY, to the extent permitted by law.
10 # Attempt to require all the modules used by Perl anywhere in Girocco and
11 # report the failures. There is special handling for the SHA-1 functions
12 # and some other optional modules.
14 # These ones are not errors
16 eval {require Proc
::ProcessTable
; 1} or
17 print "Warning: missing Perl module Proc::ProcessTable, optional ".
18 "toolbox/kill-stale-daemons.pl will not function\n";
20 eval {require HTML
::Entities
; 1} or
21 print "Warning: missing Perl module HTML::Entities, gitweb ".
22 "email obfuscation will be partially disabled\n";
24 eval {require HTML
::TagCloud
; 1} or
25 print "Warning: missing Perl module HTML::TagCloud, optional gitweb tag cloud ".
26 "display will be all one size\n";
28 eval {require HTTP
::Date
; 1} ||
29 eval {require Time
::ParseDate
; 1} or
30 print "Warning: missing Perl module HTTP::Date and Time::ParseDate, gitweb ".
31 "will always return true to if-modified-since feed requests\n";
33 # These ones are required
37 # For SHA1, any of Digest::SHA, Digest::SHA1 or Digest::SHA::PurePerl will do
39 eval {require Digest
::SHA
; 1} ||
40 eval {require Digest
::SHA1
; 1} ||
41 eval {require Digest
::SHA
::PurePerl
; 1} or
43 print STDERR
"One of the Perl modules Digest::SHA or Digest::SHA1 or "
44 . "Digest::SHA::PurePerl must be available\n";
74 foreach my $module (@modules) {
75 eval "require $module; 1" or
76 ++$errors, print STDERR
"Missing required Perl module $module\n";
79 eval {require JSON
; 1} &&
80 eval {require LWP
::UserAgent
; 1} &&
81 eval {require RPC
::XML
; 1} &&
82 eval {require RPC
::XML
::Client
; 1} or
83 print STDERR
"Note that Perl modules JSON, LWP::UserAgent, RPC::XML and RPC::".
84 "XML::Client are required by the ref-change notification mechanism\n";
86 exit($errors ?
1 : 0);