Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

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

sub PPLTest::AutoTest::login {
   if ($v->{'user'}) {
      $v->{'next'}  = "xxx";
      $v->{'query'} = [<<"TEXT_ENDE"];
[QUERY_choose_loginok]

User $v->{'user'} is logged in.
TEXT_ENDE
   } else {
      $v->{'next'}  = "PPLTest::AutoTest::login_1";
      $v->{'query'} = [<<'TEXT_ENDE'];
[QUERY_choose_login]

u:  <user>  <password>
-
TEXT_ENDE
   }
}

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

sub PPLTest::AutoTest::login_1 {

   if ($v->{'answer'}->[0] =~ /(\S*)\s(\S*?) +(\S*)/s) {
      $v->{'answer'}->[2] = $3;
      $v->{'answer'}->[1] = $2;
   }
   my $o = $v->{'answer'}->[1] . "," . $v->{'answer'}->[2];
   if ($o =~ /^(guest,123|gabriel,vierne)$/) {
      $v->{'user'} = $v->{'answer'}->[1];
      $v->{'next'} = "xxx";
      $v->{'query'} = [<<"TEXT_ENDE"];
[QUERY_choose_loginok]

User $v->{'user'} eingeloggt.
TEXT_ENDE
   } else {
      $v->{'next'}  = "PPLTest::AutoTest::login";
   }
}

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

sub PPLTest::AutoTest::logout {
   if ($v->{'user'}) {
      $v->{'next'}  = "xxx";
      $v->{'query'} = [<<"TEXT_ENDE"];
[QUERY_choose_loginok]

User $v->{'user'} logged out.
TEXT_ENDE
      delete($v->{'user'});
   } else {
      $v->{'next'}  = "xxx";
      $v->{'query'} = [<<"TEXT_ENDE"];
[QUERY_choose_loginok]

No user is logged in.
TEXT_ENDE
   }
}

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

sub PPLTest::AutoTest::filter_pattern {
   if ($v->{'user'}) {
      $v->{'next'}  = "PPLTest::AutoTest::filter_pattern_1";
      $v->{'query'} = [<<"TEXT_ENDE",$v->{'filter_pattern'}];
[QUERY_choose_filter_pattern]

Set Filter pattern
TEXT_ENDE
   } else {
      $v->{'next'}  = "xxx";
      $v->{'query'} = [<<"TEXT_ENDE"];
[QUERY_choose_loginok]

No user logged in.
TEXT_ENDE
   }
}

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

sub PPLTest::AutoTest::filter_pattern_1 {
   $v->{'filter_pattern'} = $v->{'answer'}->[0];
   $v->{'next'}  = "xxx";
   $v->{'query'} = [<<"TEXT_ENDE"];
[QUERY_choose_loginok]

Filter pattern: $v->{'filter_pattern'}
TEXT_ENDE
}

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

sub PPLTest::AutoTest::test {
   if ($v->{'user'}) {
      $v->{'root'}   = $v->{'answer'}->[0];
      $v->{'dbfunc'} = ["list",$v->{'root'} || "ALL",$v->{'filter'}];
      $v->{'next'}   = "PPLTest::AutoTest::test_1";
   } else {
      $v->{'next'}   = "xxx";
      $v->{'query'}  = [<<"TEXT_ENDE"];
[QUERY_choose_loginok]

No user logged in.
TEXT_ENDE
   }
}

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

sub PPLTest::AutoTest::test_1 {
   my $o;
   my $root = $v->{'root'};
   my $text = "";
   foreach $o (@{$v->{'list'}}) {
      if ($o->[5] eq $root) {
         $text = "ROOT: " . join(",",$o->[5],$o->[0],$o->[1],$o->[4],
                                     $o->[6],$o->[7],$o->[8],$o->[9],
                                     $o->[10],$o->[12],$o->[2]) . "\n" . $text;
      }
      elsif ($o->[5] =~ /^$root(.+)$/) {
         $o1 = $1;
         $o1 =~ s/^\_\_//;
         if ($o1 !~ /\_/) {
            $text = $text . join(",",$o->[5],$o->[0],$o->[1],$o->[4],
                                     $o->[6],$o->[7],$o->[8],$o->[9],
                                     $o->[10],$o->[12],$o->[2]) . "\n";
#   0.  name
#   1.  gesresult
#   2.  gesgewicht
#   3.  sleep
#   4.  result
#   5.  remark
#   6.  weight
#   7.  user
#   8.  info
#   9.  status
#  10.  conn

         }
      }
   }
   $v->{'next'}  = "xxx";
   print "TTT $text\n";;
   $v->{'query'} = [<<"TEXT_ENDE"];
[QUERY_choose_testlist]

$text
TEXT_ENDE
}

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



1;