Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#!/usr/bin/perl
#use lib qw(/akt /akt/appserv /u /u/appserv /usr/local/bin/utility);
use Utility::cv;
use Utility::cv_query;
use Utility::cv_workflow;
use Utility::cv_nnn;
use Utility::cv_expanium;
use Utility::cv_cdh;
use DivBasicF::COM;
use DivBasicF::FileCom;
use DivBasicF::COMText;
use DivBasicF::COMTerminal;
use DivBasicF::COMParam;
use DBI;
#use JSON;
#use JSON::PP;
#use JSON::PP58;
use Workflow::Workflow;
use Workflow::Address;
use Workflow::Calendar;
use Cursor::obj;
use Cursor::template;
use DivBasicF::Common;
use Cursor::sort;
use Cursor::obj;
use Cursor::template;
use Cursor::reduce;


eval("use _CalParam"); print $@; _CalParam->new();

my $com   =  DivBasicF::COMParam->new([@ARGV]);
$com      =  DivBasicF::COMTerminal->new($com,$PAR::editor);
$com      =  DivBasicF::COMText->new($com);

my $text  = $com->connect();

Utility::cv->new( { DBFILE   =>  $PAR::dbfile,
                    DBCOMMON =>  $PAR::dbcommon,
                    PERSON   =>  $PAR::person,
                    CALENDAR =>  $PAR::calendar,
                    INTERVAL =>  $PAR::interval,
                    COM    => $com})->cmd($text);
$com->disconnect();