PDA

View Full Version : YAK CallerID



daggo
26-07-2005, 05:26 PM
Will OzTivo work with YAK? I don't see why it wouldn't. YAK will display Caller IDs of incoming phone calls on your TiVO, and you can see it here http://sunflowerhead.com/software/yac/index.html

I run a asterisk server and it would be neat if I could have CID flash up on the screen. Just tickles the dag in me.

Matt.

zollymonsta
27-07-2005, 06:29 AM
Very cool!

Hrm. does this mean I have to dig out my modem for my pc? ;)

MrGadget
05-08-2005, 07:49 AM
You've probably worked this out already, but yes, YAC does work with Tivo.
Have a look at http://www.nztivo.net/index.php/CallerIDonTivo (http://www.nztivo.net/index.php/CallerIDonTivo) for info and links to the software.

daggo
07-08-2005, 12:43 PM
That's good news. I can't test it yet as my mother-in-law sent my TiVO by sea mail! So I won't see it for a while (boo hoo).

Matt

ScaredyCat
01-11-2005, 11:22 PM
Will OzTivo work with YAK? I don't see why it wouldn't. YAK will display Caller IDs of incoming phone calls on your TiVO, and you can see it here http://sunflowerhead.com/software/yac/index.html

I run a asterisk server and it would be neat if I could have CID flash up on the screen. Just tickles the dag in me.

Matt.

I already do this :D


exten => s,4,System(perl /bin/TivoCallerID \"${CALLERIDNAME}~${CALLERIDNUM}\" &)

priority 4 because I do a lookup on the number in my monster db (whole of Holland) to get the name...



#!/usr/bin/perl

use Net::Telnet;

# change this to the target device
$target = "tivo.at.the.cattery";
my $message = @ARGV[0];

$version = "YAC Sender Version 0.1a (C) Andy Powell 2005";

if ("$message" ne "") {
YACSend("\@CALL$message");
}
exit 0;

sub YACSend {

my ($message) = @_;
my $hostna = $target;

print "Attempting to send message\n";

if ($hostna ne "")
{

$obj = new Net::Telnet (Timeout => 1, Errmode => "return", Port => 10629);
$obj->open("$hostna");

my $msg = $obj->errmsg;

if ("$msg" eq "")
{
$prev = $obj->errmode("return");

$ok = $obj->put("$message" . "\0");

$obj->close;
}
else
{
print "Could not send message $message";
}


}
}



SC