X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=scripts%2Fcreate_tags_file.pl;h=d7cef8e6d57a687e8acfa8405297f74f3c53961b;hb=7b01d81091fcd5e005a313a51e3c496e9d7d779d;hp=712493b3069182902248563682ab39da7715e5f0;hpb=61cd09fa923cc9d834cd8d7e2307e5b8bb994939;p=kivitendo-erp.git

diff --git a/scripts/create_tags_file.pl b/scripts/create_tags_file.pl
index 712493b30..d7cef8e6d 100644
--- a/scripts/create_tags_file.pl
+++ b/scripts/create_tags_file.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+#
 ########################################################
 #
 # This script creates a 'tags' file in the style of ctags
@@ -18,11 +20,21 @@ use strict;
 use warnings FATAL =>'all';
 use diagnostics;
 
-my $dir = IO::Dir->new("SL/");
+use Getopt::Long;
+
+my $parse_SL         = 1;
+my $parse_binmozilla = 0;
+GetOptions("sl!"         => \$parse_SL,
+           "pm!"         => \$parse_SL,
+           "binmozilla!" => \$parse_binmozilla,
+           "pl!"         => \$parse_binmozilla,
+           );
 
-my @files = grep {/\.pm$/} $dir->read();
+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;
 
-@files = grep { s{^}{SL\/}gxms } @files;
+#map { s{^}{SL\/}gxms } @files;
 
 #print Dumper(@files);
 
@@ -39,4 +51,4 @@ my $tagsfile="tags";
 $naive_tagger->output( outfile => $tagsfile );
 
 
-1;
\ No newline at end of file
+1;