WIP dynamic field list command.

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

@@ -94,14 +94,14 @@ sub Configure {
         Description => 'Whether to reorder other fields if an occupied order number is chosen. Defaults to 1.',
         Required    => 0,
         HasValue    => 1,
-        ValueRegex  => qr/\d/smx,
+        ValueRegex  => qr/^[[0-1]{1}$/smx,
     );
     $Self->AddOption(
         Name        => 'valid',
         Description => 'Whether the field to add is valid or invalid. Defaults to 1.',
         Required    => 0,
         HasValue    => 1,
-        ValueRegex  => qr/\d/smx,
+        ValueRegex  => qr/^[0-1]{1}$/smx,
     );
     $Self->AddOption(
         Name        => 'stdin',

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

@@ -25,27 +25,60 @@ use warnings;
 
 # OTOBO modules
 
-our @ObjectDependencies = (
+use parent qw(Kernel::System::Console::BaseCommand);
 
+our @ObjectDependencies = (
+	'Kernel::System::DynamicField',
+	'Kernel::System::YAML',
+	'Kernel::System::JSON',
 );
 
-=head1 NAME
+sub Configure {
+    my ( $Self, %Param ) = @_;
 
-[name_placeholder]
+    $Self->Description('List existing dynamic fields.');
-
+    $Self->AddOption(
-=head1 DESCRIPTION
+        Name => 'field-type',
-
+        Description => 'Filter by comma-separated field type(s).',
-[description_placeholder]
+        Required => 0,
-
+        HasValue => 1,
-=head1 PUBLIC INTERFACE
+        ValueRegex => qr/[A-Za-z0-9,]+/smx,
-
+    );
-=head2 new()
+    $Self->AddOption(
-
+        Name => 'object-type',
-create an object. Do not use it directly, instead use:
+        Description => 'Filter by comma-separated object type(s).',
-
+        Required => 0,
-my $ListObject = $Kernel::OM->Get('Kernel::System::Console::Command::Admin::DynamicField::List');
+        HasValue => 1,
-
+        ValueRegex => qr/[A-Za-z0-9,]+/smx,
-=cut
+    );
+    $Self->AddOption(
+        Name => 'name-search',
+        Description => 'Filter by name or part of a name.',
+        Required => 0,
+        HasValue => 1,
+        ValueRegex => qr/[A-Za-z0-9-]+/smx,
+    );
+    $Self->AddOption(
+        Name => 'active',
+        Description => 'Filter by active state (0 or 1), default is both.',
+        Required => 0,
+        HasValue => 1,
+        ValueRegex => qr/^[0-1]{1}$/smx,
+    );
+    $Self->AddOption(
+        Name => 'verbose',
+        Description => 'If set, result includes complete config, otherwise only names and orders are given.',
+        Required => 0,
+        HasValue => 0,
+    );
+    $Self->AddOption(
+        Name => 'return-structure',
+        Description => 'Supported return structures are JSON and YAML, default is YAML.',
+        Required => 0,
+        HasValue => 1,
+        ValueRegex => qr/^(JSON)|(YAML)$/smx,
+    );
+}
 
 sub new {
 my ( $Type, %Param ) = @_;