/usr/share/irssi/scripts/itime.pl is in irssi-scripts 20131030.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # Internet Time statusbar item.
# See http://www.timeanddate.com/time/internettime.html
# /STATUSBAR window ADD itime
use strict;
use Irssi::TextUI;
use vars qw($VERSION %IRSSI $itime_ratio $current_itime);
$VERSION = '0.9';
%IRSSI = (
authors => 'Johan "Ion" Kiviniemi',
contact => 'ion at hassers.org',
name => 'itime',
description =>
'Internet Time statusbar item. See http://www.timeanddate.com/time/internettime.html',
license => 'Public Domain',
url => 'http://ion.amigafin.org/scripts/',
changed => 'Tue Mar 12 22:20 EET 2002',
);
$itime_ratio = 1000 / 86400;
$current_itime = get_itime();
sub get_itime {
my ($s, $m, $h) = gmtime time + 3600;
my $itime = $itime_ratio * (3600 * $h + 60 * $m + $s);
return sprintf '@%03d', int $itime;
}
sub itime {
my ($item, $get_size_only) = @_;
$item->default_handler($get_size_only, undef, $current_itime, 1);
}
sub refresh_itime {
my $itime = get_itime();
return if $itime eq $current_itime;
$current_itime = $itime;
Irssi::statusbar_items_redraw('itime');
}
Irssi::statusbar_item_register('itime', '{sb $0}', 'itime');
Irssi::statusbars_recreate_items();
Irssi::timeout_add(5000, 'refresh_itime', undef);
|