Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#!/usr/bin/perl

use strict;
use Server::Server;
use Term::ReadLine;
use Server::Direct;
use Application::ServFiBuReader;
use Application::ServFiBuMonitor;

#   LOAD: -
#   LOAD: Server::Server
#   LOAD: Server::ProtocolPERL
#   LOAD: Server::Direct
#   LOAD: Application::ServFiBuReader
#   LOAD: Application::ServFiBuMonitor
#   LOAD: Application::ServFiBuBasic
#   LOAD: DivBasicF::Common


my $tmpfile = shift;

my $obj;
if (@ARGV) {
   $obj = Server::Direct->new("",@ARGV);
} else {
   $obj = Server::Server->new("-host","localhost","-port",9002);
}
   $obj->client_connect("PERL");

my $fibuhandle  = $obj->oo("Application::ServFiBuReader","new");
my $fibumonitor = Application::ServFiBuMonitor->new($fibuhandle,$tmpfile);
my $term = Term::ReadLine->new(0);
my $OUT  = $term->OUT();

print $OUT "FiBu Monitor started ...\n\n";

my $o = "open";
my $erg;
while (0 == 0) {
   $o = $o . $term->readline($tmpfile . " > ");
#   last if ($o eq "exit");
#   next if (substr($o,length($o)-1,1) ne ";");   chop($o);
   $erg = $fibumonitor->run($o);
   print $OUT $erg;
   last if ($o eq "exit");
   $o = "";
}

1;