use strict;

use Irssi;

use vars qw($VERSION %IRSSI);

$VERSION = "0.3";

%IRSSI = (

authors => "Uli Baumann",

contact => "f-zappa\@irc-muenster.de",

name => "isdn",

description => "Displays incoming ISDN calls",

license => "GPL",

changed => "Thu Jun 17 12:49:55 CEST 2004",

);

my $timer;

sub incoming_call() # triggered by a timer; use of input_add

{ # caused crash

while (my $message = <ISDNLOG>)

{

chomp($message);

if ($message =~ / Call to tei .* RING/) # just incoming calls

{

my $from = $message; # extract caller

$from =~ s/.*Call to tei.*from (.*) on.*RING.*/$1/;

my $to = $message; # extract callee

$to =~ s/.*Call to tei.*from .* on (.*) RING.*/$1/;

my $window = Irssi::active_win(); # write message to active win

$window->print("%YISDN:%n call from $from");

$window->print(" to $to");

}

}

}

sub isdn_unload() # for a clean unload

{

close ISDNLOG;

Irssi::timeout_remove($timer);

}

open ISDNLOG, "< /var/log/isdn/isdnlog" or die "Can't open isdnlog";

seek ISDNLOG,0,2;

$timer=Irssi::timeout_add(1000, \&incoming_call, \&args);

Irssi::signal_add_first('command script unload','isdn_unload');