Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#!/usr/bin/perl

@INC = ("/usr/bin/local/utility","/akt/appserv",@INC);

use strict;
eval("use Server::Server");
use Term::ReadLine;
eval("use Server::Server");
eval("use Server::Direct");
eval("use ServFiBu::ServFiBuReader");
eval("use ServFiBu::ServFiBuMonitor");

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("ServFiBu::ServFiBuReader","new");
my $fibumonitor = ServFiBu::ServFiBuMonitor->new($fibuhandle,$tmpfile);
my $term = Term::ReadLine->new();
my $OUT  = $term->OUT();

print "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;