#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $number=exists $_{quote} ? $_{quote} : $_{number};
	
	my $target=0;
	my $index=0;
	my @list=$this->exchange->list;
	foreach $phone (@list) {
		if ($phone->_number eq $number) {
			$target=$phone;
		}
	}
	
	if ($target && $this->target($target)) {
		$this->msg('dialed', %_, target => $target->location, 
			   number => $number);
		$this->target->ring(caller => $this);
	}
	else {
		$this->msg('dial_failed', %_);
	}
}
