From: bw1 <redacted>
Date: Tue, 30 May 2017 21:59:44 +0000 (+0200)
Subject: [mkshorterlink] remove mkshorterlink.pl
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=36cbacb878f20182da586ccd326d22f07257add7;p=irssi-scripts.irssi.org.git

[mkshorterlink] remove mkshorterlink.pl
or #411
---

diff --git a/_testing/config.yml b/_testing/config.yml
index 26bcec4..d385c95 100644
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -46,7 +46,6 @@ whitelist:
   - ixmmsa
   - l33tmusic
   - log2ansi
-  - mkshorterlink
   - oidenty
   - 'on'
   - osd
diff --git a/scripts/mkshorterlink.pl b/scripts/mkshorterlink.pl
deleted file mode 100644
index 6199608..0000000
--- a/scripts/mkshorterlink.pl
+++ /dev/null
@@ -1,219 +0,0 @@
-## mkshorterlink.pl -- Irssi interface for makeashorterlink.com
-## (C) 2002 Gergely Nagy <algernon@bonehunter.rulez.org>
-##
-## Released under the GPLv2.
-##
-## ChangeLog:
-## 0.1 -- Initial version
-## 0.2 -- Added support for ignoring URLs matching certain regexps.
-##        (Thanks to Ganneff for the idea)
-## 0.3 -- Added help messages.
-
-use Irssi qw();
-use LWP::UserAgent;
-use strict;
-use vars qw($VERSION %IRSSI);
-
-%IRSSI = (
-	  'authors'	=> 'Gergely Nagy',
-	  'contact'	=> 'algernon\@bonehunter.rulez.org',
-	  'name'	=> 'makeashorterlink.com interface',
-	  'description'	=> 'Automatically filters all http:// links through makeashorterlink.com',
-	  'license'	=> 'GPL',
-	  'url'		=> 'ftp://bonehunter.rulez.org/pub/irssi/mkshorterlink.pl',
-	  'changed'	=> '2002-12-20'
-	 );
-
-my %noshort;
-my %help = (
-	    "mkshorterlink" =>
-	      "mkshorterlink is an Irssi script that filters all " .
-	      "http:// links through makeshorterlink.com. " .
-	      "Available commands are: mkshorter, mkunshor, " .
-	      "mkununshort, and mkunshortlist.",
-
-	    "mkshort" => "MKSHORT <text>\n" .
-	      "Filters the URLs in <text> through makeashorterlink.com.",
-	    
-	    "mkunshort" => "MKUNSHORT <regexps>\n" .
-	      "All URLs matching any of the listed <regexps> will be " .
-	      "ignored, and not filtered through makeashorterlink.com.",
-
-	    "mkununshort" => "MKUNUNSHORT <regexp>\n" .
-	      "Reverses the effect of MKUNSHORT.",
-
-	    "mkunshortlist" => "MKUNSHORTLIST lists all the enabled regexps."
-	   );
-
-sub cmd_help {
-	my ($args, $server, $win) = @_;
-
-	my $topic = $args;
-	$topic =~s/^\s*(.*)\s+?$/$1/;
-	if (defined ($help{$topic}))
-	{
-		Irssi::signal_stop ();
-		Irssi::print ($help{$topic});
-		return;
-	}
-}
-
-sub makeshorter {
-	my $msg = $_[0];
-	my $ua = LWP::UserAgent->new (env_proxy => 1,
-				      keep_alive => 0,
-				      timeout => 10,
-				      agent => '');
-	my $response = $ua->post ("http://makeashorterlink.com/index.php",
-				  ['url' => "$msg"]);
-	if ($response->content =~ /Your shorter link is: <a href=\"([^\"]+)\"/) {
-		return $1;
-	} else {
-		return $msg;
-	}
-}
-
-sub mkshorter {
-	my $msg = $_[0];
-	my $short = 1;
-
-	foreach (keys %noshort)
-	{
-		$short = 0 if ($noshort{$_} && $msg =~ /$_/);
-	}
-	
-	if ($msg =~ /(https?:\/\/[^ ]+)/ && $short)
-	{
-		my $t = $1;
-		
-		if ($t =~ /([\.\?\!,] ?)$/)
-		{
-			$t=~s/$1//;
-		}
-		$msg =~ s/$t/&makeshorter($t)/e;
-	}
-	return $msg;
-}
-
-sub cmd_mkshorter {
-	my ($msg, undef, $channel) = @_;
-	my $public = 0;
-	
-	if ($msg =~ /^-p */)
-	{
-		$public = 1;
-		$msg =~ s/^-p *//;
-	}
-	
-	if (defined ($channel) && $channel && $public)
-	{
-		$channel->command("msg $channel->{'name'} " .
-				  mkshorter($msg));
-	} else {
-		Irssi::active_win()->printformat(MSGLEVEL_CLIENTCRAP,
-						 'mkshorterlink_crap',
-						 mkshorter ($msg));
-	}
-}
-
-sub sig_mkshorter {
-	my ($server, $msg, $nick, $address, $target) = @_;
-	$target = $nick if $target eq "";
-	$nick = $server->{'nick'} if $address eq "";
-	my $newmsg = mkshorter ($msg);
-
-	$server->window_item_find ($target)->print ("[mkshort] <$nick> " .
-						    $newmsg, MSGLEVEL_CRAP)
-	if ($newmsg ne $msg);
-}
-
-sub cmd_mkunshort {
-	my @params = split (" ", $_[0]);
-
-	foreach (@params)
-	{
-		$noshort{$_} = 1;
-	}
-}
-
-sub cmd_mkununshort {
-	my @params = split (" ", $_[0]);
-
-	foreach (@params)
-	{
-		$noshort{$_} = 0;
-	}
-}
-
-sub cmd_mkunshortlist {
-	Irssi::active_win()->printformat (MSGLEVEL_CLIENTCRAP,
-					  'mkshorterlink_crap',
-					  "URLs matching these are ignored: ");
-	foreach (keys %noshort)
-	{
-		Irssi::active_win()->printformat (MSGLEVEL_CLIENTCRAP,
-						  'mkshorterlink_crap',
-						  $_)
-		  if ($noshort{$_});
-	}
-}
-
-sub load_unshortlist {
-	my $file = Irssi::get_irssi_dir."/unshortlist";
-	my $count = 0;
-	local *CONF;
-	
-	open CONF, "<", $file;
-	while (<CONF>)
-	{
-		$noshort{$_} = 1;
-		$count++;
-	}
-	close CONF;
-	
-	Irssi::printformat (MSGLEVEL_CLIENTCRAP, 'mkshorterlink_crap',
-			    "Loaded $count ignore-regexps from $file.");
-}
-
-sub save_unshortlist {
-	my $file = Irssi::get_irssi_dir."/unshortlist";
-	local *CONF;
-
-	open CONF, ">", $file;
-	foreach (keys %noshort)
-	{
-		print CONF $_ if ($noshort{$_});
-	}
-	close CONF;
-
-	Irssi::printformat (MSGLEVEL_CLIENTCRAP, 'mkshorterlink_crap',
-			    "Saved ignore-regexps to $file.");
-}
-
-sub sig_setup_rered {
-	load_unshortlist ();
-}
-
-sub sig_setup_save {
-	save_unshortlist ();
-}
-
-Irssi::command_bind ('mkshorter', 'cmd_mkshorter');
-Irssi::command_bind ('mkunshort', 'cmd_mkunshort');
-Irssi::command_bind ('mkununshort', 'cmd_mkununshort');
-Irssi::command_bind ('mkunshortlist', 'cmd_mkunshortlist');
-Irssi::command_bind ('help', 'cmd_help');
-Irssi::signal_add_last ('message own_public', 'sig_mkshorter');
-Irssi::signal_add_last ('message public', 'sig_mkshorter');
-Irssi::signal_add_last ('message own_private', 'sig_mkshorter');
-Irssi::signal_add_last ('message private', 'sig_mkshorter');
-Irssi::signal_add ('setup reread', 'sig_setup_reread');
-Irssi::signal_add ('setup saved', 'sig_setup_save');
-
-Irssi::theme_register(
-		      [
-		        'mkshorterlink_crap',
-		        '{line_start}{hilight mkshorterlink:} $0'
-		      ]);
-
-load_unshortlist ();