Создание своей темы OpenCart 4.x на основе стандартной

#!/usr/bin/perl

# -------------------------------------------------------------------------------------------
# Скрипт для внесения изменений в файлы стандартной темы OpenCart 4.0.2.3-RS
#
# 2024 (С) Majestio, https://majestio.info
# -------------------------------------------------------------------------------------------

use strict;
use warnings;
no warnings 'experimental::smartmatch';

use utf8;
use v5.24;
use File::Path qw(make_path);
use File::Find;
use File::Copy;
use File::Basename;
use Win32::Console::ANSI;
use lib 'E:/Documents/3.Projects/Perl/libs';  # <--- тут указываем где будет лежать Majestio.pm
use Majestio qw(ReadFile WriteFile ReadDirs);
use open ':std', ':encoding(UTF-8)';

# перезаписываем install.json

my $txt = '{
  "name": "Majestio Extensions",
  "version": "1.0",
  "author": "Majestio Lab",
  "link": "https://majestio.info",
  "instruction": "",
}';

Majestio::WriteFile('install.json', $txt);

# создаем список файлов для обработки

my @files;

find(
  sub {
    return if -d;    # Пропускаем каталоги
    my ($filename, $directories, $suffix) = fileparse($_, qr/\.[^.]*/);
    push @files,
      {
      path      => $File::Find::dir,
      filename  => $filename,
      extension => $suffix =~ s/\.//r
      };
  },
  "."
);

foreach my $file (@files) {
  my $filename = $file->{path} . "/" . $file->{filename} . "." . $file->{extension};
  say $filename;
  if ($file->{extension} ~~ ['php', 'twig']) {
    my @data = split("\n", Majestio::ReadFile($filename));
    foreach my $i (@data) {
      if ($file->{extension} eq 'php') {
        $i =~ s/namespace Opencart\\Admin\\Controller\\Extension\\Opencart\\/namespace Opencart\\Admin\\Controller\\Extension\\Majestio\\/g;
        $i =~ s/namespace Opencart\\Admin\\Model\\Extension\\Opencart/namespace Opencart\\Admin\\Model\\Extension\\Majestio/g;
        $i =~ s/'extension\/opencart\/captcha\/basic/'extension\/majestio\/captcha\/majestio/g;
        $i =~ s/'extension\/opencart\/theme\/basic/'extension\/majestio\/theme\/majestio/g;
        $i =~ s/'extension\/opencart/'extension\/majestio/g;
        $i =~ s/'captcha_basic_status'/'captcha_majestio_status'/g;
        $i =~ s/'captcha_basic'/'captcha_majestio'/g;
        $i =~ s/'theme_basic_status'/'theme_majestio_status'/g;
        $i =~ s/'theme_basic'/'theme_majestio'/g;
        $i =~ s/Basic Captcha/Majestio Captcha/g;
        $i =~ s/Простая защита/Majestio защита/g;
        $i =~ s/Стандартная тема/Majestio тема/g;
        $i =~ s/Default Store Theme/Majestio Theme/g;
        $i =~ s/class Basic extends/class Majestio extends/g;
      }
      if ($file->{extension} eq 'twig') {
        $i =~ s/captcha_basic_status/captcha_majestio_status/g;
        $i =~ s/theme_basic_status/theme_majestio_status/g;
        $i =~ s/index\.php\?route=extension\/opencart\/captcha\/basic\.captcha/index\.php\?route=extension\/majestio\/captcha\/majestio\.captcha/g;
      }
    }
    Majestio::WriteFile($filename, join("\n", @data));
    move($filename, $file->{path} . "/majestio." . $file->{extension}) if ($file->{filename} eq 'basic');
  }
  if ($file->{extension} eq 'png' && $file->{filename} eq 'basic') {
    move($file->{path} . "/" . $file->{filename} . "." . $file->{extension}, $file->{path} . "/majestio." . $file->{extension});
  }
}

package Majestio;

use strict;
use warnings;

use utf8;
use Win32::Console::ANSI;

our @EXPORT  = qw(ReadFile WriteFile ReadDirs ReadFiles LogPrint);
our $VERSION = '1.00';

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub ReadFile {
  my $name = shift;
  open(my $fh, '<:encoding(UTF-8)', $name) || die "Error open file '$name' to read: $!";
  my $ret = join("", <$fh>);
  close($fh);
  return $ret;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub WriteFile {
  my ($name, $data) = @_;
  open(my $fh, '>:encoding(UTF-8)', $name) || die "Error open file '$name' to write: $!";
  print $fh $data;
  close($fh);
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub ReadDirs {
  my $name = shift;
  my @ret  = ();
  opendir my $dh, $name || die "Error open dir '$name' for reading: $!\n";
  while (my $file = readdir($dh)) {
    push @ret, $file if (-d "$name/$file" && $file ne "." && $file ne "..");
  }
  closedir $dh;
  return @ret;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub ReadFiles {
  my $name = shift;
  my @ret  = ();
  opendir my $dh, $name || die "Error open dir '$name' for reading: $!\n";
  while (my $file = readdir($dh)) {
    push @ret, $file if (-f "$name/$file");
  }
  closedir $dh;
  return @ret;
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

sub LogPrint {
  my $txt = shift;
  print "\e[2K\r$txt";
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

1;