aboutsummaryrefslogtreecommitdiff
path: root/misc/OGM.pl
diff options
context:
space:
mode:
Diffstat (limited to 'misc/OGM.pl')
-rw-r--r--misc/OGM.pl84
1 files changed, 42 insertions, 42 deletions
diff --git a/misc/OGM.pl b/misc/OGM.pl
index b89d197..7931379 100644
--- a/misc/OGM.pl
+++ b/misc/OGM.pl
@@ -104,53 +104,53 @@ sub playOGM{
if (!$ogmId) {$ogmId=10}
my $connectionID = shift;
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>11,
- serviceID=>51,
- serviceArgs=>{
- privateData=>{
- private =>{
- kmeResourceControl=>{
- ogmStart=>{
- connection=>$connectionID,
- ogmId=>$ogmId
- }
- }
- }
- }
- }
- }
- });
+ invokeID=>11,
+ serviceID=>51,
+ serviceArgs=>{
+ privateData=>{
+ private =>{
+ kmeResourceControl=>{
+ ogmStart=>{
+ connection=>$connectionID,
+ ogmId=>$ogmId
+ }
+ }
+ }
+ }
+ }
+ }
+ });
send_pdu($pdu);
}
sub numberOfMsgPort{
#EscapeArgument.privateData.private.kmeSystemData.getSystemData.request
my $pdu = $CSTAapdu->encode({svcRequest=>{
- invokeID=>8,
- serviceID=>51,
- serviceArgs=>{
- privateData=>{
- private =>{
- kmeSystemData=>{
- getSystemData=>{
- request =>{
- systemData=>18
- }
- }
- }
- }
- }
- }
- }
- });
-send_pdu($pdu);
-while (1) {
- $pdu = receive_stuff();
- my $out = $CSTAapdu->decode($pdu);
- if (defined $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort}) {
- my $MsgPorts = $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort};
- return $MsgPorts
+ invokeID=>8,
+ serviceID=>51,
+ serviceArgs=>{
+ privateData=>{
+ private =>{
+ kmeSystemData=>{
+ getSystemData=>{
+ request =>{
+ systemData=>18
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ });
+ send_pdu($pdu);
+ while (1) {
+ $pdu = receive_stuff();
+ my $out = $CSTAapdu->decode($pdu);
+ if (defined $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort}) {
+ my $MsgPorts = $out->{svcRequest}->{serviceArgs}->{privateData}->{private}->{kmeSystemData}->{systemDataLinkedReply}->{sysData}->{numberOfMsgPort};
+ return $MsgPorts
+ }
}
- }
}
sub answer{
my $callerID = shift;
@@ -350,4 +350,4 @@ while (1) {
}
}
-} \ No newline at end of file
+}