Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package Server::Direct;

use strict;

sub new {

   my $class = shift;
   my $self  = {};
   bless($self,$class);
   $self->{'___PP___'} = $self->read_pars(@_);
   return($self);

}

#*********************************************************************

sub read_pars {

   my $self = shift;
   my @pars = @_;
   return({}) if (!@pars);
   my $o; my $o1; my @ee;
   push(@pars,"-end");
   my $pp = {};
   my $o; my $o1; my @ee;
   my $text = " " . join(" ",@pars) . " ";
   if ($text =~ /-f\s(\S*)/) {
      open(FFILE,"<".$1);
      $o = "";
      while ($o1 = <FFILE>) {
         next if ($o1 =~ /^(\s*)\#/);
         $o = $o . $o1;
      }
      close(FFILE);
      $o1 = " ";
      $o  =~ s/\n/$o1/g;
      @ee = split(/\s+/,$o);
      @pars = (@ee,@pars);
   }

   $text = " ";
   while (0 == 0) {
      last if (!@pars);
      $o = pop(@pars);
      if (substr($o,0,1) eq "-") {
         $text =~ s/\s\s//;
         if ($text eq " ") { $text = 1; }
         $pp->{substr($o,1)} = $text;
         $text = " ";
      } else {
         $text = $o . " " . $text;
      }
   }

$main::___PP___ = $pp;

   return($pp);

}

#*******************************************************************


sub ff {

   my $self = shift;
   my $obj  = shift;
   my $fkt  = shift;

   $obj = $obj->$fkt(@_);
#   if (ref($obj)) {
#      eval("\$obj = \$obj->".$fkt."(\@_)"); print $@;
#   } else {
#      eval("\$obj = ".$obj."->".$fkt."(\@_)"); print $@;
#   }

   return($obj);

}

#************************************************************************

sub oo { my $self = shift; return($self->ff(@_)); }
sub client_connect { return(1); }

#************************************************************************

1;