1 |
cvsjoko |
1.1 |
package MJAM::Connector::TcpRpcXml; |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use warnings; |
5 |
|
|
|
6 |
|
|
use MJAM::Connector::TcpRpcXml::Server; |
7 |
|
|
use MJAM::Connector::TcpRpcXml::Client; |
8 |
|
|
|
9 |
|
|
sub server_start { |
10 |
|
|
my $alias = shift; |
11 |
|
|
MJAM::Connector::TcpRpcXml::Server::start($alias); |
12 |
|
|
} |
13 |
|
|
|
14 |
|
|
sub server_stop { |
15 |
|
|
my $alias = shift; |
16 |
|
|
MJAM::Connector::TcpRpcXml::Server::stop($alias); |
17 |
|
|
} |
18 |
|
|
|
19 |
|
|
sub agent_start { |
20 |
|
|
my $alias = shift; |
21 |
|
|
MJAM::Connector::TcpRpcXml::Client::start($alias); |
22 |
|
|
} |
23 |
|
|
|
24 |
|
|
sub agent_stop { |
25 |
|
|
my $alias = shift; |
26 |
|
|
MJAM::Connector::TcpRpcXml::Client::stop($alias); |
27 |
|
|
} |
28 |
|
|
|
29 |
|
|
1; |