Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
106 lines (89 sloc) 3.04 KB
use strict;
use Data::Dumper;
use vars qw($VERSION %IRSSI);
use DateTime;
$VERSION = '0.5';
%IRSSI = (
authors => 'Tijmen "timing" Ruizendaal',
contact => 'tijmen.ruizendaal@gmail.com',
name => 'bitlbee_timestamp',
description => 'Replace Irssi\'s timestamps with those sent by BitlBee',
license => 'GPLv2',
url => 'http://the-timing.nl/stuff/irssi-bitlbee',
changed => '2010-05-01',
);
my $tf = Irssi::settings_get_str('timestamp_format');
my $bitlbee_server; # server object
my @control_channels; # mostly: &bitlbee, &facebook etc.
init();
sub init { # if script is loaded after connect
my @servers = Irssi::servers();
foreach my $server(@servers) {
if( $server->isupport('NETWORK') eq 'BitlBee' ){
$bitlbee_server = $server;
my @channels = $server->channels();
foreach my $channel(@channels) {
if( $channel->{mode} =~ /C/ ){
push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
}
}
}
}
}
# if connect after script is loaded
Irssi::signal_add_last('event 005' => sub {
my( $server ) = @_;
if( $server->isupport('NETWORK') eq 'BitlBee' ){
$bitlbee_server = $server;
}
});
# if new control channel is synced after script is loaded
Irssi::signal_add_last('channel sync' => sub {
my( $channel ) = @_;
if( $channel->{mode} =~ /C/ && $channel->{server}->{tag} eq $bitlbee_server->{tag} ){
push @control_channels, $channel->{name} unless (grep $_ eq $channel->{name}, @control_channels);
}
});
my $prev_date = '';
sub privmsg {
my ($server, $data, $nick, $address) = @_;
# What we need to match: ^B[^B^B^B2010-03-21 16:33:41^B]^B
if( $server->{tag} eq $bitlbee_server->{tag} ){
my ($target, $text) = split(/ :/, $data, 2);
#if( $text =~ /^B[^B^B^B[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2}^B]^B/ ){
if( $text =~ /\x02\[\x02\x02\x02.*\x02\]\x02/ ){
my $window;
my $timestamp = $text;
my $time;
my $date;
$timestamp =~ s/.*\x02\[\x02\x02\x02(.*?)\x02\]\x02.*/$1/g;
$text =~ s/\x02\[\x02\x02\x02(.*?)\x02\]\x02 //g;
($date, $time) = split(/ /, $timestamp);
if( !$time ){ # the timestamp doesn't have a date
$time = $date;
# use today as date
$date = DateTime->now->ymd;
}
if( $date ne $prev_date ){
if( $target =~ /#|&/ ){ # find channel window based on target
$window = Irssi::window_find_item($target);
} else { # find query window based on nick
$window = Irssi::window_find_item($nick);
}
if( $window != undef ){
my($year, $month, $day) = split(/-/, $date);
my $dt = DateTime->new(year => $year, month => $month, day => $day);
my $formatted_date = $day.' '.$dt->month_abbr.' '.$year;
$window->print('Day changed to '.$formatted_date, MSGLEVEL_NEVER);
}
}
$prev_date = $date;
Irssi::settings_set_str('timestamp_format', $time);
Irssi::signal_continue($server, $target . ' :' . $text, $nick, $address);
my $escaped = $tf;
$escaped =~ s/%/%%/g;
Irssi::settings_set_str('timestamp_format', $tf);
}
}
}
Irssi::signal_add('event privmsg', 'privmsg');