From: Udo Spallek <info@wissensvermittlung.com>
Date: Thu, 4 Jan 2007 07:37:58 +0000 (+0000)
Subject: Script: find-use
X-Git-Tag: release-2.4.1~1^2~98
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=d6fad186a0436b2c3f9e370b5d7c78bac7830089;p=kivitendo-erp.git

Script: find-use
Findet alle benoetigten Module von Lx. (Uebernommen und angepasst von LeggerSMB)
---

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
new file mode 100644
index 000000000..e5bdcae90
--- /dev/null
+++ b/scripts/find-use.pl
@@ -0,0 +1,61 @@
+#!/usr/bin/perl -w
+=head1 NAME
+
+find-use
+
+=head1 EXAMPLE
+
+ ~/ledgersmb # utils/devel/find-use
+ 0.000000 : HTML::Entities
+ 0.000000 : Locale::Maketext::Lexicon
+ 0.000000 : Module::Build
+ ...
+
+=head1 EXPLINATION
+
+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
+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
+module is not in core perl, and needs to be installed before Lx-Office will operate.
+
+=head1 AUTHOR
+
+http://www.ledgersmb.org/ - The LedgerSMB team
+
+=head1 LICENSE
+
+Distributed under the terms of the LedgerSMB code.
+
+=cut
+
+
+use strict;
+use warnings;
+
+open GREP, "grep -r '^use ' . |";
+use Module::CoreList;
+
+my %uselines;
+while(<GREP>) { 
+	next if /SL::/;
+	next if /LX::/;
+	next if /use warnings/;
+	next if /use strict/;
+	next if /use vars/;
+	chomp;
+	my ($file, $useline) = m/^([^:]+):use\s(.*?)$/;
+	$uselines{$useline}||=[];
+	push @{$uselines{$useline}}, $file;
+}
+
+my %modules;
+foreach my $useline (keys %uselines) {
+
+	my ($module) = grep { $_ } $useline =~ /(?:base ['"]([a-z:]+)|([a-z:]+)(?:\s|;))/i;
+	my $version = Module::CoreList->first_release($module);
+	$modules{$module} = $version||0;
+}
+
+foreach my $mod (sort { $modules{$a} == 0 ? -1 : $modules{$b} == 0 ? 1 : 0  or $a cmp $b } keys %modules) { 
+	printf "%2.6f : %s\n", $modules{$mod}, $mod;
+}
+