X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Fcreate_tags_file.pl;h=d7cef8e6d57a687e8acfa8405297f74f3c53961b;hb=72f19f83681b222d1606d75c90ceedc43bb545f9;hp=e27a96ba02f09c40d951d9c3a89037ed5aacea6b;hpb=43e0502b9a815cb1af0735c9ea7c2bc819b97df5;p=kivitendo-erp.git

diff --git a/scripts/create_tags_file.pl b/scripts/create_tags_file.pl
index e27a96ba0..d7cef8e6d 100644
--- a/scripts/create_tags_file.pl
+++ b/scripts/create_tags_file.pl
@@ -20,11 +20,21 @@ use strict;
 use warnings FATAL =>'all';
 use diagnostics;
 
-my $dir = IO::Dir->new("SL/");
+use Getopt::Long;
 
-my @files = grep {/\.pm$/} $dir->read();
+my $parse_SL         = 1;
+my $parse_binmozilla = 0;
+GetOptions("sl!"         => \$parse_SL,
+           "pm!"         => \$parse_SL,
+           "binmozilla!" => \$parse_binmozilla,
+           "pl!"         => \$parse_binmozilla,
+           );
 
-@files = grep { s{^}{SL\/}gxms } @files;
+my @files = ();
+push @files, grep { /\.pm$/ && s{^}{SL/}gxms         } IO::Dir->new("SL/")->read()          if $parse_SL;
+push @files, grep { /\.pl$/ && s{^}{bin/mozilla/}gxms} IO::Dir->new("bin/mozilla/")->read() if $parse_binmozilla;
+
+#map { s{^}{SL\/}gxms } @files;
 
 #print Dumper(@files);