Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#!/usr/bin/perl
use lib qw(/akt /akt/appserv  /usr/local/bin/utility);
use Utility::cv;
use DivBasicF::COMText;
use DivBasicF::COMTerminal;
use DivBasicF::COMParam;
use DBI;


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

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

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