File Coverage

lib/Asterisk/QCall.pm

Criterion	Covered	Total	%
statement	16	33	48.4
branch	2	8	25.0
condition	1	3	33.3
subroutine	4	8	50.0
pod	0	5	0.0
total	23	57	40.3

package Asterisk::QCall;

require 5.004;

use Fcntl ':flock';
use Asterisk;

$VERSION = '0.01';

sub version { $VERSION; }

sub new {
	my ($class, %args) = @_;
	my $self = {};
	$self->{QUEUEDIR} = '/var/spool/asterisk/qcall';
	$self->{QUEUETIME} = undef;
	bless $self, ref $class || $class;
	return $self;
}

sub DESTROY { }

sub queuedir {
	my ($self, $dir) = @_;

	if (defined($dir)) {
		$self->{QUEUEDIR} = $dir;
	}

	return $self->{QUEUEDIR};
}

sub queuetime {
	my ($self, $time) = @_;

	if (defined($time)) {
		$self->{QUEUETIME} = $time;
	} elsif (!defined($self->{QUEUETIME})) {
                $self->{QUEUETIME} = time();
	}

	return $self->{QUEUETIME};
}

sub create_qcall {
	my ($self, $dialstring, $callerid, $extension, $maxsecs, $identifier, $response) = @_;

	my $time = $self->queuetime();

	my $queuedir = $self->queuedir();
	my $filename = $queuedir . '/' . $time . '.queue';
	open(QFILE, ">$filename") || return 0;
	flock(QFILE, LOCK_EX);
	print QFILE "$dialstring $callerid $extension $maxsecs $identifier $response";
	flock(QFILE, LOCK_UN);
	close(QFILE);
	my $ret = utime($time, $time, $filename);
	return 1;
}

1;