summaryrefslogtreecommitdiffstats
path: root/scripts/seti.pl
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
commit03929dac2a29664878d2c971648a4fe1fb698462 (patch)
tree02c5e2b3e006234aa29545f7a93a1ce01b291a8b /scripts/seti.pl
parentInitial commit. (diff)
downloadirssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.tar.xz
irssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.zip
Adding upstream version 20231031.upstream/20231031upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/seti.pl')
-rw-r--r--scripts/seti.pl50
1 files changed, 50 insertions, 0 deletions
diff --git a/scripts/seti.pl b/scripts/seti.pl
new file mode 100644
index 0000000..cb0f489
--- /dev/null
+++ b/scripts/seti.pl
@@ -0,0 +1,50 @@
+# This is not a well written script, but it works. I hope.
+use strict;
+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 {
+
+ my $WHERES_SETI_STATE_SAH = Irssi::settings_get_str('seti_state_sah');
+
+ my ($data, $server, $witem) = @_;
+
+ my $line;
+ open(INFO, "<", $WHERES_SETI_STATE_SAH);
+ for(my $tmp = 0; $tmp < 5; $tmp++) {
+ $line = <INFO>;
+ }
+ close(INFO);
+ my $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');