Lines 4-13
Link Here
|
4 |
# It provides you not only the list of modules BUT ALSO the files that uses those modules. |
4 |
# It provides you not only the list of modules BUT ALSO the files that uses those modules. |
5 |
# utf8 or warnings or other lib use are not taken into account at the moment. |
5 |
# utf8 or warnings or other lib use are not taken into account at the moment. |
6 |
|
6 |
|
7 |
|
7 |
use Modern::Perl; |
8 |
use strict; |
|
|
9 |
use warnings; |
10 |
use C4::Context; |
8 |
use C4::Context; |
|
|
9 |
|
11 |
my $dir=C4::Context->config('intranetdir'); |
10 |
my $dir=C4::Context->config('intranetdir'); |
12 |
qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >/tmp/modulesKoha.log); |
11 |
qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >/tmp/modulesKoha.log); |
13 |
$dir=C4::Context->config('opacdir'); |
12 |
$dir=C4::Context->config('opacdir'); |