|
|
|
# This file was automatically generated by SWIG (http://www.swig.org).
|
|
|
|
# Version 2.0.9
|
|
|
|
#
|
|
|
|
# Do not make changes to this file unless you know what you are doing--modify
|
|
|
|
# the SWIG interface file instead.
|
|
|
|
|
|
|
|
package tinyWRAP;
|
|
|
|
use base qw(Exporter);
|
|
|
|
use base qw(DynaLoader);
|
|
|
|
package tinyWRAPc;
|
|
|
|
bootstrap tinyWRAP;
|
|
|
|
package tinyWRAP;
|
|
|
|
@EXPORT = qw();
|
|
|
|
|
|
|
|
# ---------- BASE METHODS -------------
|
|
|
|
|
|
|
|
package tinyWRAP;
|
|
|
|
|
|
|
|
sub TIEHASH {
|
|
|
|
my ($classname,$obj) = @_;
|
|
|
|
return bless $obj, $classname;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub CLEAR { }
|
|
|
|
|
|
|
|
sub FIRSTKEY { }
|
|
|
|
|
|
|
|
sub NEXTKEY { }
|
|
|
|
|
|
|
|
sub FETCH {
|
|
|
|
my ($self,$field) = @_;
|
|
|
|
my $member_func = "swig_${field}_get";
|
|
|
|
$self->$member_func();
|
|
|
|
}
|
|
|
|
|
|
|
|
sub STORE {
|
|
|
|
my ($self,$field,$newval) = @_;
|
|
|
|
my $member_func = "swig_${field}_set";
|
|
|
|
$self->$member_func($newval);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub this {
|
|
|
|
my $ptr = shift;
|
|
|
|
return tied(%$ptr);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# ------- FUNCTION WRAPPERS --------
|
|
|
|
|
|
|
|
package tinyWRAP;
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::DDebugCallback ##############
|
|
|
|
|
|
|
|
package tinyWRAP::DDebugCallback;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_DDebugCallback(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_DDebugCallback($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*OnDebugInfo = *tinyWRAPc::DDebugCallback_OnDebugInfo;
|
|
|
|
*OnDebugWarn = *tinyWRAPc::DDebugCallback_OnDebugWarn;
|
|
|
|
*OnDebugError = *tinyWRAPc::DDebugCallback_OnDebugError;
|
|
|
|
*OnDebugFatal = *tinyWRAPc::DDebugCallback_OnDebugFatal;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::AudioResampler ##############
|
|
|
|
|
|
|
|
package tinyWRAP::AudioResampler;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_AudioResampler(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_AudioResampler($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*isValid = *tinyWRAPc::AudioResampler_isValid;
|
|
|
|
*getOutputRequiredSizeInShort = *tinyWRAPc::AudioResampler_getOutputRequiredSizeInShort;
|
|
|
|
*getInputRequiredSizeInShort = *tinyWRAPc::AudioResampler_getInputRequiredSizeInShort;
|
|
|
|
*process = *tinyWRAPc::AudioResampler_process;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::ActionConfig ##############
|
|
|
|
|
|
|
|
package tinyWRAP::ActionConfig;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_ActionConfig(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_ActionConfig($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*addHeader = *tinyWRAPc::ActionConfig_addHeader;
|
|
|
|
*addPayload = *tinyWRAPc::ActionConfig_addPayload;
|
|
|
|
*setActiveMedia = *tinyWRAPc::ActionConfig_setActiveMedia;
|
|
|
|
*setResponseLine = *tinyWRAPc::ActionConfig_setResponseLine;
|
|
|
|
*setMediaString = *tinyWRAPc::ActionConfig_setMediaString;
|
|
|
|
*setMediaInt = *tinyWRAPc::ActionConfig_setMediaInt;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::QoS ##############
|
|
|
|
|
|
|
|
package tinyWRAP::QoS;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_QoS($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getQavg = *tinyWRAPc::QoS_getQavg;
|
|
|
|
*getQ1 = *tinyWRAPc::QoS_getQ1;
|
|
|
|
*getQ2 = *tinyWRAPc::QoS_getQ2;
|
|
|
|
*getQ3 = *tinyWRAPc::QoS_getQ3;
|
|
|
|
*getQ4 = *tinyWRAPc::QoS_getQ4;
|
|
|
|
*getQ5 = *tinyWRAPc::QoS_getQ5;
|
|
|
|
*getVideoInWidth = *tinyWRAPc::QoS_getVideoInWidth;
|
|
|
|
*getVideoOutWidth = *tinyWRAPc::QoS_getVideoOutWidth;
|
|
|
|
*getVideoInHeight = *tinyWRAPc::QoS_getVideoInHeight;
|
|
|
|
*getVideoOutHeight = *tinyWRAPc::QoS_getVideoOutHeight;
|
|
|
|
*getBandwidthDownKbps = *tinyWRAPc::QoS_getBandwidthDownKbps;
|
|
|
|
*getBandwidthUpKbps = *tinyWRAPc::QoS_getBandwidthUpKbps;
|
|
|
|
*getVideoInAvgFps = *tinyWRAPc::QoS_getVideoInAvgFps;
|
|
|
|
*getVideoDecAvgTime = *tinyWRAPc::QoS_getVideoDecAvgTime;
|
|
|
|
*getVideoEncAvgTime = *tinyWRAPc::QoS_getVideoEncAvgTime;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::Codec ##############
|
|
|
|
|
|
|
|
package tinyWRAP::Codec;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_Codec($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getMediaType = *tinyWRAPc::Codec_getMediaType;
|
|
|
|
*getName = *tinyWRAPc::Codec_getName;
|
|
|
|
*getDescription = *tinyWRAPc::Codec_getDescription;
|
|
|
|
*getNegFormat = *tinyWRAPc::Codec_getNegFormat;
|
|
|
|
*getAudioSamplingRate = *tinyWRAPc::Codec_getAudioSamplingRate;
|
|
|
|
*getAudioChannels = *tinyWRAPc::Codec_getAudioChannels;
|
|
|
|
*getAudioPTime = *tinyWRAPc::Codec_getAudioPTime;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::MediaSessionMgr ##############
|
|
|
|
|
|
|
|
package tinyWRAP::MediaSessionMgr;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_MediaSessionMgr($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*sessionSetInt32 = *tinyWRAPc::MediaSessionMgr_sessionSetInt32;
|
|
|
|
*sessionGetInt32 = *tinyWRAPc::MediaSessionMgr_sessionGetInt32;
|
|
|
|
*sessionGetQoS = *tinyWRAPc::MediaSessionMgr_sessionGetQoS;
|
|
|
|
*consumerSetInt32 = *tinyWRAPc::MediaSessionMgr_consumerSetInt32;
|
|
|
|
*consumerSetInt64 = *tinyWRAPc::MediaSessionMgr_consumerSetInt64;
|
|
|
|
*producerSetInt32 = *tinyWRAPc::MediaSessionMgr_producerSetInt32;
|
|
|
|
*producerSetInt64 = *tinyWRAPc::MediaSessionMgr_producerSetInt64;
|
|
|
|
*producerGetCodec = *tinyWRAPc::MediaSessionMgr_producerGetCodec;
|
|
|
|
*findProxyPluginConsumer = *tinyWRAPc::MediaSessionMgr_findProxyPluginConsumer;
|
|
|
|
*findProxyPluginProducer = *tinyWRAPc::MediaSessionMgr_findProxyPluginProducer;
|
|
|
|
*registerAudioPluginFromFile = *tinyWRAPc::MediaSessionMgr_registerAudioPluginFromFile;
|
|
|
|
*getSessionId = *tinyWRAPc::MediaSessionMgr_getSessionId;
|
|
|
|
*defaultsSetProfile = *tinyWRAPc::MediaSessionMgr_defaultsSetProfile;
|
|
|
|
*defaultsGetProfile = *tinyWRAPc::MediaSessionMgr_defaultsGetProfile;
|
|
|
|
*defaultsSetBandwidthLevel = *tinyWRAPc::MediaSessionMgr_defaultsSetBandwidthLevel;
|
|
|
|
*defaultsGetBandwidthLevel = *tinyWRAPc::MediaSessionMgr_defaultsGetBandwidthLevel;
|
|
|
|
*defaultsSetCongestionCtrlEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetCongestionCtrlEnabled;
|
|
|
|
*defaultsSetVideoMotionRank = *tinyWRAPc::MediaSessionMgr_defaultsSetVideoMotionRank;
|
|
|
|
*defaultsSetVideoFps = *tinyWRAPc::MediaSessionMgr_defaultsSetVideoFps;
|
|
|
|
*defaultsSetBandwidthVideoUploadMax = *tinyWRAPc::MediaSessionMgr_defaultsSetBandwidthVideoUploadMax;
|
|
|
|
*defaultsSetBandwidthVideoDownloadMax = *tinyWRAPc::MediaSessionMgr_defaultsSetBandwidthVideoDownloadMax;
|
|
|
|
*defaultsSetPrefVideoSize = *tinyWRAPc::MediaSessionMgr_defaultsSetPrefVideoSize;
|
|
|
|
*defaultsSetPrefVideoSizeOutRange = *tinyWRAPc::MediaSessionMgr_defaultsSetPrefVideoSizeOutRange;
|
|
|
|
*defaultsSetAdaptativeVideoSizeOutEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetAdaptativeVideoSizeOutEnabled;
|
|
|
|
*defaultsSetJbMargin = *tinyWRAPc::MediaSessionMgr_defaultsSetJbMargin;
|
|
|
|
*defaultsSetJbMaxLateRate = *tinyWRAPc::MediaSessionMgr_defaultsSetJbMaxLateRate;
|
|
|
|
*defaultsSetEchoTail = *tinyWRAPc::MediaSessionMgr_defaultsSetEchoTail;
|
|
|
|
*defaultsGetEchoTail = *tinyWRAPc::MediaSessionMgr_defaultsGetEchoTail;
|
|
|
|
*defaultsSetEchoSkew = *tinyWRAPc::MediaSessionMgr_defaultsSetEchoSkew;
|
|
|
|
*defaultsSetEchoSuppEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetEchoSuppEnabled;
|
|
|
|
*defaultsGetEchoSuppEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetEchoSuppEnabled;
|
|
|
|
*defaultsSetAgcEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetAgcEnabled;
|
|
|
|
*defaultsGetAgcEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetAgcEnabled;
|
|
|
|
*defaultsSetAgcLevel = *tinyWRAPc::MediaSessionMgr_defaultsSetAgcLevel;
|
|
|
|
*defaultsGetAgcLevel = *tinyWRAPc::MediaSessionMgr_defaultsGetAgcLevel;
|
|
|
|
*defaultsSetVadEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetVadEnabled;
|
|
|
|
*defaultsGetGetVadEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetGetVadEnabled;
|
|
|
|
*defaultsSetNoiseSuppEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetNoiseSuppEnabled;
|
|
|
|
*defaultsGetNoiseSuppEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetNoiseSuppEnabled;
|
|
|
|
*defaultsSetNoiseSuppLevel = *tinyWRAPc::MediaSessionMgr_defaultsSetNoiseSuppLevel;
|
|
|
|
*defaultsGetNoiseSuppLevel = *tinyWRAPc::MediaSessionMgr_defaultsGetNoiseSuppLevel;
|
|
|
|
*defaultsSetConditionalRingingEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetConditionalRingingEnabled;
|
|
|
|
*defaultsGetConditionalRingingEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetConditionalRingingEnabled;
|
|
|
|
*defaultsSet100relEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSet100relEnabled;
|
|
|
|
*defaultsGet100relEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGet100relEnabled;
|
|
|
|
*defaultsSetScreenSize = *tinyWRAPc::MediaSessionMgr_defaultsSetScreenSize;
|
|
|
|
*defaultsSetAudioGain = *tinyWRAPc::MediaSessionMgr_defaultsSetAudioGain;
|
|
|
|
*defaultsSetAudioPtime = *tinyWRAPc::MediaSessionMgr_defaultsSetAudioPtime;
|
|
|
|
*defaultsSetAudioChannels = *tinyWRAPc::MediaSessionMgr_defaultsSetAudioChannels;
|
|
|
|
*defaultsSetRtpPortRange = *tinyWRAPc::MediaSessionMgr_defaultsSetRtpPortRange;
|
|
|
|
*defaultsSetRtpSymetricEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetRtpSymetricEnabled;
|
|
|
|
*defaultsSetMediaType = *tinyWRAPc::MediaSessionMgr_defaultsSetMediaType;
|
|
|
|
*defaultsSetVolume = *tinyWRAPc::MediaSessionMgr_defaultsSetVolume;
|
|
|
|
*defaultsGetVolume = *tinyWRAPc::MediaSessionMgr_defaultsGetVolume;
|
|
|
|
*defaultsSetInviteSessionTimers = *tinyWRAPc::MediaSessionMgr_defaultsSetInviteSessionTimers;
|
|
|
|
*defaultsSetSRtpMode = *tinyWRAPc::MediaSessionMgr_defaultsSetSRtpMode;
|
|
|
|
*defaultsGetSRtpMode = *tinyWRAPc::MediaSessionMgr_defaultsGetSRtpMode;
|
|
|
|
*defaultsSetSRtpType = *tinyWRAPc::MediaSessionMgr_defaultsSetSRtpType;
|
|
|
|
*defaultsGetSRtpType = *tinyWRAPc::MediaSessionMgr_defaultsGetSRtpType;
|
|
|
|
*defaultsSetRtcpEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetRtcpEnabled;
|
|
|
|
*defaultsGetRtcpEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetRtcpEnabled;
|
|
|
|
*defaultsSetRtcpMuxEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetRtcpMuxEnabled;
|
|
|
|
*defaultsGetRtcpMuxEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetRtcpMuxEnabled;
|
|
|
|
*defaultsSetStunEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetStunEnabled;
|
|
|
|
*defaultsSetIceStunEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetIceStunEnabled;
|
|
|
|
*defaultsSetIceTurnEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetIceTurnEnabled;
|
|
|
|
*defaultsSetStunServer = *tinyWRAPc::MediaSessionMgr_defaultsSetStunServer;
|
|
|
|
*defaultsSetStunCred = *tinyWRAPc::MediaSessionMgr_defaultsSetStunCred;
|
|
|
|
*defaultsSetIceEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetIceEnabled;
|
|
|
|
*defaultsSetByPassEncoding = *tinyWRAPc::MediaSessionMgr_defaultsSetByPassEncoding;
|
|
|
|
*defaultsGetByPassEncoding = *tinyWRAPc::MediaSessionMgr_defaultsGetByPassEncoding;
|
|
|
|
*defaultsSetByPassDecoding = *tinyWRAPc::MediaSessionMgr_defaultsSetByPassDecoding;
|
|
|
|
*defaultsGetByPassDecoding = *tinyWRAPc::MediaSessionMgr_defaultsGetByPassDecoding;
|
|
|
|
*defaultsSetVideoJbEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetVideoJbEnabled;
|
|
|
|
*defaultsGetVideoJbEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetVideoJbEnabled;
|
|
|
|
*defaultsSetVideoZeroArtifactsEnabled = *tinyWRAPc::MediaSessionMgr_defaultsSetVideoZeroArtifactsEnabled;
|
|
|
|
*defaultsGetVideoZeroArtifactsEnabled = *tinyWRAPc::MediaSessionMgr_defaultsGetVideoZeroArtifactsEnabled;
|
|
|
|
*defaultsSetRtpBuffSize = *tinyWRAPc::MediaSessionMgr_defaultsSetRtpBuffSize;
|
|
|
|
*defaultsGetRtpBuffSize = *tinyWRAPc::MediaSessionMgr_defaultsGetRtpBuffSize;
|
|
|
|
*defaultsSetAvpfTail = *tinyWRAPc::MediaSessionMgr_defaultsSetAvpfTail;
|
|
|
|
*defaultsSetAvpfMode = *tinyWRAPc::MediaSessionMgr_defaultsSetAvpfMode;
|
|
|
|
*defaultsSetOpusMaxCaptureRate = *tinyWRAPc::MediaSessionMgr_defaultsSetOpusMaxCaptureRate;
|
|
|
|
*defaultsSetOpusMaxPlaybackRate = *tinyWRAPc::MediaSessionMgr_defaultsSetOpusMaxPlaybackRate;
|
|
|
|
*defaultsSetMaxFds = *tinyWRAPc::MediaSessionMgr_defaultsSetMaxFds;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::MediaContent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::MediaContent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_MediaContent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::MediaContent_getType;
|
|
|
|
*getDataLength = *tinyWRAPc::MediaContent_getDataLength;
|
|
|
|
*getData = *tinyWRAPc::MediaContent_getData;
|
|
|
|
*parse = *tinyWRAPc::MediaContent_parse;
|
|
|
|
*getPayloadLength = *tinyWRAPc::MediaContent_getPayloadLength;
|
|
|
|
*getPayload = *tinyWRAPc::MediaContent_getPayload;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::MediaContentCPIM ##############
|
|
|
|
|
|
|
|
package tinyWRAP::MediaContentCPIM;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::MediaContent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_MediaContentCPIM($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getPayloadLength = *tinyWRAPc::MediaContentCPIM_getPayloadLength;
|
|
|
|
*getPayload = *tinyWRAPc::MediaContentCPIM_getPayload;
|
|
|
|
*getHeaderValue = *tinyWRAPc::MediaContentCPIM_getHeaderValue;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::SipUri ##############
|
|
|
|
|
|
|
|
package tinyWRAP::SipUri;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_SipUri(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_SipUri($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*isValid = *tinyWRAPc::SipUri_isValid;
|
|
|
|
*getScheme = *tinyWRAPc::SipUri_getScheme;
|
|
|
|
*getHost = *tinyWRAPc::SipUri_getHost;
|
|
|
|
*getPort = *tinyWRAPc::SipUri_getPort;
|
|
|
|
*getUserName = *tinyWRAPc::SipUri_getUserName;
|
|
|
|
*getPassword = *tinyWRAPc::SipUri_getPassword;
|
|
|
|
*getDisplayName = *tinyWRAPc::SipUri_getDisplayName;
|
|
|
|
*getParamValue = *tinyWRAPc::SipUri_getParamValue;
|
|
|
|
*setDisplayName = *tinyWRAPc::SipUri_setDisplayName;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::SdpMessage ##############
|
|
|
|
|
|
|
|
package tinyWRAP::SdpMessage;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_SdpMessage(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_SdpMessage($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getSdpHeaderValue = *tinyWRAPc::SdpMessage_getSdpHeaderValue;
|
|
|
|
*getSdpHeaderAValue = *tinyWRAPc::SdpMessage_getSdpHeaderAValue;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::SipMessage ##############
|
|
|
|
|
|
|
|
package tinyWRAP::SipMessage;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_SipMessage(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_SipMessage($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*isResponse = *tinyWRAPc::SipMessage_isResponse;
|
|
|
|
*getRequestType = *tinyWRAPc::SipMessage_getRequestType;
|
|
|
|
*getResponseCode = *tinyWRAPc::SipMessage_getResponseCode;
|
|
|
|
*getResponsePhrase = *tinyWRAPc::SipMessage_getResponsePhrase;
|
|
|
|
*getSipHeaderValue = *tinyWRAPc::SipMessage_getSipHeaderValue;
|
|
|
|
*getSipHeaderParamValue = *tinyWRAPc::SipMessage_getSipHeaderParamValue;
|
|
|
|
*getSipContentLength = *tinyWRAPc::SipMessage_getSipContentLength;
|
|
|
|
*getSipContent = *tinyWRAPc::SipMessage_getSipContent;
|
|
|
|
*getSdpMessage = *tinyWRAPc::SipMessage_getSdpMessage;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::SipEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::SipEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_SipEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getCode = *tinyWRAPc::SipEvent_getCode;
|
|
|
|
*getPhrase = *tinyWRAPc::SipEvent_getPhrase;
|
|
|
|
*getBaseSession = *tinyWRAPc::SipEvent_getBaseSession;
|
|
|
|
*getSipMessage = *tinyWRAPc::SipEvent_getSipMessage;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::DialogEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::DialogEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_DialogEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::StackEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::StackEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_StackEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::InviteEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::InviteEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_InviteEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::InviteEvent_getType;
|
|
|
|
*getMediaType = *tinyWRAPc::InviteEvent_getMediaType;
|
|
|
|
*getSession = *tinyWRAPc::InviteEvent_getSession;
|
|
|
|
*takeCallSessionOwnership = *tinyWRAPc::InviteEvent_takeCallSessionOwnership;
|
|
|
|
*takeMsrpSessionOwnership = *tinyWRAPc::InviteEvent_takeMsrpSessionOwnership;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::MessagingEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::MessagingEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_MessagingEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::MessagingEvent_getType;
|
|
|
|
*getSession = *tinyWRAPc::MessagingEvent_getSession;
|
|
|
|
*takeSessionOwnership = *tinyWRAPc::MessagingEvent_takeSessionOwnership;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::InfoEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::InfoEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_InfoEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::InfoEvent_getType;
|
|
|
|
*getSession = *tinyWRAPc::InfoEvent_getSession;
|
|
|
|
*takeSessionOwnership = *tinyWRAPc::InfoEvent_takeSessionOwnership;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::OptionsEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::OptionsEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_OptionsEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::OptionsEvent_getType;
|
|
|
|
*getSession = *tinyWRAPc::OptionsEvent_getSession;
|
|
|
|
*takeSessionOwnership = *tinyWRAPc::OptionsEvent_takeSessionOwnership;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::PublicationEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::PublicationEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_PublicationEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::PublicationEvent_getType;
|
|
|
|
*getSession = *tinyWRAPc::PublicationEvent_getSession;
|
|
|
|
*takeSessionOwnership = *tinyWRAPc::PublicationEvent_takeSessionOwnership;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::RegistrationEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::RegistrationEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_RegistrationEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::RegistrationEvent_getType;
|
|
|
|
*getSession = *tinyWRAPc::RegistrationEvent_getSession;
|
|
|
|
*takeSessionOwnership = *tinyWRAPc::RegistrationEvent_takeSessionOwnership;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::SubscriptionEvent ##############
|
|
|
|
|
|
|
|
package tinyWRAP::SubscriptionEvent;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipEvent tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_SubscriptionEvent($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::SubscriptionEvent_getType;
|
|
|
|
*getSession = *tinyWRAPc::SubscriptionEvent_getSession;
|
|
|
|
*takeSessionOwnership = *tinyWRAPc::SubscriptionEvent_takeSessionOwnership;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::T140CallbackData ##############
|
|
|
|
|
|
|
|
package tinyWRAP::T140CallbackData;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_T140CallbackData($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*getType = *tinyWRAPc::T140CallbackData_getType;
|
|
|
|
*getSize = *tinyWRAPc::T140CallbackData_getSize;
|
|
|
|
*getData = *tinyWRAPc::T140CallbackData_getData;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::T140Callback ##############
|
|
|
|
|
|
|
|
package tinyWRAP::T140Callback;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_T140Callback(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_T140Callback($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*ondata = *tinyWRAPc::T140Callback_ondata;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::SipSession ##############
|
|
|
|
|
|
|
|
package tinyWRAP::SipSession;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|
|
|
|
my $pkg = shift;
|
|
|
|
my $self = tinyWRAPc::new_SipSession(@_);
|
|
|
|
bless $self, $pkg if defined($self);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub DESTROY {
|
|
|
|
return unless $_[0]->isa('HASH');
|
|
|
|
my $self = tied(%{$_[0]});
|
|
|
|
return unless defined $self;
|
|
|
|
delete $ITERATORS{$self};
|
|
|
|
if (exists $OWNER{$self}) {
|
|
|
|
tinyWRAPc::delete_SipSession($self);
|
|
|
|
delete $OWNER{$self};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
*haveOwnership = *tinyWRAPc::SipSession_haveOwnership;
|
|
|
|
*addHeader = *tinyWRAPc::SipSession_addHeader;
|
|
|
|
*removeHeader = *tinyWRAPc::SipSession_removeHeader;
|
|
|
|
*addCaps = *tinyWRAPc::SipSession_addCaps;
|
|
|
|
*removeCaps = *tinyWRAPc::SipSession_removeCaps;
|
|
|
|
*setExpires = *tinyWRAPc::SipSession_setExpires;
|
|
|
|
*setFromUri = *tinyWRAPc::SipSession_setFromUri;
|
|
|
|
*setToUri = *tinyWRAPc::SipSession_setToUri;
|
|
|
|
*setSilentHangup = *tinyWRAPc::SipSession_setSilentHangup;
|
|
|
|
*addSigCompCompartment = *tinyWRAPc::SipSession_addSigCompCompartment;
|
|
|
|
*removeSigCompCompartment = *tinyWRAPc::SipSession_removeSigCompCompartment;
|
|
|
|
*getId = *tinyWRAPc::SipSession_getId;
|
|
|
|
sub DISOWN {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
delete $OWNER{$ptr};
|
|
|
|
}
|
|
|
|
|
|
|
|
sub ACQUIRE {
|
|
|
|
my $self = shift;
|
|
|
|
my $ptr = tied(%$self);
|
|
|
|
$OWNER{$ptr} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
############# Class : tinyWRAP::InviteSession ##############
|
|
|
|
|
|
|
|
package tinyWRAP::InviteSession;
|
|
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
|
|
@ISA = qw( tinyWRAP::SipSession tinyWRAP );
|
|
|
|
%OWNER = ();
|
|
|
|
%ITERATORS = ();
|
|
|
|
sub new {
|