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 "Note: missing Perl module Proc::ProcessTable, deprecated ".
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";
75 foreach my $module (@modules) {
76 eval "require $module; 1" or
77 ++$errors, print STDERR
"Missing required Perl module $module\n";
80 eval {require JSON
; 1} &&
81 eval {require LWP
::UserAgent
; 1} &&
82 eval {require RPC
::XML
; 1} &&
83 eval {require RPC
::XML
::Client
; 1} or
84 print STDERR
"Note that Perl modules JSON, LWP::UserAgent, RPC::XML and RPC::".
85 "XML::Client are required by the ref-change notification mechanism\n";
87 if (eval {require CGI
::Fast
; 1} && eval {require FCGI
; 1}) {
88 eval {require FCGI
::ProcManager
; 1} or
89 print STDERR
"Note that FCGI::ProcManager should be installed for ".
90 "optimal gitweb.cgi FastCGI server support\n";
92 print STDERR
"Note that Perl modules CGI::Fast and FCGI are required ".
93 "to use gitweb.cgi with mod_fcgid or other FastCGI server\n";
96 exit($errors ?
1 : 0);