init III
This commit is contained in:
@@ -0,0 +1,168 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
|
||||
# --
|
||||
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
||||
# the enclosed file COPYING for license information (GPL). If you
|
||||
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
|
||||
# --
|
||||
|
||||
package Kernel::System::Console::Command::Dev::Code::Generate::ConsoleCommand;
|
||||
## nofilter(TidyAll::Plugin::OTRS::Perl::LayoutObject)
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Path ();
|
||||
use File::Basename ();
|
||||
|
||||
use parent qw(Kernel::System::Console::BaseCommand);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::System::Main',
|
||||
'Kernel::Output::HTML::Layout',
|
||||
);
|
||||
|
||||
sub Configure {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Description('Generate a console command skeleton.');
|
||||
$Self->AddOption(
|
||||
Name => 'module-directory',
|
||||
Description =>
|
||||
"Specify the directory containing the module where the new command should be created (otherwise the OTRS home directory will be used).",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
$Self->AddArgument(
|
||||
Name => 'name',
|
||||
Description => "Specify the name of the new command (e.g. 'Admin::Test::Command').",
|
||||
Required => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
sub PreRun {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $ModuleDirectory = $Self->GetOption('module-directory');
|
||||
if ( $ModuleDirectory && !-d $ModuleDirectory ) {
|
||||
die "Directory $ModuleDirectory does not exist.\n";
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $CommandName = $Self->GetArgument('name');
|
||||
my $Home = $Kernel::OM->Get('Kernel::Config')->Get('Home');
|
||||
|
||||
my $TargetHome = $Home;
|
||||
my $ModuleDirectory = $Self->GetOption('module-directory');
|
||||
if ($ModuleDirectory) {
|
||||
$TargetHome = $ModuleDirectory;
|
||||
}
|
||||
|
||||
# Keep comment lines in files also in the generated output.
|
||||
local $ENV{TEMPLATE_KEEP_COMMENTS} = 1;
|
||||
|
||||
# create perl module file
|
||||
my $CommandPathPM = $CommandName . ".pm";
|
||||
$CommandPathPM =~ s{::}{/}smxg;
|
||||
my $SkeletonFilePM = __FILE__;
|
||||
$SkeletonFilePM =~ s{ConsoleCommand\.pm$}{ConsoleCommand/ConsoleCommand.pm.skel}xms;
|
||||
|
||||
my $SkeletonTemplatePM = $Kernel::OM->Get('Kernel::System::Main')->FileRead(
|
||||
Location => $SkeletonFilePM,
|
||||
);
|
||||
if ( !$SkeletonTemplatePM || !${$SkeletonTemplatePM} ) {
|
||||
$Self->PrintError("Could not read $SkeletonFilePM.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
my $SkeletonPM = $Kernel::OM->Get('Kernel::Output::HTML::Layout')->Output(
|
||||
Template => ${$SkeletonTemplatePM},
|
||||
Data => {
|
||||
CommandPath => $CommandPathPM,
|
||||
CommandName => $CommandName,
|
||||
},
|
||||
);
|
||||
|
||||
my $TargetLocationPM = "$TargetHome/Kernel/System/Console/Command/$CommandPathPM";
|
||||
my $TargetDirectoryPM = File::Basename::dirname($TargetLocationPM);
|
||||
|
||||
if ( !-d $TargetDirectoryPM ) {
|
||||
File::Path::make_path($TargetDirectoryPM);
|
||||
}
|
||||
|
||||
if ( -f $TargetLocationPM ) {
|
||||
$Self->PrintError("$TargetLocationPM already exists.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
my $SuccessPM = $Kernel::OM->Get('Kernel::System::Main')->FileWrite(
|
||||
Location => $TargetLocationPM,
|
||||
Content => \$SkeletonPM,
|
||||
);
|
||||
|
||||
if ($SuccessPM) {
|
||||
$Self->Print("<green>Generated:</green> <yellow>$TargetLocationPM</yellow>\n");
|
||||
}
|
||||
else {
|
||||
$Self->PrintError("Could not generate $TargetLocationPM.\n");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
# create unit test file
|
||||
my $CommandPathUT = $CommandName . ".t";
|
||||
$CommandPathUT =~ s{::}{/}smxg;
|
||||
my $SkeletonFileUT = __FILE__;
|
||||
$SkeletonFileUT =~ s{ConsoleCommand\.pm$}{ConsoleCommand/ConsoleCommand.t.skel}xms;
|
||||
|
||||
my $SkeletonTemplateUT = $Kernel::OM->Get('Kernel::System::Main')->FileRead(
|
||||
Location => $SkeletonFileUT,
|
||||
);
|
||||
if ( !$SkeletonTemplateUT || !${$SkeletonTemplateUT} ) {
|
||||
$Self->PrintError("Could not read $SkeletonFileUT.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
my $SkeletonUT = $Kernel::OM->Get('Kernel::Output::HTML::Layout')->Output(
|
||||
Template => ${$SkeletonTemplateUT},
|
||||
Data => {
|
||||
CommandPath => $CommandPathUT,
|
||||
CommandName => $CommandName,
|
||||
},
|
||||
);
|
||||
|
||||
my $TargetLocationUT = "$TargetHome/scripts/test/Console/Command/$CommandPathUT";
|
||||
my $TargetDirectoryUT = File::Basename::dirname($TargetLocationUT);
|
||||
|
||||
if ( !-d $TargetDirectoryUT ) {
|
||||
File::Path::make_path($TargetDirectoryUT);
|
||||
}
|
||||
|
||||
if ( -f $TargetLocationUT ) {
|
||||
$Self->PrintError("$TargetLocationUT already exists.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
my $SuccessUT = $Kernel::OM->Get('Kernel::System::Main')->FileWrite(
|
||||
Location => $TargetLocationUT,
|
||||
Content => \$SkeletonUT,
|
||||
);
|
||||
|
||||
if ($SuccessUT) {
|
||||
$Self->Print("<green>Generated:</green> <yellow>$TargetLocationUT</yellow>\n");
|
||||
return $Self->ExitCodeOk();
|
||||
}
|
||||
|
||||
$Self->PrintError("Could not generate $TargetLocationUT.\n");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
1;
|
||||
@@ -0,0 +1,72 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
|
||||
# --
|
||||
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
||||
# the enclosed file COPYING for license information (GPL). If you
|
||||
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
|
||||
# --
|
||||
|
||||
package Kernel::System::Console::Command::[% Data.CommandName %];
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use parent qw(Kernel::System::Console::BaseCommand);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
);
|
||||
|
||||
sub Configure {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# $Self->Description('Describe this command.');
|
||||
# $Self->AddOption(
|
||||
# Name => 'option',
|
||||
# Description => "Describe this option.",
|
||||
# Required => 1,
|
||||
# HasValue => 1,
|
||||
# ValueRegex => qr/.*/smx,
|
||||
# );
|
||||
# $Self->AddArgument(
|
||||
# Name => 'argument',
|
||||
# Description => "Describe this argument.",
|
||||
# Required => 1,
|
||||
# ValueRegex => qr/.*/smx,
|
||||
# );
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
# sub PreRun {
|
||||
# my ( $Self, %Param ) = @_;
|
||||
#
|
||||
# # Perform any custom validations here. Command execution can be stopped with die().
|
||||
#
|
||||
# # my $TargetDirectory = $Self->GetOption('target-directory');
|
||||
# # if ($TargetDirectory && !-d $TargetDirectory) {
|
||||
# # die "Directory $TargetDirectory does not exist.\n";
|
||||
# # }
|
||||
#
|
||||
# return;
|
||||
# }
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Print("<yellow>Meaningful start message...</yellow>\n");
|
||||
|
||||
# return $Self->ExitCodeError();
|
||||
|
||||
$Self->Print("<green>Done.</green>\n");
|
||||
return $Self->ExitCodeOk();
|
||||
}
|
||||
|
||||
# sub PostRun {
|
||||
# my ( $Self, %Param ) = @_;
|
||||
#
|
||||
# # This will be called after Run() (even in case of exceptions). Perform any cleanups here.
|
||||
#
|
||||
# return;
|
||||
# }
|
||||
|
||||
1;
|
||||
@@ -0,0 +1,26 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
|
||||
# --
|
||||
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
||||
# the enclosed file COPYING for license information (GPL). If you
|
||||
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
|
||||
# --
|
||||
|
||||
## no critic (Modules::RequireExplicitPackage)
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use vars (qw($Self));
|
||||
|
||||
my $CommandObject = $Kernel::OM->Get('Kernel::System::Console::Command::[% Data.CommandName %]');
|
||||
|
||||
my ($Result, $ExitCode);
|
||||
{
|
||||
local *STDOUT;
|
||||
open STDOUT, '>:encoding(UTF-8)', \$Result;
|
||||
$ExitCode = $CommandObject->Execute();
|
||||
$Kernel::OM->Get('Kernel::System::Encode')->EncodeInput(\$Result);
|
||||
}
|
||||
|
||||
1;
|
||||
@@ -0,0 +1,117 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
|
||||
# --
|
||||
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
||||
# the enclosed file COPYING for license information (GPL). If you
|
||||
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
|
||||
# --
|
||||
|
||||
package Kernel::System::Console::Command::Dev::Code::Generate::UnitTest::Backend;
|
||||
## nofilter(TidyAll::Plugin::OTRS::Perl::LayoutObject)
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Path ();
|
||||
use File::Basename ();
|
||||
|
||||
use parent qw(Kernel::System::Console::BaseCommand);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::System::Main',
|
||||
'Kernel::Output::HTML::Layout',
|
||||
);
|
||||
|
||||
sub Configure {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Description('Generate a test skeleton.');
|
||||
$Self->AddOption(
|
||||
Name => 'module-directory',
|
||||
Description =>
|
||||
"Specify the directory containing the module where the new test should be created (otherwise the OTRS home directory will be used).",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
$Self->AddArgument(
|
||||
Name => 'target-path',
|
||||
Description => "Specify the path to the new test (e.g. MyModule/SubTest).",
|
||||
Required => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
sub PreRun {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $ModuleDirectory = $Self->GetOption('module-directory');
|
||||
if ( $ModuleDirectory && !-d $ModuleDirectory ) {
|
||||
die "Directory $ModuleDirectory does not exist.\n";
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $Home = $Kernel::OM->Get('Kernel::Config')->Get('Home');
|
||||
|
||||
my $TargetHome = $Home;
|
||||
my $ModuleDirectory = $Self->GetOption('module-directory');
|
||||
if ($ModuleDirectory) {
|
||||
$TargetHome = $ModuleDirectory;
|
||||
}
|
||||
|
||||
# Keep comment lines in files also in the generated output.
|
||||
local $ENV{TEMPLATE_KEEP_COMMENTS} = 1;
|
||||
|
||||
my $TargetPath = $Self->GetArgument('target-path');
|
||||
|
||||
# create Test module file
|
||||
my $SkeletonFile = __FILE__;
|
||||
$SkeletonFile =~ s{Backend\.pm$}{Backend/Backend.t.skel}xms;
|
||||
|
||||
my $SkeletonTemplate = $Kernel::OM->Get('Kernel::System::Main')->FileRead(
|
||||
Location => $SkeletonFile,
|
||||
);
|
||||
if ( !$SkeletonTemplate || !${$SkeletonTemplate} ) {
|
||||
$Self->PrintError("Could not read $SkeletonFile.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
my $Skeleton = $Kernel::OM->Get('Kernel::Output::HTML::Layout')->Output(
|
||||
Template => ${$SkeletonTemplate},
|
||||
);
|
||||
|
||||
my $TargetLocation = "$TargetHome/scripts/test/$TargetPath.t";
|
||||
my $TargetDirectory = File::Basename::dirname($TargetLocation);
|
||||
|
||||
if ( !-d $TargetDirectory ) {
|
||||
File::Path::make_path($TargetDirectory);
|
||||
}
|
||||
|
||||
if ( -f $TargetLocation ) {
|
||||
$Self->PrintError("$TargetLocation already exists.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
my $Success = $Kernel::OM->Get('Kernel::System::Main')->FileWrite(
|
||||
Location => $TargetLocation,
|
||||
Content => \$Skeleton,
|
||||
);
|
||||
|
||||
if ( !$Success ) {
|
||||
$Self->PrintError("Could not generate $TargetLocation.\n");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
$Self->Print("<green>Generated:</green> <yellow>$TargetLocation</yellow>\n");
|
||||
return $Self->ExitCodeOk();
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
@@ -0,0 +1,18 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
|
||||
# --
|
||||
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
||||
# the enclosed file COPYING for license information (GPL). If you
|
||||
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
|
||||
# --
|
||||
|
||||
## no critic (Modules::RequireExplicitPackage)
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use vars (qw($Self));
|
||||
|
||||
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user