Thread Perl Code nicht verständlich (5 answers)
Opened by marzocchi1 at 2013-12-12 13:19

marzocchi1
 2013-12-12 13:19
#172573 #172573
User since
2013-10-25
3 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

ich muss dazu sagen ich bin Neueinsteiger in Perl und soll eine Software welche in Perl programmiert ist ein klein wenig modifizieren.

Jetzt habe ich das Problem das ich ein paar Codeschnipsel hab welche ich nicht verstehe was sie tun bzw. ob sie so überhaupt funktionieren würden. Wäre wirklich toll wenn mir jemand von euch dies erklären könnte :)

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
		        # reject follow up accounted
        elsif ( $FollowUpPossible =~ /reject/i && $State{TypeName} =~ /^accounted/i ) {
            $Self->{LogObject}->Log(
                Priority => 'info',
                Message  => "Follow up for [$Tn] but follow up not possible. Follow up rejected."
            );

            # send reject mail && and add article to ticket
            my $Run = $Self->{Reject}->Run(
                TicketID         => $TicketID,
                InmailUserID     => $Self->{PostmasterUserID},
                GetParam         => $GetParam,
                Lock             => $Lock,
                Tn               => $Tn,
                Comment          => 'Follow up rejected.',
                AutoResponseType => 'auto reject',
            );
            if ( !$Run ) {
                return;
            }
            @Return = ( 4, $TicketID );
        }


das ganze bezieht sich wohl auf ein ähnliches wie:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
	    # set state accounted
    my $State = $Self->{ConfigObject}->Get('PostmasterFollowUpState') || 'accounted';
    if (
        $Ticket{StateType} =~ /^accounted/
        && $Self->{ConfigObject}->Get('PostmasterFollowUpStateAccounted')
        )
    {
        $State = $Self->{ConfigObject}->Get('PostmasterFollowUpStateAccounted');
    }
    if ( $GetParam{'X-OTRS-FollowUp-State'} ) {
        $State = $GetParam{'X-OTRS-FollowUp-State'};

    }


Danke im Voraus für eure Hilfe.

Grüßle

marzocchi1
Last edited: 2013-12-12 13:25:34 +0100 (CET)

View full thread Perl Code nicht verständlich