From adffe12768b78f2b69305a5532c883576d9756c0 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Sat, 16 Jul 2011 04:57:28 +0100
Subject: updated to add PM support, and build filenames more betterly

---
 longify/longify-urls.pl | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/longify/longify-urls.pl b/longify/longify-urls.pl
index 8b2691f..38e8ba8 100644
--- a/longify/longify-urls.pl
+++ b/longify/longify-urls.pl
@@ -87,6 +87,7 @@ use Data::Dumper;
 use IrssiX::Async qw(fork_off);
 use LWP::UserAgent;
 use URI;
+use File::Spec;
 
 our $VERSION = '0.1';
 our %IRSSI = (
@@ -106,7 +107,16 @@ my $domains;
 
 
 sub sig_public_message {
-    my ($server, $msg, @rest) = @_;
+    _handle_messages(@_);
+}
+
+sub sig_private_message {
+    _handle_messages(@_);
+}
+
+sub _handle_messages {
+
+    my $msg = $_[1];
 
     if ($flushing_message) { # don't interrupt it a second time.
         delete $pending_msg_params->{$flushing_message};
@@ -129,12 +139,6 @@ sub sig_public_message {
     Irssi::signal_stop;
 }
 
-sub sig_private_message {
-    my ($server, $msg, $nick, $addr, $target) = @_;
-
-}
-
-
 sub expand_url {
     my ($url) = @_;
     fork_off $url, \&expand_url_request, \&expand_url_callback;
@@ -235,7 +239,8 @@ sub match_uri {
 }
 
 sub cmd_reload {
-    my $filename = shift || Irssi::get_irssi_dir . '/longify-urls.list';
+    my $filename = shift 
+      || File::Spec->catfile(Irssi::get_irssi_dir, 'longify-urls.list');
     $domains = {};
     open my $fh, '<', $filename
       or die "Couldn't open file containing shorteners list $filename: $!";
-- 
cgit v1.2.3