Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#*******************************************************

#  Testfall-Generator fuer Demo: Domain-Bestellung

sub PPLTest::DomainTest::generator {

   my $data         = $v->{'data'};
   
   $v->{'dyndata'} = <<'TEXT_ENDE1';
sub test_item {
   $v->{'name'}      = "---NAME---";
   $v->{'result'}    = 1;
   $v->{'remark'}    = "CVAM Test Case";
   $v->{'weight'}    = 0;
   $v->{'user'}      = "---USER---";
   $v->{'info'}      = "---INFO---";
   $v->{'generator'} = "PPLTest::DomainTest::transfer";
   $v->{'data'}      = "---DOMAIN---";
   $v->{'prgstack'}  = "";

   $v->{'next'}      = $v->{'generator'};
   $v->{'dbfunc'}    = ["status",9];

}

sub condition {
   my $d = shift;
   return(1);
}
TEXT_ENDE1

   my $o = join("",mchoose(13,$v->{'data'})) . "." . choose("de","eu","com","fr");
   $v->{'dyndata'} =~ s/---DOMAIN---/$o/;
   $v->{'next'}      = "test_end";

}

#*******************************************************

sub PPLTest::DomainTest::transfer {

   $v->{'log'}   = $v->{'data'} . " start transfer\n";
   $v->{'sleep'} = 10;
   $v->{'next'}  = "PPLTest::DomainTest::transfer_1";

}

#*******************************************************

sub PPLTest::DomainTest::transfer_1 {

   $v->{'log'}   = $v->{'log'} . " Verifying ACK\n";
   $v->{'query'} = ["Ueberpruefen, ob Domain " . $v->{'data'} . " geackt wurde",""];
   $v->{'next'}  = "PPLTest::DomainTest::transfer_2";

}

#*******************************************************

sub PPLTest::DomainTest::transfer_2 {

   shift(@{$v->{'answer'}});
   my $erg = shift(@{$v->{'answer'}});

   if ($erg eq "ACK") {
      $v->{'log'}   = $v->{'log'} . "Domain " . $v->{'data'} . " ACKed\n";
      if ($v->{'data'}  =~ /e.*e.*e/) {
         $v->{'result'} = 1008;
         $v->{'remark'} = "Error: Domain not transferred.";
         $v->{'weight'} = 50;
         $v->{'log'}    = $v->{'log'} . "ERROR: Domain not transferred ...\n";
      } else {
         $v->{'result'} = 1;
         $v->{'remark'} = "OK";
         $v->{'weight'} = 50;
      }
   } else {
      $v->{'log'}   = $v->{'log'} . "Domain " . $v->{'data'} . " not acked\n";
      $v->{'result'} = 1;
      $v->{'remark'} = "OK";
      $v->{'weight'} = 50;
   }

   $v->{'dyndata'} = <<'TEXT_ENDE1' . 
sub test_item {
   $v->{'name'}      = "---NAME---";
   $v->{'result'}    = "---RESULT---";
   $v->{'remark'}    = "---REMARK---";
   $v->{'weight'}    = "---WEIGHT---";
   $v->{'user'}      = "---USER---";
   $v->{'info'}      = "---INFO---";
   $v->{'generator'} = "___testlog___";
   $v->{'prgstack'}  = "";
   $v->{'data'}      = <<'TEXT_ENDE';
TEXT_ENDE1
   $v->{'log'} . << 'TEXT_ENDE1';
TEXT_ENDE

   $v->{'next'}      = $v->{'generator'};
   $v->{'dbfunc'}    = ["status",9];
}

sub condition {
   my $d = shift;
   return(1);
}
TEXT_ENDE1
   
   $v->{'next'}   = "test_end";

}

#*******************************************************

sub PPLTest::Gen6000::run_end {

   $v->{'data'} =~ /^(.*),(.*)$/;

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

   print "COOKIE: $v->{'cookie'}\n";
   if ($v->{'cookie'} !~ /,locked,/) {
      $out->msg("setcookie".$v->{'cookie'});
   }
   if ($v->{'cookie'} =~ /,arch([a-zA-Z0-9\_]+)/) {
      $v->{'info'} = "ARCH:" . $1;
   }

   $v->{'dyndata'} = <<'TEXT_ENDE1' . 
sub test_item {
   $v->{'name'}      = "---NAME---";
   $v->{'result'}    = "---RESULT---";
   $v->{'remark'}    = "---REMARK---";
   $v->{'weight'}    = "---WEIGHT---";
   $v->{'user'}      = "---USER---";
   $v->{'info'}      = "---INFO---";
   $v->{'generator'} = "___testlog___";
   $v->{'prgstack'}  = "";
   $v->{'data'}      = <<'TEXT_ENDE';
TEXT_ENDE1
   $v->{'log'} . << 'TEXT_ENDE1';
TEXT_ENDE

   $v->{'next'}      = $v->{'generator'};
   $v->{'dbfunc'}    = ["status",9];
}

sub condition {
   my $d = shift;
   return(1);
}
TEXT_ENDE1

   $v->{'sleep'}     = 1;
   $v->{'next'}      = "test_end";

}

#*******************************************************

sub PPLTest::Gen6000::device {

   $v->{'event'} = shift(@{$v->{'answer'}});
   my $erg       = PPLTest::MMIStatus->new()->event($v,$v->{'event'});
   
   if ($erg =~ /^___INTERACTIVE___(.*)$/) {
      $v->{'query'}  = ["Bitte Device " . $v->{'event'} .
                        " aktivieren und Ergebnis auslesen.\n",
                        "$1",$v->{'log'}];
   } else {
      $v->{'answer'} = ["",$erg];
   }
   $v->{'log'}  = $v->{'log'} . "Device: " . $v->{'event'} . "\n";
   $v->{'next'} = 'PPLTest::Gen6000::device_1';
   
}

#*******************************************************

sub PPLTest::Gen6000::device_1 {

   shift(@{$v->{'answer'}});
   my $erg     = shift(@{$v->{'answer'}});
   $v->{'log'} = $v->{'log'} . " Result: $erg\nStatus: ";
   PPLTest::MMIStatus->new()->status($v,$v->{'event'},$erg) . "\n";
   if ($v->{'result'} > 1000) {
      $v->{'next'} = 'PPLTest::Gen6000::run_end';
   }
   
}

#*******************************************************

sub PPLTest::Gen6000::sleep {

   $v->{'sleep'} = shift(@{$v->{'answer'}});
   $v->{'log'}   = $v->{'log'} . " " . $v->{'sleep'} . 
                     " Sekunden gewartet.\n\n * * * \n\n\n";

}

#*******************************************************

sub PPLTest::Gen6000::checkpoint {

   my $checkpoint = shift(@{$v->{'answer'}});
   $v->{'log'}    = $v->{'log'} . "Checkpoint: $checkpoint\n";
   if ($checkpoint ne $v->{'checkpoint'}) {
      $v->{'next'} = 'PPLTest::Gen6000::run_end';
      $v->{'log'}  = "ERROR: Wrong checkpoint ($checkpoint vs. $v->{'checkpoint'}\n\n" .
                      $v->{'log'} . " Ungueltiger Checkpoint: " .
                      $v->{'checkpoint'} . "\n"; 
      $v->{'result'} = 9999;
      $v->{'weight'} = 0;
      $v->{'remark'} = "ERROR: Wrong checkpoint";
   }

}

#*******************************************************

sub PPLTest::Gen6000::cookie {

   my $var = shift(@{$v->{'answer'}});
   $v->{'log'}    = $v->{'log'} . "Cookie shall contain: $var\n";
   if ($v->{'cookie'} !~ /$var/) {
      $v->{'next'} = 'PPLTest::Gen6000::run_end';
      $v->{'log'}  = "ERROR: Wrong cookie: $v->{'cookie'} doesnt contain $var\n\n" .
                      $v->{'log'} . " Falsches Cookie: " .
                      $v->{'cookie'} . "\n"; 
      $v->{'result'} = 9999;
      $v->{'weight'} = 0;
      $v->{'remark'} = "ERROR: Wrong cookie";
   }

}

#*******************************************************
#*******************************************************

sub xxTest::Gen6000::cvam_basic {

   $v->{'dyndata'} = <<'TEXT_ENDE1';
sub test_item {
   $v->{'name'}      = "---NAME---";
   $v->{'result'}    = 1;
   $v->{'remark'}    = "CVAM Test Case";
   $v->{'weight'}    = 1000;
   $v->{'user'}      = "";
   $v->{'info'}      = "";
   $v->{'generator'} = "Test::Gen6000::run";
   $v->{'data'}      = "data";
   $v->{'prgstack'}  = <<'TEXT_ENDE';

device('TASTE_OK')
sleep(200)
device('TASTE_Return')
run_end

TEXT_ENDE

   $v->{'prgstack'} =~ s/\n([a-z])/\nTest::Gen6000::$1/gs;
   $v->{'prgstack'}  = [split(/\n/,$v->{'prgstack'})];
   $v->{'next'}      = $v->{'generator'};
   $v->{'dbfunc'}    = ["status",9];
}

sub condition {
   my $d = shift;
   return(1);
}
TEXT_ENDE1

   $v->{'sleep'}     = 1;
   $v->{'next'}      = "test_end";

}

#*******************************************************

sub xxTest::Gen6000::generate10 {

   $v->{'result'}    = 99;
   $v->{'remark'}    = "Evaluate Test manually";
   $v->{'generator'} = "Test::Gen6000::run";
   $v->{'data'}      = "new data";

   $v->{'sleep'}  = 1;
   $v->{'next'}   = "test_end";

}

#*******************************************************


1;