- 

#!/usr/bin/perl

use Modern::Perl;

use File::Find;

use File::Slurp;

use Data::Dumper;

my @themes;

# OPAC themes

my $opac_dir  = 'koha-tmpl/opac-tmpl';

opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";

for my $theme ( grep { not /^\.|lib|js|xslt/ } readdir($dh) ) {

    push @themes, "$opac_dir/$theme/en";

}

close $dh;

# STAFF themes

my $staff_dir = 'koha-tmpl/intranet-tmpl';

opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";

for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {

    push @themes, "$staff_dir/$theme/en";

}

close $dh;

my @files;

sub wanted {

    my $name = $File::Find::name;

    push @files, $name

        if $name =~ m[\.(tt|inc)$] and -f $name;

}

find({ wanted => \&wanted, no_chdir => 1 }, @themes );

my @errors;

for my $file ( @files ) {

    my @e = catch_missing_op($file);

    push @errors, { file => $file, errors => \@e } if @e;

}

say sprintf("%s:%s",  $_->{file}, join(',', @{$_->{errors}})) for @errors;

sub catch_missing_op{

    my ( $file ) = @_;

    my @lines = read_file($file);

    my @errors;

    return unless grep { $_ =~ m|<form| } @lines;

    my ($in_form, $closed_form, $line_open_form, $has_op);

    my $line_number = 0;

    for my $line (@lines) {

        $line_number++;

        if ( $line =~ m{^(\s*)<form.*method=('|")post('|")}i ) {

            $in_form = 1;

            $line_open_form = $line_number;

        }

        if ( $in_form && $line =~ m{name="op"}) {

            $has_op = 1;

        }

        if ( $in_form && $line =~ m{</form} ) {

            $closed_form = 0;

            unless ( $has_op ) {

                push @errors, $line_open_form;

            }

            $in_form = 0;

        }

    }

    return @errors;

}