/usr/local/CPAN/Device-Gsm/Sms/Token/SCTS.pm

• package Sms::Token::SCTS
  • decode
  • encode
• EOF

# Sms::Token::SCTS - SMS SCTS token (Service Center Time Stamp)
# 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::SCTS;
use integer;
use strict;
use Device::Gsm::Sms::Token;

@Sms::Token::SCTS::ISA = ('Sms::Token');

# takes (scalar message (string) reference)
# returns success/failure of decoding
# if all ok, removes SCTS from message
sub decode {
	my($self, $rMessage) = @_;
	my $ok = 0;

	my @ts = split //, substr( $$rMessage, 0, 14 );

	$self->set( year     => $ts [1] . $ts [0] );
	$self->set( month    => $ts [3] . $ts [2] );
	$self->set( day      => $ts [5] . $ts [4] );
	$self->set( hour     => $ts [7] . $ts [6] );
	$self->set( minute   => $ts [9] . $ts [8] );
	$self->set( second   => $ts[11] . $ts[10] );
	$self->set( timezone => $ts[13] . $ts[12] );

	# Store also timestamp as convenient format
	$self->set( 'date' => $self->get('day').'/'.$self->get('month').'/'.$self->get('year') );
	$self->set( 'time' => $self->get('hour').':'.$self->get('minute').':'.$self->get('second') );

	# TODO: add timezone decoding ...
	$self->data( $self->get('date').' '.$self->get('time').' '.$self->get('timezone') );

	# Signal token as correctly decoded (?)
	$self->state( Sms::Token::DECODED );

	# Remove SCTS info from message
	$$rMessage = substr( $$rMessage, 14 );

	return 1;
}

#
# [token]->encode( [$data] )
#
# takes internal token data and encodes it, returning the result
# or undef value in case of errors
#
sub encode {
	return '99211332959500';
}

1;