git://git.jankratochvil.net
/
gsmperl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9f5f365
)
Fixed name coding of Alcatel format payload name (now it is 7bit coded)
author
short
<>
Mon, 7 Jan 2002 12:07:29 +0000
(12:07 +0000)
committer
short
<>
Mon, 7 Jan 2002 12:07:29 +0000
(12:07 +0000)
GSM/SMS/NBS/Message.pm
patch
|
blob
|
history
diff --git
a/GSM/SMS/NBS/Message.pm
b/GSM/SMS/NBS/Message.pm
index
4aa132b
..
c130063
100644
(file)
--- a/
GSM/SMS/NBS/Message.pm
+++ b/
GSM/SMS/NBS/Message.pm
@@
-154,7
+154,7
@@
sub _ie_alcatel {
return $self->_iebuilder(IEI_ALCATEL,
(!defined($args{"name"}) ? (0x00) : # bit 7=0 (use GSM charset)
(length($args{"name"}), unpack("C*",
return $self->_iebuilder(IEI_ALCATEL,
(!defined($args{"name"}) ? (0x00) : # bit 7=0 (use GSM charset)
(length($args{"name"}), unpack("C*",
- encode_payload(0xF
5, GSM::SMS::PDU->inversetranslate($args{"name"})))) # 0xF5 DCS=any 8
bit
+ encode_payload(0xF
1, GSM::SMS::PDU->inversetranslate($args{"name"})))) # 0xF1 DCS=any 7
bit
),
(!!$args{"ems_compat"} << 7) # bit 7=EMS compatibility
|($args{"alcatel_type"} & 0x07), # bits 0..2=Alcatel message type
),
(!!$args{"ems_compat"} << 7) # bit 7=EMS compatibility
|($args{"alcatel_type"} & 0x07), # bits 0..2=Alcatel message type