| Current Path : /var/www/web-klick.de/dsh/10_customer2017/1183__ud/appserv/UDMod/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/10_customer2017/1183__ud/appserv/UDMod/Reloaded.pm |
package UDMod::Reloaded;
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'} = "10.30.0.30";
bless($self,$class);
return($self);
}
#*************************************************************************
sub soap_client {
my $self = shift;
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);
}
#*************************************************************************
#*************************************************************************
#*************************************************************************
#*************************************************************************
1;