/usr/share/irssi/scripts/seti.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 | # This is not a well written script, but it works. I hope.
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = '0.1';
%IRSSI = (
authors => 'optical',
contact => 'optical@linux.nu',
name => 'SETI@home info',
description => 'Tell ppl how far you\'ve gotten with you SETI\@home workunit.',
license => 'GPL',
url => 'http://optical.kapitalet.org/seti/',
changed => 'Sat Jul 13 12:03:42 CEST 2002',
commands => '/seti <#channel>|<nick>',
note => 'Make sure you set the seti_state_sah with /set'
);
sub seti_info {
$WHERES_SETI_STATE_SAH = Irssi::settings_get_str('seti_state_sah');
my ($data, $server, $witem) = @_;
$args =~ s/\s+$//;
open(INFO, "$WHERES_SETI_STATE_SAH");
for($tmp = 0; $tmp < 5; $tmp++) {
$line = <INFO>;
}
close(INFO);
$proc = substr($line, 7, 4)/100;
my $output = "progress of this SETI@home workunit: $proc%";
if($data)
{
$server->command("MSG $data $output");
}
elsif($witem && ($witem->{type} == "QUERY" ||
$witem->{type} == "CHANNEL"))
{
$witem->command("MSG ".$witem->{name}." $output");
}
else
{
Irssi::print("$output");
}
}
Irssi::command_bind('seti', 'seti_info');
Irssi::settings_add_str('misc', 'seti_state_sah', '~/setiathome-3.03.i386-pc-linux-gnu-gnulibc2.1/state.sah');
|