GELÖST GenericAgent.pl -c

[syntacs]

Hallo, ich hoffe jemand kann mir weiterhelfen.

Ich habe in dem Script GenericAgent.pm einen Job definiert. Wenn ich nun ./otrs.GenericAgent.pl starte wieder dieser Job auch ausgeführt. Soweit so gut.

Allerdings habe ich die Anforderung, dass ich einzelne Jobs per cron separat ausführen möchte.

Mit:
./otrs.GenericAgent.pl -c "Kernel::System::GenericAgent::EMailWartungNeu"

passiert leider gar nichts In der pm befindet sich ein sub new und Run und da springt er nicht rein. Setze ich vor den beiden subs ein print "Start"; sehe ich die Ausgabe.

Grüße und Danke!!

[jojo]

Du musst eine eigene Datei unter Kernel/Config anlegen und mit -c anrufen..

unter Kernel/System sollte nichts stehen

[syntacs]

Hallo, Danke für die Antwort das hatte ich auch schon ausprobiert der Effekt war leider der selbe (keine Ausgabe).

Er nutzt die Subroutinen (New, Run) nicht.

Aufruf: ./otrs.GenericAgent.pl -c "Kernel::Config::EMailWartungNeu"

Wenn ich nur ./otrs.GenericAgent ausführe erhalte ich folgende Ausgabe:

Code: Select all

Job: 'EMailWartungNeu'
For all Queues:
- Use module (Kernel::System::GenericAgent::EMailWartungNeu) for Ticket (2000...)

GenericAgent.pm

Code: Select all

%Jobs = (
    'WartungEmailNeuesTicket' => {
	TicketNumber	=> '2014081910000014',
	New => {
	    Module => 'Kernel::System::GenericAgent::EMailWartungNeu',
	},
    },
);

EMailWartungNeu.pm

Code: Select all

package Kernel::System::GenericAgent::EMailWartungNeu;

use strict;
use warnings;

use Kernel::System::User;
use Kernel::System::Email;
use Kernel::System::Queue;

use vars qw(@ISA $VERSION);
$VERSION = qw($Revision: 1.17 $) [1];

print "START";

sub new {
    print "NEW";

    my ( $Type, %Param ) = @_;
    my $Self = {};
    bless( $Self, $Type );
    
    for (qw(DBObject ConfigObject LogObject TicketObject TimeObject)) {
        $Self->{$_} = $Param{$_} || die "Got no $_!";
    }

    $Self->{Debug} = $Param{Debug} || 0;

    $Self->{UserObject}  = Kernel::System::User->new(%Param);
    $Self->{EmailObject} = Kernel::System::Email->new(%Param);
    $Self->{QueueObject} = Kernel::System::Queue->new(%Param);

    return $Self;
}

sub Run {
    print "Run";

    my ( $Self, %Param ) = @_;
    my %Ticket = $Self->{TicketObject}->TicketGet(%Param);

    $Self->{EmailObject}->Send(
        From    => 'x',
        To      => 'x',
        Charset => 'utf-8',
        Subject => '[Ticket#2014081810000014] OTRS - Ticket Erinnerung!',
        Type    => 'text/plain',
        Body    => 'Some nice text',
    );

    return 1;
}

1;

[syntacs]

Gelöst: Einfach ein paar Minuten warten dann kommt die Mail