Bug 24879: Remove installer/externalmodules.pl
It is not used, if we need it back it must be moved to misc. Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> (cherry picked from commit 90fe13e23976e2de81adc14fbabfb99660320989) Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com> (cherry picked from commit 917889bc77029ee632748e444523047b1aceed03) Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
This commit is contained in:
parent
decfeadb5e
commit
ff7f48c296
1 changed files with 0 additions and 27 deletions
|
@ -1,27 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# This Script can be used to provide a list of ALL external modules ***used*** (uncommented) in Koha.
|
||||
# It provides you not only the list of modules BUT ALSO the files that uses those modules.
|
||||
# utf8 or warnings or other lib use are not taken into account at the moment.
|
||||
|
||||
use Modern::Perl;
|
||||
use C4::Context;
|
||||
|
||||
my $dir=C4::Context->config('intranetdir');
|
||||
qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >/tmp/modulesKoha.log);
|
||||
$dir=C4::Context->config('opacdir');
|
||||
qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >>/tmp/modulesKoha.log);
|
||||
|
||||
open my $fh, '<', '/tmp/modulesKoha.log' ||die "unable to open file /tmp/modulesKoha.log";
|
||||
my %modulehash;
|
||||
while (my $line=<$fh>){
|
||||
if ( $line=~m#(.*)\:\s*use\s+([A-Z][^\s;]+)# ){
|
||||
my ($file,$module)=($1,$2);
|
||||
my @filename = split /\//, $file;
|
||||
push @{$modulehash{$module}},$filename[scalar(@filename) - 1];
|
||||
}
|
||||
}
|
||||
print "external modules used in Koha ARE :\n";
|
||||
map {print "* $_ \t in files ",join (",",@{$modulehash{$_}}),"\n" } sort keys %modulehash;
|
||||
close $fh;
|
||||
unlink "/tmp/modulesKoha.log";
|
Loading…
Reference in a new issue