822 lines
20 KiB
Perl
822 lines
20 KiB
Perl
# This file was automatically generated by SWIG (http://www.swig.org).
|
|
# Version 1.3.39
|
|
#
|
|
# 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::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;
|
|
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};
|
|
}
|
|
}
|
|
|
|
*getSipHeaderValue = *tinyWRAPc::SipMessage_getSipHeaderValue;
|
|
*getSipHeaderParamValue = *tinyWRAPc::SipMessage_getSipHeaderParamValue;
|
|
*getSipContentLength = *tinyWRAPc::SipMessage_getSipContentLength;
|
|
*getSipContent = *tinyWRAPc::SipMessage_getSipContent;
|
|
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::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::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;
|
|
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;
|
|
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;
|
|
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;
|
|
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;
|
|
*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::MessagingSession ##############
|
|
|
|
package tinyWRAP::MessagingSession;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP::SipSession tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_MessagingSession(@_);
|
|
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_MessagingSession($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*Send = *tinyWRAPc::MessagingSession_Send;
|
|
*Accept = *tinyWRAPc::MessagingSession_Accept;
|
|
*Reject = *tinyWRAPc::MessagingSession_Reject;
|
|
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::OptionsSession ##############
|
|
|
|
package tinyWRAP::OptionsSession;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP::SipSession tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_OptionsSession(@_);
|
|
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_OptionsSession($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*Send = *tinyWRAPc::OptionsSession_Send;
|
|
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::PublicationSession ##############
|
|
|
|
package tinyWRAP::PublicationSession;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP::SipSession tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_PublicationSession(@_);
|
|
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_PublicationSession($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*Publish = *tinyWRAPc::PublicationSession_Publish;
|
|
*UnPublish = *tinyWRAPc::PublicationSession_UnPublish;
|
|
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::RegistrationSession ##############
|
|
|
|
package tinyWRAP::RegistrationSession;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP::SipSession tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_RegistrationSession(@_);
|
|
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_RegistrationSession($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*Register = *tinyWRAPc::RegistrationSession_Register;
|
|
*UnRegister = *tinyWRAPc::RegistrationSession_UnRegister;
|
|
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::SubscriptionSession ##############
|
|
|
|
package tinyWRAP::SubscriptionSession;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP::SipSession tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_SubscriptionSession(@_);
|
|
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_SubscriptionSession($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*Subscribe = *tinyWRAPc::SubscriptionSession_Subscribe;
|
|
*UnSubscribe = *tinyWRAPc::SubscriptionSession_UnSubscribe;
|
|
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::SipCallback ##############
|
|
|
|
package tinyWRAP::SipCallback;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_SipCallback(@_);
|
|
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_SipCallback($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*OnDialogEvent = *tinyWRAPc::SipCallback_OnDialogEvent;
|
|
*OnMessagingEvent = *tinyWRAPc::SipCallback_OnMessagingEvent;
|
|
*OnOptionsEvent = *tinyWRAPc::SipCallback_OnOptionsEvent;
|
|
*OnPublicationEvent = *tinyWRAPc::SipCallback_OnPublicationEvent;
|
|
*OnRegistrationEvent = *tinyWRAPc::SipCallback_OnRegistrationEvent;
|
|
*OnSubscriptionEvent = *tinyWRAPc::SipCallback_OnSubscriptionEvent;
|
|
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::SipDebugCallback ##############
|
|
|
|
package tinyWRAP::SipDebugCallback;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_SipDebugCallback(@_);
|
|
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_SipDebugCallback($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*OnDebugInfo = *tinyWRAPc::SipDebugCallback_OnDebugInfo;
|
|
*OnDebugWarn = *tinyWRAPc::SipDebugCallback_OnDebugWarn;
|
|
*OnDebugError = *tinyWRAPc::SipDebugCallback_OnDebugError;
|
|
*OnDebugFatal = *tinyWRAPc::SipDebugCallback_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::SafeObject ##############
|
|
|
|
package tinyWRAP::SafeObject;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_SafeObject(@_);
|
|
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_SafeObject($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*Lock = *tinyWRAPc::SafeObject_Lock;
|
|
*UnLock = *tinyWRAPc::SafeObject_UnLock;
|
|
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::SipStack ##############
|
|
|
|
package tinyWRAP::SipStack;
|
|
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
|
|
@ISA = qw( tinyWRAP::SafeObject tinyWRAP );
|
|
%OWNER = ();
|
|
%ITERATORS = ();
|
|
sub new {
|
|
my $pkg = shift;
|
|
my $self = tinyWRAPc::new_SipStack(@_);
|
|
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_SipStack($self);
|
|
delete $OWNER{$self};
|
|
}
|
|
}
|
|
|
|
*start = *tinyWRAPc::SipStack_start;
|
|
*setDebugCallback = *tinyWRAPc::SipStack_setDebugCallback;
|
|
*setRealm = *tinyWRAPc::SipStack_setRealm;
|
|
*setIMPI = *tinyWRAPc::SipStack_setIMPI;
|
|
*setIMPU = *tinyWRAPc::SipStack_setIMPU;
|
|
*setPassword = *tinyWRAPc::SipStack_setPassword;
|
|
*setProxyCSCF = *tinyWRAPc::SipStack_setProxyCSCF;
|
|
*setLocalIP = *tinyWRAPc::SipStack_setLocalIP;
|
|
*setLocalPort = *tinyWRAPc::SipStack_setLocalPort;
|
|
*setEarlyIMS = *tinyWRAPc::SipStack_setEarlyIMS;
|
|
*addHeader = *tinyWRAPc::SipStack_addHeader;
|
|
*removeHeader = *tinyWRAPc::SipStack_removeHeader;
|
|
*addDnsServer = *tinyWRAPc::SipStack_addDnsServer;
|
|
*setAoR = *tinyWRAPc::SipStack_setAoR;
|
|
*isValid = *tinyWRAPc::SipStack_isValid;
|
|
*stop = *tinyWRAPc::SipStack_stop;
|
|
sub DISOWN {
|
|
my $self = shift;
|
|
my $ptr = tied(%$self);
|
|
delete $OWNER{$ptr};
|
|
}
|
|
|
|
sub ACQUIRE {
|
|
my $self = shift;
|
|
my $ptr = tied(%$self);
|
|
$OWNER{$ptr} = 1;
|
|
}
|
|
|
|
|
|
# ------- VARIABLE STUBS --------
|
|
|
|
package tinyWRAP;
|
|
|
|
*tsip_event_invite = *tinyWRAPc::tsip_event_invite;
|
|
*tsip_event_message = *tinyWRAPc::tsip_event_message;
|
|
*tsip_event_options = *tinyWRAPc::tsip_event_options;
|
|
*tsip_event_publish = *tinyWRAPc::tsip_event_publish;
|
|
*tsip_event_register = *tinyWRAPc::tsip_event_register;
|
|
*tsip_event_subscribe = *tinyWRAPc::tsip_event_subscribe;
|
|
*tsip_event_dialog = *tinyWRAPc::tsip_event_dialog;
|
|
*tsip_event_code_dialog_transport_error = *tinyWRAPc::tsip_event_code_dialog_transport_error;
|
|
*tsip_event_code_global_error = *tinyWRAPc::tsip_event_code_global_error;
|
|
*tsip_event_code_dialog_message_error = *tinyWRAPc::tsip_event_code_dialog_message_error;
|
|
*tsip_event_code_dialog_request_incoming = *tinyWRAPc::tsip_event_code_dialog_request_incoming;
|
|
*tsip_event_code_dialog_request_cancelled = *tinyWRAPc::tsip_event_code_dialog_request_cancelled;
|
|
*tsip_event_code_dialog_request_sent = *tinyWRAPc::tsip_event_code_dialog_request_sent;
|
|
*tsip_event_code_dialog_connecting = *tinyWRAPc::tsip_event_code_dialog_connecting;
|
|
*tsip_event_code_dialog_connected = *tinyWRAPc::tsip_event_code_dialog_connected;
|
|
*tsip_event_code_dialog_terminating = *tinyWRAPc::tsip_event_code_dialog_terminating;
|
|
*tsip_event_code_dialog_terminated = *tinyWRAPc::tsip_event_code_dialog_terminated;
|
|
*tsip_i_register = *tinyWRAPc::tsip_i_register;
|
|
*tsip_ao_register = *tinyWRAPc::tsip_ao_register;
|
|
*tsip_i_unregister = *tinyWRAPc::tsip_i_unregister;
|
|
*tsip_ao_unregister = *tinyWRAPc::tsip_ao_unregister;
|
|
*tsip_i_subscribe = *tinyWRAPc::tsip_i_subscribe;
|
|
*tsip_ao_subscribe = *tinyWRAPc::tsip_ao_subscribe;
|
|
*tsip_i_unsubscribe = *tinyWRAPc::tsip_i_unsubscribe;
|
|
*tsip_ao_unsubscribe = *tinyWRAPc::tsip_ao_unsubscribe;
|
|
*tsip_i_notify = *tinyWRAPc::tsip_i_notify;
|
|
*tsip_ao_notify = *tinyWRAPc::tsip_ao_notify;
|
|
*tsip_i_publish = *tinyWRAPc::tsip_i_publish;
|
|
*tsip_ao_publish = *tinyWRAPc::tsip_ao_publish;
|
|
*tsip_i_unpublish = *tinyWRAPc::tsip_i_unpublish;
|
|
*tsip_ao_unpublish = *tinyWRAPc::tsip_ao_unpublish;
|
|
*tsip_i_message = *tinyWRAPc::tsip_i_message;
|
|
*tsip_ao_message = *tinyWRAPc::tsip_ao_message;
|
|
*tsip_i_options = *tinyWRAPc::tsip_i_options;
|
|
*tsip_ao_options = *tinyWRAPc::tsip_ao_options;
|
|
1;
|