From 1c7d8fa745c8eb63ae98a06483d13dfcdb6604b5 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 14 Mar 2024 16:14:17 +0100 Subject: [PATCH] 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 (cherry picked from commit 90fe13e23976e2de81adc14fbabfb99660320989) Signed-off-by: Fridolin Somers --- installer/externalmodules.pl | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100755 installer/externalmodules.pl diff --git a/installer/externalmodules.pl b/installer/externalmodules.pl deleted file mode 100755 index f836ccf023..0000000000 --- a/installer/externalmodules.pl +++ /dev/null @@ -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"; -- 2.39.5