[tvmusor] remove tvmusor.pl

diff --git a/_testing/config.yml b/_testing/config.yml
index e8b9ee050cdf8df6333ea5f533f77c66450b0914..1eda785a59cc79bf0adcf7a76af8929821ab7687 100644 (file)
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -39,5 +39,4 @@ whitelist:
   - log2ansi
   - mh_secureonlychan_489
   - trackbar22
-  - tvmusor
   - xmmsinfo

diff --git a/scripts/tvmusor.pl b/scripts/tvmusor.pl
deleted file mode 100644 (file)
index 42cd342..0000000
--- a/scripts/tvmusor.pl
+++ /dev/null
@@ -1,143 +0,0 @@
-#!/usr/pkg/bin/perl
-#
-# $Id: porthu-irssi.pl,v 1.7 2003/06/14 21:14:46 bigmac Exp $
-#
-# Irssi Client for PORT.HU
-# Copyright (C) 2003, Gabor Nyeki (bigmac@home.sirklabs.hu).
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1. Redistributions of source code must retain the above copyright
-#    notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-#    notice, this list of conditions and the following disclaimer in the
-#    documentation and/or other materials provided with the distribution.
-# 3. Neither the name of the author nor the names of its contributors
-#    may be used to endorse or promote products derived from this software
-#    without specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
-# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-
-use strict;
-use Irssi;
-use Irssi::Irc;
-use IO::Socket;
-
-use vars qw($VERSION %IRSSI); 
-use vars %IRSSI;
-%IRSSI = (
-       authors         => "Gabor Nyeki",
-       contact         => "bigmac\@home.sirklabs.hu",
-       name            => "tvmusor",
-       description     => "asks for the current tv-lineup from http://www.port.hu/",
-       license         => "BSDL",
-       changed         => "Tue Jun  3 18:48:02 CEST 2003"
-);
-
-my %chans = (
-       m1              => "1",
-       m2              => "2",
-       dunatv          => "6",
-       tv2             => "3",
-       rtlklub         => "5",
-       viasat3         => "21",
-       fixtv           => "96",
-       spektrum        => "9",
-       hbo             => "8",
-       atv             => "15"
-);
-
-
-sub tvmusor {
-       my ($args) = @_;
-
-       split / /, $args;
-       my $chan = @_[0];
-       my $list = @_[1];
-
-       if (!$chan) {
-               Irssi::print "Hasznalat: /tvmusor list|csatorna [lista hossza]";
-               return;
-       }
-       if ($chan eq "list") {
-               Irssi::print "Elerheto csatornak listaja:";
-               foreach my $buf (sort(keys %chans)) {
-                       Irssi::print "-> $buf";
-               }
-               return;
-       }
-
-       if (!$chans{$chan}) {
-               Irssi::print "$chan nem letezik!";
-               return;
-       }
-
-       my $num;
-       if (!$list) {
-               $num = 5;
-       } else {
-               $num = $list;
-       }
-
-
-       my $sd = IO::Socket::INET->new(Proto => "tcp",
-                                   PeerAddr => "www.port.hu",
-                                   PeerPort => "80") or die;
-       print $sd "GET /pls/tv/tv.prog?i_days=1&i_ch=$chans{$chan}&i_ch_nr=1 HTTP/1.0\n";
-       print $sd "Host: www.port.hu\n";
-       print $sd "User-Agent: Irssi\n";
-       print $sd "\n";
-
-       Irssi::print "$chan:";
-
-       my $i = 0;
-       my ($x, $y);
-       while (<$sd>) {
-               if ($_ =~ /<tr><td align="right" valign="top" bgcolor="/) {
-                       split /<strong>/, $_;
-
-                       if (@_[1] =~ /<blink>(.*)<\/blink>/) {
-                               $i = 1;
-                               $x = $1;
-                       } else {
-                               if ($i) {
-                                       $i++;
-                               }
-                               @_[1] =~ /(.*)<\/strong>/;
-                               $x = $1;
-                       }
-
-                       if ($i eq 0) {
-                               next;
-                       }
-
-                       @_[2] =~ /(.*)<\/strong>/;
-                       $y = $1;
-
-                       Irssi::print "-> [$x] $y";
-                       if ($i eq $num) {
-                               last;
-                       }
-               }
-       }
-
-       close $sd;
-
-       if ($i ne $num) {
-               Irssi::print "-> --- nincs tobb ---";
-       }
-}
-
-Irssi::command_bind('tvmusor', 'tvmusor');