| ... |
|
| 11: |
my %system = (!exists $ARGS{'system'} ? die "no value sent for required parameter 'system'" : ref $ARGS{'system'} eq 'ARRAY' ? @{$ARGS{'system'}} : ref $ARGS{'system'} eq 'HASH' ? %{$ARGS{'system'}} : die "single value sent for hash parameter '%system'"); |
| 12: |
my $_out = $m->current_sink; |
| 13: |
$m->debug_hook($m->current_comp->path) if (%DB::); |
| 14: |
|
| 15: |
my @sywarns = @{new SYWARN $system{DIR_SYDATA} }; |
| 16: |
my $sywarn = $sywarns[0]; |
| 17: |
my $utctime = $sywarn->{UTCTIME}; |
| 18: |
$_out->(' <table width="770" align="center" border="0" cellspacing="0" cellpadding="0"> |
| 19: |
<tr> |
| ... |
|