/usr/share/irssi/scripts/twprompt.pl is in irssi-scripts 20170711.
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 | use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
use Irssi::Irc;
use Irssi::TextUI;
my $instrut =
".--------------------------------------------------.\n".
"| 1.) shell> mkdir ~/.irssi/scripts |\n".
"| 2.) shell> cp twprompt.pl ~/.irssi/scripts/ |\n".
"| 3.) shell> cp twprompt.pl ~/.irssi/scripts/ |\n".
"| 4.) shell> mkdir ~/.irssi/scripts/autorun |\n".
"| 5.) shell> ln -s ~/.irssi/scripts/twprompt.pl \\ |\n".
"| ~/.irssi/scripts/autorun/twprompt.pl |\n".
"| 6.) /sbar prompt remove prompt |\n".
"| 7.) /sbar prompt remove prompt_empty |\n".
"| 8.) /sbar prompt add -before input -priority 100 |\n".
"| -alignment left twprompt |\n".
"| 9.) /toggle twprompt_instruct and last /save |\n".
"|--------------------------------------------------|\n".
"| Options: Default: |\n".
"| /set twprompt_refresh <speed> 100 |\n".
"| /set twprompt_color_a <string> %%C |\n".
"| /set twprompt_color_b <string> %%c |\n".
"| /toggle twprompt_instruct |Startup instructions |\n".
"\`--------------------------------------------------'";
$VERSION = '1.00';
%IRSSI = (
authors => 'John Engelbrecht',
contact => 'jengelbr@yahoo.com',
name => 'twprompt.pl',
description => 'BitchX\'s CrackRock3 animated prompt bar.',
sbitems => 'twprompt',
license => 'Public Domain',
changed => 'Wed Sep 29 02:58:28 CDT 2004',
url => 'http://irssi.darktalker.net'."\n",
);
my $twprompt_file = "$ENV{HOME}/.irssi/twprompt.data";
my $num = 1;
my $jk=0;
my $timeout;
sub reload { Irssi::statusbar_items_redraw('twprompt'); }
sub setup {
my $time = Irssi::settings_get_int('twprompt_refresh');
Irssi::timeout_remove($timeout);
$timeout = Irssi::timeout_add($time, 'reload' , undef);
}
sub show {
my ($item, $get_size_only) = @_;
my $text = get();
$item->default_handler($get_size_only, "{prompt ".$text."}", undef, 1);
}
sub get {
my $str = Irssi::active_win()->{active}->{name};
$str = "Status" if($str eq "");
my @chars = split //, $str;
my $total = $#chars;
my $text = "";
my $col_a = Irssi::settings_get_str('twprompt_color_a');
my $col_b = Irssi::settings_get_str('twprompt_color_b');
for my $cx (0..$total) {
if($cx == ($num - 1)) {
$text.=$col_a.$chars[$cx];
} else {
$text.=$col_b.$chars[$cx];
}
}
if(!$jk) {
$jk=1;
return $text;
}
if($num <= ($total + 1)) {
$num++;
}
else {
$num = 1;
}
$jk=0;
return $text;
}
Irssi::statusbar_item_register('twprompt', '$0', 'show');
Irssi::settings_add_str('tech_addon', 'twprompt_color_b',"%c");
Irssi::settings_add_str('tech_addon', 'twprompt_color_a',"%C");
Irssi::settings_remove('twprompt_instruct');
Irssi::settings_add_bool('tech_addon', 'twprompt_instruct', 1);
Irssi::settings_add_int('tech_addon', 'twprompt_refresh', 100);
Irssi::signal_add('setup changed', 'setup');
$timeout = Irssi::timeout_add(Irssi::settings_get_int('twprompt_refresh'), 'reload' , undef);
if(Irssi::settings_get_bool('twprompt_instruct')) {
print $instrut;
}
|