#!/usr/bin/perl
#checks all templates starting from a directory
my $startdir = $ARGV[0];
my @files    = glob( $startdir . "/*" );

#print @files;
foreach my $file (@files) {

    # print "OpenFile: $file\n";
    my @tmpluse = gettemplates($file);
}

sub gettemplates {
    my $file = shift;
    my @farray;
    print "Opening: $file\n";
    open( FILE, "< $file" );
    while (<FILE>) {
        if (m/\[\%INCLUDE.*\]/) {
         #curatam un picut linia
            s/^.*\[\%INCLUDE(.*)\%\].*$/$1/;
 #           print $_;
            #sa vedem daca avem argumente
            my @items = split (/\s+/, $_);
            print $items[1]."\n";

#            my @fff = gettemplates()

            push (@farray,  $items[1]);
        }
    }
return @farray;
}