From 141fc30c89eb8f5a7e638c0a8555f05bb8981bfb Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 5 May 2016 14:54:32 -0700
Subject: Use YOURLS shortening service rather than shortener.godaddy.com

---
 lib/ASM/Shortener.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/ASM/Shortener.pm b/lib/ASM/Shortener.pm
index cd3f32a..8ec7d42 100644
--- a/lib/ASM/Shortener.pm
+++ b/lib/ASM/Shortener.pm
@@ -18,9 +18,11 @@ sub shorturl
   }
   my $apikey = $::settings->{web}->{shortener}->{apikey};
   my $domain = $::settings->{web}->{shortener}->{domain};
+  my $secure = $::settings->{web}->{shortener}->{secure};
   my $ua = LWP::UserAgent->new;
   $ua->agent("AntiSpamMeta/13.37 ");
-  my $res = $ua->get('https://shortener.godaddy.com/v1/?apikey=' .$apikey . '&domain=' . $domain .'&url=' . uri_escape($url) );
+  my $res = $ua->get('http' . ($secure ? 's' : '') . '://' . $domain . '/yourls-api.php?' .
+                     'signature=' . $apikey . '&action=shorturl&format=simple&url=' . uri_escape($url) );
   if ($res->is_success) {
       return $res->content;
   }
-- 
cgit v1.2.3