- 

#!/usr/bin/perl

use Modern::Perl;

use File::Find;

use File::Slurp;

use Data::Dumper;

my @themes;

# STAFF themes

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

opendir ( my $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)$] and -f $name;

}

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

my @errors;

for my $file ( @files ) {

    add_messages($file);

}

sub add_messages {

    my ( $file ) = @_;

    my $messages_include = "[% INCLUDE 'messages.inc' %]\n";

    my @lines = read_file($file);

    my @new_lines = @lines;

    my $has_main_tag = grep { $_ =~ m|<main| } @lines;

    my $spacing = q{};

    my ( $in_main, $line_open_main );

    my ( $line_number, $number_replaced_mains ) = (0, 0);

    for my $line (@lines) {

        $line_number++;

        if ( $line =~ m{^(\s*)<main} ) {

            $spacing = $1 . "    ";

            $in_main = 1;

            $line_open_main = $line_number;

        } elsif (!$has_main_tag && $line =~ m{(\s*)<div class="main} ) {

            $spacing = $1 . "            ";

            $in_main = 1;

            $line_open_main = $line_number + 2;

        }

        if ( $in_main ) {

            splice @new_lines, $line_open_main + $number_replaced_mains, 0, $spacing . $messages_include;

            $number_replaced_mains++;

            $in_main = 0;

        }

    }

    write_file($file, @new_lines);

}