/usr/share/irssi/scripts/rotator.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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | use Irssi;
use Irssi::TextUI;
use strict;
use vars qw($VERSION %IRSSI);
use Irssi::TextUI;
$VERSION="0.2.1";
%IRSSI = (
authors=> 'BC-bd',
contact=> 'bd@bc-bd.org',
name=> 'rotator',
description=> 'Displaye a small, changeing statusbar item to show irssi is still running',
license=> 'GPL v2',
url=> 'https://bc-bd.org/svn/repos/irssi/trunk/',
);
# rotator Displaye a small, changeing statusbar item to show irssi is still running
# for irssi 0.8.4 by bd@bc-bd.org
#
#########
# USAGE
###
#
# To use this script type f.e.:
#
# /statusbar window add -after more -alignment right rotator
#
# For more info on statusbars read the docs for /statusbar
#
#########
# OPTIONS
#########
#
# /set rotator_seperator <char>
# The character that is used to split the string in elements.
#
# /set rotator_chars <string>
# The string to display. Examples are:
#
# /set rotator_chars . o 0 O
# /set rotator_chars _ ¯
# /set rotator_chars %r %Y- %g-
#
# /set rotator_speed <int>
# The number of milliseconds to display every char.
# 1 second = 1000 milliseconds.
#
# /set rotator_bounce <ON|OFF>
# * ON : reverse direction at the end of rotator_chars
# * OFF : start from the beginning
#
###
################
###
# Changelog
#
# Version 0.2.1
# - checking rotator_speed to be > 10
#
# Version 0.2
# - added rotator_bounce
# - added rotator_seperator
# - added support for elements longer than one char
# - fixed displaying of special chars (thx to peder for pointing this one out)
#
# Version 0.1
# - initial release
#
###
################
my ($pos,$char,$timeout,$boundary,$direction);
$char = '';
sub rotatorTimeout {
my @rot = split(Irssi::settings_get_str('rotator_seperator'), Irssi::settings_get_str('rotator_chars'));
my $len = scalar @rot;
$char = quotemeta($rot[$pos]);
if ($pos == $boundary) {
if (Irssi::settings_get_bool('rotator_bounce')) {
if ($direction < 0) {
$boundary = $len -1;
} else {
$boundary = 0;
}
$direction *= -1;
} else {
$pos = -1;
}
}
$pos += $direction;
Irssi::statusbar_items_redraw('rotator');
}
sub rotatorStatusbar() {
my ($item, $get_size_only) = @_;
$item->default_handler($get_size_only, "{sb ".$char."}", undef, 1);
}
sub rotatorSetup() {
my $time = Irssi::settings_get_int('rotator_speed');
Irssi::timeout_remove($timeout);
$boundary = scalar split(Irssi::settings_get_str('rotator_seperator'), Irssi::settings_get_str('rotator_chars')) -1;
$direction = +1;
$pos = 0;
if ($time < 10) {
Irssi::print("rotator: rotator_speed must be > 10");
} else {
$timeout = Irssi::timeout_add($time, 'rotatorTimeout' , undef);
}
}
Irssi::signal_add('setup changed', 'rotatorSetup');
Irssi::statusbar_item_register('rotator', '$0', 'rotatorStatusbar');
Irssi::settings_add_str('misc', 'rotator_chars', '. o 0 O 0 o');
Irssi::settings_add_str('misc', 'rotator_seperator', ' ');
Irssi::settings_add_int('misc', 'rotator_speed', 2000);
Irssi::settings_add_bool('misc', 'rotator_bounce', 1);
if (Irssi::settings_get_int('rotator_speed') < 10) {
Irssi::print("rotator: rotator_speed must be > 10");
} else {
$timeout = Irssi::timeout_add(Irssi::settings_get_int('rotator_speed'), 'rotatorTimeout' , undef);
}
rotatorSetup();
|