Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package Application::ZFibu;

use strict;
use Server::Server;
use Term::ReadLine;
use Term::ReadKey;
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


sub new {

   my $class = shift;
   my $self  = {};
   $self->{'TMPFILE'} = shift;
   bless($self,$class);
   return($self);
   
}
   
sub run {

   my $self = shift;
   my @pars = @_;

   my $obj;
   if (@pars) {
      $obj = Server::Direct->new("",@pars);
   } 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,
        $self->{'TMPFILE'});
   my $term = Term::ReadLine->new(0);
#   $term->MinLine(100);
   my $OUT  = $term->OUT();

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

   my $o = "open";
   my $erg;
   while (0 == 0) {
      $o = $o . $term->readline($self->{'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;