| Current Path : /var/www/web-klick.de/dsh/10_customer2017/1183__ud/ttt/globals/ |
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/globals/GLOBALvariableExist.pl |
#!/usr/bin/perl
# vim:set ai tabstop=4 shiftwidth=4 foldmethod=marker fileencoding=utf-8:
# $Id: GLOBALvariableExist.pl,v 1.9 2009-06-03 14:17:08 joerg Exp $
##
## GLOBALvariableExist.pl
##
## Testet verschiedene Variablen auf Existenz
##
use strict;
use UD::DB::Log;
use UD::Auftragdaten;
use Data::Dumper;
######################################################################
# globals
our( $PROGNAME ) = "GLOBALvariableExist"; ## Programmname
our( $PROGUID ) = 10001; ## interne UID des Programmes
# Variable %RAS {{{
our( %RAS ) = (
4 => {
29 => [ 143, 153 ],
},
6 => {
29 => [ 143, 153 ],
},
7 => {
29 => [ 143, 153 ],
},
9 => {
29 => [ 143, 153 ],
},
10 => {
29 => [ 143, 153 ],
},
13 => {
29 => [ 143, 153 ],
},
14 => {
29 => [ 143, 153 ],
},
16 => {
29 => [ 143, 153 ],
},
17 => {
29 => [ 143, 153 ],
},
18 => {
29 => [ 143, 153 ],
},
20 => {
29 => [ 143, 153 ],
},
21 => {
29 => [ 143, 153 ],
},
22 => {
29 => [ 143, 153 ],
},
23 => {
29 => [ 143, 153 ],
},
24 => {
29 => [ 143, 153 ],
},
25 => {
29 => [ 143, 153 ],
},
26 => {
29 => [ 143, 153 ],
},
27 => {
29 => [ 143, 153 ],
},
28 => {
29 => [ 143, 153 ],
},
29 => {
29 => [ 143, 153 ],
},
30 => {
29 => [ 143, 153 ],
},
31 => {
29 => [ 143, 153 ],
},
32 => {
29 => [ 143, 153 ],
},
33 => {
29 => [ 143, 153 ],
},
);
# }}}
# Variable $VARS {{{
## Die Variablen die getestet werden
## name : Der Name
our( $VARS ) = {
4 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
6 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
7 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
9 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
10 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
13 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
14 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
16 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
17 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
18 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
20 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
21 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
22 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
23 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
24 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
25 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
26 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
27 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
28 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
29 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
30 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
31 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
32 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
33 => {
29 => {
143 => { name => "DOMAINEXIST" },
153 => { name => "OURDOMAIN" },
},
},
};
# }}}
our( $CRONREADY ) = 1;
our( $REASON ) = "";
######################################################################
# subs
# sub DoAllTheWork {{{
sub DoAllTheWork ($$) {
my( $Auftrag, $CMD ) = @_;
my( $regid, $action, $status );
my( $name, $varname, $varexist );
$regid = $main::REGISTRAR;
$action = $main::ACTION;
$status = $main::STATUS;
$varname = "";
if ( defined $VARS->{$regid} && defined $VARS->{$regid}->{$action} &&
defined $VARS->{$regid}->{$action}->{$status} )
{
$varname = $VARS->{$regid}->{$action}->{$status}->{name}
if defined $VARS->{$regid}->{$action}->{$status}->{name};
}
## kein varname gesetzt: Fehler in den Struct. Dann fehlt da
## was. Keine Statusänderung, einfach ein return.
unless( $varname )
{
printDebug( " !E! Fehler! keinen Namen in VARS fuer R:$regid " .
"A:$action S:$status gefunden" );
return;
}
$varexist = 0;
$varexist = 1 if defined $Auftrag->{auftragsdaten}->{$varname};
## Varexist= 1 oder 0 ?
if ( $varexist )
{
printDebug( " * Status auf " . $CMD->success . " gesetzt" );
$Auftrag->updatestatus( $CMD->success );
}
else
{
printDebug( " * Status auf " . $CMD->failure . " gesetzt" );
$Auftrag->updatestatus( $CMD->failure );
}
}
# }}}
## cronmainglobal.pm liegt in UD
## enthaelt main() und allen init-Kram der benoetigt wird.
require "cronmainglobal.pm";