Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package DivBasicF::AutoClient;


use strict;
use DivBasicF::AutoTest;
use DivBasicF::AutoRun;


sub new {

   my $class = shift;
   my $self  = { @_ };
   bless($self,$class);
   return($self);
   
}

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

sub start {

   my $self = shift;
   my $name = shift;
   my @pars = @_;
   while (@pars and !($pars[$#pars])) { pop(@pars); }

   $name =~ s/[\/\\]/\:\:/gs;
   $name =~ s/\.pm$//;
   $name =~ s/\.pm([\\\/])/$1/;

   if ($name eq "h" or $name eq "-h") {
      print <<'TEXT_ENDE';

gt <test-item> run  [<architektur>   [<user>]]: Start eines neuen Test-Items
gt <test-item>                                : Fortsetzen eines Test-Items
gt <test-item> e                              : Editieren eines Test-Items
gt <test-item> t <depth> <requ1>,<requ2> ...  : Text-Reporting
gt <test-item> x <depth> <requ11>,<requ12> <requ21>,<requ22> ... : Excel-Report

<depth>:    Ganze zahl - Tiefe, bis zu der die Test-Items angezeigt werden.
<requ..>:   Filter-Requirements:
            Architektur (ARCH_<name>) und/oder User (USER_<user>)

TEXT_ENDE
      exit;
   }

   if ($pars[0] eq "e") { $pars[0] = "edit"; }
   if ($pars[0] eq "r") { $pars[0] = "run";  }
   if ($pars[0] eq "t") { $pars[0] = "txt";  }
   if ($pars[0] eq "x") { $pars[0] = "xls";  }

   if ($pars[0] eq "edit") {
      $name =~ s/\:\:/\//gs;
      if (-d "/etc") {
         system("joe " . $name . ".pm");
      } else {
         system("notepad " . $name . ".pm");
      }
      exit;
   }

   my $item; my $o; my $auto;
   $self->{'LANGUAGE'} = $self->{'LANGUAGE'} || 1;
   if ($pars[0] =~ /^(txt|xls)$/) {
      $auto = DivBasicF::AutoTest->new(".",$self->{'LANGUAGE'});
      $auto->{'DIRECT_COPY'} = 1;
#      $auto->{'CHECK_FILES'} = 1;
      $o    = "report_" . shift(@pars);
      $item = $auto->$o($name,shift(@pars),@pars);
   } else {
      $auto = DivBasicF::AutoRun->new(
                 ".",$self->{'process_database'},$self->{'process_port'},100,2);   
      if ($pars[0] eq "run") {
         $pars[1] = "xx" if (!($pars[1]));
         $pars[2] = "xx" if (!($pars[2]));
         $item = $auto->run_item($name,$pars[0],"ARCH_".$pars[1],1,
                     "USER_".$pars[2],1,"___ITEMNAME___","---ITEMNAME---");
      } else {
         $item = $auto->run_item($name);
      }
   }
   print $item . "\n";

}

1;