Filterkriterium "Kunden-/Lieferantenname" in Berichten auch beim Umsortieren beibehal...
[kivitendo-erp.git] / scripts / find-use.pl
1 #!/usr/bin/perl -w
2 =head1 NAME
3
4 find-use
5
6 =head1 EXAMPLE
7
8  ~/ledgersmb # utils/devel/find-use
9  0.000000 : HTML::Entities
10  0.000000 : Locale::Maketext::Lexicon
11  0.000000 : Module::Build
12  ...
13
14 =head1 EXPLINATION
15
16 This util is useful for package builders to identify all the CPAN dependencies we've made.  It required Module::CoreList (which is core, but is not yet in any stable
17 release of perl)  to determine if a module is distributed with perl or not.  The output reports which version of perl the module is in.  If it reports 0.000000, then the
18 module is not in core perl, and needs to be installed before Lx-Office will operate.
19
20 =head1 AUTHOR
21
22 http://www.ledgersmb.org/ - The LedgerSMB team
23
24 =head1 LICENSE
25
26 Distributed under the terms of the GNU General Public License v2.
27 =cut
28
29
30 use strict;
31 use warnings;
32
33 open GREP, "grep -r '^use ' . |";
34 use Module::CoreList;
35
36 my %uselines;
37 while(<GREP>) { 
38         next if /SL::/;
39         next if /LX::/;
40         next if /use warnings/;
41         next if /use strict/;
42         next if /use vars/;
43         chomp;
44         my ($file, $useline) = m/^([^:]+):use\s(.*?)$/;
45         $uselines{$useline}||=[];
46         push @{$uselines{$useline}}, $file;
47 }
48
49 my %modules;
50 foreach my $useline (keys %uselines) {
51
52         my ($module) = grep { $_ } $useline =~ /(?:base ['"]([a-z:]+)|([a-z:]+)(?:\s|;))/i;
53         my $version = Module::CoreList->first_release($module);
54         $modules{$module} = $version||0;
55 }
56
57 foreach my $mod (sort { $modules{$a} == 0 ? -1 : $modules{$b} == 0 ? 1 : 0  or $a cmp $b } keys %modules) { 
58         printf "%2.6f : %s\n", $modules{$mod}, $mod;
59 }
60