diff options
Diffstat (limited to 'rt/sbin/rt-test-dependencies.in')
| -rw-r--r-- | rt/sbin/rt-test-dependencies.in | 240 |
1 files changed, 150 insertions, 90 deletions
diff --git a/rt/sbin/rt-test-dependencies.in b/rt/sbin/rt-test-dependencies.in index a964e2912..ebea86c66 100644 --- a/rt/sbin/rt-test-dependencies.in +++ b/rt/sbin/rt-test-dependencies.in @@ -3,7 +3,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -60,42 +60,49 @@ GetOptions( \%args, 'v|verbose', 'install', 'with-MYSQL', 'with-POSTGRESQL|with-pg|with-pgsql', 'with-SQLITE', - 'with-ORACLE', 'with-FASTCGI', 'with-FASTCGI-SERVER', - 'with-SPEEDYCGI', 'with-MODPERL1', - 'with-MODPERL2', 'with-DEV', + 'with-ORACLE', 'with-FASTCGI', + 'with-MODPERL1', 'with-MODPERL2', 'with-STANDALONE', + 'with-DEV', + 'with-GPG', 'with-ICAL', 'with-SMTP', 'with-GRAPHVIZ', 'with-GD', 'with-DASHBOARDS', + 'with-USERLOGO', + 'with-SSL-MAILGATE', 'download=s', 'repository=s', - 'list-deps' + 'list-deps', + 'help|h', ); -unless (keys %args) { - help(); - exit(1); +if ( $args{help} ) { + require Pod::Usage; + Pod::Usage::pod2usage( { verbose => 2 } ); + exit; } # Set up defaults my %default = ( 'with-MASON' => 1, + 'with-PSGI' => 0, 'with-CORE' => 1, 'with-CLI' => 1, 'with-MAILGATE' => 1, 'with-DEV' => @RT_DEVEL_MODE@, - 'with-STANDALONE' => 1, 'with-GPG' => @RT_GPG@, 'with-ICAL' => 1, 'with-SMTP' => 1, 'with-GRAPHVIZ' => @RT_GRAPHVIZ@, 'with-GD' => @RT_GD@, - 'with-DASHBOARDS' => 1 + 'with-DASHBOARDS' => 1, + 'with-USERLOGO' => 1, + 'with-SSL-MAILGATE' => @RT_SSL_MAILGATE@, ); $args{$_} = $default{$_} foreach grep !exists $args{$_}, keys %default; @@ -156,44 +163,6 @@ sub conclude { } } - -sub help { - - print <<'.'; - -By default, testdeps determine whether you have -installed all the perl modules RT needs to run. - - --install Install missing modules - -The following switches will tell the tool to check for specific dependencies - - --with-mysql Database interface for MySQL - --with-postgresql Database interface for PostgreSQL - --with-oracle Database interface for Oracle - --with-sqlite Database interface and driver for SQLite (unsupported) - - --with-standalone Libraries needed to support the standalone simple pure perl server - --with-fastcgi-server Libraries needed to support the external fastcgi server - --with-fastcgi Libraries needed to support the fastcgi handler - --with-speedycgi Libraries needed to support the speedycgi handler - --with-modperl1 Libraries needed to support the modperl 1 handler - --with-modperl2 Libraries needed to support the modperl 2 handler - - --with-dev Tools needed for RT development - -You can also specify -v or --verbose to list the status of all dependencies, -rather than just the missing ones. - -The "RT_FIX_DEPS_CMD" environment variable, if set, will be used -instead of the standard CPAN shell by --install to install any -required modules. It will be called with the module name, or, if -"RT_FIX_DEPS_CMD" contains a "%s", will replace the "%s" with the -module name before calling the program. -. -} - - sub text_to_hash { my %hash; for my $line ( split /\n/, $_[0] ) { @@ -206,18 +175,21 @@ sub text_to_hash { } $deps{'CORE'} = [ text_to_hash( << '.') ]; +Class::Accessor 0.34 +DateTime 0.44 +DateTime::Locale 0.40 Digest::base Digest::MD5 2.27 Digest::SHA DBI 1.37 Class::ReturnValue 0.40 -DBIx::SearchBuilder 1.54 +DBIx::SearchBuilder 1.59 Text::Template 1.44 File::ShareDir File::Spec 0.8 -HTML::Entities +HTML::Quoted HTML::Scrubber 0.08 -Log::Dispatch 2.0 +Log::Dispatch 2.23 Sys::Syslog 0.16 Locale::Maketext 1.06 Locale::Maketext::Lexicon 0.32 @@ -236,15 +208,20 @@ Regexp::Common Scalar::Util Module::Versions::Report 1.05 Cache::Simple::TimedExpiry -Calendar::Simple -Encode 2.21 +Encode 2.39 CSS::Squish 0.06 File::Glob Devel::StackTrace 1.19 +Text::Password::Pronounceable +Devel::GlobalDestruction +List::MoreUtils +Net::CIDR +Regexp::Common::net::CIDR +Regexp::IPv6 . $deps{'MASON'} = [ text_to_hash( << '.') ]; -HTML::Mason 1.36 +HTML::Mason 1.43 Errno Digest::MD5 2.27 CGI::Cookie 1.20 @@ -254,12 +231,17 @@ XML::RSS 1.05 Text::WikiFormat 0.76 CSS::Squish 0.06 Devel::StackTrace 1.19 +JSON +IPC::Run3 . -$deps{'STANDALONE'} = [ text_to_hash( << '.') ]; -HTTP::Server::Simple 0.34 -HTTP::Server::Simple::Mason 0.14 -Net::Server +$deps{'PSGI'} = [ text_to_hash( << '.') ]; +CGI 3.38 +CGI::PSGI 0.12 +HTML::Mason::PSGIHandler 0.52 +Plack 0.9971 +Plack::Handler::Starlet +CGI::Emulate::PSGI . $deps{'MAILGATE'} = [ text_to_hash( << '.') ]; @@ -270,6 +252,14 @@ LWP::UserAgent Pod::Usage . +$deps{'SSL-MAILGATE'} = [ text_to_hash( << '.') ]; +Crypt::SSLeay +Net::SSL +LWP::UserAgent 6.0 +LWP::Protocol::https +Mozilla::CA +. + $deps{'CLI'} = [ text_to_hash( << '.') ]; Getopt::Long 2.24 LWP @@ -280,57 +270,39 @@ Term::ReadKey . $deps{'DEV'} = [ text_to_hash( << '.') ]; +Email::Abstract +Test::Email HTML::Form HTML::TokeParser -WWW::Mechanize -Test::WWW::Mechanize 1.04 +WWW::Mechanize 1.52 +Test::WWW::Mechanize 1.30 Module::Refresh 0.03 Test::Expect 0.31 XML::Simple File::Find Test::Deep 0 # needed for shredder tests String::ShellQuote 0 # needed for gnupg-incoming.t -Test::HTTP::Server::Simple 0.09 -Test::HTTP::Server::Simple::StashWarnings 0.02 Log::Dispatch::Perl Test::Warn -Test::Builder 0.77 # needed to fix TODO test -IPC::Run3 +Test::Builder 0.90 # needed for is_passing Test::MockTime -HTTP::Server::Simple::Mason 0.13 Log::Dispatch::Perl +Test::WWW::Mechanize::PSGI +Plack::Middleware::Test::StashWarnings +Test::LongString . $deps{'FASTCGI'} = [ text_to_hash( << '.') ]; -CGI 3.38 -FCGI 0.74 -CGI::Fast -. - -$deps{'FASTCGI-SERVER'} = [ text_to_hash( << '.') ]; -CGI 3.38 -CGI::Fast +FCGI FCGI::ProcManager -File::Basename -File::Spec -Getopt::Long -Pod::Usage . -$deps{'SPEEDYCGI'} = [ text_to_hash( << '.') ]; -CGI 3.38 -CGI::SpeedyCGI -. - - $deps{'MODPERL1'} = [ text_to_hash( << '.') ]; -CGI 3.38 Apache::Request Apache::DBI 0.92 . $deps{'MODPERL2'} = [ text_to_hash( << '.') ]; -CGI 3.38 Apache::DBI HTML::Mason 1.36 . @@ -365,14 +337,13 @@ Net::SMTP . $deps{'DASHBOARDS'} = [ text_to_hash( << '.') ]; -HTML::RewriteAttributes 0.02 +HTML::RewriteAttributes 0.04 MIME::Types . $deps{'GRAPHVIZ'} = [ text_to_hash( << '.') ]; GraphViz IPC::Run -IPC::Run::SafeHandles . $deps{'GD'} = [ text_to_hash( << '.') ]; @@ -381,6 +352,10 @@ GD::Graph GD::Text . +$deps{'USERLOGO'} = [ text_to_hash( << '.') ]; +Convert::Color +. + my %AVOID = ( 'DBD::Oracle' => [qw(1.23)], ); @@ -396,7 +371,7 @@ check_users(); my %Missing_By_Type = (); foreach my $type (sort grep $args{$_}, keys %args) { - next unless ($type =~ /^with-(.*?)$/); + next unless ($type =~ /^with-(.*?)$/) and $deps{$1}; $type = $1; section("$type dependencies"); @@ -409,6 +384,16 @@ foreach my $type (sort grep $args{$_}, keys %args) { if ( $args{'install'} ) { for my $module (keys %missing) { resolve_dep($module, $missing{$module}{version}); + my $m = $module . '.pm'; + $m =~ s!::!/!g; + if ( delete $INC{$m} ) { + my $symtab = $module . '::'; + no strict 'refs'; + for my $symbol ( keys %{$symtab} ) { + next if substr( $symbol, -2, 2 ) eq '::'; + delete $symtab->{$symbol}; + } + } delete $missing{$module} if test_dep($module, $missing{$module}{version}, $AVOID{$module}); } @@ -474,7 +459,7 @@ sub resolve_dep { print "\nInstall module $module\n"; - my $ext = $ENV{'RT_FIX_DEPS_CMD'}; + my $ext = $ENV{'RT_FIX_DEPS_CMD'} || $ENV{'PERL_PREFER_CPAN_CLIENT'}; unless( $ext ) { my $configured = 1; { @@ -596,6 +581,81 @@ sub check_users { print_found("web group (@WEB_GROUP@)", defined getgrnam("@WEB_GROUP@")); } +1; +__END__ + +=head1 NAME + +rt-test-dependencies - test rt's dependencies + +=head1 SYNOPSIS + + rt-test-dependencies + rt-test-dependencies --install + rt-test-dependencies --with-mysql --with-fastcgi + +=head1 DESCRIPTION + +by default, C<rt-test-dependencies> determines whether you have installed all +the perl modules RT needs to run. + +the "RT_FIX_DEPS_CMD" environment variable, if set, will be used instead of +the standard CPAN shell by --install to install any required modules. it will +be called with the module name, or, if "RT_FIX_DEPS_CMD" contains a "%s", will +replace the "%s" with the module name before calling the program. + +=head1 OPTIONS + +=over + +=item install + + install missing modules + +=item verbose + +list the status of all dependencies, rather than just the missing ones. + +-v is equal to --verbose + +=item specify dependencies + +=over + +=item --with-mysql + + database interface for mysql + +=item --with-postgresql + + database interface for postgresql + +=item with-oracle + + database interface for oracle + +=item with-sqlite + + database interface and driver for sqlite (unsupported) + +=item with-fastcgi + + libraries needed to support the fastcgi handler + +=item with-modperl1 + + libraries needed to support the modperl 1 handler + +=item with-modperl2 + + libraries needed to support the modperl 2 handler + +=item with-dev + + tools needed for RT development + +=back + +=back -1; |