Creazione script per aggiornamento automatico

[navigator77]

Ciao a tutti,

sto lavorando per un cliente che mi chiede di creare uno script per impostare, da codice, alcuni valori impostabili da pannello di amministratore.

Nello specifico, in Ticket::Frontend::CustomerTicketZoom vorrebbe modificare il valore di StateDefault da open a closed with follow-up.

Ho provato cercando di capire come lavora il package Kernel::Modules::AdminSysConfig (che a sua volta utilizza Kernel::System::SysConfig), ma non riesco a trovare il modo di invocare i metodi di update.

Alla difficolà della problematica in sé, purtroppo si aggiunge il fatto che sono un neofita totale di perl...

Qualcuno è in grado di aiutarmi, o quanto meno indirizzarmi su come potrei risolvere?

Grazie

[navigator77]

Risolto, come immaginavo si trattava solo di capire cosa andare a toccare:

dopo aver definito l'oggetto $SysConfigObject dal package Kernel::System::SysConfig, basta utilizzare

Code: Select all

my $Update = $SysConfigObject->ConfigItemUpdate(
        Valid        => 1,
        Key          => $TotalKey,
        Value        => $NewValue,
        NoValidation => 1,
        );

Dove $TotalKey contiene la chiave da modificare (Ticket::Frontend::CustomerTicketZoom###StateDefault nel mio caso) e $NewValue il valore da inserire.