tgi.pm

multi-line Adjunct Communication Server

package TGI;

$VERSION = "0.01";
$SERVER = undef;
$PROTOCOL = undef;
$DIGITS = undef;
$QUERY = undef;
$ANI = undef;
$DNID = undef;
$CID = undef;
$PORT = "0";

$| = 1;

$SERVER = $ENV{'SERVER_SOFTWARE'} if $ENV{'SERVER_SOFTWARE'};
$PROTOCOL = $ENV{'SERVER_VERSION'} if $ENV{'SERVER_VERSION'};
$PORT = $ENV{'PORT_NUMBER'} if $ENV{'PORT_NUMBER'};
$ANI = $ENV{'PORT_ANI'} if $ENV{'PORT_ANI'};
$DNID = $ENV{'PORT_DNID'} if $ENV{'PORT_DNID'};
$DIGITS = $ENV{'PORT_DIGITS'} if $ENV{'PORT_DIGITS'};

if($ENV{'PORT_QUERY'})
{
	my($query_string) = $ENV{'PORT_QUERY'};
	my(@pairs) = split('&', $query_string);
	foreach(@pairs)
	{
		my($keyword, $value) = split('=',$_, 2);
		$QUERY{lc($keyword)} = $value;
	}
}	

if($ENV{'PORT_CID'})
{
	my($cid_string) = $ENV{'PORT_CID'};
	my(@pairs) = split('&', $cid_string);
	foreach(@pairs)
	{
		my($keyword, $value) = split('=', $_, 2);
		$CID{lc($keyword)} = $value;
	}
}		

if ($ENV{'SERVER_RUNTIME'})
{
	chdir $ENV{'SERVER_RUNTIME'};
	$TempFile::TMPDIRECTORY = "$ENV{'SERVER_RUNTIME'}/temp";
};

1;

sub set
{
	my($self) = @_;
	my($variable) = shift;
	my($value) = shift;
	
	print "SET $PORT $variable $value\n";
};

sub put
{
	my($self) = @_;
	my($variable) = shift;
	my($value) = shift;

	print "PUT $variable $value\n";
};

sub down
{
	print "DOWN\n";
}

sub idle
{
	print "IDLE $PORT\n";
}

sub busy
{
	print "BUSY $PORT\n";
}

sub compile
{
	print "COMPILE\n";
}

sub exit
{
	my($exitcode) = shift;
	my($pid) = getpid();
	print "EXIT $pid $exitcode\n";
}