scripts/dbupgrade2_tool.pl: kein Kontrollfeld fürs Encoding erzeugen

[mfinanz.git] / scripts / find-use.pl

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index 90242211094eed6e4cb05648e28f0b68f81e5914..61bfff751096c2060367bb7a373bbd4bf436f17e 100755 (executable)
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -1,4 +1,13 @@
 #!/usr/bin/perl -l
 #!/usr/bin/perl -l

+
+BEGIN {
+  use FindBin;
+
+  unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).
+  push   (@INC, $FindBin::Bin . '/..');                  # '.' will be removed from @INC soon.
+  push   (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version.
+}
+

 use strict;
 #use warnings; # corelist and find throw tons of warnings
 use File::Find;
 use strict;
 #use warnings; # corelist and find throw tons of warnings
 use File::Find;


@@ -21,6 +30,9 @@ my (%uselines, %modules, %supplied, %requires);
    'Rose::DB::Object::ConventionManager' => 1,
    'Rose::DB::Object::Manager'           => 1,
    'Rose::DB::Object::Metadata'          => 1,
    'Rose::DB::Object::ConventionManager' => 1,
    'Rose::DB::Object::Manager'           => 1,
    'Rose::DB::Object::Metadata'          => 1,

+   'Rose::DB::Object::Helpers'           => 1,
+   'Rose::DB::Object::Util'              => 1,
+   'Rose::DB::Object::Constants'         => 1,

   },
   'Rose::Object' => {
     'Rose::Object::MakeMethods::Generic' => 1,
   },
   'Rose::Object' => {
     'Rose::Object::MakeMethods::Generic' => 1,


@@ -32,20 +44,42 @@ my (%uselines, %modules, %supplied, %requires);
     'Template::Plugin'                   => 1,
     'Template::Plugin::Filter'           => 1,
     'Template::Plugin::HTML'             => 1,
     'Template::Plugin'                   => 1,
     'Template::Plugin::Filter'           => 1,
     'Template::Plugin::HTML'             => 1,

+    'Template::Stash'                    => 1,

   },
   'Devel::REPL' => {
     'namespace::clean'                   => 1,
   },
   'Devel::REPL' => {
     'namespace::clean'                   => 1,

-  }
+  },
+  'Email::MIME' => {
+    'Email::MIME::Creator'               => 1,
+  },
+  'Test::Harness' => {
+    'TAP::Parser'                        => 1,
+    'TAP::Parser::Aggregator'            => 1,
+  },
+  'Archive::Zip' => {
+    'Archive::Zip::Member'               => 1,
+  },
+  'HTML::Parser' => {
+    'HTML::Entities'                     => 1,
+  },
+  'URI' => {
+    'URI::Escape'                        => 1,
+  },
+  'File::MimeInfo' => {
+    'File::MimeInfo::Magic'              => 1,
+  },

 );
 
 GetOptions(
   'files-with-match|l' => \ my $l,
 );
 
 );
 
 GetOptions(
   'files-with-match|l' => \ my $l,
 );
 

+chmod($FindBin::Bin . '/..');
+

 find(sub {
   return unless /(\.p[lm]|console)$/;
 
 find(sub {
   return unless /(\.p[lm]|console)$/;
 

-  # remember modules shipped with Lx-Office
+  # remember modules shipped with kivitendo

   $supplied{modulize($File::Find::name)}++
     if $File::Find::dir =~ m#modules/#;
 
   $supplied{modulize($File::Find::name)}++
     if $File::Find::dir =~ m#modules/#;
 


@@ -56,6 +90,7 @@ find(sub {
     next if /SL::/;
     next if /Support::Files/; # our own test support module
     next if /use (warnings|strict|vars|lib|constant|utf8)/;
     next if /SL::/;
     next if /Support::Files/; # our own test support module
     next if /use (warnings|strict|vars|lib|constant|utf8)/;

+    next if /^use (with|the)/;

 
     my ($useline) = m/^use\s+(.*?)$/;
 
 
     my ($useline) = m/^use\s+(.*?)$/;
 


@@ -106,6 +141,11 @@ for my $useline (keys %uselines) {
   }
 }
 
   }
 }
 

+# have all documented modules mentioned here
+$modules{$_->{name}} ||= { status => 'required' } for @SL::InstallationCheck::required_modules;
+$modules{$_->{name}} ||= { status => 'optional' } for @SL::InstallationCheck::optional_modules;
+$modules{$_->{name}} ||= { status => 'developer' } for @SL::InstallationCheck::developer_modules;
+

 # build transitive closure for documented dependancies
 my $changed = 1;
 while ($changed) {
 # build transitive closure for documented dependancies
 my $changed = 1;
 while ($changed) {


@@ -184,7 +224,6 @@ find-use
 =head1 EXAMPLE
 
  # perl scipts/find-use.pl
 =head1 EXAMPLE
 
  # perl scipts/find-use.pl

- !missing : Perl::Tags

  !missing : Template::Constants
  !missing : DBI
 
  !missing : Template::Constants
  !missing : DBI
 


@@ -230,5 +269,3 @@ Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>
 Distributed under the terms of the GNU General Public License v2.
 
 =cut
 Distributed under the terms of the GNU General Public License v2.
 
 =cut

-
-