/usr/share/perl5/Device/Gsm/Sms/Token/DCS.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 54 55 56 | # Sms::Token::DCS - SMS DCS (data coding scheme) token
# Copyright (C) 2002-2006 Cosimo Streppone, cosimo@cpan.org
#
# 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 Sms::Token::DCS;
use integer;
use strict;
use Device::Gsm::Sms::Token;
@Sms::Token::DCS::ISA = ('Sms::Token');
# takes (scalar message (string) reference)
# returns success/failure of decoding
# if all ok, removes token from message
sub decode {
my ($self, $rMessage) = @_;
my $ok = 0;
$self->data(hex substr($$rMessage, 0, 2));
$self->state(Sms::Token::DECODED);
# Remove DCS from message
$$rMessage = substr($$rMessage, 2);
return 1;
}
#
# [token]->encode( [$data] )
#
# takes internal token data and encodes it, returning the result
# or undef value in case of errors
#
sub encode {
my $self = shift;
# Take supplied data (optional) or object internal data
my $data = shift;
if (!defined $data || $data eq '') {
$data = $self->data();
$data ||= '00';
}
return $data;
}
1;
|