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