/usr/share/perl5/Device/Gsm/Sms/Structure.pm is in libdevice-gsm-perl 1.60-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | # Device::Gsm::Sms::Structure - SMS messages structure class
# Copyright (C) 2002 Cosimo Streppone, cosimo@cpan.org
# Copyright (C) 2006-2011 Grzegorz Wozniak, wozniakg@gmail.com
#
# This program is free software; you can redistribute it and/or modify
# it only under the terms of Perl itself.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# Perl licensing terms for details.
#
# $Id$
package Device::Gsm::Sms;
use strict;
use integer;
use Device::Gsm::Sms;
use Device::Gsm::Sms::Token;
use Device::Gsm::Sms::Token::SCA;
use Device::Gsm::Sms::Token::PDUTYPE;
use Data::Dumper;
#
# Inspect structure of SMS
# This varies with sms type (deliver or submit)
#
sub structure {
my $self = shift;
my @struct;
if ($self->type() == SMS_DELIVER) {
if ($self->{'tokens'}->{'PDUTYPE'}->{'_UDHI'}) {
@struct = qw/SCA PDUTYPE OA PID DCS SCTS UDH UD/;
}
else {
# UD takes UDL + UD automatically
@struct = qw/SCA PDUTYPE OA PID DCS SCTS UD/;
}
}
elsif ($self->type() == SMS_SUBMIT) {
@struct = qw/SCA PDUTYPE MR DA PID DCS VP UD/;
}
elsif ($self->type() == SMS_STATUS) {
@struct = qw/SCA PDUTYPE MR DA SCTS DT ST/;
}
return @struct;
}
1;
|