X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fsbin%2Frt-test-dependencies.in;h=8fbce77c399d479a6d0236cb7cba8575021e640c;hp=5ce918b025dfe1f6fdcab2dd62ccc0715cda4e86;hb=e9827319f740628016763ce99fc424df30369eea;hpb=e710e07e4451b7c615fb477799dc64bf3490248c diff --git a/rt/sbin/rt-test-dependencies.in b/rt/sbin/rt-test-dependencies.in index 5ce918b02..8fbce77c3 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-2012 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # # # (Except where explicitly superseded by other copyright notices) @@ -52,34 +52,34 @@ # use strict; +use warnings; no warnings qw(numeric redefine); use Getopt::Long; +use Cwd qw(abs_path); my %args; my %deps; my @orig_argv = @ARGV; +# Save our path because installers or tests can change cwd +my $script_path = abs_path($0); + GetOptions( \%args, 'v|verbose', - 'install!', 'with-MYSQL', - 'with-POSTGRESQL|with-pg|with-pgsql', 'with-SQLITE', - 'with-ORACLE', 'with-FASTCGI', - 'with-MODPERL1', 'with-MODPERL2', - 'with-STANDALONE', + 'install!', + 'with-MYSQL', 'with-PG', 'with-SQLITE', 'with-ORACLE', + 'with-FASTCGI', 'with-MODPERL1', 'with-MODPERL2', 'with-STANDALONE', - 'with-DEV', + 'with-DEVELOPER', 'with-GPG', 'with-ICAL', - 'with-SMTP', 'with-GRAPHVIZ', 'with-GD', 'with-DASHBOARDS', 'with-USERLOGO', - 'with-SSL-MAILGATE', 'with-HTML-DOC', - 'download=s', - 'repository=s', 'list-deps', + 'siteinstall!', 'help|h', ); @@ -96,16 +96,16 @@ my %default = ( 'with-CORE' => 1, 'with-CLI' => 1, 'with-MAILGATE' => 1, - 'with-DEV' => @RT_DEVEL_MODE@, - 'with-GPG' => @RT_GPG@, + 'with-DEVELOPER' => @RT_DEVELOPER@, + 'with-GPG' => @RT_GPG_DEPS@, + 'with-SMIME' => @RT_SMIME_DEPS@, 'with-ICAL' => 1, 'with-SMTP' => 1, 'with-GRAPHVIZ' => @RT_GRAPHVIZ@, 'with-GD' => @RT_GD@, 'with-DASHBOARDS' => 1, 'with-USERLOGO' => 1, - 'with-SSL-MAILGATE' => @RT_SSL_MAILGATE@, - 'with-HTML-DOC' => @RT_DEVEL_MODE@, + 'with-HTML-DOC' => @RT_DEVELOPER@, ); $args{$_} = $default{$_} foreach grep !exists $args{$_}, keys %default; @@ -162,6 +162,10 @@ sub conclude { 0, $module->{error} ); } } + + print "\nPerl library path for @PERL@:\n"; + print " $_\n" for @INC; + exit 1; } } @@ -176,123 +180,130 @@ sub text_to_hash { return %hash; } +sub set_dep { + my ($name, $module, $version) = @_; + my %list = @{$deps{$name}}; + $list{$module} = ($version || ''); + $deps{$name} = [ %list ]; +} $deps{'CORE'} = [ text_to_hash( << '.') ]; -Class::Accessor 0.34 +Apache::Session 1.53 +CGI 3.38 +CGI::Cookie 1.20 +CGI::Emulate::PSGI +CGI::PSGI 0.12 +Class::Accessor::Fast +Crypt::Eksblowfish +CSS::Squish 0.06 +Data::GUID +Date::Extract 0.02 +Date::Manip DateTime 0.44 +DateTime::Format::Natural 0.67 DateTime::Locale 0.40 +DBI 1.37 +DBIx::SearchBuilder 1.65 +Devel::GlobalDestruction +Devel::StackTrace 1.19 Digest::base Digest::MD5 2.27 Digest::SHA -DBI 1.37 -Class::ReturnValue 0.40 -DBIx::SearchBuilder 1.59 -Text::Template 1.44 +Email::Address 1.897 +Email::Address::List 0.02 +Encode +Errno +File::Glob File::ShareDir File::Spec 0.8 +File::Temp 0.19 +HTML::Entities +HTML::FormatText::WithLinks 0.14 +HTML::FormatText::WithLinks::AndTables +HTML::Mason 1.43 +HTML::Mason::PSGIHandler 0.52 HTML::Quoted +HTML::RewriteAttributes 0.05 HTML::Scrubber 0.08 -HTML::TreeBuilder -HTML::FormatText -Log::Dispatch 2.23 -Sys::Syslog 0.16 +HTTP::Message 6.0 +IPC::Run3 +JSON +LWP::Simple +List::MoreUtils Locale::Maketext 1.06 +Locale::Maketext::Fuzzy 0.11 Locale::Maketext::Lexicon 0.32 -Locale::Maketext::Fuzzy -MIME::Entity 5.425 +Log::Dispatch 2.30 +Mail::Header 2.12 Mail::Mailer 1.57 -Email::Address -Text::Wrapper -Time::ParseDate -Time::HiRes -File::Temp 0.19 -Text::Quoted 2.02 -Tree::Simple 1.04 -UNIVERSAL::require -Regexp::Common -Scalar::Util +MIME::Entity 5.504 +Module::Refresh 0.03 Module::Versions::Report 1.05 -Cache::Simple::TimedExpiry -Encode 2.39 -CSS::Squish 0.06 -File::Glob -Devel::StackTrace 1.19 -Text::Password::Pronounceable -Devel::GlobalDestruction -List::MoreUtils Net::CIDR +Plack 1.0002 +Regexp::Common Regexp::Common::net::CIDR Regexp::IPv6 -. - -$deps{'MASON'} = [ text_to_hash( << '.') ]; -HTML::Mason 1.43 -Errno -Digest::MD5 2.27 -CGI::Cookie 1.20 +Role::Basic 0.12 +Scalar::Util Storable 2.08 -Apache::Session 1.53 -XML::RSS 1.05 +Symbol::Global::Name 0.04 +Sys::Syslog 0.16 +Text::Password::Pronounceable +Text::Quoted 2.07 +Text::Template 1.44 Text::WikiFormat 0.76 -CSS::Squish 0.06 -Devel::StackTrace 1.19 -JSON -IPC::Run3 -. - -$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 +Text::Wrapper +Time::HiRes +Time::ParseDate +Tree::Simple 1.04 +UNIVERSAL::require +XML::RSS 1.05 . +set_dep( CORE => 'Symbol::Global::Name' => 0.05 ) if $] >= 5.019003; +set_dep( CORE => CGI => 4.00 ) if $] > 5.019003; $deps{'MAILGATE'} = [ text_to_hash( << '.') ]; -Getopt::Long -LWP::UserAgent -Pod::Usage -. - -$deps{'SSL-MAILGATE'} = [ text_to_hash( << '.') ]; Crypt::SSLeay -Net::SSL -LWP::UserAgent 6.0 +Getopt::Long LWP::Protocol::https -Mozilla::CA +LWP::UserAgent 6.0 +Net::SSL +Pod::Usage . $deps{'CLI'} = [ text_to_hash( << '.') ]; Getopt::Long 2.24 -LWP HTTP::Request::Common -Text::ParseWords -Term::ReadLine +LWP Term::ReadKey +Term::ReadLine +Text::ParseWords . -$deps{'DEV'} = [ text_to_hash( << '.') ]; +$deps{'DEVELOPER'} = [ text_to_hash( << '.') ]; Email::Abstract -Test::Email -HTML::Form -HTML::TokeParser -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 +File::Which +Locale::PO Log::Dispatch::Perl -Test::Warn +Mojo::DOM +Plack::Middleware::Test::StashWarnings 0.08 +Set::Tiny +String::ShellQuote 0 # needed for gnupg-incoming.t Test::Builder 0.90 # needed for is_passing +Test::Deep 0 # needed for shredder tests +Test::Email +Test::Expect 0.31 +Test::LongString Test::MockTime -Log::Dispatch::Perl +Test::NoWarnings +Test::Pod +Test::Warn +Test::WWW::Mechanize 1.30 Test::WWW::Mechanize::PSGI -Plack::Middleware::Test::StashWarnings 0.06 -Test::LongString +WWW::Mechanize 1.52 +XML::Simple . $deps{'FASTCGI'} = [ text_to_hash( << '.') ]; @@ -301,13 +312,12 @@ FCGI::ProcManager . $deps{'MODPERL1'} = [ text_to_hash( << '.') ]; -Apache::Request Apache::DBI 0.92 +Apache::Request . $deps{'MODPERL2'} = [ text_to_hash( << '.') ]; Apache::DBI -HTML::Mason 1.36 . $deps{'MYSQL'} = [ text_to_hash( << '.') ]; @@ -318,7 +328,8 @@ $deps{'ORACLE'} = [ text_to_hash( << '.') ]; DBD::Oracle . -$deps{'POSTGRESQL'} = [ text_to_hash( << '.') ]; +$deps{'PG'} = [ text_to_hash( << '.') ]; +DBIx::SearchBuilder 1.66 DBD::Pg 1.43 . @@ -327,22 +338,25 @@ DBD::SQLite 1.00 . $deps{'GPG'} = [ text_to_hash( << '.') ]; +File::Which GnuPG::Interface PerlIO::eol . -$deps{'ICAL'} = [ text_to_hash( << '.') ]; -Data::ICal +$deps{'SMIME'} = [ text_to_hash( << '.') ]; +Crypt::X509 +File::Which +String::ShellQuote . -$deps{'SMTP'} = [ text_to_hash( << '.') ]; -Net::SMTP +$deps{'ICAL'} = [ text_to_hash( << '.') ]; +Data::ICal . $deps{'DASHBOARDS'} = [ text_to_hash( << '.') ]; -HTML::RewriteAttributes 0.04 MIME::Types URI 1.59 +URI::QueryParam . $deps{'GRAPHVIZ'} = [ text_to_hash( << '.') ]; @@ -352,7 +366,7 @@ IPC::Run 0.90 $deps{'GD'} = [ text_to_hash( << '.') ]; GD -GD::Graph +GD::Graph 1.47 GD::Text . @@ -361,13 +375,13 @@ Convert::Color . $deps{'HTML-DOC'} = [ text_to_hash( <<'.') ]; -Pod::Simple 3.17 HTML::Entities +Pod::Simple 3.24 . my %AVOID = ( 'DBD::Oracle' => [qw(1.23)], - 'Email::Address' => [qw(1.893 1.894)], + 'Devel::StackTrace' => [qw(1.28 1.29)], ); if ($args{'download'}) { @@ -413,7 +427,7 @@ foreach my $type (sort grep $args{$_}, keys %args) { } if ( $args{'install'} && keys %Missing_By_Type ) { - exec($0, @orig_argv, '--no-install'); + exec($script_path, @orig_argv, '--no-install'); } else { conclude(%Missing_By_Type); @@ -445,7 +459,8 @@ sub test_dep { print $module, ': ', $version || 0, "\n"; } else { - eval "use $module $version ()"; + no warnings 'deprecated'; + eval "{ local \$ENV{__WARN__}; use $module $version () }"; if ( my $error = $@ ) { return 0 unless wantarray; @@ -453,6 +468,10 @@ sub test_dep { $error =~ s/at \(eval \d+\) line \d+\.$//; undef $error if $error =~ /this is only/; + my $path = $module; + $path =~ s{::}{/}g; + undef $error if defined $error and $error =~ /^Can't locate $path\.pm in \@INC/; + return ( 0, $error ); } @@ -472,6 +491,27 @@ sub resolve_dep { my $module = shift; my $version = shift; + unless (defined $args{siteinstall}) { + require Config; + my %uniq; + my @order = grep {($_ eq $Config::Config{sitelibexp} + or $_ eq $Config::Config{privlibexp}) + and not $uniq{$_}++} @INC; + if ($] < 5.011 and @order == 2 + and $order[0] eq $Config::Config{sitelibexp} + and $order[1] eq $Config::Config{privlibexp}) { + + print "\n"; + print "Patched perl, with site_perl before core in \@INC, detected.\n"; + print "Installing dual-life modules into site_perl so they are not\n"; + print "later overridden by the distribution's package.\n"; + + $args{siteinstall} = 1; + } else { + $args{siteinstall} = 0; + } + } + print "\nInstall module $module\n"; my $ext = $ENV{'RT_FIX_DEPS_CMD'} || $ENV{'PERL_PREFER_CPAN_CLIENT'}; @@ -491,6 +531,12 @@ Please run `@PERL@ -MCPAN -e shell` to configure it. END exit(1); } + + my $installdirs = $CPAN::Config->{makepl_arg} ||= ""; + $installdirs =~ s/(\bINSTALLDIRS=\S+|$)/ INSTALLDIRS=site/ + if $args{siteinstall}; + local $CPAN::Config->{makepl_arg} = $installdirs; + my $rv = eval { require CPAN; CPAN::Shell->install($module) }; return $rv unless $@; @@ -534,55 +580,14 @@ END return scalar `$ext 1>&2`; } -sub download_mods { - my %modules; - use CPAN; - - foreach my $key (keys %deps) { - my @deps = (@{$deps{$key}}); - while (@deps) { - my $mod = shift @deps; - my $ver = shift @deps; - next if ($mod =~ /^(DBD-|Apache-Request)/); - $modules{$mod} = $ver; - } - } - my @mods = keys %modules; - CPAN::get(); - my $moddir = $args{'download'}; - foreach my $mod (@mods) { - $CPAN::Config->{'build_dir'} = $moddir; - CPAN::get($mod); - } - - opendir(DIR, $moddir); - while ( my $dir = readdir(DIR)) { - print "Dir is $dir\n"; - next if ( $dir =~ /^\.\.?$/); - - # Skip things we've previously tagged - my $out = `svn ls $args{'repository'}/tags/$dir`; - next if ($out); - - if ($dir =~ /^(.*)-(.*?)$/) { - `svn_load_dirs -no_user_input -t tags/$dir -v $args{'repository'} dists/$1 $moddir/$dir`; - `rm -rf $moddir/$dir`; - - } - - } - closedir(DIR); - exit; -} - sub check_perl_version { section("perl"); - eval {require 5.008003}; + eval {require 5.010_001}; if ($@) { - print_found("5.8.3", 0,"RT is known to be non-functional on versions of perl older than 5.8.3. Please upgrade to 5.8.3 or newer."); + print_found("5.10.1", 0, sprintf("RT requires Perl v5.10.1 or newer. Your current Perl is v%vd", $^V)); exit(1); } else { - print_found( sprintf(">=5.8.3(%vd)", $^V), 1 ); + print_found( sprintf(">=5.10.1(%vd)", $^V), 1 ); } } @@ -640,35 +645,35 @@ list the status of all dependencies, rather than just the missing ones. =item --with-mysql - database interface for mysql +database interface for mysql + +=item --with-pg -=item --with-postgresql +database interface for postgresql - database interface for postgresql +=item --with-oracle -=item with-oracle - - database interface for oracle +database interface for oracle -=item with-sqlite +=item --with-sqlite - database interface and driver for sqlite (unsupported) +database interface and driver for sqlite (unsupported) -=item with-fastcgi +=item --with-fastcgi - libraries needed to support the fastcgi handler +libraries needed to support the fastcgi handler -=item with-modperl1 +=item --with-modperl1 - libraries needed to support the modperl 1 handler +libraries needed to support the modperl 1 handler -=item with-modperl2 +=item --with-modperl2 - libraries needed to support the modperl 2 handler +libraries needed to support the modperl 2 handler -=item with-dev +=item --with-developer - tools needed for RT development +tools needed for RT development =back