eleksir/irssi-scripts
1
Fork 0
Code Activity

link_to_memc.pl: added "irssi_" suffix to memcache keys

Browse Source
This commit is contained in:
eleksir
2018-03-11 15:45:21 +03:00
parent a8ba6e97d6
commit 6fccf86181
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
web_link_saver/link_to_memc.pl
View File

@@ -10,14 +10,14 @@ use vars qw($VERSION %IRSSI);
sub hookfn;
$VERSION = '1.00';
$VERSION = '1.00a';
%IRSSI = (
authors => 'Eleksir',
contact => 'eleksir@exs-elm.ru',
name => 'Image link saver',
description => 'Saves image link to memcache',
license => 'Public Domain',
changed => 'Sun Oct 02 12:21 CET 2016',
license => 'BSD',
changed => 'Sun Mar 11 15:39 CET 2018',
);
@@ -30,7 +30,7 @@ sub hookfn {
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(md5_base64($str), $str);
$memd->set('irssi_' . md5_base64($str), $str);
$memd->disconnect_all;
last;
}