File Coverage

blib/lib/SMS/Handler/Utils.pm

Criterion	Covered	Total	%
statement	26	29	89.6
branch	5	8	62.5
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	37	43	86.0

package SMS::Handler::Utils;

require 5.005_62;

use strict;
use warnings;
require Exporter;

# $Id: Utils.pm,v 1.4 2003/01/03 02:03:34 lem Exp $

our $VERSION = q$Revision: 1.4 $;
$VERSION =~ s/Revision: //;

our @EXPORT_OK = qw(Split Split_msg);
our @ISA = qw(Exporter);

=pod

=head1 NAME

SMS::Handler::Utils - Utility functions used by some SMS::Handler modules

=head1 SYNOPSIS

  use SMS::Handler::Utils;

  ...

=head1 DESCRIPTION

This module provides various utility functions for use by
C modules.

The exported functions are:

=over 3

=item C

Separates an incoming SMS into a command and body section. It is
separated either by the first newline or the first occurrence of two
consecutive spaces.

=cut

sub Split
{
    my $msg = shift;
    my $body;

    my $i;

    ($msg, $body) = split(qr(\n|  ), $msg, 2);

    $body = '' unless defined $body;

    return $msg, $body;
}

=pod

=item C

Splits the given message (passed as a reference to a scalar) into
C<$maxlen> characters wide messages. Returns an array of scalar
references pointing to each chunk, which include a counter.

=cut

sub Split_msg
{
    my $maxlen	= shift;
    my $text	= shift;

    my @msg = ();

    my $join = '...';
    my $sjoin = length($join);
    my $size = $maxlen - $sjoin;

    push @msg, $_ while $_ = substr($$text, 0, $size - 4, '');

    my $change;
				# Now iterate through the list of chunks
				# fixing lengths up.
    do
    {
	$change = 0;
	for my $c (0 .. $#msg)
	{
#	    warn "# Checking $c $msg[$c] " . scalar @msg . "\n";
	    if (length($msg[$c])
		+ length($c)
		+ length(scalar @msg) + 2 > $size)
	    {
		$msg[$c + 1] = '' unless $msg[$c + 1];
		substr($msg[$c + 1], 0, 0,
		       substr($msg[$c],
			      $size
			      - length($msg[$c])
			      - length($c)
			      - length(scalar @msg)
			      - 2
			      - $sjoin, length($msg[$c]), ''));
		$change = 1;
	    }
	}
    } while $change;
				# Fixup the strings in each chunk
    my $c = 0;

    return [ map
	     { ++$c . '/' . scalar @msg . "\n$_" .
		   ($c < scalar @msg ? $join : '');
	   } @msg ];
}

__END__