| Current Path : /var/www/web-klick.de/dsh/10_customer2017/1183__ud/ttt/Keysystems/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/10_customer2017/1183__ud/ttt/Keysystems/KS55updateTELauftrag.pl |
#!/usr/bin/perl
# vim:set ai tabstop=4 shiftwidth=4 foldmethod=marker fileencoding=utf-8:
# $Id: KS55updateTELauftrag.pl,v 1.2 2009-09-02 15:27:05 joerg Exp $
##
## KS55updateTELauftrag.pl
## Keysystem Events
##
## macht einen Update eines Action 52 .TEL auftrages
##
use strict;
use UD::DB::Log;
use UD::Tools;
use UD::Auftrag;
use Data::Dumper;
######################################################################
# globals
our( $PROGNAME ) = "KS55updateTELauftrag";
our( $PROGUID ) = 10001; ## interne UID des Programmes
our( $REGISTRAR ) = 7; ## Keysystems
our( $ACTION ) = 55; ## Action
our( @STATUS ) = ( 219, 229 );
our( $CRONREADY ) = 1;
our( $REASON ) = "";
my $newstatus = {
219 => 210,
229 => 211,
};
######################################################################
# subs
sub DoAllTheWork ($$) {
my( $Auftrag, $CMD ) = @_;
my $log = UD::DB::Log->new;
my $domainid = $Auftrag->{data}->{objectid};
my $status = $Auftrag->{data}->{status};
my $search_hash = {
objectid => $domainid,
registrarid => 7,
action => 52,
aktiv => 1,
};
my $response = UD::DB::DBAL::multiplesearch( "udag.UDAuftrag", $search_hash );
my $auftragid = 0;
$auftragid = $response->{id} if defined $response->{id};
if( $auftragid ) {
# read found auftragid ...
$a = UD::Auftrag->new( $auftragid );
$a->{id} = $auftragid;
$a->{UID} = 12345;
$a->readdata;
my $a_status = $a->{data}->{status};
my $a_new_status = $newstatus->{$status};
if ( ( $a_status == 180 || $a_status == 190 || $a_status == 800 ) &&
$a->{data}->{aktiv} == 1 ) {
$a->updatestatus( $a_new_status ) if $a_new_status;
$log->create( {
auftragid => $a->{id},
userid => $a->{UID},
additionaltext => "Update durch Eventauftrag " . $Auftrag->{id},
} );
$log->create( {
auftragid => $Auftrag->{id},
userid => $Auftrag->{UID},
additionaltext => "TEL Passwortauftrag $auftragid upgedatet",
} );
}
else {
$log->create( {
auftragid => $Auftrag->{id},
userid => $Auftrag->{UID},
additionaltext => "TEL Passwortauftrag $auftragid konnte nicht upgedatet werden: " .
"S:" . $a_status . " A:" . $a->{data}->{aktiv},
} );
}
}
$Auftrag->updatestatus( $CMD->success );
printDebug( " * Setze Status auf " . $CMD->success );
}
## cronmain.pm liegt in UD
## enthaelt main() und allen init-Kram der benoetigt wird.
require "cronmain.pm";