index.php

   1 <?php
   2 // Shaarli 0.0.38 beta - Shaare your links...
   3 // The personal, minimalist, super-fast, no-database delicious clone. By sebsauvage.net
   4 // http://sebsauvage.net/wiki/doku.php?id=php:shaarli
   5 // Licence: http://www.opensource.org/licenses/zlib-license.php
   6
   7 // Requires: php 5.1.x
   8 // (but autocomplete fields will only work if you have php 5.2.x)
   9 // -----------------------------------------------------------------------------------------------
  10 // User config:
  11 $GLOBALS['config']['DATADIR'] = 'data'; // Data subdirectory
  12 $GLOBALS['config']['CONFIG_FILE'] = $GLOBALS['config']['DATADIR'].'/config.php'; // Configuration file (user login/password)
  13 $GLOBALS['config']['DATASTORE'] = $GLOBALS['config']['DATADIR'].'/datastore.php'; // Data storage file.
  14 $GLOBALS['config']['LINKS_PER_PAGE'] = 20; // Default links per page.
  15 $GLOBALS['config']['IPBANS_FILENAME'] = $GLOBALS['config']['DATADIR'].'/ipbans.php'; // File storage for failures and bans.
  16 $GLOBALS['config']['BAN_AFTER'] = 4;        // Ban IP after this many failures.
  17 $GLOBALS['config']['BAN_DURATION'] = 1800;  // Ban duration for IP address after login failures (in seconds) (1800 sec. = 30 minutes)
  18 $GLOBALS['config']['OPEN_SHAARLI'] = false; // If true, anyone can add/edit/delete links without having to login
  19 $GLOBALS['config']['HIDE_TIMESTAMPS'] = false; // If true, the moment when links were saved are not shown to users that are not logged in.
  20 $GLOBALS['config']['ENABLE_THUMBNAILS'] = true; // Enable thumbnails in links.
  21 $GLOBALS['config']['CACHEDIR'] = 'cache'; // Cache directory for thumbnails for SLOW services (like flickr)
  22 $GLOBALS['config']['ENABLE_LOCALCACHE'] = true; // Enable Shaarli to store thumbnail in a local cache. Disable to reduce webspace usage.
  23 $GLOBALS['config']['PUBSUBHUB_URL'] = ''; // PubSubHubbub support. Put an empty string to disable, or put your hub url here to enable.
  24                                           // Note: You must have publisher.php in the same directory as Shaarli index.php
  25 // -----------------------------------------------------------------------------------------------
  26 // Program config (touch at your own risks !)
  27 $GLOBALS['config']['UPDATECHECK_FILENAME'] = $GLOBALS['config']['DATADIR'].'/lastupdatecheck.txt'; // For updates check of Shaarli.
  28 $GLOBALS['config']['UPDATECHECK_INTERVAL'] = 86400 ; // Updates check frequency for Shaarli. 86400 seconds=24 hours
  29 ini_set('max_input_time','60');  // High execution time in case of problematic imports/exports.
  30 ini_set('memory_limit', '128M');  // Try to set max upload file size and read (May not work on some hosts).
  31 ini_set('post_max_size', '16M');
  32 ini_set('upload_max_filesize', '16M');
  33 define('shaarli_version','0.0.38 beta');
  34 define('PHPPREFIX','<?php /* '); // Prefix to encapsulate data in php code.
  35 define('PHPSUFFIX',' */ ?>'); // Suffix to encapsulate data in php code.
  36 checkphpversion();
  37 error_reporting(E_ALL^E_WARNING);  // See all error except warnings.
  38 //error_reporting(-1); // See all errors (for debugging only)
  39
  40 include "inc/rain.tpl.class.php"; //include Rain TPL
  41 raintpl::$tpl_dir = "tpl/"; // template directory
  42 raintpl::$cache_dir = "tmp/"; // cache directory
  43
  44 ob_start();
  45
  46 // Optionnal config file.
  47 if (is_file($GLOBALS['config']['DATADIR'].'/options.php')) require($GLOBALS['config']['DATADIR'].'/options.php');
  48
  49 // In case stupid admin has left magic_quotes enabled in php.ini:
  50 if (get_magic_quotes_gpc())
  51 {
  52     function stripslashes_deep($value) { $value = is_array($value) ? array_map('stripslashes_deep', $value) : stripslashes($value); return $value; }
  53     $_POST = array_map('stripslashes_deep', $_POST);
  54     $_GET = array_map('stripslashes_deep', $_GET);
  55     $_COOKIE = array_map('stripslashes_deep', $_COOKIE);
  56 }
  57 // Prevent caching: (yes, it's ugly)
  58 header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
  59 header("Cache-Control: no-store, no-cache, must-revalidate");
  60 header("Cache-Control: post-check=0, pre-check=0", false);
  61 header("Pragma: no-cache");
  62 if (!is_dir($GLOBALS['config']['DATADIR'])) { mkdir($GLOBALS['config']['DATADIR'],0705); chmod($GLOBALS['config']['DATADIR'],0705); }
  63 if (!is_dir('tmp')) { mkdir('tmp',0705); chmod('tmp',0705); } // For RainTPL temporary files.
  64 if (!is_file($GLOBALS['config']['DATADIR'].'/.htaccess')) { file_put_contents($GLOBALS['config']['DATADIR'].'/.htaccess',"Allow from none\nDeny from all\n"); } // Protect data files.
  65 if ($GLOBALS['config']['ENABLE_LOCALCACHE'])
  66 {
  67     if (!is_dir($GLOBALS['config']['CACHEDIR'])) { mkdir($GLOBALS['config']['CACHEDIR'],0705); chmod($GLOBALS['config']['CACHEDIR'],0705); }
  68     if (!is_file($GLOBALS['config']['CACHEDIR'].'/.htaccess')) { file_put_contents($GLOBALS['config']['CACHEDIR'].'/.htaccess',"Allow from none\nDeny from all\n"); } // Protect data files.
  69 }
  70 if (!is_file($GLOBALS['config']['CONFIG_FILE'])) install();
  71 require $GLOBALS['config']['CONFIG_FILE'];  // Read login/password hash into $GLOBALS.
  72 // Small protection against dodgy config files:
  73 if (empty($GLOBALS['title'])) $GLOBALS['title']='Shared links on '.htmlspecialchars(indexUrl());
  74 if (empty($GLOBALS['timezone'])) $GLOBALS['timezone']=date_default_timezone_get();
  75 autoLocale(); // Sniff browser language and set date format accordingly.
  76 header('Content-Type: text/html; charset=utf-8'); // We use UTF-8 for proper international characters handling.
  77 $LINKSDB=false;
  78
  79 // Check php version
  80 function checkphpversion()
  81 {
  82     if (version_compare(PHP_VERSION, '5.1.0') < 0)
  83     {
  84         header('Content-Type: text/plain; charset=utf-8');
  85         echo 'Your server supports php '.PHP_VERSION.'. Shaarli requires at last php 5.1.0, and thus cannot run. Sorry.';
  86         exit;
  87     }
  88 }
  89
  90 // Checks if an update is available for Shaarli.
  91 // (at most once a day, and only for registered user.)
  92 // Output: '' = no new version.
  93 //         other= the available version.
  94 function checkUpdate()
  95 {
  96     if (!isLoggedIn()) return ''; // Do not check versions for visitors.
  97
  98     // Get latest version number at most once a day.
  99     if (!is_file($GLOBALS['config']['UPDATECHECK_FILENAME']) || (filemtime($GLOBALS['config']['UPDATECHECK_FILENAME'])<time()-($GLOBALS['config']['UPDATECHECK_INTERVAL'])))
 100     {
 101         $version=shaarli_version;
 102         list($httpstatus,$headers,$data) = getHTTP('http://sebsauvage.net/files/shaarli_version.txt',2);
 103         if (strpos($httpstatus,'200 OK')!==false) $version=$data;
 104         // If failed, nevermind. We don't want to bother the user with that.
 105         file_put_contents($GLOBALS['config']['UPDATECHECK_FILENAME'],$version); // touch file date
 106     }
 107     // Compare versions:
 108     $newestversion=file_get_contents($GLOBALS['config']['UPDATECHECK_FILENAME']);
 109     if (version_compare($newestversion,shaarli_version)==1) return $newestversion;
 110     return '';
 111 }
 112
 113 // -----------------------------------------------------------------------------------------------
 114 // Log to text file
 115 function logm($message)
 116 {
 117     $t = strval(date('Y/m/d_H:i:s')).' - '.$_SERVER["REMOTE_ADDR"].' - '.strval($message)."\n";
 118     file_put_contents($GLOBALS['config']['DATADIR'].'/log.txt',$t,FILE_APPEND);
 119 }
 120
 121 // Same as nl2br(), but escapes < and >
 122 function nl2br_escaped($html)
 123 {
 124     return str_replace('>','&gt;',str_replace('<','&lt;',nl2br($html)));
 125 }
 126
 127 /* Returns the small hash of a string
 128    eg. smallHash('20111006_131924') --> yZH23w
 129    Small hashes:
 130      - are unique (well, as unique as crc32, at last)
 131      - are always 6 characters long.
 132      - only use the following characters: a-z A-Z 0-9 - _ @
 133      - are NOT cryptographically secure (they CAN be forged)
 134    In Shaarli, they are used as a tinyurl-like link to individual entries.
 135 */
 136 function smallHash($text)
 137 {
 138     $t = rtrim(base64_encode(hash('crc32',$text,true)),'=');
 139     $t = str_replace('+','-',$t); // Get rid of characters which need encoding in URLs.
 140     $t = str_replace('/','_',$t);
 141     $t = str_replace('=','@',$t);
 142     return $t;
 143 }
 144
 145 // In a string, converts urls to clickable links.
 146 // Function inspired from http://www.php.net/manual/en/function.preg-replace.php#85722
 147 function text2clickable($url)
 148 {
 149     $redir = empty($GLOBALS['redirector']) ? '' : $GLOBALS['redirector'];
 150     return preg_replace('!(((?:https?|ftp|file)://|apt:)\S+[[:alnum:]]/?)!si','<a href="'.$redir.'$1" rel="nofollow">$1</a>',$url);
 151 }
 152
 153 // This function inserts &nbsp; where relevant so that multiple spaces are properly displayed in HTML
 154 // even in the absence of <pre>  (This is used in description to keep text formatting)
 155 function keepMultipleSpaces($text)
 156 {
 157     return str_replace('  ',' &nbsp;',$text);
 158
 159 }
 160 // ------------------------------------------------------------------------------------------
 161 // Sniff browser language to display dates in the right format automatically.
 162 // (Note that is may not work on your server if the corresponding local is not installed.)
 163 function autoLocale()
 164 {
 165     $loc='en_US'; // Default if browser does not send HTTP_ACCEPT_LANGUAGE
 166     if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) // eg. "fr,fr-fr;q=0.8,en;q=0.5,en-us;q=0.3"
 167     {   // (It's a bit crude, but it works very well. Prefered language is always presented first.)
 168         if (preg_match('/([a-z]{2}(-[a-z]{2})?)/i',$_SERVER['HTTP_ACCEPT_LANGUAGE'],$matches)) $loc=$matches[1];
 169     }
 170     setlocale(LC_TIME,$loc);  // LC_TIME = Set local for date/time format only.
 171 }
 172
 173 // ------------------------------------------------------------------------------------------
 174 // PubSubHubbub protocol support (if enabled)  [UNTESTED]
 175 // (Source: http://aldarone.fr/les-flux-rss-shaarli-et-pubsubhubbub/ )
 176 if (!empty($GLOBALS['config']['PUBSUBHUB_URL'])) include './publisher.php';
 177 function pubsubhub()
 178 {
 179     if (!empty($GLOBALS['config']['PUBSUBHUB_URL']))
 180     {
 181        $p = new Publisher($GLOBALS['config']['PUBSUBHUB_URL']);
 182        $topic_url = array (
 183                        indexUrl().'?do=atom',
 184                        indexUrl().'?do=rss'
 185                     );
 186        $p->publish_update($topic_url);
 187     }
 188 }
 189
 190 // ------------------------------------------------------------------------------------------
 191 // Session management
 192 define('INACTIVITY_TIMEOUT',3600); // (in seconds). If the user does not access any page within this time, his/her session is considered expired.
 193 ini_set('session.use_cookies', 1);       // Use cookies to store session.
 194 ini_set('session.use_only_cookies', 1);  // Force cookies for session (phpsessionID forbidden in URL)
 195 ini_set('session.use_trans_sid', false); // Prevent php to use sessionID in URL if cookies are disabled.
 196 session_name('shaarli');
 197 session_start();
 198
 199 // Returns the IP address of the client (Used to prevent session cookie hijacking.)
 200 function allIPs()
 201 {
 202     $ip = $_SERVER["REMOTE_ADDR"];
 203     // Then we use more HTTP headers to prevent session hijacking from users behind the same proxy.
 204     if (isset($_SERVER['HTTP_X_FORWARDED_FOR'])) { $ip=$ip.'_'.$_SERVER['HTTP_X_FORWARDED_FOR']; }
 205     if (isset($_SERVER['HTTP_CLIENT_IP'])) { $ip=$ip.'_'.$_SERVER['HTTP_CLIENT_IP']; }
 206     return $ip;
 207 }
 208
 209 // Check that user/password is correct.
 210 function check_auth($login,$password)
 211 {
 212     $hash = sha1($password.$login.$GLOBALS['salt']);
 213     if ($login==$GLOBALS['login'] && $hash==$GLOBALS['hash'])
 214     {   // Login/password is correct.
 215         $_SESSION['uid'] = sha1(uniqid('',true).'_'.mt_rand()); // generate unique random number (different than phpsessionid)
 216         $_SESSION['ip']=allIPs();                // We store IP address(es) of the client to make sure session is not hijacked.
 217         $_SESSION['username']=$login;
 218         $_SESSION['expires_on']=time()+INACTIVITY_TIMEOUT;  // Set session expiration.
 219         logm('Login successful');
 220         return True;
 221     }
 222     logm('Login failed for user '.$login);
 223     return False;
 224 }
 225
 226 // Returns true if the user is logged in.
 227 function isLoggedIn()
 228 {
 229     if ($GLOBALS['config']['OPEN_SHAARLI']) return true;
 230
 231     // If session does not exist on server side, or IP address has changed, or session has expired, logout.
 232     if (empty($_SESSION['uid']) || $_SESSION['ip']!=allIPs() || time()>=$_SESSION['expires_on'])
 233     {
 234         logout();
 235         return false;
 236     }
 237     if (!empty($_SESSION['longlastingsession']))  $_SESSION['expires_on']=time()+$_SESSION['longlastingsession']; // In case of "Stay signed in" checked.
 238     else $_SESSION['expires_on']=time()+INACTIVITY_TIMEOUT; // Standard session expiration date.
 239
 240     return true;
 241 }
 242
 243 // Force logout.
 244 function logout() { if (isset($_SESSION)) { unset($_SESSION['uid']); unset($_SESSION['ip']); unset($_SESSION['username']);}  }
 245
 246
 247 // ------------------------------------------------------------------------------------------
 248 // Brute force protection system
 249 // Several consecutive failed logins will ban the IP address for 30 minutes.
 250 if (!is_file($GLOBALS['config']['IPBANS_FILENAME'])) file_put_contents($GLOBALS['config']['IPBANS_FILENAME'], "<?php\n\$GLOBALS['IPBANS']=".var_export(array('FAILURES'=>array(),'BANS'=>array()),true).";\n?>");
 251 include $GLOBALS['config']['IPBANS_FILENAME'];
 252 // Signal a failed login. Will ban the IP if too many failures:
 253 function ban_loginFailed()
 254 {
 255     $ip=$_SERVER["REMOTE_ADDR"]; $gb=$GLOBALS['IPBANS'];
 256     if (!isset($gb['FAILURES'][$ip])) $gb['FAILURES'][$ip]=0;
 257     $gb['FAILURES'][$ip]++;
 258     if ($gb['FAILURES'][$ip]>($GLOBALS['config']['BAN_AFTER']-1))
 259     {
 260         $gb['BANS'][$ip]=time()+$GLOBALS['config']['BAN_DURATION'];
 261         logm('IP address banned from login');
 262     }
 263     $GLOBALS['IPBANS'] = $gb;
 264     file_put_contents($GLOBALS['config']['IPBANS_FILENAME'], "<?php\n\$GLOBALS['IPBANS']=".var_export($gb,true).";\n?>");
 265 }
 266
 267 // Signals a successful login. Resets failed login counter.
 268 function ban_loginOk()
 269 {
 270     $ip=$_SERVER["REMOTE_ADDR"]; $gb=$GLOBALS['IPBANS'];
 271     unset($gb['FAILURES'][$ip]); unset($gb['BANS'][$ip]);
 272     $GLOBALS['IPBANS'] = $gb;
 273     file_put_contents($GLOBALS['config']['IPBANS_FILENAME'], "<?php\n\$GLOBALS['IPBANS']=".var_export($gb,true).";\n?>");
 274 }
 275
 276 // Checks if the user CAN login. If 'true', the user can try to login.
 277 function ban_canLogin()
 278 {
 279     $ip=$_SERVER["REMOTE_ADDR"]; $gb=$GLOBALS['IPBANS'];
 280     if (isset($gb['BANS'][$ip]))
 281     {
 282         // User is banned. Check if the ban has expired:
 283         if ($gb['BANS'][$ip]<=time())
 284         {   // Ban expired, user can try to login again.
 285             logm('Ban lifted.');
 286             unset($gb['FAILURES'][$ip]); unset($gb['BANS'][$ip]);
 287             file_put_contents($GLOBALS['config']['IPBANS_FILENAME'], "<?php\n\$GLOBALS['IPBANS']=".var_export($gb,true).";\n?>");
 288             return true; // Ban has expired, user can login.
 289         }
 290         return false; // User is banned.
 291     }
 292     return true; // User is not banned.
 293 }
 294
 295 // ------------------------------------------------------------------------------------------
 296 // Process login form: Check if login/password is correct.
 297 if (isset($_POST['login']))
 298 {
 299     if (!ban_canLogin()) die('I said: NO. You are banned for the moment. Go away.');
 300     if (isset($_POST['password']) && tokenOk($_POST['token']) && (check_auth($_POST['login'], $_POST['password'])))
 301     {   // Login/password is ok.
 302         ban_loginOk();
 303         // If user wants to keep the session cookie even after the browser closes:
 304         if (!empty($_POST['longlastingsession']))
 305         {
 306             $_SESSION['longlastingsession']=31536000;  // (31536000 seconds = 1 year)
 307             $_SESSION['expires_on']=time()+$_SESSION['longlastingsession'];  // Set session expiration on server-side.
 308             session_set_cookie_params($_SESSION['longlastingsession']); // Set session cookie expiration on client side
 309             session_regenerate_id(true);  // Send cookie with new expiration date to browser.
 310         }
 311         else // Standard session expiration (=when browser closes)
 312         {
 313             session_set_cookie_params(0); // 0 means "When browser closes"
 314             session_regenerate_id(true);
 315         }
 316         // Optional redirect after login:
 317         if (isset($_GET['post'])) { header('Location: ?post='.urlencode($_GET['post']).(!empty($_GET['title'])?'&title='.urlencode($_GET['title']):'').(!empty($_GET['source'])?'&source='.urlencode($_GET['source']):'')); exit; }
 318         if (isset($_POST['returnurl']))
 319         {
 320             if (endsWith($_POST['returnurl'],'?do=login')) { header('Location: ?'); exit; } // Prevent loops over login screen.
 321             header('Location: '.$_POST['returnurl']); exit;
 322         }
 323         header('Location: ?'); exit;
 324     }
 325     else
 326     {
 327         ban_loginFailed();
 328         echo '<script language="JavaScript">alert("Wrong login/password.");document.location=\'?do=login\';</script>'; // Redirect to login screen.
 329         exit;
 330     }
 331 }
 332
 333 // ------------------------------------------------------------------------------------------
 334 // Misc utility functions:
 335
 336 // Returns the server URL (including port and http/https), without path.
 337 // eg. "http://myserver.com:8080"
 338 // You can append $_SERVER['SCRIPT_NAME'] to get the current script URL.
 339 function serverUrl()
 340 {
 341         $https = (!empty($_SERVER['HTTPS']) && (strtolower($_SERVER['HTTPS'])=='on')) || $_SERVER["SERVER_PORT"]=='443'; // HTTPS detection.
 342         $serverport = ($_SERVER["SERVER_PORT"]=='80' || ($https && $_SERVER["SERVER_PORT"]=='443') ? '' : ':'.$_SERVER["SERVER_PORT"]);
 343         return 'http'.($https?'s':'').'://'.$_SERVER["SERVER_NAME"].$serverport;
 344 }
 345
 346 // Returns the absolute URL of current script.
 347 function indexUrl()
 348 {
 349         return serverUrl() . ($_SERVER["SCRIPT_NAME"] == '/index.php' ? '/' : $_SERVER["SCRIPT_NAME"]);
 350 }
 351
 352 // Convert post_max_size/upload_max_filesize (eg.'16M') parameters to bytes.
 353 function return_bytes($val)
 354 {
 355     $val = trim($val); $last=strtolower($val[strlen($val)-1]);
 356     switch($last)
 357     {
 358         case 'g': $val *= 1024;
 359         case 'm': $val *= 1024;
 360         case 'k': $val *= 1024;
 361     }
 362     return $val;
 363 }
 364
 365 // Try to determine max file size for uploads (POST).
 366 // Returns an integer (in bytes)
 367 function getMaxFileSize()
 368 {
 369     $size1 = return_bytes(ini_get('post_max_size'));
 370     $size2 = return_bytes(ini_get('upload_max_filesize'));
 371     // Return the smaller of two:
 372     $maxsize = min($size1,$size2);
 373     // FIXME: Then convert back to readable notations ? (eg. 2M instead of 2000000)
 374     return $maxsize;
 375 }
 376
 377 // Tells if a string start with a substring or not.
 378 function startsWith($haystack,$needle,$case=true)
 379 {
 380     if($case){return (strcmp(substr($haystack, 0, strlen($needle)),$needle)===0);}
 381     return (strcasecmp(substr($haystack, 0, strlen($needle)),$needle)===0);
 382 }
 383
 384 // Tells if a string ends with a substring or not.
 385 function endsWith($haystack,$needle,$case=true)
 386 {
 387     if($case){return (strcmp(substr($haystack, strlen($haystack) - strlen($needle)),$needle)===0);}
 388     return (strcasecmp(substr($haystack, strlen($haystack) - strlen($needle)),$needle)===0);
 389 }
 390
 391 /*  Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a timestamp (Unix epoch)
 392     (used to build the ADD_DATE attribute in Netscape-bookmarks file)
 393     PS: I could have used strptime(), but it does not exist on Windows. I'm too kind. */
 394 function linkdate2timestamp($linkdate)
 395 {
 396     $Y=$M=$D=$h=$m=$s=0;
 397     $r = sscanf($linkdate,'%4d%2d%2d_%2d%2d%2d',$Y,$M,$D,$h,$m,$s);
 398     return mktime($h,$m,$s,$M,$D,$Y);
 399 }
 400
 401 /*  Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a RFC822 date.
 402     (used to build the pubDate attribute in RSS feed.)  */
 403 function linkdate2rfc822($linkdate)
 404 {
 405     return date('r',linkdate2timestamp($linkdate)); // 'r' is for RFC822 date format.
 406 }
 407
 408 /*  Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a ISO 8601 date.
 409     (used to build the updated tags in ATOM feed.)  */
 410 function linkdate2iso8601($linkdate)
 411 {
 412     return date('c',linkdate2timestamp($linkdate)); // 'c' is for ISO 8601 date format.
 413 }
 414
 415 /*  Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a localized date format.
 416     (used to display link date on screen)
 417     The date format is automatically chosen according to locale/languages sniffed from browser headers (see autoLocale()). */
 418 function linkdate2locale($linkdate)
 419 {
 420     return utf8_encode(strftime('%c',linkdate2timestamp($linkdate))); // %c is for automatic date format according to locale.
 421     // Note that if you use a local which is not installed on your webserver,
 422     // the date will not be displayed in the chosen locale, but probably in US notation.
 423 }
 424
 425 // Parse HTTP response headers and return an associative array.
 426 function http_parse_headers_shaarli( $headers )
 427 {
 428     $res=array();
 429     foreach($headers as $header)
 430     {
 431         $i = strpos($header,': ');
 432         if ($i!==false)
 433         {
 434             $key=substr($header,0,$i);
 435             $value=substr($header,$i+2,strlen($header)-$i-2);
 436             $res[$key]=$value;
 437         }
 438     }
 439     return $res;
 440 }
 441
 442 /* GET an URL.
 443    Input: $url : url to get (http://...)
 444           $timeout : Network timeout (will wait this many seconds for an anwser before giving up).
 445    Output: An array.  [0] = HTTP status message (eg. "HTTP/1.1 200 OK") or error message
 446                       [1] = associative array containing HTTP response headers (eg. echo getHTTP($url)[1]['Content-Type'])
 447                       [2] = data
 448     Example: list($httpstatus,$headers,$data) = getHTTP('http://sebauvage.net/');
 449              if (strpos($httpstatus,'200 OK')!==false)
 450                  echo 'Data type: '.htmlspecialchars($headers['Content-Type']);
 451              else
 452                  echo 'There was an error: '.htmlspecialchars($httpstatus)
 453 */
 454 function getHTTP($url,$timeout=30)
 455 {
 456     try
 457     {
 458         $options = array('http'=>array('method'=>'GET','timeout' => $timeout)); // Force network timeout
 459         $context = stream_context_create($options);
 460         $data=file_get_contents($url,false,$context,-1, 4000000); // We download at most 4 Mb from source.
 461         if (!$data) { $lasterror=error_get_last();  return array($lasterror['message'],array(),''); }
 462         $httpStatus=$http_response_header[0]; // eg. "HTTP/1.1 200 OK"
 463         $responseHeaders=http_parse_headers_shaarli($http_response_header);
 464         return array($httpStatus,$responseHeaders,$data);
 465     }
 466     catch (Exception $e)  // getHTTP *can* fail silentely (we don't care if the title cannot be fetched)
 467     {
 468         return array($e->getMessage(),'','');
 469     }
 470 }
 471
 472 // Extract title from an HTML document.
 473 // (Returns an empty string if not found.)
 474 function html_extract_title($html)
 475 {
 476   return preg_match('!<title>(.*?)</title>!is', $html, $matches) ? trim(str_replace("\n",' ', $matches[1])) : '' ;
 477 }
 478
 479 // ------------------------------------------------------------------------------------------
 480 // Token management for XSRF protection
 481 // Token should be used in any form which acts on data (create,update,delete,import...).
 482 if (!isset($_SESSION['tokens'])) $_SESSION['tokens']=array();  // Token are attached to the session.
 483
 484 // Returns a token.
 485 function getToken()
 486 {
 487     $rnd = sha1(uniqid('',true).'_'.mt_rand());  // We generate a random string.
 488     $_SESSION['tokens'][$rnd]=1;  // Store it on the server side.
 489     return $rnd;
 490 }
 491
 492 // Tells if a token is ok. Using this function will destroy the token.
 493 // true=token is ok.
 494 function tokenOk($token)
 495 {
 496     if (isset($_SESSION['tokens'][$token]))
 497     {
 498         unset($_SESSION['tokens'][$token]); // Token is used: destroy it.
 499         return true; // Token is ok.
 500     }
 501     return false; // Wrong token, or already used.
 502 }
 503
 504 // ------------------------------------------------------------------------------------------
 505 /* This class is in charge of building the final page.
 506    (This is basically a wrapper around RainTPL which pre-fills some fields.)
 507    p = new pageBuilder;
 508    p.assign('myfield','myvalue');
 509    p.renderPage('mytemplate');
 510
 511 */
 512 class pageBuilder
 513 {
 514     private $tpl; // RainTPL template
 515     function __construct()
 516     {
 517         $this->tpl=false;
 518     }
 519
 520     private function initialize()
 521     {
 522         global $LINKSDB;
 523         $this->tpl = new RainTPL;
 524         $this->tpl->assign('newversion',checkUpdate());
 525         $this->tpl->assign('linkcount',count($LINKSDB));
 526         $this->tpl->assign('feedurl',htmlspecialchars(indexUrl()));
 527         $searchcrits=''; // Search criteria
 528         if (!empty($_GET['searchtags'])) $searchcrits.='&searchtags='.urlencode($_GET['searchtags']);
 529         elseif (!empty($_GET['searchterm'])) $searchcrits.='&searchterm='.urlencode($_GET['searchterm']);
 530         $this->tpl->assign('searchcrits',$searchcrits);
 531         $this->tpl->assign('source',indexUrl());
 532         $this->tpl->assign('version',shaarli_version);
 533         $this->tpl->assign('scripturl',indexUrl());
 534         $this->tpl->assign('pagetitle','Shaarli');
 535         $this->tpl->assign('privateonly',!empty($_SESSION['privateonly'])); // Show only private links ?
 536         if (!empty($GLOBALS['title'])) $this->tpl->assign('pagetitle',$GLOBALS['title']);
 537         if (!empty($GLOBALS['pagetitle'])) $this->tpl->assign('pagetitle',$GLOBALS['pagetitle']);
 538         $this->tpl->assign('shaarlititle',empty($GLOBALS['title']) ? 'Shaarli': $GLOBALS['title'] );
 539         return;
 540     }
 541
 542     // The following assign() method is basically the same as RainTPL (except that it's lazy)
 543     public function assign($what,$where)
 544     {
 545         if ($this->tpl===false) $this->initialize(); // Lazy initialization
 546         $this->tpl->assign($what,$where);
 547     }
 548
 549     // Render a specific page (using a template).
 550     // eg. pb.renderPage('picwall')
 551     public function renderPage($page)
 552     {
 553         if ($this->tpl===false) $this->initialize(); // Lazy initialization
 554         $this->tpl->draw($page);
 555     }
 556 }
 557
 558 // ------------------------------------------------------------------------------------------
 559 /* Data storage for links.
 560    This object behaves like an associative array.
 561    Example:
 562       $mylinks = new linkdb();
 563       echo $mylinks['20110826_161819']['title'];
 564       foreach($mylinks as $link)
 565          echo $link['title'].' at url '.$link['url'].' ; description:'.$link['description'];
 566
 567    Available keys:
 568        title : Title of the link
 569        url : URL of the link. Can be absolute or relative. Relative URLs are permalinks (eg.'?m-ukcw')
 570        description : description of the entry
 571        private : Is this link private ? 0=no, other value=yes
 572        linkdate : date of the creation of this entry, in the form YYYYMMDD_HHMMSS (eg.'20110914_192317')
 573        tags : tags attached to this entry (separated by spaces)
 574
 575    We implement 3 interfaces:
 576      - ArrayAccess so that this object behaves like an associative array.
 577      - Iterator so that this object can be used in foreach() loops.
 578      - Countable interface so that we can do a count() on this object.
 579 */
 580 class linkdb implements Iterator, Countable, ArrayAccess
 581 {
 582     private $links; // List of links (associative array. Key=linkdate (eg. "20110823_124546"), value= associative array (keys:title,description...)
 583     private $urls;  // List of all recorded URLs (key=url, value=linkdate) for fast reserve search (url-->linkdate)
 584     private $keys;  // List of linkdate keys (for the Iterator interface implementation)
 585     private $position; // Position in the $this->keys array. (for the Iterator interface implementation.)
 586     private $loggedin; // Is the used logged in ? (used to filter private links)
 587
 588     // Constructor:
 589     function __construct($isLoggedIn)
 590     // Input : $isLoggedIn : is the used logged in ?
 591     {
 592         $this->loggedin = $isLoggedIn;
 593         $this->checkdb(); // Make sure data file exists.
 594         $this->readdb();  // Then read it.
 595     }
 596
 597     // ---- Countable interface implementation
 598     public function count() { return count($this->links); }
 599
 600     // ---- ArrayAccess interface implementation
 601     public function offsetSet($offset, $value)
 602     {
 603         if (!$this->loggedin) die('You are not authorized to add a link.');
 604         if (empty($value['linkdate']) || empty($value['url'])) die('Internal Error: A link should always have a linkdate and url.');
 605         if (empty($offset)) die('You must specify a key.');
 606         $this->links[$offset] = $value;
 607         $this->urls[$value['url']]=$offset;
 608     }
 609     public function offsetExists($offset) { return array_key_exists($offset,$this->links); }
 610     public function offsetUnset($offset)
 611     {
 612         if (!$this->loggedin) die('You are not authorized to delete a link.');
 613         $url = $this->links[$offset]['url']; unset($this->urls[$url]);
 614         unset($this->links[$offset]);
 615     }
 616     public function offsetGet($offset) { return isset($this->links[$offset]) ? $this->links[$offset] : null; }
 617
 618     // ---- Iterator interface implementation
 619     function rewind() { $this->keys=array_keys($this->links); rsort($this->keys); $this->position=0; } // Start over for iteration, ordered by date (latest first).
 620     function key() { return $this->keys[$this->position]; } // current key
 621     function current() { return $this->links[$this->keys[$this->position]]; } // current value
 622     function next() { ++$this->position; } // go to next item
 623     function valid() { return isset($this->keys[$this->position]); }    // Check if current position is valid.
 624
 625     // ---- Misc methods
 626     private function checkdb() // Check if db directory and file exists.
 627     {
 628         if (!file_exists($GLOBALS['config']['DATASTORE'])) // Create a dummy database for example.
 629         {
 630              $this->links = array();
 631              $link = array('title'=>'Shaarli - sebsauvage.net','url'=>'http://sebsauvage.net/wiki/doku.php?id=php:shaarli','description'=>'Welcome to Shaarli ! This is a bookmark. To edit or delete me, you must first login.','private'=>0,'linkdate'=>'20110914_190000','tags'=>'opensource software');
 632              $this->links[$link['linkdate']] = $link;
 633              $link = array('title'=>'My secret stuff... - Pastebin.com','url'=>'http://pastebin.com/smCEEeSn','description'=>'SShhhh!!  I\'m a private link only YOU can see. You can delete me too.','private'=>1,'linkdate'=>'20110914_074522','tags'=>'secretstuff');
 634              $this->links[$link['linkdate']] = $link;
 635              file_put_contents($GLOBALS['config']['DATASTORE'], PHPPREFIX.base64_encode(gzdeflate(serialize($this->links))).PHPSUFFIX); // Write database to disk
 636         }
 637     }
 638
 639     // Read database from disk to memory
 640     private function readdb()
 641     {
 642         // Read data
 643         $this->links=(file_exists($GLOBALS['config']['DATASTORE']) ? unserialize(gzinflate(base64_decode(substr(file_get_contents($GLOBALS['config']['DATASTORE']),strlen(PHPPREFIX),-strlen(PHPSUFFIX))))) : array() );
 644         // Note that gzinflate is faster than gzuncompress. See: http://www.php.net/manual/en/function.gzdeflate.php#96439
 645
 646         // If user is not logged in, filter private links.
 647         if (!$this->loggedin)
 648         {
 649             $toremove=array();
 650             foreach($this->links as $link) { if ($link['private']!=0) $toremove[]=$link['linkdate']; }
 651             foreach($toremove as $linkdate) { unset($this->links[$linkdate]); }
 652         }
 653
 654         // Keep the list of the mapping URLs-->linkdate up-to-date.
 655         $this->urls=array();
 656         foreach($this->links as $link) { $this->urls[$link['url']]=$link['linkdate']; }
 657     }
 658
 659     // Save database from memory to disk.
 660     public function savedb()
 661     {
 662         if (!$this->loggedin) die('You are not authorized to change the database.');
 663         file_put_contents($GLOBALS['config']['DATASTORE'], PHPPREFIX.base64_encode(gzdeflate(serialize($this->links))).PHPSUFFIX);
 664     }
 665
 666     // Returns the link for a given URL (if it exists). false it does not exist.
 667     public function getLinkFromUrl($url)
 668     {
 669         if (isset($this->urls[$url])) return $this->links[$this->urls[$url]];
 670         return false;
 671     }
 672
 673     // Case insentitive search among links (in url, title and description). Returns filtered list of links.
 674     // eg. print_r($mydb->filterFulltext('hollandais'));
 675     public function filterFulltext($searchterms)
 676     {
 677         // FIXME: explode(' ',$searchterms) and perform a AND search.
 678         // FIXME: accept double-quotes to search for a string "as is" ?
 679         $filtered=array();
 680         $s = strtolower($searchterms);
 681         foreach($this->links as $l)
 682         {
 683             $found=   (strpos(strtolower($l['title']),$s)!==false)
 684                    || (strpos(strtolower($l['description']),$s)!==false)
 685                    || (strpos(strtolower($l['url']),$s)!==false)
 686                    || (strpos(strtolower($l['tags']),$s)!==false);
 687             if ($found) $filtered[$l['linkdate']] = $l;
 688         }
 689         krsort($filtered);
 690         return $filtered;
 691     }
 692
 693     // Filter by tag.
 694     // You can specify one or more tags (tags can be separated by space or comma).
 695     // eg. print_r($mydb->filterTags('linux programming'));
 696     public function filterTags($tags,$casesensitive=false)
 697     {
 698         $t = str_replace(',',' ',($casesensitive?$tags:strtolower($tags)));
 699         $searchtags=explode(' ',$t);
 700         $filtered=array();
 701         foreach($this->links as $l)
 702         {
 703             $linktags = explode(' ',($casesensitive?$l['tags']:strtolower($l['tags'])));
 704             if (count(array_intersect($linktags,$searchtags)) == count($searchtags))
 705                 $filtered[$l['linkdate']] = $l;
 706         }
 707         krsort($filtered);
 708         return $filtered;
 709     }
 710
 711     // Filter by day. Day must be in the form 'YYYYMMDD' (eg. '20120125')
 712     // Sort order is: older articles first.
 713     // eg. print_r($mydb->filterDay('20120125'));
 714     public function filterDay($day)
 715     {
 716         $filtered=array();
 717         foreach($this->links as $l)
 718         {
 719             if (startsWith($l['linkdate'],$day)) $filtered[$l['linkdate']] = $l;
 720         }
 721         ksort($filtered);
 722         return $filtered;
 723     }
 724     // Filter by smallHash.
 725     // Only 1 article is returned.
 726     public function filterSmallHash($smallHash)
 727     {
 728         $filtered=array();
 729         foreach($this->links as $l)
 730         {
 731             if ($smallHash==smallHash($l['linkdate'])) // Yes, this is ugly and slow
 732             {
 733                 $filtered[$l['linkdate']] = $l;
 734                 return $filtered;
 735             }
 736         }
 737         return $filtered;
 738     }
 739
 740     // Returns the list of all tags
 741     // Output: associative array key=tags, value=0
 742     public function allTags()
 743     {
 744         $tags=array();
 745         foreach($this->links as $link)
 746             foreach(explode(' ',$link['tags']) as $tag)
 747                 if (!empty($tag)) $tags[$tag]=(empty($tags[$tag]) ? 1 : $tags[$tag]+1);
 748         arsort($tags); // Sort tags by usage (most used tag first)
 749         return $tags;
 750     }
 751
 752     // Returns the list of days containing articles (oldest first)
 753     // Output: An array containing days (in format YYYYMMDD).
 754     public function days()
 755     {
 756         $linkdays=array();
 757         foreach(array_keys($this->links) as $day)
 758         {
 759             $linkdays[substr($day,0,8)]=0;
 760         }
 761         $linkdays=array_keys($linkdays);
 762         sort($linkdays);
 763         return $linkdays;
 764     }
 765 }
 766
 767 // ------------------------------------------------------------------------------------------
 768 // Ouput the last 50 links in RSS 2.0 format.
 769 function showRSS()
 770 {
 771     global $LINKSDB;
 772
 773     // Optionnaly filter the results:
 774     $linksToDisplay=array();
 775     if (!empty($_GET['searchterm'])) $linksToDisplay = $LINKSDB->filterFulltext($_GET['searchterm']);
 776     elseif (!empty($_GET['searchtags']))   $linksToDisplay = $LINKSDB->filterTags(trim($_GET['searchtags']));
 777     else $linksToDisplay = $LINKSDB;
 778
 779     header('Content-Type: application/rss+xml; charset=utf-8');
 780     $pageaddr=htmlspecialchars(indexUrl());
 781     echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">';
 782     echo '<channel><title>'.htmlspecialchars($GLOBALS['title']).'</title><link>'.$pageaddr.'</link>';
 783     echo '<description>Shared links</description><language>en-en</language><copyright>'.$pageaddr.'</copyright>'."\n\n";
 784     if (!empty($GLOBALS['config']['PUBSUBHUB_URL']))
 785     {
 786         echo '<!-- PubSubHubbub Discovery -->';
 787         echo '<link rel="hub" href="'.htmlspecialchars($GLOBALS['config']['PUBSUBHUB_URL']).'" xmlns="http://www.w3.org/2005/Atom" />';
 788         echo '<link rel="self" href="'.htmlspecialchars($pageaddr).'?do=rss" xmlns="http://www.w3.org/2005/Atom" />';
 789         echo '<!-- End Of PubSubHubbub Discovery -->';
 790     }
 791     $i=0;
 792     $keys=array(); foreach($linksToDisplay as $key=>$value) { $keys[]=$key; }  // No, I can't use array_keys().
 793     while ($i<50 && $i<count($keys))
 794     {
 795         $link = $linksToDisplay[$keys[$i]];
 796         $guid = $pageaddr.'?'.smallHash($link['linkdate']);
 797         $rfc822date = linkdate2rfc822($link['linkdate']);
 798         $absurl = htmlspecialchars($link['url']);
 799         if (startsWith($absurl,'?')) $absurl=$pageaddr.$absurl;  // make permalink URL absolute
 800         echo '<item><title>'.htmlspecialchars($link['title']).'</title><guid>'.$guid.'</guid><link>'.$absurl.'</link>';
 801         if (!$GLOBALS['config']['HIDE_TIMESTAMPS'] || isLoggedIn()) echo '<pubDate>'.htmlspecialchars($rfc822date)."</pubDate>\n";
 802         if ($link['tags']!='') // Adding tags to each RSS entry (as mentioned in RSS specification)
 803         {
 804             foreach(explode(' ',$link['tags']) as $tag) { echo '<category domain="'.htmlspecialchars($pageaddr).'">'.htmlspecialchars($tag).'</category>'."\n"; }
 805         }
 806         echo '<description><![CDATA['.nl2br(keepMultipleSpaces(text2clickable(htmlspecialchars($link['description'])))).']]></description>'."\n</item>\n";
 807         $i++;
 808     }
 809     echo '</channel></rss>';
 810     exit;
 811 }
 812
 813 // ------------------------------------------------------------------------------------------
 814 // Ouput the last 50 links in ATOM format.
 815 function showATOM()
 816 {
 817     global $LINKSDB;
 818
 819     // Optionnaly filter the results:
 820     $linksToDisplay=array();
 821     if (!empty($_GET['searchterm'])) $linksToDisplay = $LINKSDB->filterFulltext($_GET['searchterm']);
 822     elseif (!empty($_GET['searchtags']))   $linksToDisplay = $LINKSDB->filterTags(trim($_GET['searchtags']));
 823     else $linksToDisplay = $LINKSDB;
 824
 825     header('Content-Type: application/atom+xml; charset=utf-8');
 826     $pageaddr=htmlspecialchars(indexUrl());
 827     $latestDate = '';
 828     $entries='';
 829     $i=0;
 830     $keys=array(); foreach($linksToDisplay as $key=>$value) { $keys[]=$key; }  // No, I can't use array_keys().
 831     while ($i<50 && $i<count($keys))
 832     {
 833         $link = $linksToDisplay[$keys[$i]];
 834         $guid = $pageaddr.'?'.smallHash($link['linkdate']);
 835         $iso8601date = linkdate2iso8601($link['linkdate']);
 836         $latestDate = max($latestDate,$iso8601date);
 837         $absurl = htmlspecialchars($link['url']);
 838         if (startsWith($absurl,'?')) $absurl=$pageaddr.$absurl;  // make permalink URL absolute
 839         $entries.='<entry><title>'.htmlspecialchars($link['title']).'</title><link href="'.$absurl.'" /><id>'.$guid.'</id>';
 840         if (!$GLOBALS['config']['HIDE_TIMESTAMPS'] || isLoggedIn()) $entries.='<updated>'.htmlspecialchars($iso8601date).'</updated>';
 841         $entries.='<content type="html">'.htmlspecialchars(nl2br(keepMultipleSpaces(text2clickable(htmlspecialchars($link['description'])))))."</content>\n";
 842         if ($link['tags']!='') // Adding tags to each ATOM entry (as mentioned in ATOM specification)
 843         {
 844             foreach(explode(' ',$link['tags']) as $tag)
 845                 { $entries.='<category scheme="'.htmlspecialchars($pageaddr,ENT_QUOTES).'" term="'.htmlspecialchars($tag,ENT_QUOTES).'" />'."\n"; }
 846         }
 847         $entries.="</entry>\n";
 848         $i++;
 849     }
 850     $feed='<?xml version="1.0" encoding="UTF-8"?><feed xmlns="http://www.w3.org/2005/Atom">';
 851     $feed.='<title>'.htmlspecialchars($GLOBALS['title']).'</title>';
 852     if (!$GLOBALS['config']['HIDE_TIMESTAMPS'] || isLoggedIn()) $feed.='<updated>'.htmlspecialchars($latestDate).'</updated>';
 853     $feed.='<link rel="self" href="'.htmlspecialchars(serverUrl().$_SERVER["REQUEST_URI"]).'" />';
 854     if (!empty($GLOBALS['config']['PUBSUBHUB_URL']))
 855     {
 856         $feed.='<!-- PubSubHubbub Discovery -->';
 857         $feed.='<link rel="hub" href="'.htmlspecialchars($GLOBALS['config']['PUBSUBHUB_URL']).'" />';
 858         $feed.='<!-- End Of PubSubHubbub Discovery -->';
 859     }
 860     $feed.='<author><name>'.htmlspecialchars($pageaddr).'</name><uri>'.htmlspecialchars($pageaddr).'</uri></author>';
 861     $feed.='<id>'.htmlspecialchars($pageaddr).'</id>'."\n\n"; // Yes, I know I should use a real IRI (RFC3987), but the site URL will do.
 862     $feed.=$entries;
 863     $feed.='</feed>';
 864     echo $feed;
 865     exit;
 866 }
 867
 868 // ------------------------------------------------------------------------------------------
 869 // Daily RSS feed: 1 RSS entry per day giving all the links on that day.
 870 // Gives the last 7 days (which have links).
 871 // This RSS feed cannot be filtered.
 872 function showDailyRSS()
 873 {
 874     global $LINKSDB;
 875
 876     /* Some Shaarlies may have very few links, so we need to look
 877        back in time (rsort()) until we have enough days ($nb_of_days).
 878     */
 879     $linkdates=array(); foreach($LINKSDB as $linkdate=>$value) { $linkdates[]=$linkdate; }
 880     rsort($linkdates);
 881     $nb_of_days=7; // We take 7 days.
 882     $today=Date('Ymd');
 883     $days=array();
 884     foreach($linkdates as $linkdate)
 885     {
 886         $day=substr($linkdate,0,8); // Extract day (without time)
 887         if (strcmp($day,$today)<0)
 888         {
 889             if (empty($days[$day])) $days[$day]=array();
 890             $days[$day][]=$linkdate;
 891         }
 892         if (count($days)>$nb_of_days) break; // Have we collected enough days ?
 893     }
 894
 895     // Build the RSS feed.
 896     header('Content-Type: application/rss+xml; charset=utf-8');
 897     $pageaddr=htmlspecialchars(indexUrl());
 898     echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0">';
 899     echo '<channel><title>Daily - '.htmlspecialchars($GLOBALS['title']).'</title><link>'.$pageaddr.'</link>';
 900     echo '<description>Daily shared links</description><language>en-en</language><copyright>'.$pageaddr.'</copyright>'."\n";
 901
 902     foreach($days as $day=>$linkdates) // For each day.
 903     {
 904         $daydate = utf8_encode(strftime('%A %d, %B %Y',linkdate2timestamp($day.'_000000'))); // Full text date
 905         $rfc822date = linkdate2rfc822($day.'_000000');
 906         $absurl=htmlspecialchars(indexUrl().'?do=daily&day='.$day);  // Absolute URL of the corresponding "Daily" page.
 907         echo '<item><title>'.htmlspecialchars($GLOBALS['title'].' - '.$daydate).'</title><guid>'.$absurl.'</guid><link>'.$absurl.'</link>';
 908         echo '<pubDate>'.htmlspecialchars($rfc822date)."</pubDate>";
 909
 910         // Build the HTML body of this RSS entry.
 911         $html='';
 912         $href='';
 913         $links=array();
 914         // We pre-format some fields for proper output.
 915         foreach($linkdates as $linkdate)
 916         {
 917             $l = $LINKSDB[$linkdate];
 918             $l['formatedDescription']=nl2br(keepMultipleSpaces(text2clickable(htmlspecialchars($l['description']))));
 919             $l['thumbnail'] = thumbnail($l['url']);
 920             $l['localdate']=linkdate2locale($l['linkdate']);
 921             if (startsWith($l['url'],'?')) $l['url']=indexUrl().$l['url'];  // make permalink URL absolute
 922             $links[$linkdate]=$l;
 923         }
 924         // Then build the HTML for this day:
 925         $tpl = new RainTPL;
 926         $tpl->assign('links',$links);
 927         $html = $tpl->draw('dailyrss',$return_string=true);
 928         echo "\n";
 929         echo '<description><![CDATA['.$html.']]></description>'."\n</item>\n\n";
 930
 931     }
 932     echo '</channel></rss>';
 933     exit;
 934 }
 935
 936
 937 // ------------------------------------------------------------------------------------------
 938 // Render HTML page (according to URL parameters and user rights)
 939 function renderPage()
 940 {
 941     global $LINKSDB;
 942
 943     // -------- Display login form.
 944     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=login'))
 945     {
 946         if ($GLOBALS['config']['OPEN_SHAARLI']) { header('Location: ?'); exit; }  // No need to login for open Shaarli
 947         $token=''; if (ban_canLogin()) $token=getToken(); // Do not waste token generation if not useful.
 948         $PAGE = new pageBuilder;
 949         $PAGE->assign('token',$token);
 950         $PAGE->assign('returnurl',(isset($_SERVER['HTTP_REFERER']) ? $_SERVER['HTTP_REFERER']:''));
 951         $PAGE->renderPage('loginform');
 952         exit;
 953     }
 954     // -------- User wants to logout.
 955     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=logout'))
 956     {
 957         invalidateCaches();
 958         logout();
 959         header('Location: ?');
 960         exit;
 961     }
 962
 963     // -------- Picture wall
 964     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=picwall'))
 965     {
 966         // Optionnaly filter the results:
 967         $links=array();
 968         if (!empty($_GET['searchterm'])) $links = $LINKSDB->filterFulltext($_GET['searchterm']);
 969         elseif (!empty($_GET['searchtags']))   $links = $LINKSDB->filterTags(trim($_GET['searchtags']));
 970         else $links = $LINKSDB;
 971         $body='';
 972         $linksToDisplay=array();
 973
 974         // Get only links which have a thumbnail.
 975         foreach($links as $link)
 976         {
 977             $permalink='?'.htmlspecialchars(smallhash($link['linkdate']),ENT_QUOTES);
 978             $thumb=lazyThumbnail($link['url'],$permalink);
 979             if ($thumb!='') // Only output links which have a thumbnail.
 980             {
 981                 $link['thumbnail']=$thumb; // Thumbnail HTML code.
 982                 $link['permalink']=$permalink;
 983                 $linksToDisplay[]=$link; // Add to array.
 984             }
 985         }
 986         $PAGE = new pageBuilder;
 987         $PAGE->assign('linksToDisplay',$linksToDisplay);
 988         $PAGE->renderPage('picwall');
 989         exit;
 990     }
 991
 992     // -------- Tag cloud
 993     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=tagcloud'))
 994     {
 995         $tags= $LINKSDB->allTags();
 996         // We sort tags alphabetically, then choose a font size according to count.
 997         // First, find max value.
 998         $maxcount=0; foreach($tags as $key=>$value) $maxcount=max($maxcount,$value);
 999         ksort($tags);
1000         $tagList=array();
1001         foreach($tags as $key=>$value)
1002         {
1003             $tagList[$key] = array('count'=>$value,'size'=>max(40*$value/$maxcount,8));
1004         }
1005         $PAGE = new pageBuilder;
1006         $PAGE->assign('tags',$tagList);
1007         $PAGE->renderPage('tagcloud');
1008         exit;
1009     }
1010
1011     // -------- User clicks on a tag in a link: The tag is added to the list of searched tags (searchtags=...)
1012     if (isset($_GET['addtag']))
1013     {
1014         // Get previous URL (http_referer) and add the tag to the searchtags parameters in query.
1015         if (empty($_SERVER['HTTP_REFERER'])) { header('Location: ?searchtags='.urlencode($_GET['addtag'])); exit; } // In case browser does not send HTTP_REFERER
1016         parse_str(parse_url($_SERVER['HTTP_REFERER'],PHP_URL_QUERY), $params);
1017         $params['searchtags'] = (empty($params['searchtags']) ?  trim($_GET['addtag']) : trim($params['searchtags']).' '.trim($_GET['addtag']));
1018         unset($params['page']); // We also remove page (keeping the same page has no sense, since the results are different)
1019         header('Location: ?'.http_build_query($params));
1020         exit;
1021     }
1022
1023     // -------- User clicks on a tag in result count: Remove the tag from the list of searched tags (searchtags=...)
1024     if (isset($_GET['removetag']))
1025     {
1026         // Get previous URL (http_referer) and remove the tag from the searchtags parameters in query.
1027         if (empty($_SERVER['HTTP_REFERER'])) { header('Location: ?'); exit; } // In case browser does not send HTTP_REFERER
1028         parse_str(parse_url($_SERVER['HTTP_REFERER'],PHP_URL_QUERY), $params);
1029         if (isset($params['searchtags']))
1030         {
1031             $tags = explode(' ',$params['searchtags']);
1032             $tags=array_diff($tags, array($_GET['removetag'])); // Remove value from array $tags.
1033             if (count($tags)==0) unset($params['searchtags']); else $params['searchtags'] = implode(' ',$tags);
1034             unset($params['page']); // We also remove page (keeping the same page has no sense, since the results are different)
1035         }
1036         header('Location: ?'.http_build_query($params));
1037         exit;
1038     }
1039
1040     // -------- User wants to change the number of links per page (linksperpage=...)
1041     if (isset($_GET['linksperpage']))
1042     {
1043         if (is_numeric($_GET['linksperpage'])) { $_SESSION['LINKS_PER_PAGE']=abs(intval($_GET['linksperpage'])); }
1044         header('Location: '.(empty($_SERVER['HTTP_REFERER'])?'?':$_SERVER['HTTP_REFERER']));
1045         exit;
1046     }
1047
1048     // -------- User wants to see only private links (toggle)
1049     if (isset($_GET['privateonly']))
1050     {
1051         if (empty($_SESSION['privateonly']))
1052         {
1053             $_SESSION['privateonly']=1; // See only private links
1054         }
1055         else
1056         {
1057             unset($_SESSION['privateonly']); // See all links
1058         }
1059         header('Location: '.(empty($_SERVER['HTTP_REFERER'])?'?':$_SERVER['HTTP_REFERER']));
1060         exit;
1061     }
1062
1063     // --------- Daily (all links form a specific day) ----------------------
1064     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=daily'))
1065     {
1066         $day=Date('Ymd',strtotime('-1 day')); // Yesterday, in format YYYYMMDD.
1067         if (isset($_GET['day'])) $day=$_GET['day'];
1068
1069         $days = $LINKSDB->days();
1070         $i = array_search($day,$days);
1071         if ($i==false) { $i=count($days)-1; $day=$days[$i]; }
1072         $previousday='';
1073         $nextday='';
1074         if ($i!==false)
1075         {
1076             if ($i>1) $previousday=$days[$i-1];
1077             if ($i<count($days)-1) $nextday=$days[$i+1];
1078         }
1079
1080         $linksToDisplay=$LINKSDB->filterDay($day);
1081         // We pre-format some fields for proper output.
1082         foreach($linksToDisplay as $key=>$link)
1083         {
1084             $linksToDisplay[$key]['taglist']=explode(' ',$link['tags']);
1085             $linksToDisplay[$key]['formatedDescription']=nl2br(keepMultipleSpaces(text2clickable(htmlspecialchars($link['description']))));
1086             $linksToDisplay[$key]['thumbnail'] = thumbnail($link['url']);
1087         }
1088
1089         /* We need to spread the articles on 3 columns.
1090            I did not want to use a javascript lib like http://masonry.desandro.com/
1091            so I manually spread entries with a simple method: I roughly evaluate the
1092            height of a div according to title and description length.
1093         */
1094         $columns=array(array(),array(),array()); // Entries to display, for each column.
1095         $fill=array(0,0,0);  // Rough estimate of columns fill.
1096         foreach($linksToDisplay as $key=>$link)
1097         {
1098             // Roughly estimate length of entry (by counting characters)
1099             // Title: 30 chars = 1 line. 1 line is 30 pixels height.
1100             // Description: 836 characters gives roughly 342 pixel height.
1101             // This is not perfect, but it's usually ok.
1102             $length=strlen($link['title'])+(342*strlen($link['description']))/836;
1103             if ($link['thumbnail']) $length +=100; // 1 thumbnails roughly takes 100 pixels height.
1104             // Then put in column which is the less filled:
1105             $smallest=min($fill); // find smallest value in array.
1106             $index=array_search($smallest,$fill); // find index of this smallest value.
1107             array_push($columns[$index],$link); // Put entry in this column.
1108             $fill[$index]+=$length;
1109         }
1110         $PAGE = new pageBuilder;
1111         $PAGE->assign('linksToDisplay',$linksToDisplay);
1112         $PAGE->assign('col1',$columns[0]);
1113         $PAGE->assign('col2',$columns[1]);
1114         $PAGE->assign('col3',$columns[2]);
1115         $PAGE->assign('day',utf8_encode(strftime('%A %d, %B %Y',linkdate2timestamp($day.'_000000'))));
1116         $PAGE->assign('previousday',$previousday);
1117         $PAGE->assign('nextday',$nextday);
1118         $PAGE->renderPage('daily');
1119         exit;
1120     }
1121
1122     // -------- Handle other actions allowed for non-logged in users:
1123     if (!isLoggedIn())
1124     {
1125         // User tries to post new link but is not loggedin:
1126         // Show login screen, then redirect to ?post=...
1127         if (isset($_GET['post']))
1128         {
1129             header('Location: ?do=login&post='.urlencode($_GET['post']).(!empty($_GET['title'])?'&title='.urlencode($_GET['title']):'').(!empty($_GET['source'])?'&source='.urlencode($_GET['source']):'')); // Redirect to login page, then back to post link.
1130             exit;
1131         }
1132         $PAGE = new pageBuilder;
1133         buildLinkList($PAGE); // Compute list of links to display
1134         $PAGE->renderPage('linklist');
1135         exit; // Never remove this one ! All operations below are reserved for logged in user.
1136     }
1137
1138     // -------- All other functions are reserved for the registered user:
1139
1140     // -------- Display the Tools menu if requested (import/export/bookmarklet...)
1141     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=tools'))
1142     {
1143         $PAGE = new pageBuilder;
1144         $PAGE->assign('pageabsaddr',indexUrl());
1145         $PAGE->renderPage('tools');
1146         exit;
1147     }
1148
1149     // -------- User wants to change his/her password.
1150     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=changepasswd'))
1151     {
1152         if ($GLOBALS['config']['OPEN_SHAARLI']) die('You are not supposed to change a password on an Open Shaarli.');
1153         if (!empty($_POST['setpassword']) && !empty($_POST['oldpassword']))
1154         {
1155             if (!tokenOk($_POST['token'])) die('Wrong token.'); // Go away !
1156
1157             // Make sure old password is correct.
1158             $oldhash = sha1($_POST['oldpassword'].$GLOBALS['login'].$GLOBALS['salt']);
1159             if ($oldhash!=$GLOBALS['hash']) { echo '<script language="JavaScript">alert("The old password is not correct.");document.location=\'?do=changepasswd\';</script>'; exit; }
1160             // Save new password
1161             $GLOBALS['salt'] = sha1(uniqid('',true).'_'.mt_rand()); // Salt renders rainbow-tables attacks useless.
1162             $GLOBALS['hash'] = sha1($_POST['setpassword'].$GLOBALS['login'].$GLOBALS['salt']);
1163             writeConfig();
1164             echo '<script language="JavaScript">alert("Your password has been changed.");document.location=\'?do=tools\';</script>';
1165             exit;
1166         }
1167         else // show the change password form.
1168         {
1169             $PAGE = new pageBuilder;
1170             $PAGE->assign('token',getToken());
1171             $PAGE->renderPage('changepassword');
1172             exit;
1173         }
1174     }
1175
1176     // -------- User wants to change configuration
1177     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=configure'))
1178     {
1179         if (!empty($_POST['title']) )
1180         {
1181             if (!tokenOk($_POST['token'])) die('Wrong token.'); // Go away !
1182             $tz = 'UTC';
1183             if (!empty($_POST['continent']) && !empty($_POST['city']))
1184                 if (isTZvalid($_POST['continent'],$_POST['city']))
1185                     $tz = $_POST['continent'].'/'.$_POST['city'];
1186             $GLOBALS['timezone'] = $tz;
1187             $GLOBALS['title']=$_POST['title'];
1188             $GLOBALS['redirector']=$_POST['redirector'];
1189             writeConfig();
1190             echo '<script language="JavaScript">alert("Configuration was saved.");document.location=\'?do=tools\';</script>';
1191             exit;
1192         }
1193         else // Show the configuration form.
1194         {
1195             $PAGE = new pageBuilder;
1196             $PAGE->assign('token',getToken());
1197             $PAGE->assign('title',htmlspecialchars( empty($GLOBALS['title']) ? '' : $GLOBALS['title'] , ENT_QUOTES));
1198             $PAGE->assign('redirector',htmlspecialchars( empty($GLOBALS['redirector']) ? '' : $GLOBALS['redirector'] , ENT_QUOTES));
1199             list($timezone_form,$timezone_js) = templateTZform($GLOBALS['timezone']);
1200             $PAGE->assign('timezone_form',$timezone_form); // FIXME: put entire tz form generation in template ?
1201             $PAGE->assign('timezone_js',$timezone_js);
1202             $PAGE->renderPage('configure');
1203             exit;
1204         }
1205     }
1206
1207     // -------- User wants to rename a tag or delete it
1208     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=changetag'))
1209     {
1210         if (empty($_POST['fromtag']))
1211         {
1212             $PAGE = new pageBuilder;
1213             $PAGE->assign('token',getToken());
1214             $PAGE->renderPage('changetag');
1215             exit;
1216         }
1217         if (!tokenOk($_POST['token'])) die('Wrong token.');
1218
1219         // Delete a tag:
1220         if (!empty($_POST['deletetag']) && !empty($_POST['fromtag']))
1221         {
1222             $needle=trim($_POST['fromtag']);
1223             $linksToAlter = $LINKSDB->filterTags($needle,true); // true for case-sensitive tag search.
1224             foreach($linksToAlter as $key=>$value)
1225             {
1226                 $tags = explode(' ',trim($value['tags']));
1227                 unset($tags[array_search($needle,$tags)]); // Remove tag.
1228                 $value['tags']=trim(implode(' ',$tags));
1229                 $LINKSDB[$key]=$value;
1230             }
1231             $LINKSDB->savedb(); // save to disk
1232             invalidateCaches();
1233             echo '<script language="JavaScript">alert("Tag was removed from '.count($linksToAlter).' links.");document.location=\'?\';</script>';
1234             exit;
1235         }
1236
1237         // Rename a tag:
1238         if (!empty($_POST['renametag']) && !empty($_POST['fromtag']) && !empty($_POST['totag']))
1239         {
1240             $needle=trim($_POST['fromtag']);
1241             $linksToAlter = $LINKSDB->filterTags($needle,true); // true for case-sensitive tag search.
1242             foreach($linksToAlter as $key=>$value)
1243             {
1244                 $tags = explode(' ',trim($value['tags']));
1245                 $tags[array_search($needle,$tags)] = trim($_POST['totag']); // Remplace tags value.
1246                 $value['tags']=trim(implode(' ',$tags));
1247                 $LINKSDB[$key]=$value;
1248             }
1249             $LINKSDB->savedb(); // save to disk
1250             invalidateCaches();
1251             echo '<script language="JavaScript">alert("Tag was renamed in '.count($linksToAlter).' links.");document.location=\'?searchtags='.urlencode($_POST['totag']).'\';</script>';
1252             exit;
1253         }
1254     }
1255
1256     // -------- User wants to add a link without using the bookmarklet: show form.
1257     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=addlink'))
1258     {
1259         $PAGE = new pageBuilder;
1260         $PAGE->renderPage('addlink');
1261         exit;
1262     }
1263
1264     // -------- User clicked the "Save" button when editing a link: Save link to database.
1265     if (isset($_POST['save_edit']))
1266     {
1267         if (!tokenOk($_POST['token'])) die('Wrong token.'); // Go away !
1268         $tags = trim(preg_replace('/\s\s+/',' ', $_POST['lf_tags'])); // Remove multiple spaces.
1269         $linkdate=$_POST['lf_linkdate'];
1270         $link = array('title'=>trim($_POST['lf_title']),'url'=>trim($_POST['lf_url']),'description'=>trim($_POST['lf_description']),'private'=>(isset($_POST['lf_private']) ? 1 : 0),
1271                       'linkdate'=>$linkdate,'tags'=>str_replace(',',' ',$tags));
1272         if ($link['title']=='') $link['title']=$link['url']; // If title is empty, use the URL as title.
1273         $LINKSDB[$linkdate] = $link;
1274         $LINKSDB->savedb(); // save to disk
1275         pubsubhub();
1276         invalidateCaches();
1277
1278         // If we are called from the bookmarklet, we must close the popup:
1279         if (isset($_GET['source']) && $_GET['source']=='bookmarklet') { echo '<script language="JavaScript">self.close();</script>'; exit; }
1280         $returnurl = ( isset($_POST['returnurl']) ? $_POST['returnurl'] : '?' );
1281         header('Location: '.$returnurl); // After saving the link, redirect to the page the user was on.
1282         exit;
1283     }
1284
1285     // -------- User clicked the "Cancel" button when editing a link.
1286     if (isset($_POST['cancel_edit']))
1287     {
1288         // If we are called from the bookmarklet, we must close the popup;
1289         if (isset($_GET['source']) && $_GET['source']=='bookmarklet') { echo '<script language="JavaScript">self.close();</script>'; exit; }
1290         $returnurl = ( isset($_POST['returnurl']) ? $_POST['returnurl'] : '?' );
1291         header('Location: '.$returnurl); // After canceling, redirect to the page the user was on.
1292         exit;
1293     }
1294
1295     // -------- User clicked the "Delete" button when editing a link : Delete link from database.
1296     if (isset($_POST['delete_link']))
1297     {
1298         if (!tokenOk($_POST['token'])) die('Wrong token.');
1299         // We do not need to ask for confirmation:
1300         // - confirmation is handled by javascript
1301         // - we are protected from XSRF by the token.
1302         $linkdate=$_POST['lf_linkdate'];
1303         unset($LINKSDB[$linkdate]);
1304         $LINKSDB->savedb(); // save to disk
1305         invalidateCaches();
1306         // If we are called from the bookmarklet, we must close the popup:
1307         if (isset($_GET['source']) && $_GET['source']=='bookmarklet') { echo '<script language="JavaScript">self.close();</script>'; exit; }
1308         $returnurl = ( isset($_POST['returnurl']) ? $_POST['returnurl'] : '?' );
1309         header('Location: '.$returnurl); // After deleting the link, redirect to the page the user was on.
1310         exit;
1311     }
1312
1313     // -------- User clicked the "EDIT" button on a link: Display link edit form.
1314     if (isset($_GET['edit_link']))
1315     {
1316         $link = $LINKSDB[$_GET['edit_link']];  // Read database
1317         if (!$link) { header('Location: ?'); exit; } // Link not found in database.
1318         $PAGE = new pageBuilder;
1319         $PAGE->assign('link',$link);
1320         $PAGE->assign('link_is_new',false);
1321         $PAGE->assign('token',getToken()); // XSRF protection.
1322         $PAGE->assign('http_referer',(isset($_SERVER['HTTP_REFERER']) ? $_SERVER['HTTP_REFERER'] : ''));
1323         $PAGE->renderPage('editlink');
1324         exit;
1325     }
1326
1327     // -------- User want to post a new link: Display link edit form.
1328     if (isset($_GET['post']))
1329     {
1330         $url=$_GET['post'];
1331
1332         // We remove the annoying parameters added by FeedBurner and GoogleFeedProxy (?utm_source=...)
1333         $i=strpos($url,'&utm_source='); if ($i!==false) $url=substr($url,0,$i);
1334         $i=strpos($url,'?utm_source='); if ($i!==false) $url=substr($url,0,$i);
1335         $i=strpos($url,'#xtor=RSS-'); if ($i!==false) $url=substr($url,0,$i);
1336
1337         $link_is_new = false;
1338         $link = $LINKSDB->getLinkFromUrl($url); // Check if URL is not already in database (in this case, we will edit the existing link)
1339         if (!$link)
1340         {
1341             $link_is_new = true;  // This is a new link
1342             $linkdate = strval(date('Ymd_His'));
1343             $title = (empty($_GET['title']) ? '' : $_GET['title'] ); // Get title if it was provided in URL (by the bookmarklet).
1344             $description=''; $tags=''; $private=0;
1345             if (($url!='') && parse_url($url,PHP_URL_SCHEME)=='') $url = 'http://'.$url;
1346             // If this is an HTTP link, we try go get the page to extact the title (otherwise we will to straight to the edit form.)
1347             if (empty($title) && parse_url($url,PHP_URL_SCHEME)=='http')
1348             {
1349                 list($status,$headers,$data) = getHTTP($url,4); // Short timeout to keep the application responsive.
1350                 // FIXME: Decode charset according to specified in either 1) HTTP response headers or 2) <head> in html
1351                 if (strpos($status,'200 OK')!==false) $title=html_entity_decode(html_extract_title($data),ENT_QUOTES,'UTF-8');
1352             }
1353             if ($url=='') $url='?'.smallHash($linkdate); // In case of empty URL, this is just a text (with a link that point to itself)
1354             $link = array('linkdate'=>$linkdate,'title'=>$title,'url'=>$url,'description'=>$description,'tags'=>$tags,'private'=>0);
1355         }
1356
1357         $PAGE = new pageBuilder;
1358         $PAGE->assign('link',$link);
1359         $PAGE->assign('link_is_new',$link_is_new);
1360         $PAGE->assign('token',getToken()); // XSRF protection.
1361         $PAGE->assign('http_referer',(isset($_SERVER['HTTP_REFERER']) ? $_SERVER['HTTP_REFERER'] : ''));
1362         $PAGE->renderPage('editlink');
1363         exit;
1364     }
1365
1366     // -------- Export as Netscape Bookmarks HTML file.
1367     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=export'))
1368     {
1369         if (empty($_GET['what']))
1370         {
1371             $PAGE = new pageBuilder;
1372             $PAGE->renderPage('export');
1373             exit;
1374         }
1375         $exportWhat=$_GET['what'];
1376         if (!array_intersect(array('all','public','private'),array($exportWhat))) die('What are you trying to export ???');
1377
1378         header('Content-Type: text/html; charset=utf-8');
1379         header('Content-disposition: attachment; filename=bookmarks_'.$exportWhat.'_'.strval(date('Ymd_His')).'.html');
1380         $currentdate=date('Y/m/d H:i:s');
1381         echo <<<HTML
1382 <!DOCTYPE NETSCAPE-Bookmark-file-1>
1383 <!-- This is an automatically generated file.
1384      It will be read and overwritten.
1385      DO NOT EDIT! -->
1386 <!-- Shaarli {$exportWhat} bookmarks export on {$currentdate} -->
1387 <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
1388 <TITLE>Bookmarks</TITLE>
1389 <H1>Bookmarks</H1>
1390 HTML;
1391         foreach($LINKSDB as $link)
1392         {
1393             if ($exportWhat=='all' ||
1394                ($exportWhat=='private' && $link['private']!=0) ||
1395                ($exportWhat=='public' && $link['private']==0))
1396             {
1397                 echo '<DT><A HREF="'.htmlspecialchars($link['url']).'" ADD_DATE="'.linkdate2timestamp($link['linkdate']).'" PRIVATE="'.$link['private'].'"';
1398                 if ($link['tags']!='') echo ' TAGS="'.htmlspecialchars(str_replace(' ',',',$link['tags'])).'"';
1399                 echo '>'.htmlspecialchars($link['title'])."</A>\n";
1400                 if ($link['description']!='') echo '<DD>'.htmlspecialchars($link['description'])."\n";
1401             }
1402         }
1403                 exit;
1404     }
1405
1406     // -------- User is uploading a file for import
1407     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=upload'))
1408     {
1409         // If file is too big, some form field may be missing.
1410         if (!isset($_POST['token']) || (!isset($_FILES)) || (isset($_FILES['filetoupload']['size']) && $_FILES['filetoupload']['size']==0))
1411         {
1412             $returnurl = ( empty($_SERVER['HTTP_REFERER']) ? '?' : $_SERVER['HTTP_REFERER'] );
1413             echo '<script language="JavaScript">alert("The file you are trying to upload is probably bigger than what this webserver can accept ('.getMaxFileSize().' bytes). Please upload in smaller chunks.");document.location=\''.htmlspecialchars($returnurl).'\';</script>';
1414             exit;
1415         }
1416         if (!tokenOk($_POST['token'])) die('Wrong token.');
1417         importFile();
1418         exit;
1419     }
1420
1421     // -------- Show upload/import dialog:
1422     if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=import'))
1423     {
1424         $PAGE = new pageBuilder;
1425         $PAGE->assign('token',getToken());
1426         $PAGE->assign('maxfilesize',getMaxFileSize());
1427         $PAGE->renderPage('import');
1428         exit;
1429     }
1430
1431     // -------- Otherwise, simply display search form and links:
1432     $PAGE = new pageBuilder;
1433     buildLinkList($PAGE); // Compute list of links to display
1434     $PAGE->renderPage('linklist');
1435     exit;
1436 }
1437
1438 // -----------------------------------------------------------------------------------------------
1439 // Process the import file form.
1440 function importFile()
1441 {
1442     global $LINKSDB;
1443     $filename=$_FILES['filetoupload']['name'];
1444     $filesize=$_FILES['filetoupload']['size'];
1445     $data=file_get_contents($_FILES['filetoupload']['tmp_name']);
1446     $private = (empty($_POST['private']) ? 0 : 1); // Should the links be imported as private ?
1447     $overwrite = !empty($_POST['overwrite']) ; // Should the imported links overwrite existing ones ?
1448     $import_count=0;
1449
1450     // Sniff file type:
1451     $type='unknown';
1452     if (startsWith($data,'<!DOCTYPE NETSCAPE-Bookmark-file-1>')) $type='netscape'; // Netscape bookmark file (aka Firefox).
1453
1454     // Then import the bookmarks.
1455     if ($type=='netscape')
1456     {
1457         // This is a standard Netscape-style bookmark file.
1458         // This format is supported by all browsers (except IE, of course), also delicious, diigo and others.
1459         foreach(explode('<DT>',$data) as $html) // explode is very fast
1460         {
1461             $link = array('linkdate'=>'','title'=>'','url'=>'','description'=>'','tags'=>'','private'=>0);
1462             $d = explode('<DD>',$html);
1463             if (startswith($d[0],'<A '))
1464             {
1465                 $link['description'] = (isset($d[1]) ? html_entity_decode(trim($d[1]),ENT_QUOTES,'UTF-8') : '');  // Get description (optional)
1466                 preg_match('!<A .*?>(.*?)</A>!i',$d[0],$matches); $link['title'] = (isset($matches[1]) ? trim($matches[1]) : '');  // Get title
1467                 $link['title'] = html_entity_decode($link['title'],ENT_QUOTES,'UTF-8');
1468                 preg_match_all('! ([A-Z_]+)=\"(.*?)"!i',$html,$matches,PREG_SET_ORDER);  // Get all other attributes
1469                 $raw_add_date=0;
1470                 foreach($matches as $m)
1471                 {
1472                     $attr=$m[1]; $value=$m[2];
1473                     if ($attr=='HREF') $link['url']=html_entity_decode($value,ENT_QUOTES,'UTF-8');
1474                     elseif ($attr=='ADD_DATE') $raw_add_date=intval($value);
1475                     elseif ($attr=='PRIVATE') $link['private']=($value=='0'?0:1);
1476                     elseif ($attr=='TAGS') $link['tags']=html_entity_decode(str_replace(',',' ',$value),ENT_QUOTES,'UTF-8');
1477                 }
1478                 if ($link['url']!='')
1479                 {
1480                     if ($private==1) $link['private']=1;
1481                     $dblink = $LINKSDB->getLinkFromUrl($link['url']); // See if the link is already in database.
1482                     if ($dblink==false)
1483                     {  // Link not in database, let's import it...
1484                        if (empty($raw_add_date)) $raw_add_date=time(); // In case of shitty bookmark file with no ADD_DATE
1485
1486                        // Make sure date/time is not already used by another link.
1487                        // (Some bookmark files have several different links with the same ADD_DATE)
1488                        // We increment date by 1 second until we find a date which is not used in db.
1489                        // (so that links that have the same date/time are more or less kept grouped by date, but do not conflict.)
1490                        while (!empty($LINKSDB[date('Ymd_His',$raw_add_date)])) { $raw_add_date++; }// Yes, I know it's ugly.
1491                        $link['linkdate']=date('Ymd_His',$raw_add_date);
1492                        $LINKSDB[$link['linkdate']] = $link;
1493                        $import_count++;
1494                     }
1495                     else // link already present in database.
1496                     {
1497                         if ($overwrite)
1498                         {   // If overwrite is required, we import link data, except date/time.
1499                             $link['linkdate']=$dblink['linkdate'];
1500                             $LINKSDB[$link['linkdate']] = $link;
1501                             $import_count++;
1502                         }
1503                     }
1504
1505                 }
1506             }
1507         }
1508         $LINKSDB->savedb();
1509         invalidateCaches();
1510         echo '<script language="JavaScript">alert("File '.$filename.' ('.$filesize.' bytes) was successfully processed: '.$import_count.' links imported.");document.location=\'?\';</script>';
1511     }
1512     else
1513     {
1514         echo '<script language="JavaScript">alert("File '.$filename.' ('.$filesize.' bytes) has an unknown file format. Nothing was imported.");document.location=\'?\';</script>';
1515     }
1516 }
1517
1518 // -----------------------------------------------------------------------------------------------
1519 // Template for the list of links (<div id="linklist">)
1520 // This function fills all the necessary fields in the $PAGE for the template 'linklist.html'
1521 function buildLinkList($PAGE)
1522 {
1523     global $LINKSDB;  // Get the links database.
1524
1525     // ---- Filter link database according to parameters
1526     $linksToDisplay=array();
1527     $search_type='';
1528     $search_crits='';
1529     if (!empty($_GET['searchterm'])) // Fulltext search
1530     {
1531         $linksToDisplay = $LINKSDB->filterFulltext(trim($_GET['searchterm']));
1532         $search_crits=htmlspecialchars(trim($_GET['searchterm']));
1533         $search_type='fulltext';
1534     }
1535     elseif (!empty($_GET['searchtags'])) // Search by tag
1536     {
1537         $linksToDisplay = $LINKSDB->filterTags(trim($_GET['searchtags']));
1538         $search_crits=explode(' ',trim($_GET['searchtags']));
1539         $search_type='tags';
1540     }
1541     elseif (isset($_SERVER['QUERY_STRING']) && preg_match('/[a-zA-Z0-9-_@]{6}(&.+?)?/',$_SERVER['QUERY_STRING'])) // Detect smallHashes in URL
1542     {
1543         $linksToDisplay = $LINKSDB->filterSmallHash(substr(trim($_SERVER["QUERY_STRING"], '/'),0,6));
1544         $search_type='permalink';
1545     }
1546     else
1547         $linksToDisplay = $LINKSDB;  // otherwise, display without filtering.
1548
1549     // Option: Show only private links
1550     if (!empty($_SESSION['privateonly']))
1551     {
1552         $tmp = array();
1553         foreach($linksToDisplay as $linkdate=>$link)
1554         {
1555             if ($link['private']!=0) $tmp[$linkdate]=$link;
1556         }
1557         $linksToDisplay=$tmp;
1558     }
1559
1560     // ---- Handle paging.
1561     /* Can someone explain to me why you get the following error when using array_keys() on an object which implements the interface ArrayAccess ???
1562        "Warning: array_keys() expects parameter 1 to be array, object given in ... "
1563        If my class implements ArrayAccess, why won't array_keys() accept it ?  ( $keys=array_keys($linksToDisplay); )
1564     */
1565     $keys=array(); foreach($linksToDisplay as $key=>$value) { $keys[]=$key; } // Stupid and ugly. Thanks php.
1566
1567     // If there is only a single link, we change on-the-fly the title of the page.
1568     if (count($linksToDisplay)==1) $GLOBALS['pagetitle'] = $linksToDisplay[$keys[0]]['title'].' - '.$GLOBALS['title'];
1569
1570     // Select articles according to paging.
1571     $pagecount = ceil(count($keys)/$_SESSION['LINKS_PER_PAGE']);
1572     $pagecount = ($pagecount==0 ? 1 : $pagecount);
1573     $page=( empty($_GET['page']) ? 1 : intval($_GET['page']));
1574     $page = ( $page<1 ? 1 : $page );
1575     $page = ( $page>$pagecount ? $pagecount : $page );
1576     $i = ($page-1)*$_SESSION['LINKS_PER_PAGE']; // Start index.
1577     $end = $i+$_SESSION['LINKS_PER_PAGE'];
1578     $linkDisp=array(); // Links to display
1579     while ($i<$end && $i<count($keys))
1580     {
1581         $link = $linksToDisplay[$keys[$i]];
1582         $link['description']=nl2br(keepMultipleSpaces(text2clickable(htmlspecialchars($link['description']))));
1583         $title=$link['title'];
1584         $classLi =  $i%2!=0 ? '' : 'publicLinkHightLight';
1585         $link['class'] = ($link['private']==0 ? $classLi : 'private');
1586         $link['localdate']=linkdate2locale($link['linkdate']);
1587         $link['taglist']=explode(' ',$link['tags']);
1588         $linkDisp[$keys[$i]] = $link;
1589         $i++;
1590     }
1591
1592     // Compute paging navigation
1593     $searchterm= ( empty($_GET['searchterm']) ? '' : '&searchterm='.$_GET['searchterm'] );
1594     $searchtags= ( empty($_GET['searchtags']) ? '' : '&searchtags='.$_GET['searchtags'] );
1595     $paging='';
1596     $previous_page_url=''; if ($i!=count($keys)) $previous_page_url='?page='.($page+1).$searchterm.$searchtags;
1597     $next_page_url='';if ($page>1) $next_page_url='?page='.($page-1).$searchterm.$searchtags;
1598
1599     $token = ''; if (isLoggedIn()) $token=getToken();
1600
1601     // Fill all template fields.
1602     $PAGE->assign('previous_page_url',$previous_page_url);
1603     $PAGE->assign('next_page_url',$next_page_url);
1604     $PAGE->assign('page_current',$page);
1605     $PAGE->assign('page_max',$pagecount);
1606     $PAGE->assign('result_count',count($linksToDisplay));
1607     $PAGE->assign('search_type',$search_type);
1608     $PAGE->assign('search_crits',$search_crits);
1609     $PAGE->assign('redirector',empty($GLOBALS['redirector']) ? '' : $GLOBALS['redirector']); // optional redirector URL
1610     $PAGE->assign('token',$token);
1611     $PAGE->assign('links',$linkDisp);
1612     return;
1613 }
1614
1615 // Compute the thumbnail for a link.
1616 //
1617 // with a link to the original URL.
1618 // Understands various services (youtube.com...)
1619 // Input: $url = url for which the thumbnail must be found.
1620 //        $href = if provided, this URL will be followed instead of $url
1621 // Returns an associative array with thumbnail attributes (src,href,width,height,style,alt)
1622 // Some of them may be missing.
1623 // Return an empty array if no thumbnail available.
1624 function computeThumbnail($url,$href=false)
1625 {
1626     if (!$GLOBALS['config']['ENABLE_THUMBNAILS']) return array();
1627     if ($href==false) $href=$url;
1628
1629     // For most hosts, the URL of the thumbnail can be easily deduced from the URL of the link.
1630     // (eg. http://www.youtube.com/watch?v=spVypYk4kto --->  http://img.youtube.com/vi/spVypYk4kto/default.jpg )
1631     //                                     ^^^^^^^^^^^                                 ^^^^^^^^^^^
1632     $domain = parse_url($url,PHP_URL_HOST);
1633     if ($domain=='youtube.com' || $domain=='www.youtube.com')
1634     {
1635         parse_str(parse_url($url,PHP_URL_QUERY), $params); // Extract video ID and get thumbnail
1636         if (!empty($params['v'])) return array('src'=>'http://img.youtube.com/vi/'.$params['v'].'/default.jpg',
1637                                                'href'=>$href,'width'=>'120','height'=>'90','alt'=>'YouTube thumbnail');
1638     }
1639     if ($domain=='youtu.be') // Youtube short links
1640     {
1641         $path = parse_url($url,PHP_URL_PATH);
1642         return array('src'=>'http://img.youtube.com/vi'.$path.'/default.jpg',
1643                      'href'=>$href,'width'=>'120','height'=>'90','alt'=>'YouTube thumbnail');
1644     }
1645     if ($domain=='pix.toile-libre.org') // pix.toile-libre.org image hosting
1646     {
1647         parse_str(parse_url($url,PHP_URL_QUERY), $params); // Extract image filename.
1648         if (!empty($params) && !empty($params['img'])) return array('src'=>'http://pix.toile-libre.org/upload/thumb/'.urlencode($params['img']),
1649                                                                     'href'=>$href,'style'=>'max-width:120px; max-height:150px','alt'=>'pix.toile-libre.org thumbnail');
1650     }
1651
1652     if ($domain=='imgur.com')
1653     {
1654         $path = parse_url($url,PHP_URL_PATH);
1655         if (startsWith($path,'/a/')) return array(); // Thumbnails for albums are not available.
1656         if (startsWith($path,'/r/')) return array('src'=>'http://i.imgur.com/'.basename($path).'s.jpg',
1657                                                   'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1658         if (startsWith($path,'/gallery/')) return array('src'=>'http://i.imgur.com'.substr($path,8).'s.jpg',
1659                                                         'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1660
1661         if (substr_count($path,'/')==1) return array('src'=>'http://i.imgur.com/'.substr($path,1).'s.jpg',
1662                                                      'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1663     }
1664     if ($domain=='i.imgur.com')
1665     {
1666         $pi = pathinfo(parse_url($url,PHP_URL_PATH));
1667         if (!empty($pi['filename'])) return array('src'=>'http://i.imgur.com/'.$pi['filename'].'s.jpg',
1668                                                   'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1669     }
1670     if ($domain=='dailymotion.com' || $domain=='www.dailymotion.com')
1671     {
1672         if (strpos($url,'dailymotion.com/video/')!==false)
1673         {
1674             $thumburl=str_replace('dailymotion.com/video/','dailymotion.com/thumbnail/video/',$url);
1675             return array('src'=>$thumburl,
1676                          'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'DailyMotion thumbnail');
1677         }
1678     }
1679     if (endsWith($domain,'.imageshack.us'))
1680     {
1681         $ext=strtolower(pathinfo($url,PATHINFO_EXTENSION));
1682         if ($ext=='jpg' || $ext=='jpeg' || $ext=='png' || $ext=='gif')
1683         {
1684             $thumburl = substr($url,0,strlen($url)-strlen($ext)).'th.'.$ext;
1685             return array('src'=>$thumburl,
1686                          'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'imageshack.us thumbnail');
1687         }
1688     }
1689
1690     // Some other hosts are SLOW AS HELL and usually require an extra HTTP request to get the thumbnail URL.
1691     // So we deport the thumbnail generation in order not to slow down page generation
1692     // (and we also cache the thumbnail)
1693
1694     if (!$GLOBALS['config']['ENABLE_LOCALCACHE']) return array(); // If local cache is disabled, no thumbnails for services which require the use a local cache.
1695
1696     if ($domain=='flickr.com' || endsWith($domain,'.flickr.com')
1697         || $domain=='vimeo.com'
1698         || $domain=='ted.com' || endsWith($domain,'.ted.com')
1699         || $domain=='xkcd.com' || endsWith($domain,'.xkcd.com')
1700     )
1701     {
1702         if ($domain=='vimeo.com')
1703         {   // Make sure this vimeo url points to a video (/xxx... where xxx is numeric)
1704             $path = parse_url($url,PHP_URL_PATH);
1705             if (!preg_match('!/\d+.+?!',$path)) return array(); // This is not a single video URL.
1706         }
1707         if ($domain=='xkcd.com' || endsWith($domain,'.xkcd.com'))
1708         {   // Make sure this url points to a single comic (/xxx... where xxx is numeric)
1709             $path = parse_url($url,PHP_URL_PATH);
1710             if (!preg_match('!/\d+.+?!',$path)) return array();
1711         }
1712         if ($domain=='ted.com' || endsWith($domain,'.ted.com'))
1713         {   // Make sure this TED url points to a video (/talks/...)
1714             $path = parse_url($url,PHP_URL_PATH);
1715             if ("/talks/" !== substr($path,0,7)) return array(); // This is not a single video URL.
1716         }
1717         $sign = hash_hmac('sha256', $url, $GLOBALS['salt']); // We use the salt to sign data (it's random, secret, and specific to each installation)
1718         return array('src'=>indexUrl().'?do=genthumbnail&hmac='.htmlspecialchars($sign).'&url='.urlencode($url),
1719                      'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'thumbnail');
1720     }
1721
1722     // For all other, we try to make a thumbnail of links ending with .jpg/jpeg/png/gif
1723     // Technically speaking, we should download ALL links and check their Content-Type to see if they are images.
1724     // But using the extension will do.
1725     $ext=strtolower(pathinfo($url,PATHINFO_EXTENSION));
1726     if ($ext=='jpg' || $ext=='jpeg' || $ext=='png' || $ext=='gif')
1727     {
1728         $sign = hash_hmac('sha256', $url, $GLOBALS['salt']); // We use the salt to sign data (it's random, secret, and specific to each installation)
1729         return array('src'=>indexUrl().'?do=genthumbnail&hmac='.htmlspecialchars($sign).'&url='.urlencode($url),
1730                      'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'thumbnail');
1731     }
1732     return array(); // No thumbnail.
1733
1734 }
1735
1736
1737 // Returns the HTML code to display a thumbnail for a link
1738 // with a link to the original URL.
1739 // Understands various services (youtube.com...)
1740 // Input: $url = url for which the thumbnail must be found.
1741 //        $href = if provided, this URL will be followed instead of $url
1742 // Returns '' if no thumbnail available.
1743 function thumbnail($url,$href=false)
1744 {
1745     $t = computeThumbnail($url,$href);
1746     if (count($t)==0) return ''; // Empty array = no thumbnail for this URL.
1747
1748     $html='<a href="'.htmlspecialchars($t['href']).'"><img src="'.htmlspecialchars($t['src']).'"';
1749     if (!empty($t['width']))  $html.=' width="'.htmlspecialchars($t['width']).'"';
1750     if (!empty($t['height'])) $html.=' height="'.htmlspecialchars($t['height']).'"';
1751     if (!empty($t['style']))  $html.=' style="'.htmlspecialchars($t['style']).'"';
1752     if (!empty($t['alt']))    $html.=' alt="'.htmlspecialchars($t['alt']).'"';
1753     $html.='></a>';
1754     return $html;
1755 }
1756
1757
1758 // Returns the HTML code to display a thumbnail for a link
1759 // for the picture wall (using lazy image loading)
1760 // Understands various services (youtube.com...)
1761 // Input: $url = url for which the thumbnail must be found.
1762 //        $href = if provided, this URL will be followed instead of $url
1763 // Returns '' if no thumbnail available.
1764 function lazyThumbnail($url,$href=false)
1765 {
1766     $t = computeThumbnail($url,$href);
1767     if (count($t)==0) return ''; // Empty array = no thumbnail for this URL.
1768
1769     $html='<a href="'.htmlspecialchars($t['href']).'">';
1770
1771     // Lazy image (only loaded by javascript when in the viewport).
1772     $html.='<img class="lazyimage" src="#" data-original="'.htmlspecialchars($t['src']).'"';
1773     if (!empty($t['width']))  $html.=' width="'.htmlspecialchars($t['width']).'"';
1774     if (!empty($t['height'])) $html.=' height="'.htmlspecialchars($t['height']).'"';
1775     if (!empty($t['style']))  $html.=' style="'.htmlspecialchars($t['style']).'"';
1776     if (!empty($t['alt']))    $html.=' alt="'.htmlspecialchars($t['alt']).'"';
1777     $html.='>';
1778
1779     // No-javascript fallback:
1780     $html.='<noscript><img src="'.htmlspecialchars($t['src']).'"';
1781     if (!empty($t['width']))  $html.=' width="'.htmlspecialchars($t['width']).'"';
1782     if (!empty($t['height'])) $html.=' height="'.htmlspecialchars($t['height']).'"';
1783     if (!empty($t['style']))  $html.=' style="'.htmlspecialchars($t['style']).'"';
1784     if (!empty($t['alt']))    $html.=' alt="'.htmlspecialchars($t['alt']).'"';
1785     $html.='></noscript></a>';
1786
1787     return $html;
1788 }
1789
1790
1791 // -----------------------------------------------------------------------------------------------
1792 // Installation
1793 // This function should NEVER be called if the file data/config.php exists.
1794 function install()
1795 {
1796     // On free.fr host, make sure the /sessions directory exists, otherwise login will not work.
1797     if (endsWith($_SERVER['SERVER_NAME'],'.free.fr') && !is_dir($_SERVER['DOCUMENT_ROOT'].'/sessions')) mkdir($_SERVER['DOCUMENT_ROOT'].'/sessions',0705);
1798
1799     if (!empty($_POST['setlogin']) && !empty($_POST['setpassword']))
1800     {
1801         $tz = 'UTC';
1802         if (!empty($_POST['continent']) && !empty($_POST['city']))
1803             if (isTZvalid($_POST['continent'],$_POST['city']))
1804                 $tz = $_POST['continent'].'/'.$_POST['city'];
1805         $GLOBALS['timezone'] = $tz;
1806         // Everything is ok, let's create config file.
1807         $GLOBALS['login'] = $_POST['setlogin'];
1808         $GLOBALS['salt'] = sha1(uniqid('',true).'_'.mt_rand()); // Salt renders rainbow-tables attacks useless.
1809         $GLOBALS['hash'] = sha1($_POST['setpassword'].$GLOBALS['login'].$GLOBALS['salt']);
1810         $GLOBALS['title'] = (empty($_POST['title']) ? 'Shared links on '.htmlspecialchars(indexUrl()) : $_POST['title'] );
1811         writeConfig();
1812         echo '<script language="JavaScript">alert("Shaarli is now configured. Please enter your login/password and start shaaring your links !");document.location=\'?do=login\';</script>';
1813         exit;
1814     }
1815
1816     // Display config form:
1817     list($timezone_form,$timezone_js) = templateTZform();
1818     $timezone_html=''; if ($timezone_form!='') $timezone_html='<tr><td valign="top"><b>Timezone:</b></td><td>'.$timezone_form.'</td></tr>';
1819
1820     $PAGE = new pageBuilder;
1821     $PAGE->assign('timezone_html',$timezone_html);
1822     $PAGE->assign('timezone_js',$timezone_js);
1823     $PAGE->renderPage('install');
1824     exit;
1825 }
1826
1827 // Generates the timezone selection form and javascript.
1828 // Input: (optional) current timezone (can be 'UTC/UTC'). It will be pre-selected.
1829 // Output: array(html,js)
1830 // Example: list($htmlform,$js) = templateTZform('Europe/Paris');  // Europe/Paris pre-selected.
1831 // Returns array('','') if server does not support timezones list. (eg. php 5.1 on free.fr)
1832 function templateTZform($ptz=false)
1833 {
1834     if (function_exists('timezone_identifiers_list')) // because of old php version (5.1) which can be found on free.fr
1835     {
1836         // Try to split the provided timezone.
1837         if ($ptz==false) { $l=timezone_identifiers_list(); $ptz=$l[0]; }
1838         $spos=strpos($ptz,'/'); $pcontinent=substr($ptz,0,$spos); $pcity=substr($ptz,$spos+1);
1839
1840         // Display config form:
1841         $timezone_form = '';
1842         $timezone_js = '';
1843         // The list is in the forme "Europe/Paris", "America/Argentina/Buenos_Aires"...
1844         // We split the list in continents/cities.
1845         $continents = array();
1846         $cities = array();
1847         foreach(timezone_identifiers_list() as $tz)
1848         {
1849             if ($tz=='UTC') $tz='UTC/UTC';
1850             $spos = strpos($tz,'/');
1851             if ($spos!==false)
1852             {
1853                 $continent=substr($tz,0,$spos); $city=substr($tz,$spos+1);
1854                 $continents[$continent]=1;
1855                 if (!isset($cities[$continent])) $cities[$continent]=array();
1856                 $cities[$continent].='<option value="'.$city.'"'.($pcity==$city?'selected':'').'>'.$city.'</option>';
1857             }
1858         }
1859         $continents_html = '';
1860         $continents = array_keys($continents);
1861         foreach($continents as $continent)
1862             $continents_html.='<option  value="'.$continent.'"'.($pcontinent==$continent?'selected':'').'>'.$continent.'</option>';
1863         $cities_html = $cities[$pcontinent];
1864         $timezone_form = "Continent: <select name=\"continent\" id=\"continent\" onChange=\"onChangecontinent();\">${continents_html}</select><br /><br />";
1865         $timezone_form .= "City: <select name=\"city\" id=\"city\">${cities[$pcontinent]}</select><br /><br />";
1866         $timezone_js = "<script language=\"JavaScript\">";
1867         $timezone_js .= "function onChangecontinent(){document.getElementById(\"city\").innerHTML = citiescontinent[document.getElementById(\"continent\").value];}";
1868         $timezone_js .= "var citiescontinent = ".json_encode($cities).";" ;
1869         $timezone_js .= "</script>" ;
1870         return array($timezone_form,$timezone_js);
1871     }
1872     return array('','');
1873 }
1874
1875 // Tells if a timezone is valid or not.
1876 // If not valid, returns false.
1877 // If system does not support timezone list, returns false.
1878 function isTZvalid($continent,$city)
1879 {
1880     $tz = $continent.'/'.$city;
1881     if (function_exists('timezone_identifiers_list')) // because of old php version (5.1) which can be found on free.fr
1882     {
1883         if (in_array($tz, timezone_identifiers_list())) // it's a valid timezone ?
1884                     return true;
1885     }
1886     return false;
1887 }
1888
1889
1890 // Webservices (for use with jQuery/jQueryUI)
1891 // eg.  index.php?ws=tags&term=minecr
1892 function processWS()
1893 {
1894     if (empty($_GET['ws']) || empty($_GET['term'])) return;
1895     $term = $_GET['term'];
1896     global $LINKSDB;
1897     header('Content-Type: application/json; charset=utf-8');
1898
1899     // Search in tags (case insentitive, cumulative search)
1900     if ($_GET['ws']=='tags')
1901     {
1902         $tags=explode(' ',str_replace(',',' ',$term)); $last = array_pop($tags); // Get the last term ("a b c d" ==> "a b c", "d")
1903         $addtags=''; if ($tags) $addtags=implode(' ',$tags).' '; // We will pre-pend previous tags
1904         $suggested=array();
1905         /* To speed up things, we store list of tags in session */
1906         if (empty($_SESSION['tags'])) $_SESSION['tags'] = $LINKSDB->allTags();
1907         foreach($_SESSION['tags'] as $key=>$value)
1908         {
1909             if (startsWith($key,$last,$case=false) && !in_array($key,$tags)) $suggested[$addtags.$key.' ']=0;
1910         }
1911         echo json_encode(array_keys($suggested));
1912         exit;
1913     }
1914
1915     // Search a single tag (case sentitive, single tag search)
1916     if ($_GET['ws']=='singletag')
1917     {
1918         /* To speed up things, we store list of tags in session */
1919         if (empty($_SESSION['tags'])) $_SESSION['tags'] = $LINKSDB->allTags();
1920         foreach($_SESSION['tags'] as $key=>$value)
1921         {
1922             if (startsWith($key,$term,$case=true)) $suggested[$key]=0;
1923         }
1924         echo json_encode(array_keys($suggested));
1925         exit;
1926     }
1927 }
1928
1929 // Re-write configuration file according to globals.
1930 // Requires some $GLOBALS to be set (login,hash,salt,title).
1931 // If the config file cannot be saved, an error message is dislayed and the user is redirected to "Tools" menu.
1932 // (otherwise, the function simply returns.)
1933 function writeConfig()
1934 {
1935     if (is_file($GLOBALS['config']['CONFIG_FILE']) && !isLoggedIn()) die('You are not authorized to alter config.'); // Only logged in user can alter config.
1936     if (empty($GLOBALS['redirector'])) $GLOBALS['redirector']='';
1937     $config='<?php $GLOBALS[\'login\']='.var_export($GLOBALS['login'],true).'; $GLOBALS[\'hash\']='.var_export($GLOBALS['hash'],true).'; $GLOBALS[\'salt\']='.var_export($GLOBALS['salt'],true).'; ';
1938     $config .='$GLOBALS[\'timezone\']='.var_export($GLOBALS['timezone'],true).'; date_default_timezone_set('.var_export($GLOBALS['timezone'],true).'); $GLOBALS[\'title\']='.var_export($GLOBALS['title'],true).';';
1939     $config .= '$GLOBALS[\'redirector\']='.var_export($GLOBALS['redirector'],true).'; ';
1940     $config .= ' ?>';
1941     if (!file_put_contents($GLOBALS['config']['CONFIG_FILE'],$config) || strcmp(file_get_contents($GLOBALS['config']['CONFIG_FILE']),$config)!=0)
1942     {
1943         echo '<script language="JavaScript">alert("Shaarli could not create the config file. Please make sure Shaarli has the right to write in the folder is it installed in.");document.location=\'?\';</script>';
1944         exit;
1945     }
1946 }
1947
1948 /* Because some f*cking services like Flickr require an extra HTTP request to get the thumbnail URL,
1949    I have deported the thumbnail URL code generation here, otherwise this would slow down page generation.
1950    The following function takes the URL a link (eg. a flickr page) and return the proper thumbnail.
1951    This function is called by passing the url:
1952    http://mywebsite.com/shaarli/?do=genthumbnail&hmac=[HMAC]&url=[URL]
1953    [URL] is the URL of the link (eg. a flickr page)
1954    [HMAC] is the signature for the [URL] (so that these URL cannot be forged).
1955    The function below will fetch the image from the webservice and store it in the cache.
1956 */
1957 function genThumbnail()
1958 {
1959     // Make sure the parameters in the URL were generated by us.
1960     $sign = hash_hmac('sha256', $_GET['url'], $GLOBALS['salt']);
1961     if ($sign!=$_GET['hmac']) die('Naughty boy !');
1962
1963     // Let's see if we don't already have the image for this URL in the cache.
1964     $thumbname=hash('sha1',$_GET['url']).'.jpg';
1965     if (is_file($GLOBALS['config']['CACHEDIR'].'/'.$thumbname))
1966     {   // We have the thumbnail, just serve it:
1967         header('Content-Type: image/jpeg');
1968         echo file_get_contents($GLOBALS['config']['CACHEDIR'].'/'.$thumbname);
1969         return;
1970     }
1971     // We may also serve a blank image (if service did not respond)
1972     $blankname=hash('sha1',$_GET['url']).'.gif';
1973     if (is_file($GLOBALS['config']['CACHEDIR'].'/'.$blankname))
1974     {
1975         header('Content-Type: image/gif');
1976         echo file_get_contents($GLOBALS['config']['CACHEDIR'].'/'.$blankname);
1977         return;
1978     }
1979
1980     // Otherwise, generate the thumbnail.
1981     $url = $_GET['url'];
1982     $domain = parse_url($url,PHP_URL_HOST);
1983
1984     if ($domain=='flickr.com' || endsWith($domain,'.flickr.com'))
1985     {
1986         // WTF ? I need a flickr API key to get a fucking thumbnail ? No way.
1987         // I'll extract the thumbnail URL myself. First, we have to get the flickr HTML page.
1988         // All images in Flickr are in the form:
1989         // http://farm[farm].static.flickr.com/[server]/[id]_[secret]_[size].jpg
1990         // Example: http://farm7.static.flickr.com/6205/6088513739_fc158467fe_z.jpg
1991         // We want the 240x120 format, which is _m.jpg.
1992         // We search for the first image in the page which does not have the _s size,
1993         // when use the _m to get the thumbnail.
1994
1995         // Is this a link to an image, or to a flickr page ?
1996         $imageurl='';
1997         if (endswith(parse_url($url,PHP_URL_PATH),'.jpg'))
1998         {  // This is a direct link to an image. eg. http://farm1.static.flickr.com/5/5921913_ac83ed27bd_o.jpg
1999             preg_match('!(http://farm\d+.static.flickr.com/\d+/\d+_\w+_)\w.jpg!',$url,$matches);
2000             if (!empty($matches[1])) $imageurl=$matches[1].'m.jpg';
2001         }
2002         else // this is a flickr page (html)
2003         {
2004             list($httpstatus,$headers,$data) = getHTTP($url,20); // Get the flickr html page.
2005             if (strpos($httpstatus,'200 OK')!==false)
2006             {
2007                 preg_match('!(http://farm\d+.static.flickr.com/\d+/\d+_\w+_)[^s].jpg!',$data,$matches);
2008                 if (!empty($matches[1])) $imageurl=$matches[1].'m.jpg';
2009             }
2010         }
2011         if ($imageurl!='')
2012         {   // Let's download the image.
2013             list($httpstatus,$headers,$data) = getHTTP($imageurl,10); // Image is 240x120, so 10 seconds to download should be enough.
2014             if (strpos($httpstatus,'200 OK')!==false)
2015             {
2016                 file_put_contents($GLOBALS['config']['CACHEDIR'].'/'.$thumbname,$data); // Save image to cache.
2017                 header('Content-Type: image/jpeg');
2018                 echo $data;
2019                 return;
2020             }
2021         }
2022     }
2023
2024     elseif ($domain=='vimeo.com' )
2025     {
2026         // This is more complex: we have to perform a HTTP request, then parse the result.
2027         // Maybe we should deport this to javascript ? Example: http://stackoverflow.com/questions/1361149/get-img-thumbnails-from-vimeo/4285098#4285098
2028         $vid = substr(parse_url($url,PHP_URL_PATH),1);
2029         list($httpstatus,$headers,$data) = getHTTP('http://vimeo.com/api/v2/video/'.htmlspecialchars($vid).'.php',5);
2030         if (strpos($httpstatus,'200 OK')!==false)
2031         {
2032             $t = unserialize($data);
2033             $imageurl = $t[0]['thumbnail_medium'];
2034             // Then we download the image and serve it to our client.
2035             list($httpstatus,$headers,$data) = getHTTP($imageurl,10);
2036             if (strpos($httpstatus,'200 OK')!==false)
2037             {
2038                 file_put_contents($GLOBALS['config']['CACHEDIR'].'/'.$thumbname,$data); // Save image to cache.
2039                 header('Content-Type: image/jpeg');
2040                 echo $data;
2041                 return;
2042             }
2043         }
2044     }
2045
2046     elseif ($domain=='ted.com' || endsWith($domain,'.ted.com'))
2047     {
2048         // The thumbnail for TED talks is located in the <link rel="image_src" [...]> tag on that page
2049         // http://www.ted.com/talks/mikko_hypponen_fighting_viruses_defending_the_net.html
2050         // <link rel="image_src" href="http://images.ted.com/images/ted/28bced335898ba54d4441809c5b1112ffaf36781_389x292.jpg" />
2051         list($httpstatus,$headers,$data) = getHTTP($url,5);
2052         if (strpos($httpstatus,'200 OK')!==false)
2053         {
2054             // Extract the link to the thumbnail
2055             preg_match('!link rel="image_src" href="(http://images.ted.com/images/ted/.+_\d+x\d+\.jpg)"!',$data,$matches);
2056             if (!empty($matches[1]))
2057             {   // Let's download the image.
2058                 $imageurl=$matches[1];
2059                 list($httpstatus,$headers,$data) = getHTTP($imageurl,20); // No control on image size, so wait long enough.
2060                 if (strpos($httpstatus,'200 OK')!==false)
2061                 {
2062                     $filepath=$GLOBALS['config']['CACHEDIR'].'/'.$thumbname;
2063                     file_put_contents($filepath,$data); // Save image to cache.
2064                     if (resizeImage($filepath))
2065                     {
2066                         header('Content-Type: image/jpeg');
2067                         echo file_get_contents($filepath);
2068                         return;
2069                     }
2070                 }
2071             }
2072         }
2073     }
2074
2075     elseif ($domain=='xkcd.com' || endsWith($domain,'.xkcd.com'))
2076     {
2077         // There is no thumbnail available for xkcd comics, so download the whole image and resize it.
2078         // http://xkcd.com/327/
2079         // <img src="http://imgs.xkcd.com/comics/exploits_of_a_mom.png" title="<BLABLA>" alt="<BLABLA>" />
2080         list($httpstatus,$headers,$data) = getHTTP($url,5);
2081         if (strpos($httpstatus,'200 OK')!==false)
2082         {
2083             // Extract the link to the thumbnail
2084             preg_match('!<img src="(http://imgs.xkcd.com/comics/.*)" title="[^s]!',$data,$matches);
2085             if (!empty($matches[1]))
2086             {   // Let's download the image.
2087                 $imageurl=$matches[1];
2088                 list($httpstatus,$headers,$data) = getHTTP($imageurl,20); // No control on image size, so wait long enough.
2089                 if (strpos($httpstatus,'200 OK')!==false)
2090                 {
2091                     $filepath=$GLOBALS['config']['CACHEDIR'].'/'.$thumbname;
2092                     file_put_contents($filepath,$data); // Save image to cache.
2093                     if (resizeImage($filepath))
2094                     {
2095                         header('Content-Type: image/jpeg');
2096                         echo file_get_contents($filepath);
2097                         return;
2098                     }
2099                 }
2100             }
2101         }
2102     }
2103
2104     else
2105     {
2106         // For all other domains, we try to download the image and make a thumbnail.
2107         list($httpstatus,$headers,$data) = getHTTP($url,30);  // We allow 30 seconds max to download (and downloads are limited to 4 Mb)
2108         if (strpos($httpstatus,'200 OK')!==false)
2109         {
2110             $filepath=$GLOBALS['config']['CACHEDIR'].'/'.$thumbname;
2111             file_put_contents($filepath,$data); // Save image to cache.
2112             if (resizeImage($filepath))
2113             {
2114                 header('Content-Type: image/jpeg');
2115                 echo file_get_contents($filepath);
2116                 return;
2117             }
2118         }
2119     }
2120
2121
2122     // Otherwise, return an empty image (8x8 transparent gif)
2123     $blankgif = base64_decode('R0lGODlhCAAIAIAAAP///////yH5BAEKAAEALAAAAAAIAAgAAAIHjI+py+1dAAA7');
2124     file_put_contents($GLOBALS['config']['CACHEDIR'].'/'.$blankname,$blankgif); // Also put something in cache so that this URL is not requested twice.
2125     header('Content-Type: image/gif');
2126     echo $blankgif;
2127 }
2128
2129 // Make a thumbnail of the image (to width: 120 pixels)
2130 // Returns true if success, false otherwise.
2131 function resizeImage($filepath)
2132 {
2133     if (!function_exists('imagecreatefromjpeg')) return false; // GD not present: no thumbnail possible.
2134
2135     // Trick: some stupid people rename GIF as JPEG... or else.
2136     // So we really try to open each image type whatever the extension is.
2137     $header=file_get_contents($filepath,false,NULL,0,256); // Read first 256 bytes and try to sniff file type.
2138     $im=false;
2139     $i=strpos($header,'GIF8'); if (($i!==false) && ($i==0)) $im = imagecreatefromgif($filepath); // Well this is crude, but it should be enough.
2140     $i=strpos($header,'PNG'); if (($i!==false) && ($i==1)) $im = imagecreatefrompng($filepath);
2141     $i=strpos($header,'JFIF'); if ($i!==false) $im = imagecreatefromjpeg($filepath);
2142     if (!$im) return false;  // Unable to open image (corrupted or not an image)
2143     $w = imagesx($im);
2144     $h = imagesy($im);
2145     $ystart = 0; $yheight=$h;
2146     if ($h>$w) { $ystart= ($h/2)-($w/2); $yheight=$w/2; }
2147     $nw = 120;   // Desired width
2148     $nh = min(floor(($h*$nw)/$w),120); // Compute new width/height, but maximum 120 pixels height.
2149     // Resize image:
2150     $im2 = imagecreatetruecolor($nw,$nh);
2151     imagecopyresampled($im2, $im, 0, 0, 0, $ystart, $nw, $nh, $w, $yheight);
2152     imageinterlace($im2,true); // For progressive JPEG.
2153     $tempname=$filepath.'_TEMP.jpg';
2154     imagejpeg($im2, $tempname, 90);
2155     imagedestroy($im);
2156     imagedestroy($im2);
2157     rename($tempname,$filepath);  // Overwrite original picture with thumbnail.
2158     return true;
2159 }
2160
2161 // Invalidate caches when the database is changed or the user logs out.
2162 // (eg. tags cache).
2163 function invalidateCaches()
2164 {
2165     unset($_SESSION['tags']);
2166 }
2167
2168 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=genthumbnail')) { genThumbnail(); exit; }  // Thumbnail generation/cache does not need the link database.
2169 $LINKSDB=new linkdb(isLoggedIn() || $GLOBALS['config']['OPEN_SHAARLI']);  // Read links from database (and filter private links if used it not logged in).
2170 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'ws=')) { processWS(); exit; } // Webservices (for jQuery/jQueryUI)
2171 if (!isset($_SESSION['LINKS_PER_PAGE'])) $_SESSION['LINKS_PER_PAGE']=$GLOBALS['config']['LINKS_PER_PAGE'];
2172 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=dailyrss')) { showDailyRSS(); exit; }
2173 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=rss')) { showRSS(); exit; }
2174 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=atom')) { showATOM(); exit; }
2175 renderPage();
2176 ?>