eleksir/irssi-scripts
1
Fork 0
Code Activity

link_to_memc.pl: fix var name, now it _can_ add links :)

Browse Source 
link_to_memc.pl: now it can add all links in string
This commit is contained in:
eleksir
2018-04-28 15:34:11 +03:00
parent 9ce9552c8b
commit f4d783107c
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
web_link_saver/link_to_memc.pl
View File

@@ -10,32 +10,32 @@ use vars qw($VERSION %IRSSI);
sub hookfn;
$VERSION = '1.00a';
$VERSION = '1.01';
%IRSSI = (
authors => 'Eleksir',
contact => 'eleksir@exs-elm.ru',
name => 'Image link saver',
description => 'Saves image link to memcache',
license => 'BSD',
changed => 'Sun Mar 11 15:39 CET 2018',
changed => 'Sat Apr 28 15:25 CET 2018',
);
Irssi::signal_add_last("message public", "hookfn");
my $mc = '127.0.0.1:11211';
sub hookfn {
my ($a, $text, $b, $c) = @_;
my @words = split(/\s+/, $text);
foreach (@words) {
if ($_ =~ m{:?https?://([a-zA-Z0-9.-]+\.[a-zA-Z]+)/(?:.*)}) {
my $memd = new Cache::Memcached { 'servers' => [ "127.0.0.1:11211" ] };
$memd->set('irssi_' . md5_base64($str), $str);
foreach my $word (@words) {
if ($word =~ m{:?https?://([a-zA-Z0-9.-]+\.[a-zA-Z]+)/(?:.*)}) {
my $memd = new Cache::Memcached { 'servers' => [ $mc ] };
$memd->set(sprintf("irssi_%s", md5_base64($word)), $word);
$memd->disconnect_all;
last;
}
}
return;
}