1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#
# Add the statusbar item to its own statusbar with
# /statusbar sb_timezones enable
# /statusbar sb_timezones add -alignment left barstart
# /statusbar sb_timezones add -after barstart timezones
# /statusbar sb_timezones add -alignment right barend
#
# or add it to an existing one with
# /statusbar window add timezones (window is an exaple, see /statusbar and /help statusbar for comprehensive help)
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
authors => "Jari Matilainen",
contact => "irc: vague`\@freenode",
name => "timezones",
description => "timezones displayer",
license => "Public Domain",
url => "http://vague.se"
);
use Irssi::TextUI;
use DateTime;
my $refresh_tag;
sub timezones {
my ($item,$get_size_only) = @_;
my ($datetime) = Irssi::settings_get_str("timezones_clock_format");
my ($div) = Irssi::settings_get_str("timezones_divider");
my (@timezones) = split ' ', Irssi::settings_get_str("timezones");
my $result = "";
foreach(@timezones) {
if(length($result)) { $result .= $div; }
my ($nick, $timezone) = split /:/, $_;
my $now = DateTime->now(time_zone => $timezone);
$result .= $nick . ": " . $now->strftime("$datetime");
}
$item->default_handler($get_size_only, undef, $result, 1);
}
sub refresh_timezones {
Irssi::statusbar_items_redraw('timezones');
}
sub init_timezones {
Irssi::timeout_remove($refresh_tag) if ($refresh_tag);
$refresh_tag = Irssi::timeout_add(1000, \&refresh_timezones, undef);
}
Irssi::statusbar_item_register('timezones', '{sb $0-}', 'timezones');
Irssi::settings_add_str('timezones', 'timezones_clock_format', '%H:%M:%S');
Irssi::settings_add_str('timezones', 'timezones_divider', ' ');
Irssi::settings_add_str('timezones', 'timezones', 'Mike:GMT Sergey:EST');
init_timezones();
Irssi::signal_add('setup changed', \&init_timezones);
refresh_timezones();
|
