index.php

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