Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package DivBasicF::AutoRPC;

#  RPC-Modul zum Verbinden mit Qooxdoo

use strict;
use DivBasicF::AutoServer;
use Data::Dumper;

sub report {

#  Gibt zu einem $testtree Reporting-Informationen zum $testitem aus.

#  Der Befehl:   new,DivBasicF::AutoServer,<testtree>,client,<testitem>,d,<depth>,<archs>
#  schreibt sich jetzt;   report,<testtree>,<testitem>,<depth>,<archs>
   my $self     = shift;
   my $testtree = shift;

   my $testitem = shift;
   my $depth    = shift;  #  Ausgabetiefe
                          #  wenn der Ausgabetiefe ein Minuszeichen vorangestellt
                          #  wird, dann werden alle Requirements zu einem einzigen
                          #  zusammengefasst, d.h. amn bekommt damit dann den
                          #  reinen Test-Tree.
   my $archs    = shift;  #  Liste der Architekturen, kommasepariert
                          #  Wird diese Liste mit einem Punkt angefuehrt, erfolgt der return als String!
   chdir($testtree);

   print STDERR "calling autoserver->new with testtree: $testtree,client,testitem: $testitem,d,depth: $depth, archs: $archs \n";
   my $x1 = DivBasicF::AutoServer->new($testtree,"client",$testitem,"d",$depth,$archs);
   return($x1);

}

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

sub get_item_text {

   my $self     = shift;
   my $testtree = shift;
   my $testitem = shift;
   
   chdir($testtree);
   print STDERR "calling autoserver->new with testtree: $testtree,client,testitem: $testitem,t\n";
   my $x1 = DivBasicF::AutoServer->new($testtree,"client",$testitem,"t");
print STDERR "READ" . Dumper($x1);
   return($x1);

}   

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

sub store_item_text {

   my $self     = shift;
   my $testtree = shift;
   my $testitem = shift;
   my $text     = shift;

   chdir($testtree);
   eval($text);
   if ($@ and $@ !~ /^Can(.*?)t +locate/i) {
      return("ERROR $@");
   }
   
   print STDERR "calling autoserver->new with testtree: $testtree,client,testitem: $testitem,e, text...\n";
   my $x1 = DivBasicF::AutoServer->new($testtree,"client",$testitem,"e",$text);
print STDERR Dumper($x1);
   return($x1);

}   

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

sub testtrees {

   my $self     = shift;
   my $user     = shift;

   my $password = shift;

   eval("use DivBasicF::AutoSettings");
   return("ERROR 100 " . $@) if ($@);
   my $settings = DivBasicF::AutoSettings::settings();
   
   my $o  = $settings->{'USER:'.$user};
   my $o1 = "";
   if ($o =~ s/^(.+?)\,//) {
      $o1 = $1;
   }
   
   return("ERROR101") if (!$o1);              #  Fehler: User nicht gefunden;
   return("ERROR102") if ($o1 ne $password);  #  Fehler: Passwort falsch
   
   print STDERR "PASSWORD\n";
   
   my $erg = [];
   foreach $o1 (split(/\,/,$o)) {
      $o1 = [split(/\,/,$settings->{'TREE:'.$o1})];
      next if (!@$o1);
      push(@$erg,$o1);
   }

#   return("Test124");
   return($erg);
   
}



1;