Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

use SOAP::Lite;
use Data::Dumper;
use strict;


use DivBasicF::BlackBoard;
my $out = DivBasicF::BlackBoard->new("load.db");

  my $client = SOAP::Lite->new(
#       proxy => 'http://swisorderbossqs02.schlund.de:8180/orderentryservice-webservice-facade-1.6',
#       uri   => 'urn:OrderEntryServiceBean'
#        ->uri('orderentryservice-webservice-facade-1.6')
#        uri => 'http://swisorderbossqs02.schlund.de:8180/orderentryservice-webservice-facade-1.6?wsdl'
#        ->proxy('http://172.19.3.64:8180')
      )
        ->autotype(0)->readable(1)->outputxml(1);
#<?xml version="1.0" encoding="UTF-8"?>
#<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
#	xmlns:web="http://webservice.orderentryservice.ordermanagement.oneandone.com/">
#	<soapenv:Header />
#	<soapenv:Body>
#		<web:placeOrder>
     $client->ns("http://webservice.orderentryservice.ordermanagement.oneandone.com/","web");


my $zaehler = 0;

while ($zaehler < 10) {
     print  $client->call("web:placeOrder" =>  SOAP::Data->type( 'xml' => <<'TEXT_ENDE'));
			<orderEnvelope>
				<customerNumber>153974853</customerNumber>
				<meta>
					<client>APPS_MP</client>
					<customerSession>
						<remoteAddress>212.227.66.11</remoteAddress>
						<sessionStart>2011-06-07T09:00:00</sessionStart>
						<visitID>8ahvu2cdg8fn8e898dhqvo1o52</visitID>
					</customerSession>
				</meta>
				<orders>
					<offerPurchaseOrder>
						<orderline>
							<salesConfigId>104985</salesConfigId>
							<componentIdentifier>94-1-2-1</componentIdentifier>
							<salesComponentId>19588</salesComponentId>
							<attribute>
								<type>STRING</type>
								<key>FIRST_NAME</key>
								<value>Pierre01</value>
							</attribute>
							<attribute>
								<type>STRING</type>
								<key>LAST_NAME</key>
								<value>Kens01</value>
							</attribute>
							<attribute>
								<type>STRING</type>
								<key>TENANT</key>
								<value>Test-Prelive01</value>
							</attribute>
							<attribute>
								<type>NUMBER</type>
								<key>quantity</key>
								<value>5</value>
							</attribute>
							<attribute>
								<type>NUMBER</type>
								<key>feature_number</key>
								<value>1</value>
							</attribute>
							<attribute>
								<type>STRING</type>
								<key>ADMIN_EMAIL</key>
								<value>pierre-prelive@test01.de</value>
							</attribute>							
						</orderline>						
						<contractPartnerContactId>333826901</contractPartnerContactId>
						<offerId>104985</offerId>
						<currencyCode>EUR</currencyCode>
					</offerPurchaseOrder>

				</orders>
			</orderEnvelope>



TEXT_ENDE

#		</web:placeOrder>
#	</soapenv:Body>
#</soapenv:Envelope>

   $zaehler = $zaehler + 1;

}




<<'XXX'; 

print Dumper(SOAP::Data->type( 'xml' => $text)); exit;

$c->placeOrder($text);
#SOAP::Data->type("xml" => $text) );

package EUE::OrderEntry;

use strict;
use vars qw(@ISA);
use Data::Dumper;
use MIME::Base64;
use SOAP::Lite + 'trace' => [qw(debug)]; 
# use UD::Reloaded;
# @ISA = qw(UDMod::Registry);

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

sub new {

   my $class = shift;
   my $self  = {};
   $self->{'SOAPSERVER'} = "172.19.3.64:8180";
   bless($self,$class);
   return($self);
   
}

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

sub soap_client {

   my $self = shift;
   
   my $client = SOAP::Lite->new()->proxy(
   'http://172.19.3.64:8180/orderentryservice-webservice-facade-1.5?wsdl');   

#   my $client = SOAP::Lite->uri('http://'.$self->{'SERVER_IP'} .
#                          ':59999/EppLite#do_echo')
#       ->proxy('http://'.$self->{'SOAPSERVER'}.':59999/?session=SoapServer')
#       ->autotype(0)->readable(1)->outputxml(1);
#   $client->transport->http_request->header('Authorization' =>
#        'Basic ' . MIME::Base64::encode("test:123456",''));
   return($client);
   
}

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

sub cmd {

   my $self = shift;
   my $xml  = shift;
   $xml =~ /\<command\>(.*?)\<\/command\>/;
   my $o    = $1;
   my $result = $self->soap_client()->$o(
                 SOAP::Data->type('xml' => "\n<EPP>\n".$xml."</EPP>\n"));
   
   return($result);
   
}

-#*************************************************************************
#*************************************************************************
#*************************************************************************
#*************************************************************************


XXX

1;