Prepared dynamic field delete command.

Kernel/System/Console/Command/Admin/DynamicField/Add.pm

@@ -38,55 +38,48 @@ sub Configure {
     my ( $Self, %Param ) = @_;
 
     $Self->Description('Create a new dynamic field.');
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'name',
         Description => 'Name for the new field.',
         Required    => 1,
-        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]+/smx,
     );
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'label',
         Description => 'Label which will be displayed alongside the field.',
         Required    => 1,
-        HasValue    => 1,
         ValueRegex  => qr/.*/smx,
     );
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'field-type',
         Description => 'Dynamic field type.',
         Required    => 1,
-        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]/smx,
     );
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'object-type',
         Description => 'Object type for the new field.',
         Required    => 1,
-        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]/smx,
     );
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'config',
         Description =>
             'Config for dynamic field. Takes either an YAML or JSON string. See also Admin::DynamicField::ConfigDump and Admin::DynamicField::ConfigBuild.',
         Required   => 0,
-        HasValue   => 1,
         ValueRegex => qr/.*/smx,
     );
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'namespace',
         Description => 'Namespace to place the new field into.',
         Required    => 0,
-        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]+/smx,
     );
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'field-order',
         Description =>
             'Field order to place the field at. Defaults to hightest order plus 1. Per default, other fields are reordered if an occupied order number is chosen.',
         Required   => 0,
-        HasValue   => 1,
         ValueRegex => qr/\d+/smx,
     );
     $Self->AddOption(
@@ -96,11 +89,10 @@ sub Configure {
         HasValue    => 1,
         ValueRegex  => qr/^[[0-1]{1}$/smx,
     );
-    $Self->AddOption(
+    $Self->AddArgument(
         Name        => 'valid',
         Description => 'Whether the field to add is valid or invalid. Defaults to 1.',
         Required    => 0,
-        HasValue    => 1,
         ValueRegex  => qr/^[0-1]{1}$/smx,
     );
     $Self->AddOption(

Kernel/System/Console/Command/Admin/DynamicField/Delete.pm

@@ -25,40 +25,48 @@ use warnings;
 
 # OTOBO modules
 
-our @ObjectDependencies = (
+use parent qw(Kernel::System::Console::BaseCommand);
 
+our @ObjectDependencies = (
+    'Kernel::System::DynamicField',
 );
 
-=head1 NAME
+sub Configure {
+    my ( $Self, %Param ) = @_;
 
-[name_placeholder]
+    $Self->Description('Delete an existing dynamic field.');
+    $Self->AddArgument(
+        Name => 'name',
+        Description => 'Delete dynamic field by name.',
+        Required => 0,
+        ValueRegex => qr/([A-Za-z0-9]+\-)?[A-Za-z0-9]+/smx,
+    );
+    $Self->AddArgument(
+        Name => 'id',
+        Description => 'Delete dynamic field by field id.',
+        Required => 0,
+        ValueRegex => qr/\d+/smx,
+    );
+    $Self->AddOption(
+        Name => 'dry-run',
+        Description => 'Perform a dry run and show which field whould be deleted.',
+        Required => 0,
+        HasValue => 0,
+    );
+    $Self->AddOption(
+        Name => 'execute',
+        Description => 'Execute the deletion.',
+        Required => 0,
+        HasValue => 0,
+    );
 
-=head1 DESCRIPTION
-
-[description_placeholder]
-
-=head1 PUBLIC INTERFACE
-
-=head2 new()
-
-create an object. Do not use it directly, instead use:
-
-my $DeleteObject = $Kernel::OM->Get('Kernel::System::Console::Command::Admin::DynamicField::Delete');
-
-=cut
-
-sub new {
-my ( $Type, %Param ) = @_;
-
-# allocate new hash for object
-my $Self = {%Param};
-bless( $Self, $Type );
-
-return $Self;
+    return;
 }
 
 sub Run {
     my ( $Self, %Param ) = @_;
+
+    return;
 }
 
 1;