init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/OTRS/Kernel/System/Console/Command/Admin/SystemAddress/Add.pm
+++ b/OTRS/Kernel/System/Console/Command/Admin/SystemAddress/Add.pm
@@ -0,0 +1,106 @@
+# --
+# 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::Admin::SystemAddress::Add;
+
+use strict;
+use warnings;
+
+use parent qw(Kernel::System::Console::BaseCommand);
+
+our @ObjectDependencies = (
+    'Kernel::System::Queue',
+    'Kernel::System::SystemAddress',
+);
+
+sub Configure {
+    my ( $Self, %Param ) = @_;
+
+    $Self->Description('Add new system address.');
+    $Self->AddOption(
+        Name        => 'name',
+        Description => "Display name of the new system address.",
+        Required    => 1,
+        HasValue    => 1,
+        ValueRegex  => qr/.*/smx,
+    );
+    $Self->AddOption(
+        Name        => 'email-address',
+        Description => "Email address which should be used for the new system address.",
+        Required    => 1,
+        HasValue    => 1,
+        ValueRegex  => qr/.*/smx,
+    );
+    $Self->AddOption(
+        Name        => 'queue-name',
+        Description => "Queue name the address should be linked to.",
+        Required    => 1,
+        HasValue    => 1,
+        ValueRegex  => qr/.*/smx,
+    );
+    $Self->AddOption(
+        Name        => 'comment',
+        Description => "Comment for the new system address.",
+        Required    => 0,
+        HasValue    => 1,
+        ValueRegex  => qr/.*/smx,
+    );
+
+    return;
+}
+
+sub PreRun {
+    my ( $Self, %Param ) = @_;
+
+    # check if queue already exists
+    $Self->{QueueName} = $Self->GetOption('queue-name');
+    $Self->{QueueID}   = $Kernel::OM->Get('Kernel::System::Queue')->QueueLookup(
+        Queue => $Self->{QueueName},
+    );
+    if ( !$Self->{QueueID} ) {
+        die "Queue $Self->{QueueName} does not exist.\n";
+    }
+
+    # check if system address already exists
+    $Self->{EmailAddress} = $Self->GetOption('email-address');
+    my $SystemExists = $Kernel::OM->Get('Kernel::System::SystemAddress')->SystemAddressIsLocalAddress(
+        Address => $Self->{EmailAddress},
+    );
+    if ($SystemExists) {
+        die "SystemAddress $Self->{EmailAddress} already exists.\n";
+    }
+
+    return;
+}
+
+sub Run {
+    my ( $Self, %Param ) = @_;
+
+    $Self->Print("<yellow>Adding a new system address...</yellow>\n");
+
+    # add system address
+    if (
+        !$Kernel::OM->Get('Kernel::System::SystemAddress')->SystemAddressAdd(
+            UserID   => 1,
+            ValidID  => 1,
+            Comment  => $Self->GetOption('comment'),
+            Realname => $Self->GetOption('name'),
+            QueueID  => $Self->{QueueID},
+            Name     => $Self->{EmailAddress},
+        )
+        )
+    {
+        $Self->PrintError("Can't add system address.");
+        return $Self->ExitCodeError();
+    }
+
+    $Self->Print("<green>Done.</green>\n");
+    return $Self->ExitCodeOk();
+}
+
+1;