Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

use DivBasicF::BlackBoard;
use PPLTest::Buffer_Semantic;
use PPLTest::MMIStatus;
use PPLTest::MMIStatusFkt;
use PPLTest::MMIStatus_common;
use PPLTest::MMIStatus_cva;
use vars qw(@ISA);
use DivBasicF::COMTest;
use Data::Dumper;

use strict;

my $taste = shift;
my $v1   = {};
my $zeit = 0;

#--------- Environment: --------------------------

my $o; my $o1; my $o2 = [];
foreach $o (@ARGV) {
   if ($o =~ /^(.*)\=(.*)$/) {
      $ENV{$1} = $2;
   } else {
      push(@$o2,$o);
   }
}
while (0 == 0) {
   $o1 = 0;
   foreach $o (keys %ENV) {
      next if ($o !~ /^ENV(\d+)$/);
      $o1 = $ENV{$o};
      delete ($ENV{$o});
      eval("require\(\"".$o1."\"\)"); print $@;
      exit if ($@);
   }
   last if (!$o1);
}
@ARGV = ();
foreach $o (@$o2) {
   if ($o =~ /^(.*)\:\=(.*)$/) {
      $ENV{$1} = $2;
   } else {
      push(@ARGV,$o);
   }
}

my $in       = DivBasicF::BlackBoard->new($ENV{'out_db'});
my $out      = DivBasicF::BlackBoard->new($ENV{'in_db'});

print "Taste: $taste\n";


if ($taste eq "getbytes") {
  print "getbytes\n";

  sleep 1;
  $out->msg("getbytes");  # hier werden die Ergebnisbytes geholt
  sleep 3;
  my $m = $in->get();

  while (@$m) {
    $o1 = shift(@$m);
    my $erg = $o1->[1];
    print "EMPFANGENE BYTES: $erg\n";
  }
}
if ($taste eq "FLASH.CONNECTION") {
  $out->msg("WriteData.FLASH_CONNECTION_U8.FLASH_CONNECTION_U8__SUCCESSFUL");
}
else {
#  my $semantic = PPLTest::Buffer_Semantic->new($geraet);
#  my $liste =  $v->{'mmi'}->{'aktiveliste'};
#  print "Liste: $liste\n";
#  $taste = $taste . "." . $liste;
#  my $hexcode = $semantic->send($taste);
#  $out->msg($hexcode);

  PPLTest::MMIStatus->new()->status($v1,$taste,"",$zeit);

  my $o = $taste;
  print "aktive Liste:  $v1->{'mmi'}->{'aktiveliste'}";
  if ($o =~ s/(ITEM\d+)/---PLATZHALTER---/) {
     my $o1 = $v1->{'mmi'}->{'aktiveliste'} . "__" . $1;
     $o  =~ s/---PLATZHALTER---/$o1/;
  }
  $out->msg($o);
}

1;