Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#use lib qw(. /akt akt/appserv /u /u/appserv /usr/local/bin/utility);
use strict;
use DivBasicF::ObjStore;
use DivBasicF::FileComSimple;
use DivBasicF::COMPrg;
use DivBasicF::ProtocolPrg;
use Data::Dumper;

#------------  Environment  ----------------------------

#  database

#  Blackboard:

#  $data __in_db
#  $data __out_db


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);
   }
}


#----------------------------------------------------


#$PAR::database = "localhost:xtest:xtest:xtest";
#$PAR::database = "xtest.db";
#$PAR::data_c->{'cvam'}   = "PPLTest/data.c";
#$PAR::data_h->{'cvam'}   = "PPLTest/data.h";
#if (!($ENV{'PPLDB'})) { $ENV{'PPLDB'} = "PPLTest/parameter.txt"; }
#eval("require\(\"".$ENV{'PPLDB'}."\"\)"); print $@;

$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Indent   = 1;
$Data::Dumper::Purity   = 1;

# my $s = DivBasicF::ProtocolPrg->new([]); exit;

$main::XCONSOLE = 0;

$SIG{INT} = sub { $ENV{'SIG_INT'} = $ENV{'SIG_INT'} + 1; };

my $obj = DivBasicF::ObjStore->new("$ENV{'database'},oxtest," .
            "idx_name,idx_result,idx_remark,idx_user,idx_weight,idx_info," .
            "idx_dyndata,idx_status",
          Dumper(
            DivBasicF::FileComSimple->new(["$ENV{'database'},cxtest",67002000,1],
            DivBasicF::COMPrg->new([],
            DivBasicF::ProtocolPrg->new([]
          )))));

$obj->run(3,3,-1);

package DivBasicF::COMPrg;
use DivBasicF::COMTest;
use PPLTest::AutoTest;
#use PPLTest::Gen6000;
use PPLTest::DomainTest;
use PPLTest::MMIStatus;
use PPLTest::MMIStatusFkt;
use PPLTest::MMIStatus_common;
use PPLTest::MMIStatus_cva;

package DivBasicF::ObjStore;
use DivBasicF::ObjTest;