YAK CallerID

[daggo]

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]

Very cool!

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

[MrGadget]

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 for info and links to the software.

[daggo]

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]

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

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