From: bw1 <redacted>
Date: Sun, 5 May 2019 08:25:46 +0000 (+0200)
Subject: [seti] remove seti.pl
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=7fcf37b9ea248ba998d42b2954a7b0e3956c1dfc;p=irssi-scripts.irssi.org.git

[seti] remove seti.pl
---

diff --git a/scripts/seti.pl b/scripts/seti.pl
deleted file mode 100644
index cb0f489..0000000
--- a/scripts/seti.pl
+++ /dev/null
@@ -1,50 +0,0 @@
-# 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');