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

---
 config-default/settings.xml | 5 +++--
 lib/ASM/Shortener.pm        | 4 +++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/config-default/settings.xml b/config-default/settings.xml
index 69f2f52..c9b84a0 100644
--- a/config-default/settings.xml
+++ b/config-default/settings.xml
@@ -29,8 +29,9 @@
     <groupfile>/var/www/.htgroup</groupfile>
     <userfile>/var/www/.htpasswd</userfile>
     <shortener>
-      <apikey>look.at.shortener.godaddy.com</apikey>
-      <domain></domain>
+      <apikey>yoursecretkey</apikey>
+      <domain>yourls.org</domain>
+      <secure>0</secure>
     </shortener>
   </web>
 </settings>
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