lib/Shorturl_api.php

   1 <?php
   2 /*
   3  * Laconica - a distributed open-source microblogging tool
   4  * Copyright (C) 2008, Controlez-Vous, Inc.
   5  *
   6  * This program is free software: you can redistribute it and/or modify
   7  * it under the terms of the GNU Affero General Public License as published by
   8  * the Free Software Foundation, either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU Affero General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Affero General Public License
  17  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 if (!defined('LACONICA')) { exit(1); }
  21
  22 class ShortUrlApi {
  23     protected $service_url;
  24
  25     function __construct($service_url)
  26     {
  27         $this->service_url = $service_url;
  28     }
  29
  30     function shorten($url)
  31     {
  32         if ($this->is_long($url)) return $this->shorten_imp($url);
  33         return $url;
  34     }
  35
  36     protected function shorten_imp($url) {
  37         return "To Override";
  38     }
  39
  40     private function is_long($url) {
  41         return strlen($url) >= 30;
  42     }
  43
  44     protected function http_post($data) {
  45         $ch = curl_init();
  46         curl_setopt($ch, CURLOPT_URL, $this->service_url);
  47         curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
  48         curl_setopt($ch, CURLOPT_POST, 1);
  49         curl_setopt($ch, CURLOPT_POSTFIELDS, $data);
  50         $response = curl_exec($ch);
  51         $code = curl_getinfo($ch, CURLINFO_HTTP_CODE);
  52         curl_close($ch);
  53         if (($code < 200) || ($code >= 400)) return false;
  54         return $response;
  55     }
  56
  57     protected function http_get($url) {
  58         $encoded_url = urlencode($url);
  59         return file_get_contents("{$this->service_url}$encoded_url");
  60     }
  61
  62     protected function tidy($response) {
  63         $response = str_replace('&nbsp;', ' ', $response);
  64         $config = array('output-xhtml' => true);
  65         $tidy = new tidy;
  66         $tidy->parseString($response, $config, 'utf8');
  67         $tidy->cleanRepair();
  68         return (string)$tidy;
  69     }
  70 }
  71
  72 class LilUrl extends ShortUrlApi {
  73     function __construct()
  74     {
  75         parent::__construct('http://ur1.ca/');
  76     }
  77
  78     protected function shorten_imp($url) {
  79         $data['longurl'] = $url;
  80         $response = $this->http_post($data);
  81         if (!$response) return $url;
  82         $y = @simplexml_load_string($response);
  83         if (!isset($y->body)) return $url;
  84         $x = $y->body->p[0]->a->attributes();
  85         if (isset($x['href'])) return $x['href'];
  86         return $url;
  87     }
  88 }
  89
  90
  91 class PtitUrl extends ShortUrlApi {
  92     function __construct()
  93     {
  94         parent::__construct('http://ptiturl.com/?creer=oui&action=Reduire&url=');
  95     }
  96
  97     protected function shorten_imp($url) {
  98         $response = $this->http_get($url);
  99         if (!$response) return $url;
 100         $response = $this->tidy($response);
 101         $y = @simplexml_load_string($response);
 102         if (!isset($y->body)) return $url;
 103         $xml = $y->body->center->table->tr->td->pre->a->attributes();
 104         if (isset($xml['href'])) return $xml['href'];
 105         return $url;
 106     }
 107 }
 108
 109 class TightUrl extends ShortUrlApi {
 110     function __construct()
 111     {
 112         parent::__construct('http://2tu.us/?save=y&url=');
 113     }
 114
 115     protected function shorten_imp($url) {
 116         $response = $this->http_get($url);
 117         if (!$response) return $url;
 118         $response = $this->tidy($response);
 119         $y = @simplexml_load_string($response);
 120         if (!isset($y->body)) return $url;
 121         $xml = $y->body->p[0]->code[0]->a->attributes();
 122         if (isset($xml['href'])) return $xml['href'];
 123         return $url;
 124     }
 125 }
 126