]>
git.immae.eu Git - github/shaarli/Shaarli.git/blob - index.php
4729324001723c795534d67afb5a5d5b9448e8ad
2 // Shaarli 0.0.42 beta - Shaare your links...
3 // The personal, minimalist, super-fast, no-database Delicious clone. By sebsauvage.net
4 // http://sebsauvage.net/wiki/doku.php?id=php:shaarli
5 // Licence: http://www.opensource.org/licenses/zlib-license.php
6 // Requires: PHP 5.1.x (but autocomplete fields will only work if you have PHP 5.2.x)
7 // -----------------------------------------------------------------------------------------------
8 // NEVER TRUST IN PHP.INI
9 // Some hosts do not define a default timezone in php.ini,
10 // so we have to do this for avoid the strict standard error.
11 date_default_timezone_set ( 'UTC' );
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.
24 $GLOBALS [ 'config' ][ 'SHOW_ATOM' ] = false ; // If true, an extra "ATOM feed" button will be displayed in the toolbar
25 $GLOBALS [ 'config' ][ 'ENABLE_THUMBNAILS' ] = true ; // Enable thumbnails in links.
26 $GLOBALS [ 'config' ][ 'CACHEDIR' ] = 'cache' ; // Cache directory for thumbnails for SLOW services (like flickr)
27 $GLOBALS [ 'config' ][ 'PAGECACHE' ] = 'pagecache' ; // Page cache directory.
28 $GLOBALS [ 'config' ][ 'ENABLE_LOCALCACHE' ] = true ; // Enable Shaarli to store thumbnail in a local cache. Disable to reduce web space usage.
29 $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ] = '' ; // PubSubHubbub support. Put an empty string to disable, or put your hub url here to enable.
30 $GLOBALS [ 'config' ][ 'RAINTPL_TMP' ] = 'tmp/' ; // Raintpl cache directory (keep the trailing slash!)
31 $GLOBALS [ 'config' ][ 'RAINTPL_TPL' ] = 'tpl/' ; // Raintpl template directory (keep the trailing slash!)
32 $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/lastupdatecheck.txt' ; // For updates check of Shaarli.
33 $GLOBALS [ 'config' ][ 'UPDATECHECK_INTERVAL' ] = 86400 ; // Updates check frequency for Shaarli. 86400 seconds=24 hours
34 // Note: You must have publisher.php in the same directory as Shaarli index.php
35 $GLOBALS [ 'config' ][ 'ARCHIVE_ORG' ] = false ; // For each link, add a link to an archived version on archive.org
36 // -----------------------------------------------------------------------------------------------
37 // You should not touch below (or at your own risks!)
38 // Optional config file.
39 if ( is_file ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/options.php' )) require ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/options.php' );
41 define ( 'shaarli_version' , '0.0.42 beta' );
42 define ( 'PHPPREFIX' , '<?php /* ' ); // Prefix to encapsulate data in PHP code.
43 define ( 'PHPSUFFIX' , ' */ ?>' ); // Suffix to encapsulate data in PHP code.
44 // http://server.com/x/shaarli --> /shaarli/
45 define ( 'WEB_PATH' , substr ( $_SERVER [ "REQUEST_URI" ], 0 , 1 +
strrpos ( $_SERVER [ "REQUEST_URI" ], '/' , 0 )));
47 // Force cookie path (but do not change lifetime)
48 $cookie = session_get_cookie_params ();
49 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
50 session_set_cookie_params ( $cookie [ 'lifetime' ], $cookiedir , $_SERVER [ 'HTTP_HOST' ]); // Set default cookie expiration and path.
52 // Set session parameters on server side.
53 define ( 'INACTIVITY_TIMEOUT' , 3600 ); // (in seconds). If the user does not access any page within this time, his/her session is considered expired.
54 ini_set ( 'session.use_cookies' , 1 ); // Use cookies to store session.
55 ini_set ( 'session.use_only_cookies' , 1 ); // Force cookies for session (phpsessionID forbidden in URL).
56 ini_set ( 'session.use_trans_sid' , false ); // Prevent PHP form using sessionID in URL if cookies are disabled.
57 session_name ( 'shaarli' );
58 if ( session_id () == '' ) session_start (); // Start session if needed (Some server auto-start sessions).
61 ini_set ( 'max_input_time' , '60' ); // High execution time in case of problematic imports/exports.
62 ini_set ( 'memory_limit' , '128M' ); // Try to set max upload file size and read (May not work on some hosts).
63 ini_set ( 'post_max_size' , '16M' );
64 ini_set ( 'upload_max_filesize' , '16M' );
66 error_reporting ( E_ALL^E_WARNING
); // See all error except warnings.
67 //error_reporting(-1); // See all errors (for debugging only)
69 include "inc/rain.tpl.class.php" ; //include Rain TPL
70 raintpl
:: $tpl_dir = $GLOBALS [ 'config' ][ 'RAINTPL_TPL' ]; // template directory
71 raintpl
:: $cache_dir = $GLOBALS [ 'config' ][ 'RAINTPL_TMP' ]; // cache directory
73 ob_start (); // Output buffering for the page cache.
76 // In case stupid admin has left magic_quotes enabled in php.ini:
77 if ( get_magic_quotes_gpc ())
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 );
85 // Prevent caching on client side or proxy: (yes, it's ugly)
86 header ( "Last-Modified: " . gmdate ( "D, d M Y H:i:s" ) . " GMT" );
87 header ( "Cache-Control: no-store, no-cache, must-revalidate" );
88 header ( "Cache-Control: post-check=0, pre-check=0" , false );
89 header ( "Pragma: no-cache" );
91 // Directories creations (Note that your web host may require different rights than 705.)
92 if (! is_writable ( realpath ( dirname ( __FILE__
)))) die ( '<pre>ERROR: Shaarli does not have the right to write in its own directory.</pre>' );
94 // Handling of old config file which do not have the new parameters.
95 if ( empty ( $GLOBALS [ 'title' ])) $GLOBALS [ 'title' ]= 'Shared links on ' . htmlspecialchars ( indexUrl ());
96 if ( empty ( $GLOBALS [ 'timezone' ])) $GLOBALS [ 'timezone' ]= date_default_timezone_get ();
97 if ( empty ( $GLOBALS [ 'redirector' ])) $GLOBALS [ 'redirector' ]= '' ;
98 if ( empty ( $GLOBALS [ 'disablesessionprotection' ])) $GLOBALS [ 'disablesessionprotection' ]= false ;
99 if ( empty ( $GLOBALS [ 'disablejquery' ])) $GLOBALS [ 'disablejquery' ]= false ;
100 if ( empty ( $GLOBALS [ 'privateLinkByDefault' ])) $GLOBALS [ 'privateLinkByDefault' ]= false ;
101 if ( empty ( $GLOBALS [ 'titleLink' ])) $GLOBALS [ 'titleLink' ]= '?' ;
102 // I really need to rewrite Shaarli with a proper configuation manager.
104 // Run config screen if first run:
105 if (! is_file ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ])) install ();
107 require $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]; // Read login/password hash into $GLOBALS.
109 // a token depending of deployment salt, user password, and the current ip
110 define ( 'STAY_SIGNED_IN_TOKEN' , sha1 ( $GLOBALS [ 'hash' ]. $_SERVER [ "REMOTE_ADDR" ]. $GLOBALS [ 'salt' ]));
112 autoLocale (); // Sniff browser language and set date format accordingly.
113 header ( 'Content-Type: text/html; charset=utf-8' ); // We use UTF-8 for proper international characters handling.
116 function checkphpversion ()
118 if ( version_compare ( PHP_VERSION
, '5.1.0' ) < 0 )
120 header ( 'Content-Type: text/plain; charset=utf-8' );
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.' ;
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.
130 function checkUpdate ()
132 if (! isLoggedIn ()) return '' ; // Do not check versions for visitors.
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' ])))
137 $version = shaarli_version
;
138 list ( $httpstatus , $headers , $data ) = getHTTP ( 'https://raw.githubusercontent.com/shaarli/Shaarli/master/shaarli_version.txt' , 2 );
139 if ( strpos ( $httpstatus , '200 OK' )!== false ) $version = $data ;
140 // If failed, never mind. We don't want to bother the user with that.
141 file_put_contents ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ], $version ); // touch file date
144 $newestversion = file_get_contents ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ]);
145 if ( version_compare ( $newestversion , shaarli_version
)== 1 ) return $newestversion ;
150 // -----------------------------------------------------------------------------------------------
151 // Simple cache system (mainly for the RSS/ATOM feeds).
155 private $url ; // Full URL of the page to cache (typically the value returned by pageUrl())
156 private $shouldBeCached ; // boolean: Should this url be cached?
157 private $filename ; // Name of the cache file for this url.
160 $url = URL (typically the value returned by pageUrl())
161 $shouldBeCached = boolean. If false, the cache will be disabled.
163 public function __construct ( $url , $shouldBeCached )
166 $this- > filename
= $GLOBALS [ 'config' ][ 'PAGECACHE' ]. '/' . sha1 ( $url ). '.cache' ;
167 $this- > shouldBeCached
= $shouldBeCached ;
170 // If the page should be cached and a cached version exists,
171 // returns the cached version (otherwise, return null).
172 public function cachedVersion ()
174 if (! $this- > shouldBeCached
) return null ;
175 if ( is_file ( $this- > filename
)) { return file_get_contents ( $this
-> filename
); exit ; }
179 // Put a page in the cache.
180 public function cache ( $page )
182 if (! $this- > shouldBeCached
) return ;
183 file_put_contents ( $this- > filename
, $page );
186 // Purge the whole cache.
187 // (call with pageCache::purgeCache())
188 public static function purgeCache ()
190 if ( is_dir ( $GLOBALS [ 'config' ][ 'PAGECACHE' ]))
192 $handler = opendir ( $GLOBALS [ 'config' ][ 'PAGECACHE' ]);
193 if ( $handler !== false )
195 while (( $filename = readdir ( $handler ))!== false )
197 if ( endsWith ( $filename , '.cache' )) { unlink ( $GLOBALS
[ 'config' ][ 'PAGECACHE' ]. '/' . $filename
); }
207 // -----------------------------------------------------------------------------------------------
209 function logm ( $message )
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
);
215 // Same as nl2br(), but escapes < and >
216 function nl2br_escaped ( $html )
218 return str_replace ( '>' , '>' , str_replace ( '<' , '<' , nl2br ( $html )));
221 /* Returns the small hash of a string, using RFC 4648 base64url format
222 e.g. smallHash('20111006_131924') --> yZH23w
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.
230 function smallHash ( $text )
232 $t = rtrim ( base64_encode ( hash ( 'crc32' , $text , true )), '=' );
233 return strtr ( $t , '+/' , '-_' );
236 // In a string, converts URLs to clickable links.
237 // Function inspired from http://www.php.net/manual/en/function.preg-replace.php#85722
238 function text2clickable ( $url )
240 $redir = empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ];
241 return preg_replace ( '!(((?:https?|ftp|file)://|apt:|magnet:)\S+[[:alnum:]]/?)!si' , '<a href="' . $redir . ' $1" rel="nofollow"> $1 </a>' , $url );
244 // This function inserts 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)
246 function keepMultipleSpaces ( $text )
248 return str_replace ( ' ' , ' ' , $text );
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.)
254 function autoLocale ()
256 $loc = 'en_US' ; // Default if browser does not send HTTP_ACCEPT_LANGUAGE
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.)
259 if ( preg_match ( '/([a-z] {2} (-[a-z] {2} )?)/i' , $_SERVER [ 'HTTP_ACCEPT_LANGUAGE' ], $matches )) $loc = $matches [ 1 ];
261 setlocale ( LC_TIME
, $loc ); // LC_TIME = Set local for date/time format only.
264 // ------------------------------------------------------------------------------------------
265 // PubSubHubbub protocol support (if enabled) [UNTESTED]
266 // (Source: http://aldarone.fr/les-flux-rss-shaarli-et-pubsubhubbub/ )
267 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ])) include './publisher.php' ;
270 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
272 $p = new Publisher ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]);
274 indexUrl (). '?do=atom' ,
277 $p- > publish_update ( $topic_url );
281 // ------------------------------------------------------------------------------------------
282 // Session management
284 // Returns the IP address of the client (Used to prevent session cookie hijacking.)
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' ]; }
294 function fillSessionInfo () {
295 $_SESSION [ 'uid' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Generate unique random number (different than phpsessionid)
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.
301 // Check that user/password is correct.
302 function check_auth ( $login , $password )
304 $hash = sha1 ( $password . $login . $GLOBALS [ 'salt' ]);
305 if ( $login == $GLOBALS [ 'login' ] && $hash == $GLOBALS [ 'hash' ])
306 { // Login/password is correct.
308 logm ( 'Login successful' );
311 logm ( 'Login failed for user ' . $login );
315 // Returns true if the user is logged in.
316 function isLoggedIn ()
318 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) return true ;
320 if (! isset ( $GLOBALS [ 'login' ])) return false ; // Shaarli is not configured yet.
322 if (@ $_COOKIE [ 'shaarli_staySignedIn' ]=== STAY_SIGNED_IN_TOKEN
)
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' ])
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.
340 function logout () { if ( isset ( $_SESSION
)) { unset ( $_SESSION
[ 'uid' ]); unset ( $_SESSION
[ 'ip' ]); unset ( $_SESSION
[ 'username' ]); unset ( $_SESSION
[ 'privateonly' ]); }
341 setcookie ( 'shaarli_staySignedIn' , FALSE , 0 , WEB_PATH
);
345 // ------------------------------------------------------------------------------------------
346 // Brute force protection system
347 // Several consecutive failed logins will ban the IP address for 30 minutes.
348 if (! is_file ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ])) file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( array ( 'FAILURES' => array (), 'BANS' => array ()), true ). "; \n ?>" );
349 include $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ];
350 // Signal a failed login. Will ban the IP if too many failures:
351 function ban_loginFailed ()
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 ))
358 $gb [ 'BANS' ][ $ip ]= time () +
$GLOBALS [ 'config' ][ 'BAN_DURATION' ];
359 logm ( 'IP address banned from login' );
361 $GLOBALS [ 'IPBANS' ] = $gb ;
362 file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( $gb , true ). "; \n ?>" );
365 // Signals a successful login. Resets failed login counter.
366 function ban_loginOk ()
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 ?>" );
374 // Checks if the user CAN login. If 'true', the user can try to login.
375 function ban_canLogin ()
377 $ip = $_SERVER [ "REMOTE_ADDR" ]; $gb = $GLOBALS [ 'IPBANS' ];
378 if ( isset ( $gb [ 'BANS' ][ $ip ]))
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.
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.
388 return false ; // User is banned.
390 return true ; // User is not banned.
393 // ------------------------------------------------------------------------------------------
394 // Process login form: Check if login/password is correct.
395 if ( isset ( $_POST [ 'login' ]))
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' ])))
399 { // Login/password is OK.
401 // If user wants to keep the session cookie even after the browser closes:
402 if (! empty ( $_POST [ 'longlastingsession' ]))
404 setcookie ( 'shaarli_staySignedIn' , STAY_SIGNED_IN_TOKEN
, time () +
31536000 , WEB_PATH
);
405 $_SESSION [ 'longlastingsession' ]= 31536000 ; // (31536000 seconds = 1 year)
406 $_SESSION [ 'expires_on' ]= time () +
$_SESSION [ 'longlastingsession' ]; // Set session expiration on server-side.
408 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
409 session_set_cookie_params ( $_SESSION [ 'longlastingsession' ], $cookiedir , $_SERVER [ 'HTTP_HOST' ]); // Set session cookie expiration on client side
410 // Note: Never forget the trailing slash on the cookie path!
411 session_regenerate_id ( true ); // Send cookie with new expiration date to browser.
413 else // Standard session expiration (=when browser closes)
415 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
416 session_set_cookie_params ( 0 , $cookiedir , $_SERVER [ 'HTTP_HOST' ]); // 0 means "When browser closes"
417 session_regenerate_id ( true );
419 // Optional redirect after login:
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 ; }
421 if ( isset ( $_POST [ 'returnurl' ]))
423 if ( endsWith ( $_POST [ 'returnurl' ], '?do=login' )) { header ( 'Location: ?' ); exit ; } // Prevent loops over login screen.
424 header ( 'Location: ' . $_POST [ 'returnurl' ]); exit ;
426 header ( 'Location: ?' ); exit ;
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' ]): '' ); }
433 echo '<script>alert("Wrong login/password.");document.location= \' ?do=login' . $redir . ' \' ;</script>' ; // Redirect to login screen.
438 // ------------------------------------------------------------------------------------------
439 // Misc utility functions:
441 // Returns the server URL (including port and http/https), without path.
442 // e.g. "http://myserver.com:8080"
443 // You can append $_SERVER['SCRIPT_NAME'] to get the current script URL.
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" ]);
448 return 'http' .( $https ? 's' : '' ). '://' . $_SERVER [ 'HTTP_HOST' ]. $serverport ;
451 // Returns the absolute URL of current script, without the query.
452 // (e.g. http://sebsauvage.net/links/)
455 $scriptname = $_SERVER [ "SCRIPT_NAME" ];
456 // If the script is named 'index.php', we remove it (for better looking URLs,
457 // e.g. http://mysite.com/shaarli/?abcde instead of http://mysite.com/shaarli/index.php?abcde)
458 if ( endswith ( $scriptname , 'index.php' )) $scriptname = substr ( $scriptname , 0 , strlen ( $scriptname )- 9 );
459 return serverUrl () . $scriptname ;
462 // Returns the absolute URL of current script, WITH the query.
463 // (e.g. http://sebsauvage.net/links/?toto=titi&spamspamspam=humbug)
466 return indexUrl ().(! empty ( $_SERVER [ "QUERY_STRING" ]) ? '?' . $_SERVER [ "QUERY_STRING" ] : '' );
469 // Convert post_max_size/upload_max_filesize (e.g. '16M') parameters to bytes.
470 function return_bytes ( $val )
472 $val = trim ( $val ); $last = strtolower ( $val [ strlen ( $val )- 1 ]);
475 case 'g' : $val *= 1024 ;
476 case 'm' : $val *= 1024 ;
477 case 'k' : $val *= 1024 ;
482 // Try to determine max file size for uploads (POST).
483 // Returns an integer (in bytes)
484 function getMaxFileSize ()
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 );
490 // FIXME: Then convert back to readable notations ? (e.g. 2M instead of 2000000)
494 // Tells if a string start with a substring or not.
495 function startsWith ( $haystack , $needle , $case = true )
497 if ( $case ){ return ( strcmp ( substr ( $haystack
, 0 , strlen ( $needle
)), $needle
)=== 0 );}
498 return ( strcasecmp ( substr ( $haystack , 0 , strlen ( $needle )), $needle )=== 0 );
501 // Tells if a string ends with a substring or not.
502 function endsWith ( $haystack , $needle , $case = true )
504 if ( $case ){ return ( strcmp ( substr ( $haystack
, strlen ( $haystack
) - strlen ( $needle
)), $needle
)=== 0 );}
505 return ( strcasecmp ( substr ( $haystack , strlen ( $haystack ) - strlen ( $needle )), $needle )=== 0 );
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. */
511 function linkdate2timestamp ( $linkdate )
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 );
518 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a RFC822 date.
519 (used to build the pubDate attribute in RSS feed.) */
520 function linkdate2rfc822 ( $linkdate )
522 return date ( 'r' , linkdate2timestamp ( $linkdate )); // 'r' is for RFC822 date format.
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.) */
527 function linkdate2iso8601 ( $linkdate )
529 return date ( 'c' , linkdate2timestamp ( $linkdate )); // 'c' is for ISO 8601 date format.
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()). */
535 function linkdate2locale ( $linkdate )
537 return utf8_encode ( strftime ( '%c' , linkdate2timestamp ( $linkdate ))); // %c is for automatic date format according to locale.
538 // Note that if you use a locale which is not installed on your webserver,
539 // the date will not be displayed in the chosen locale, but probably in US notation.
542 // Parse HTTP response headers and return an associative array.
543 function http_parse_headers_shaarli ( $headers )
546 foreach ( $headers as $header )
548 $i = strpos ( $header , ': ' );
551 $key = substr ( $header , 0 , $i );
552 $value = substr ( $header , $i +
2 , strlen ( $header )- $i-2 );
560 Input: $url : URL to get (http://...)
561 $timeout : Network timeout (will wait this many seconds for an anwser before giving up).
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'])
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']);
569 echo 'There was an error: '.htmlspecialchars($httpstatus)
571 function getHTTP ( $url , $timeout = 30 )
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
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 (), '' ); }
579 $httpStatus = $http_response_header [ 0 ]; // e.g. "HTTP/1.1 200 OK"
580 $responseHeaders = http_parse_headers_shaarli ( $http_response_header );
581 return array ( $httpStatus , $responseHeaders , $data );
583 catch ( Exception
$e ) // getHTTP *can* fail silently (we don't care if the title cannot be fetched)
585 return array ( $e- > getMessage (), '' , '' );
589 // Extract title from an HTML document.
590 // (Returns an empty string if not found.)
591 function html_extract_title ( $html )
593 return preg_match ( '!<title>(.*?)</title>!is' , $html , $matches ) ? trim ( str_replace ( " \n " , ' ' , $matches [ 1 ])) : '' ;
596 // ------------------------------------------------------------------------------------------
597 // Token management for XSRF protection
598 // Token should be used in any form which acts on data (create,update,delete,import...).
599 if (! isset ( $_SESSION [ 'tokens' ])) $_SESSION [ 'tokens' ]= array (); // Token are attached to the session.
604 $rnd = sha1 ( uniqid ( '' , true ). '_' . mt_rand (). $GLOBALS [ 'salt' ]); // We generate a random string.
605 $_SESSION [ 'tokens' ][ $rnd ]= 1 ; // Store it on the server side.
609 // Tells if a token is OK. Using this function will destroy the token.
611 function tokenOk ( $token )
613 if ( isset ( $_SESSION [ 'tokens' ][ $token ]))
615 unset ( $_SESSION [ 'tokens' ][ $token ]); // Token is used: destroy it.
616 return true ; // Token is OK.
618 return false ; // Wrong token, or already used.
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.)
625 p.assign('myfield','myvalue');
626 p.renderPage('mytemplate');
631 private $tpl ; // RainTPL template
633 function __construct ()
638 private function initialize ()
640 $this- > tpl
= new RainTPL
;
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' );
651 $this- > tpl
-> assign ( 'privateonly' ,! empty ( $_SESSION [ 'privateonly' ])); // Show only private links?
652 if (! empty ( $GLOBALS [ 'title' ])) $this- > tpl
-> assign ( 'pagetitle' , $GLOBALS [ 'title' ]);
653 if (! empty ( $GLOBALS [ 'titleLink' ])) $this- > tpl
-> assign ( 'titleLink' , $GLOBALS [ 'titleLink' ]);
654 if (! empty ( $GLOBALS [ 'pagetitle' ])) $this- > tpl
-> assign ( 'pagetitle' , $GLOBALS [ 'pagetitle' ]);
655 $this- > tpl
-> assign ( 'shaarlititle' , empty ( $GLOBALS [ 'title' ]) ? 'Shaarli' : $GLOBALS [ 'title' ] );
659 // The following assign() method is basically the same as RainTPL (except that it's lazy)
660 public function assign ( $what , $where )
662 if ( $this- > tpl
=== false ) $this- > initialize (); // Lazy initialization
663 $this- > tpl
-> assign ( $what , $where );
666 // Render a specific page (using a template).
667 // e.g. pb.renderPage('picwall')
668 public function renderPage ( $page )
670 if ( $this- > tpl
=== false ) $this- > initialize (); // Lazy initialization
671 $this- > tpl
-> draw ( $page );
675 // ------------------------------------------------------------------------------------------
676 /* Data storage for links.
677 This object behaves like an associative array.
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'];
685 title : Title of the link
686 url : URL of the link. Can be absolute or relative. Relative URLs are permalinks (e.g.'?m-ukcw')
687 description : description of the entry
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')
690 tags : tags attached to this entry (separated by spaces)
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.
697 class linkdb
implements Iterator
, Countable
, ArrayAccess
699 private $links ; // List of links (associative array. Key=linkdate (e.g. "20110823_124546"), value= associative array (keys:title,description...)
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.)
703 private $loggedin ; // Is the user logged in? (used to filter private links)
706 function __construct ( $isLoggedIn )
707 // Input : $isLoggedIn : is the user logged in?
709 $this- > loggedin
= $isLoggedIn ;
710 $this- > checkdb (); // Make sure data file exists.
711 $this- > readdb (); // Then read it.
714 // ---- Countable interface implementation
715 public function count () { return count ( $this
-> links
); }
717 // ---- ArrayAccess interface implementation
718 public function offsetSet ( $offset , $value )
720 if (! $this- > loggedin
) die ( 'You are not authorized to add a link.' );
721 if ( empty ( $value [ 'linkdate' ]) || empty ( $value [ 'url' ])) die ( 'Internal Error: A link should always have a linkdate and URL.' );
722 if ( empty ( $offset )) die ( 'You must specify a key.' );
723 $this- > links
[ $offset ] = $value ;
724 $this- > urls
[ $value [ 'url' ]]= $offset ;
726 public function offsetExists ( $offset ) { return array_key_exists ( $offset
, $this
-> links
); }
727 public function offsetUnset ( $offset )
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 ]);
733 public function offsetGet ( $offset ) { return isset ( $this
-> links
[ $offset
]) ? $this
-> links
[ $offset
] : null ; }
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.
743 private function checkdb () // Check if db directory and file exists.
745 if (! file_exists ( $GLOBALS [ 'config' ][ 'DATASTORE' ])) // Create a dummy database for example.
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 ;
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' );
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
756 // Read database from disk to memory
757 private function readdb ()
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
763 // If user is not logged in, filter private links.
764 if (! $this- > loggedin
)
767 foreach ( $this- > links
as $link ) { if ( $link
[ 'private' ]!= 0 ) $toremove
[]= $link
[ 'linkdate' ]; }
768 foreach ( $toremove as $linkdate ) { unset ( $this
-> links
[ $linkdate
]); }
771 // Keep the list of the mapping URLs-->linkdate up-to-date.
773 foreach ( $this- > links
as $link ) { $this
-> urls
[ $link
[ 'url' ]]= $link
[ 'linkdate' ]; }
776 // Save database from memory to disk.
777 public function savedb ()
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
);
784 // Returns the link for a given URL (if it exists). False if it does not exist.
785 public function getLinkFromUrl ( $url )
787 if ( isset ( $this- > urls
[ $url ])) return $this- > links
[ $this- > urls
[ $url ]];
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'));
793 public function filterFulltext ( $searchterms )
795 // FIXME: explode(' ',$searchterms) and perform a AND search.
796 // FIXME: accept double-quotes to search for a string "as is"?
797 // Using mb_convert_case($val, MB_CASE_LOWER, 'UTF-8') allows us to perform searches on
798 // Unicode text. See https://github.com/shaarli/Shaarli/issues/75 for examples.
800 $s = mb_convert_case ( $searchterms , MB_CASE_LOWER
, 'UTF-8' );
801 foreach ( $this- > links
as $l )
803 $found = ( strpos ( mb_convert_case ( $l [ 'title' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false )
804 || ( strpos ( mb_convert_case ( $l [ 'description' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false )
805 || ( strpos ( mb_convert_case ( $l [ 'url' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false )
806 || ( strpos ( mb_convert_case ( $l [ 'tags' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false );
807 if ( $found ) $filtered [ $l [ 'linkdate' ]] = $l ;
814 // You can specify one or more tags (tags can be separated by space or comma).
815 // e.g. print_r($mydb->filterTags('linux programming'));
816 public function filterTags ( $tags , $casesensitive = false )
818 // Same as above, we use UTF-8 conversion to handle various graphemes (i.e. cyrillic, or greek)
819 // TODO: is $casesensitive ever true ?
820 $t = str_replace ( ',' , ' ' ,( $casesensitive ? $tags : mb_convert_case ( $tags , MB_CASE_LOWER
, 'UTF-8' )));
821 $searchtags = explode ( ' ' , $t );
823 foreach ( $this- > links
as $l )
825 $linktags = explode ( ' ' ,( $casesensitive ? $l [ 'tags' ]: mb_convert_case ( $l [ 'tags' ], MB_CASE_LOWER
, 'UTF-8' )));
826 if ( count ( array_intersect ( $linktags , $searchtags )) == count ( $searchtags ))
827 $filtered [ $l [ 'linkdate' ]] = $l ;
833 // Filter by day. Day must be in the form 'YYYYMMDD' (e.g. '20120125')
834 // Sort order is: older articles first.
835 // e.g. print_r($mydb->filterDay('20120125'));
836 public function filterDay ( $day )
839 foreach ( $this- > links
as $l )
841 if ( startsWith ( $l [ 'linkdate' ], $day )) $filtered [ $l [ 'linkdate' ]] = $l ;
846 // Filter by smallHash.
847 // Only 1 article is returned.
848 public function filterSmallHash ( $smallHash )
851 foreach ( $this- > links
as $l )
853 if ( $smallHash == smallHash ( $l [ 'linkdate' ])) // Yes, this is ugly and slow
855 $filtered [ $l [ 'linkdate' ]] = $l ;
862 // Returns the list of all tags
863 // Output: associative array key=tags, value=0
864 public function allTags ()
867 foreach ( $this- > links
as $link )
868 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag )
869 if (! empty ( $tag )) $tags [ $tag ]=( empty ( $tags [ $tag ]) ? 1 : $tags [ $tag ] +
1 );
870 arsort ( $tags ); // Sort tags by usage (most used tag first)
874 // Returns the list of days containing articles (oldest first)
875 // Output: An array containing days (in format YYYYMMDD).
876 public function days ()
879 foreach ( array_keys ( $this- > links
) as $day )
881 $linkdays [ substr ( $day , 0 , 8 )]= 0 ;
883 $linkdays = array_keys ( $linkdays );
889 // ------------------------------------------------------------------------------------------
890 // Output the last N links in RSS 2.0 format.
893 header ( 'Content-Type: application/rss+xml; charset=utf-8' );
895 // $usepermalink : If true, use permalink instead of final link.
896 // User just has to add 'permalink' in URL parameters. e.g. http://mysite.com/shaarli/?do=rss&permalinks
897 $usepermalinks = isset ( $_GET [ 'permalinks' ]);
900 $query = $_SERVER [ "QUERY_STRING" ];
901 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=rss' ) && ! isLoggedIn ());
902 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
904 // If cached was not found (or not usable), then read the database and build the response:
905 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if user it not logged in).
907 // Optionally filter the results:
908 $linksToDisplay = array ();
909 if (! empty ( $_GET [ 'searchterm' ])) $linksToDisplay = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
910 elseif (! empty ( $_GET [ 'searchtags' ])) $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
911 else $linksToDisplay = $LINKSDB ;
912 $nblinksToDisplay = 50 ; // Number of links to display.
913 if (! empty ( $_GET [ 'nb' ])) // In URL, you can specificy the number of links. Example: nb=200 or nb=all for all links.
915 $nblinksToDisplay = $_GET [ 'nb' ]== 'all' ? count ( $linksToDisplay ) : max ( $_GET [ 'nb' ] +
0 , 1 ) ;
918 $pageaddr = htmlspecialchars ( indexUrl ());
919 echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">' ;
920 echo '<channel><title>' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title><link>' . $pageaddr . '</link>' ;
921 echo '<description>Shared links</description><language>en-en</language><copyright>' . $pageaddr . '</copyright>' . " \n\n " ;
922 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
924 echo '<!-- PubSubHubbub Discovery -->' ;
925 echo '<link rel="hub" href="' . htmlspecialchars ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]). '" xmlns="http://www.w3.org/2005/Atom" />' ;
926 echo '<link rel="self" href="' . htmlspecialchars ( $pageaddr ). '?do=rss" xmlns="http://www.w3.org/2005/Atom" />' ;
927 echo '<!-- End Of PubSubHubbub Discovery -->' ;
930 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // No, I can't use array_keys().
931 while ( $i < $nblinksToDisplay && $i < count ( $keys ))
933 $link = $linksToDisplay [ $keys [ $i ]];
934 $guid = $pageaddr . '?' . smallHash ( $link [ 'linkdate' ]);
935 $rfc822date = linkdate2rfc822 ( $link [ 'linkdate' ]);
936 $absurl = htmlspecialchars ( $link [ 'url' ]);
937 if ( startsWith ( $absurl , '?' )) $absurl = $pageaddr . $absurl ; // make permalink URL absolute
938 if ( $usepermalinks === true )
939 echo '<item><title>' . htmlspecialchars ( $link [ 'title' ]). '</title><guid isPermaLink="false">' . $guid . '</guid><link>' . $guid . '</link>' ;
941 echo '<item><title>' . htmlspecialchars ( $link [ 'title' ]). '</title><guid isPermaLink="false">' . $guid . '</guid><link>' . $absurl . '</link>' ;
942 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) echo '<pubDate>' . htmlspecialchars ( $rfc822date ). "</pubDate> \n " ;
943 if ( $link [ 'tags' ]!= '' ) // Adding tags to each RSS entry (as mentioned in RSS specification)
945 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag ) { echo '<category domain="' . htmlspecialchars ( $pageaddr
). '">' . htmlspecialchars ( $tag
). '</category>' . " \n " ; }
948 // Add permalink in description
949 $descriptionlink = '(<a href="' . $guid . '">Permalink</a>)' ;
950 // If user wants permalinks first, put the final link in description
951 if ( $usepermalinks === true ) $descriptionlink = '(<a href="' . $absurl . '">Link</a>)' ;
952 if ( strlen ( $link [ 'description' ])> 0 ) $descriptionlink = '<br>' . $descriptionlink ;
953 echo '<description><![CDATA[' . nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ])))). $descriptionlink . ']]></description>' . " \n </item> \n " ;
956 echo '</channel></rss><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
958 $cache- > cache ( ob_get_contents ());
963 // ------------------------------------------------------------------------------------------
964 // Output the last N links in ATOM format.
967 header ( 'Content-Type: application/atom+xml; charset=utf-8' );
969 // $usepermalink : If true, use permalink instead of final link.
970 // User just has to add 'permalink' in URL parameters. e.g. http://mysite.com/shaarli/?do=atom&permalinks
971 $usepermalinks = isset ( $_GET [ 'permalinks' ]);
974 $query = $_SERVER [ "QUERY_STRING" ];
975 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=atom' ) && ! isLoggedIn ());
976 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
977 // If cached was not found (or not usable), then read the database and build the response:
979 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
982 // Optionally filter the results:
983 $linksToDisplay = array ();
984 if (! empty ( $_GET [ 'searchterm' ])) $linksToDisplay = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
985 elseif (! empty ( $_GET [ 'searchtags' ])) $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
986 else $linksToDisplay = $LINKSDB ;
987 $nblinksToDisplay = 50 ; // Number of links to display.
988 if (! empty ( $_GET [ 'nb' ])) // In URL, you can specificy the number of links. Example: nb=200 or nb=all for all links.
990 $nblinksToDisplay = $_GET [ 'nb' ]== 'all' ? count ( $linksToDisplay ) : max ( $_GET [ 'nb' ] +
0 , 1 ) ;
993 $pageaddr = htmlspecialchars ( indexUrl ());
997 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // No, I can't use array_keys().
998 while ( $i < $nblinksToDisplay && $i < count ( $keys ))
1000 $link = $linksToDisplay [ $keys [ $i ]];
1001 $guid = $pageaddr . '?' . smallHash ( $link [ 'linkdate' ]);
1002 $iso8601date = linkdate2iso8601 ( $link [ 'linkdate' ]);
1003 $latestDate = max ( $latestDate , $iso8601date );
1004 $absurl = htmlspecialchars ( $link [ 'url' ]);
1005 if ( startsWith ( $absurl , '?' )) $absurl = $pageaddr . $absurl ; // make permalink URL absolute
1006 $entries .= '<entry><title>' . htmlspecialchars ( $link [ 'title' ]). '</title>' ;
1007 if ( $usepermalinks === true )
1008 $entries .= '<link href="' . $guid . '" /><id>' . $guid . '</id>' ;
1010 $entries .= '<link href="' . $absurl . '" /><id>' . $guid . '</id>' ;
1011 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) $entries .= '<updated>' . htmlspecialchars ( $iso8601date ). '</updated>' ;
1013 // Add permalink in description
1014 $descriptionlink = htmlspecialchars ( '(<a href="' . $guid . '">Permalink</a>)' );
1015 // If user wants permalinks first, put the final link in description
1016 if ( $usepermalinks === true ) $descriptionlink = htmlspecialchars ( '(<a href="' . $absurl . '">Link</a>)' );
1017 if ( strlen ( $link [ 'description' ])> 0 ) $descriptionlink = '<br>' . $descriptionlink ;
1019 $entries .= '<content type="html">' . htmlspecialchars ( nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))))). $descriptionlink . "</content> \n " ;
1020 if ( $link [ 'tags' ]!= '' ) // Adding tags to each ATOM entry (as mentioned in ATOM specification)
1022 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag )
1023 { $entries
.= '<category scheme="' . htmlspecialchars ( $pageaddr
, ENT_QUOTES
). '" term="' . htmlspecialchars ( $tag
, ENT_QUOTES
). '" />' . " \n " ; }
1025 $entries .= "</entry> \n " ;
1028 $feed = '<?xml version="1.0" encoding="UTF-8"?><feed xmlns="http://www.w3.org/2005/Atom">' ;
1029 $feed .= '<title>' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title>' ;
1030 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) $feed .= '<updated>' . htmlspecialchars ( $latestDate ). '</updated>' ;
1031 $feed .= '<link rel="self" href="' . htmlspecialchars ( serverUrl (). $_SERVER [ "REQUEST_URI" ]). '" />' ;
1032 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
1034 $feed .= '<!-- PubSubHubbub Discovery -->' ;
1035 $feed .= '<link rel="hub" href="' . htmlspecialchars ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]). '" />' ;
1036 $feed .= '<!-- End Of PubSubHubbub Discovery -->' ;
1038 $feed .= '<author><name>' . htmlspecialchars ( $pageaddr ). '</name><uri>' . htmlspecialchars ( $pageaddr ). '</uri></author>' ;
1039 $feed .= '<id>' . htmlspecialchars ( $pageaddr ). '</id>' . " \n\n " ; // Yes, I know I should use a real IRI (RFC3987), but the site URL will do.
1041 $feed .= '</feed><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
1044 $cache- > cache ( ob_get_contents ());
1049 // ------------------------------------------------------------------------------------------
1050 // Daily RSS feed: 1 RSS entry per day giving all the links on that day.
1051 // Gives the last 7 days (which have links).
1052 // This RSS feed cannot be filtered.
1053 function showDailyRSS ()
1056 $query = $_SERVER [ "QUERY_STRING" ];
1057 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=dailyrss' ) && ! isLoggedIn ());
1058 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
1059 // If cached was not found (or not usable), then read the database and build the response:
1060 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1062 /* Some Shaarlies may have very few links, so we need to look
1063 back in time (rsort()) until we have enough days ($nb_of_days).
1065 $linkdates = array (); foreach ( $LINKSDB as $linkdate => $value ) { $linkdates
[]= $linkdate
; }
1067 $nb_of_days = 7 ; // We take 7 days.
1070 foreach ( $linkdates as $linkdate )
1072 $day = substr ( $linkdate , 0 , 8 ); // Extract day (without time)
1073 if ( strcmp ( $day , $today )< 0 )
1075 if ( empty ( $days [ $day ])) $days [ $day ]= array ();
1076 $days [ $day ][]= $linkdate ;
1078 if ( count ( $days )> $nb_of_days ) break ; // Have we collected enough days?
1081 // Build the RSS feed.
1082 header ( 'Content-Type: application/rss+xml; charset=utf-8' );
1083 $pageaddr = htmlspecialchars ( indexUrl ());
1084 echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0">' ;
1085 echo '<channel><title>Daily - ' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title><link>' . $pageaddr . '</link>' ;
1086 echo '<description>Daily shared links</description><language>en-en</language><copyright>' . $pageaddr . '</copyright>' . " \n " ;
1088 foreach ( $days as $day => $linkdates ) // For each day.
1090 $daydate = utf8_encode ( strftime ( '%A %d, %B %Y' , linkdate2timestamp ( $day . '_000000' ))); // Full text date
1091 $rfc822date = linkdate2rfc822 ( $day . '_000000' );
1092 $absurl = htmlspecialchars ( indexUrl (). '?do=daily&day=' . $day ); // Absolute URL of the corresponding "Daily" page.
1093 echo '<item><title>' . htmlspecialchars ( $GLOBALS [ 'title' ]. ' - ' . $daydate ). '</title><guid>' . $absurl . '</guid><link>' . $absurl . '</link>' ;
1094 echo '<pubDate>' . htmlspecialchars ( $rfc822date ). "</pubDate>" ;
1096 // Build the HTML body of this RSS entry.
1100 // We pre-format some fields for proper output.
1101 foreach ( $linkdates as $linkdate )
1103 $l = $LINKSDB [ $linkdate ];
1104 $l [ 'formatedDescription' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $l [ 'description' ]))));
1105 $l [ 'thumbnail' ] = thumbnail ( $l [ 'url' ]);
1106 $l [ 'localdate' ]= linkdate2locale ( $l [ 'linkdate' ]);
1107 if ( startsWith ( $l [ 'url' ], '?' )) $l [ 'url' ]= indexUrl (). $l [ 'url' ]; // make permalink URL absolute
1108 $links [ $linkdate ]= $l ;
1110 // Then build the HTML for this day:
1112 $tpl- > assign ( 'links' , $links );
1113 $html = $tpl- > draw ( 'dailyrss' , $return_string = true );
1115 echo '<description><![CDATA[' . $html . ']]></description>' . " \n </item> \n\n " ;
1118 echo '</channel></rss><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
1120 $cache- > cache ( ob_get_contents ());
1126 function showDaily ()
1128 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1131 $day = Date ( 'Ymd' , strtotime ( '-1 day' )); // Yesterday, in format YYYYMMDD.
1132 if ( isset ( $_GET [ 'day' ])) $day = $_GET [ 'day' ];
1134 $days = $LINKSDB- > days ();
1135 $i = array_search ( $day , $days );
1136 if ( $i == false ) { $i
= count ( $days
)- 1 ; $day
= $days
[ $i
]; }
1141 if ( $i > 1 ) $previousday = $days [ $i-1 ];
1142 if ( $i < count ( $days )- 1 ) $nextday = $days [ $i +
1 ];
1145 $linksToDisplay = $LINKSDB- > filterDay ( $day );
1146 // We pre-format some fields for proper output.
1147 foreach ( $linksToDisplay as $key => $link )
1149 $taglist = explode ( ' ' , $link [ 'tags' ]);
1150 uasort ( $taglist , 'strcasecmp' );
1151 $linksToDisplay [ $key ][ 'taglist' ]= $taglist ;
1152 $linksToDisplay [ $key ][ 'formatedDescription' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))));
1153 $linksToDisplay [ $key ][ 'thumbnail' ] = thumbnail ( $link [ 'url' ]);
1154 $linksToDisplay [ $key ][ 'localdate' ] = linkdate2locale ( $link [ 'linkdate' ]);
1157 /* We need to spread the articles on 3 columns.
1158 I did not want to use a JavaScript lib like http://masonry.desandro.com/
1159 so I manually spread entries with a simple method: I roughly evaluate the
1160 height of a div according to title and description length.
1162 $columns = array ( array (), array (), array ()); // Entries to display, for each column.
1163 $fill = array ( 0 , 0 , 0 ); // Rough estimate of columns fill.
1164 foreach ( $linksToDisplay as $key => $link )
1166 // Roughly estimate length of entry (by counting characters)
1167 // Title: 30 chars = 1 line. 1 line is 30 pixels height.
1168 // Description: 836 characters gives roughly 342 pixel height.
1169 // This is not perfect, but it's usually OK.
1170 $length = strlen ( $link [ 'title' ]) +
( 342 * strlen ( $link [ 'description' ]))/ 836 ;
1171 if ( $link [ 'thumbnail' ]) $length +
= 100 ; // 1 thumbnails roughly takes 100 pixels height.
1172 // Then put in column which is the less filled:
1173 $smallest = min ( $fill ); // find smallest value in array.
1174 $index = array_search ( $smallest , $fill ); // find index of this smallest value.
1175 array_push ( $columns [ $index ], $link ); // Put entry in this column.
1176 $fill [ $index ] +
= $length ;
1178 $PAGE = new pageBuilder
;
1179 $PAGE- > assign ( 'linksToDisplay' , $linksToDisplay );
1180 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1181 $PAGE- > assign ( 'cols' , $columns );
1182 $PAGE- > assign ( 'day' , utf8_encode ( strftime ( '%A %d, %B %Y' , linkdate2timestamp ( $day . '_000000' ))));
1183 $PAGE- > assign ( 'previousday' , $previousday );
1184 $PAGE- > assign ( 'nextday' , $nextday );
1185 $PAGE- > renderPage ( 'daily' );
1190 // ------------------------------------------------------------------------------------------
1191 // Render HTML page (according to URL parameters and user rights)
1192 function renderPage ()
1194 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1196 // -------- Display login form.
1197 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=login' ))
1199 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) { header ( 'Location: ?' ); exit ; } // No need to login for open Shaarli
1200 $token = '' ; if ( ban_canLogin ()) $token = getToken (); // Do not waste token generation if not useful.
1201 $PAGE = new pageBuilder
;
1202 $PAGE- > assign ( 'token' , $token );
1203 $PAGE- > assign ( 'returnurl' ,( isset ( $_SERVER [ 'HTTP_REFERER' ]) ? $_SERVER [ 'HTTP_REFERER' ]: '' ));
1204 $PAGE- > renderPage ( 'loginform' );
1207 // -------- User wants to logout.
1208 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=logout' ))
1212 header ( 'Location: ?' );
1216 // -------- Picture wall
1217 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=picwall' ))
1219 // Optionally filter the results:
1221 if (! empty ( $_GET [ 'searchterm' ])) $links = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
1222 elseif (! empty ( $_GET [ 'searchtags' ])) $links = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
1223 else $links = $LINKSDB ;
1225 $linksToDisplay = array ();
1227 // Get only links which have a thumbnail.
1228 foreach ( $links as $link )
1230 $permalink = '?' . htmlspecialchars ( smallhash ( $link [ 'linkdate' ]), ENT_QUOTES
);
1231 $thumb = lazyThumbnail ( $link [ 'url' ], $permalink );
1232 if ( $thumb != '' ) // Only output links which have a thumbnail.
1234 $link [ 'thumbnail' ]= $thumb ; // Thumbnail HTML code.
1235 $link [ 'permalink' ]= $permalink ;
1236 $linksToDisplay []= $link ; // Add to array.
1239 $PAGE = new pageBuilder
;
1240 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1241 $PAGE- > assign ( 'linksToDisplay' , $linksToDisplay );
1242 $PAGE- > renderPage ( 'picwall' );
1246 // -------- Tag cloud
1247 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=tagcloud' ))
1249 $tags = $LINKSDB- > allTags ();
1250 // We sort tags alphabetically, then choose a font size according to count.
1251 // First, find max value.
1252 $maxcount = 0 ; foreach ( $tags as $key => $value ) $maxcount = max ( $maxcount , $value );
1255 foreach ( $tags as $key => $value )
1256 // Tag font size scaling: default 15 and 30 logarithm bases affect scaling, 22 and 6 are arbitrary font sizes for max and min sizes.
1258 $tagList [ $key ] = array ( 'count' => $value , 'size' => log ( $value , 15 ) / log ( $maxcount , 30 ) * ( 22 - 6 ) +
6 );
1260 $PAGE = new pageBuilder
;
1261 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1262 $PAGE- > assign ( 'tags' , $tagList );
1263 $PAGE- > renderPage ( 'tagcloud' );
1267 // -------- User clicks on a tag in a link: The tag is added to the list of searched tags (searchtags=...)
1268 if ( isset ( $_GET [ 'addtag' ]))
1270 // Get previous URL (http_referer) and add the tag to the searchtags parameters in query.
1271 if ( empty ( $_SERVER [ 'HTTP_REFERER' ])) { header ( 'Location: ?searchtags=' . urlencode ( $_GET
[ 'addtag' ])); exit ; } // In case browser does not send HTTP_REFERER
1272 parse_str ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_QUERY
), $params );
1274 // Check if this tag is already in the search query and ignore it if it is.
1275 // Each tag is always separated by a space
1276 $current_tags = explode ( ' ' , $params [ 'searchtags' ]);
1278 foreach ( $current_tags as $value ) {
1279 if ( $value === $_GET [ 'addtag' ]) {
1284 // Append the tag if necessary
1285 if ( empty ( $params [ 'searchtags' ])) {
1286 $params [ 'searchtags' ] = trim ( $_GET [ 'addtag' ]);
1289 $params [ 'searchtags' ] = trim ( $params [ 'searchtags' ]). ' ' . trim ( $_GET [ 'addtag' ]);
1292 unset ( $params [ 'page' ]); // We also remove page (keeping the same page has no sense, since the results are different)
1293 header ( 'Location: ?' . http_build_query ( $params ));
1297 // -------- User clicks on a tag in result count: Remove the tag from the list of searched tags (searchtags=...)
1298 if ( isset ( $_GET [ 'removetag' ]))
1300 // Get previous URL (http_referer) and remove the tag from the searchtags parameters in query.
1301 if ( empty ( $_SERVER [ 'HTTP_REFERER' ])) { header ( 'Location: ?' ); exit ; } // In case browser does not send HTTP_REFERER
1302 parse_str ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_QUERY
), $params );
1303 if ( isset ( $params [ 'searchtags' ]))
1305 $tags = explode ( ' ' , $params [ 'searchtags' ]);
1306 $tags = array_diff ( $tags , array ( $_GET [ 'removetag' ])); // Remove value from array $tags.
1307 if ( count ( $tags )== 0 ) unset ( $params [ 'searchtags' ]); else $params [ 'searchtags' ] = implode ( ' ' , $tags );
1308 unset ( $params [ 'page' ]); // We also remove page (keeping the same page has no sense, since the results are different)
1310 header ( 'Location: ?' . http_build_query ( $params ));
1314 // -------- User wants to change the number of links per page (linksperpage=...)
1315 if ( isset ( $_GET [ 'linksperpage' ]))
1317 if ( is_numeric ( $_GET [ 'linksperpage' ])) { $_SESSION
[ 'LINKS_PER_PAGE' ]= abs ( intval ( $_GET
[ 'linksperpage' ])); }
1318 // Make sure the referrer is Shaarli itself.
1320 if (! empty ( $_SERVER [ 'HTTP_REFERER' ]) && strcmp ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_HOST
), $_SERVER [ 'HTTP_HOST' ])== 0 )
1321 $referer = $_SERVER [ 'HTTP_REFERER' ];
1322 header ( 'Location: ' . $referer );
1326 // -------- User wants to see only private links (toggle)
1327 if ( isset ( $_GET [ 'privateonly' ]))
1329 if ( empty ( $_SESSION [ 'privateonly' ]))
1331 $_SESSION [ 'privateonly' ]= 1 ; // See only private links
1335 unset ( $_SESSION [ 'privateonly' ]); // See all links
1337 // Make sure the referrer is Shaarli itself.
1339 if (! empty ( $_SERVER [ 'HTTP_REFERER' ]) && strcmp ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_HOST
), $_SERVER [ 'HTTP_HOST' ])== 0 )
1340 $referer = $_SERVER [ 'HTTP_REFERER' ];
1341 header ( 'Location: ' . $referer );
1345 // -------- Handle other actions allowed for non-logged in users:
1348 // User tries to post new link but is not logged in:
1349 // Show login screen, then redirect to ?post=...
1350 if ( isset ( $_GET [ 'post' ]))
1352 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.
1356 // Same case as above except that user tried to access ?do=addlink without being logged in
1357 // Note: passing empty parameters makes Shaarli generate default URLs and descriptions.
1358 if ( isset ( $_GET [ 'do' ]) && $_GET [ 'do' ] === 'addlink' ) {
1359 header ( 'Location: ?do=login&post=' );
1363 $PAGE = new pageBuilder
;
1364 buildLinkList ( $PAGE , $LINKSDB ); // Compute list of links to display
1365 $PAGE- > renderPage ( 'linklist' );
1366 exit ; // Never remove this one! All operations below are reserved for logged in user.
1369 // -------- All other functions are reserved for the registered user:
1371 // -------- Display the Tools menu if requested (import/export/bookmarklet...)
1372 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=tools' ))
1374 $PAGE = new pageBuilder
;
1375 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1376 $PAGE- > assign ( 'pageabsaddr' , indexUrl ());
1377 $PAGE- > renderPage ( 'tools' );
1381 // -------- User wants to change his/her password.
1382 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=changepasswd' ))
1384 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) die ( 'You are not supposed to change a password on an Open Shaarli.' );
1385 if (! empty ( $_POST [ 'setpassword' ]) && ! empty ( $_POST [ 'oldpassword' ]))
1387 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1389 // Make sure old password is correct.
1390 $oldhash = sha1 ( $_POST [ 'oldpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
1391 if ( $oldhash != $GLOBALS [ 'hash' ]) { echo '<script>alert("The old password is not correct.");document.location= \' ?do=changepasswd \' ;</script>' ; exit ; }
1392 // Save new password
1393 $GLOBALS [ 'salt' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Salt renders rainbow-tables attacks useless.
1394 $GLOBALS [ 'hash' ] = sha1 ( $_POST [ 'setpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
1396 echo '<script>alert("Your password has been changed.");document.location= \' ?do=tools \' ;</script>' ;
1399 else // show the change password form.
1401 $PAGE = new pageBuilder
;
1402 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1403 $PAGE- > assign ( 'token' , getToken ());
1404 $PAGE- > renderPage ( 'changepassword' );
1409 // -------- User wants to change configuration
1410 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=configure' ))
1412 if (! empty ( $_POST [ 'title' ]) )
1414 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1416 if (! empty ( $_POST [ 'continent' ]) && ! empty ( $_POST [ 'city' ]))
1417 if ( isTZvalid ( $_POST [ 'continent' ], $_POST [ 'city' ]))
1418 $tz = $_POST [ 'continent' ]. '/' . $_POST [ 'city' ];
1419 $GLOBALS [ 'timezone' ] = $tz ;
1420 $GLOBALS [ 'title' ]= $_POST [ 'title' ];
1421 $GLOBALS [ 'titleLink' ]= $_POST [ 'titleLink' ];
1422 $GLOBALS [ 'redirector' ]= $_POST [ 'redirector' ];
1423 $GLOBALS [ 'disablesessionprotection' ]=! empty ( $_POST [ 'disablesessionprotection' ]);
1424 $GLOBALS [ 'disablejquery' ]=! empty ( $_POST [ 'disablejquery' ]);
1425 $GLOBALS [ 'privateLinkByDefault' ]=! empty ( $_POST [ 'privateLinkByDefault' ]);
1427 echo '<script>alert("Configuration was saved.");document.location= \' ?do=tools \' ;</script>' ;
1430 else // Show the configuration form.
1432 $PAGE = new pageBuilder
;
1433 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1434 $PAGE- > assign ( 'token' , getToken ());
1435 $PAGE- > assign ( 'title' , htmlspecialchars ( empty ( $GLOBALS [ 'title' ]) ? '' : $GLOBALS [ 'title' ] , ENT_QUOTES
));
1436 $PAGE- > assign ( 'redirector' , htmlspecialchars ( empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ] , ENT_QUOTES
));
1437 list ( $timezone_form , $timezone_js ) = templateTZform ( $GLOBALS [ 'timezone' ]);
1438 $PAGE- > assign ( 'timezone_form' , $timezone_form ); // FIXME: Put entire tz form generation in template?
1439 $PAGE- > assign ( 'timezone_js' , $timezone_js );
1440 $PAGE- > renderPage ( 'configure' );
1445 // -------- User wants to rename a tag or delete it
1446 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=changetag' ))
1448 if ( empty ( $_POST [ 'fromtag' ]))
1450 $PAGE = new pageBuilder
;
1451 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1452 $PAGE- > assign ( 'token' , getToken ());
1453 $PAGE- > renderPage ( 'changetag' );
1456 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1459 if (! empty ( $_POST [ 'deletetag' ]) && ! empty ( $_POST [ 'fromtag' ]))
1461 $needle = trim ( $_POST [ 'fromtag' ]);
1462 $linksToAlter = $LINKSDB- > filterTags ( $needle , true ); // True for case-sensitive tag search.
1463 foreach ( $linksToAlter as $key => $value )
1465 $tags = explode ( ' ' , trim ( $value [ 'tags' ]));
1466 unset ( $tags [ array_search ( $needle , $tags )]); // Remove tag.
1467 $value [ 'tags' ]= trim ( implode ( ' ' , $tags ));
1468 $LINKSDB [ $key ]= $value ;
1470 $LINKSDB- > savedb (); // Save to disk.
1471 echo '<script>alert("Tag was removed from ' . count ( $linksToAlter ). ' links.");document.location= \' ? \' ;</script>' ;
1476 if (! empty ( $_POST [ 'renametag' ]) && ! empty ( $_POST [ 'fromtag' ]) && ! empty ( $_POST [ 'totag' ]))
1478 $needle = trim ( $_POST [ 'fromtag' ]);
1479 $linksToAlter = $LINKSDB- > filterTags ( $needle , true ); // true for case-sensitive tag search.
1480 foreach ( $linksToAlter as $key => $value )
1482 $tags = explode ( ' ' , trim ( $value [ 'tags' ]));
1483 $tags [ array_search ( $needle , $tags )] = trim ( $_POST [ 'totag' ]); // Replace tags value.
1484 $value [ 'tags' ]= trim ( implode ( ' ' , $tags ));
1485 $LINKSDB [ $key ]= $value ;
1487 $LINKSDB- > savedb (); // Save to disk.
1488 echo '<script>alert("Tag was renamed in ' . count ( $linksToAlter ). ' links.");document.location= \' ?searchtags=' . urlencode ( $_POST [ 'totag' ]). ' \' ;</script>' ;
1493 // -------- User wants to add a link without using the bookmarklet: Show form.
1494 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=addlink' ))
1496 $PAGE = new pageBuilder
;
1497 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1498 $PAGE- > renderPage ( 'addlink' );
1502 // -------- User clicked the "Save" button when editing a link: Save link to database.
1503 if ( isset ( $_POST [ 'save_edit' ]))
1505 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1506 $tags = trim ( preg_replace ( '/\s\s+/' , ' ' , $_POST [ 'lf_tags' ])); // Remove multiple spaces.
1507 $linkdate = $_POST [ 'lf_linkdate' ];
1508 $url = trim ( $_POST [ 'lf_url' ]);
1509 if (! startsWith ( $url , 'http:' ) && ! startsWith ( $url , 'https:' ) && ! startsWith ( $url , 'ftp:' ) && ! startsWith ( $url , 'magnet:' ) && ! startsWith ( $url , '?' ))
1510 $url = 'http://' . $url ;
1511 $link = array ( 'title' => trim ( $_POST [ 'lf_title' ]), 'url' => $url , 'description' => trim ( $_POST [ 'lf_description' ]), 'private' =>( isset ( $_POST [ 'lf_private' ]) ? 1 : 0 ),
1512 'linkdate' => $linkdate , 'tags' => str_replace ( ',' , ' ' , $tags ));
1513 if ( $link [ 'title' ]== '' ) $link [ 'title' ]= $link [ 'url' ]; // If title is empty, use the URL as title.
1514 $LINKSDB [ $linkdate ] = $link ;
1515 $LINKSDB- > savedb (); // Save to disk.
1518 // If we are called from the bookmarklet, we must close the popup:
1519 if ( isset ( $_GET [ 'source' ]) && $_GET [ 'source' ]== 'bookmarklet' ) { echo '<script>self.close();</script>' ; exit ; }
1520 $returnurl = ( isset ( $_POST [ 'returnurl' ]) ? $_POST [ 'returnurl' ] : '?' );
1521 $returnurl .= '#' . smallHash ( $linkdate ); // Scroll to the link which has been edited.
1522 header ( 'Location: ' . $returnurl ); // After saving the link, redirect to the page the user was on.
1526 // -------- User clicked the "Cancel" button when editing a link.
1527 if ( isset ( $_POST [ 'cancel_edit' ]))
1529 // If we are called from the bookmarklet, we must close the popup:
1530 if ( isset ( $_GET [ 'source' ]) && $_GET [ 'source' ]== 'bookmarklet' ) { echo '<script>self.close();</script>' ; exit ; }
1531 $returnurl = ( isset ( $_POST [ 'returnurl' ]) ? $_POST [ 'returnurl' ] : '?' );
1532 $returnurl .= '#' . smallHash ( $_POST [ 'lf_linkdate' ]); // Scroll to the link which has been edited.
1533 header ( 'Location: ' . $returnurl ); // After canceling, redirect to the page the user was on.
1537 // -------- User clicked the "Delete" button when editing a link: Delete link from database.
1538 if ( isset ( $_POST [ 'delete_link' ]))
1540 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1541 // We do not need to ask for confirmation:
1542 // - confirmation is handled by JavaScript
1543 // - we are protected from XSRF by the token.
1544 $linkdate = $_POST [ 'lf_linkdate' ];
1545 unset ( $LINKSDB [ $linkdate ]);
1546 $LINKSDB- > savedb (); // save to disk
1548 // If we are called from the bookmarklet, we must close the popup:
1549 if ( isset ( $_GET [ 'source' ]) && $_GET [ 'source' ]== 'bookmarklet' ) { echo '<script>self.close();</script>' ; exit ; }
1550 header ( 'Location: ?' ); // After deleting the link, redirect to the home page.
1554 // -------- User clicked the "EDIT" button on a link: Display link edit form.
1555 if ( isset ( $_GET [ 'edit_link' ]))
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' );
1569 // -------- User want to post a new link: Display link edit form.
1570 if ( isset ( $_GET [ 'post' ]))
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 );
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)
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).
1586 $description = ( empty ( $_GET [ 'description' ]) ? '' : $_GET [ 'description' ]); // Get description if it was provided in URL (by the bookmarklet). [Bronco added that]
1587 $tags = ( empty ( $_GET [ 'tags' ]) ? '' : $_GET [ 'tags' ] ); // Get tags if it was provided in URL
1588 $private = (! empty ( $_GET [ 'private' ]) && $_GET [ 'private' ] === "1" ? 1 : 0 ); // Get private if it was provided in URL
1589 if (( $url != '' ) && parse_url ( $url , PHP_URL_SCHEME
)== '' ) $url = 'http://' . $url ;
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.)
1591 if ( empty ( $title ) && parse_url ( $url , PHP_URL_SCHEME
)== 'http' )
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
1595 if ( strpos ( $status , '200 OK' )!== false )
1597 // Look for charset in html header.
1598 preg_match ( '#<meta .*charset=.*>#Usi' , $data , $meta );
1600 // If found, extract encoding.
1601 if (! empty ( $meta [ 0 ]))
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' ;
1608 else { $html_charset
= 'utf-8' ; }
1611 $title = html_extract_title ( $data );
1614 // Re-encode title in utf-8 if necessary.
1615 $title = ( $html_charset == 'iso-8859-1' ) ? utf8_encode ( $title ) : $title ;
1619 if ( $url == '' ) // In case of empty URL, this is just a text (with a link that points to itself)
1621 $url = '?' . smallHash ( $linkdate );
1624 $link = array ( 'linkdate' => $linkdate , 'title' => $title , 'url' => $url , 'description' => $description , 'tags' => $tags , 'private' => $private );
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' );
1637 // -------- Export as Netscape Bookmarks HTML file.
1638 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=export' ))
1640 if ( empty ( $_GET [ 'what' ]))
1642 $PAGE = new pageBuilder
;
1643 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1644 $PAGE- > renderPage ( 'export' );
1647 $exportWhat = $_GET [ 'what' ];
1648 if (! array_intersect ( array ( 'all' , 'public' , 'private' ), array ( $exportWhat ))) die ( 'What are you trying to export???' );
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' );
1654 <!DOCTYPE NETSCAPE-Bookmark-file-1>
1655 <!-- This is an automatically generated file.
1656 It will be read and overwritten.
1658 <!-- Shaarli {$exportWhat} bookmarks export on {$currentdate} -->
1659 <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
1660 <TITLE>Bookmarks</TITLE>
1663 foreach ( $LINKSDB as $link )
1665 if ( $exportWhat == 'all' ||
1666 ( $exportWhat == 'private' && $link [ 'private' ]!= 0 ) ||
1667 ( $exportWhat == 'public' && $link [ 'private' ]== 0 ))
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 " ;
1678 // -------- User is uploading a file for import
1679 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=upload' ))
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 ))
1684 $returnurl = ( empty ( $_SERVER [ 'HTTP_REFERER' ]) ? '?' : $_SERVER [ 'HTTP_REFERER' ] );
1685 echo '<script>alert("The file you are trying to upload is probably bigger than what this webserver can accept (' . getMaxFileSize (). ' bytes). Please upload in smaller chunks.");document.location= \' ' . htmlspecialchars ( $returnurl ). ' \' ;</script>' ;
1688 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1693 // -------- Show upload/import dialog:
1694 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=import' ))
1696 $PAGE = new pageBuilder
;
1697 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1698 $PAGE- > assign ( 'token' , getToken ());
1699 $PAGE- > assign ( 'maxfilesize' , getMaxFileSize ());
1700 $PAGE- > renderPage ( 'import' );
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' );
1712 // -----------------------------------------------------------------------------------------------
1713 // Process the import file form.
1714 function importFile ()
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' ]);
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?
1727 if ( startsWith ( $data , '<!DOCTYPE NETSCAPE-Bookmark-file-1>' )) $type = 'netscape' ; // Netscape bookmark file (aka Firefox).
1729 // Then import the bookmarks.
1730 if ( $type == 'netscape' )
1732 // This is a standard Netscape-style bookmark file.
1733 // This format is supported by all browsers (except IE, of course), also Delicious, Diigo and others.
1734 foreach ( explode ( '<DT>' , $data ) as $html ) // explode is very fast
1736 $link = array ( 'linkdate' => '' , 'title' => '' , 'url' => '' , 'description' => '' , 'tags' => '' , 'private' => 0 );
1737 $d = explode ( '<DD>' , $html );
1738 if ( startswith ( $d [ 0 ], '<A ' ))
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
1745 foreach ( $matches as $m )
1747 $attr = $m [ 1 ]; $value = $m [ 2 ];
1748 if ( $attr == 'HREF' ) $link [ 'url' ]= html_entity_decode ( $value , ENT_QUOTES
, 'UTF-8' );
1749 elseif ( $attr == 'ADD_DATE' )
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
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' );
1757 if ( $link [ 'url' ]!= '' )
1759 if ( $private == 1 ) $link [ 'private' ]= 1 ;
1760 $dblink = $LINKSDB- > getLinkFromUrl ( $link [ 'url' ]); // See if the link is already in database.
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
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)
1767 // We increment date by 1 second until we find a date which is not used in DB.
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 ;
1774 else // Link already present in database.
1777 { // If overwrite is required, we import link data, except date/time.
1778 $link [ 'linkdate' ]= $dblink [ 'linkdate' ];
1779 $LINKSDB [ $link [ 'linkdate' ]] = $link ;
1789 echo '<script>alert("File ' . json_encode ( $filename ). ' (' . $filesize . ' bytes) was successfully processed: ' . $import_count . ' links imported.");document.location= \' ? \' ;</script>' ;
1793 echo '<script>alert("File ' . json_encode ( $filename ). ' (' . $filesize . ' bytes) has an unknown file format. Nothing was imported.");document.location= \' ? \' ;</script>' ;
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'
1800 function buildLinkList ( $PAGE , $LINKSDB )
1802 // ---- Filter link database according to parameters
1803 $linksToDisplay = array ();
1806 if ( isset ( $_GET [ 'searchterm' ])) // Fulltext search
1808 $linksToDisplay = $LINKSDB- > filterFulltext ( trim ( $_GET [ 'searchterm' ]));
1809 $search_crits = htmlspecialchars ( trim ( $_GET [ 'searchterm' ]));
1810 $search_type = 'fulltext' ;
1812 elseif ( isset ( $_GET [ 'searchtags' ])) // Search by tag
1814 $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
1815 $search_crits = explode ( ' ' , trim ( $_GET [ 'searchtags' ]));
1816 $search_type = 'tags' ;
1818 elseif ( isset ( $_SERVER [ 'QUERY_STRING' ]) && preg_match ( '/[a-zA-Z0-9-_@] {6} (&.+?)?/' , $_SERVER [ 'QUERY_STRING' ])) // Detect smallHashes in URL
1820 $linksToDisplay = $LINKSDB- > filterSmallHash ( substr ( trim ( $_SERVER [ "QUERY_STRING" ], '/' ), 0 , 6 ));
1821 if ( count ( $linksToDisplay )== 0 )
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.' ;
1825 echo '<br>You would mind <a href="?">clicking here</a>?' ;
1828 $search_type = 'permalink' ;
1831 $linksToDisplay = $LINKSDB ; // Otherwise, display without filtering.
1833 // Option: Show only private links
1834 if (! empty ( $_SESSION [ 'privateonly' ]))
1837 foreach ( $linksToDisplay as $linkdate => $link )
1839 if ( $link [ 'private' ]!= 0 ) $tmp [ $linkdate ]= $link ;
1841 $linksToDisplay = $tmp ;
1844 // ---- Handle paging.
1845 /* Can someone explain to me why you get the following error when using array_keys() on an object which implements the interface ArrayAccess???
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); )
1849 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // Stupid and ugly. Thanks PHP.
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' ];
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 ))
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' ]);
1871 $taglist = explode ( ' ' , $link [ 'tags' ]);
1872 uasort ( $taglist , 'strcasecmp' );
1873 $link [ 'taglist' ]= $taglist ;
1874 $linkDisp [ $keys [ $i ]] = $link ;
1878 // Compute paging navigation
1879 $searchterm = ( empty ( $_GET [ 'searchterm' ]) ? '' : '&searchterm=' . $_GET [ 'searchterm' ] );
1880 $searchtags = ( empty ( $_GET [ 'searchtags' ]) ? '' : '&searchtags=' . $_GET [ 'searchtags' ] );
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 ;
1885 $token = '' ; if ( isLoggedIn ()) $token = getToken ();
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 );
1895 $PAGE- > assign ( 'search_crits' , $search_crits );
1896 $PAGE- > assign ( 'redirector' , empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ]); // Optional redirector URL.
1897 $PAGE- > assign ( 'token' , $token );
1898 $PAGE- > assign ( 'links' , $linkDisp );
1902 // Compute the thumbnail for a link.
1904 // With a link to the original URL.
1905 // Understands various services (youtube.com...)
1906 // Input: $url = URL for which the thumbnail must be found.
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.
1911 function computeThumbnail ( $url , $href = false )
1913 if (! $GLOBALS [ 'config' ][ 'ENABLE_THUMBNAILS' ]) return array ();
1914 if ( $href == false ) $href = $url ;
1916 // For most hosts, the URL of the thumbnail can be easily deduced from the URL of the link.
1917 // (e.g. http://www.youtube.com/watch?v=spVypYk4kto ---> http://img.youtube.com/vi/spVypYk4kto/default.jpg )
1918 // ^^^^^^^^^^^ ^^^^^^^^^^^
1919 $domain = parse_url ( $url , PHP_URL_HOST
);
1920 if ( $domain == 'youtube.com' || $domain == 'www.youtube.com' )
1922 parse_str ( parse_url ( $url , PHP_URL_QUERY
), $params ); // Extract video ID and get thumbnail
1923 if (! empty ( $params [ 'v' ])) return array ( 'src' => 'https://img.youtube.com/vi/' . $params [ 'v' ]. '/default.jpg' ,
1924 'href' => $href , 'width' => '120' , 'height' => '90' , 'alt' => 'YouTube thumbnail' );
1926 if ( $domain == 'youtu.be' ) // Youtube short links
1928 $path = parse_url ( $url , PHP_URL_PATH
);
1929 return array ( 'src' => 'https://img.youtube.com/vi' . $path . '/default.jpg' ,
1930 'href' => $href , 'width' => '120' , 'height' => '90' , 'alt' => 'YouTube thumbnail' );
1932 if ( $domain == 'pix.toile-libre.org' ) // pix.toile-libre.org image hosting
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' ]),
1936 'href' => $href , 'style' => 'max-width:120px; max-height:150px' , 'alt' => 'pix.toile-libre.org thumbnail' );
1939 if ( $domain == 'imgur.com' )
1941 $path = parse_url ( $url , PHP_URL_PATH
);
1942 if ( startsWith ( $path , '/a/' )) return array (); // Thumbnails for albums are not available.
1943 if ( startsWith ( $path , '/r/' )) return array ( 'src' => 'https://i.imgur.com/' . basename ( $path ). 's.jpg' ,
1944 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1945 if ( startsWith ( $path , '/gallery/' )) return array ( 'src' => 'https://i.imgur.com' . substr ( $path , 8 ). 's.jpg' ,
1946 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1948 if ( substr_count ( $path , '/' )== 1 ) return array ( 'src' => 'https://i.imgur.com/' . substr ( $path , 1 ). 's.jpg' ,
1949 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1951 if ( $domain == 'i.imgur.com' )
1953 $pi = pathinfo ( parse_url ( $url , PHP_URL_PATH
));
1954 if (! empty ( $pi [ 'filename' ])) return array ( 'src' => 'https://i.imgur.com/' . $pi [ 'filename' ]. 's.jpg' ,
1955 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1957 if ( $domain == 'dailymotion.com' || $domain == 'www.dailymotion.com' )
1959 if ( strpos ( $url , 'dailymotion.com/video/' )!== false )
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' );
1966 if ( endsWith ( $domain , '.imageshack.us' ))
1968 $ext = strtolower ( pathinfo ( $url , PATHINFO_EXTENSION
));
1969 if ( $ext == 'jpg' || $ext == 'jpeg' || $ext == 'png' || $ext == 'gif' )
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' );
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)
1981 if (! $GLOBALS [ 'config' ][ 'ENABLE_LOCALCACHE' ]) return array (); // If local cache is disabled, no thumbnails for services which require the use a local cache.
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' )
1989 if ( $domain == 'vimeo.com' )
1990 { // Make sure this vimeo URL points to a video (/xxx... where xxx is numeric)
1991 $path = parse_url ( $url , PHP_URL_PATH
);
1992 if (! preg_match ( '!/\d+.+?!' , $path )) return array (); // This is not a single video URL.
1994 if ( $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' ))
1995 { // Make sure this URL points to a single comic (/xxx... where xxx is numeric)
1996 $path = parse_url ( $url , PHP_URL_PATH
);
1997 if (! preg_match ( '!/\d+.+?!' , $path )) return array ();
1999 if ( $domain == 'ted.com' || endsWith ( $domain , '.ted.com' ))
2000 { // Make sure this TED URL points to a video (/talks/...)
2001 $path = parse_url ( $url , PHP_URL_PATH
);
2002 if ( "/talks/" !== substr ( $path , 0 , 7 )) return array (); // This is not a single video URL.
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' );
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' )
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 ),
2017 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'thumbnail' );
2019 return array (); // No thumbnail.
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...)
2027 // Input: $url = URL for which the thumbnail must be found.
2028 // $href = if provided, this URL will be followed instead of $url
2029 // Returns '' if no thumbnail available.
2030 function thumbnail ( $url , $href = false )
2032 $t = computeThumbnail ( $url , $href );
2033 if ( count ( $t )== 0 ) return '' ; // Empty array = no thumbnail for this URL.
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' ]). '"' ;
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...)
2048 // Input: $url = URL for which the thumbnail must be found.
2049 // $href = if provided, this URL will be followed instead of $url
2050 // Returns '' if no thumbnail available.
2051 function lazyThumbnail ( $url , $href = false )
2053 $t = computeThumbnail ( $url , $href );
2054 if ( count ( $t )== 0 ) return '' ; // Empty array = no thumbnail for this URL.
2056 $html = '<a href="' . htmlspecialchars ( $t [ 'href' ]). '">' ;
2058 // Lazy image (only loaded by JavaScript when in the viewport).
2059 if (! empty ( $GLOBALS [ 'disablejquery' ])) // (except if jQuery is disabled)
2060 $html .= '<img class="lazyimage" src="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2062 $html .= '<img class="lazyimage" src="#" data-original="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
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' ]). '"' ;
2070 // No-JavaScript fallback.
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>' ;
2082 // -----------------------------------------------------------------------------------------------
2084 // This function should NEVER be called if the file data/config.php exists.
2087 // On free.fr host, make sure the /sessions directory exists, otherwise login will not work.
2088 if ( endsWith ( $_SERVER [ 'HTTP_HOST' ], '.free.fr' ) && ! is_dir ( $_SERVER [ 'DOCUMENT_ROOT' ]. '/sessions' )) mkdir ( $_SERVER [ 'DOCUMENT_ROOT' ]. '/sessions' , 0705 );
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>' ;
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>' ;
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.
2108 if ( isset ( $_GET [ 'test_session' ]))
2109 { // Step 3: Sessions are OK. Remove test parameter from URL.
2110 header ( 'Location: ' . indexUrl ());
2114 if (! empty ( $_POST [ 'setlogin' ]) && ! empty ( $_POST [ 'setpassword' ]))
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' ] );
2127 echo '<script>alert("Shaarli is now configured. Please enter your login/password and start shaaring your links!");document.location= \' ?do=login \' ;</script>' ;
2131 // Display config form:
2132 list ( $timezone_form , $timezone_js ) = templateTZform ();
2133 $timezone_html = '' ; if ( $timezone_form != '' ) $timezone_html = '<tr><td><b>Timezone:</b></td><td>' . $timezone_form . '</td></tr>' ;
2135 $PAGE = new pageBuilder
;
2136 $PAGE- > assign ( 'timezone_html' , $timezone_html );
2137 $PAGE- > assign ( 'timezone_js' , $timezone_js );
2138 $PAGE- > renderPage ( 'install' );
2142 // Generates the timezone selection form and JavaScript.
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.
2146 // Returns array('','') if server does not support timezones list. (e.g. PHP 5.1 on free.fr)
2147 function templateTZform ( $ptz = false )
2149 if ( function_exists ( 'timezone_identifiers_list' )) // because of old PHP version (5.1) which can be found on free.fr
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 );
2155 // Display config form:
2156 $timezone_form = '' ;
2158 // The list is in the form "Europe/Paris", "America/Argentina/Buenos_Aires"...
2159 // We split the list in continents/cities.
2160 $continents = array ();
2162 foreach ( timezone_identifiers_list () as $tz )
2164 if ( $tz == 'UTC' ) $tz = 'UTC/UTC' ;
2165 $spos = strpos ( $tz , '/' );
2168 $continent = substr ( $tz , 0 , $spos ); $city = substr ( $tz , $spos +
1 );
2169 $continents [ $continent ]= 1 ;
2170 if (! isset ( $cities [ $continent ])) $cities [ $continent ]= '' ;
2171 $cities [ $continent ].= '<option value="' . $city . '"' .( $pcity == $city ? ' selected' : '' ). '>' . $city . '</option>' ;
2174 $continents_html = '' ;
2175 $continents = array_keys ( $continents );
2176 foreach ( $continents as $continent )
2177 $continents_html .= '<option value="' . $continent . '"' .( $pcontinent == $continent ? ' selected' : '' ). '>' . $continent . '</option>' ;
2178 $cities_html = $cities [ $pcontinent ];
2179 $timezone_form = "Continent: <select name= \" continent \" id= \" continent \" onChange= \" onChangecontinent(); \" > ${continents_html} </select>" ;
2180 $timezone_form .= " City: <select name= \" city \" id= \" city \" > ${cities[$pcontinent]} </select><br />" ;
2181 $timezone_js = "<script>" ;
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 );
2187 return array ( '' , '' );
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.
2193 function isTZvalid ( $continent , $city )
2195 $tz = $continent . '/' . $city ;
2196 if ( function_exists ( 'timezone_identifiers_list' )) // because of old PHP version (5.1) which can be found on free.fr
2198 if ( in_array ( $tz , timezone_identifiers_list ())) // it's a valid timezone?
2203 if (! function_exists ( 'json_encode' )) {
2204 function json_encode ( $data ) {
2205 switch ( $type = gettype ( $data )) {
2209 return ( $data ? 'true' : 'false' );
2215 return '"' . addslashes ( $data ) . '"' ;
2217 $data = get_object_vars ( $data );
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 ;
2229 if ( $output_index_count !== NULL ) {
2230 return '[' . implode ( ',' , $output_indexed ) . ']' ;
2232 return ' {' . implode(',', $output_associative) . '} ' ;
2235 return '' ; // Not supported
2240 // Webservices (for use with jQuery/jQueryUI)
2241 // e.g. index.php?ws=tags&term=minecr
2242 function processWS ()
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' );
2249 // Search in tags (case insensitive, cumulative search)
2250 if ( $_GET [ 'ws' ]== 'tags' )
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
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 )
2259 if ( startsWith ( $key , $last , $case = false ) && ! in_array ( $key , $tags )) $suggested [ $addtags . $key . ' ' ]= 0 ;
2261 echo json_encode ( array_keys ( $suggested ));
2265 // Search a single tag (case sensitive, single tag search)
2266 if ( $_GET [ 'ws' ]== 'singletag' )
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 )
2272 if ( startsWith ( $key , $term , $case = true )) $suggested [ $key ]= 0 ;
2274 echo json_encode ( array_keys ( $suggested ));
2279 // Re-write configuration file according to globals.
2280 // Requires some $GLOBALS to be set (login,hash,salt,title).
2281 // If the config file cannot be saved, an error message is displayed and the user is redirected to "Tools" menu.
2282 // (otherwise, the function simply returns.)
2283 function writeConfig ()
2285 if ( is_file ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]) && ! isLoggedIn ()) die ( 'You are not authorized to alter config.' ); // Only logged in user can alter config.
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 ). ';' ;
2288 $config .= ' $GLOBALS [ \' titleLink \' ]=' . var_export ( $GLOBALS [ 'titleLink' ], true ). '; ' ;
2289 $config .= ' $GLOBALS [ \' redirector \' ]=' . var_export ( $GLOBALS [ 'redirector' ], true ). '; ' ;
2290 $config .= ' $GLOBALS [ \' disablesessionprotection \' ]=' . var_export ( $GLOBALS [ 'disablesessionprotection' ], true ). '; ' ;
2291 $config .= ' $GLOBALS [ \' disablejquery \' ]=' . var_export ( $GLOBALS [ 'disablejquery' ], true ). '; ' ;
2292 $config .= ' $GLOBALS [ \' privateLinkByDefault \' ]=' . var_export ( $GLOBALS [ 'privateLinkByDefault' ], true ). '; ' ;
2294 if (! file_put_contents ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ], $config ) || strcmp ( file_get_contents ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]), $config )!= 0 )
2296 echo '<script>alert("Shaarli could not create the config file. Please make sure Shaarli has the right to write in the folder is it installed in.");document.location= \' ? \' ;</script>' ;
2301 /* Because some f*cking services like flickr require an extra HTTP request to get the thumbnail URL,
2302 I have deported the thumbnail URL code generation here, otherwise this would slow down page generation.
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:
2305 http://mywebsite.com/shaarli/?do=genthumbnail&hmac=[HMAC]&url=[URL]
2306 [URL] is the URL of the link (e.g. a flickr page)
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.
2310 function genThumbnail ()
2312 // Make sure the parameters in the URL were generated by us.
2313 $sign = hash_hmac ( 'sha256' , $_GET [ 'url' ], $GLOBALS [ 'salt' ]);
2314 if ( $sign != $_GET [ 'hmac' ]) die ( 'Naughty boy!' );
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 );
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 ))
2328 header ( 'Content-Type: image/gif' );
2329 echo file_get_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $blankname );
2333 // Otherwise, generate the thumbnail.
2334 $url = $_GET [ 'url' ];
2335 $domain = parse_url ( $url , PHP_URL_HOST
);
2337 if ( $domain == 'flickr.com' || endsWith ( $domain , '.flickr.com' ))
2339 // Crude replacement to handle new flickr domain policy (They prefer www. now)
2340 $url = str_replace ( 'http://flickr.com/' , 'http://www.flickr.com/' , $url );
2342 // Is this a link to an image, or to a flickr page ?
2344 if ( endswith ( parse_url ( $url , PHP_URL_PATH
), '.jpg' ))
2345 { // This is a direct link to an image. e.g. http://farm1.staticflickr.com/5/5921913_ac83ed27bd_o.jpg
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' ;
2349 else // This is a flickr page (html)
2351 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 20 ); // Get the flickr html page.
2352 if ( strpos ( $httpstatus , '200 OK' )!== false )
2354 // flickr now nicely provides the URL of the thumbnail in each flickr page.
2355 preg_match ( '!<link rel= \" image_src \" href= \" (.+?) \" !' , $data , $matches );
2356 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ];
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" />
2363 preg_match ( '!<meta property= \" og:image \" content= \" (.+?) \" !' , $data , $matches );
2364 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ];
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 )
2374 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname , $data ); // Save image to cache.
2375 header ( 'Content-Type: image/jpeg' );
2382 elseif ( $domain == 'vimeo.com' )
2384 // This is more complex: we have to perform a HTTP request, then parse the result.
2385 // Maybe we should deport this to JavaScript ? Example: http://stackoverflow.com/questions/1361149/get-img-thumbnails-from-vimeo/4285098#4285098
2386 $vid = substr ( parse_url ( $url , PHP_URL_PATH
), 1 );
2387 list ( $httpstatus , $headers , $data ) = getHTTP ( 'https://vimeo.com/api/v2/video/' . htmlspecialchars ( $vid ). '.php' , 5 );
2388 if ( strpos ( $httpstatus , '200 OK' )!== false )
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 )
2396 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname , $data ); // Save image to cache.
2397 header ( 'Content-Type: image/jpeg' );
2404 elseif ( $domain == 'ted.com' || endsWith ( $domain , '.ted.com' ))
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" />
2409 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 5 );
2410 if ( strpos ( $httpstatus , '200 OK' )!== false )
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 )
2420 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2421 file_put_contents ( $filepath , $data ); // Save image to cache.
2422 if ( resizeImage ( $filepath ))
2424 header ( 'Content-Type: image/jpeg' );
2425 echo file_get_contents ( $filepath );
2433 elseif ( $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' ))
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 )
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 )
2449 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2450 file_put_contents ( $filepath , $data ); // Save image to cache.
2451 if ( resizeImage ( $filepath ))
2453 header ( 'Content-Type: image/jpeg' );
2454 echo file_get_contents ( $filepath );
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 )
2468 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2469 file_put_contents ( $filepath , $data ); // Save image to cache.
2470 if ( resizeImage ( $filepath ))
2472 header ( 'Content-Type: image/jpeg' );
2473 echo file_get_contents ( $filepath );
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' );
2487 // Make a thumbnail of the image (to width: 120 pixels)
2488 // Returns true if success, false otherwise.
2489 function resizeImage ( $filepath )
2491 if (! function_exists ( 'imagecreatefromjpeg' )) return false ; // GD not present: no thumbnail possible.
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.
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)
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.
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 );
2516 rename ( $tempname , $filepath ); // Overwrite original picture with thumbnail.
2520 // Invalidate caches when the database is changed or the user logs out.
2521 // (e.g. tags cache).
2522 function invalidateCaches ()
2524 unset ( $_SESSION [ 'tags' ]); // Purge cache attached to session.
2525 pageCache
:: purgeCache (); // Purge page cache shared by sessions.
2528 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=genthumbnail' )) { genThumbnail (); exit ; } // Thumbnail generation/cache does not need the link database.
2529 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=rss' )) { showRSS (); exit ; }
2530 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=atom' )) { showATOM (); exit ; }
2531 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=dailyrss' )) { showDailyRSS (); exit ; }
2532 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=daily' )) { showDaily (); exit ; }
2533 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'ws=' )) { processWS (); exit ; } // Webservices (for jQuery/jQueryUI)
2534 if (! isset ( $_SESSION [ 'LINKS_PER_PAGE' ])) $_SESSION [ 'LINKS_PER_PAGE' ]= $GLOBALS [ 'config' ][ 'LINKS_PER_PAGE' ];