]> git.immae.eu Git - github/shaarli/Shaarli.git/blame - index.php
improve tag cloud font size scaling
[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.)
60b83e7c 92if (!is_writable(realpath(dirname(__FILE__)))) die('<pre>ERROR: Shaarli does not have the right to write in its own directory.</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');
50976223 121 echo 'Your PHP version is obsolete! Shaarli requires at least php 5.1.0, and thus cannot run. Sorry. Your PHP version has known security vulnerabilities and should be updated as soon as possible.';
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)
1e3b2740 1254 // Tag font size scaling: default 15 and 30 logarithm bases affect scaling, 22 and 6 are arbitrary font sizes for max and min sizes.
45034273 1255 {
1e3b2740 1256 $tagList[$key] = array('count'=>$value,'size'=>log($value, 15) / log($maxcount, 30) * (22-6) + 6);
45034273
SS
1257 }
1258 $PAGE = new pageBuilder;
1259 $PAGE->assign('linkcount',count($LINKSDB));
1260 $PAGE->assign('tags',$tagList);
1261 $PAGE->renderPage('tagcloud');
bb8f712d 1262 exit;
45034273
SS
1263 }
1264
1265 // -------- User clicks on a tag in a link: The tag is added to the list of searched tags (searchtags=...)
1266 if (isset($_GET['addtag']))
1267 {
1268 // Get previous URL (http_referer) and add the tag to the searchtags parameters in query.
1269 if (empty($_SERVER['HTTP_REFERER'])) { header('Location: ?searchtags='.urlencode($_GET['addtag'])); exit; } // In case browser does not send HTTP_REFERER
1270 parse_str(parse_url($_SERVER['HTTP_REFERER'],PHP_URL_QUERY), $params);
732e683b
FE
1271
1272 // Check if this tag is already in the search query and ignore it if it is.
1273 // Each tag is always separated by a space
1274 $current_tags = explode(' ', $params['searchtags']);
1275 $addtag = true;
1276 foreach ($current_tags as $value) {
1277 if ($value === $_GET['addtag']) {
1278 $addtag = false;
1279 break;
1280 }
1281 }
1282 // Append the tag if necessary
1283 if (empty($params['searchtags'])) {
1284 $params['searchtags'] = trim($_GET['addtag']);
1285 }
1286 else if ($addtag) {
1287 $params['searchtags'] = trim($params['searchtags']).' '.trim($_GET['addtag']);
1288 }
1289
45034273
SS
1290 unset($params['page']); // We also remove page (keeping the same page has no sense, since the results are different)
1291 header('Location: ?'.http_build_query($params));
1292 exit;
1293 }
1294
1295 // -------- User clicks on a tag in result count: Remove the tag from the list of searched tags (searchtags=...)
1296 if (isset($_GET['removetag']))
1297 {
1298 // Get previous URL (http_referer) and remove the tag from the searchtags parameters in query.
1299 if (empty($_SERVER['HTTP_REFERER'])) { header('Location: ?'); exit; } // In case browser does not send HTTP_REFERER
1300 parse_str(parse_url($_SERVER['HTTP_REFERER'],PHP_URL_QUERY), $params);
1301 if (isset($params['searchtags']))
1302 {
1303 $tags = explode(' ',$params['searchtags']);
1304 $tags=array_diff($tags, array($_GET['removetag'])); // Remove value from array $tags.
1305 if (count($tags)==0) unset($params['searchtags']); else $params['searchtags'] = implode(' ',$tags);
1306 unset($params['page']); // We also remove page (keeping the same page has no sense, since the results are different)
1307 }
1308 header('Location: ?'.http_build_query($params));
1309 exit;
1310 }
1311
1312 // -------- User wants to change the number of links per page (linksperpage=...)
1313 if (isset($_GET['linksperpage']))
1314 {
1315 if (is_numeric($_GET['linksperpage'])) { $_SESSION['LINKS_PER_PAGE']=abs(intval($_GET['linksperpage'])); }
ad6c27b7 1316 // Make sure the referrer is Shaarli itself.
feebc6d4 1317 $referer = '?';
f6a6ca0a 1318 if (!empty($_SERVER['HTTP_REFERER']) && strcmp(parse_url($_SERVER['HTTP_REFERER'],PHP_URL_HOST),$_SERVER['HTTP_HOST'])==0)
feebc6d4
SS
1319 $referer = $_SERVER['HTTP_REFERER'];
1320 header('Location: '.$referer);
45034273
SS
1321 exit;
1322 }
bb8f712d 1323
45034273
SS
1324 // -------- User wants to see only private links (toggle)
1325 if (isset($_GET['privateonly']))
1326 {
1327 if (empty($_SESSION['privateonly']))
1328 {
1329 $_SESSION['privateonly']=1; // See only private links
1330 }
1331 else
1332 {
1333 unset($_SESSION['privateonly']); // See all links
1334 }
ad6c27b7 1335 // Make sure the referrer is Shaarli itself.
feebc6d4 1336 $referer = '?';
f6a6ca0a 1337 if (!empty($_SERVER['HTTP_REFERER']) && strcmp(parse_url($_SERVER['HTTP_REFERER'],PHP_URL_HOST),$_SERVER['HTTP_HOST'])==0)
feebc6d4
SS
1338 $referer = $_SERVER['HTTP_REFERER'];
1339 header('Location: '.$referer);
45034273
SS
1340 exit;
1341 }
1342
1343 // -------- Handle other actions allowed for non-logged in users:
1344 if (!isLoggedIn())
1345 {
ad6c27b7 1346 // User tries to post new link but is not logged in:
45034273
SS
1347 // Show login screen, then redirect to ?post=...
1348 if (isset($_GET['post']))
1349 {
a1795ddc 1350 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
1351 exit;
1352 }
aedc912d
FE
1353
1354 // Same case as above except that user tried to access ?do=addlink without being logged in
1355 // Note: passing empty parameters makes Shaarli generate default URLs and descriptions.
1356 if (isset($_GET['do']) && $_GET['do'] === 'addlink') {
1357 header('Location: ?do=login&post=');
1358 exit;
1359 }
1360
45034273
SS
1361 $PAGE = new pageBuilder;
1362 buildLinkList($PAGE,$LINKSDB); // Compute list of links to display
1363 $PAGE->renderPage('linklist');
ad6c27b7 1364 exit; // Never remove this one! All operations below are reserved for logged in user.
45034273
SS
1365 }
1366
1367 // -------- All other functions are reserved for the registered user:
1368
1369 // -------- Display the Tools menu if requested (import/export/bookmarklet...)
1370 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=tools'))
1371 {
1372 $PAGE = new pageBuilder;
1373 $PAGE->assign('linkcount',count($LINKSDB));
1374 $PAGE->assign('pageabsaddr',indexUrl());
1375 $PAGE->renderPage('tools');
1376 exit;
1377 }
1378
1379 // -------- User wants to change his/her password.
1380 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=changepasswd'))
1381 {
1382 if ($GLOBALS['config']['OPEN_SHAARLI']) die('You are not supposed to change a password on an Open Shaarli.');
1383 if (!empty($_POST['setpassword']) && !empty($_POST['oldpassword']))
1384 {
ad6c27b7 1385 if (!tokenOk($_POST['token'])) die('Wrong token.'); // Go away!
45034273
SS
1386
1387 // Make sure old password is correct.
1388 $oldhash = sha1($_POST['oldpassword'].$GLOBALS['login'].$GLOBALS['salt']);
1389 if ($oldhash!=$GLOBALS['hash']) { echo '<script language="JavaScript">alert("The old password is not correct.");document.location=\'?do=changepasswd\';</script>'; exit; }
1390 // Save new password
1391 $GLOBALS['salt'] = sha1(uniqid('',true).'_'.mt_rand()); // Salt renders rainbow-tables attacks useless.
1392 $GLOBALS['hash'] = sha1($_POST['setpassword'].$GLOBALS['login'].$GLOBALS['salt']);
1393 writeConfig();
1394 echo '<script language="JavaScript">alert("Your password has been changed.");document.location=\'?do=tools\';</script>';
1395 exit;
1396 }
1397 else // show the change password form.
1398 {
1399 $PAGE = new pageBuilder;
1400 $PAGE->assign('linkcount',count($LINKSDB));
1401 $PAGE->assign('token',getToken());
1402 $PAGE->renderPage('changepassword');
1403 exit;
1404 }
1405 }
1406
1407 // -------- User wants to change configuration
1408 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=configure'))
1409 {
1410 if (!empty($_POST['title']) )
1411 {
ad6c27b7 1412 if (!tokenOk($_POST['token'])) die('Wrong token.'); // Go away!
45034273
SS
1413 $tz = 'UTC';
1414 if (!empty($_POST['continent']) && !empty($_POST['city']))
1415 if (isTZvalid($_POST['continent'],$_POST['city']))
1416 $tz = $_POST['continent'].'/'.$_POST['city'];
1417 $GLOBALS['timezone'] = $tz;
1418 $GLOBALS['title']=$_POST['title'];
ebb2880d 1419 $GLOBALS['titleLink']=$_POST['titleLink'];
45034273
SS
1420 $GLOBALS['redirector']=$_POST['redirector'];
1421 $GLOBALS['disablesessionprotection']=!empty($_POST['disablesessionprotection']);
858c5c2b 1422 $GLOBALS['disablejquery']=!empty($_POST['disablejquery']);
bb8f712d 1423 $GLOBALS['privateLinkByDefault']=!empty($_POST['privateLinkByDefault']);
45034273
SS
1424 writeConfig();
1425 echo '<script language="JavaScript">alert("Configuration was saved.");document.location=\'?do=tools\';</script>';
1426 exit;
1427 }
1428 else // Show the configuration form.
1429 {
1430 $PAGE = new pageBuilder;
1431 $PAGE->assign('linkcount',count($LINKSDB));
1432 $PAGE->assign('token',getToken());
1433 $PAGE->assign('title',htmlspecialchars( empty($GLOBALS['title']) ? '' : $GLOBALS['title'] , ENT_QUOTES));
1434 $PAGE->assign('redirector',htmlspecialchars( empty($GLOBALS['redirector']) ? '' : $GLOBALS['redirector'] , ENT_QUOTES));
1435 list($timezone_form,$timezone_js) = templateTZform($GLOBALS['timezone']);
ad6c27b7 1436 $PAGE->assign('timezone_form',$timezone_form); // FIXME: Put entire tz form generation in template?
45034273
SS
1437 $PAGE->assign('timezone_js',$timezone_js);
1438 $PAGE->renderPage('configure');
1439 exit;
1440 }
1441 }
1442
1443 // -------- User wants to rename a tag or delete it
1444 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=changetag'))
1445 {
1446 if (empty($_POST['fromtag']))
1447 {
1448 $PAGE = new pageBuilder;
1449 $PAGE->assign('linkcount',count($LINKSDB));
1450 $PAGE->assign('token',getToken());
1451 $PAGE->renderPage('changetag');
1452 exit;
1453 }
1454 if (!tokenOk($_POST['token'])) die('Wrong token.');
1455
1456 // Delete a tag:
1457 if (!empty($_POST['deletetag']) && !empty($_POST['fromtag']))
1458 {
1459 $needle=trim($_POST['fromtag']);
ad6c27b7 1460 $linksToAlter = $LINKSDB->filterTags($needle,true); // True for case-sensitive tag search.
45034273
SS
1461 foreach($linksToAlter as $key=>$value)
1462 {
1463 $tags = explode(' ',trim($value['tags']));
1464 unset($tags[array_search($needle,$tags)]); // Remove tag.
1465 $value['tags']=trim(implode(' ',$tags));
1466 $LINKSDB[$key]=$value;
1467 }
ad6c27b7 1468 $LINKSDB->savedb(); // Save to disk.
45034273
SS
1469 echo '<script language="JavaScript">alert("Tag was removed from '.count($linksToAlter).' links.");document.location=\'?\';</script>';
1470 exit;
1471 }
1472
1473 // Rename a tag:
1474 if (!empty($_POST['renametag']) && !empty($_POST['fromtag']) && !empty($_POST['totag']))
1475 {
1476 $needle=trim($_POST['fromtag']);
1477 $linksToAlter = $LINKSDB->filterTags($needle,true); // true for case-sensitive tag search.
1478 foreach($linksToAlter as $key=>$value)
1479 {
1480 $tags = explode(' ',trim($value['tags']));
ad6c27b7 1481 $tags[array_search($needle,$tags)] = trim($_POST['totag']); // Replace tags value.
45034273
SS
1482 $value['tags']=trim(implode(' ',$tags));
1483 $LINKSDB[$key]=$value;
1484 }
ad6c27b7 1485 $LINKSDB->savedb(); // Save to disk.
45034273
SS
1486 echo '<script language="JavaScript">alert("Tag was renamed in '.count($linksToAlter).' links.");document.location=\'?searchtags='.urlencode($_POST['totag']).'\';</script>';
1487 exit;
1488 }
1489 }
1490
ad6c27b7 1491 // -------- User wants to add a link without using the bookmarklet: Show form.
45034273
SS
1492 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=addlink'))
1493 {
1494 $PAGE = new pageBuilder;
1495 $PAGE->assign('linkcount',count($LINKSDB));
1496 $PAGE->renderPage('addlink');
1497 exit;
1498 }
1499
1500 // -------- User clicked the "Save" button when editing a link: Save link to database.
1501 if (isset($_POST['save_edit']))
1502 {
ad6c27b7 1503 if (!tokenOk($_POST['token'])) die('Wrong token.'); // Go away!
45034273
SS
1504 $tags = trim(preg_replace('/\s\s+/',' ', $_POST['lf_tags'])); // Remove multiple spaces.
1505 $linkdate=$_POST['lf_linkdate'];
feebc6d4 1506 $url = trim($_POST['lf_url']);
dd064cc3 1507 if (!startsWith($url,'http:') && !startsWith($url,'https:') && !startsWith($url,'ftp:') && !startsWith($url,'magnet:') && !startsWith($url,'?'))
feebc6d4
SS
1508 $url = 'http://'.$url;
1509 $link = array('title'=>trim($_POST['lf_title']),'url'=>$url,'description'=>trim($_POST['lf_description']),'private'=>(isset($_POST['lf_private']) ? 1 : 0),
45034273
SS
1510 'linkdate'=>$linkdate,'tags'=>str_replace(',',' ',$tags));
1511 if ($link['title']=='') $link['title']=$link['url']; // If title is empty, use the URL as title.
1512 $LINKSDB[$linkdate] = $link;
ad6c27b7 1513 $LINKSDB->savedb(); // Save to disk.
45034273
SS
1514 pubsubhub();
1515
1516 // If we are called from the bookmarklet, we must close the popup:
1517 if (isset($_GET['source']) && $_GET['source']=='bookmarklet') { echo '<script language="JavaScript">self.close();</script>'; exit; }
1518 $returnurl = ( isset($_POST['returnurl']) ? $_POST['returnurl'] : '?' );
b342b2a4 1519 $returnurl .= '#'.smallHash($linkdate); // Scroll to the link which has been edited.
45034273
SS
1520 header('Location: '.$returnurl); // After saving the link, redirect to the page the user was on.
1521 exit;
1522 }
1523
1524 // -------- User clicked the "Cancel" button when editing a link.
1525 if (isset($_POST['cancel_edit']))
1526 {
ad6c27b7 1527 // If we are called from the bookmarklet, we must close the popup:
45034273
SS
1528 if (isset($_GET['source']) && $_GET['source']=='bookmarklet') { echo '<script language="JavaScript">self.close();</script>'; exit; }
1529 $returnurl = ( isset($_POST['returnurl']) ? $_POST['returnurl'] : '?' );
b342b2a4 1530 $returnurl .= '#'.smallHash($_POST['lf_linkdate']); // Scroll to the link which has been edited.
45034273
SS
1531 header('Location: '.$returnurl); // After canceling, redirect to the page the user was on.
1532 exit;
1533 }
1534
ad6c27b7 1535 // -------- User clicked the "Delete" button when editing a link: Delete link from database.
45034273
SS
1536 if (isset($_POST['delete_link']))
1537 {
1538 if (!tokenOk($_POST['token'])) die('Wrong token.');
1539 // We do not need to ask for confirmation:
ad6c27b7 1540 // - confirmation is handled by JavaScript
45034273
SS
1541 // - we are protected from XSRF by the token.
1542 $linkdate=$_POST['lf_linkdate'];
1543 unset($LINKSDB[$linkdate]);
1544 $LINKSDB->savedb(); // save to disk
1545
1546 // If we are called from the bookmarklet, we must close the popup:
1547 if (isset($_GET['source']) && $_GET['source']=='bookmarklet') { echo '<script language="JavaScript">self.close();</script>'; exit; }
1548 $returnurl = ( isset($_POST['returnurl']) ? $_POST['returnurl'] : '?' );
1549 if ($returnurl=='?') { $returnurl = (isset($_SERVER['HTTP_REFERER']) ? $_SERVER['HTTP_REFERER'] : '?'); }
1550 header('Location: '.$returnurl); // After deleting the link, redirect to the page the user was on.
1551 exit;
1552 }
1553
1554 // -------- User clicked the "EDIT" button on a link: Display link edit form.
1555 if (isset($_GET['edit_link']))
1556 {
1557 $link = $LINKSDB[$_GET['edit_link']]; // Read database
1558 if (!$link) { header('Location: ?'); exit; } // Link not found in database.
1559 $PAGE = new pageBuilder;
1560 $PAGE->assign('linkcount',count($LINKSDB));
1561 $PAGE->assign('link',$link);
1562 $PAGE->assign('link_is_new',false);
1563 $PAGE->assign('token',getToken()); // XSRF protection.
1564 $PAGE->assign('http_referer',(isset($_SERVER['HTTP_REFERER']) ? $_SERVER['HTTP_REFERER'] : ''));
1565 $PAGE->renderPage('editlink');
1566 exit;
1567 }
1568
1569 // -------- User want to post a new link: Display link edit form.
1570 if (isset($_GET['post']))
1571 {
1572 $url=$_GET['post'];
1573
1574 // We remove the annoying parameters added by FeedBurner and GoogleFeedProxy (?utm_source=...)
1575 $i=strpos($url,'&utm_source='); if ($i!==false) $url=substr($url,0,$i);
1576 $i=strpos($url,'?utm_source='); if ($i!==false) $url=substr($url,0,$i);
1577 $i=strpos($url,'#xtor=RSS-'); if ($i!==false) $url=substr($url,0,$i);
1578
1579 $link_is_new = false;
1580 $link = $LINKSDB->getLinkFromUrl($url); // Check if URL is not already in database (in this case, we will edit the existing link)
1581 if (!$link)
1582 {
1583 $link_is_new = true; // This is a new link
1584 $linkdate = strval(date('Ymd_His'));
1585 $title = (empty($_GET['title']) ? '' : $_GET['title'] ); // Get title if it was provided in URL (by the bookmarklet).
7b2186a6 1586 $description = (empty($_GET['description']) ? '' : $_GET['description']); // Get description if it was provided in URL (by the bookmarklet). [Bronco added that]
3fac0a52 1587 $tags = (empty($_GET['tags']) ? '' : $_GET['tags'] ); // Get tags if it was provided in URL
732e683b 1588 $private = (!empty($_GET['private']) && $_GET['private'] === "1" ? 1 : 0); // Get private if it was provided in URL
45034273 1589 if (($url!='') && parse_url($url,PHP_URL_SCHEME)=='') $url = 'http://'.$url;
ad6c27b7 1590 // 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
1591 if (empty($title) && parse_url($url,PHP_URL_SCHEME)=='http')
1592 {
1593 list($status,$headers,$data) = getHTTP($url,4); // Short timeout to keep the application responsive.
1594 // FIXME: Decode charset according to specified in either 1) HTTP response headers or 2) <head> in html
002ef0e5
SS
1595 if (strpos($status,'200 OK')!==false)
1596 {
1597 // Look for charset in html header.
1598 preg_match('#<meta .*charset=.*>#Usi', $data, $meta);
732e683b 1599
002ef0e5
SS
1600 // If found, extract encoding.
1601 if (!empty($meta[0]))
1602 {
1603 // Get encoding specified in header.
1604 preg_match('#charset="?(.*)"#si', $meta[0], $enc);
1605 // If charset not found, use utf-8.
1606 $html_charset = (!empty($enc[1])) ? strtolower($enc[1]) : 'utf-8';
1607 }
1608 else { $html_charset = 'utf-8'; }
732e683b 1609
002ef0e5
SS
1610 // Extract title
1611 $title = html_extract_title($data);
1612 if (!empty($title))
1613 {
1614 // Re-encode title in utf-8 if necessary.
1615 $title = ($html_charset == 'iso-8859-1') ? utf8_encode($title) : $title;
1616 }
1617 }
45034273 1618 }
27646ca5 1619 if ($url=='') // In case of empty URL, this is just a text (with a link that points to itself)
1620 {
1621 $url='?'.smallHash($linkdate);
1622 $title='Note: ';
1623 }
3fac0a52 1624 $link = array('linkdate'=>$linkdate,'title'=>$title,'url'=>$url,'description'=>$description,'tags'=>$tags,'private'=>$private);
45034273
SS
1625 }
1626
1627 $PAGE = new pageBuilder;
1628 $PAGE->assign('linkcount',count($LINKSDB));
1629 $PAGE->assign('link',$link);
1630 $PAGE->assign('link_is_new',$link_is_new);
1631 $PAGE->assign('token',getToken()); // XSRF protection.
1632 $PAGE->assign('http_referer',(isset($_SERVER['HTTP_REFERER']) ? $_SERVER['HTTP_REFERER'] : ''));
1633 $PAGE->renderPage('editlink');
1634 exit;
1635 }
1636
1637 // -------- Export as Netscape Bookmarks HTML file.
1638 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=export'))
1639 {
1640 if (empty($_GET['what']))
1641 {
1642 $PAGE = new pageBuilder;
1643 $PAGE->assign('linkcount',count($LINKSDB));
1644 $PAGE->renderPage('export');
1645 exit;
1646 }
1647 $exportWhat=$_GET['what'];
ad6c27b7 1648 if (!array_intersect(array('all','public','private'),array($exportWhat))) die('What are you trying to export???');
45034273
SS
1649
1650 header('Content-Type: text/html; charset=utf-8');
1651 header('Content-disposition: attachment; filename=bookmarks_'.$exportWhat.'_'.strval(date('Ymd_His')).'.html');
1652 $currentdate=date('Y/m/d H:i:s');
1653 echo <<<HTML
1654<!DOCTYPE NETSCAPE-Bookmark-file-1>
1655<!-- This is an automatically generated file.
1656 It will be read and overwritten.
1657 DO NOT EDIT! -->
1658<!-- Shaarli {$exportWhat} bookmarks export on {$currentdate} -->
1659<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
1660<TITLE>Bookmarks</TITLE>
1661<H1>Bookmarks</H1>
1662HTML;
1663 foreach($LINKSDB as $link)
1664 {
1665 if ($exportWhat=='all' ||
1666 ($exportWhat=='private' && $link['private']!=0) ||
1667 ($exportWhat=='public' && $link['private']==0))
1668 {
1669 echo '<DT><A HREF="'.htmlspecialchars($link['url']).'" ADD_DATE="'.linkdate2timestamp($link['linkdate']).'" PRIVATE="'.$link['private'].'"';
1670 if ($link['tags']!='') echo ' TAGS="'.htmlspecialchars(str_replace(' ',',',$link['tags'])).'"';
1671 echo '>'.htmlspecialchars($link['title'])."</A>\n";
1672 if ($link['description']!='') echo '<DD>'.htmlspecialchars($link['description'])."\n";
1673 }
1674 }
1675 exit;
1676 }
1677
1678 // -------- User is uploading a file for import
1679 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=upload'))
1680 {
1681 // If file is too big, some form field may be missing.
1682 if (!isset($_POST['token']) || (!isset($_FILES)) || (isset($_FILES['filetoupload']['size']) && $_FILES['filetoupload']['size']==0))
1683 {
1684 $returnurl = ( empty($_SERVER['HTTP_REFERER']) ? '?' : $_SERVER['HTTP_REFERER'] );
1685 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>';
1686 exit;
1687 }
1688 if (!tokenOk($_POST['token'])) die('Wrong token.');
1689 importFile();
1690 exit;
1691 }
1692
1693 // -------- Show upload/import dialog:
1694 if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=import'))
1695 {
1696 $PAGE = new pageBuilder;
1697 $PAGE->assign('linkcount',count($LINKSDB));
1698 $PAGE->assign('token',getToken());
1699 $PAGE->assign('maxfilesize',getMaxFileSize());
1700 $PAGE->renderPage('import');
1701 exit;
1702 }
1703
1704 // -------- Otherwise, simply display search form and links:
1705 $PAGE = new pageBuilder;
1706 $PAGE->assign('linkcount',count($LINKSDB));
1707 buildLinkList($PAGE,$LINKSDB); // Compute list of links to display
1708 $PAGE->renderPage('linklist');
1709 exit;
1710}
1711
1712// -----------------------------------------------------------------------------------------------
1713// Process the import file form.
1714function importFile()
1715{
1716 if (!(isLoggedIn() || $GLOBALS['config']['OPEN_SHAARLI'])) { die('Not allowed.'); }
1717 $LINKSDB=new linkdb(isLoggedIn() || $GLOBALS['config']['OPEN_SHAARLI']); // Read links from database (and filter private links if used it not logged in).
1718 $filename=$_FILES['filetoupload']['name'];
1719 $filesize=$_FILES['filetoupload']['size'];
1720 $data=file_get_contents($_FILES['filetoupload']['tmp_name']);
ad6c27b7 1721 $private = (empty($_POST['private']) ? 0 : 1); // Should the links be imported as private?
1722 $overwrite = !empty($_POST['overwrite']) ; // Should the imported links overwrite existing ones?
45034273
SS
1723 $import_count=0;
1724
1725 // Sniff file type:
1726 $type='unknown';
1727 if (startsWith($data,'<!DOCTYPE NETSCAPE-Bookmark-file-1>')) $type='netscape'; // Netscape bookmark file (aka Firefox).
1728
1729 // Then import the bookmarks.
1730 if ($type=='netscape')
1731 {
1732 // This is a standard Netscape-style bookmark file.
ad6c27b7 1733 // This format is supported by all browsers (except IE, of course), also Delicious, Diigo and others.
45034273
SS
1734 foreach(explode('<DT>',$data) as $html) // explode is very fast
1735 {
1736 $link = array('linkdate'=>'','title'=>'','url'=>'','description'=>'','tags'=>'','private'=>0);
1737 $d = explode('<DD>',$html);
1738 if (startswith($d[0],'<A '))
1739 {
1740 $link['description'] = (isset($d[1]) ? html_entity_decode(trim($d[1]),ENT_QUOTES,'UTF-8') : ''); // Get description (optional)
1741 preg_match('!<A .*?>(.*?)</A>!i',$d[0],$matches); $link['title'] = (isset($matches[1]) ? trim($matches[1]) : ''); // Get title
1742 $link['title'] = html_entity_decode($link['title'],ENT_QUOTES,'UTF-8');
1743 preg_match_all('! ([A-Z_]+)=\"(.*?)"!i',$html,$matches,PREG_SET_ORDER); // Get all other attributes
1744 $raw_add_date=0;
1745 foreach($matches as $m)
1746 {
1747 $attr=$m[1]; $value=$m[2];
1748 if ($attr=='HREF') $link['url']=html_entity_decode($value,ENT_QUOTES,'UTF-8');
fc93ae1d
AA
1749 elseif ($attr=='ADD_DATE')
1750 {
1751 $raw_add_date=intval($value);
1752 if ($raw_add_date>30000000000) $raw_add_date/=1000; //If larger than year 2920, then was likely stored in milliseconds instead of seconds
1753 }
45034273
SS
1754 elseif ($attr=='PRIVATE') $link['private']=($value=='0'?0:1);
1755 elseif ($attr=='TAGS') $link['tags']=html_entity_decode(str_replace(',',' ',$value),ENT_QUOTES,'UTF-8');
1756 }
1757 if ($link['url']!='')
1758 {
1759 if ($private==1) $link['private']=1;
1760 $dblink = $LINKSDB->getLinkFromUrl($link['url']); // See if the link is already in database.
1761 if ($dblink==false)
1762 { // Link not in database, let's import it...
1763 if (empty($raw_add_date)) $raw_add_date=time(); // In case of shitty bookmark file with no ADD_DATE
1764
1765 // Make sure date/time is not already used by another link.
1766 // (Some bookmark files have several different links with the same ADD_DATE)
ad6c27b7 1767 // We increment date by 1 second until we find a date which is not used in DB.
45034273
SS
1768 // (so that links that have the same date/time are more or less kept grouped by date, but do not conflict.)
1769 while (!empty($LINKSDB[date('Ymd_His',$raw_add_date)])) { $raw_add_date++; }// Yes, I know it's ugly.
1770 $link['linkdate']=date('Ymd_His',$raw_add_date);
1771 $LINKSDB[$link['linkdate']] = $link;
1772 $import_count++;
1773 }
ad6c27b7 1774 else // Link already present in database.
45034273
SS
1775 {
1776 if ($overwrite)
1777 { // If overwrite is required, we import link data, except date/time.
1778 $link['linkdate']=$dblink['linkdate'];
1779 $LINKSDB[$link['linkdate']] = $link;
1780 $import_count++;
1781 }
1782 }
1783
1784 }
1785 }
1786 }
1787 $LINKSDB->savedb();
1788
53da2017 1789 echo '<script language="JavaScript">alert("File '.json_encode($filename).' ('.$filesize.' bytes) was successfully processed: '.$import_count.' links imported.");document.location=\'?\';</script>';
45034273
SS
1790 }
1791 else
1792 {
53da2017 1793 echo '<script language="JavaScript">alert("File '.json_encode($filename).' ('.$filesize.' bytes) has an unknown file format. Nothing was imported.");document.location=\'?\';</script>';
45034273
SS
1794 }
1795}
1796
1797// -----------------------------------------------------------------------------------------------
1798// Template for the list of links (<div id="linklist">)
1799// This function fills all the necessary fields in the $PAGE for the template 'linklist.html'
1800function buildLinkList($PAGE,$LINKSDB)
1801{
1802 // ---- Filter link database according to parameters
1803 $linksToDisplay=array();
1804 $search_type='';
1805 $search_crits='';
1806 if (isset($_GET['searchterm'])) // Fulltext search
1807 {
1808 $linksToDisplay = $LINKSDB->filterFulltext(trim($_GET['searchterm']));
1809 $search_crits=htmlspecialchars(trim($_GET['searchterm']));
1810 $search_type='fulltext';
1811 }
1812 elseif (isset($_GET['searchtags'])) // Search by tag
1813 {
1814 $linksToDisplay = $LINKSDB->filterTags(trim($_GET['searchtags']));
1815 $search_crits=explode(' ',trim($_GET['searchtags']));
1816 $search_type='tags';
1817 }
1818 elseif (isset($_SERVER['QUERY_STRING']) && preg_match('/[a-zA-Z0-9-_@]{6}(&.+?)?/',$_SERVER['QUERY_STRING'])) // Detect smallHashes in URL
1819 {
1820 $linksToDisplay = $LINKSDB->filterSmallHash(substr(trim($_SERVER["QUERY_STRING"], '/'),0,6));
1821 if (count($linksToDisplay)==0)
1822 {
1823 header($_SERVER["SERVER_PROTOCOL"]." 404 Not Found");
1824 echo '<h1>404 Not found.</h1>Oh crap. The link you are trying to reach does not exist or has been deleted.';
ad6c27b7 1825 echo '<br>You would mind <a href="?">clicking here</a>?';
45034273
SS
1826 exit;
1827 }
1828 $search_type='permalink';
1829 }
1830 else
ad6c27b7 1831 $linksToDisplay = $LINKSDB; // Otherwise, display without filtering.
bb8f712d 1832
45034273
SS
1833 // Option: Show only private links
1834 if (!empty($_SESSION['privateonly']))
1835 {
1836 $tmp = array();
1837 foreach($linksToDisplay as $linkdate=>$link)
1838 {
1839 if ($link['private']!=0) $tmp[$linkdate]=$link;
1840 }
1841 $linksToDisplay=$tmp;
1842 }
1843
1844 // ---- Handle paging.
ad6c27b7 1845 /* 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
1846 "Warning: array_keys() expects parameter 1 to be array, object given in ... "
1847 If my class implements ArrayAccess, why won't array_keys() accept it ? ( $keys=array_keys($linksToDisplay); )
1848 */
ad6c27b7 1849 $keys=array(); foreach($linksToDisplay as $key=>$value) { $keys[]=$key; } // Stupid and ugly. Thanks PHP.
45034273
SS
1850
1851 // If there is only a single link, we change on-the-fly the title of the page.
1852 if (count($linksToDisplay)==1) $GLOBALS['pagetitle'] = $linksToDisplay[$keys[0]]['title'].' - '.$GLOBALS['title'];
1853
1854 // Select articles according to paging.
1855 $pagecount = ceil(count($keys)/$_SESSION['LINKS_PER_PAGE']);
1856 $pagecount = ($pagecount==0 ? 1 : $pagecount);
1857 $page=( empty($_GET['page']) ? 1 : intval($_GET['page']));
1858 $page = ( $page<1 ? 1 : $page );
1859 $page = ( $page>$pagecount ? $pagecount : $page );
1860 $i = ($page-1)*$_SESSION['LINKS_PER_PAGE']; // Start index.
1861 $end = $i+$_SESSION['LINKS_PER_PAGE'];
1862 $linkDisp=array(); // Links to display
1863 while ($i<$end && $i<count($keys))
1864 {
1865 $link = $linksToDisplay[$keys[$i]];
1866 $link['description']=nl2br(keepMultipleSpaces(text2clickable(htmlspecialchars($link['description']))));
1867 $title=$link['title'];
1868 $classLi = $i%2!=0 ? '' : 'publicLinkHightLight';
1869 $link['class'] = ($link['private']==0 ? $classLi : 'private');
1870 $link['localdate']=linkdate2locale($link['linkdate']);
dd62b9ba
SS
1871 $taglist = explode(' ',$link['tags']);
1872 uasort($taglist, 'strcasecmp');
1873 $link['taglist']=$taglist;
45034273
SS
1874 $linkDisp[$keys[$i]] = $link;
1875 $i++;
1876 }
bb8f712d 1877
45034273
SS
1878 // Compute paging navigation
1879 $searchterm= ( empty($_GET['searchterm']) ? '' : '&searchterm='.$_GET['searchterm'] );
1880 $searchtags= ( empty($_GET['searchtags']) ? '' : '&searchtags='.$_GET['searchtags'] );
1881 $paging='';
1882 $previous_page_url=''; if ($i!=count($keys)) $previous_page_url='?page='.($page+1).$searchterm.$searchtags;
1883 $next_page_url='';if ($page>1) $next_page_url='?page='.($page-1).$searchterm.$searchtags;
1884
bb8f712d
KT
1885 $token = ''; if (isLoggedIn()) $token=getToken();
1886
45034273
SS
1887 // Fill all template fields.
1888 $PAGE->assign('linkcount',count($LINKSDB));
1889 $PAGE->assign('previous_page_url',$previous_page_url);
1890 $PAGE->assign('next_page_url',$next_page_url);
1891 $PAGE->assign('page_current',$page);
1892 $PAGE->assign('page_max',$pagecount);
1893 $PAGE->assign('result_count',count($linksToDisplay));
1894 $PAGE->assign('search_type',$search_type);
bb8f712d 1895 $PAGE->assign('search_crits',$search_crits);
ad6c27b7 1896 $PAGE->assign('redirector',empty($GLOBALS['redirector']) ? '' : $GLOBALS['redirector']); // Optional redirector URL.
45034273
SS
1897 $PAGE->assign('token',$token);
1898 $PAGE->assign('links',$linkDisp);
1899 return;
1900}
1901
1902// Compute the thumbnail for a link.
bb8f712d 1903//
ad6c27b7 1904// With a link to the original URL.
45034273 1905// Understands various services (youtube.com...)
ad6c27b7 1906// Input: $url = URL for which the thumbnail must be found.
45034273
SS
1907// $href = if provided, this URL will be followed instead of $url
1908// Returns an associative array with thumbnail attributes (src,href,width,height,style,alt)
1909// Some of them may be missing.
1910// Return an empty array if no thumbnail available.
1911function computeThumbnail($url,$href=false)
1912{
1913 if (!$GLOBALS['config']['ENABLE_THUMBNAILS']) return array();
1914 if ($href==false) $href=$url;
1915
1916 // For most hosts, the URL of the thumbnail can be easily deduced from the URL of the link.
ad6c27b7 1917 // (e.g. http://www.youtube.com/watch?v=spVypYk4kto ---> http://img.youtube.com/vi/spVypYk4kto/default.jpg )
45034273
SS
1918 // ^^^^^^^^^^^ ^^^^^^^^^^^
1919 $domain = parse_url($url,PHP_URL_HOST);
1920 if ($domain=='youtube.com' || $domain=='www.youtube.com')
1921 {
1922 parse_str(parse_url($url,PHP_URL_QUERY), $params); // Extract video ID and get thumbnail
1a663a0f 1923 if (!empty($params['v'])) return array('src'=>'https://img.youtube.com/vi/'.$params['v'].'/default.jpg',
45034273
SS
1924 'href'=>$href,'width'=>'120','height'=>'90','alt'=>'YouTube thumbnail');
1925 }
1926 if ($domain=='youtu.be') // Youtube short links
1927 {
1928 $path = parse_url($url,PHP_URL_PATH);
1a663a0f 1929 return array('src'=>'https://img.youtube.com/vi'.$path.'/default.jpg',
bb8f712d 1930 'href'=>$href,'width'=>'120','height'=>'90','alt'=>'YouTube thumbnail');
45034273
SS
1931 }
1932 if ($domain=='pix.toile-libre.org') // pix.toile-libre.org image hosting
1933 {
1934 parse_str(parse_url($url,PHP_URL_QUERY), $params); // Extract image filename.
1935 if (!empty($params) && !empty($params['img'])) return array('src'=>'http://pix.toile-libre.org/upload/thumb/'.urlencode($params['img']),
bb8f712d
KT
1936 'href'=>$href,'style'=>'max-width:120px; max-height:150px','alt'=>'pix.toile-libre.org thumbnail');
1937 }
1938
45034273
SS
1939 if ($domain=='imgur.com')
1940 {
1941 $path = parse_url($url,PHP_URL_PATH);
1942 if (startsWith($path,'/a/')) return array(); // Thumbnails for albums are not available.
1a663a0f 1943 if (startsWith($path,'/r/')) return array('src'=>'https://i.imgur.com/'.basename($path).'s.jpg',
45034273 1944 'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1a663a0f 1945 if (startsWith($path,'/gallery/')) return array('src'=>'https://i.imgur.com'.substr($path,8).'s.jpg',
45034273
SS
1946 'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1947
1a663a0f 1948 if (substr_count($path,'/')==1) return array('src'=>'https://i.imgur.com/'.substr($path,1).'s.jpg',
45034273
SS
1949 'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1950 }
1951 if ($domain=='i.imgur.com')
1952 {
1953 $pi = pathinfo(parse_url($url,PHP_URL_PATH));
1a663a0f 1954 if (!empty($pi['filename'])) return array('src'=>'https://i.imgur.com/'.$pi['filename'].'s.jpg',
45034273
SS
1955 'href'=>$href,'width'=>'90','height'=>'90','alt'=>'imgur.com thumbnail');
1956 }
1957 if ($domain=='dailymotion.com' || $domain=='www.dailymotion.com')
1958 {
1959 if (strpos($url,'dailymotion.com/video/')!==false)
1960 {
1961 $thumburl=str_replace('dailymotion.com/video/','dailymotion.com/thumbnail/video/',$url);
1962 return array('src'=>$thumburl,
1963 'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'DailyMotion thumbnail');
1964 }
1965 }
1966 if (endsWith($domain,'.imageshack.us'))
1967 {
1968 $ext=strtolower(pathinfo($url,PATHINFO_EXTENSION));
1969 if ($ext=='jpg' || $ext=='jpeg' || $ext=='png' || $ext=='gif')
1970 {
1971 $thumburl = substr($url,0,strlen($url)-strlen($ext)).'th.'.$ext;
1972 return array('src'=>$thumburl,
1973 'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'imageshack.us thumbnail');
1974 }
1975 }
1976
1977 // Some other hosts are SLOW AS HELL and usually require an extra HTTP request to get the thumbnail URL.
1978 // So we deport the thumbnail generation in order not to slow down page generation
1979 // (and we also cache the thumbnail)
1980
1981 if (!$GLOBALS['config']['ENABLE_LOCALCACHE']) return array(); // If local cache is disabled, no thumbnails for services which require the use a local cache.
1982
1983 if ($domain=='flickr.com' || endsWith($domain,'.flickr.com')
1984 || $domain=='vimeo.com'
1985 || $domain=='ted.com' || endsWith($domain,'.ted.com')
1986 || $domain=='xkcd.com' || endsWith($domain,'.xkcd.com')
1987 )
1988 {
1989 if ($domain=='vimeo.com')
ad6c27b7 1990 { // Make sure this vimeo URL points to a video (/xxx... where xxx is numeric)
45034273
SS
1991 $path = parse_url($url,PHP_URL_PATH);
1992 if (!preg_match('!/\d+.+?!',$path)) return array(); // This is not a single video URL.
1993 }
1994 if ($domain=='xkcd.com' || endsWith($domain,'.xkcd.com'))
ad6c27b7 1995 { // Make sure this URL points to a single comic (/xxx... where xxx is numeric)
45034273
SS
1996 $path = parse_url($url,PHP_URL_PATH);
1997 if (!preg_match('!/\d+.+?!',$path)) return array();
1998 }
1999 if ($domain=='ted.com' || endsWith($domain,'.ted.com'))
ad6c27b7 2000 { // Make sure this TED URL points to a video (/talks/...)
45034273
SS
2001 $path = parse_url($url,PHP_URL_PATH);
2002 if ("/talks/" !== substr($path,0,7)) return array(); // This is not a single video URL.
2003 }
2004 $sign = hash_hmac('sha256', $url, $GLOBALS['salt']); // We use the salt to sign data (it's random, secret, and specific to each installation)
2005 return array('src'=>indexUrl().'?do=genthumbnail&hmac='.htmlspecialchars($sign).'&url='.urlencode($url),
2006 'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'thumbnail');
2007 }
2008
2009 // For all other, we try to make a thumbnail of links ending with .jpg/jpeg/png/gif
2010 // Technically speaking, we should download ALL links and check their Content-Type to see if they are images.
2011 // But using the extension will do.
2012 $ext=strtolower(pathinfo($url,PATHINFO_EXTENSION));
2013 if ($ext=='jpg' || $ext=='jpeg' || $ext=='png' || $ext=='gif')
2014 {
2015 $sign = hash_hmac('sha256', $url, $GLOBALS['salt']); // We use the salt to sign data (it's random, secret, and specific to each installation)
2016 return array('src'=>indexUrl().'?do=genthumbnail&hmac='.htmlspecialchars($sign).'&url='.urlencode($url),
bb8f712d 2017 'href'=>$href,'width'=>'120','style'=>'height:auto;','alt'=>'thumbnail');
45034273
SS
2018 }
2019 return array(); // No thumbnail.
2020
2021}
2022
2023
2024// Returns the HTML code to display a thumbnail for a link
2025// with a link to the original URL.
2026// Understands various services (youtube.com...)
ad6c27b7 2027// Input: $url = URL for which the thumbnail must be found.
45034273
SS
2028// $href = if provided, this URL will be followed instead of $url
2029// Returns '' if no thumbnail available.
2030function thumbnail($url,$href=false)
2031{
2032 $t = computeThumbnail($url,$href);
2033 if (count($t)==0) return ''; // Empty array = no thumbnail for this URL.
bb8f712d 2034
45034273
SS
2035 $html='<a href="'.htmlspecialchars($t['href']).'"><img src="'.htmlspecialchars($t['src']).'"';
2036 if (!empty($t['width'])) $html.=' width="'.htmlspecialchars($t['width']).'"';
2037 if (!empty($t['height'])) $html.=' height="'.htmlspecialchars($t['height']).'"';
2038 if (!empty($t['style'])) $html.=' style="'.htmlspecialchars($t['style']).'"';
2039 if (!empty($t['alt'])) $html.=' alt="'.htmlspecialchars($t['alt']).'"';
2040 $html.='></a>';
2041 return $html;
2042}
2043
2044
2045// Returns the HTML code to display a thumbnail for a link
2046// for the picture wall (using lazy image loading)
2047// Understands various services (youtube.com...)
ad6c27b7 2048// Input: $url = URL for which the thumbnail must be found.
45034273
SS
2049// $href = if provided, this URL will be followed instead of $url
2050// Returns '' if no thumbnail available.
2051function lazyThumbnail($url,$href=false)
2052{
bb8f712d 2053 $t = computeThumbnail($url,$href);
45034273
SS
2054 if (count($t)==0) return ''; // Empty array = no thumbnail for this URL.
2055
2056 $html='<a href="'.htmlspecialchars($t['href']).'">';
bb8f712d 2057
ad6c27b7 2058 // Lazy image (only loaded by JavaScript when in the viewport).
858c5c2b
SS
2059 if (!empty($GLOBALS['disablejquery'])) // (except if jQuery is disabled)
2060 $html.='<img class="lazyimage" src="'.htmlspecialchars($t['src']).'"';
2061 else
2062 $html.='<img class="lazyimage" src="#" data-original="'.htmlspecialchars($t['src']).'"';
2063
45034273
SS
2064 if (!empty($t['width'])) $html.=' width="'.htmlspecialchars($t['width']).'"';
2065 if (!empty($t['height'])) $html.=' height="'.htmlspecialchars($t['height']).'"';
2066 if (!empty($t['style'])) $html.=' style="'.htmlspecialchars($t['style']).'"';
2067 if (!empty($t['alt'])) $html.=' alt="'.htmlspecialchars($t['alt']).'"';
2068 $html.='>';
bb8f712d 2069
ad6c27b7 2070 // No-JavaScript fallback.
45034273
SS
2071 $html.='<noscript><img src="'.htmlspecialchars($t['src']).'"';
2072 if (!empty($t['width'])) $html.=' width="'.htmlspecialchars($t['width']).'"';
2073 if (!empty($t['height'])) $html.=' height="'.htmlspecialchars($t['height']).'"';
2074 if (!empty($t['style'])) $html.=' style="'.htmlspecialchars($t['style']).'"';
2075 if (!empty($t['alt'])) $html.=' alt="'.htmlspecialchars($t['alt']).'"';
2076 $html.='></noscript></a>';
bb8f712d 2077
45034273
SS
2078 return $html;
2079}
2080
2081
2082// -----------------------------------------------------------------------------------------------
2083// Installation
2084// This function should NEVER be called if the file data/config.php exists.
2085function install()
2086{
2087 // On free.fr host, make sure the /sessions directory exists, otherwise login will not work.
f6a6ca0a 2088 if (endsWith($_SERVER['HTTP_HOST'],'.free.fr') && !is_dir($_SERVER['DOCUMENT_ROOT'].'/sessions')) mkdir($_SERVER['DOCUMENT_ROOT'].'/sessions',0705);
45034273 2089
f37664a2
SS
2090
2091 // This part makes sure sessions works correctly.
2092 // (Because on some hosts, session.save_path may not be set correctly,
2093 // or we may not have write access to it.)
2094 if (isset($_GET['test_session']) && ( !isset($_SESSION) || !isset($_SESSION['session_tested']) || $_SESSION['session_tested']!='Working'))
2095 { // Step 2: Check if data in session is correct.
2096 echo '<pre>Sessions do not seem to work correctly on your server.<br>';
2097 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 2098 echo 'It currently points to '.session_save_path().'<br>';
2099 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>';
2100 echo '<br><a href="?">Click to try again.</a></pre>';
f37664a2
SS
2101 die;
2102 }
2103 if (!isset($_SESSION['session_tested']))
2104 { // Step 1 : Try to store data in session and reload page.
2105 $_SESSION['session_tested'] = 'Working'; // Try to set a variable in session.
2106 header('Location: '.indexUrl().'?test_session'); // Redirect to check stored data.
2107 }
2108 if (isset($_GET['test_session']))
ad6c27b7 2109 { // Step 3: Sessions are OK. Remove test parameter from URL.
f37664a2
SS
2110 header('Location: '.indexUrl());
2111 }
2112
2113
45034273
SS
2114 if (!empty($_POST['setlogin']) && !empty($_POST['setpassword']))
2115 {
2116 $tz = 'UTC';
2117 if (!empty($_POST['continent']) && !empty($_POST['city']))
2118 if (isTZvalid($_POST['continent'],$_POST['city']))
2119 $tz = $_POST['continent'].'/'.$_POST['city'];
2120 $GLOBALS['timezone'] = $tz;
2121 // Everything is ok, let's create config file.
2122 $GLOBALS['login'] = $_POST['setlogin'];
2123 $GLOBALS['salt'] = sha1(uniqid('',true).'_'.mt_rand()); // Salt renders rainbow-tables attacks useless.
2124 $GLOBALS['hash'] = sha1($_POST['setpassword'].$GLOBALS['login'].$GLOBALS['salt']);
2125 $GLOBALS['title'] = (empty($_POST['title']) ? 'Shared links on '.htmlspecialchars(indexUrl()) : $_POST['title'] );
2126 writeConfig();
ad6c27b7 2127 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
2128 exit;
2129 }
2130
2131 // Display config form:
2132 list($timezone_form,$timezone_js) = templateTZform();
2133 $timezone_html=''; if ($timezone_form!='') $timezone_html='<tr><td valign="top"><b>Timezone:</b></td><td>'.$timezone_form.'</td></tr>';
bb8f712d 2134
45034273
SS
2135 $PAGE = new pageBuilder;
2136 $PAGE->assign('timezone_html',$timezone_html);
2137 $PAGE->assign('timezone_js',$timezone_js);
2138 $PAGE->renderPage('install');
2139 exit;
2140}
2141
ad6c27b7 2142// Generates the timezone selection form and JavaScript.
45034273
SS
2143// Input: (optional) current timezone (can be 'UTC/UTC'). It will be pre-selected.
2144// Output: array(html,js)
2145// Example: list($htmlform,$js) = templateTZform('Europe/Paris'); // Europe/Paris pre-selected.
ad6c27b7 2146// Returns array('','') if server does not support timezones list. (e.g. PHP 5.1 on free.fr)
45034273
SS
2147function templateTZform($ptz=false)
2148{
ad6c27b7 2149 if (function_exists('timezone_identifiers_list')) // because of old PHP version (5.1) which can be found on free.fr
45034273
SS
2150 {
2151 // Try to split the provided timezone.
2152 if ($ptz==false) { $l=timezone_identifiers_list(); $ptz=$l[0]; }
2153 $spos=strpos($ptz,'/'); $pcontinent=substr($ptz,0,$spos); $pcity=substr($ptz,$spos+1);
2154
2155 // Display config form:
2156 $timezone_form = '';
2157 $timezone_js = '';
ad6c27b7 2158 // The list is in the form "Europe/Paris", "America/Argentina/Buenos_Aires"...
45034273
SS
2159 // We split the list in continents/cities.
2160 $continents = array();
2161 $cities = array();
2162 foreach(timezone_identifiers_list() as $tz)
2163 {
2164 if ($tz=='UTC') $tz='UTC/UTC';
2165 $spos = strpos($tz,'/');
2166 if ($spos!==false)
2167 {
2168 $continent=substr($tz,0,$spos); $city=substr($tz,$spos+1);
2169 $continents[$continent]=1;
2170 if (!isset($cities[$continent])) $cities[$continent]='';
e5aab50a 2171 $cities[$continent].='<option value="'.$city.'"'.($pcity==$city?' selected':'').'>'.$city.'</option>';
45034273
SS
2172 }
2173 }
2174 $continents_html = '';
2175 $continents = array_keys($continents);
2176 foreach($continents as $continent)
e5aab50a 2177 $continents_html.='<option value="'.$continent.'"'.($pcontinent==$continent?' selected':'').'>'.$continent.'</option>';
45034273 2178 $cities_html = $cities[$pcontinent];
858c5c2b
SS
2179 $timezone_form = "Continent: <select name=\"continent\" id=\"continent\" onChange=\"onChangecontinent();\">${continents_html}</select>";
2180 $timezone_form .= "&nbsp;&nbsp;&nbsp;&nbsp;City: <select name=\"city\" id=\"city\">${cities[$pcontinent]}</select><br />";
45034273
SS
2181 $timezone_js = "<script language=\"JavaScript\">";
2182 $timezone_js .= "function onChangecontinent(){document.getElementById(\"city\").innerHTML = citiescontinent[document.getElementById(\"continent\").value];}";
2183 $timezone_js .= "var citiescontinent = ".json_encode($cities).";" ;
2184 $timezone_js .= "</script>" ;
2185 return array($timezone_form,$timezone_js);
2186 }
2187 return array('','');
2188}
2189
2190// Tells if a timezone is valid or not.
2191// If not valid, returns false.
2192// If system does not support timezone list, returns false.
2193function isTZvalid($continent,$city)
2194{
2195 $tz = $continent.'/'.$city;
ad6c27b7 2196 if (function_exists('timezone_identifiers_list')) // because of old PHP version (5.1) which can be found on free.fr
45034273 2197 {
ad6c27b7 2198 if (in_array($tz, timezone_identifiers_list())) // it's a valid timezone?
45034273
SS
2199 return true;
2200 }
2201 return false;
2202}
3385af12
LM
2203if (!function_exists('json_encode')) {
2204 function json_encode($data) {
2205 switch ($type = gettype($data)) {
2206 case 'NULL':
2207 return 'null';
2208 case 'boolean':
2209 return ($data ? 'true' : 'false');
2210 case 'integer':
2211 case 'double':
2212 case 'float':
2213 return $data;
2214 case 'string':
2215 return '"' . addslashes($data) . '"';
2216 case 'object':
2217 $data = get_object_vars($data);
2218 case 'array':
2219 $output_index_count = 0;
2220 $output_indexed = array();
2221 $output_associative = array();
2222 foreach ($data as $key => $value) {
2223 $output_indexed[] = json_encode($value);
2224 $output_associative[] = json_encode($key) . ':' . json_encode($value);
2225 if ($output_index_count !== NULL && $output_index_count++ !== $key) {
2226 $output_index_count = NULL;
2227 }
2228 }
2229 if ($output_index_count !== NULL) {
2230 return '[' . implode(',', $output_indexed) . ']';
2231 } else {
2232 return '{' . implode(',', $output_associative) . '}';
2233 }
2234 default:
2235 return ''; // Not supported
2236 }
2237 }
2238}
45034273
SS
2239
2240// Webservices (for use with jQuery/jQueryUI)
ad6c27b7 2241// e.g. index.php?ws=tags&term=minecr
45034273
SS
2242function processWS()
2243{
2244 if (empty($_GET['ws']) || empty($_GET['term'])) return;
2245 $term = $_GET['term'];
2246 $LINKSDB=new linkdb(isLoggedIn() || $GLOBALS['config']['OPEN_SHAARLI']); // Read links from database (and filter private links if used it not logged in).
2247 header('Content-Type: application/json; charset=utf-8');
2248
ad6c27b7 2249 // Search in tags (case insensitive, cumulative search)
45034273
SS
2250 if ($_GET['ws']=='tags')
2251 {
2252 $tags=explode(' ',str_replace(',',' ',$term)); $last = array_pop($tags); // Get the last term ("a b c d" ==> "a b c", "d")
2253 $addtags=''; if ($tags) $addtags=implode(' ',$tags).' '; // We will pre-pend previous tags
2254 $suggested=array();
2255 /* To speed up things, we store list of tags in session */
2256 if (empty($_SESSION['tags'])) $_SESSION['tags'] = $LINKSDB->allTags();
2257 foreach($_SESSION['tags'] as $key=>$value)
2258 {
2259 if (startsWith($key,$last,$case=false) && !in_array($key,$tags)) $suggested[$addtags.$key.' ']=0;
2260 }
2261 echo json_encode(array_keys($suggested));
2262 exit;
2263 }
2264
ad6c27b7 2265 // Search a single tag (case sensitive, single tag search)
45034273
SS
2266 if ($_GET['ws']=='singletag')
2267 {
2268 /* To speed up things, we store list of tags in session */
2269 if (empty($_SESSION['tags'])) $_SESSION['tags'] = $LINKSDB->allTags();
2270 foreach($_SESSION['tags'] as $key=>$value)
2271 {
2272 if (startsWith($key,$term,$case=true)) $suggested[$key]=0;
2273 }
2274 echo json_encode(array_keys($suggested));
2275 exit;
2276 }
2277}
2278
2279// Re-write configuration file according to globals.
2280// Requires some $GLOBALS to be set (login,hash,salt,title).
ad6c27b7 2281// If the config file cannot be saved, an error message is displayed and the user is redirected to "Tools" menu.
45034273
SS
2282// (otherwise, the function simply returns.)
2283function writeConfig()
2284{
2285 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
2286 $config='<?php $GLOBALS[\'login\']='.var_export($GLOBALS['login'],true).'; $GLOBALS[\'hash\']='.var_export($GLOBALS['hash'],true).'; $GLOBALS[\'salt\']='.var_export($GLOBALS['salt'],true).'; ';
2287 $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 2288 $config .= '$GLOBALS[\'titleLink\']='.var_export($GLOBALS['titleLink'],true).'; ';
45034273
SS
2289 $config .= '$GLOBALS[\'redirector\']='.var_export($GLOBALS['redirector'],true).'; ';
2290 $config .= '$GLOBALS[\'disablesessionprotection\']='.var_export($GLOBALS['disablesessionprotection'],true).'; ';
858c5c2b 2291 $config .= '$GLOBALS[\'disablejquery\']='.var_export($GLOBALS['disablejquery'],true).'; ';
bb8f712d 2292 $config .= '$GLOBALS[\'privateLinkByDefault\']='.var_export($GLOBALS['privateLinkByDefault'],true).'; ';
45034273
SS
2293 $config .= ' ?>';
2294 if (!file_put_contents($GLOBALS['config']['CONFIG_FILE'],$config) || strcmp(file_get_contents($GLOBALS['config']['CONFIG_FILE']),$config)!=0)
2295 {
2296 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>';
2297 exit;
2298 }
2299}
2300
ad6c27b7 2301/* Because some f*cking services like flickr require an extra HTTP request to get the thumbnail URL,
45034273 2302 I have deported the thumbnail URL code generation here, otherwise this would slow down page generation.
ad6c27b7 2303 The following function takes the URL a link (e.g. a flickr page) and return the proper thumbnail.
2304 This function is called by passing the URL:
45034273 2305 http://mywebsite.com/shaarli/?do=genthumbnail&hmac=[HMAC]&url=[URL]
ad6c27b7 2306 [URL] is the URL of the link (e.g. a flickr page)
45034273
SS
2307 [HMAC] is the signature for the [URL] (so that these URL cannot be forged).
2308 The function below will fetch the image from the webservice and store it in the cache.
2309*/
2310function genThumbnail()
2311{
2312 // Make sure the parameters in the URL were generated by us.
2313 $sign = hash_hmac('sha256', $_GET['url'], $GLOBALS['salt']);
ad6c27b7 2314 if ($sign!=$_GET['hmac']) die('Naughty boy!');
45034273
SS
2315
2316 // Let's see if we don't already have the image for this URL in the cache.
2317 $thumbname=hash('sha1',$_GET['url']).'.jpg';
2318 if (is_file($GLOBALS['config']['CACHEDIR'].'/'.$thumbname))
2319 { // We have the thumbnail, just serve it:
2320 header('Content-Type: image/jpeg');
2321 echo file_get_contents($GLOBALS['config']['CACHEDIR'].'/'.$thumbname);
2322 return;
2323 }
2324 // We may also serve a blank image (if service did not respond)
2325 $blankname=hash('sha1',$_GET['url']).'.gif';
2326 if (is_file($GLOBALS['config']['CACHEDIR'].'/'.$blankname))
2327 {
2328 header('Content-Type: image/gif');
2329 echo file_get_contents($GLOBALS['config']['CACHEDIR'].'/'.$blankname);
2330 return;
2331 }
2332
2333 // Otherwise, generate the thumbnail.
2334 $url = $_GET['url'];
2335 $domain = parse_url($url,PHP_URL_HOST);
2336
2337 if ($domain=='flickr.com' || endsWith($domain,'.flickr.com'))
2338 {
ad6c27b7 2339 // Crude replacement to handle new flickr domain policy (They prefer www. now)
45034273
SS
2340 $url = str_replace('http://flickr.com/','http://www.flickr.com/',$url);
2341
2342 // Is this a link to an image, or to a flickr page ?
2343 $imageurl='';
2344 if (endswith(parse_url($url,PHP_URL_PATH),'.jpg'))
ad6c27b7 2345 { // This is a direct link to an image. e.g. http://farm1.staticflickr.com/5/5921913_ac83ed27bd_o.jpg
45034273
SS
2346 preg_match('!(http://farm\d+\.staticflickr\.com/\d+/\d+_\w+_)\w.jpg!',$url,$matches);
2347 if (!empty($matches[1])) $imageurl=$matches[1].'m.jpg';
2348 }
ad6c27b7 2349 else // This is a flickr page (html)
45034273
SS
2350 {
2351 list($httpstatus,$headers,$data) = getHTTP($url,20); // Get the flickr html page.
2352 if (strpos($httpstatus,'200 OK')!==false)
2353 {
ad6c27b7 2354 // flickr now nicely provides the URL of the thumbnail in each flickr page.
45034273
SS
2355 preg_match('!<link rel=\"image_src\" href=\"(.+?)\"!',$data,$matches);
2356 if (!empty($matches[1])) $imageurl=$matches[1];
2357
2358 // In albums (and some other pages), the link rel="image_src" is not provided,
2359 // but flickr provides:
2360 // <meta property="og:image" content="http://farm4.staticflickr.com/3398/3239339068_25d13535ff_z.jpg" />
2361 if ($imageurl=='')
2362 {
2363 preg_match('!<meta property=\"og:image\" content=\"(.+?)\"!',$data,$matches);
2364 if (!empty($matches[1])) $imageurl=$matches[1];
2365 }
2366 }
2367 }
2368
2369 if ($imageurl!='')
2370 { // Let's download the image.
2371 list($httpstatus,$headers,$data) = getHTTP($imageurl,10); // Image is 240x120, so 10 seconds to download should be enough.
2372 if (strpos($httpstatus,'200 OK')!==false)
2373 {
2374 file_put_contents($GLOBALS['config']['CACHEDIR'].'/'.$thumbname,$data); // Save image to cache.
2375 header('Content-Type: image/jpeg');
2376 echo $data;
2377 return;
2378 }
2379 }
2380 }
2381
2382 elseif ($domain=='vimeo.com' )
2383 {
2384 // This is more complex: we have to perform a HTTP request, then parse the result.
ad6c27b7 2385 // Maybe we should deport this to JavaScript ? Example: http://stackoverflow.com/questions/1361149/get-img-thumbnails-from-vimeo/4285098#4285098
45034273 2386 $vid = substr(parse_url($url,PHP_URL_PATH),1);
1a663a0f 2387 list($httpstatus,$headers,$data) = getHTTP('https://vimeo.com/api/v2/video/'.htmlspecialchars($vid).'.php',5);
45034273
SS
2388 if (strpos($httpstatus,'200 OK')!==false)
2389 {
2390 $t = unserialize($data);
2391 $imageurl = $t[0]['thumbnail_medium'];
2392 // Then we download the image and serve it to our client.
2393 list($httpstatus,$headers,$data) = getHTTP($imageurl,10);
2394 if (strpos($httpstatus,'200 OK')!==false)
2395 {
2396 file_put_contents($GLOBALS['config']['CACHEDIR'].'/'.$thumbname,$data); // Save image to cache.
2397 header('Content-Type: image/jpeg');
2398 echo $data;
2399 return;
2400 }
2401 }
2402 }
2403
2404 elseif ($domain=='ted.com' || endsWith($domain,'.ted.com'))
2405 {
2406 // The thumbnail for TED talks is located in the <link rel="image_src" [...]> tag on that page
2407 // http://www.ted.com/talks/mikko_hypponen_fighting_viruses_defending_the_net.html
2408 // <link rel="image_src" href="http://images.ted.com/images/ted/28bced335898ba54d4441809c5b1112ffaf36781_389x292.jpg" />
bb8f712d 2409 list($httpstatus,$headers,$data) = getHTTP($url,5);
45034273
SS
2410 if (strpos($httpstatus,'200 OK')!==false)
2411 {
2412 // Extract the link to the thumbnail
2413 preg_match('!link rel="image_src" href="(http://images.ted.com/images/ted/.+_\d+x\d+\.jpg)"!',$data,$matches);
2414 if (!empty($matches[1]))
2415 { // Let's download the image.
2416 $imageurl=$matches[1];
2417 list($httpstatus,$headers,$data) = getHTTP($imageurl,20); // No control on image size, so wait long enough.
2418 if (strpos($httpstatus,'200 OK')!==false)
2419 {
2420 $filepath=$GLOBALS['config']['CACHEDIR'].'/'.$thumbname;
2421 file_put_contents($filepath,$data); // Save image to cache.
2422 if (resizeImage($filepath))
2423 {
2424 header('Content-Type: image/jpeg');
2425 echo file_get_contents($filepath);
2426 return;
2427 }
2428 }
2429 }
2430 }
2431 }
bb8f712d 2432
45034273
SS
2433 elseif ($domain=='xkcd.com' || endsWith($domain,'.xkcd.com'))
2434 {
2435 // There is no thumbnail available for xkcd comics, so download the whole image and resize it.
2436 // http://xkcd.com/327/
2437 // <img src="http://imgs.xkcd.com/comics/exploits_of_a_mom.png" title="<BLABLA>" alt="<BLABLA>" />
2438 list($httpstatus,$headers,$data) = getHTTP($url,5);
2439 if (strpos($httpstatus,'200 OK')!==false)
2440 {
2441 // Extract the link to the thumbnail
2442 preg_match('!<img src="(http://imgs.xkcd.com/comics/.*)" title="[^s]!',$data,$matches);
2443 if (!empty($matches[1]))
2444 { // Let's download the image.
2445 $imageurl=$matches[1];
2446 list($httpstatus,$headers,$data) = getHTTP($imageurl,20); // No control on image size, so wait long enough.
2447 if (strpos($httpstatus,'200 OK')!==false)
2448 {
2449 $filepath=$GLOBALS['config']['CACHEDIR'].'/'.$thumbname;
2450 file_put_contents($filepath,$data); // Save image to cache.
2451 if (resizeImage($filepath))
2452 {
2453 header('Content-Type: image/jpeg');
2454 echo file_get_contents($filepath);
2455 return;
2456 }
2457 }
2458 }
2459 }
bb8f712d 2460 }
45034273
SS
2461
2462 else
2463 {
2464 // For all other domains, we try to download the image and make a thumbnail.
2465 list($httpstatus,$headers,$data) = getHTTP($url,30); // We allow 30 seconds max to download (and downloads are limited to 4 Mb)
2466 if (strpos($httpstatus,'200 OK')!==false)
2467 {
2468 $filepath=$GLOBALS['config']['CACHEDIR'].'/'.$thumbname;
2469 file_put_contents($filepath,$data); // Save image to cache.
2470 if (resizeImage($filepath))
2471 {
2472 header('Content-Type: image/jpeg');
2473 echo file_get_contents($filepath);
2474 return;
2475 }
2476 }
2477 }
2478
2479
2480 // Otherwise, return an empty image (8x8 transparent gif)
2481 $blankgif = base64_decode('R0lGODlhCAAIAIAAAP///////yH5BAEKAAEALAAAAAAIAAgAAAIHjI+py+1dAAA7');
2482 file_put_contents($GLOBALS['config']['CACHEDIR'].'/'.$blankname,$blankgif); // Also put something in cache so that this URL is not requested twice.
2483 header('Content-Type: image/gif');
2484 echo $blankgif;
2485}
2486
2487// Make a thumbnail of the image (to width: 120 pixels)
2488// Returns true if success, false otherwise.
2489function resizeImage($filepath)
2490{
2491 if (!function_exists('imagecreatefromjpeg')) return false; // GD not present: no thumbnail possible.
2492
2493 // Trick: some stupid people rename GIF as JPEG... or else.
2494 // So we really try to open each image type whatever the extension is.
2495 $header=file_get_contents($filepath,false,NULL,0,256); // Read first 256 bytes and try to sniff file type.
2496 $im=false;
2497 $i=strpos($header,'GIF8'); if (($i!==false) && ($i==0)) $im = imagecreatefromgif($filepath); // Well this is crude, but it should be enough.
2498 $i=strpos($header,'PNG'); if (($i!==false) && ($i==1)) $im = imagecreatefrompng($filepath);
2499 $i=strpos($header,'JFIF'); if ($i!==false) $im = imagecreatefromjpeg($filepath);
2500 if (!$im) return false; // Unable to open image (corrupted or not an image)
2501 $w = imagesx($im);
2502 $h = imagesy($im);
2503 $ystart = 0; $yheight=$h;
2504 if ($h>$w) { $ystart= ($h/2)-($w/2); $yheight=$w/2; }
2505 $nw = 120; // Desired width
2506 $nh = min(floor(($h*$nw)/$w),120); // Compute new width/height, but maximum 120 pixels height.
2507 // Resize image:
2508 $im2 = imagecreatetruecolor($nw,$nh);
2509 imagecopyresampled($im2, $im, 0, 0, 0, $ystart, $nw, $nh, $w, $yheight);
2510 imageinterlace($im2,true); // For progressive JPEG.
2511 $tempname=$filepath.'_TEMP.jpg';
2512 imagejpeg($im2, $tempname, 90);
2513 imagedestroy($im);
2514 imagedestroy($im2);
9e820906 2515 unlink($filepath);
45034273
SS
2516 rename($tempname,$filepath); // Overwrite original picture with thumbnail.
2517 return true;
2518}
2519
2520// Invalidate caches when the database is changed or the user logs out.
ad6c27b7 2521// (e.g. tags cache).
45034273
SS
2522function invalidateCaches()
2523{
2524 unset($_SESSION['tags']); // Purge cache attached to session.
2525 pageCache::purgeCache(); // Purge page cache shared by sessions.
2526}
2527
2528if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=genthumbnail')) { genThumbnail(); exit; } // Thumbnail generation/cache does not need the link database.
2529if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=rss')) { showRSS(); exit; }
2530if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=atom')) { showATOM(); exit; }
2531if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=dailyrss')) { showDailyRSS(); exit; }
bb8f712d 2532if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'do=daily')) { showDaily(); exit; }
45034273
SS
2533if (isset($_SERVER["QUERY_STRING"]) && startswith($_SERVER["QUERY_STRING"],'ws=')) { processWS(); exit; } // Webservices (for jQuery/jQueryUI)
2534if (!isset($_SESSION['LINKS_PER_PAGE'])) $_SESSION['LINKS_PER_PAGE']=$GLOBALS['config']['LINKS_PER_PAGE'];
2535renderPage();
03545ef6 2536?>