]>
git.immae.eu Git - github/shaarli/Shaarli.git/blob - index.php
80cf8beaebec6a2ca1cd771a4ea9168b376839a5
2 // Shaarli 0.0.45beta - Shaare your links...
3 // The personal, minimalist, super-fast, no-database Delicious clone. By sebsauvage.net
4 // http://sebsauvage.net/wiki/doku.php?id=php:shaarli
5 // Licence: http://www.opensource.org/licenses/zlib-license.php
6 // Requires: PHP 5.1.x (but autocomplete fields will only work if you have PHP 5.2.x)
7 // -----------------------------------------------------------------------------------------------
8 // NEVER TRUST IN PHP.INI
9 // Some hosts do not define a default timezone in php.ini,
10 // so we have to do this for avoid the strict standard error.
11 date_default_timezone_set ( 'UTC' );
13 // -----------------------------------------------------------------------------------------------
14 // Hardcoded parameter (These parameters can be overwritten by creating the file /data/options.php)
15 $GLOBALS [ 'config' ][ 'DATADIR' ] = 'data' ; // Data subdirectory
16 $GLOBALS [ 'config' ][ 'CONFIG_FILE' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/config.php' ; // Configuration file (user login/password)
17 $GLOBALS [ 'config' ][ 'DATASTORE' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/datastore.php' ; // Data storage file.
18 $GLOBALS [ 'config' ][ 'LINKS_PER_PAGE' ] = 20 ; // Default links per page.
19 $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/ipbans.php' ; // File storage for failures and bans.
20 $GLOBALS [ 'config' ][ 'BAN_AFTER' ] = 4 ; // Ban IP after this many failures.
21 $GLOBALS [ 'config' ][ 'BAN_DURATION' ] = 1800 ; // Ban duration for IP address after login failures (in seconds) (1800 sec. = 30 minutes)
22 $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ] = false ; // If true, anyone can add/edit/delete links without having to login
23 $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] = false ; // If true, the moment when links were saved are not shown to users that are not logged in.
24 $GLOBALS [ 'config' ][ 'SHOW_ATOM' ] = false ; // If true, an extra "ATOM feed" button will be displayed in the toolbar
25 $GLOBALS [ 'config' ][ 'ENABLE_THUMBNAILS' ] = true ; // Enable thumbnails in links.
26 $GLOBALS [ 'config' ][ 'CACHEDIR' ] = 'cache' ; // Cache directory for thumbnails for SLOW services (like flickr)
27 $GLOBALS [ 'config' ][ 'PAGECACHE' ] = 'pagecache' ; // Page cache directory.
28 $GLOBALS [ 'config' ][ 'ENABLE_LOCALCACHE' ] = true ; // Enable Shaarli to store thumbnail in a local cache. Disable to reduce web space usage.
29 $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ] = '' ; // PubSubHubbub support. Put an empty string to disable, or put your hub url here to enable.
30 $GLOBALS [ 'config' ][ 'RAINTPL_TMP' ] = 'tmp/' ; // Raintpl cache directory (keep the trailing slash!)
31 $GLOBALS [ 'config' ][ 'RAINTPL_TPL' ] = 'tpl/' ; // Raintpl template directory (keep the trailing slash!)
32 $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/lastupdatecheck.txt' ; // For updates check of Shaarli.
33 $GLOBALS [ 'config' ][ 'UPDATECHECK_INTERVAL' ] = 86400 ; // Updates check frequency for Shaarli. 86400 seconds=24 hours
34 // Note: You must have publisher.php in the same directory as Shaarli index.php
35 $GLOBALS [ 'config' ][ 'ARCHIVE_ORG' ] = false ; // For each link, add a link to an archived version on archive.org
36 $GLOBALS [ 'config' ][ 'ENABLE_RSS_PERMALINKS' ] = true ; // Enable RSS permalinks by default. This corresponds to the default behavior of shaarli before this was added as an option.
37 $GLOBALS [ 'config' ][ 'HIDE_PUBLIC_LINKS' ] = false ;
38 // -----------------------------------------------------------------------------------------------
39 // You should not touch below (or at your own risks!)
40 // Optional config file.
41 if ( is_file ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/options.php' )) require ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/options.php' );
43 define ( 'shaarli_version' , '0.0.45beta' );
44 define ( 'PHPPREFIX' , '<?php /* ' ); // Prefix to encapsulate data in PHP code.
45 define ( 'PHPSUFFIX' , ' */ ?>' ); // Suffix to encapsulate data in PHP code.
46 // http://server.com/x/shaarli --> /shaarli/
47 define ( 'WEB_PATH' , substr ( $_SERVER [ "REQUEST_URI" ], 0 , 1 +
strrpos ( $_SERVER [ "REQUEST_URI" ], '/' , 0 )));
49 // Force cookie path (but do not change lifetime)
50 $cookie = session_get_cookie_params ();
51 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
52 session_set_cookie_params ( $cookie [ 'lifetime' ], $cookiedir , $_SERVER [ 'SERVER_NAME' ]); // Set default cookie expiration and path.
54 // Set session parameters on server side.
55 define ( 'INACTIVITY_TIMEOUT' , 3600 ); // (in seconds). If the user does not access any page within this time, his/her session is considered expired.
56 ini_set ( 'session.use_cookies' , 1 ); // Use cookies to store session.
57 ini_set ( 'session.use_only_cookies' , 1 ); // Force cookies for session (phpsessionID forbidden in URL).
58 ini_set ( 'session.use_trans_sid' , false ); // Prevent PHP form using sessionID in URL if cookies are disabled.
59 session_name ( 'shaarli' );
60 if ( session_id () == '' ) session_start (); // Start session if needed (Some server auto-start sessions).
63 ini_set ( 'max_input_time' , '60' ); // High execution time in case of problematic imports/exports.
64 ini_set ( 'memory_limit' , '128M' ); // Try to set max upload file size and read (May not work on some hosts).
65 ini_set ( 'post_max_size' , '16M' );
66 ini_set ( 'upload_max_filesize' , '16M' );
68 error_reporting ( E_ALL^E_WARNING
); // See all error except warnings.
69 //error_reporting(-1); // See all errors (for debugging only)
71 include "inc/rain.tpl.class.php" ; //include Rain TPL
72 raintpl
:: $tpl_dir = $GLOBALS [ 'config' ][ 'RAINTPL_TPL' ]; // template directory
73 raintpl
:: $cache_dir = $GLOBALS [ 'config' ][ 'RAINTPL_TMP' ]; // cache directory
75 ob_start (); // Output buffering for the page cache.
78 // In case stupid admin has left magic_quotes enabled in php.ini:
79 if ( get_magic_quotes_gpc ())
81 function stripslashes_deep ( $value ) { $value
= is_array ( $value
) ? array_map ( 'stripslashes_deep' , $value
) : stripslashes ( $value
); return $value
; }
82 $_POST = array_map ( 'stripslashes_deep' , $_POST );
83 $_GET = array_map ( 'stripslashes_deep' , $_GET );
84 $_COOKIE = array_map ( 'stripslashes_deep' , $_COOKIE );
87 // Prevent caching on client side or proxy: (yes, it's ugly)
88 header ( "Last-Modified: " . gmdate ( "D, d M Y H:i:s" ) . " GMT" );
89 header ( "Cache-Control: no-store, no-cache, must-revalidate" );
90 header ( "Cache-Control: post-check=0, pre-check=0" , false );
91 header ( "Pragma: no-cache" );
93 // Directories creations (Note that your web host may require different rights than 705.)
94 if (! is_writable ( realpath ( dirname ( __FILE__
)))) die ( '<pre>ERROR: Shaarli does not have the right to write in its own directory.</pre>' );
96 // Handling of old config file which do not have the new parameters.
97 if ( empty ( $GLOBALS [ 'title' ])) $GLOBALS [ 'title' ]= 'Shared links on ' . htmlspecialchars ( indexUrl ());
98 if ( empty ( $GLOBALS [ 'timezone' ])) $GLOBALS [ 'timezone' ]= date_default_timezone_get ();
99 if ( empty ( $GLOBALS [ 'redirector' ])) $GLOBALS [ 'redirector' ]= '' ;
100 if ( empty ( $GLOBALS [ 'disablesessionprotection' ])) $GLOBALS [ 'disablesessionprotection' ]= false ;
101 if ( empty ( $GLOBALS [ 'disablejquery' ])) $GLOBALS [ 'disablejquery' ]= false ;
102 if ( empty ( $GLOBALS [ 'privateLinkByDefault' ])) $GLOBALS [ 'privateLinkByDefault' ]= false ;
103 if ( empty ( $GLOBALS [ 'titleLink' ])) $GLOBALS [ 'titleLink' ]= '?' ;
104 // I really need to rewrite Shaarli with a proper configuation manager.
106 // Run config screen if first run:
107 if (! is_file ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ])) install ();
109 require $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]; // Read login/password hash into $GLOBALS.
111 // a token depending of deployment salt, user password, and the current ip
112 define ( 'STAY_SIGNED_IN_TOKEN' , sha1 ( $GLOBALS [ 'hash' ]. $_SERVER [ "REMOTE_ADDR" ]. $GLOBALS [ 'salt' ]));
114 autoLocale (); // Sniff browser language and set date format accordingly.
115 header ( 'Content-Type: text/html; charset=utf-8' ); // We use UTF-8 for proper international characters handling.
117 //==================================================================================================
118 // Checking session state (i.e. is the user still logged in)
119 //==================================================================================================
121 function setup_login_state () {
122 $userIsLoggedIn = false ; // By default, we do not consider the user as logged in;
123 $loginFailure = false ; // If set to true, every attempt to authenticate the user will fail. This indicates that an important condition isn't met.
124 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) {
125 $userIsLoggedIn = true ;
127 if (! isset ( $GLOBALS [ 'login' ])) {
128 $userIsLoggedIn = false ; // Shaarli is not configured yet.
129 $loginFailure = true ;
131 if ( isset ( $_COOKIE [ 'shaarli_staySignedIn' ]) &&
132 $_COOKIE [ 'shaarli_staySignedIn' ]=== STAY_SIGNED_IN_TOKEN
&&
136 $userIsLoggedIn = true ;
138 // If session does not exist on server side, or IP address has changed, or session has expired, logout.
139 if ( empty ( $_SESSION [ 'uid' ]) ||
140 ( $GLOBALS [ 'disablesessionprotection' ]== false && $_SESSION [ 'ip' ]!= allIPs ()) ||
141 time () >= $_SESSION [ 'expires_on' ])
144 $userIsLoggedIn = false ;
145 $loginFailure = true ;
147 if (! empty ( $_SESSION [ 'longlastingsession' ])) {
148 $_SESSION [ 'expires_on' ]= time () +
$_SESSION [ 'longlastingsession' ]; // In case of "Stay signed in" checked.
151 $_SESSION [ 'expires_on' ]= time () +INACTIVITY_TIMEOUT
; // Standard session expiration date.
153 if (! $loginFailure ) {
154 $userIsLoggedIn = true ;
157 return $userIsLoggedIn ;
159 //==================================================================================================
160 $userIsLoggedIn = setup_login_state ();
161 //==================================================================================================
162 //==================================================================================================
165 function checkphpversion ()
167 if ( version_compare ( PHP_VERSION
, '5.1.0' ) < 0 )
169 header ( 'Content-Type: text/plain; charset=utf-8' );
170 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.' ;
175 // Checks if an update is available for Shaarli.
176 // (at most once a day, and only for registered user.)
177 // Output: '' = no new version.
178 // other= the available version.
179 function checkUpdate ()
181 if (! isLoggedIn ()) return '' ; // Do not check versions for visitors.
182 if ( empty ( $GLOBALS [ 'config' ][ 'ENABLE_UPDATECHECK' ])) return '' ; // Do not check if the user doesn't want to.
184 // Get latest version number at most once a day.
185 if (! is_file ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ]) || ( filemtime ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ])< time ()-( $GLOBALS [ 'config' ][ 'UPDATECHECK_INTERVAL' ])))
187 $version = shaarli_version
;
188 list ( $httpstatus , $headers , $data ) = getHTTP ( 'https://raw.githubusercontent.com/shaarli/Shaarli/master/shaarli_version.php' , 2 );
189 if ( strpos ( $httpstatus , '200 OK' )!== false ) $version = str_replace ( ' */ ?>' , '' , str_replace ( '<?php /* ' , '' , $data ));
190 // If failed, never mind. We don't want to bother the user with that.
191 file_put_contents ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ], $version ); // touch file date
194 $newestversion = file_get_contents ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ]);
195 if ( version_compare ( $newestversion , shaarli_version
)== 1 ) return $newestversion ;
200 // -----------------------------------------------------------------------------------------------
201 // Simple cache system (mainly for the RSS/ATOM feeds).
205 private $url ; // Full URL of the page to cache (typically the value returned by pageUrl())
206 private $shouldBeCached ; // boolean: Should this url be cached?
207 private $filename ; // Name of the cache file for this url.
210 $url = URL (typically the value returned by pageUrl())
211 $shouldBeCached = boolean. If false, the cache will be disabled.
213 public function __construct ( $url , $shouldBeCached )
216 $this- > filename
= $GLOBALS [ 'config' ][ 'PAGECACHE' ]. '/' . sha1 ( $url ). '.cache' ;
217 $this- > shouldBeCached
= $shouldBeCached ;
220 // If the page should be cached and a cached version exists,
221 // returns the cached version (otherwise, return null).
222 public function cachedVersion ()
224 if (! $this- > shouldBeCached
) return null ;
225 if ( is_file ( $this- > filename
)) { return file_get_contents ( $this
-> filename
); exit ; }
229 // Put a page in the cache.
230 public function cache ( $page )
232 if (! $this- > shouldBeCached
) return ;
233 file_put_contents ( $this- > filename
, $page );
236 // Purge the whole cache.
237 // (call with pageCache::purgeCache())
238 public static function purgeCache ()
240 if ( is_dir ( $GLOBALS [ 'config' ][ 'PAGECACHE' ]))
242 $handler = opendir ( $GLOBALS [ 'config' ][ 'PAGECACHE' ]);
243 if ( $handler !== false )
245 while (( $filename = readdir ( $handler ))!== false )
247 if ( endsWith ( $filename , '.cache' )) { unlink ( $GLOBALS
[ 'config' ][ 'PAGECACHE' ]. '/' . $filename
); }
257 // -----------------------------------------------------------------------------------------------
259 function logm ( $message )
261 $t = strval ( date ( 'Y/m/d_H:i:s' )). ' - ' . $_SERVER [ "REMOTE_ADDR" ]. ' - ' . strval ( $message ). " \n " ;
262 file_put_contents ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/log.txt' , $t , FILE_APPEND
);
265 // Same as nl2br(), but escapes < and >
266 function nl2br_escaped ( $html )
268 return str_replace ( '>' , '>' , str_replace ( '<' , '<' , nl2br ( $html )));
271 /* Returns the small hash of a string, using RFC 4648 base64url format
272 e.g. smallHash('20111006_131924') --> yZH23w
274 - are unique (well, as unique as crc32, at last)
275 - are always 6 characters long.
276 - only use the following characters: a-z A-Z 0-9 - _ @
277 - are NOT cryptographically secure (they CAN be forged)
278 In Shaarli, they are used as a tinyurl-like link to individual entries.
280 function smallHash ( $text )
282 $t = rtrim ( base64_encode ( hash ( 'crc32' , $text , true )), '=' );
283 return strtr ( $t , '+/' , '-_' );
286 // In a string, converts URLs to clickable links.
287 // Function inspired from http://www.php.net/manual/en/function.preg-replace.php#85722
288 function text2clickable ( $url )
290 $redir = empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ];
291 return preg_replace ( '!(((?:https?|ftp|file)://|apt:|magnet:)\S+[[:alnum:]]/?)!si' , '<a href="' . $redir . ' $1" rel="nofollow"> $1 </a>' , $url );
294 // This function inserts where relevant so that multiple spaces are properly displayed in HTML
295 // even in the absence of <pre> (This is used in description to keep text formatting)
296 function keepMultipleSpaces ( $text )
298 return str_replace ( ' ' , ' ' , $text );
301 // ------------------------------------------------------------------------------------------
302 // Sniff browser language to display dates in the right format automatically.
303 // (Note that is may not work on your server if the corresponding local is not installed.)
304 function autoLocale ()
306 $attempts = array ( 'en_US' ); // Default if browser does not send HTTP_ACCEPT_LANGUAGE
307 if ( isset ( $_SERVER [ 'HTTP_ACCEPT_LANGUAGE' ])) // e.g. "fr,fr-fr;q=0.8,en;q=0.5,en-us;q=0.3"
308 { // (It's a bit crude, but it works very well. Preferred language is always presented first.)
309 if ( preg_match ( '/([a-z] {2} )-?([a-z] {2} )?/i' , $_SERVER [ 'HTTP_ACCEPT_LANGUAGE' ], $matches )) {
310 $loc = $matches [ 1 ] . (! empty ( $matches [ 2 ]) ? '_' . strtoupper ( $matches [ 2 ]) : '' );
311 $attempts = array ( $loc . '.UTF-8' , $loc , str_replace ( '_' , '-' , $loc ). '.UTF-8' , str_replace ( '_' , '-' , $loc ),
312 $loc . '_' . strtoupper ( $loc ). '.UTF-8' , $loc . '_' . strtoupper ( $loc ),
313 $loc . '_' . $loc . '.UTF-8' , $loc . '_' . $loc , $loc . '-' . strtoupper ( $loc ). '.UTF-8' ,
314 $loc . '-' . strtoupper ( $loc ), $loc . '-' . $loc . '.UTF-8' , $loc . '-' . $loc );
317 setlocale ( LC_TIME
, $attempts ); // LC_TIME = Set local for date/time format only.
320 // ------------------------------------------------------------------------------------------
321 // PubSubHubbub protocol support (if enabled) [UNTESTED]
322 // (Source: http://aldarone.fr/les-flux-rss-shaarli-et-pubsubhubbub/ )
323 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ])) include './publisher.php' ;
326 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
328 $p = new Publisher ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]);
330 indexUrl (). '?do=atom' ,
333 $p- > publish_update ( $topic_url );
337 // ------------------------------------------------------------------------------------------
338 // Session management
340 // Returns the IP address of the client (Used to prevent session cookie hijacking.)
343 $ip = $_SERVER [ "REMOTE_ADDR" ];
344 // Then we use more HTTP headers to prevent session hijacking from users behind the same proxy.
345 if ( isset ( $_SERVER [ 'HTTP_X_FORWARDED_FOR' ])) { $ip
= $ip
. '_' . $_SERVER
[ 'HTTP_X_FORWARDED_FOR' ]; }
346 if ( isset ( $_SERVER [ 'HTTP_CLIENT_IP' ])) { $ip
= $ip
. '_' . $_SERVER
[ 'HTTP_CLIENT_IP' ]; }
350 function fillSessionInfo () {
351 $_SESSION [ 'uid' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Generate unique random number (different than phpsessionid)
352 $_SESSION [ 'ip' ]= allIPs (); // We store IP address(es) of the client to make sure session is not hijacked.
353 $_SESSION [ 'username' ]= $GLOBALS [ 'login' ];
354 $_SESSION [ 'expires_on' ]= time () +INACTIVITY_TIMEOUT
; // Set session expiration.
357 // Check that user/password is correct.
358 function check_auth ( $login , $password )
360 $hash = sha1 ( $password . $login . $GLOBALS [ 'salt' ]);
361 if ( $login == $GLOBALS [ 'login' ] && $hash == $GLOBALS [ 'hash' ])
362 { // Login/password is correct.
364 logm ( 'Login successful' );
367 logm ( 'Login failed for user ' . $login );
371 // Returns true if the user is logged in.
372 function isLoggedIn ()
374 global $userIsLoggedIn ;
375 return $userIsLoggedIn ;
380 if ( isset ( $_SESSION )) {
381 unset ( $_SESSION [ 'uid' ]);
382 unset ( $_SESSION [ 'ip' ]);
383 unset ( $_SESSION [ 'username' ]);
384 unset ( $_SESSION [ 'privateonly' ]);
386 setcookie ( 'shaarli_staySignedIn' , FALSE , 0 , WEB_PATH
);
390 // ------------------------------------------------------------------------------------------
391 // Brute force protection system
392 // Several consecutive failed logins will ban the IP address for 30 minutes.
393 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 ?>" );
394 include $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ];
395 // Signal a failed login. Will ban the IP if too many failures:
396 function ban_loginFailed ()
398 $ip = $_SERVER [ "REMOTE_ADDR" ]; $gb = $GLOBALS [ 'IPBANS' ];
399 if (! isset ( $gb [ 'FAILURES' ][ $ip ])) $gb [ 'FAILURES' ][ $ip ]= 0 ;
400 $gb [ 'FAILURES' ][ $ip ] ++
;
401 if ( $gb [ 'FAILURES' ][ $ip ]>( $GLOBALS [ 'config' ][ 'BAN_AFTER' ]- 1 ))
403 $gb [ 'BANS' ][ $ip ]= time () +
$GLOBALS [ 'config' ][ 'BAN_DURATION' ];
404 logm ( 'IP address banned from login' );
406 $GLOBALS [ 'IPBANS' ] = $gb ;
407 file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( $gb , true ). "; \n ?>" );
410 // Signals a successful login. Resets failed login counter.
411 function ban_loginOk ()
413 $ip = $_SERVER [ "REMOTE_ADDR" ]; $gb = $GLOBALS [ 'IPBANS' ];
414 unset ( $gb [ 'FAILURES' ][ $ip ]); unset ( $gb [ 'BANS' ][ $ip ]);
415 $GLOBALS [ 'IPBANS' ] = $gb ;
416 file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( $gb , true ). "; \n ?>" );
419 // Checks if the user CAN login. If 'true', the user can try to login.
420 function ban_canLogin ()
422 $ip = $_SERVER [ "REMOTE_ADDR" ]; $gb = $GLOBALS [ 'IPBANS' ];
423 if ( isset ( $gb [ 'BANS' ][ $ip ]))
425 // User is banned. Check if the ban has expired:
426 if ( $gb [ 'BANS' ][ $ip ]<= time ())
427 { // Ban expired, user can try to login again.
429 unset ( $gb [ 'FAILURES' ][ $ip ]); unset ( $gb [ 'BANS' ][ $ip ]);
430 file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( $gb , true ). "; \n ?>" );
431 return true ; // Ban has expired, user can login.
433 return false ; // User is banned.
435 return true ; // User is not banned.
438 // ------------------------------------------------------------------------------------------
439 // Process login form: Check if login/password is correct.
440 if ( isset ( $_POST [ 'login' ]))
442 if (! ban_canLogin ()) die ( 'I said: NO. You are banned for the moment. Go away.' );
443 if ( isset ( $_POST [ 'password' ]) && tokenOk ( $_POST [ 'token' ]) && ( check_auth ( $_POST [ 'login' ], $_POST [ 'password' ])))
444 { // Login/password is OK.
446 // If user wants to keep the session cookie even after the browser closes:
447 if (! empty ( $_POST [ 'longlastingsession' ]))
449 setcookie ( 'shaarli_staySignedIn' , STAY_SIGNED_IN_TOKEN
, time () +
31536000 , WEB_PATH
);
450 $_SESSION [ 'longlastingsession' ]= 31536000 ; // (31536000 seconds = 1 year)
451 $_SESSION [ 'expires_on' ]= time () +
$_SESSION [ 'longlastingsession' ]; // Set session expiration on server-side.
453 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
454 session_set_cookie_params ( $_SESSION [ 'longlastingsession' ], $cookiedir , $_SERVER [ 'SERVER_NAME' ]); // Set session cookie expiration on client side
455 // Note: Never forget the trailing slash on the cookie path!
456 session_regenerate_id ( true ); // Send cookie with new expiration date to browser.
458 else // Standard session expiration (=when browser closes)
460 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
461 session_set_cookie_params ( 0 , $cookiedir , $_SERVER [ 'SERVER_NAME' ]); // 0 means "When browser closes"
462 session_regenerate_id ( true );
464 // Optional redirect after login:
465 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 ; }
466 if ( isset ( $_POST [ 'returnurl' ]))
468 if ( endsWith ( $_POST [ 'returnurl' ], '?do=login' )) { header ( 'Location: ?' ); exit ; } // Prevent loops over login screen.
469 header ( 'Location: ' . $_POST [ 'returnurl' ]); exit ;
471 header ( 'Location: ?' ); exit ;
477 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' ]): '' ); }
478 echo '<script>alert("Wrong login/password.");document.location= \' ?do=login' . $redir . ' \' ;</script>' ; // Redirect to login screen.
483 // ------------------------------------------------------------------------------------------
484 // Misc utility functions:
486 // Returns the server URL (including port and http/https), without path.
487 // e.g. "http://myserver.com:8080"
488 // You can append $_SERVER['SCRIPT_NAME'] to get the current script URL.
491 $https = (! empty ( $_SERVER [ 'HTTPS' ]) && ( strtolower ( $_SERVER [ 'HTTPS' ])== 'on' )) || $_SERVER [ "SERVER_PORT" ]== '443' ; // HTTPS detection.
492 $serverport = ( $_SERVER [ "SERVER_PORT" ]== '80' || ( $https && $_SERVER [ "SERVER_PORT" ]== '443' ) ? '' : ':' . $_SERVER [ "SERVER_PORT" ]);
493 return 'http' .( $https ? 's' : '' ). '://' . $_SERVER [ 'SERVER_NAME' ]. $serverport ;
496 // Returns the absolute URL of current script, without the query.
497 // (e.g. http://sebsauvage.net/links/)
500 $scriptname = $_SERVER [ "SCRIPT_NAME" ];
501 // If the script is named 'index.php', we remove it (for better looking URLs,
502 // e.g. http://mysite.com/shaarli/?abcde instead of http://mysite.com/shaarli/index.php?abcde)
503 if ( endswith ( $scriptname , 'index.php' )) $scriptname = substr ( $scriptname , 0 , strlen ( $scriptname )- 9 );
504 return serverUrl () . $scriptname ;
507 // Returns the absolute URL of current script, WITH the query.
508 // (e.g. http://sebsauvage.net/links/?toto=titi&spamspamspam=humbug)
511 return indexUrl ().(! empty ( $_SERVER [ "QUERY_STRING" ]) ? '?' . $_SERVER [ "QUERY_STRING" ] : '' );
514 // Convert post_max_size/upload_max_filesize (e.g. '16M') parameters to bytes.
515 function return_bytes ( $val )
517 $val = trim ( $val ); $last = strtolower ( $val [ strlen ( $val )- 1 ]);
520 case 'g' : $val *= 1024 ;
521 case 'm' : $val *= 1024 ;
522 case 'k' : $val *= 1024 ;
527 // Try to determine max file size for uploads (POST).
528 // Returns an integer (in bytes)
529 function getMaxFileSize ()
531 $size1 = return_bytes ( ini_get ( 'post_max_size' ));
532 $size2 = return_bytes ( ini_get ( 'upload_max_filesize' ));
533 // Return the smaller of two:
534 $maxsize = min ( $size1 , $size2 );
535 // FIXME: Then convert back to readable notations ? (e.g. 2M instead of 2000000)
539 // Tells if a string start with a substring or not.
540 function startsWith ( $haystack , $needle , $case = true )
542 if ( $case ){ return ( strcmp ( substr ( $haystack
, 0 , strlen ( $needle
)), $needle
)=== 0 );}
543 return ( strcasecmp ( substr ( $haystack , 0 , strlen ( $needle )), $needle )=== 0 );
546 // Tells if a string ends with a substring or not.
547 function endsWith ( $haystack , $needle , $case = true )
549 if ( $case ){ return ( strcmp ( substr ( $haystack
, strlen ( $haystack
) - strlen ( $needle
)), $needle
)=== 0 );}
550 return ( strcasecmp ( substr ( $haystack , strlen ( $haystack ) - strlen ( $needle )), $needle )=== 0 );
553 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a timestamp (Unix epoch)
554 (used to build the ADD_DATE attribute in Netscape-bookmarks file)
555 PS: I could have used strptime(), but it does not exist on Windows. I'm too kind. */
556 function linkdate2timestamp ( $linkdate )
558 if ( strcmp ( $linkdate , '_000000' ) !== 0 || ! $linkdate ){
560 $r = sscanf ( $linkdate , '%4d%2d%2d_%2d%2d%2d' , $Y , $M , $D , $h , $m , $s );
561 return mktime ( $h , $m , $s , $M , $D , $Y );
566 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a RFC822 date.
567 (used to build the pubDate attribute in RSS feed.) */
568 function linkdate2rfc822 ( $linkdate )
570 return date ( 'r' , linkdate2timestamp ( $linkdate )); // 'r' is for RFC822 date format.
573 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a ISO 8601 date.
574 (used to build the updated tags in ATOM feed.) */
575 function linkdate2iso8601 ( $linkdate )
577 return date ( 'c' , linkdate2timestamp ( $linkdate )); // 'c' is for ISO 8601 date format.
580 // Parse HTTP response headers and return an associative array.
581 function http_parse_headers_shaarli ( $headers )
584 foreach ( $headers as $header )
586 $i = strpos ( $header , ': ' );
589 $key = substr ( $header , 0 , $i );
590 $value = substr ( $header , $i +
2 , strlen ( $header )- $i-2 );
598 Input: $url : URL to get (http://...)
599 $timeout : Network timeout (will wait this many seconds for an anwser before giving up).
600 Output: An array. [0] = HTTP status message (e.g. "HTTP/1.1 200 OK") or error message
601 [1] = associative array containing HTTP response headers (e.g. echo getHTTP($url)[1]['Content-Type'])
603 Example: list($httpstatus,$headers,$data) = getHTTP('http://sebauvage.net/');
604 if (strpos($httpstatus,'200 OK')!==false)
605 echo 'Data type: '.htmlspecialchars($headers['Content-Type']);
607 echo 'There was an error: '.htmlspecialchars($httpstatus)
609 function getHTTP ( $url , $timeout = 30 )
613 $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
614 $context = stream_context_create ( $options );
615 $data = file_get_contents ( $url , false , $context ,- 1 , 4000000 ); // We download at most 4 Mb from source.
616 if (! $data ) { return array ( 'HTTP Error' , array (), '' ); }
617 $httpStatus = $http_response_header [ 0 ]; // e.g. "HTTP/1.1 200 OK"
618 $responseHeaders = http_parse_headers_shaarli ( $http_response_header );
619 return array ( $httpStatus , $responseHeaders , $data );
621 catch ( Exception
$e ) // getHTTP *can* fail silently (we don't care if the title cannot be fetched)
623 return array ( $e- > getMessage (), '' , '' );
627 // Extract title from an HTML document.
628 // (Returns an empty string if not found.)
629 function html_extract_title ( $html )
631 return preg_match ( '!<title>(.*?)</title>!is' , $html , $matches ) ? trim ( str_replace ( " \n " , ' ' , $matches [ 1 ])) : '' ;
634 // ------------------------------------------------------------------------------------------
635 // Token management for XSRF protection
636 // Token should be used in any form which acts on data (create,update,delete,import...).
637 if (! isset ( $_SESSION [ 'tokens' ])) $_SESSION [ 'tokens' ]= array (); // Token are attached to the session.
642 $rnd = sha1 ( uniqid ( '' , true ). '_' . mt_rand (). $GLOBALS [ 'salt' ]); // We generate a random string.
643 $_SESSION [ 'tokens' ][ $rnd ]= 1 ; // Store it on the server side.
647 // Tells if a token is OK. Using this function will destroy the token.
649 function tokenOk ( $token )
651 if ( isset ( $_SESSION [ 'tokens' ][ $token ]))
653 unset ( $_SESSION [ 'tokens' ][ $token ]); // Token is used: destroy it.
654 return true ; // Token is OK.
656 return false ; // Wrong token, or already used.
659 // ------------------------------------------------------------------------------------------
660 /* This class is in charge of building the final page.
661 (This is basically a wrapper around RainTPL which pre-fills some fields.)
663 p.assign('myfield','myvalue');
664 p.renderPage('mytemplate');
669 private $tpl ; // RainTPL template
671 function __construct ()
676 private function initialize ()
678 $this- > tpl
= new RainTPL
;
679 $this- > tpl
-> assign ( 'newversion' , checkUpdate ());
680 $this- > tpl
-> assign ( 'feedurl' , htmlspecialchars ( indexUrl ()));
681 $searchcrits = '' ; // Search criteria
682 if (! empty ( $_GET [ 'searchtags' ])) $searchcrits .= '&searchtags=' . urlencode ( $_GET [ 'searchtags' ]);
683 elseif (! empty ( $_GET [ 'searchterm' ])) $searchcrits .= '&searchterm=' . urlencode ( $_GET [ 'searchterm' ]);
684 $this- > tpl
-> assign ( 'searchcrits' , $searchcrits );
685 $this- > tpl
-> assign ( 'source' , indexUrl ());
686 $this- > tpl
-> assign ( 'version' , shaarli_version
);
687 $this- > tpl
-> assign ( 'scripturl' , indexUrl ());
688 $this- > tpl
-> assign ( 'pagetitle' , 'Shaarli' );
689 $this- > tpl
-> assign ( 'privateonly' ,! empty ( $_SESSION [ 'privateonly' ])); // Show only private links?
690 if (! empty ( $GLOBALS [ 'title' ])) $this- > tpl
-> assign ( 'pagetitle' , $GLOBALS [ 'title' ]);
691 if (! empty ( $GLOBALS [ 'titleLink' ])) $this- > tpl
-> assign ( 'titleLink' , $GLOBALS [ 'titleLink' ]);
692 if (! empty ( $GLOBALS [ 'pagetitle' ])) $this- > tpl
-> assign ( 'pagetitle' , $GLOBALS [ 'pagetitle' ]);
693 $this- > tpl
-> assign ( 'shaarlititle' , empty ( $GLOBALS [ 'title' ]) ? 'Shaarli' : $GLOBALS [ 'title' ] );
697 // The following assign() method is basically the same as RainTPL (except that it's lazy)
698 public function assign ( $what , $where )
700 if ( $this- > tpl
=== false ) $this- > initialize (); // Lazy initialization
701 $this- > tpl
-> assign ( $what , $where );
704 // Render a specific page (using a template).
705 // e.g. pb.renderPage('picwall')
706 public function renderPage ( $page )
708 if ( $this- > tpl
=== false ) $this- > initialize (); // Lazy initialization
709 $this- > tpl
-> draw ( $page );
713 // ------------------------------------------------------------------------------------------
714 /* Data storage for links.
715 This object behaves like an associative array.
717 $mylinks = new linkdb();
718 echo $mylinks['20110826_161819']['title'];
719 foreach($mylinks as $link)
720 echo $link['title'].' at url '.$link['url'].' ; description:'.$link['description'];
723 title : Title of the link
724 url : URL of the link. Can be absolute or relative. Relative URLs are permalinks (e.g.'?m-ukcw')
725 description : description of the entry
726 private : Is this link private? 0=no, other value=yes
727 linkdate : date of the creation of this entry, in the form YYYYMMDD_HHMMSS (e.g.'20110914_192317')
728 tags : tags attached to this entry (separated by spaces)
730 We implement 3 interfaces:
731 - ArrayAccess so that this object behaves like an associative array.
732 - Iterator so that this object can be used in foreach() loops.
733 - Countable interface so that we can do a count() on this object.
735 class linkdb
implements Iterator
, Countable
, ArrayAccess
737 private $links ; // List of links (associative array. Key=linkdate (e.g. "20110823_124546"), value= associative array (keys:title,description...)
738 private $urls ; // List of all recorded URLs (key=url, value=linkdate) for fast reserve search (url-->linkdate)
739 private $keys ; // List of linkdate keys (for the Iterator interface implementation)
740 private $position ; // Position in the $this->keys array. (for the Iterator interface implementation.)
741 private $loggedin ; // Is the user logged in? (used to filter private links)
744 function __construct ( $isLoggedIn )
745 // Input : $isLoggedIn : is the user logged in?
747 $this- > loggedin
= $isLoggedIn ;
748 $this- > checkdb (); // Make sure data file exists.
749 $this- > readdb (); // Then read it.
752 // ---- Countable interface implementation
753 public function count () { return count ( $this
-> links
); }
755 // ---- ArrayAccess interface implementation
756 public function offsetSet ( $offset , $value )
758 if (! $this- > loggedin
) die ( 'You are not authorized to add a link.' );
759 if ( empty ( $value [ 'linkdate' ]) || empty ( $value [ 'url' ])) die ( 'Internal Error: A link should always have a linkdate and URL.' );
760 if ( empty ( $offset )) die ( 'You must specify a key.' );
761 $this- > links
[ $offset ] = $value ;
762 $this- > urls
[ $value [ 'url' ]]= $offset ;
764 public function offsetExists ( $offset ) { return array_key_exists ( $offset
, $this
-> links
); }
765 public function offsetUnset ( $offset )
767 if (! $this- > loggedin
) die ( 'You are not authorized to delete a link.' );
768 $url = $this- > links
[ $offset ][ 'url' ]; unset ( $this- > urls
[ $url ]);
769 unset ( $this- > links
[ $offset ]);
771 public function offsetGet ( $offset ) { return isset ( $this
-> links
[ $offset
]) ? $this
-> links
[ $offset
] : null ; }
773 // ---- Iterator interface implementation
774 function rewind () { $this
-> keys
= array_keys ( $this
-> links
); rsort ( $this
-> keys
); $this
-> position
= 0 ; } // Start over for iteration, ordered by date (latest first).
775 function key () { return $this
-> keys
[ $this
-> position
]; } // current key
776 function current () { return $this
-> links
[ $this
-> keys
[ $this
-> position
]]; } // current value
777 function next () { ++$this
-> position
; } // go to next item
778 function valid () { return isset ( $this
-> keys
[ $this
-> position
]); } // Check if current position is valid.
781 private function checkdb () // Check if db directory and file exists.
783 if (! file_exists ( $GLOBALS [ 'config' ][ 'DATASTORE' ])) // Create a dummy database for example.
785 $this- > links
= array ();
786 $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' );
787 $this- > links
[ $link [ 'linkdate' ]] = $link ;
788 $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' );
789 $this- > links
[ $link [ 'linkdate' ]] = $link ;
790 file_put_contents ( $GLOBALS [ 'config' ][ 'DATASTORE' ], PHPPREFIX
. base64_encode ( gzdeflate ( serialize ( $this- > links
))). PHPSUFFIX
); // Write database to disk
794 // Read database from disk to memory
795 private function readdb ()
798 $this- > links
=( file_exists ( $GLOBALS [ 'config' ][ 'DATASTORE' ]) ? unserialize ( gzinflate ( base64_decode ( substr ( file_get_contents ( $GLOBALS [ 'config' ][ 'DATASTORE' ]), strlen ( PHPPREFIX
),- strlen ( PHPSUFFIX
))))) : array () );
799 // Note that gzinflate is faster than gzuncompress. See: http://www.php.net/manual/en/function.gzdeflate.php#96439
801 // If user is not logged in, filter private links.
802 if (! $this- > loggedin
)
805 foreach ( $this- > links
as $link ) { if ( $link
[ 'private' ]!= 0 ) $toremove
[]= $link
[ 'linkdate' ]; }
806 foreach ( $toremove as $linkdate ) { unset ( $this
-> links
[ $linkdate
]); }
809 // Keep the list of the mapping URLs-->linkdate up-to-date.
811 foreach ( $this- > links
as $link ) { $this
-> urls
[ $link
[ 'url' ]]= $link
[ 'linkdate' ]; }
814 // Save database from memory to disk.
815 public function savedb ()
817 if (! $this- > loggedin
) die ( 'You are not authorized to change the database.' );
818 file_put_contents ( $GLOBALS [ 'config' ][ 'DATASTORE' ], PHPPREFIX
. base64_encode ( gzdeflate ( serialize ( $this- > links
))). PHPSUFFIX
);
822 // Returns the link for a given URL (if it exists). False if it does not exist.
823 public function getLinkFromUrl ( $url )
825 if ( isset ( $this- > urls
[ $url ])) return $this- > links
[ $this- > urls
[ $url ]];
829 // Case insensitive search among links (in the URLs, title and description). Returns filtered list of links.
830 // e.g. print_r($mydb->filterFulltext('hollandais'));
831 public function filterFulltext ( $searchterms )
833 // FIXME: explode(' ',$searchterms) and perform a AND search.
834 // FIXME: accept double-quotes to search for a string "as is"?
835 // Using mb_convert_case($val, MB_CASE_LOWER, 'UTF-8') allows us to perform searches on
836 // Unicode text. See https://github.com/shaarli/Shaarli/issues/75 for examples.
838 $s = mb_convert_case ( $searchterms , MB_CASE_LOWER
, 'UTF-8' );
839 foreach ( $this- > links
as $l )
841 $found = ( strpos ( mb_convert_case ( $l [ 'title' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false )
842 || ( strpos ( mb_convert_case ( $l [ 'description' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false )
843 || ( strpos ( mb_convert_case ( $l [ 'url' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false )
844 || ( strpos ( mb_convert_case ( $l [ 'tags' ], MB_CASE_LOWER
, 'UTF-8' ), $s ) !== false );
845 if ( $found ) $filtered [ $l [ 'linkdate' ]] = $l ;
852 // You can specify one or more tags (tags can be separated by space or comma).
853 // e.g. print_r($mydb->filterTags('linux programming'));
854 public function filterTags ( $tags , $casesensitive = false )
856 // Same as above, we use UTF-8 conversion to handle various graphemes (i.e. cyrillic, or greek)
857 // TODO: is $casesensitive ever true ?
858 $t = str_replace ( ',' , ' ' ,( $casesensitive ? $tags : mb_convert_case ( $tags , MB_CASE_LOWER
, 'UTF-8' )));
859 $searchtags = explode ( ' ' , $t );
861 foreach ( $this- > links
as $l )
863 $linktags = explode ( ' ' ,( $casesensitive ? $l [ 'tags' ]: mb_convert_case ( $l [ 'tags' ], MB_CASE_LOWER
, 'UTF-8' )));
864 if ( count ( array_intersect ( $linktags , $searchtags )) == count ( $searchtags ))
865 $filtered [ $l [ 'linkdate' ]] = $l ;
871 // Filter by day. Day must be in the form 'YYYYMMDD' (e.g. '20120125')
872 // Sort order is: older articles first.
873 // e.g. print_r($mydb->filterDay('20120125'));
874 public function filterDay ( $day )
877 foreach ( $this- > links
as $l )
879 if ( startsWith ( $l [ 'linkdate' ], $day )) $filtered [ $l [ 'linkdate' ]] = $l ;
884 // Filter by smallHash.
885 // Only 1 article is returned.
886 public function filterSmallHash ( $smallHash )
889 foreach ( $this- > links
as $l )
891 if ( $smallHash == smallHash ( $l [ 'linkdate' ])) // Yes, this is ugly and slow
893 $filtered [ $l [ 'linkdate' ]] = $l ;
900 // Returns the list of all tags
901 // Output: associative array key=tags, value=0
902 public function allTags ()
905 foreach ( $this- > links
as $link )
906 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag )
907 if (! empty ( $tag )) $tags [ $tag ]=( empty ( $tags [ $tag ]) ? 1 : $tags [ $tag ] +
1 );
908 arsort ( $tags ); // Sort tags by usage (most used tag first)
912 // Returns the list of days containing articles (oldest first)
913 // Output: An array containing days (in format YYYYMMDD).
914 public function days ()
917 foreach ( array_keys ( $this- > links
) as $day )
919 $linkdays [ substr ( $day , 0 , 8 )]= 0 ;
921 $linkdays = array_keys ( $linkdays );
927 // ------------------------------------------------------------------------------------------
928 // Output the last N links in RSS 2.0 format.
931 header ( 'Content-Type: application/rss+xml; charset=utf-8' );
933 // $usepermalink : If true, use permalink instead of final link.
934 // User just has to add 'permalink' in URL parameters. e.g. http://mysite.com/shaarli/?do=rss&permalinks
935 // Also enabled through a config option
936 $usepermalinks = isset ( $_GET [ 'permalinks' ]) || ! $GLOBALS [ 'config' ][ 'ENABLE_RSS_PERMALINKS' ];
939 $query = $_SERVER [ "QUERY_STRING" ];
940 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=rss' ) && ! isLoggedIn ());
941 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
943 // If cached was not found (or not usable), then read the database and build the response:
944 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if user it not logged in).
946 // Optionally filter the results:
947 $linksToDisplay = array ();
948 if (! empty ( $_GET [ 'searchterm' ])) $linksToDisplay = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
949 elseif (! empty ( $_GET [ 'searchtags' ])) $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
950 else $linksToDisplay = $LINKSDB ;
951 $nblinksToDisplay = 50 ; // Number of links to display.
952 if (! empty ( $_GET [ 'nb' ])) // In URL, you can specificy the number of links. Example: nb=200 or nb=all for all links.
954 $nblinksToDisplay = $_GET [ 'nb' ]== 'all' ? count ( $linksToDisplay ) : max ( $_GET [ 'nb' ] +
0 , 1 ) ;
957 $pageaddr = htmlspecialchars ( indexUrl ());
958 echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">' ;
959 echo '<channel><title>' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title><link>' . $pageaddr . '</link>' ;
960 echo '<description>Shared links</description><language>en-en</language><copyright>' . $pageaddr . '</copyright>' . " \n\n " ;
961 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
963 echo '<!-- PubSubHubbub Discovery -->' ;
964 echo '<link rel="hub" href="' . htmlspecialchars ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]). '" xmlns="http://www.w3.org/2005/Atom" />' ;
965 echo '<link rel="self" href="' . htmlspecialchars ( $pageaddr ). '?do=rss" xmlns="http://www.w3.org/2005/Atom" />' ;
966 echo '<!-- End Of PubSubHubbub Discovery -->' ;
969 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // No, I can't use array_keys().
970 while ( $i < $nblinksToDisplay && $i < count ( $keys ))
972 $link = $linksToDisplay [ $keys [ $i ]];
973 $guid = $pageaddr . '?' . smallHash ( $link [ 'linkdate' ]);
974 $rfc822date = linkdate2rfc822 ( $link [ 'linkdate' ]);
975 $absurl = htmlspecialchars ( $link [ 'url' ]);
976 if ( startsWith ( $absurl , '?' )) $absurl = $pageaddr . $absurl ; // make permalink URL absolute
977 if ( $usepermalinks === true )
978 echo '<item><title>' . htmlspecialchars ( $link [ 'title' ]). '</title><guid isPermaLink="true">' . $guid . '</guid><link>' . $guid . '</link>' ;
980 echo '<item><title>' . htmlspecialchars ( $link [ 'title' ]). '</title><guid isPermaLink="false">' . $guid . '</guid><link>' . $absurl . '</link>' ;
981 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) echo '<pubDate>' . htmlspecialchars ( $rfc822date ). "</pubDate> \n " ;
982 if ( $link [ 'tags' ]!= '' ) // Adding tags to each RSS entry (as mentioned in RSS specification)
984 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag ) { echo '<category domain="' . htmlspecialchars ( $pageaddr
). '">' . htmlspecialchars ( $tag
). '</category>' . " \n " ; }
987 // Add permalink in description
988 $descriptionlink = '(<a href="' . $guid . '">Permalink</a>)' ;
989 // If user wants permalinks first, put the final link in description
990 if ( $usepermalinks === true ) $descriptionlink = '(<a href="' . $absurl . '">Link</a>)' ;
991 if ( strlen ( $link [ 'description' ])> 0 ) $descriptionlink = '<br>' . $descriptionlink ;
992 echo '<description><![CDATA[' . nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ])))). $descriptionlink . ']]></description>' . " \n </item> \n " ;
995 echo '</channel></rss><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
997 $cache- > cache ( ob_get_contents ());
1002 // ------------------------------------------------------------------------------------------
1003 // Output the last N links in ATOM format.
1006 header ( 'Content-Type: application/atom+xml; charset=utf-8' );
1008 // $usepermalink : If true, use permalink instead of final link.
1009 // User just has to add 'permalink' in URL parameters. e.g. http://mysite.com/shaarli/?do=atom&permalinks
1010 $usepermalinks = isset ( $_GET [ 'permalinks' ]) || ! $GLOBALS [ 'config' ][ 'ENABLE_RSS_PERMALINKS' ];
1013 $query = $_SERVER [ "QUERY_STRING" ];
1014 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=atom' ) && ! isLoggedIn ());
1015 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
1016 // If cached was not found (or not usable), then read the database and build the response:
1018 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1021 // Optionally filter the results:
1022 $linksToDisplay = array ();
1023 if (! empty ( $_GET [ 'searchterm' ])) $linksToDisplay = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
1024 elseif (! empty ( $_GET [ 'searchtags' ])) $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
1025 else $linksToDisplay = $LINKSDB ;
1026 $nblinksToDisplay = 50 ; // Number of links to display.
1027 if (! empty ( $_GET [ 'nb' ])) // In URL, you can specificy the number of links. Example: nb=200 or nb=all for all links.
1029 $nblinksToDisplay = $_GET [ 'nb' ]== 'all' ? count ( $linksToDisplay ) : max ( $_GET [ 'nb' ] +
0 , 1 ) ;
1032 $pageaddr = htmlspecialchars ( indexUrl ());
1036 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // No, I can't use array_keys().
1037 while ( $i < $nblinksToDisplay && $i < count ( $keys ))
1039 $link = $linksToDisplay [ $keys [ $i ]];
1040 $guid = $pageaddr . '?' . smallHash ( $link [ 'linkdate' ]);
1041 $iso8601date = linkdate2iso8601 ( $link [ 'linkdate' ]);
1042 $latestDate = max ( $latestDate , $iso8601date );
1043 $absurl = htmlspecialchars ( $link [ 'url' ]);
1044 if ( startsWith ( $absurl , '?' )) $absurl = $pageaddr . $absurl ; // make permalink URL absolute
1045 $entries .= '<entry><title>' . htmlspecialchars ( $link [ 'title' ]). '</title>' ;
1046 if ( $usepermalinks === true )
1047 $entries .= '<link href="' . $guid . '" /><id>' . $guid . '</id>' ;
1049 $entries .= '<link href="' . $absurl . '" /><id>' . $guid . '</id>' ;
1050 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) $entries .= '<updated>' . htmlspecialchars ( $iso8601date ). '</updated>' ;
1052 // Add permalink in description
1053 $descriptionlink = htmlspecialchars ( '(<a href="' . $guid . '">Permalink</a>)' );
1054 // If user wants permalinks first, put the final link in description
1055 if ( $usepermalinks === true ) $descriptionlink = htmlspecialchars ( '(<a href="' . $absurl . '">Link</a>)' );
1056 if ( strlen ( $link [ 'description' ])> 0 ) $descriptionlink = '<br>' . $descriptionlink ;
1058 $entries .= '<content type="html">' . htmlspecialchars ( nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))))). $descriptionlink . "</content> \n " ;
1059 if ( $link [ 'tags' ]!= '' ) // Adding tags to each ATOM entry (as mentioned in ATOM specification)
1061 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag )
1062 { $entries
.= '<category scheme="' . htmlspecialchars ( $pageaddr
, ENT_QUOTES
). '" term="' . htmlspecialchars ( $tag
, ENT_QUOTES
). '" />' . " \n " ; }
1064 $entries .= "</entry> \n " ;
1067 $feed = '<?xml version="1.0" encoding="UTF-8"?><feed xmlns="http://www.w3.org/2005/Atom">' ;
1068 $feed .= '<title>' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title>' ;
1069 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) $feed .= '<updated>' . htmlspecialchars ( $latestDate ). '</updated>' ;
1070 $feed .= '<link rel="self" href="' . htmlspecialchars ( serverUrl (). $_SERVER [ "REQUEST_URI" ]). '" />' ;
1071 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
1073 $feed .= '<!-- PubSubHubbub Discovery -->' ;
1074 $feed .= '<link rel="hub" href="' . htmlspecialchars ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]). '" />' ;
1075 $feed .= '<!-- End Of PubSubHubbub Discovery -->' ;
1077 $feed .= '<author><name>' . htmlspecialchars ( $pageaddr ). '</name><uri>' . htmlspecialchars ( $pageaddr ). '</uri></author>' ;
1078 $feed .= '<id>' . htmlspecialchars ( $pageaddr ). '</id>' . " \n\n " ; // Yes, I know I should use a real IRI (RFC3987), but the site URL will do.
1080 $feed .= '</feed><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
1083 $cache- > cache ( ob_get_contents ());
1088 // ------------------------------------------------------------------------------------------
1089 // Daily RSS feed: 1 RSS entry per day giving all the links on that day.
1090 // Gives the last 7 days (which have links).
1091 // This RSS feed cannot be filtered.
1092 function showDailyRSS ()
1095 $query = $_SERVER [ "QUERY_STRING" ];
1096 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=dailyrss' ) && ! isLoggedIn ());
1097 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
1098 // If cached was not found (or not usable), then read the database and build the response:
1099 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1101 /* Some Shaarlies may have very few links, so we need to look
1102 back in time (rsort()) until we have enough days ($nb_of_days).
1104 $linkdates = array (); foreach ( $LINKSDB as $linkdate => $value ) { $linkdates
[]= $linkdate
; }
1106 $nb_of_days = 7 ; // We take 7 days.
1109 foreach ( $linkdates as $linkdate )
1111 $day = substr ( $linkdate , 0 , 8 ); // Extract day (without time)
1112 if ( strcmp ( $day , $today )< 0 )
1114 if ( empty ( $days [ $day ])) $days [ $day ]= array ();
1115 $days [ $day ][]= $linkdate ;
1117 if ( count ( $days )> $nb_of_days ) break ; // Have we collected enough days?
1120 // Build the RSS feed.
1121 header ( 'Content-Type: application/rss+xml; charset=utf-8' );
1122 $pageaddr = htmlspecialchars ( indexUrl ());
1123 echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0">' ;
1124 echo '<channel><title>Daily - ' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title><link>' . $pageaddr . '</link>' ;
1125 echo '<description>Daily shared links</description><language>en-en</language><copyright>' . $pageaddr . '</copyright>' . " \n " ;
1127 foreach ( $days as $day => $linkdates ) // For each day.
1129 $daydate = utf8_encode ( strftime ( '%A %d, %B %Y' , linkdate2timestamp ( $day . '_000000' ))); // Full text date
1130 $rfc822date = linkdate2rfc822 ( $day . '_000000' );
1131 $absurl = htmlspecialchars ( indexUrl (). '?do=daily&day=' . $day ); // Absolute URL of the corresponding "Daily" page.
1132 echo '<item><title>' . htmlspecialchars ( $GLOBALS [ 'title' ]. ' - ' . $daydate ). '</title><guid>' . $absurl . '</guid><link>' . $absurl . '</link>' ;
1133 echo '<pubDate>' . htmlspecialchars ( $rfc822date ). "</pubDate>" ;
1135 // Build the HTML body of this RSS entry.
1139 // We pre-format some fields for proper output.
1140 foreach ( $linkdates as $linkdate )
1142 $l = $LINKSDB [ $linkdate ];
1143 $l [ 'formatedDescription' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $l [ 'description' ]))));
1144 $l [ 'thumbnail' ] = thumbnail ( $l [ 'url' ]);
1145 $l [ 'timestamp' ] = linkdate2timestamp ( $l [ 'linkdate' ]);
1146 if ( startsWith ( $l [ 'url' ], '?' )) $l [ 'url' ]= indexUrl (). $l [ 'url' ]; // make permalink URL absolute
1147 $links [ $linkdate ]= $l ;
1149 // Then build the HTML for this day:
1151 $tpl- > assign ( 'links' , $links );
1152 $html = $tpl- > draw ( 'dailyrss' , $return_string = true );
1154 echo '<description><![CDATA[' . $html . ']]></description>' . " \n </item> \n\n " ;
1157 echo '</channel></rss><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
1159 $cache- > cache ( ob_get_contents ());
1165 function showDaily ()
1167 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1170 $day = Date ( 'Ymd' , strtotime ( '-1 day' )); // Yesterday, in format YYYYMMDD.
1171 if ( isset ( $_GET [ 'day' ])) $day = $_GET [ 'day' ];
1173 $days = $LINKSDB- > days ();
1174 $i = array_search ( $day , $days );
1175 if ( $i == false ) { $i
= count ( $days
)- 1 ; $day
= $days
[ $i
]; }
1180 if ( $i > 1 ) $previousday = $days [ $i-1 ];
1181 if ( $i < count ( $days )- 1 ) $nextday = $days [ $i +
1 ];
1184 $linksToDisplay = $LINKSDB- > filterDay ( $day );
1185 // We pre-format some fields for proper output.
1186 foreach ( $linksToDisplay as $key => $link )
1188 $taglist = explode ( ' ' , $link [ 'tags' ]);
1189 uasort ( $taglist , 'strcasecmp' );
1190 $linksToDisplay [ $key ][ 'taglist' ]= $taglist ;
1191 $linksToDisplay [ $key ][ 'formatedDescription' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))));
1192 $linksToDisplay [ $key ][ 'thumbnail' ] = thumbnail ( $link [ 'url' ]);
1193 $linksToDisplay [ $key ][ 'timestamp' ] = linkdate2timestamp ( $link [ 'linkdate' ]);
1196 /* We need to spread the articles on 3 columns.
1197 I did not want to use a JavaScript lib like http://masonry.desandro.com/
1198 so I manually spread entries with a simple method: I roughly evaluate the
1199 height of a div according to title and description length.
1201 $columns = array ( array (), array (), array ()); // Entries to display, for each column.
1202 $fill = array ( 0 , 0 , 0 ); // Rough estimate of columns fill.
1203 foreach ( $linksToDisplay as $key => $link )
1205 // Roughly estimate length of entry (by counting characters)
1206 // Title: 30 chars = 1 line. 1 line is 30 pixels height.
1207 // Description: 836 characters gives roughly 342 pixel height.
1208 // This is not perfect, but it's usually OK.
1209 $length = strlen ( $link [ 'title' ]) +
( 342 * strlen ( $link [ 'description' ]))/ 836 ;
1210 if ( $link [ 'thumbnail' ]) $length +
= 100 ; // 1 thumbnails roughly takes 100 pixels height.
1211 // Then put in column which is the less filled:
1212 $smallest = min ( $fill ); // find smallest value in array.
1213 $index = array_search ( $smallest , $fill ); // find index of this smallest value.
1214 array_push ( $columns [ $index ], $link ); // Put entry in this column.
1215 $fill [ $index ] +
= $length ;
1217 $PAGE = new pageBuilder
;
1218 $PAGE- > assign ( 'linksToDisplay' , $linksToDisplay );
1219 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1220 $PAGE- > assign ( 'cols' , $columns );
1221 $PAGE- > assign ( 'day' , utf8_encode ( strftime ( '%A %d, %B %Y' , linkdate2timestamp ( $day . '_000000' ))));
1222 $PAGE- > assign ( 'previousday' , $previousday );
1223 $PAGE- > assign ( 'nextday' , $nextday );
1224 $PAGE- > renderPage ( 'daily' );
1229 // ------------------------------------------------------------------------------------------
1230 // Render HTML page (according to URL parameters and user rights)
1231 function renderPage ()
1233 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1235 // -------- Display login form.
1236 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=login' ))
1238 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) { header ( 'Location: ?' ); exit ; } // No need to login for open Shaarli
1239 $token = '' ; if ( ban_canLogin ()) $token = getToken (); // Do not waste token generation if not useful.
1240 $PAGE = new pageBuilder
;
1241 $PAGE- > assign ( 'token' , $token );
1242 $PAGE- > assign ( 'returnurl' ,( isset ( $_SERVER [ 'HTTP_REFERER' ]) ? $_SERVER [ 'HTTP_REFERER' ]: '' ));
1243 $PAGE- > renderPage ( 'loginform' );
1246 // -------- User wants to logout.
1247 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=logout' ))
1251 header ( 'Location: ?' );
1255 // -------- Picture wall
1256 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=picwall' ))
1258 // Optionally filter the results:
1260 if (! empty ( $_GET [ 'searchterm' ])) $links = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
1261 elseif (! empty ( $_GET [ 'searchtags' ])) $links = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
1262 else $links = $LINKSDB ;
1264 $linksToDisplay = array ();
1266 // Get only links which have a thumbnail.
1267 foreach ( $links as $link )
1269 $permalink = '?' . htmlspecialchars ( smallhash ( $link [ 'linkdate' ]), ENT_QUOTES
);
1270 $thumb = lazyThumbnail ( $link [ 'url' ], $permalink );
1271 if ( $thumb != '' ) // Only output links which have a thumbnail.
1273 $link [ 'thumbnail' ]= $thumb ; // Thumbnail HTML code.
1274 $linksToDisplay []= $link ; // Add to array.
1277 $PAGE = new pageBuilder
;
1278 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1279 $PAGE- > assign ( 'linksToDisplay' , $linksToDisplay );
1280 $PAGE- > renderPage ( 'picwall' );
1284 // -------- Tag cloud
1285 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=tagcloud' ))
1287 $tags = $LINKSDB- > allTags ();
1288 // We sort tags alphabetically, then choose a font size according to count.
1289 // First, find max value.
1290 $maxcount = 0 ; foreach ( $tags as $key => $value ) $maxcount = max ( $maxcount , $value );
1293 foreach ( $tags as $key => $value )
1294 // Tag font size scaling: default 15 and 30 logarithm bases affect scaling, 22 and 6 are arbitrary font sizes for max and min sizes.
1296 $tagList [ $key ] = array ( 'count' => $value , 'size' => log ( $value , 15 ) / log ( $maxcount , 30 ) * ( 22 - 6 ) +
6 );
1298 $PAGE = new pageBuilder
;
1299 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1300 $PAGE- > assign ( 'tags' , $tagList );
1301 $PAGE- > renderPage ( 'tagcloud' );
1305 // -------- User clicks on a tag in a link: The tag is added to the list of searched tags (searchtags=...)
1306 if ( isset ( $_GET [ 'addtag' ]))
1308 // Get previous URL (http_referer) and add the tag to the searchtags parameters in query.
1309 if ( empty ( $_SERVER [ 'HTTP_REFERER' ])) { header ( 'Location: ?searchtags=' . urlencode ( $_GET
[ 'addtag' ])); exit ; } // In case browser does not send HTTP_REFERER
1310 parse_str ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_QUERY
), $params );
1312 // Check if this tag is already in the search query and ignore it if it is.
1313 // Each tag is always separated by a space
1314 $current_tags = explode ( ' ' , $params [ 'searchtags' ]);
1316 foreach ( $current_tags as $value ) {
1317 if ( $value === $_GET [ 'addtag' ]) {
1322 // Append the tag if necessary
1323 if ( empty ( $params [ 'searchtags' ])) {
1324 $params [ 'searchtags' ] = trim ( $_GET [ 'addtag' ]);
1327 $params [ 'searchtags' ] = trim ( $params [ 'searchtags' ]). ' ' . trim ( $_GET [ 'addtag' ]);
1330 unset ( $params [ 'page' ]); // We also remove page (keeping the same page has no sense, since the results are different)
1331 header ( 'Location: ?' . http_build_query ( $params ));
1335 // -------- User clicks on a tag in result count: Remove the tag from the list of searched tags (searchtags=...)
1336 if ( isset ( $_GET [ 'removetag' ]))
1338 // Get previous URL (http_referer) and remove the tag from the searchtags parameters in query.
1339 if ( empty ( $_SERVER [ 'HTTP_REFERER' ])) { header ( 'Location: ?' ); exit ; } // In case browser does not send HTTP_REFERER
1340 parse_str ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_QUERY
), $params );
1341 if ( isset ( $params [ 'searchtags' ]))
1343 $tags = explode ( ' ' , $params [ 'searchtags' ]);
1344 $tags = array_diff ( $tags , array ( $_GET [ 'removetag' ])); // Remove value from array $tags.
1345 if ( count ( $tags )== 0 ) unset ( $params [ 'searchtags' ]); else $params [ 'searchtags' ] = implode ( ' ' , $tags );
1346 unset ( $params [ 'page' ]); // We also remove page (keeping the same page has no sense, since the results are different)
1348 header ( 'Location: ?' . http_build_query ( $params ));
1352 // -------- User wants to change the number of links per page (linksperpage=...)
1353 if ( isset ( $_GET [ 'linksperpage' ]))
1355 if ( is_numeric ( $_GET [ 'linksperpage' ])) { $_SESSION
[ 'LINKS_PER_PAGE' ]= abs ( intval ( $_GET
[ 'linksperpage' ])); }
1356 // Make sure the referrer is Shaarli itself.
1358 if (! empty ( $_SERVER [ 'HTTP_REFERER' ]) && strcmp ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_HOST
), $_SERVER [ 'HTTP_HOST' ])== 0 )
1359 $referer = $_SERVER [ 'HTTP_REFERER' ];
1360 header ( 'Location: ' . $referer );
1364 // -------- User wants to see only private links (toggle)
1365 if ( isset ( $_GET [ 'privateonly' ]))
1367 if ( empty ( $_SESSION [ 'privateonly' ]))
1369 $_SESSION [ 'privateonly' ]= 1 ; // See only private links
1373 unset ( $_SESSION [ 'privateonly' ]); // See all links
1375 // Make sure the referrer is Shaarli itself.
1377 if (! empty ( $_SERVER [ 'HTTP_REFERER' ]) && strcmp ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_HOST
), $_SERVER [ 'HTTP_HOST' ])== 0 )
1378 $referer = $_SERVER [ 'HTTP_REFERER' ];
1379 header ( 'Location: ' . $referer );
1383 // -------- Handle other actions allowed for non-logged in users:
1386 // User tries to post new link but is not logged in:
1387 // Show login screen, then redirect to ?post=...
1388 if ( isset ( $_GET [ 'post' ]))
1390 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.
1394 // Same case as above except that user tried to access ?do=addlink without being logged in
1395 // Note: passing empty parameters makes Shaarli generate default URLs and descriptions.
1396 if ( isset ( $_GET [ 'do' ]) && $_GET [ 'do' ] === 'addlink' ) {
1397 header ( 'Location: ?do=login&post=' );
1401 $PAGE = new pageBuilder
;
1402 buildLinkList ( $PAGE , $LINKSDB ); // Compute list of links to display
1403 $PAGE- > renderPage ( 'linklist' );
1404 exit ; // Never remove this one! All operations below are reserved for logged in user.
1407 // -------- All other functions are reserved for the registered user:
1409 // -------- Display the Tools menu if requested (import/export/bookmarklet...)
1410 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=tools' ))
1412 $PAGE = new pageBuilder
;
1413 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1414 $PAGE- > assign ( 'pageabsaddr' , indexUrl ());
1415 $PAGE- > renderPage ( 'tools' );
1419 // -------- User wants to change his/her password.
1420 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=changepasswd' ))
1422 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) die ( 'You are not supposed to change a password on an Open Shaarli.' );
1423 if (! empty ( $_POST [ 'setpassword' ]) && ! empty ( $_POST [ 'oldpassword' ]))
1425 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1427 // Make sure old password is correct.
1428 $oldhash = sha1 ( $_POST [ 'oldpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
1429 if ( $oldhash != $GLOBALS [ 'hash' ]) { echo '<script>alert("The old password is not correct.");document.location= \' ?do=changepasswd \' ;</script>' ; exit ; }
1430 // Save new password
1431 $GLOBALS [ 'salt' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Salt renders rainbow-tables attacks useless.
1432 $GLOBALS [ 'hash' ] = sha1 ( $_POST [ 'setpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
1434 echo '<script>alert("Your password has been changed.");document.location= \' ?do=tools \' ;</script>' ;
1437 else // show the change password form.
1439 $PAGE = new pageBuilder
;
1440 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1441 $PAGE- > assign ( 'token' , getToken ());
1442 $PAGE- > renderPage ( 'changepassword' );
1447 // -------- User wants to change configuration
1448 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=configure' ))
1450 if (! empty ( $_POST [ 'title' ]) )
1452 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1454 if (! empty ( $_POST [ 'continent' ]) && ! empty ( $_POST [ 'city' ]))
1455 if ( isTZvalid ( $_POST [ 'continent' ], $_POST [ 'city' ]))
1456 $tz = $_POST [ 'continent' ]. '/' . $_POST [ 'city' ];
1457 $GLOBALS [ 'timezone' ] = $tz ;
1458 $GLOBALS [ 'title' ]= $_POST [ 'title' ];
1459 $GLOBALS [ 'titleLink' ]= $_POST [ 'titleLink' ];
1460 $GLOBALS [ 'redirector' ]= $_POST [ 'redirector' ];
1461 $GLOBALS [ 'disablesessionprotection' ]=! empty ( $_POST [ 'disablesessionprotection' ]);
1462 $GLOBALS [ 'disablejquery' ]=! empty ( $_POST [ 'disablejquery' ]);
1463 $GLOBALS [ 'privateLinkByDefault' ]=! empty ( $_POST [ 'privateLinkByDefault' ]);
1464 $GLOBALS [ 'config' ][ 'ENABLE_RSS_PERMALINKS' ]= ! empty ( $_POST [ 'enableRssPermalinks' ]);
1465 $GLOBALS [ 'config' ][ 'ENABLE_UPDATECHECK' ] = ! empty ( $_POST [ 'updateCheck' ]);
1466 $GLOBALS [ 'config' ][ 'HIDE_PUBLIC_LINKS' ] = ! empty ( $_POST [ 'hidePublicLinks' ]);
1468 echo '<script>alert("Configuration was saved.");document.location= \' ?do=tools \' ;</script>' ;
1471 else // Show the configuration form.
1473 $PAGE = new pageBuilder
;
1474 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1475 $PAGE- > assign ( 'token' , getToken ());
1476 $PAGE- > assign ( 'title' , htmlspecialchars ( empty ( $GLOBALS [ 'title' ]) ? '' : $GLOBALS [ 'title' ] , ENT_QUOTES
));
1477 $PAGE- > assign ( 'redirector' , htmlspecialchars ( empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ] , ENT_QUOTES
));
1478 list ( $timezone_form , $timezone_js ) = templateTZform ( $GLOBALS [ 'timezone' ]);
1479 $PAGE- > assign ( 'timezone_form' , $timezone_form ); // FIXME: Put entire tz form generation in template?
1480 $PAGE- > assign ( 'timezone_js' , $timezone_js );
1481 $PAGE- > renderPage ( 'configure' );
1486 // -------- User wants to rename a tag or delete it
1487 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=changetag' ))
1489 if ( empty ( $_POST [ 'fromtag' ]))
1491 $PAGE = new pageBuilder
;
1492 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1493 $PAGE- > assign ( 'token' , getToken ());
1494 $PAGE- > assign ( 'tags' , $LINKSDB- > allTags ());
1495 $PAGE- > renderPage ( 'changetag' );
1498 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1501 if (! empty ( $_POST [ 'deletetag' ]) && ! empty ( $_POST [ 'fromtag' ]))
1503 $needle = trim ( $_POST [ 'fromtag' ]);
1504 $linksToAlter = $LINKSDB- > filterTags ( $needle , true ); // True for case-sensitive tag search.
1505 foreach ( $linksToAlter as $key => $value )
1507 $tags = explode ( ' ' , trim ( $value [ 'tags' ]));
1508 unset ( $tags [ array_search ( $needle , $tags )]); // Remove tag.
1509 $value [ 'tags' ]= trim ( implode ( ' ' , $tags ));
1510 $LINKSDB [ $key ]= $value ;
1512 $LINKSDB- > savedb (); // Save to disk.
1513 echo '<script>alert("Tag was removed from ' . count ( $linksToAlter ). ' links.");document.location= \' ? \' ;</script>' ;
1518 if (! empty ( $_POST [ 'renametag' ]) && ! empty ( $_POST [ 'fromtag' ]) && ! empty ( $_POST [ 'totag' ]))
1520 $needle = trim ( $_POST [ 'fromtag' ]);
1521 $linksToAlter = $LINKSDB- > filterTags ( $needle , true ); // true for case-sensitive tag search.
1522 foreach ( $linksToAlter as $key => $value )
1524 $tags = explode ( ' ' , trim ( $value [ 'tags' ]));
1525 $tags [ array_search ( $needle , $tags )] = trim ( $_POST [ 'totag' ]); // Replace tags value.
1526 $value [ 'tags' ]= trim ( implode ( ' ' , $tags ));
1527 $LINKSDB [ $key ]= $value ;
1529 $LINKSDB- > savedb (); // Save to disk.
1530 echo '<script>alert("Tag was renamed in ' . count ( $linksToAlter ). ' links.");document.location= \' ?searchtags=' . urlencode ( $_POST [ 'totag' ]). ' \' ;</script>' ;
1535 // -------- User wants to add a link without using the bookmarklet: Show form.
1536 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=addlink' ))
1538 $PAGE = new pageBuilder
;
1539 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1540 $PAGE- > renderPage ( 'addlink' );
1544 // -------- User clicked the "Save" button when editing a link: Save link to database.
1545 if ( isset ( $_POST [ 'save_edit' ]))
1547 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1548 $tags = trim ( preg_replace ( '/\s\s+/' , ' ' , $_POST [ 'lf_tags' ])); // Remove multiple spaces.
1549 $linkdate = $_POST [ 'lf_linkdate' ];
1550 $url = trim ( $_POST [ 'lf_url' ]);
1551 if (! startsWith ( $url , 'http:' ) && ! startsWith ( $url , 'https:' ) && ! startsWith ( $url , 'ftp:' ) && ! startsWith ( $url , 'magnet:' ) && ! startsWith ( $url , '?' ) && ! startsWith ( $url , 'javascript:' ))
1552 $url = 'http://' . $url ;
1553 $link = array ( 'title' => trim ( $_POST [ 'lf_title' ]), 'url' => $url , 'description' => trim ( $_POST [ 'lf_description' ]), 'private' =>( isset ( $_POST [ 'lf_private' ]) ? 1 : 0 ),
1554 'linkdate' => $linkdate , 'tags' => str_replace ( ',' , ' ' , $tags ));
1555 if ( $link [ 'title' ]== '' ) $link [ 'title' ]= $link [ 'url' ]; // If title is empty, use the URL as title.
1556 $LINKSDB [ $linkdate ] = $link ;
1557 $LINKSDB- > savedb (); // Save to disk.
1560 // If we are called from the bookmarklet, we must close the popup:
1561 if ( isset ( $_GET [ 'source' ]) && ( $_GET [ 'source' ]== 'bookmarklet' || $_GET [ 'source' ]== 'firefoxsocialapi' )) { echo '<script>self.close();</script>' ; exit ; }
1562 $returnurl = ( isset ( $_POST [ 'returnurl' ]) ? $_POST [ 'returnurl' ] : '?' );
1563 $returnurl .= '#' . smallHash ( $linkdate ); // Scroll to the link which has been edited.
1564 if ( strstr ( $returnurl , "do=addlink" )) { $returnurl
= '?' ; } //if we come from ?do=addlink, set returnurl to homepage instead
1565 header ( 'Location: ' . $returnurl ); // After saving the link, redirect to the page the user was on.
1569 // -------- User clicked the "Cancel" button when editing a link.
1570 if ( isset ( $_POST [ 'cancel_edit' ]))
1572 // If we are called from the bookmarklet, we must close the popup:
1573 if ( isset ( $_GET [ 'source' ]) && ( $_GET [ 'source' ]== 'bookmarklet' || $_GET [ 'source' ]== 'firefoxsocialapi' )) { echo '<script>self.close();</script>' ; exit ; }
1574 $returnurl = ( isset ( $_POST [ 'returnurl' ]) ? $_POST [ 'returnurl' ] : '?' );
1575 $returnurl .= '#' . smallHash ( $_POST [ 'lf_linkdate' ]); // Scroll to the link which has been edited.
1576 header ( 'Location: ' . $returnurl ); // After canceling, redirect to the page the user was on.
1580 // -------- User clicked the "Delete" button when editing a link: Delete link from database.
1581 if ( isset ( $_POST [ 'delete_link' ]))
1583 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1584 // We do not need to ask for confirmation:
1585 // - confirmation is handled by JavaScript
1586 // - we are protected from XSRF by the token.
1587 $linkdate = $_POST [ 'lf_linkdate' ];
1588 unset ( $LINKSDB [ $linkdate ]);
1589 $LINKSDB- > savedb (); // save to disk
1591 // If we are called from the bookmarklet, we must close the popup:
1592 if ( isset ( $_GET [ 'source' ]) && ( $_GET [ 'source' ]== 'bookmarklet' || $_GET [ 'source' ]== 'firefoxsocialapi' )) { echo '<script>self.close();</script>' ; exit ; }
1593 // Pick where we're going to redirect
1594 // =============================================================
1595 // Basically, we can't redirect to where we were previously if it was a permalink
1596 // or an edit_link, because it would 404.
1598 // - / : nothing in $_GET, redirect to self
1599 // - /?page : redirect to self
1600 // - /?searchterm : redirect to self (there might be other links)
1601 // - /?searchtags : redirect to self
1602 // - /permalink : redirect to / (the link does not exist anymore)
1603 // - /?edit_link : redirect to / (the link does not exist anymore)
1604 // PHP treats the permalink as a $_GET variable, so we need to check if every condition for self
1605 // redirect is not satisfied, and only then redirect to /
1608 if ( count ( $_GET ) == 0 ||
1609 isset ( $_GET [ 'page' ]) ||
1610 isset ( $_GET [ 'searchterm' ]) ||
1611 isset ( $_GET [ 'searchtags' ])) {
1613 if ( isset ( $_POST [ 'returnurl' ])) {
1614 $location = $_POST [ 'returnurl' ]; // Handle redirects given by the form
1617 if ( $location === "?" &&
1618 isset ( $_SERVER [ 'HTTP_REFERER' ])) { // Handle HTTP_REFERER in case we're not coming from the same place.
1619 $location = $_SERVER [ 'HTTP_REFERER' ];
1623 header ( 'Location: ' . $location ); // After deleting the link, redirect to appropriate location
1627 // -------- User clicked the "EDIT" button on a link: Display link edit form.
1628 if ( isset ( $_GET [ 'edit_link' ]))
1630 $link = $LINKSDB [ $_GET [ 'edit_link' ]]; // Read database
1631 if (! $link ) { header ( 'Location: ?' ); exit ; } // Link not found in database.
1632 $PAGE = new pageBuilder
;
1633 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1634 $PAGE- > assign ( 'link' , $link );
1635 $PAGE- > assign ( 'link_is_new' , false );
1636 $PAGE- > assign ( 'token' , getToken ()); // XSRF protection.
1637 $PAGE- > assign ( 'http_referer' ,( isset ( $_SERVER [ 'HTTP_REFERER' ]) ? $_SERVER [ 'HTTP_REFERER' ] : '' ));
1638 $PAGE- > assign ( 'tags' , $LINKSDB- > allTags ());
1639 $PAGE- > renderPage ( 'editlink' );
1643 // -------- User want to post a new link: Display link edit form.
1644 if ( isset ( $_GET [ 'post' ]))
1649 // We remove the annoying parameters added by FeedBurner, GoogleFeedProxy, Facebook...
1650 $annoyingpatterns = array ( '/[ \? &]utm_source=[^&]*/' , '/[ \? &]utm_campaign=[^&]*/' , '/[ \? &]utm_medium=[^&]*/' , '/#xtor=RSS-[^&]*/' , '/[ \? &]fb_[^&]*/' , '/[ \? &]__scoop[^&]*/' , '/#tk\.rss_all \? /' , '/[ \? &]action_ref_map=[^&]*/' , '/[ \? &]action_type_map=[^&]*/' , '/[ \? &]action_object_map=[^&]*/' );
1651 foreach ( $annoyingpatterns as $pattern )
1653 $url = preg_replace ( $pattern , "" , $url );
1656 $link_is_new = false ;
1657 $link = $LINKSDB- > getLinkFromUrl ( $url ); // Check if URL is not already in database (in this case, we will edit the existing link)
1660 $link_is_new = true ; // This is a new link
1661 $linkdate = strval ( date ( 'Ymd_His' ));
1662 $title = ( empty ( $_GET [ 'title' ]) ? '' : $_GET [ 'title' ] ); // Get title if it was provided in URL (by the bookmarklet).
1663 $description = ( empty ( $_GET [ 'description' ]) ? '' : $_GET [ 'description' ]); // Get description if it was provided in URL (by the bookmarklet). [Bronco added that]
1664 $tags = ( empty ( $_GET [ 'tags' ]) ? '' : $_GET [ 'tags' ] ); // Get tags if it was provided in URL
1665 $private = (! empty ( $_GET [ 'private' ]) && $_GET [ 'private' ] === "1" ? 1 : 0 ); // Get private if it was provided in URL
1666 if (( $url != '' ) && parse_url ( $url , PHP_URL_SCHEME
)== '' ) $url = 'http://' . $url ;
1667 // 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.)
1668 if ( empty ( $title ) && parse_url ( $url , PHP_URL_SCHEME
)== 'http' )
1670 list ( $status , $headers , $data ) = getHTTP ( $url , 4 ); // Short timeout to keep the application responsive.
1671 // FIXME: Decode charset according to specified in either 1) HTTP response headers or 2) <head> in html
1672 if ( strpos ( $status , '200 OK' )!== false )
1674 // Look for charset in html header.
1675 preg_match ( '#<meta .*charset=.*>#Usi' , $data , $meta );
1677 // If found, extract encoding.
1678 if (! empty ( $meta [ 0 ]))
1680 // Get encoding specified in header.
1681 preg_match ( '#charset="?(.*)"#si' , $meta [ 0 ], $enc );
1682 // If charset not found, use utf-8.
1683 $html_charset = (! empty ( $enc [ 1 ])) ? strtolower ( $enc [ 1 ]) : 'utf-8' ;
1685 else { $html_charset
= 'utf-8' ; }
1688 $title = html_extract_title ( $data );
1691 // Re-encode title in utf-8 if necessary.
1692 $title = ( $html_charset == 'iso-8859-1' ) ? utf8_encode ( $title ) : $title ;
1696 if ( $url == '' ) // In case of empty URL, this is just a text (with a link that points to itself)
1698 $url = '?' . smallHash ( $linkdate );
1701 $link = array ( 'linkdate' => $linkdate , 'title' => $title , 'url' => $url , 'description' => $description , 'tags' => $tags , 'private' => $private );
1704 $PAGE = new pageBuilder
;
1705 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1706 $PAGE- > assign ( 'link' , $link );
1707 $PAGE- > assign ( 'link_is_new' , $link_is_new );
1708 $PAGE- > assign ( 'token' , getToken ()); // XSRF protection.
1709 $PAGE- > assign ( 'http_referer' ,( isset ( $_SERVER [ 'HTTP_REFERER' ]) ? $_SERVER [ 'HTTP_REFERER' ] : '' ));
1710 $PAGE- > assign ( 'source' ,( isset ( $_GET [ 'source' ]) ? $_GET [ 'source' ] : '' ));
1711 $PAGE- > assign ( 'tags' , $LINKSDB- > allTags ());
1712 $PAGE- > renderPage ( 'editlink' );
1716 // -------- Export as Netscape Bookmarks HTML file.
1717 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=export' ))
1719 if ( empty ( $_GET [ 'what' ]))
1721 $PAGE = new pageBuilder
;
1722 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1723 $PAGE- > renderPage ( 'export' );
1726 $exportWhat = $_GET [ 'what' ];
1727 if (! array_intersect ( array ( 'all' , 'public' , 'private' ), array ( $exportWhat ))) die ( 'What are you trying to export???' );
1729 header ( 'Content-Type: text/html; charset=utf-8' );
1730 header ( 'Content-disposition: attachment; filename=bookmarks_' . $exportWhat . '_' . strval ( date ( 'Ymd_His' )). '.html' );
1731 $currentdate = date ( 'Y/m/d H:i:s' );
1733 <!DOCTYPE NETSCAPE-Bookmark-file-1>
1734 <!-- This is an automatically generated file.
1735 It will be read and overwritten.
1737 <!-- Shaarli {$exportWhat} bookmarks export on {$currentdate} -->
1738 <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
1739 <TITLE>Bookmarks</TITLE>
1742 foreach ( $LINKSDB as $link )
1744 if ( $exportWhat == 'all' ||
1745 ( $exportWhat == 'private' && $link [ 'private' ]!= 0 ) ||
1746 ( $exportWhat == 'public' && $link [ 'private' ]== 0 ))
1748 echo '<DT><A HREF="' . htmlspecialchars ( $link [ 'url' ]). '" ADD_DATE="' . linkdate2timestamp ( $link [ 'linkdate' ]). '" PRIVATE="' . $link [ 'private' ]. '"' ;
1749 if ( $link [ 'tags' ]!= '' ) echo ' TAGS="' . htmlspecialchars ( str_replace ( ' ' , ',' , $link [ 'tags' ])). '"' ;
1750 echo '>' . htmlspecialchars ( $link [ 'title' ]). "</A> \n " ;
1751 if ( $link [ 'description' ]!= '' ) echo '<DD>' . htmlspecialchars ( $link [ 'description' ]). " \n " ;
1757 // -------- User is uploading a file for import
1758 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=upload' ))
1760 // If file is too big, some form field may be missing.
1761 if (! isset ( $_POST [ 'token' ]) || (! isset ( $_FILES )) || ( isset ( $_FILES [ 'filetoupload' ][ 'size' ]) && $_FILES [ 'filetoupload' ][ 'size' ]== 0 ))
1763 $returnurl = ( empty ( $_SERVER [ 'HTTP_REFERER' ]) ? '?' : $_SERVER [ 'HTTP_REFERER' ] );
1764 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>' ;
1767 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1772 // -------- Show upload/import dialog:
1773 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=import' ))
1775 $PAGE = new pageBuilder
;
1776 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1777 $PAGE- > assign ( 'token' , getToken ());
1778 $PAGE- > assign ( 'maxfilesize' , getMaxFileSize ());
1779 $PAGE- > renderPage ( 'import' );
1783 // -------- Otherwise, simply display search form and links:
1784 $PAGE = new pageBuilder
;
1785 buildLinkList ( $PAGE , $LINKSDB ); // Compute list of links to display
1786 $PAGE- > renderPage ( 'linklist' );
1790 // -----------------------------------------------------------------------------------------------
1791 // Process the import file form.
1792 function importFile ()
1794 if (!( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ])) { die ( 'Not allowed.' ); }
1795 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1796 $filename = $_FILES [ 'filetoupload' ][ 'name' ];
1797 $filesize = $_FILES [ 'filetoupload' ][ 'size' ];
1798 $data = file_get_contents ( $_FILES [ 'filetoupload' ][ 'tmp_name' ]);
1799 $private = ( empty ( $_POST [ 'private' ]) ? 0 : 1 ); // Should the links be imported as private?
1800 $overwrite = ! empty ( $_POST [ 'overwrite' ]) ; // Should the imported links overwrite existing ones?
1805 if ( startsWith ( $data , '<!DOCTYPE NETSCAPE-Bookmark-file-1>' )) $type = 'netscape' ; // Netscape bookmark file (aka Firefox).
1807 // Then import the bookmarks.
1808 if ( $type == 'netscape' )
1810 // This is a standard Netscape-style bookmark file.
1811 // This format is supported by all browsers (except IE, of course), also Delicious, Diigo and others.
1812 foreach ( explode ( '<DT>' , $data ) as $html ) // explode is very fast
1814 $link = array ( 'linkdate' => '' , 'title' => '' , 'url' => '' , 'description' => '' , 'tags' => '' , 'private' => 0 );
1815 $d = explode ( '<DD>' , $html );
1816 if ( startswith ( $d [ 0 ], '<A ' ))
1818 $link [ 'description' ] = ( isset ( $d [ 1 ]) ? html_entity_decode ( trim ( $d [ 1 ]), ENT_QUOTES
, 'UTF-8' ) : '' ); // Get description (optional)
1819 preg_match ( '!<A .*?>(.*?)</A>!i' , $d [ 0 ], $matches ); $link [ 'title' ] = ( isset ( $matches [ 1 ]) ? trim ( $matches [ 1 ]) : '' ); // Get title
1820 $link [ 'title' ] = html_entity_decode ( $link [ 'title' ], ENT_QUOTES
, 'UTF-8' );
1821 preg_match_all ( '! ([A-Z_]+)= \" (.*?)"!i' , $html , $matches , PREG_SET_ORDER
); // Get all other attributes
1823 foreach ( $matches as $m )
1825 $attr = $m [ 1 ]; $value = $m [ 2 ];
1826 if ( $attr == 'HREF' ) $link [ 'url' ]= html_entity_decode ( $value , ENT_QUOTES
, 'UTF-8' );
1827 elseif ( $attr == 'ADD_DATE' )
1829 $raw_add_date = intval ( $value );
1830 if ( $raw_add_date > 30000000000 ) $raw_add_date /= 1000 ; //If larger than year 2920, then was likely stored in milliseconds instead of seconds
1832 elseif ( $attr == 'PRIVATE' ) $link [ 'private' ]=( $value == '0' ? 0 : 1 );
1833 elseif ( $attr == 'TAGS' ) $link [ 'tags' ]= html_entity_decode ( str_replace ( ',' , ' ' , $value ), ENT_QUOTES
, 'UTF-8' );
1835 if ( $link [ 'url' ]!= '' )
1837 if ( $private == 1 ) $link [ 'private' ]= 1 ;
1838 $dblink = $LINKSDB- > getLinkFromUrl ( $link [ 'url' ]); // See if the link is already in database.
1840 { // Link not in database, let's import it...
1841 if ( empty ( $raw_add_date )) $raw_add_date = time (); // In case of shitty bookmark file with no ADD_DATE
1843 // Make sure date/time is not already used by another link.
1844 // (Some bookmark files have several different links with the same ADD_DATE)
1845 // We increment date by 1 second until we find a date which is not used in DB.
1846 // (so that links that have the same date/time are more or less kept grouped by date, but do not conflict.)
1847 while (! empty ( $LINKSDB [ date ( 'Ymd_His' , $raw_add_date )])) { $raw_add_date++
; } // Yes, I know it's ugly.
1848 $link [ 'linkdate' ]= date ( 'Ymd_His' , $raw_add_date );
1849 $LINKSDB [ $link [ 'linkdate' ]] = $link ;
1852 else // Link already present in database.
1855 { // If overwrite is required, we import link data, except date/time.
1856 $link [ 'linkdate' ]= $dblink [ 'linkdate' ];
1857 $LINKSDB [ $link [ 'linkdate' ]] = $link ;
1867 echo '<script>alert("File ' . json_encode ( $filename ). ' (' . $filesize . ' bytes) was successfully processed: ' . $import_count . ' links imported.");document.location= \' ? \' ;</script>' ;
1871 echo '<script>alert("File ' . json_encode ( $filename ). ' (' . $filesize . ' bytes) has an unknown file format. Nothing was imported.");document.location= \' ? \' ;</script>' ;
1875 // -----------------------------------------------------------------------------------------------
1876 // Template for the list of links (<div id="linklist">)
1877 // This function fills all the necessary fields in the $PAGE for the template 'linklist.html'
1878 function buildLinkList ( $PAGE , $LINKSDB )
1880 // ---- Filter link database according to parameters
1881 $linksToDisplay = array ();
1884 if ( isset ( $_GET [ 'searchterm' ])) // Fulltext search
1886 $linksToDisplay = $LINKSDB- > filterFulltext ( trim ( $_GET [ 'searchterm' ]));
1887 $search_crits = htmlspecialchars ( trim ( $_GET [ 'searchterm' ]));
1888 $search_type = 'fulltext' ;
1890 elseif ( isset ( $_GET [ 'searchtags' ])) // Search by tag
1892 $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
1893 $search_crits = explode ( ' ' , trim ( $_GET [ 'searchtags' ]));
1894 $search_type = 'tags' ;
1896 elseif ( isset ( $_SERVER [ 'QUERY_STRING' ]) && preg_match ( '/[a-zA-Z0-9-_@] {6} (&.+?)?/' , $_SERVER [ 'QUERY_STRING' ])) // Detect smallHashes in URL
1898 $linksToDisplay = $LINKSDB- > filterSmallHash ( substr ( trim ( $_SERVER [ "QUERY_STRING" ], '/' ), 0 , 6 ));
1899 if ( count ( $linksToDisplay )== 0 )
1901 header ( $_SERVER [ "SERVER_PROTOCOL" ]. " 404 Not Found" );
1902 echo '<h1>404 Not found.</h1>Oh crap. The link you are trying to reach does not exist or has been deleted.' ;
1903 echo '<br>You would mind <a href="?">clicking here</a>?' ;
1906 $search_type = 'permalink' ;
1908 // We chose to disable all private links and the user isn't logged in, do not return any link.
1909 else if ( $GLOBALS [ 'config' ][ 'HIDE_PUBLIC_LINKS' ] && ! isLoggedIn ())
1910 $linksToDisplay = array ();
1912 $linksToDisplay = $LINKSDB ; // Otherwise, display without filtering.
1915 // Option: Show only private links
1916 if (! empty ( $_SESSION [ 'privateonly' ]))
1919 foreach ( $linksToDisplay as $linkdate => $link )
1921 if ( $link [ 'private' ]!= 0 ) $tmp [ $linkdate ]= $link ;
1923 $linksToDisplay = $tmp ;
1926 // ---- Handle paging.
1927 /* Can someone explain to me why you get the following error when using array_keys() on an object which implements the interface ArrayAccess???
1928 "Warning: array_keys() expects parameter 1 to be array, object given in ... "
1929 If my class implements ArrayAccess, why won't array_keys() accept it ? ( $keys=array_keys($linksToDisplay); )
1931 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // Stupid and ugly. Thanks PHP.
1933 // If there is only a single link, we change on-the-fly the title of the page.
1934 if ( count ( $linksToDisplay )== 1 ) $GLOBALS [ 'pagetitle' ] = $linksToDisplay [ $keys [ 0 ]][ 'title' ]. ' - ' . $GLOBALS [ 'title' ];
1936 // Select articles according to paging.
1937 $pagecount = ceil ( count ( $keys )/ $_SESSION [ 'LINKS_PER_PAGE' ]);
1938 $pagecount = ( $pagecount == 0 ? 1 : $pagecount );
1939 $page =( empty ( $_GET [ 'page' ]) ? 1 : intval ( $_GET [ 'page' ]));
1940 $page = ( $page < 1 ? 1 : $page );
1941 $page = ( $page > $pagecount ? $pagecount : $page );
1942 $i = ( $page-1 )* $_SESSION [ 'LINKS_PER_PAGE' ]; // Start index.
1943 $end = $i +
$_SESSION [ 'LINKS_PER_PAGE' ];
1944 $linkDisp = array (); // Links to display
1945 while ( $i < $end && $i < count ( $keys ))
1947 $link = $linksToDisplay [ $keys [ $i ]];
1948 $link [ 'description' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))));
1949 $title = $link [ 'title' ];
1950 $classLi = $i %
2 != 0 ? '' : 'publicLinkHightLight' ;
1951 $link [ 'class' ] = ( $link [ 'private' ]== 0 ? $classLi : 'private' );
1952 $link [ 'timestamp' ]= linkdate2timestamp ( $link [ 'linkdate' ]);
1953 $taglist = explode ( ' ' , $link [ 'tags' ]);
1954 uasort ( $taglist , 'strcasecmp' );
1955 $link [ 'taglist' ]= $taglist ;
1957 if ( $link [ "url" ][ 0 ] === '?' && // Check for both signs of a note: starting with ? and 7 chars long. I doubt that you'll post any links that look like this.
1958 strlen ( $link [ "url" ]) === 7 ) {
1959 $link [ "url" ] = indexUrl () . $link [ "url" ];
1962 $linkDisp [ $keys [ $i ]] = $link ;
1966 // Compute paging navigation
1967 $searchterm = ( empty ( $_GET [ 'searchterm' ]) ? '' : '&searchterm=' . $_GET [ 'searchterm' ] );
1968 $searchtags = ( empty ( $_GET [ 'searchtags' ]) ? '' : '&searchtags=' . $_GET [ 'searchtags' ] );
1970 $previous_page_url = '' ; if ( $i != count ( $keys )) $previous_page_url = '?page=' .( $page +
1 ). $searchterm . $searchtags ;
1971 $next_page_url = '' ; if ( $page > 1 ) $next_page_url = '?page=' .( $page-1 ). $searchterm . $searchtags ;
1973 $token = '' ; if ( isLoggedIn ()) $token = getToken ();
1975 // Fill all template fields.
1976 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1977 $PAGE- > assign ( 'previous_page_url' , $previous_page_url );
1978 $PAGE- > assign ( 'next_page_url' , $next_page_url );
1979 $PAGE- > assign ( 'page_current' , $page );
1980 $PAGE- > assign ( 'page_max' , $pagecount );
1981 $PAGE- > assign ( 'result_count' , count ( $linksToDisplay ));
1982 $PAGE- > assign ( 'search_type' , $search_type );
1983 $PAGE- > assign ( 'search_crits' , $search_crits );
1984 $PAGE- > assign ( 'redirector' , empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ]); // Optional redirector URL.
1985 $PAGE- > assign ( 'token' , $token );
1986 $PAGE- > assign ( 'links' , $linkDisp );
1990 // Compute the thumbnail for a link.
1992 // With a link to the original URL.
1993 // Understands various services (youtube.com...)
1994 // Input: $url = URL for which the thumbnail must be found.
1995 // $href = if provided, this URL will be followed instead of $url
1996 // Returns an associative array with thumbnail attributes (src,href,width,height,style,alt)
1997 // Some of them may be missing.
1998 // Return an empty array if no thumbnail available.
1999 function computeThumbnail ( $url , $href = false )
2001 if (! $GLOBALS [ 'config' ][ 'ENABLE_THUMBNAILS' ]) return array ();
2002 if ( $href == false ) $href = $url ;
2004 // For most hosts, the URL of the thumbnail can be easily deduced from the URL of the link.
2005 // (e.g. http://www.youtube.com/watch?v=spVypYk4kto ---> http://img.youtube.com/vi/spVypYk4kto/default.jpg )
2006 // ^^^^^^^^^^^ ^^^^^^^^^^^
2007 $domain = parse_url ( $url , PHP_URL_HOST
);
2008 if ( $domain == 'youtube.com' || $domain == 'www.youtube.com' )
2010 parse_str ( parse_url ( $url , PHP_URL_QUERY
), $params ); // Extract video ID and get thumbnail
2011 if (! empty ( $params [ 'v' ])) return array ( 'src' => 'https://img.youtube.com/vi/' . $params [ 'v' ]. '/default.jpg' ,
2012 'href' => $href , 'width' => '120' , 'height' => '90' , 'alt' => 'YouTube thumbnail' );
2014 if ( $domain == 'youtu.be' ) // Youtube short links
2016 $path = parse_url ( $url , PHP_URL_PATH
);
2017 return array ( 'src' => 'https://img.youtube.com/vi' . $path . '/default.jpg' ,
2018 'href' => $href , 'width' => '120' , 'height' => '90' , 'alt' => 'YouTube thumbnail' );
2020 if ( $domain == 'pix.toile-libre.org' ) // pix.toile-libre.org image hosting
2022 parse_str ( parse_url ( $url , PHP_URL_QUERY
), $params ); // Extract image filename.
2023 if (! empty ( $params ) && ! empty ( $params [ 'img' ])) return array ( 'src' => 'http://pix.toile-libre.org/upload/thumb/' . urlencode ( $params [ 'img' ]),
2024 'href' => $href , 'style' => 'max-width:120px; max-height:150px' , 'alt' => 'pix.toile-libre.org thumbnail' );
2027 if ( $domain == 'imgur.com' )
2029 $path = parse_url ( $url , PHP_URL_PATH
);
2030 if ( startsWith ( $path , '/a/' )) return array (); // Thumbnails for albums are not available.
2031 if ( startsWith ( $path , '/r/' )) return array ( 'src' => 'https://i.imgur.com/' . basename ( $path ). 's.jpg' ,
2032 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
2033 if ( startsWith ( $path , '/gallery/' )) return array ( 'src' => 'https://i.imgur.com' . substr ( $path , 8 ). 's.jpg' ,
2034 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
2036 if ( substr_count ( $path , '/' )== 1 ) return array ( 'src' => 'https://i.imgur.com/' . substr ( $path , 1 ). 's.jpg' ,
2037 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
2039 if ( $domain == 'i.imgur.com' )
2041 $pi = pathinfo ( parse_url ( $url , PHP_URL_PATH
));
2042 if (! empty ( $pi [ 'filename' ])) return array ( 'src' => 'https://i.imgur.com/' . $pi [ 'filename' ]. 's.jpg' ,
2043 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
2045 if ( $domain == 'dailymotion.com' || $domain == 'www.dailymotion.com' )
2047 if ( strpos ( $url , 'dailymotion.com/video/' )!== false )
2049 $thumburl = str_replace ( 'dailymotion.com/video/' , 'dailymotion.com/thumbnail/video/' , $url );
2050 return array ( 'src' => $thumburl ,
2051 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'DailyMotion thumbnail' );
2054 if ( endsWith ( $domain , '.imageshack.us' ))
2056 $ext = strtolower ( pathinfo ( $url , PATHINFO_EXTENSION
));
2057 if ( $ext == 'jpg' || $ext == 'jpeg' || $ext == 'png' || $ext == 'gif' )
2059 $thumburl = substr ( $url , 0 , strlen ( $url )- strlen ( $ext )). 'th.' . $ext ;
2060 return array ( 'src' => $thumburl ,
2061 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'imageshack.us thumbnail' );
2065 // Some other hosts are SLOW AS HELL and usually require an extra HTTP request to get the thumbnail URL.
2066 // So we deport the thumbnail generation in order not to slow down page generation
2067 // (and we also cache the thumbnail)
2069 if (! $GLOBALS [ 'config' ][ 'ENABLE_LOCALCACHE' ]) return array (); // If local cache is disabled, no thumbnails for services which require the use a local cache.
2071 if ( $domain == 'flickr.com' || endsWith ( $domain , '.flickr.com' )
2072 || $domain == 'vimeo.com'
2073 || $domain == 'ted.com' || endsWith ( $domain , '.ted.com' )
2074 || $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' )
2077 if ( $domain == 'vimeo.com' )
2078 { // Make sure this vimeo URL points to a video (/xxx... where xxx is numeric)
2079 $path = parse_url ( $url , PHP_URL_PATH
);
2080 if (! preg_match ( '!/\d+.+?!' , $path )) return array (); // This is not a single video URL.
2082 if ( $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' ))
2083 { // Make sure this URL points to a single comic (/xxx... where xxx is numeric)
2084 $path = parse_url ( $url , PHP_URL_PATH
);
2085 if (! preg_match ( '!/\d+.+?!' , $path )) return array ();
2087 if ( $domain == 'ted.com' || endsWith ( $domain , '.ted.com' ))
2088 { // Make sure this TED URL points to a video (/talks/...)
2089 $path = parse_url ( $url , PHP_URL_PATH
);
2090 if ( "/talks/" !== substr ( $path , 0 , 7 )) return array (); // This is not a single video URL.
2092 $sign = hash_hmac ( 'sha256' , $url , $GLOBALS [ 'salt' ]); // We use the salt to sign data (it's random, secret, and specific to each installation)
2093 return array ( 'src' => indexUrl (). '?do=genthumbnail&hmac=' . htmlspecialchars ( $sign ). '&url=' . urlencode ( $url ),
2094 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'thumbnail' );
2097 // For all other, we try to make a thumbnail of links ending with .jpg/jpeg/png/gif
2098 // Technically speaking, we should download ALL links and check their Content-Type to see if they are images.
2099 // But using the extension will do.
2100 $ext = strtolower ( pathinfo ( $url , PATHINFO_EXTENSION
));
2101 if ( $ext == 'jpg' || $ext == 'jpeg' || $ext == 'png' || $ext == 'gif' )
2103 $sign = hash_hmac ( 'sha256' , $url , $GLOBALS [ 'salt' ]); // We use the salt to sign data (it's random, secret, and specific to each installation)
2104 return array ( 'src' => indexUrl (). '?do=genthumbnail&hmac=' . htmlspecialchars ( $sign ). '&url=' . urlencode ( $url ),
2105 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'thumbnail' );
2107 return array (); // No thumbnail.
2112 // Returns the HTML code to display a thumbnail for a link
2113 // with a link to the original URL.
2114 // Understands various services (youtube.com...)
2115 // Input: $url = URL for which the thumbnail must be found.
2116 // $href = if provided, this URL will be followed instead of $url
2117 // Returns '' if no thumbnail available.
2118 function thumbnail ( $url , $href = false )
2120 $t = computeThumbnail ( $url , $href );
2121 if ( count ( $t )== 0 ) return '' ; // Empty array = no thumbnail for this URL.
2123 $html = '<a href="' . htmlspecialchars ( $t [ 'href' ]). '"><img src="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2124 if (! empty ( $t [ 'width' ])) $html .= ' width="' . htmlspecialchars ( $t [ 'width' ]). '"' ;
2125 if (! empty ( $t [ 'height' ])) $html .= ' height="' . htmlspecialchars ( $t [ 'height' ]). '"' ;
2126 if (! empty ( $t [ 'style' ])) $html .= ' style="' . htmlspecialchars ( $t [ 'style' ]). '"' ;
2127 if (! empty ( $t [ 'alt' ])) $html .= ' alt="' . htmlspecialchars ( $t [ 'alt' ]). '"' ;
2132 // Returns the HTML code to display a thumbnail for a link
2133 // for the picture wall (using lazy image loading)
2134 // Understands various services (youtube.com...)
2135 // Input: $url = URL for which the thumbnail must be found.
2136 // $href = if provided, this URL will be followed instead of $url
2137 // Returns '' if no thumbnail available.
2138 function lazyThumbnail ( $url , $href = false )
2140 $t = computeThumbnail ( $url , $href );
2141 if ( count ( $t )== 0 ) return '' ; // Empty array = no thumbnail for this URL.
2143 $html = '<a href="' . htmlspecialchars ( $t [ 'href' ]). '">' ;
2146 $html .= '<img class="b-lazy" src="#" data-src="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2148 if (! empty ( $t [ 'width' ])) $html .= ' width="' . htmlspecialchars ( $t [ 'width' ]). '"' ;
2149 if (! empty ( $t [ 'height' ])) $html .= ' height="' . htmlspecialchars ( $t [ 'height' ]). '"' ;
2150 if (! empty ( $t [ 'style' ])) $html .= ' style="' . htmlspecialchars ( $t [ 'style' ]). '"' ;
2151 if (! empty ( $t [ 'alt' ])) $html .= ' alt="' . htmlspecialchars ( $t [ 'alt' ]). '"' ;
2154 // No-JavaScript fallback.
2155 $html .= '<noscript><img src="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2156 if (! empty ( $t [ 'width' ])) $html .= ' width="' . htmlspecialchars ( $t [ 'width' ]). '"' ;
2157 if (! empty ( $t [ 'height' ])) $html .= ' height="' . htmlspecialchars ( $t [ 'height' ]). '"' ;
2158 if (! empty ( $t [ 'style' ])) $html .= ' style="' . htmlspecialchars ( $t [ 'style' ]). '"' ;
2159 if (! empty ( $t [ 'alt' ])) $html .= ' alt="' . htmlspecialchars ( $t [ 'alt' ]). '"' ;
2160 $html .= '></noscript></a>' ;
2166 // -----------------------------------------------------------------------------------------------
2168 // This function should NEVER be called if the file data/config.php exists.
2171 // On free.fr host, make sure the /sessions directory exists, otherwise login will not work.
2172 if ( endsWith ( $_SERVER [ 'HTTP_HOST' ], '.free.fr' ) && ! is_dir ( $_SERVER [ 'DOCUMENT_ROOT' ]. '/sessions' )) mkdir ( $_SERVER [ 'DOCUMENT_ROOT' ]. '/sessions' , 0705 );
2175 // This part makes sure sessions works correctly.
2176 // (Because on some hosts, session.save_path may not be set correctly,
2177 // or we may not have write access to it.)
2178 if ( isset ( $_GET [ 'test_session' ]) && ( ! isset ( $_SESSION ) || ! isset ( $_SESSION [ 'session_tested' ]) || $_SESSION [ 'session_tested' ]!= 'Working' ))
2179 { // Step 2: Check if data in session is correct.
2180 echo '<pre>Sessions do not seem to work correctly on your server.<br>' ;
2181 echo 'Make sure the variable session.save_path is set correctly in your php config, and that you have write access to it.<br>' ;
2182 echo 'It currently points to ' . session_save_path (). '<br>' ;
2183 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>' ;
2184 echo '<br><a href="?">Click to try again.</a></pre>' ;
2187 if (! isset ( $_SESSION [ 'session_tested' ]))
2188 { // Step 1 : Try to store data in session and reload page.
2189 $_SESSION [ 'session_tested' ] = 'Working' ; // Try to set a variable in session.
2190 header ( 'Location: ' . indexUrl (). '?test_session' ); // Redirect to check stored data.
2192 if ( isset ( $_GET [ 'test_session' ]))
2193 { // Step 3: Sessions are OK. Remove test parameter from URL.
2194 header ( 'Location: ' . indexUrl ());
2198 if (! empty ( $_POST [ 'setlogin' ]) && ! empty ( $_POST [ 'setpassword' ]))
2201 if (! empty ( $_POST [ 'continent' ]) && ! empty ( $_POST [ 'city' ]))
2202 if ( isTZvalid ( $_POST [ 'continent' ], $_POST [ 'city' ]))
2203 $tz = $_POST [ 'continent' ]. '/' . $_POST [ 'city' ];
2204 $GLOBALS [ 'timezone' ] = $tz ;
2205 // Everything is ok, let's create config file.
2206 $GLOBALS [ 'login' ] = $_POST [ 'setlogin' ];
2207 $GLOBALS [ 'salt' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Salt renders rainbow-tables attacks useless.
2208 $GLOBALS [ 'hash' ] = sha1 ( $_POST [ 'setpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
2209 $GLOBALS [ 'title' ] = ( empty ( $_POST [ 'title' ]) ? 'Shared links on ' . htmlspecialchars ( indexUrl ()) : $_POST [ 'title' ] );
2210 $GLOBALS [ 'config' ][ 'ENABLE_UPDATECHECK' ] = ! empty ( $_POST [ 'updateCheck' ]);
2212 echo '<script>alert("Shaarli is now configured. Please enter your login/password and start shaaring your links!");document.location= \' ?do=login \' ;</script>' ;
2216 // Display config form:
2217 list ( $timezone_form , $timezone_js ) = templateTZform ();
2218 $timezone_html = '' ; if ( $timezone_form != '' ) $timezone_html = '<tr><td><b>Timezone:</b></td><td>' . $timezone_form . '</td></tr>' ;
2220 $PAGE = new pageBuilder
;
2221 $PAGE- > assign ( 'timezone_html' , $timezone_html );
2222 $PAGE- > assign ( 'timezone_js' , $timezone_js );
2223 $PAGE- > renderPage ( 'install' );
2227 // Generates the timezone selection form and JavaScript.
2228 // Input: (optional) current timezone (can be 'UTC/UTC'). It will be pre-selected.
2229 // Output: array(html,js)
2230 // Example: list($htmlform,$js) = templateTZform('Europe/Paris'); // Europe/Paris pre-selected.
2231 // Returns array('','') if server does not support timezones list. (e.g. PHP 5.1 on free.fr)
2232 function templateTZform ( $ptz = false )
2234 if ( function_exists ( 'timezone_identifiers_list' )) // because of old PHP version (5.1) which can be found on free.fr
2236 // Try to split the provided timezone.
2237 if ( $ptz == false ) { $l
= timezone_identifiers_list (); $ptz
= $l
[ 0 ]; }
2238 $spos = strpos ( $ptz , '/' ); $pcontinent = substr ( $ptz , 0 , $spos ); $pcity = substr ( $ptz , $spos +
1 );
2240 // Display config form:
2241 $timezone_form = '' ;
2243 // The list is in the form "Europe/Paris", "America/Argentina/Buenos_Aires"...
2244 // We split the list in continents/cities.
2245 $continents = array ();
2247 foreach ( timezone_identifiers_list () as $tz )
2249 if ( $tz == 'UTC' ) $tz = 'UTC/UTC' ;
2250 $spos = strpos ( $tz , '/' );
2253 $continent = substr ( $tz , 0 , $spos ); $city = substr ( $tz , $spos +
1 );
2254 $continents [ $continent ]= 1 ;
2255 if (! isset ( $cities [ $continent ])) $cities [ $continent ]= '' ;
2256 $cities [ $continent ].= '<option value="' . $city . '"' .( $pcity == $city ? ' selected' : '' ). '>' . $city . '</option>' ;
2259 $continents_html = '' ;
2260 $continents = array_keys ( $continents );
2261 foreach ( $continents as $continent )
2262 $continents_html .= '<option value="' . $continent . '"' .( $pcontinent == $continent ? ' selected' : '' ). '>' . $continent . '</option>' ;
2263 $cities_html = $cities [ $pcontinent ];
2264 $timezone_form = "Continent: <select name= \" continent \" id= \" continent \" onChange= \" onChangecontinent(); \" > ${continents_html} </select>" ;
2265 $timezone_form .= " City: <select name= \" city \" id= \" city \" > ${cities[$pcontinent]} </select><br />" ;
2266 $timezone_js = "<script>" ;
2267 $timezone_js .= "function onChangecontinent() {document.getElementById(\"city\").innerHTML = citiescontinent[document.getElementById(\"continent\").value];} " ;
2268 $timezone_js .= "var citiescontinent = " . json_encode ( $cities ). ";" ;
2269 $timezone_js .= "</script>" ;
2270 return array ( $timezone_form , $timezone_js );
2272 return array ( '' , '' );
2275 // Tells if a timezone is valid or not.
2276 // If not valid, returns false.
2277 // If system does not support timezone list, returns false.
2278 function isTZvalid ( $continent , $city )
2280 $tz = $continent . '/' . $city ;
2281 if ( function_exists ( 'timezone_identifiers_list' )) // because of old PHP version (5.1) which can be found on free.fr
2283 if ( in_array ( $tz , timezone_identifiers_list ())) // it's a valid timezone?
2288 if (! function_exists ( 'json_encode' )) {
2289 function json_encode ( $data ) {
2290 switch ( $type = gettype ( $data )) {
2294 return ( $data ? 'true' : 'false' );
2300 return '"' . addslashes ( $data ) . '"' ;
2302 $data = get_object_vars ( $data );
2304 $output_index_count = 0 ;
2305 $output_indexed = array ();
2306 $output_associative = array ();
2307 foreach ( $data as $key => $value ) {
2308 $output_indexed [] = json_encode ( $value );
2309 $output_associative [] = json_encode ( $key ) . ':' . json_encode ( $value );
2310 if ( $output_index_count !== NULL && $output_index_count ++
!== $key ) {
2311 $output_index_count = NULL ;
2314 if ( $output_index_count !== NULL ) {
2315 return '[' . implode ( ',' , $output_indexed ) . ']' ;
2317 return ' {' . implode(',', $output_associative) . '} ' ;
2320 return '' ; // Not supported
2325 // Re-write configuration file according to globals.
2326 // Requires some $GLOBALS to be set (login,hash,salt,title).
2327 // If the config file cannot be saved, an error message is displayed and the user is redirected to "Tools" menu.
2328 // (otherwise, the function simply returns.)
2329 function writeConfig ()
2331 if ( is_file ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]) && ! isLoggedIn ()) die ( 'You are not authorized to alter config.' ); // Only logged in user can alter config.
2332 $config = '<?php $GLOBALS [ \' login \' ]=' . var_export ( $GLOBALS [ 'login' ], true ). '; $GLOBALS [ \' hash \' ]=' . var_export ( $GLOBALS [ 'hash' ], true ). '; $GLOBALS [ \' salt \' ]=' . var_export ( $GLOBALS [ 'salt' ], true ). '; ' ;
2333 $config .= ' $GLOBALS [ \' timezone \' ]=' . var_export ( $GLOBALS [ 'timezone' ], true ). '; date_default_timezone_set(' . var_export ( $GLOBALS [ 'timezone' ], true ). '); $GLOBALS [ \' title \' ]=' . var_export ( $GLOBALS [ 'title' ], true ). ';' ;
2334 $config .= ' $GLOBALS [ \' titleLink \' ]=' . var_export ( $GLOBALS [ 'titleLink' ], true ). '; ' ;
2335 $config .= ' $GLOBALS [ \' redirector \' ]=' . var_export ( $GLOBALS [ 'redirector' ], true ). '; ' ;
2336 $config .= ' $GLOBALS [ \' disablesessionprotection \' ]=' . var_export ( $GLOBALS [ 'disablesessionprotection' ], true ). '; ' ;
2337 $config .= ' $GLOBALS [ \' disablejquery \' ]=' . var_export ( $GLOBALS [ 'disablejquery' ], true ). '; ' ;
2338 $config .= ' $GLOBALS [ \' privateLinkByDefault \' ]=' . var_export ( $GLOBALS [ 'privateLinkByDefault' ], true ). '; ' ;
2339 $config .= ' $GLOBALS [ \' config \' ][ \' ENABLE_RSS_PERMALINKS \' ]=' . var_export ( $GLOBALS [ 'config' ][ 'ENABLE_RSS_PERMALINKS' ], true ). '; ' ;
2340 $config .= ' $GLOBALS [ \' config \' ][ \' ENABLE_UPDATECHECK \' ]=' . var_export ( $GLOBALS [ 'config' ][ 'ENABLE_UPDATECHECK' ], true ). '; ' ;
2341 $config .= ' $GLOBALS [ \' config \' ][ \' HIDE_PUBLIC_LINKS \' ]=' . var_export ( $GLOBALS [ 'config' ][ 'HIDE_PUBLIC_LINKS' ], true ). '; ' ;
2343 if (! file_put_contents ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ], $config ) || strcmp ( file_get_contents ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]), $config )!= 0 )
2345 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>' ;
2350 /* Because some f*cking services like flickr require an extra HTTP request to get the thumbnail URL,
2351 I have deported the thumbnail URL code generation here, otherwise this would slow down page generation.
2352 The following function takes the URL a link (e.g. a flickr page) and return the proper thumbnail.
2353 This function is called by passing the URL:
2354 http://mywebsite.com/shaarli/?do=genthumbnail&hmac=[HMAC]&url=[URL]
2355 [URL] is the URL of the link (e.g. a flickr page)
2356 [HMAC] is the signature for the [URL] (so that these URL cannot be forged).
2357 The function below will fetch the image from the webservice and store it in the cache.
2359 function genThumbnail ()
2361 // Make sure the parameters in the URL were generated by us.
2362 $sign = hash_hmac ( 'sha256' , $_GET [ 'url' ], $GLOBALS [ 'salt' ]);
2363 if ( $sign != $_GET [ 'hmac' ]) die ( 'Naughty boy!' );
2365 // Let's see if we don't already have the image for this URL in the cache.
2366 $thumbname = hash ( 'sha1' , $_GET [ 'url' ]). '.jpg' ;
2367 if ( is_file ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ))
2368 { // We have the thumbnail, just serve it:
2369 header ( 'Content-Type: image/jpeg' );
2370 echo file_get_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname );
2373 // We may also serve a blank image (if service did not respond)
2374 $blankname = hash ( 'sha1' , $_GET [ 'url' ]). '.gif' ;
2375 if ( is_file ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $blankname ))
2377 header ( 'Content-Type: image/gif' );
2378 echo file_get_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $blankname );
2382 // Otherwise, generate the thumbnail.
2383 $url = $_GET [ 'url' ];
2384 $domain = parse_url ( $url , PHP_URL_HOST
);
2386 if ( $domain == 'flickr.com' || endsWith ( $domain , '.flickr.com' ))
2388 // Crude replacement to handle new flickr domain policy (They prefer www. now)
2389 $url = str_replace ( 'http://flickr.com/' , 'http://www.flickr.com/' , $url );
2391 // Is this a link to an image, or to a flickr page ?
2393 if ( endswith ( parse_url ( $url , PHP_URL_PATH
), '.jpg' ))
2394 { // This is a direct link to an image. e.g. http://farm1.staticflickr.com/5/5921913_ac83ed27bd_o.jpg
2395 preg_match ( '!(http://farm\d+\.staticflickr\.com/\d+/\d+_\w+_)\w.jpg!' , $url , $matches );
2396 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ]. 'm.jpg' ;
2398 else // This is a flickr page (html)
2400 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 20 ); // Get the flickr html page.
2401 if ( strpos ( $httpstatus , '200 OK' )!== false )
2403 // flickr now nicely provides the URL of the thumbnail in each flickr page.
2404 preg_match ( '!<link rel= \" image_src \" href= \" (.+?) \" !' , $data , $matches );
2405 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ];
2407 // In albums (and some other pages), the link rel="image_src" is not provided,
2408 // but flickr provides:
2409 // <meta property="og:image" content="http://farm4.staticflickr.com/3398/3239339068_25d13535ff_z.jpg" />
2412 preg_match ( '!<meta property= \" og:image \" content= \" (.+?) \" !' , $data , $matches );
2413 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ];
2419 { // Let's download the image.
2420 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 10 ); // Image is 240x120, so 10 seconds to download should be enough.
2421 if ( strpos ( $httpstatus , '200 OK' )!== false )
2423 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname , $data ); // Save image to cache.
2424 header ( 'Content-Type: image/jpeg' );
2431 elseif ( $domain == 'vimeo.com' )
2433 // This is more complex: we have to perform a HTTP request, then parse the result.
2434 // Maybe we should deport this to JavaScript ? Example: http://stackoverflow.com/questions/1361149/get-img-thumbnails-from-vimeo/4285098#4285098
2435 $vid = substr ( parse_url ( $url , PHP_URL_PATH
), 1 );
2436 list ( $httpstatus , $headers , $data ) = getHTTP ( 'https://vimeo.com/api/v2/video/' . htmlspecialchars ( $vid ). '.php' , 5 );
2437 if ( strpos ( $httpstatus , '200 OK' )!== false )
2439 $t = unserialize ( $data );
2440 $imageurl = $t [ 0 ][ 'thumbnail_medium' ];
2441 // Then we download the image and serve it to our client.
2442 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 10 );
2443 if ( strpos ( $httpstatus , '200 OK' )!== false )
2445 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname , $data ); // Save image to cache.
2446 header ( 'Content-Type: image/jpeg' );
2453 elseif ( $domain == 'ted.com' || endsWith ( $domain , '.ted.com' ))
2455 // The thumbnail for TED talks is located in the <link rel="image_src" [...]> tag on that page
2456 // http://www.ted.com/talks/mikko_hypponen_fighting_viruses_defending_the_net.html
2457 // <link rel="image_src" href="http://images.ted.com/images/ted/28bced335898ba54d4441809c5b1112ffaf36781_389x292.jpg" />
2458 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 5 );
2459 if ( strpos ( $httpstatus , '200 OK' )!== false )
2461 // Extract the link to the thumbnail
2462 preg_match ( '!link rel="image_src" href="(http://images.ted.com/images/ted/.+_\d+x\d+\.jpg)"!' , $data , $matches );
2463 if (! empty ( $matches [ 1 ]))
2464 { // Let's download the image.
2465 $imageurl = $matches [ 1 ];
2466 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 20 ); // No control on image size, so wait long enough.
2467 if ( strpos ( $httpstatus , '200 OK' )!== false )
2469 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2470 file_put_contents ( $filepath , $data ); // Save image to cache.
2471 if ( resizeImage ( $filepath ))
2473 header ( 'Content-Type: image/jpeg' );
2474 echo file_get_contents ( $filepath );
2482 elseif ( $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' ))
2484 // There is no thumbnail available for xkcd comics, so download the whole image and resize it.
2485 // http://xkcd.com/327/
2486 // <img src="http://imgs.xkcd.com/comics/exploits_of_a_mom.png" title="<BLABLA>" alt="<BLABLA>" />
2487 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 5 );
2488 if ( strpos ( $httpstatus , '200 OK' )!== false )
2490 // Extract the link to the thumbnail
2491 preg_match ( '!<img src="(http://imgs.xkcd.com/comics/.*)" title="[^s]!' , $data , $matches );
2492 if (! empty ( $matches [ 1 ]))
2493 { // Let's download the image.
2494 $imageurl = $matches [ 1 ];
2495 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 20 ); // No control on image size, so wait long enough.
2496 if ( strpos ( $httpstatus , '200 OK' )!== false )
2498 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2499 file_put_contents ( $filepath , $data ); // Save image to cache.
2500 if ( resizeImage ( $filepath ))
2502 header ( 'Content-Type: image/jpeg' );
2503 echo file_get_contents ( $filepath );
2513 // For all other domains, we try to download the image and make a thumbnail.
2514 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 30 ); // We allow 30 seconds max to download (and downloads are limited to 4 Mb)
2515 if ( strpos ( $httpstatus , '200 OK' )!== false )
2517 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2518 file_put_contents ( $filepath , $data ); // Save image to cache.
2519 if ( resizeImage ( $filepath ))
2521 header ( 'Content-Type: image/jpeg' );
2522 echo file_get_contents ( $filepath );
2529 // Otherwise, return an empty image (8x8 transparent gif)
2530 $blankgif = base64_decode ( 'R0lGODlhCAAIAIAAAP///////yH5BAEKAAEALAAAAAAIAAgAAAIHjI+py+1dAAA7' );
2531 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $blankname , $blankgif ); // Also put something in cache so that this URL is not requested twice.
2532 header ( 'Content-Type: image/gif' );
2536 // Make a thumbnail of the image (to width: 120 pixels)
2537 // Returns true if success, false otherwise.
2538 function resizeImage ( $filepath )
2540 if (! function_exists ( 'imagecreatefromjpeg' )) return false ; // GD not present: no thumbnail possible.
2542 // Trick: some stupid people rename GIF as JPEG... or else.
2543 // So we really try to open each image type whatever the extension is.
2544 $header = file_get_contents ( $filepath , false , NULL , 0 , 256 ); // Read first 256 bytes and try to sniff file type.
2546 $i = strpos ( $header , 'GIF8' ); if (( $i !== false ) && ( $i == 0 )) $im = imagecreatefromgif ( $filepath ); // Well this is crude, but it should be enough.
2547 $i = strpos ( $header , 'PNG' ); if (( $i !== false ) && ( $i == 1 )) $im = imagecreatefrompng ( $filepath );
2548 $i = strpos ( $header , 'JFIF' ); if ( $i !== false ) $im = imagecreatefromjpeg ( $filepath );
2549 if (! $im ) return false ; // Unable to open image (corrupted or not an image)
2552 $ystart = 0 ; $yheight = $h ;
2553 if ( $h > $w ) { $ystart
= ( $h
/ 2 )-( $w
/ 2 ); $yheight
= $w
/ 2 ; }
2554 $nw = 120 ; // Desired width
2555 $nh = min ( floor (( $h * $nw )/ $w ), 120 ); // Compute new width/height, but maximum 120 pixels height.
2557 $im2 = imagecreatetruecolor ( $nw , $nh );
2558 imagecopyresampled ( $im2 , $im , 0 , 0 , 0 , $ystart , $nw , $nh , $w , $yheight );
2559 imageinterlace ( $im2 , true ); // For progressive JPEG.
2560 $tempname = $filepath . '_TEMP.jpg' ;
2561 imagejpeg ( $im2 , $tempname , 90 );
2565 rename ( $tempname , $filepath ); // Overwrite original picture with thumbnail.
2569 // Invalidate caches when the database is changed or the user logs out.
2570 // (e.g. tags cache).
2571 function invalidateCaches ()
2573 unset ( $_SESSION [ 'tags' ]); // Purge cache attached to session.
2574 pageCache
:: purgeCache (); // Purge page cache shared by sessions.
2577 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=genthumbnail' )) { genThumbnail (); exit ; } // Thumbnail generation/cache does not need the link database.
2578 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=rss' )) { showRSS (); exit ; }
2579 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=atom' )) { showATOM (); exit ; }
2580 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=dailyrss' )) { showDailyRSS (); exit ; }
2581 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=daily' )) { showDaily (); exit ; }
2582 if (! isset ( $_SESSION [ 'LINKS_PER_PAGE' ])) $_SESSION [ 'LINKS_PER_PAGE' ]= $GLOBALS [ 'config' ][ 'LINKS_PER_PAGE' ];