]>
git.immae.eu Git - github/shaarli/Shaarli.git/blob - index.php
2 // Shaarli 0.0.42 beta - Shaare your links...
3 // The personal, minimalist, super-fast, no-database Delicious clone. By sebsauvage.net
4 // http://sebsauvage.net/wiki/doku.php?id=php:shaarli
5 // Licence: http://www.opensource.org/licenses/zlib-license.php
6 // Requires: PHP 5.1.x (but autocomplete fields will only work if you have PHP 5.2.x)
7 // -----------------------------------------------------------------------------------------------
8 // NEVER TRUST IN PHP.INI
9 // Some hosts do not define a default timezone in php.ini,
10 // so we have to do this for avoid the strict standard error.
11 date_default_timezone_set ( 'UTC' );
13 // -----------------------------------------------------------------------------------------------
14 // Hardcoded parameter (These parameters can be overwritten by creating the file /config/options.php)
15 $GLOBALS [ 'config' ][ 'DATADIR' ] = 'data' ; // Data subdirectory
16 $GLOBALS [ 'config' ][ 'CONFIG_FILE' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/config.php' ; // Configuration file (user login/password)
17 $GLOBALS [ 'config' ][ 'DATASTORE' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/datastore.php' ; // Data storage file.
18 $GLOBALS [ 'config' ][ 'LINKS_PER_PAGE' ] = 20 ; // Default links per page.
19 $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/ipbans.php' ; // File storage for failures and bans.
20 $GLOBALS [ 'config' ][ 'BAN_AFTER' ] = 4 ; // Ban IP after this many failures.
21 $GLOBALS [ 'config' ][ 'BAN_DURATION' ] = 1800 ; // Ban duration for IP address after login failures (in seconds) (1800 sec. = 30 minutes)
22 $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ] = false ; // If true, anyone can add/edit/delete links without having to login
23 $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] = false ; // If true, the moment when links were saved are not shown to users that are not logged in.
24 $GLOBALS [ 'config' ][ 'SHOW_ATOM' ] = false ; // If true, an extra "ATOM feed" button will be displayed in the toolbar
25 $GLOBALS [ 'config' ][ 'ENABLE_THUMBNAILS' ] = true ; // Enable thumbnails in links.
26 $GLOBALS [ 'config' ][ 'CACHEDIR' ] = 'cache' ; // Cache directory for thumbnails for SLOW services (like flickr)
27 $GLOBALS [ 'config' ][ 'PAGECACHE' ] = 'pagecache' ; // Page cache directory.
28 $GLOBALS [ 'config' ][ 'ENABLE_LOCALCACHE' ] = true ; // Enable Shaarli to store thumbnail in a local cache. Disable to reduce web space usage.
29 $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ] = '' ; // PubSubHubbub support. Put an empty string to disable, or put your hub url here to enable.
30 $GLOBALS [ 'config' ][ 'RAINTPL_TMP' ] = 'tmp/' ; // Raintpl cache directory (keep the trailing slash!)
31 $GLOBALS [ 'config' ][ 'RAINTPL_TPL' ] = 'tpl/' ; // Raintpl template directory (keep the trailing slash!)
32 $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ] = $GLOBALS [ 'config' ][ 'DATADIR' ]. '/lastupdatecheck.txt' ; // For updates check of Shaarli.
33 $GLOBALS [ 'config' ][ 'UPDATECHECK_INTERVAL' ] = 86400 ; // Updates check frequency for Shaarli. 86400 seconds=24 hours
34 // Note: You must have publisher.php in the same directory as Shaarli index.php
35 $GLOBALS [ 'config' ][ 'ARCHIVE_ORG' ] = false ; // For each link, add a link to an archived version on archive.org
36 // -----------------------------------------------------------------------------------------------
37 // You should not touch below (or at your own risks!)
38 // Optional config file.
39 if ( is_file ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/options.php' )) require ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/options.php' );
41 define ( 'shaarli_version' , '0.0.42 beta' );
42 define ( 'PHPPREFIX' , '<?php /* ' ); // Prefix to encapsulate data in PHP code.
43 define ( 'PHPSUFFIX' , ' */ ?>' ); // Suffix to encapsulate data in PHP code.
44 // http://server.com/x/shaarli --> /shaarli/
45 define ( 'WEB_PATH' , substr ( $_SERVER [ "REQUEST_URI" ], 0 , 1 +
strrpos ( $_SERVER [ "REQUEST_URI" ], '/' , 0 )));
47 // Force cookie path (but do not change lifetime)
48 $cookie = session_get_cookie_params ();
49 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
50 session_set_cookie_params ( $cookie [ 'lifetime' ], $cookiedir , $_SERVER [ 'HTTP_HOST' ]); // Set default cookie expiration and path.
52 // Set session parameters on server side.
53 define ( 'INACTIVITY_TIMEOUT' , 3600 ); // (in seconds). If the user does not access any page within this time, his/her session is considered expired.
54 ini_set ( 'session.use_cookies' , 1 ); // Use cookies to store session.
55 ini_set ( 'session.use_only_cookies' , 1 ); // Force cookies for session (phpsessionID forbidden in URL).
56 ini_set ( 'session.use_trans_sid' , false ); // Prevent PHP form using sessionID in URL if cookies are disabled.
57 session_name ( 'shaarli' );
58 if ( session_id () == '' ) session_start (); // Start session if needed (Some server auto-start sessions).
61 ini_set ( 'max_input_time' , '60' ); // High execution time in case of problematic imports/exports.
62 ini_set ( 'memory_limit' , '128M' ); // Try to set max upload file size and read (May not work on some hosts).
63 ini_set ( 'post_max_size' , '16M' );
64 ini_set ( 'upload_max_filesize' , '16M' );
66 error_reporting ( E_ALL^E_WARNING
); // See all error except warnings.
67 //error_reporting(-1); // See all errors (for debugging only)
69 include "inc/rain.tpl.class.php" ; //include Rain TPL
70 raintpl
:: $tpl_dir = $GLOBALS [ 'config' ][ 'RAINTPL_TPL' ]; // template directory
71 raintpl
:: $cache_dir = $GLOBALS [ 'config' ][ 'RAINTPL_TMP' ]; // cache directory
73 ob_start (); // Output buffering for the page cache.
76 // In case stupid admin has left magic_quotes enabled in php.ini:
77 if ( get_magic_quotes_gpc ())
79 function stripslashes_deep ( $value ) { $value
= is_array ( $value
) ? array_map ( 'stripslashes_deep' , $value
) : stripslashes ( $value
); return $value
; }
80 $_POST = array_map ( 'stripslashes_deep' , $_POST );
81 $_GET = array_map ( 'stripslashes_deep' , $_GET );
82 $_COOKIE = array_map ( 'stripslashes_deep' , $_COOKIE );
85 // Prevent caching on client side or proxy: (yes, it's ugly)
86 header ( "Last-Modified: " . gmdate ( "D, d M Y H:i:s" ) . " GMT" );
87 header ( "Cache-Control: no-store, no-cache, must-revalidate" );
88 header ( "Cache-Control: post-check=0, pre-check=0" , false );
89 header ( "Pragma: no-cache" );
91 // Directories creations (Note that your web host may require different rights than 705.)
92 if (! is_writable ( realpath ( dirname ( __FILE__
)))) die ( '<pre>ERROR: Shaarli does not have the right to write in its own directory (' . realpath ( dirname ( __FILE__
)). ').</pre>' );
94 // Handling of old config file which do not have the new parameters.
95 if ( empty ( $GLOBALS [ 'title' ])) $GLOBALS [ 'title' ]= 'Shared links on ' . htmlspecialchars ( indexUrl ());
96 if ( empty ( $GLOBALS [ 'timezone' ])) $GLOBALS [ 'timezone' ]= date_default_timezone_get ();
97 if ( empty ( $GLOBALS [ 'redirector' ])) $GLOBALS [ 'redirector' ]= '' ;
98 if ( empty ( $GLOBALS [ 'disablesessionprotection' ])) $GLOBALS [ 'disablesessionprotection' ]= false ;
99 if ( empty ( $GLOBALS [ 'disablejquery' ])) $GLOBALS [ 'disablejquery' ]= false ;
100 if ( empty ( $GLOBALS [ 'privateLinkByDefault' ])) $GLOBALS [ 'privateLinkByDefault' ]= false ;
101 if ( empty ( $GLOBALS [ 'titleLink' ])) $GLOBALS [ 'titleLink' ]= '?' ;
102 // I really need to rewrite Shaarli with a proper configuation manager.
104 // Run config screen if first run:
105 if (! is_file ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ])) install ();
107 require $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]; // Read login/password hash into $GLOBALS.
109 // a token depending of deployment salt, user password, and the current ip
110 define ( 'STAY_SIGNED_IN_TOKEN' , sha1 ( $GLOBALS [ 'hash' ]. $_SERVER [ "REMOTE_ADDR" ]. $GLOBALS [ 'salt' ]));
112 autoLocale (); // Sniff browser language and set date format accordingly.
113 header ( 'Content-Type: text/html; charset=utf-8' ); // We use UTF-8 for proper international characters handling.
116 function checkphpversion ()
118 if ( version_compare ( PHP_VERSION
, '5.1.0' ) < 0 )
120 header ( 'Content-Type: text/plain; charset=utf-8' );
121 echo 'Your server supports PHP ' . PHP_VERSION
. '. Shaarli requires at least php 5.1.0, and thus cannot run. Sorry.' ;
126 // Checks if an update is available for Shaarli.
127 // (at most once a day, and only for registered user.)
128 // Output: '' = no new version.
129 // other= the available version.
130 function checkUpdate ()
132 if (! isLoggedIn ()) return '' ; // Do not check versions for visitors.
134 // Get latest version number at most once a day.
135 if (! is_file ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ]) || ( filemtime ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ])< time ()-( $GLOBALS [ 'config' ][ 'UPDATECHECK_INTERVAL' ])))
137 $version = shaarli_version
;
138 list ( $httpstatus , $headers , $data ) = getHTTP ( 'https://raw.githubusercontent.com/shaarli/Shaarli/master/shaarli_version.txt' , 2 );
139 if ( strpos ( $httpstatus , '200 OK' )!== false ) $version = $data ;
140 // If failed, never mind. We don't want to bother the user with that.
141 file_put_contents ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ], $version ); // touch file date
144 $newestversion = file_get_contents ( $GLOBALS [ 'config' ][ 'UPDATECHECK_FILENAME' ]);
145 if ( version_compare ( $newestversion , shaarli_version
)== 1 ) return $newestversion ;
150 // -----------------------------------------------------------------------------------------------
151 // Simple cache system (mainly for the RSS/ATOM feeds).
155 private $url ; // Full URL of the page to cache (typically the value returned by pageUrl())
156 private $shouldBeCached ; // boolean: Should this url be cached?
157 private $filename ; // Name of the cache file for this url.
160 $url = URL (typically the value returned by pageUrl())
161 $shouldBeCached = boolean. If false, the cache will be disabled.
163 public function __construct ( $url , $shouldBeCached )
166 $this- > filename
= $GLOBALS [ 'config' ][ 'PAGECACHE' ]. '/' . sha1 ( $url ). '.cache' ;
167 $this- > shouldBeCached
= $shouldBeCached ;
170 // If the page should be cached and a cached version exists,
171 // returns the cached version (otherwise, return null).
172 public function cachedVersion ()
174 if (! $this- > shouldBeCached
) return null ;
175 if ( is_file ( $this- > filename
)) { return file_get_contents ( $this
-> filename
); exit ; }
179 // Put a page in the cache.
180 public function cache ( $page )
182 if (! $this- > shouldBeCached
) return ;
183 file_put_contents ( $this- > filename
, $page );
186 // Purge the whole cache.
187 // (call with pageCache::purgeCache())
188 public static function purgeCache ()
190 if ( is_dir ( $GLOBALS [ 'config' ][ 'PAGECACHE' ]))
192 $handler = opendir ( $GLOBALS [ 'config' ][ 'PAGECACHE' ]);
193 if ( $handler !== false )
195 while (( $filename = readdir ( $handler ))!== false )
197 if ( endsWith ( $filename , '.cache' )) { unlink ( $GLOBALS
[ 'config' ][ 'PAGECACHE' ]. '/' . $filename
); }
207 // -----------------------------------------------------------------------------------------------
209 function logm ( $message )
211 $t = strval ( date ( 'Y/m/d_H:i:s' )). ' - ' . $_SERVER [ "REMOTE_ADDR" ]. ' - ' . strval ( $message ). " \n " ;
212 file_put_contents ( $GLOBALS [ 'config' ][ 'DATADIR' ]. '/log.txt' , $t , FILE_APPEND
);
215 // Same as nl2br(), but escapes < and >
216 function nl2br_escaped ( $html )
218 return str_replace ( '>' , '>' , str_replace ( '<' , '<' , nl2br ( $html )));
221 /* Returns the small hash of a string, using RFC 4648 base64url format
222 e.g. smallHash('20111006_131924') --> yZH23w
224 - are unique (well, as unique as crc32, at last)
225 - are always 6 characters long.
226 - only use the following characters: a-z A-Z 0-9 - _ @
227 - are NOT cryptographically secure (they CAN be forged)
228 In Shaarli, they are used as a tinyurl-like link to individual entries.
230 function smallHash ( $text )
232 $t = rtrim ( base64_encode ( hash ( 'crc32' , $text , true )), '=' );
233 return strtr ( $t , '+/' , '-_' );
236 // In a string, converts URLs to clickable links.
237 // Function inspired from http://www.php.net/manual/en/function.preg-replace.php#85722
238 function text2clickable ( $url )
240 $redir = empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ];
241 return preg_replace ( '!(((?:https?|ftp|file)://|apt:|magnet:)\S+[[:alnum:]]/?)!si' , '<a href="' . $redir . ' $1" rel="nofollow"> $1 </a>' , $url );
244 // This function inserts where relevant so that multiple spaces are properly displayed in HTML
245 // even in the absence of <pre> (This is used in description to keep text formatting)
246 function keepMultipleSpaces ( $text )
248 return str_replace ( ' ' , ' ' , $text );
251 // ------------------------------------------------------------------------------------------
252 // Sniff browser language to display dates in the right format automatically.
253 // (Note that is may not work on your server if the corresponding local is not installed.)
254 function autoLocale ()
256 $loc = 'en_US' ; // Default if browser does not send HTTP_ACCEPT_LANGUAGE
257 if ( isset ( $_SERVER [ 'HTTP_ACCEPT_LANGUAGE' ])) // e.g. "fr,fr-fr;q=0.8,en;q=0.5,en-us;q=0.3"
258 { // (It's a bit crude, but it works very well. Preferred language is always presented first.)
259 if ( preg_match ( '/([a-z] {2} (-[a-z] {2} )?)/i' , $_SERVER [ 'HTTP_ACCEPT_LANGUAGE' ], $matches )) $loc = $matches [ 1 ];
261 setlocale ( LC_TIME
, $loc ); // LC_TIME = Set local for date/time format only.
264 // ------------------------------------------------------------------------------------------
265 // PubSubHubbub protocol support (if enabled) [UNTESTED]
266 // (Source: http://aldarone.fr/les-flux-rss-shaarli-et-pubsubhubbub/ )
267 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ])) include './publisher.php' ;
270 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
272 $p = new Publisher ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]);
274 indexUrl (). '?do=atom' ,
277 $p- > publish_update ( $topic_url );
281 // ------------------------------------------------------------------------------------------
282 // Session management
284 // Returns the IP address of the client (Used to prevent session cookie hijacking.)
287 $ip = $_SERVER [ "REMOTE_ADDR" ];
288 // Then we use more HTTP headers to prevent session hijacking from users behind the same proxy.
289 if ( isset ( $_SERVER [ 'HTTP_X_FORWARDED_FOR' ])) { $ip
= $ip
. '_' . $_SERVER
[ 'HTTP_X_FORWARDED_FOR' ]; }
290 if ( isset ( $_SERVER [ 'HTTP_CLIENT_IP' ])) { $ip
= $ip
. '_' . $_SERVER
[ 'HTTP_CLIENT_IP' ]; }
294 function fillSessionInfo () {
295 $_SESSION [ 'uid' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Generate unique random number (different than phpsessionid)
296 $_SESSION [ 'ip' ]= allIPs (); // We store IP address(es) of the client to make sure session is not hijacked.
297 $_SESSION [ 'username' ]= $GLOBALS [ 'login' ];
298 $_SESSION [ 'expires_on' ]= time () +INACTIVITY_TIMEOUT
; // Set session expiration.
301 // Check that user/password is correct.
302 function check_auth ( $login , $password )
304 $hash = sha1 ( $password . $login . $GLOBALS [ 'salt' ]);
305 if ( $login == $GLOBALS [ 'login' ] && $hash == $GLOBALS [ 'hash' ])
306 { // Login/password is correct.
308 logm ( 'Login successful' );
311 logm ( 'Login failed for user ' . $login );
315 // Returns true if the user is logged in.
316 function isLoggedIn ()
318 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) return true ;
320 if (! isset ( $GLOBALS [ 'login' ])) return false ; // Shaarli is not configured yet.
322 if (@ $_COOKIE [ 'shaarli_staySignedIn' ]=== STAY_SIGNED_IN_TOKEN
)
327 // If session does not exist on server side, or IP address has changed, or session has expired, logout.
328 if ( empty ( $_SESSION [ 'uid' ]) || ( $GLOBALS [ 'disablesessionprotection' ]== false && $_SESSION [ 'ip' ]!= allIPs ()) || time ()>= $_SESSION [ 'expires_on' ])
333 if (! empty ( $_SESSION [ 'longlastingsession' ])) $_SESSION [ 'expires_on' ]= time () +
$_SESSION [ 'longlastingsession' ]; // In case of "Stay signed in" checked.
334 else $_SESSION [ 'expires_on' ]= time () +INACTIVITY_TIMEOUT
; // Standard session expiration date.
340 function logout () { if ( isset ( $_SESSION
)) { unset ( $_SESSION
[ 'uid' ]); unset ( $_SESSION
[ 'ip' ]); unset ( $_SESSION
[ 'username' ]); unset ( $_SESSION
[ 'privateonly' ]); }
341 setcookie ( 'shaarli_staySignedIn' , FALSE , 0 , WEB_PATH
);
345 // ------------------------------------------------------------------------------------------
346 // Brute force protection system
347 // Several consecutive failed logins will ban the IP address for 30 minutes.
348 if (! is_file ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ])) file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( array ( 'FAILURES' => array (), 'BANS' => array ()), true ). "; \n ?>" );
349 include $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ];
350 // Signal a failed login. Will ban the IP if too many failures:
351 function ban_loginFailed ()
353 $ip = $_SERVER [ "REMOTE_ADDR" ]; $gb = $GLOBALS [ 'IPBANS' ];
354 if (! isset ( $gb [ 'FAILURES' ][ $ip ])) $gb [ 'FAILURES' ][ $ip ]= 0 ;
355 $gb [ 'FAILURES' ][ $ip ] ++
;
356 if ( $gb [ 'FAILURES' ][ $ip ]>( $GLOBALS [ 'config' ][ 'BAN_AFTER' ]- 1 ))
358 $gb [ 'BANS' ][ $ip ]= time () +
$GLOBALS [ 'config' ][ 'BAN_DURATION' ];
359 logm ( 'IP address banned from login' );
361 $GLOBALS [ 'IPBANS' ] = $gb ;
362 file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( $gb , true ). "; \n ?>" );
365 // Signals a successful login. Resets failed login counter.
366 function ban_loginOk ()
368 $ip = $_SERVER [ "REMOTE_ADDR" ]; $gb = $GLOBALS [ 'IPBANS' ];
369 unset ( $gb [ 'FAILURES' ][ $ip ]); unset ( $gb [ 'BANS' ][ $ip ]);
370 $GLOBALS [ 'IPBANS' ] = $gb ;
371 file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( $gb , true ). "; \n ?>" );
374 // Checks if the user CAN login. If 'true', the user can try to login.
375 function ban_canLogin ()
377 $ip = $_SERVER [ "REMOTE_ADDR" ]; $gb = $GLOBALS [ 'IPBANS' ];
378 if ( isset ( $gb [ 'BANS' ][ $ip ]))
380 // User is banned. Check if the ban has expired:
381 if ( $gb [ 'BANS' ][ $ip ]<= time ())
382 { // Ban expired, user can try to login again.
384 unset ( $gb [ 'FAILURES' ][ $ip ]); unset ( $gb [ 'BANS' ][ $ip ]);
385 file_put_contents ( $GLOBALS [ 'config' ][ 'IPBANS_FILENAME' ], "<?php \n\$ GLOBALS['IPBANS']=" . var_export ( $gb , true ). "; \n ?>" );
386 return true ; // Ban has expired, user can login.
388 return false ; // User is banned.
390 return true ; // User is not banned.
393 // ------------------------------------------------------------------------------------------
394 // Process login form: Check if login/password is correct.
395 if ( isset ( $_POST [ 'login' ]))
397 if (! ban_canLogin ()) die ( 'I said: NO. You are banned for the moment. Go away.' );
398 if ( isset ( $_POST [ 'password' ]) && tokenOk ( $_POST [ 'token' ]) && ( check_auth ( $_POST [ 'login' ], $_POST [ 'password' ])))
399 { // Login/password is OK.
401 // If user wants to keep the session cookie even after the browser closes:
402 if (! empty ( $_POST [ 'longlastingsession' ]))
404 setcookie ( 'shaarli_staySignedIn' , STAY_SIGNED_IN_TOKEN
, time () +
31536000 , WEB_PATH
);
405 $_SESSION [ 'longlastingsession' ]= 31536000 ; // (31536000 seconds = 1 year)
406 $_SESSION [ 'expires_on' ]= time () +
$_SESSION [ 'longlastingsession' ]; // Set session expiration on server-side.
408 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
409 session_set_cookie_params ( $_SESSION [ 'longlastingsession' ], $cookiedir , $_SERVER [ 'HTTP_HOST' ]); // Set session cookie expiration on client side
410 // Note: Never forget the trailing slash on the cookie path!
411 session_regenerate_id ( true ); // Send cookie with new expiration date to browser.
413 else // Standard session expiration (=when browser closes)
415 $cookiedir = '' ; if ( dirname ( $_SERVER [ 'SCRIPT_NAME' ])!= '/' ) $cookiedir = dirname ( $_SERVER [ "SCRIPT_NAME" ]). '/' ;
416 session_set_cookie_params ( 0 , $cookiedir , $_SERVER [ 'HTTP_HOST' ]); // 0 means "When browser closes"
417 session_regenerate_id ( true );
419 // Optional redirect after login:
420 if ( isset ( $_GET [ 'post' ])) { header ( 'Location: ?post=' . urlencode ( $_GET
[ 'post' ]).(! empty ( $_GET
[ 'title' ])? '&title=' . urlencode ( $_GET
[ 'title' ]): '' ).(! empty ( $_GET
[ 'description' ])? '&description=' . urlencode ( $_GET
[ 'description' ]): '' ).(! empty ( $_GET
[ 'source' ])? '&source=' . urlencode ( $_GET
[ 'source' ]): '' )); exit ; }
421 if ( isset ( $_POST [ 'returnurl' ]))
423 if ( endsWith ( $_POST [ 'returnurl' ], '?do=login' )) { header ( 'Location: ?' ); exit ; } // Prevent loops over login screen.
424 header ( 'Location: ' . $_POST [ 'returnurl' ]); exit ;
426 header ( 'Location: ?' ); exit ;
432 if ( isset ( $_GET [ 'post' ])) { $redir
= '&post=' . urlencode ( $_GET
[ 'post' ]).(! empty ( $_GET
[ 'title' ])? '&title=' . urlencode ( $_GET
[ 'title' ]): '' ).(! empty ( $_GET
[ 'description' ])? '&description=' . urlencode ( $_GET
[ 'description' ]): '' ).(! empty ( $_GET
[ 'source' ])? '&source=' . urlencode ( $_GET
[ 'source' ]): '' ); }
433 echo '<script language="JavaScript">alert("Wrong login/password.");document.location= \' ?do=login' . $redir . ' \' ;</script>' ; // Redirect to login screen.
438 // ------------------------------------------------------------------------------------------
439 // Misc utility functions:
441 // Returns the server URL (including port and http/https), without path.
442 // e.g. "http://myserver.com:8080"
443 // You can append $_SERVER['SCRIPT_NAME'] to get the current script URL.
446 $https = (! empty ( $_SERVER [ 'HTTPS' ]) && ( strtolower ( $_SERVER [ 'HTTPS' ])== 'on' )) || $_SERVER [ "SERVER_PORT" ]== '443' ; // HTTPS detection.
447 $serverport = ( $_SERVER [ "SERVER_PORT" ]== '80' || ( $https && $_SERVER [ "SERVER_PORT" ]== '443' ) ? '' : ':' . $_SERVER [ "SERVER_PORT" ]);
448 return 'http' .( $https ? 's' : '' ). '://' . $_SERVER [ 'HTTP_HOST' ]. $serverport ;
451 // Returns the absolute URL of current script, without the query.
452 // (e.g. http://sebsauvage.net/links/)
455 $scriptname = $_SERVER [ "SCRIPT_NAME" ];
456 // If the script is named 'index.php', we remove it (for better looking URLs,
457 // e.g. http://mysite.com/shaarli/?abcde instead of http://mysite.com/shaarli/index.php?abcde)
458 if ( endswith ( $scriptname , 'index.php' )) $scriptname = substr ( $scriptname , 0 , strlen ( $scriptname )- 9 );
459 return serverUrl () . $scriptname ;
462 // Returns the absolute URL of current script, WITH the query.
463 // (e.g. http://sebsauvage.net/links/?toto=titi&spamspamspam=humbug)
466 return indexUrl ().(! empty ( $_SERVER [ "QUERY_STRING" ]) ? '?' . $_SERVER [ "QUERY_STRING" ] : '' );
469 // Convert post_max_size/upload_max_filesize (e.g. '16M') parameters to bytes.
470 function return_bytes ( $val )
472 $val = trim ( $val ); $last = strtolower ( $val [ strlen ( $val )- 1 ]);
475 case 'g' : $val *= 1024 ;
476 case 'm' : $val *= 1024 ;
477 case 'k' : $val *= 1024 ;
482 // Try to determine max file size for uploads (POST).
483 // Returns an integer (in bytes)
484 function getMaxFileSize ()
486 $size1 = return_bytes ( ini_get ( 'post_max_size' ));
487 $size2 = return_bytes ( ini_get ( 'upload_max_filesize' ));
488 // Return the smaller of two:
489 $maxsize = min ( $size1 , $size2 );
490 // FIXME: Then convert back to readable notations ? (e.g. 2M instead of 2000000)
494 // Tells if a string start with a substring or not.
495 function startsWith ( $haystack , $needle , $case = true )
497 if ( $case ){ return ( strcmp ( substr ( $haystack
, 0 , strlen ( $needle
)), $needle
)=== 0 );}
498 return ( strcasecmp ( substr ( $haystack , 0 , strlen ( $needle )), $needle )=== 0 );
501 // Tells if a string ends with a substring or not.
502 function endsWith ( $haystack , $needle , $case = true )
504 if ( $case ){ return ( strcmp ( substr ( $haystack
, strlen ( $haystack
) - strlen ( $needle
)), $needle
)=== 0 );}
505 return ( strcasecmp ( substr ( $haystack , strlen ( $haystack ) - strlen ( $needle )), $needle )=== 0 );
508 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a timestamp (Unix epoch)
509 (used to build the ADD_DATE attribute in Netscape-bookmarks file)
510 PS: I could have used strptime(), but it does not exist on Windows. I'm too kind. */
511 function linkdate2timestamp ( $linkdate )
514 $r = sscanf ( $linkdate , '%4d%2d%2d_%2d%2d%2d' , $Y , $M , $D , $h , $m , $s );
515 return mktime ( $h , $m , $s , $M , $D , $Y );
518 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a RFC822 date.
519 (used to build the pubDate attribute in RSS feed.) */
520 function linkdate2rfc822 ( $linkdate )
522 return date ( 'r' , linkdate2timestamp ( $linkdate )); // 'r' is for RFC822 date format.
525 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a ISO 8601 date.
526 (used to build the updated tags in ATOM feed.) */
527 function linkdate2iso8601 ( $linkdate )
529 return date ( 'c' , linkdate2timestamp ( $linkdate )); // 'c' is for ISO 8601 date format.
532 /* Converts a linkdate time (YYYYMMDD_HHMMSS) of an article to a localized date format.
533 (used to display link date on screen)
534 The date format is automatically chosen according to locale/languages sniffed from browser headers (see autoLocale()). */
535 function linkdate2locale ( $linkdate )
537 return utf8_encode ( strftime ( '%c' , linkdate2timestamp ( $linkdate ))); // %c is for automatic date format according to locale.
538 // Note that if you use a locale which is not installed on your webserver,
539 // the date will not be displayed in the chosen locale, but probably in US notation.
542 // Parse HTTP response headers and return an associative array.
543 function http_parse_headers_shaarli ( $headers )
546 foreach ( $headers as $header )
548 $i = strpos ( $header , ': ' );
551 $key = substr ( $header , 0 , $i );
552 $value = substr ( $header , $i +
2 , strlen ( $header )- $i-2 );
560 Input: $url : URL to get (http://...)
561 $timeout : Network timeout (will wait this many seconds for an anwser before giving up).
562 Output: An array. [0] = HTTP status message (e.g. "HTTP/1.1 200 OK") or error message
563 [1] = associative array containing HTTP response headers (e.g. echo getHTTP($url)[1]['Content-Type'])
565 Example: list($httpstatus,$headers,$data) = getHTTP('http://sebauvage.net/');
566 if (strpos($httpstatus,'200 OK')!==false)
567 echo 'Data type: '.htmlspecialchars($headers['Content-Type']);
569 echo 'There was an error: '.htmlspecialchars($httpstatus)
571 function getHTTP ( $url , $timeout = 30 )
575 $options = array ( 'http' => array ( 'method' => 'GET' , 'timeout' => $timeout , 'user_agent' => 'Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:23.0) Gecko/20100101 Firefox/23.0' )); // Force network timeout
576 $context = stream_context_create ( $options );
577 $data = file_get_contents ( $url , false , $context ,- 1 , 4000000 ); // We download at most 4 Mb from source.
578 if (! $data ) { return array ( 'HTTP Error' , array (), '' ); }
579 $httpStatus = $http_response_header [ 0 ]; // e.g. "HTTP/1.1 200 OK"
580 $responseHeaders = http_parse_headers_shaarli ( $http_response_header );
581 return array ( $httpStatus , $responseHeaders , $data );
583 catch ( Exception
$e ) // getHTTP *can* fail silently (we don't care if the title cannot be fetched)
585 return array ( $e- > getMessage (), '' , '' );
589 // Extract title from an HTML document.
590 // (Returns an empty string if not found.)
591 function html_extract_title ( $html )
593 return preg_match ( '!<title>(.*?)</title>!is' , $html , $matches ) ? trim ( str_replace ( " \n " , ' ' , $matches [ 1 ])) : '' ;
596 // ------------------------------------------------------------------------------------------
597 // Token management for XSRF protection
598 // Token should be used in any form which acts on data (create,update,delete,import...).
599 if (! isset ( $_SESSION [ 'tokens' ])) $_SESSION [ 'tokens' ]= array (); // Token are attached to the session.
604 $rnd = sha1 ( uniqid ( '' , true ). '_' . mt_rand (). $GLOBALS [ 'salt' ]); // We generate a random string.
605 $_SESSION [ 'tokens' ][ $rnd ]= 1 ; // Store it on the server side.
609 // Tells if a token is OK. Using this function will destroy the token.
611 function tokenOk ( $token )
613 if ( isset ( $_SESSION [ 'tokens' ][ $token ]))
615 unset ( $_SESSION [ 'tokens' ][ $token ]); // Token is used: destroy it.
616 return true ; // Token is OK.
618 return false ; // Wrong token, or already used.
621 // ------------------------------------------------------------------------------------------
622 /* This class is in charge of building the final page.
623 (This is basically a wrapper around RainTPL which pre-fills some fields.)
625 p.assign('myfield','myvalue');
626 p.renderPage('mytemplate');
631 private $tpl ; // RainTPL template
633 function __construct ()
638 private function initialize ()
640 $this- > tpl
= new RainTPL
;
641 $this- > tpl
-> assign ( 'newversion' , checkUpdate ());
642 $this- > tpl
-> assign ( 'feedurl' , htmlspecialchars ( indexUrl ()));
643 $searchcrits = '' ; // Search criteria
644 if (! empty ( $_GET [ 'searchtags' ])) $searchcrits .= '&searchtags=' . urlencode ( $_GET [ 'searchtags' ]);
645 elseif (! empty ( $_GET [ 'searchterm' ])) $searchcrits .= '&searchterm=' . urlencode ( $_GET [ 'searchterm' ]);
646 $this- > tpl
-> assign ( 'searchcrits' , $searchcrits );
647 $this- > tpl
-> assign ( 'source' , indexUrl ());
648 $this- > tpl
-> assign ( 'version' , shaarli_version
);
649 $this- > tpl
-> assign ( 'scripturl' , indexUrl ());
650 $this- > tpl
-> assign ( 'pagetitle' , 'Shaarli' );
651 $this- > tpl
-> assign ( 'privateonly' ,! empty ( $_SESSION [ 'privateonly' ])); // Show only private links?
652 if (! empty ( $GLOBALS [ 'title' ])) $this- > tpl
-> assign ( 'pagetitle' , $GLOBALS [ 'title' ]);
653 if (! empty ( $GLOBALS [ 'titleLink' ])) $this- > tpl
-> assign ( 'titleLink' , $GLOBALS [ 'titleLink' ]);
654 if (! empty ( $GLOBALS [ 'pagetitle' ])) $this- > tpl
-> assign ( 'pagetitle' , $GLOBALS [ 'pagetitle' ]);
655 $this- > tpl
-> assign ( 'shaarlititle' , empty ( $GLOBALS [ 'title' ]) ? 'Shaarli' : $GLOBALS [ 'title' ] );
659 // The following assign() method is basically the same as RainTPL (except that it's lazy)
660 public function assign ( $what , $where )
662 if ( $this- > tpl
=== false ) $this- > initialize (); // Lazy initialization
663 $this- > tpl
-> assign ( $what , $where );
666 // Render a specific page (using a template).
667 // e.g. pb.renderPage('picwall')
668 public function renderPage ( $page )
670 if ( $this- > tpl
=== false ) $this- > initialize (); // Lazy initialization
671 $this- > tpl
-> draw ( $page );
675 // ------------------------------------------------------------------------------------------
676 /* Data storage for links.
677 This object behaves like an associative array.
679 $mylinks = new linkdb();
680 echo $mylinks['20110826_161819']['title'];
681 foreach($mylinks as $link)
682 echo $link['title'].' at url '.$link['url'].' ; description:'.$link['description'];
685 title : Title of the link
686 url : URL of the link. Can be absolute or relative. Relative URLs are permalinks (e.g.'?m-ukcw')
687 description : description of the entry
688 private : Is this link private? 0=no, other value=yes
689 linkdate : date of the creation of this entry, in the form YYYYMMDD_HHMMSS (e.g.'20110914_192317')
690 tags : tags attached to this entry (separated by spaces)
692 We implement 3 interfaces:
693 - ArrayAccess so that this object behaves like an associative array.
694 - Iterator so that this object can be used in foreach() loops.
695 - Countable interface so that we can do a count() on this object.
697 class linkdb
implements Iterator
, Countable
, ArrayAccess
699 private $links ; // List of links (associative array. Key=linkdate (e.g. "20110823_124546"), value= associative array (keys:title,description...)
700 private $urls ; // List of all recorded URLs (key=url, value=linkdate) for fast reserve search (url-->linkdate)
701 private $keys ; // List of linkdate keys (for the Iterator interface implementation)
702 private $position ; // Position in the $this->keys array. (for the Iterator interface implementation.)
703 private $loggedin ; // Is the user logged in? (used to filter private links)
706 function __construct ( $isLoggedIn )
707 // Input : $isLoggedIn : is the user logged in?
709 $this- > loggedin
= $isLoggedIn ;
710 $this- > checkdb (); // Make sure data file exists.
711 $this- > readdb (); // Then read it.
714 // ---- Countable interface implementation
715 public function count () { return count ( $this
-> links
); }
717 // ---- ArrayAccess interface implementation
718 public function offsetSet ( $offset , $value )
720 if (! $this- > loggedin
) die ( 'You are not authorized to add a link.' );
721 if ( empty ( $value [ 'linkdate' ]) || empty ( $value [ 'url' ])) die ( 'Internal Error: A link should always have a linkdate and URL.' );
722 if ( empty ( $offset )) die ( 'You must specify a key.' );
723 $this- > links
[ $offset ] = $value ;
724 $this- > urls
[ $value [ 'url' ]]= $offset ;
726 public function offsetExists ( $offset ) { return array_key_exists ( $offset
, $this
-> links
); }
727 public function offsetUnset ( $offset )
729 if (! $this- > loggedin
) die ( 'You are not authorized to delete a link.' );
730 $url = $this- > links
[ $offset ][ 'url' ]; unset ( $this- > urls
[ $url ]);
731 unset ( $this- > links
[ $offset ]);
733 public function offsetGet ( $offset ) { return isset ( $this
-> links
[ $offset
]) ? $this
-> links
[ $offset
] : null ; }
735 // ---- Iterator interface implementation
736 function rewind () { $this
-> keys
= array_keys ( $this
-> links
); rsort ( $this
-> keys
); $this
-> position
= 0 ; } // Start over for iteration, ordered by date (latest first).
737 function key () { return $this
-> keys
[ $this
-> position
]; } // current key
738 function current () { return $this
-> links
[ $this
-> keys
[ $this
-> position
]]; } // current value
739 function next () { ++$this
-> position
; } // go to next item
740 function valid () { return isset ( $this
-> keys
[ $this
-> position
]); } // Check if current position is valid.
743 private function checkdb () // Check if db directory and file exists.
745 if (! file_exists ( $GLOBALS [ 'config' ][ 'DATASTORE' ])) // Create a dummy database for example.
747 $this- > links
= array ();
748 $link = array ( 'title' => 'Shaarli - sebsauvage.net' , 'url' => 'http://sebsauvage.net/wiki/doku.php?id=php:shaarli' , 'description' => 'Welcome to Shaarli ! This is a bookmark. To edit or delete me, you must first login.' , 'private' => 0 , 'linkdate' => '20110914_190000' , 'tags' => 'opensource software' );
749 $this- > links
[ $link [ 'linkdate' ]] = $link ;
750 $link = array ( 'title' => 'My secret stuff... - Pastebin.com' , 'url' => 'http://sebsauvage.net/paste/?8434b27936c09649#bR7XsXhoTiLcqCpQbmOpBi3rq2zzQUC5hBI7ZT1O3x8=' , 'description' => 'SShhhh!! I \' m a private link only YOU can see. You can delete me too.' , 'private' => 1 , 'linkdate' => '20110914_074522' , 'tags' => 'secretstuff' );
751 $this- > links
[ $link [ 'linkdate' ]] = $link ;
752 file_put_contents ( $GLOBALS [ 'config' ][ 'DATASTORE' ], PHPPREFIX
. base64_encode ( gzdeflate ( serialize ( $this- > links
))). PHPSUFFIX
); // Write database to disk
756 // Read database from disk to memory
757 private function readdb ()
760 $this- > links
=( file_exists ( $GLOBALS [ 'config' ][ 'DATASTORE' ]) ? unserialize ( gzinflate ( base64_decode ( substr ( file_get_contents ( $GLOBALS [ 'config' ][ 'DATASTORE' ]), strlen ( PHPPREFIX
),- strlen ( PHPSUFFIX
))))) : array () );
761 // Note that gzinflate is faster than gzuncompress. See: http://www.php.net/manual/en/function.gzdeflate.php#96439
763 // If user is not logged in, filter private links.
764 if (! $this- > loggedin
)
767 foreach ( $this- > links
as $link ) { if ( $link
[ 'private' ]!= 0 ) $toremove
[]= $link
[ 'linkdate' ]; }
768 foreach ( $toremove as $linkdate ) { unset ( $this
-> links
[ $linkdate
]); }
771 // Keep the list of the mapping URLs-->linkdate up-to-date.
773 foreach ( $this- > links
as $link ) { $this
-> urls
[ $link
[ 'url' ]]= $link
[ 'linkdate' ]; }
776 // Save database from memory to disk.
777 public function savedb ()
779 if (! $this- > loggedin
) die ( 'You are not authorized to change the database.' );
780 file_put_contents ( $GLOBALS [ 'config' ][ 'DATASTORE' ], PHPPREFIX
. base64_encode ( gzdeflate ( serialize ( $this- > links
))). PHPSUFFIX
);
784 // Returns the link for a given URL (if it exists). False if it does not exist.
785 public function getLinkFromUrl ( $url )
787 if ( isset ( $this- > urls
[ $url ])) return $this- > links
[ $this- > urls
[ $url ]];
791 // Case insensitive search among links (in the URLs, title and description). Returns filtered list of links.
792 // e.g. print_r($mydb->filterFulltext('hollandais'));
793 public function filterFulltext ( $searchterms )
795 // FIXME: explode(' ',$searchterms) and perform a AND search.
796 // FIXME: accept double-quotes to search for a string "as is"?
798 $s = strtolower ( $searchterms );
799 foreach ( $this- > links
as $l )
801 $found = ( strpos ( strtolower ( $l [ 'title' ]), $s )!== false )
802 || ( strpos ( strtolower ( $l [ 'description' ]), $s )!== false )
803 || ( strpos ( strtolower ( $l [ 'url' ]), $s )!== false )
804 || ( strpos ( strtolower ( $l [ 'tags' ]), $s )!== false );
805 if ( $found ) $filtered [ $l [ 'linkdate' ]] = $l ;
812 // You can specify one or more tags (tags can be separated by space or comma).
813 // e.g. print_r($mydb->filterTags('linux programming'));
814 public function filterTags ( $tags , $casesensitive = false )
816 $t = str_replace ( ',' , ' ' ,( $casesensitive ? $tags : strtolower ( $tags )));
817 $searchtags = explode ( ' ' , $t );
819 foreach ( $this- > links
as $l )
821 $linktags = explode ( ' ' ,( $casesensitive ? $l [ 'tags' ]: strtolower ( $l [ 'tags' ])));
822 if ( count ( array_intersect ( $linktags , $searchtags )) == count ( $searchtags ))
823 $filtered [ $l [ 'linkdate' ]] = $l ;
829 // Filter by day. Day must be in the form 'YYYYMMDD' (e.g. '20120125')
830 // Sort order is: older articles first.
831 // e.g. print_r($mydb->filterDay('20120125'));
832 public function filterDay ( $day )
835 foreach ( $this- > links
as $l )
837 if ( startsWith ( $l [ 'linkdate' ], $day )) $filtered [ $l [ 'linkdate' ]] = $l ;
842 // Filter by smallHash.
843 // Only 1 article is returned.
844 public function filterSmallHash ( $smallHash )
847 foreach ( $this- > links
as $l )
849 if ( $smallHash == smallHash ( $l [ 'linkdate' ])) // Yes, this is ugly and slow
851 $filtered [ $l [ 'linkdate' ]] = $l ;
858 // Returns the list of all tags
859 // Output: associative array key=tags, value=0
860 public function allTags ()
863 foreach ( $this- > links
as $link )
864 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag )
865 if (! empty ( $tag )) $tags [ $tag ]=( empty ( $tags [ $tag ]) ? 1 : $tags [ $tag ] +
1 );
866 arsort ( $tags ); // Sort tags by usage (most used tag first)
870 // Returns the list of days containing articles (oldest first)
871 // Output: An array containing days (in format YYYYMMDD).
872 public function days ()
875 foreach ( array_keys ( $this- > links
) as $day )
877 $linkdays [ substr ( $day , 0 , 8 )]= 0 ;
879 $linkdays = array_keys ( $linkdays );
885 // ------------------------------------------------------------------------------------------
886 // Output the last N links in RSS 2.0 format.
889 header ( 'Content-Type: application/rss+xml; charset=utf-8' );
891 // $usepermalink : If true, use permalink instead of final link.
892 // User just has to add 'permalink' in URL parameters. e.g. http://mysite.com/shaarli/?do=rss&permalinks
893 $usepermalinks = isset ( $_GET [ 'permalinks' ]);
896 $query = $_SERVER [ "QUERY_STRING" ];
897 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=rss' ) && ! isLoggedIn ());
898 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
900 // If cached was not found (or not usable), then read the database and build the response:
901 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if user it not logged in).
903 // Optionally filter the results:
904 $linksToDisplay = array ();
905 if (! empty ( $_GET [ 'searchterm' ])) $linksToDisplay = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
906 elseif (! empty ( $_GET [ 'searchtags' ])) $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
907 else $linksToDisplay = $LINKSDB ;
908 $nblinksToDisplay = 50 ; // Number of links to display.
909 if (! empty ( $_GET [ 'nb' ])) // In URL, you can specificy the number of links. Example: nb=200 or nb=all for all links.
911 $nblinksToDisplay = $_GET [ 'nb' ]== 'all' ? count ( $linksToDisplay ) : max ( $_GET [ 'nb' ] +
0 , 1 ) ;
914 $pageaddr = htmlspecialchars ( indexUrl ());
915 echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">' ;
916 echo '<channel><title>' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title><link>' . $pageaddr . '</link>' ;
917 echo '<description>Shared links</description><language>en-en</language><copyright>' . $pageaddr . '</copyright>' . " \n\n " ;
918 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
920 echo '<!-- PubSubHubbub Discovery -->' ;
921 echo '<link rel="hub" href="' . htmlspecialchars ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]). '" xmlns="http://www.w3.org/2005/Atom" />' ;
922 echo '<link rel="self" href="' . htmlspecialchars ( $pageaddr ). '?do=rss" xmlns="http://www.w3.org/2005/Atom" />' ;
923 echo '<!-- End Of PubSubHubbub Discovery -->' ;
926 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // No, I can't use array_keys().
927 while ( $i < $nblinksToDisplay && $i < count ( $keys ))
929 $link = $linksToDisplay [ $keys [ $i ]];
930 $guid = $pageaddr . '?' . smallHash ( $link [ 'linkdate' ]);
931 $rfc822date = linkdate2rfc822 ( $link [ 'linkdate' ]);
932 $absurl = htmlspecialchars ( $link [ 'url' ]);
933 if ( startsWith ( $absurl , '?' )) $absurl = $pageaddr . $absurl ; // make permalink URL absolute
934 if ( $usepermalinks === true )
935 echo '<item><title>' . htmlspecialchars ( $link [ 'title' ]). '</title><guid isPermaLink="false">' . $guid . '</guid><link>' . $guid . '</link>' ;
937 echo '<item><title>' . htmlspecialchars ( $link [ 'title' ]). '</title><guid isPermaLink="false">' . $guid . '</guid><link>' . $absurl . '</link>' ;
938 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) echo '<pubDate>' . htmlspecialchars ( $rfc822date ). "</pubDate> \n " ;
939 if ( $link [ 'tags' ]!= '' ) // Adding tags to each RSS entry (as mentioned in RSS specification)
941 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag ) { echo '<category domain="' . htmlspecialchars ( $pageaddr
). '">' . htmlspecialchars ( $tag
). '</category>' . " \n " ; }
944 // Add permalink in description
945 $descriptionlink = '(<a href="' . $guid . '">Permalink</a>)' ;
946 // If user wants permalinks first, put the final link in description
947 if ( $usepermalinks === true ) $descriptionlink = '(<a href="' . $absurl . '">Link</a>)' ;
948 if ( strlen ( $link [ 'description' ])> 0 ) $descriptionlink = '<br>' . $descriptionlink ;
949 echo '<description><![CDATA[' . nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ])))). $descriptionlink . ']]></description>' . " \n </item> \n " ;
952 echo '</channel></rss><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
954 $cache- > cache ( ob_get_contents ());
959 // ------------------------------------------------------------------------------------------
960 // Output the last N links in ATOM format.
963 header ( 'Content-Type: application/atom+xml; charset=utf-8' );
965 // $usepermalink : If true, use permalink instead of final link.
966 // User just has to add 'permalink' in URL parameters. e.g. http://mysite.com/shaarli/?do=atom&permalinks
967 $usepermalinks = isset ( $_GET [ 'permalinks' ]);
970 $query = $_SERVER [ "QUERY_STRING" ];
971 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=atom' ) && ! isLoggedIn ());
972 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
973 // If cached was not found (or not usable), then read the database and build the response:
975 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
978 // Optionally filter the results:
979 $linksToDisplay = array ();
980 if (! empty ( $_GET [ 'searchterm' ])) $linksToDisplay = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
981 elseif (! empty ( $_GET [ 'searchtags' ])) $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
982 else $linksToDisplay = $LINKSDB ;
983 $nblinksToDisplay = 50 ; // Number of links to display.
984 if (! empty ( $_GET [ 'nb' ])) // In URL, you can specificy the number of links. Example: nb=200 or nb=all for all links.
986 $nblinksToDisplay = $_GET [ 'nb' ]== 'all' ? count ( $linksToDisplay ) : max ( $_GET [ 'nb' ] +
0 , 1 ) ;
989 $pageaddr = htmlspecialchars ( indexUrl ());
993 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // No, I can't use array_keys().
994 while ( $i < $nblinksToDisplay && $i < count ( $keys ))
996 $link = $linksToDisplay [ $keys [ $i ]];
997 $guid = $pageaddr . '?' . smallHash ( $link [ 'linkdate' ]);
998 $iso8601date = linkdate2iso8601 ( $link [ 'linkdate' ]);
999 $latestDate = max ( $latestDate , $iso8601date );
1000 $absurl = htmlspecialchars ( $link [ 'url' ]);
1001 if ( startsWith ( $absurl , '?' )) $absurl = $pageaddr . $absurl ; // make permalink URL absolute
1002 $entries .= '<entry><title>' . htmlspecialchars ( $link [ 'title' ]). '</title>' ;
1003 if ( $usepermalinks === true )
1004 $entries .= '<link href="' . $guid . '" /><id>' . $guid . '</id>' ;
1006 $entries .= '<link href="' . $absurl . '" /><id>' . $guid . '</id>' ;
1007 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) $entries .= '<updated>' . htmlspecialchars ( $iso8601date ). '</updated>' ;
1009 // Add permalink in description
1010 $descriptionlink = htmlspecialchars ( '(<a href="' . $guid . '">Permalink</a>)' );
1011 // If user wants permalinks first, put the final link in description
1012 if ( $usepermalinks === true ) $descriptionlink = htmlspecialchars ( '(<a href="' . $absurl . '">Link</a>)' );
1013 if ( strlen ( $link [ 'description' ])> 0 ) $descriptionlink = '<br>' . $descriptionlink ;
1015 $entries .= '<content type="html">' . htmlspecialchars ( nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))))). $descriptionlink . "</content> \n " ;
1016 if ( $link [ 'tags' ]!= '' ) // Adding tags to each ATOM entry (as mentioned in ATOM specification)
1018 foreach ( explode ( ' ' , $link [ 'tags' ]) as $tag )
1019 { $entries
.= '<category scheme="' . htmlspecialchars ( $pageaddr
, ENT_QUOTES
). '" term="' . htmlspecialchars ( $tag
, ENT_QUOTES
). '" />' . " \n " ; }
1021 $entries .= "</entry> \n " ;
1024 $feed = '<?xml version="1.0" encoding="UTF-8"?><feed xmlns="http://www.w3.org/2005/Atom">' ;
1025 $feed .= '<title>' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title>' ;
1026 if (! $GLOBALS [ 'config' ][ 'HIDE_TIMESTAMPS' ] || isLoggedIn ()) $feed .= '<updated>' . htmlspecialchars ( $latestDate ). '</updated>' ;
1027 $feed .= '<link rel="self" href="' . htmlspecialchars ( serverUrl (). $_SERVER [ "REQUEST_URI" ]). '" />' ;
1028 if (! empty ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]))
1030 $feed .= '<!-- PubSubHubbub Discovery -->' ;
1031 $feed .= '<link rel="hub" href="' . htmlspecialchars ( $GLOBALS [ 'config' ][ 'PUBSUBHUB_URL' ]). '" />' ;
1032 $feed .= '<!-- End Of PubSubHubbub Discovery -->' ;
1034 $feed .= '<author><name>' . htmlspecialchars ( $pageaddr ). '</name><uri>' . htmlspecialchars ( $pageaddr ). '</uri></author>' ;
1035 $feed .= '<id>' . htmlspecialchars ( $pageaddr ). '</id>' . " \n\n " ; // Yes, I know I should use a real IRI (RFC3987), but the site URL will do.
1037 $feed .= '</feed><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
1040 $cache- > cache ( ob_get_contents ());
1045 // ------------------------------------------------------------------------------------------
1046 // Daily RSS feed: 1 RSS entry per day giving all the links on that day.
1047 // Gives the last 7 days (which have links).
1048 // This RSS feed cannot be filtered.
1049 function showDailyRSS ()
1052 $query = $_SERVER [ "QUERY_STRING" ];
1053 $cache = new pageCache ( pageUrl (), startsWith ( $query , 'do=dailyrss' ) && ! isLoggedIn ());
1054 $cached = $cache- > cachedVersion (); if (! empty ( $cached )) { echo $cached
; exit ; }
1055 // If cached was not found (or not usable), then read the database and build the response:
1056 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1058 /* Some Shaarlies may have very few links, so we need to look
1059 back in time (rsort()) until we have enough days ($nb_of_days).
1061 $linkdates = array (); foreach ( $LINKSDB as $linkdate => $value ) { $linkdates
[]= $linkdate
; }
1063 $nb_of_days = 7 ; // We take 7 days.
1066 foreach ( $linkdates as $linkdate )
1068 $day = substr ( $linkdate , 0 , 8 ); // Extract day (without time)
1069 if ( strcmp ( $day , $today )< 0 )
1071 if ( empty ( $days [ $day ])) $days [ $day ]= array ();
1072 $days [ $day ][]= $linkdate ;
1074 if ( count ( $days )> $nb_of_days ) break ; // Have we collected enough days?
1077 // Build the RSS feed.
1078 header ( 'Content-Type: application/rss+xml; charset=utf-8' );
1079 $pageaddr = htmlspecialchars ( indexUrl ());
1080 echo '<?xml version="1.0" encoding="UTF-8"?><rss version="2.0">' ;
1081 echo '<channel><title>Daily - ' . htmlspecialchars ( $GLOBALS [ 'title' ]). '</title><link>' . $pageaddr . '</link>' ;
1082 echo '<description>Daily shared links</description><language>en-en</language><copyright>' . $pageaddr . '</copyright>' . " \n " ;
1084 foreach ( $days as $day => $linkdates ) // For each day.
1086 $daydate = utf8_encode ( strftime ( '%A %d, %B %Y' , linkdate2timestamp ( $day . '_000000' ))); // Full text date
1087 $rfc822date = linkdate2rfc822 ( $day . '_000000' );
1088 $absurl = htmlspecialchars ( indexUrl (). '?do=daily&day=' . $day ); // Absolute URL of the corresponding "Daily" page.
1089 echo '<item><title>' . htmlspecialchars ( $GLOBALS [ 'title' ]. ' - ' . $daydate ). '</title><guid>' . $absurl . '</guid><link>' . $absurl . '</link>' ;
1090 echo '<pubDate>' . htmlspecialchars ( $rfc822date ). "</pubDate>" ;
1092 // Build the HTML body of this RSS entry.
1096 // We pre-format some fields for proper output.
1097 foreach ( $linkdates as $linkdate )
1099 $l = $LINKSDB [ $linkdate ];
1100 $l [ 'formatedDescription' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $l [ 'description' ]))));
1101 $l [ 'thumbnail' ] = thumbnail ( $l [ 'url' ]);
1102 $l [ 'localdate' ]= linkdate2locale ( $l [ 'linkdate' ]);
1103 if ( startsWith ( $l [ 'url' ], '?' )) $l [ 'url' ]= indexUrl (). $l [ 'url' ]; // make permalink URL absolute
1104 $links [ $linkdate ]= $l ;
1106 // Then build the HTML for this day:
1108 $tpl- > assign ( 'links' , $links );
1109 $html = $tpl- > draw ( 'dailyrss' , $return_string = true );
1111 echo '<description><![CDATA[' . $html . ']]></description>' . " \n </item> \n\n " ;
1114 echo '</channel></rss><!-- Cached version of ' . htmlspecialchars ( pageUrl ()). ' -->' ;
1116 $cache- > cache ( ob_get_contents ());
1122 function showDaily ()
1124 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1127 $day = Date ( 'Ymd' , strtotime ( '-1 day' )); // Yesterday, in format YYYYMMDD.
1128 if ( isset ( $_GET [ 'day' ])) $day = $_GET [ 'day' ];
1130 $days = $LINKSDB- > days ();
1131 $i = array_search ( $day , $days );
1132 if ( $i == false ) { $i
= count ( $days
)- 1 ; $day
= $days
[ $i
]; }
1137 if ( $i > 1 ) $previousday = $days [ $i-1 ];
1138 if ( $i < count ( $days )- 1 ) $nextday = $days [ $i +
1 ];
1141 $linksToDisplay = $LINKSDB- > filterDay ( $day );
1142 // We pre-format some fields for proper output.
1143 foreach ( $linksToDisplay as $key => $link )
1145 $taglist = explode ( ' ' , $link [ 'tags' ]);
1146 uasort ( $taglist , 'strcasecmp' );
1147 $linksToDisplay [ $key ][ 'taglist' ]= $taglist ;
1148 $linksToDisplay [ $key ][ 'formatedDescription' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))));
1149 $linksToDisplay [ $key ][ 'thumbnail' ] = thumbnail ( $link [ 'url' ]);
1152 /* We need to spread the articles on 3 columns.
1153 I did not want to use a JavaScript lib like http://masonry.desandro.com/
1154 so I manually spread entries with a simple method: I roughly evaluate the
1155 height of a div according to title and description length.
1157 $columns = array ( array (), array (), array ()); // Entries to display, for each column.
1158 $fill = array ( 0 , 0 , 0 ); // Rough estimate of columns fill.
1159 foreach ( $linksToDisplay as $key => $link )
1161 // Roughly estimate length of entry (by counting characters)
1162 // Title: 30 chars = 1 line. 1 line is 30 pixels height.
1163 // Description: 836 characters gives roughly 342 pixel height.
1164 // This is not perfect, but it's usually OK.
1165 $length = strlen ( $link [ 'title' ]) +
( 342 * strlen ( $link [ 'description' ]))/ 836 ;
1166 if ( $link [ 'thumbnail' ]) $length +
= 100 ; // 1 thumbnails roughly takes 100 pixels height.
1167 // Then put in column which is the less filled:
1168 $smallest = min ( $fill ); // find smallest value in array.
1169 $index = array_search ( $smallest , $fill ); // find index of this smallest value.
1170 array_push ( $columns [ $index ], $link ); // Put entry in this column.
1171 $fill [ $index ] +
= $length ;
1173 $PAGE = new pageBuilder
;
1174 $PAGE- > assign ( 'linksToDisplay' , $linksToDisplay );
1175 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1176 $PAGE- > assign ( 'col1' , $columns [ 0 ]);
1177 $PAGE- > assign ( 'col1' , $columns [ 0 ]);
1178 $PAGE- > assign ( 'col2' , $columns [ 1 ]);
1179 $PAGE- > assign ( 'col3' , $columns [ 2 ]);
1180 $PAGE- > assign ( 'day' , utf8_encode ( strftime ( '%A %d, %B %Y' , linkdate2timestamp ( $day . '_000000' ))));
1181 $PAGE- > assign ( 'previousday' , $previousday );
1182 $PAGE- > assign ( 'nextday' , $nextday );
1183 $PAGE- > renderPage ( 'daily' );
1188 // ------------------------------------------------------------------------------------------
1189 // Render HTML page (according to URL parameters and user rights)
1190 function renderPage ()
1192 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1194 // -------- Display login form.
1195 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=login' ))
1197 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) { header ( 'Location: ?' ); exit ; } // No need to login for open Shaarli
1198 $token = '' ; if ( ban_canLogin ()) $token = getToken (); // Do not waste token generation if not useful.
1199 $PAGE = new pageBuilder
;
1200 $PAGE- > assign ( 'token' , $token );
1201 $PAGE- > assign ( 'returnurl' ,( isset ( $_SERVER [ 'HTTP_REFERER' ]) ? $_SERVER [ 'HTTP_REFERER' ]: '' ));
1202 $PAGE- > renderPage ( 'loginform' );
1205 // -------- User wants to logout.
1206 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=logout' ))
1210 header ( 'Location: ?' );
1214 // -------- Picture wall
1215 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=picwall' ))
1217 // Optionally filter the results:
1219 if (! empty ( $_GET [ 'searchterm' ])) $links = $LINKSDB- > filterFulltext ( $_GET [ 'searchterm' ]);
1220 elseif (! empty ( $_GET [ 'searchtags' ])) $links = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
1221 else $links = $LINKSDB ;
1223 $linksToDisplay = array ();
1225 // Get only links which have a thumbnail.
1226 foreach ( $links as $link )
1228 $permalink = '?' . htmlspecialchars ( smallhash ( $link [ 'linkdate' ]), ENT_QUOTES
);
1229 $thumb = lazyThumbnail ( $link [ 'url' ], $permalink );
1230 if ( $thumb != '' ) // Only output links which have a thumbnail.
1232 $link [ 'thumbnail' ]= $thumb ; // Thumbnail HTML code.
1233 $link [ 'permalink' ]= $permalink ;
1234 $linksToDisplay []= $link ; // Add to array.
1237 $PAGE = new pageBuilder
;
1238 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1239 $PAGE- > assign ( 'linksToDisplay' , $linksToDisplay );
1240 $PAGE- > renderPage ( 'picwall' );
1244 // -------- Tag cloud
1245 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=tagcloud' ))
1247 $tags = $LINKSDB- > allTags ();
1248 // We sort tags alphabetically, then choose a font size according to count.
1249 // First, find max value.
1250 $maxcount = 0 ; foreach ( $tags as $key => $value ) $maxcount = max ( $maxcount , $value );
1253 foreach ( $tags as $key => $value )
1255 $tagList [ $key ] = array ( 'count' => $value , 'size' => max ( 40 * $value / $maxcount , 8 ));
1257 $PAGE = new pageBuilder
;
1258 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1259 $PAGE- > assign ( 'tags' , $tagList );
1260 $PAGE- > renderPage ( 'tagcloud' );
1264 // -------- User clicks on a tag in a link: The tag is added to the list of searched tags (searchtags=...)
1265 if ( isset ( $_GET [ 'addtag' ]))
1267 // Get previous URL (http_referer) and add the tag to the searchtags parameters in query.
1268 if ( empty ( $_SERVER [ 'HTTP_REFERER' ])) { header ( 'Location: ?searchtags=' . urlencode ( $_GET
[ 'addtag' ])); exit ; } // In case browser does not send HTTP_REFERER
1269 parse_str ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_QUERY
), $params );
1271 // Check if this tag is already in the search query and ignore it if it is.
1272 // Each tag is always separated by a space
1273 $current_tags = explode ( ' ' , $params [ 'searchtags' ]);
1275 foreach ( $current_tags as $value ) {
1276 if ( $value === $_GET [ 'addtag' ]) {
1281 // Append the tag if necessary
1282 if ( empty ( $params [ 'searchtags' ])) {
1283 $params [ 'searchtags' ] = trim ( $_GET [ 'addtag' ]);
1286 $params [ 'searchtags' ] = trim ( $params [ 'searchtags' ]). ' ' . trim ( $_GET [ 'addtag' ]);
1289 unset ( $params [ 'page' ]); // We also remove page (keeping the same page has no sense, since the results are different)
1290 header ( 'Location: ?' . http_build_query ( $params ));
1294 // -------- User clicks on a tag in result count: Remove the tag from the list of searched tags (searchtags=...)
1295 if ( isset ( $_GET [ 'removetag' ]))
1297 // Get previous URL (http_referer) and remove the tag from the searchtags parameters in query.
1298 if ( empty ( $_SERVER [ 'HTTP_REFERER' ])) { header ( 'Location: ?' ); exit ; } // In case browser does not send HTTP_REFERER
1299 parse_str ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_QUERY
), $params );
1300 if ( isset ( $params [ 'searchtags' ]))
1302 $tags = explode ( ' ' , $params [ 'searchtags' ]);
1303 $tags = array_diff ( $tags , array ( $_GET [ 'removetag' ])); // Remove value from array $tags.
1304 if ( count ( $tags )== 0 ) unset ( $params [ 'searchtags' ]); else $params [ 'searchtags' ] = implode ( ' ' , $tags );
1305 unset ( $params [ 'page' ]); // We also remove page (keeping the same page has no sense, since the results are different)
1307 header ( 'Location: ?' . http_build_query ( $params ));
1311 // -------- User wants to change the number of links per page (linksperpage=...)
1312 if ( isset ( $_GET [ 'linksperpage' ]))
1314 if ( is_numeric ( $_GET [ 'linksperpage' ])) { $_SESSION
[ 'LINKS_PER_PAGE' ]= abs ( intval ( $_GET
[ 'linksperpage' ])); }
1315 // Make sure the referrer is Shaarli itself.
1317 if (! empty ( $_SERVER [ 'HTTP_REFERER' ]) && strcmp ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_HOST
), $_SERVER [ 'HTTP_HOST' ])== 0 )
1318 $referer = $_SERVER [ 'HTTP_REFERER' ];
1319 header ( 'Location: ' . $referer );
1323 // -------- User wants to see only private links (toggle)
1324 if ( isset ( $_GET [ 'privateonly' ]))
1326 if ( empty ( $_SESSION [ 'privateonly' ]))
1328 $_SESSION [ 'privateonly' ]= 1 ; // See only private links
1332 unset ( $_SESSION [ 'privateonly' ]); // See all links
1334 // Make sure the referrer is Shaarli itself.
1336 if (! empty ( $_SERVER [ 'HTTP_REFERER' ]) && strcmp ( parse_url ( $_SERVER [ 'HTTP_REFERER' ], PHP_URL_HOST
), $_SERVER [ 'HTTP_HOST' ])== 0 )
1337 $referer = $_SERVER [ 'HTTP_REFERER' ];
1338 header ( 'Location: ' . $referer );
1342 // -------- Handle other actions allowed for non-logged in users:
1345 // User tries to post new link but is not logged in:
1346 // Show login screen, then redirect to ?post=...
1347 if ( isset ( $_GET [ 'post' ]))
1349 header ( 'Location: ?do=login&post=' . urlencode ( $_GET [ 'post' ]).(! empty ( $_GET [ 'title' ])? '&title=' . urlencode ( $_GET [ 'title' ]): '' ).(! empty ( $_GET [ 'description' ])? '&description=' . urlencode ( $_GET [ 'description' ]): '' ).(! empty ( $_GET [ 'source' ])? '&source=' . urlencode ( $_GET [ 'source' ]): '' )); // Redirect to login page, then back to post link.
1353 // Same case as above except that user tried to access ?do=addlink without being logged in
1354 // Note: passing empty parameters makes Shaarli generate default URLs and descriptions.
1355 if ( isset ( $_GET [ 'do' ]) && $_GET [ 'do' ] === 'addlink' ) {
1356 header ( 'Location: ?do=login&post=' );
1360 $PAGE = new pageBuilder
;
1361 buildLinkList ( $PAGE , $LINKSDB ); // Compute list of links to display
1362 $PAGE- > renderPage ( 'linklist' );
1363 exit ; // Never remove this one! All operations below are reserved for logged in user.
1366 // -------- All other functions are reserved for the registered user:
1368 // -------- Display the Tools menu if requested (import/export/bookmarklet...)
1369 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=tools' ))
1371 $PAGE = new pageBuilder
;
1372 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1373 $PAGE- > assign ( 'pageabsaddr' , indexUrl ());
1374 $PAGE- > renderPage ( 'tools' );
1378 // -------- User wants to change his/her password.
1379 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=changepasswd' ))
1381 if ( $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]) die ( 'You are not supposed to change a password on an Open Shaarli.' );
1382 if (! empty ( $_POST [ 'setpassword' ]) && ! empty ( $_POST [ 'oldpassword' ]))
1384 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1386 // Make sure old password is correct.
1387 $oldhash = sha1 ( $_POST [ 'oldpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
1388 if ( $oldhash != $GLOBALS [ 'hash' ]) { echo '<script language="JavaScript">alert("The old password is not correct.");document.location= \' ?do=changepasswd \' ;</script>' ; exit ; }
1389 // Save new password
1390 $GLOBALS [ 'salt' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Salt renders rainbow-tables attacks useless.
1391 $GLOBALS [ 'hash' ] = sha1 ( $_POST [ 'setpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
1393 echo '<script language="JavaScript">alert("Your password has been changed.");document.location= \' ?do=tools \' ;</script>' ;
1396 else // show the change password form.
1398 $PAGE = new pageBuilder
;
1399 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1400 $PAGE- > assign ( 'token' , getToken ());
1401 $PAGE- > renderPage ( 'changepassword' );
1406 // -------- User wants to change configuration
1407 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=configure' ))
1409 if (! empty ( $_POST [ 'title' ]) )
1411 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1413 if (! empty ( $_POST [ 'continent' ]) && ! empty ( $_POST [ 'city' ]))
1414 if ( isTZvalid ( $_POST [ 'continent' ], $_POST [ 'city' ]))
1415 $tz = $_POST [ 'continent' ]. '/' . $_POST [ 'city' ];
1416 $GLOBALS [ 'timezone' ] = $tz ;
1417 $GLOBALS [ 'title' ]= $_POST [ 'title' ];
1418 $GLOBALS [ 'titleLink' ]= $_POST [ 'titleLink' ];
1419 $GLOBALS [ 'redirector' ]= $_POST [ 'redirector' ];
1420 $GLOBALS [ 'disablesessionprotection' ]=! empty ( $_POST [ 'disablesessionprotection' ]);
1421 $GLOBALS [ 'disablejquery' ]=! empty ( $_POST [ 'disablejquery' ]);
1422 $GLOBALS [ 'privateLinkByDefault' ]=! empty ( $_POST [ 'privateLinkByDefault' ]);
1424 echo '<script language="JavaScript">alert("Configuration was saved.");document.location= \' ?do=tools \' ;</script>' ;
1427 else // Show the configuration form.
1429 $PAGE = new pageBuilder
;
1430 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1431 $PAGE- > assign ( 'token' , getToken ());
1432 $PAGE- > assign ( 'title' , htmlspecialchars ( empty ( $GLOBALS [ 'title' ]) ? '' : $GLOBALS [ 'title' ] , ENT_QUOTES
));
1433 $PAGE- > assign ( 'redirector' , htmlspecialchars ( empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ] , ENT_QUOTES
));
1434 list ( $timezone_form , $timezone_js ) = templateTZform ( $GLOBALS [ 'timezone' ]);
1435 $PAGE- > assign ( 'timezone_form' , $timezone_form ); // FIXME: Put entire tz form generation in template?
1436 $PAGE- > assign ( 'timezone_js' , $timezone_js );
1437 $PAGE- > renderPage ( 'configure' );
1442 // -------- User wants to rename a tag or delete it
1443 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=changetag' ))
1445 if ( empty ( $_POST [ 'fromtag' ]))
1447 $PAGE = new pageBuilder
;
1448 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1449 $PAGE- > assign ( 'token' , getToken ());
1450 $PAGE- > renderPage ( 'changetag' );
1453 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1456 if (! empty ( $_POST [ 'deletetag' ]) && ! empty ( $_POST [ 'fromtag' ]))
1458 $needle = trim ( $_POST [ 'fromtag' ]);
1459 $linksToAlter = $LINKSDB- > filterTags ( $needle , true ); // True for case-sensitive tag search.
1460 foreach ( $linksToAlter as $key => $value )
1462 $tags = explode ( ' ' , trim ( $value [ 'tags' ]));
1463 unset ( $tags [ array_search ( $needle , $tags )]); // Remove tag.
1464 $value [ 'tags' ]= trim ( implode ( ' ' , $tags ));
1465 $LINKSDB [ $key ]= $value ;
1467 $LINKSDB- > savedb (); // Save to disk.
1468 echo '<script language="JavaScript">alert("Tag was removed from ' . count ( $linksToAlter ). ' links.");document.location= \' ? \' ;</script>' ;
1473 if (! empty ( $_POST [ 'renametag' ]) && ! empty ( $_POST [ 'fromtag' ]) && ! empty ( $_POST [ 'totag' ]))
1475 $needle = trim ( $_POST [ 'fromtag' ]);
1476 $linksToAlter = $LINKSDB- > filterTags ( $needle , true ); // true for case-sensitive tag search.
1477 foreach ( $linksToAlter as $key => $value )
1479 $tags = explode ( ' ' , trim ( $value [ 'tags' ]));
1480 $tags [ array_search ( $needle , $tags )] = trim ( $_POST [ 'totag' ]); // Replace tags value.
1481 $value [ 'tags' ]= trim ( implode ( ' ' , $tags ));
1482 $LINKSDB [ $key ]= $value ;
1484 $LINKSDB- > savedb (); // Save to disk.
1485 echo '<script language="JavaScript">alert("Tag was renamed in ' . count ( $linksToAlter ). ' links.");document.location= \' ?searchtags=' . urlencode ( $_POST [ 'totag' ]). ' \' ;</script>' ;
1490 // -------- User wants to add a link without using the bookmarklet: Show form.
1491 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=addlink' ))
1493 $PAGE = new pageBuilder
;
1494 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1495 $PAGE- > renderPage ( 'addlink' );
1499 // -------- User clicked the "Save" button when editing a link: Save link to database.
1500 if ( isset ( $_POST [ 'save_edit' ]))
1502 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' ); // Go away!
1503 $tags = trim ( preg_replace ( '/\s\s+/' , ' ' , $_POST [ 'lf_tags' ])); // Remove multiple spaces.
1504 $linkdate = $_POST [ 'lf_linkdate' ];
1505 $url = trim ( $_POST [ 'lf_url' ]);
1506 if (! startsWith ( $url , 'http:' ) && ! startsWith ( $url , 'https:' ) && ! startsWith ( $url , 'ftp:' ) && ! startsWith ( $url , 'magnet:' ) && ! startsWith ( $url , '?' ))
1507 $url = 'http://' . $url ;
1508 $link = array ( 'title' => trim ( $_POST [ 'lf_title' ]), 'url' => $url , 'description' => trim ( $_POST [ 'lf_description' ]), 'private' =>( isset ( $_POST [ 'lf_private' ]) ? 1 : 0 ),
1509 'linkdate' => $linkdate , 'tags' => str_replace ( ',' , ' ' , $tags ));
1510 if ( $link [ 'title' ]== '' ) $link [ 'title' ]= $link [ 'url' ]; // If title is empty, use the URL as title.
1511 $LINKSDB [ $linkdate ] = $link ;
1512 $LINKSDB- > savedb (); // Save to disk.
1515 // If we are called from the bookmarklet, we must close the popup:
1516 if ( isset ( $_GET [ 'source' ]) && $_GET [ 'source' ]== 'bookmarklet' ) { echo '<script language="JavaScript">self.close();</script>' ; exit ; }
1517 $returnurl = ( isset ( $_POST [ 'returnurl' ]) ? $_POST [ 'returnurl' ] : '?' );
1518 $returnurl .= '#' . smallHash ( $linkdate ); // Scroll to the link which has been edited.
1519 header ( 'Location: ' . $returnurl ); // After saving the link, redirect to the page the user was on.
1523 // -------- User clicked the "Cancel" button when editing a link.
1524 if ( isset ( $_POST [ 'cancel_edit' ]))
1526 // If we are called from the bookmarklet, we must close the popup:
1527 if ( isset ( $_GET [ 'source' ]) && $_GET [ 'source' ]== 'bookmarklet' ) { echo '<script language="JavaScript">self.close();</script>' ; exit ; }
1528 $returnurl = ( isset ( $_POST [ 'returnurl' ]) ? $_POST [ 'returnurl' ] : '?' );
1529 $returnurl .= '#' . smallHash ( $_POST [ 'lf_linkdate' ]); // Scroll to the link which has been edited.
1530 header ( 'Location: ' . $returnurl ); // After canceling, redirect to the page the user was on.
1534 // -------- User clicked the "Delete" button when editing a link: Delete link from database.
1535 if ( isset ( $_POST [ 'delete_link' ]))
1537 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1538 // We do not need to ask for confirmation:
1539 // - confirmation is handled by JavaScript
1540 // - we are protected from XSRF by the token.
1541 $linkdate = $_POST [ 'lf_linkdate' ];
1542 unset ( $LINKSDB [ $linkdate ]);
1543 $LINKSDB- > savedb (); // save to disk
1545 // If we are called from the bookmarklet, we must close the popup:
1546 if ( isset ( $_GET [ 'source' ]) && $_GET [ 'source' ]== 'bookmarklet' ) { echo '<script language="JavaScript">self.close();</script>' ; exit ; }
1547 $returnurl = ( isset ( $_POST [ 'returnurl' ]) ? $_POST [ 'returnurl' ] : '?' );
1548 if ( $returnurl == '?' ) { $returnurl
= ( isset ( $_SERVER
[ 'HTTP_REFERER' ]) ? $_SERVER
[ 'HTTP_REFERER' ] : '?' ); }
1549 header ( 'Location: ' . $returnurl ); // After deleting the link, redirect to the page the user was on.
1553 // -------- User clicked the "EDIT" button on a link: Display link edit form.
1554 if ( isset ( $_GET [ 'edit_link' ]))
1556 $link = $LINKSDB [ $_GET [ 'edit_link' ]]; // Read database
1557 if (! $link ) { header ( 'Location: ?' ); exit ; } // Link not found in database.
1558 $PAGE = new pageBuilder
;
1559 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1560 $PAGE- > assign ( 'link' , $link );
1561 $PAGE- > assign ( 'link_is_new' , false );
1562 $PAGE- > assign ( 'token' , getToken ()); // XSRF protection.
1563 $PAGE- > assign ( 'http_referer' ,( isset ( $_SERVER [ 'HTTP_REFERER' ]) ? $_SERVER [ 'HTTP_REFERER' ] : '' ));
1564 $PAGE- > renderPage ( 'editlink' );
1568 // -------- User want to post a new link: Display link edit form.
1569 if ( isset ( $_GET [ 'post' ]))
1573 // We remove the annoying parameters added by FeedBurner and GoogleFeedProxy (?utm_source=...)
1574 $i = strpos ( $url , '&utm_source=' ); if ( $i !== false ) $url = substr ( $url , 0 , $i );
1575 $i = strpos ( $url , '?utm_source=' ); if ( $i !== false ) $url = substr ( $url , 0 , $i );
1576 $i = strpos ( $url , '#xtor=RSS-' ); if ( $i !== false ) $url = substr ( $url , 0 , $i );
1578 $link_is_new = false ;
1579 $link = $LINKSDB- > getLinkFromUrl ( $url ); // Check if URL is not already in database (in this case, we will edit the existing link)
1582 $link_is_new = true ; // This is a new link
1583 $linkdate = strval ( date ( 'Ymd_His' ));
1584 $title = ( empty ( $_GET [ 'title' ]) ? '' : $_GET [ 'title' ] ); // Get title if it was provided in URL (by the bookmarklet).
1585 $description = ( empty ( $_GET [ 'description' ]) ? '' : $_GET [ 'description' ]); // Get description if it was provided in URL (by the bookmarklet). [Bronco added that]
1586 $tags = ( empty ( $_GET [ 'tags' ]) ? '' : $_GET [ 'tags' ] ); // Get tags if it was provided in URL
1587 $private = (! empty ( $_GET [ 'private' ]) && $_GET [ 'private' ] === "1" ? 1 : 0 ); // Get private if it was provided in URL
1588 if (( $url != '' ) && parse_url ( $url , PHP_URL_SCHEME
)== '' ) $url = 'http://' . $url ;
1589 // 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.)
1590 if ( empty ( $title ) && parse_url ( $url , PHP_URL_SCHEME
)== 'http' )
1592 list ( $status , $headers , $data ) = getHTTP ( $url , 4 ); // Short timeout to keep the application responsive.
1593 // FIXME: Decode charset according to specified in either 1) HTTP response headers or 2) <head> in html
1594 if ( strpos ( $status , '200 OK' )!== false )
1596 // Look for charset in html header.
1597 preg_match ( '#<meta .*charset=.*>#Usi' , $data , $meta );
1599 // If found, extract encoding.
1600 if (! empty ( $meta [ 0 ]))
1602 // Get encoding specified in header.
1603 preg_match ( '#charset="?(.*)"#si' , $meta [ 0 ], $enc );
1604 // If charset not found, use utf-8.
1605 $html_charset = (! empty ( $enc [ 1 ])) ? strtolower ( $enc [ 1 ]) : 'utf-8' ;
1607 else { $html_charset
= 'utf-8' ; }
1610 $title = html_extract_title ( $data );
1613 // Re-encode title in utf-8 if necessary.
1614 $title = ( $html_charset == 'iso-8859-1' ) ? utf8_encode ( $title ) : $title ;
1618 if ( $url == '' ) // In case of empty URL, this is just a text (with a link that points to itself)
1620 $url = '?' . smallHash ( $linkdate );
1623 $link = array ( 'linkdate' => $linkdate , 'title' => $title , 'url' => $url , 'description' => $description , 'tags' => $tags , 'private' => $private );
1626 $PAGE = new pageBuilder
;
1627 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1628 $PAGE- > assign ( 'link' , $link );
1629 $PAGE- > assign ( 'link_is_new' , $link_is_new );
1630 $PAGE- > assign ( 'token' , getToken ()); // XSRF protection.
1631 $PAGE- > assign ( 'http_referer' ,( isset ( $_SERVER [ 'HTTP_REFERER' ]) ? $_SERVER [ 'HTTP_REFERER' ] : '' ));
1632 $PAGE- > renderPage ( 'editlink' );
1636 // -------- Export as Netscape Bookmarks HTML file.
1637 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=export' ))
1639 if ( empty ( $_GET [ 'what' ]))
1641 $PAGE = new pageBuilder
;
1642 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1643 $PAGE- > renderPage ( 'export' );
1646 $exportWhat = $_GET [ 'what' ];
1647 if (! array_intersect ( array ( 'all' , 'public' , 'private' ), array ( $exportWhat ))) die ( 'What are you trying to export???' );
1649 header ( 'Content-Type: text/html; charset=utf-8' );
1650 header ( 'Content-disposition: attachment; filename=bookmarks_' . $exportWhat . '_' . strval ( date ( 'Ymd_His' )). '.html' );
1651 $currentdate = date ( 'Y/m/d H:i:s' );
1653 <!DOCTYPE NETSCAPE-Bookmark-file-1>
1654 <!-- This is an automatically generated file.
1655 It will be read and overwritten.
1657 <!-- Shaarli {$exportWhat} bookmarks export on {$currentdate} -->
1658 <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
1659 <TITLE>Bookmarks</TITLE>
1662 foreach ( $LINKSDB as $link )
1664 if ( $exportWhat == 'all' ||
1665 ( $exportWhat == 'private' && $link [ 'private' ]!= 0 ) ||
1666 ( $exportWhat == 'public' && $link [ 'private' ]== 0 ))
1668 echo '<DT><A HREF="' . htmlspecialchars ( $link [ 'url' ]). '" ADD_DATE="' . linkdate2timestamp ( $link [ 'linkdate' ]). '" PRIVATE="' . $link [ 'private' ]. '"' ;
1669 if ( $link [ 'tags' ]!= '' ) echo ' TAGS="' . htmlspecialchars ( str_replace ( ' ' , ',' , $link [ 'tags' ])). '"' ;
1670 echo '>' . htmlspecialchars ( $link [ 'title' ]). "</A> \n " ;
1671 if ( $link [ 'description' ]!= '' ) echo '<DD>' . htmlspecialchars ( $link [ 'description' ]). " \n " ;
1677 // -------- User is uploading a file for import
1678 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=upload' ))
1680 // If file is too big, some form field may be missing.
1681 if (! isset ( $_POST [ 'token' ]) || (! isset ( $_FILES )) || ( isset ( $_FILES [ 'filetoupload' ][ 'size' ]) && $_FILES [ 'filetoupload' ][ 'size' ]== 0 ))
1683 $returnurl = ( empty ( $_SERVER [ 'HTTP_REFERER' ]) ? '?' : $_SERVER [ 'HTTP_REFERER' ] );
1684 echo '<script language="JavaScript">alert("The file you are trying to upload is probably bigger than what this webserver can accept (' . getMaxFileSize (). ' bytes). Please upload in smaller chunks.");document.location= \' ' . htmlspecialchars ( $returnurl ). ' \' ;</script>' ;
1687 if (! tokenOk ( $_POST [ 'token' ])) die ( 'Wrong token.' );
1692 // -------- Show upload/import dialog:
1693 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=import' ))
1695 $PAGE = new pageBuilder
;
1696 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1697 $PAGE- > assign ( 'token' , getToken ());
1698 $PAGE- > assign ( 'maxfilesize' , getMaxFileSize ());
1699 $PAGE- > renderPage ( 'import' );
1703 // -------- Otherwise, simply display search form and links:
1704 $PAGE = new pageBuilder
;
1705 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1706 buildLinkList ( $PAGE , $LINKSDB ); // Compute list of links to display
1707 $PAGE- > renderPage ( 'linklist' );
1711 // -----------------------------------------------------------------------------------------------
1712 // Process the import file form.
1713 function importFile ()
1715 if (!( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ])) { die ( 'Not allowed.' ); }
1716 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
1717 $filename = $_FILES [ 'filetoupload' ][ 'name' ];
1718 $filesize = $_FILES [ 'filetoupload' ][ 'size' ];
1719 $data = file_get_contents ( $_FILES [ 'filetoupload' ][ 'tmp_name' ]);
1720 $private = ( empty ( $_POST [ 'private' ]) ? 0 : 1 ); // Should the links be imported as private?
1721 $overwrite = ! empty ( $_POST [ 'overwrite' ]) ; // Should the imported links overwrite existing ones?
1726 if ( startsWith ( $data , '<!DOCTYPE NETSCAPE-Bookmark-file-1>' )) $type = 'netscape' ; // Netscape bookmark file (aka Firefox).
1728 // Then import the bookmarks.
1729 if ( $type == 'netscape' )
1731 // This is a standard Netscape-style bookmark file.
1732 // This format is supported by all browsers (except IE, of course), also Delicious, Diigo and others.
1733 foreach ( explode ( '<DT>' , $data ) as $html ) // explode is very fast
1735 $link = array ( 'linkdate' => '' , 'title' => '' , 'url' => '' , 'description' => '' , 'tags' => '' , 'private' => 0 );
1736 $d = explode ( '<DD>' , $html );
1737 if ( startswith ( $d [ 0 ], '<A ' ))
1739 $link [ 'description' ] = ( isset ( $d [ 1 ]) ? html_entity_decode ( trim ( $d [ 1 ]), ENT_QUOTES
, 'UTF-8' ) : '' ); // Get description (optional)
1740 preg_match ( '!<A .*?>(.*?)</A>!i' , $d [ 0 ], $matches ); $link [ 'title' ] = ( isset ( $matches [ 1 ]) ? trim ( $matches [ 1 ]) : '' ); // Get title
1741 $link [ 'title' ] = html_entity_decode ( $link [ 'title' ], ENT_QUOTES
, 'UTF-8' );
1742 preg_match_all ( '! ([A-Z_]+)= \" (.*?)"!i' , $html , $matches , PREG_SET_ORDER
); // Get all other attributes
1744 foreach ( $matches as $m )
1746 $attr = $m [ 1 ]; $value = $m [ 2 ];
1747 if ( $attr == 'HREF' ) $link [ 'url' ]= html_entity_decode ( $value , ENT_QUOTES
, 'UTF-8' );
1748 elseif ( $attr == 'ADD_DATE' )
1750 $raw_add_date = intval ( $value );
1751 if ( $raw_add_date > 30000000000 ) $raw_add_date /= 1000 ; //If larger than year 2920, then was likely stored in milliseconds instead of seconds
1753 elseif ( $attr == 'PRIVATE' ) $link [ 'private' ]=( $value == '0' ? 0 : 1 );
1754 elseif ( $attr == 'TAGS' ) $link [ 'tags' ]= html_entity_decode ( str_replace ( ',' , ' ' , $value ), ENT_QUOTES
, 'UTF-8' );
1756 if ( $link [ 'url' ]!= '' )
1758 if ( $private == 1 ) $link [ 'private' ]= 1 ;
1759 $dblink = $LINKSDB- > getLinkFromUrl ( $link [ 'url' ]); // See if the link is already in database.
1761 { // Link not in database, let's import it...
1762 if ( empty ( $raw_add_date )) $raw_add_date = time (); // In case of shitty bookmark file with no ADD_DATE
1764 // Make sure date/time is not already used by another link.
1765 // (Some bookmark files have several different links with the same ADD_DATE)
1766 // We increment date by 1 second until we find a date which is not used in DB.
1767 // (so that links that have the same date/time are more or less kept grouped by date, but do not conflict.)
1768 while (! empty ( $LINKSDB [ date ( 'Ymd_His' , $raw_add_date )])) { $raw_add_date++
; } // Yes, I know it's ugly.
1769 $link [ 'linkdate' ]= date ( 'Ymd_His' , $raw_add_date );
1770 $LINKSDB [ $link [ 'linkdate' ]] = $link ;
1773 else // Link already present in database.
1776 { // If overwrite is required, we import link data, except date/time.
1777 $link [ 'linkdate' ]= $dblink [ 'linkdate' ];
1778 $LINKSDB [ $link [ 'linkdate' ]] = $link ;
1788 echo '<script language="JavaScript">alert("File ' . json_encode ( $filename ). ' (' . $filesize . ' bytes) was successfully processed: ' . $import_count . ' links imported.");document.location= \' ? \' ;</script>' ;
1792 echo '<script language="JavaScript">alert("File ' . json_encode ( $filename ). ' (' . $filesize . ' bytes) has an unknown file format. Nothing was imported.");document.location= \' ? \' ;</script>' ;
1796 // -----------------------------------------------------------------------------------------------
1797 // Template for the list of links (<div id="linklist">)
1798 // This function fills all the necessary fields in the $PAGE for the template 'linklist.html'
1799 function buildLinkList ( $PAGE , $LINKSDB )
1801 // ---- Filter link database according to parameters
1802 $linksToDisplay = array ();
1805 if ( isset ( $_GET [ 'searchterm' ])) // Fulltext search
1807 $linksToDisplay = $LINKSDB- > filterFulltext ( trim ( $_GET [ 'searchterm' ]));
1808 $search_crits = htmlspecialchars ( trim ( $_GET [ 'searchterm' ]));
1809 $search_type = 'fulltext' ;
1811 elseif ( isset ( $_GET [ 'searchtags' ])) // Search by tag
1813 $linksToDisplay = $LINKSDB- > filterTags ( trim ( $_GET [ 'searchtags' ]));
1814 $search_crits = explode ( ' ' , trim ( $_GET [ 'searchtags' ]));
1815 $search_type = 'tags' ;
1817 elseif ( isset ( $_SERVER [ 'QUERY_STRING' ]) && preg_match ( '/[a-zA-Z0-9-_@] {6} (&.+?)?/' , $_SERVER [ 'QUERY_STRING' ])) // Detect smallHashes in URL
1819 $linksToDisplay = $LINKSDB- > filterSmallHash ( substr ( trim ( $_SERVER [ "QUERY_STRING" ], '/' ), 0 , 6 ));
1820 if ( count ( $linksToDisplay )== 0 )
1822 header ( $_SERVER [ "SERVER_PROTOCOL" ]. " 404 Not Found" );
1823 echo '<h1>404 Not found.</h1>Oh crap. The link you are trying to reach does not exist or has been deleted.' ;
1824 echo '<br>You would mind <a href="?">clicking here</a>?' ;
1827 $search_type = 'permalink' ;
1830 $linksToDisplay = $LINKSDB ; // Otherwise, display without filtering.
1832 // Option: Show only private links
1833 if (! empty ( $_SESSION [ 'privateonly' ]))
1836 foreach ( $linksToDisplay as $linkdate => $link )
1838 if ( $link [ 'private' ]!= 0 ) $tmp [ $linkdate ]= $link ;
1840 $linksToDisplay = $tmp ;
1843 // ---- Handle paging.
1844 /* Can someone explain to me why you get the following error when using array_keys() on an object which implements the interface ArrayAccess???
1845 "Warning: array_keys() expects parameter 1 to be array, object given in ... "
1846 If my class implements ArrayAccess, why won't array_keys() accept it ? ( $keys=array_keys($linksToDisplay); )
1848 $keys = array (); foreach ( $linksToDisplay as $key => $value ) { $keys
[]= $key
; } // Stupid and ugly. Thanks PHP.
1850 // If there is only a single link, we change on-the-fly the title of the page.
1851 if ( count ( $linksToDisplay )== 1 ) $GLOBALS [ 'pagetitle' ] = $linksToDisplay [ $keys [ 0 ]][ 'title' ]. ' - ' . $GLOBALS [ 'title' ];
1853 // Select articles according to paging.
1854 $pagecount = ceil ( count ( $keys )/ $_SESSION [ 'LINKS_PER_PAGE' ]);
1855 $pagecount = ( $pagecount == 0 ? 1 : $pagecount );
1856 $page =( empty ( $_GET [ 'page' ]) ? 1 : intval ( $_GET [ 'page' ]));
1857 $page = ( $page < 1 ? 1 : $page );
1858 $page = ( $page > $pagecount ? $pagecount : $page );
1859 $i = ( $page-1 )* $_SESSION [ 'LINKS_PER_PAGE' ]; // Start index.
1860 $end = $i +
$_SESSION [ 'LINKS_PER_PAGE' ];
1861 $linkDisp = array (); // Links to display
1862 while ( $i < $end && $i < count ( $keys ))
1864 $link = $linksToDisplay [ $keys [ $i ]];
1865 $link [ 'description' ]= nl2br ( keepMultipleSpaces ( text2clickable ( htmlspecialchars ( $link [ 'description' ]))));
1866 $title = $link [ 'title' ];
1867 $classLi = $i %
2 != 0 ? '' : 'publicLinkHightLight' ;
1868 $link [ 'class' ] = ( $link [ 'private' ]== 0 ? $classLi : 'private' );
1869 $link [ 'localdate' ]= linkdate2locale ( $link [ 'linkdate' ]);
1870 $taglist = explode ( ' ' , $link [ 'tags' ]);
1871 uasort ( $taglist , 'strcasecmp' );
1872 $link [ 'taglist' ]= $taglist ;
1873 $linkDisp [ $keys [ $i ]] = $link ;
1877 // Compute paging navigation
1878 $searchterm = ( empty ( $_GET [ 'searchterm' ]) ? '' : '&searchterm=' . $_GET [ 'searchterm' ] );
1879 $searchtags = ( empty ( $_GET [ 'searchtags' ]) ? '' : '&searchtags=' . $_GET [ 'searchtags' ] );
1881 $previous_page_url = '' ; if ( $i != count ( $keys )) $previous_page_url = '?page=' .( $page +
1 ). $searchterm . $searchtags ;
1882 $next_page_url = '' ; if ( $page > 1 ) $next_page_url = '?page=' .( $page-1 ). $searchterm . $searchtags ;
1884 $token = '' ; if ( isLoggedIn ()) $token = getToken ();
1886 // Fill all template fields.
1887 $PAGE- > assign ( 'linkcount' , count ( $LINKSDB ));
1888 $PAGE- > assign ( 'previous_page_url' , $previous_page_url );
1889 $PAGE- > assign ( 'next_page_url' , $next_page_url );
1890 $PAGE- > assign ( 'page_current' , $page );
1891 $PAGE- > assign ( 'page_max' , $pagecount );
1892 $PAGE- > assign ( 'result_count' , count ( $linksToDisplay ));
1893 $PAGE- > assign ( 'search_type' , $search_type );
1894 $PAGE- > assign ( 'search_crits' , $search_crits );
1895 $PAGE- > assign ( 'redirector' , empty ( $GLOBALS [ 'redirector' ]) ? '' : $GLOBALS [ 'redirector' ]); // Optional redirector URL.
1896 $PAGE- > assign ( 'token' , $token );
1897 $PAGE- > assign ( 'links' , $linkDisp );
1901 // Compute the thumbnail for a link.
1903 // With a link to the original URL.
1904 // Understands various services (youtube.com...)
1905 // Input: $url = URL for which the thumbnail must be found.
1906 // $href = if provided, this URL will be followed instead of $url
1907 // Returns an associative array with thumbnail attributes (src,href,width,height,style,alt)
1908 // Some of them may be missing.
1909 // Return an empty array if no thumbnail available.
1910 function computeThumbnail ( $url , $href = false )
1912 if (! $GLOBALS [ 'config' ][ 'ENABLE_THUMBNAILS' ]) return array ();
1913 if ( $href == false ) $href = $url ;
1915 // For most hosts, the URL of the thumbnail can be easily deduced from the URL of the link.
1916 // (e.g. http://www.youtube.com/watch?v=spVypYk4kto ---> http://img.youtube.com/vi/spVypYk4kto/default.jpg )
1917 // ^^^^^^^^^^^ ^^^^^^^^^^^
1918 $domain = parse_url ( $url , PHP_URL_HOST
);
1919 if ( $domain == 'youtube.com' || $domain == 'www.youtube.com' )
1921 parse_str ( parse_url ( $url , PHP_URL_QUERY
), $params ); // Extract video ID and get thumbnail
1922 if (! empty ( $params [ 'v' ])) return array ( 'src' => 'https://img.youtube.com/vi/' . $params [ 'v' ]. '/default.jpg' ,
1923 'href' => $href , 'width' => '120' , 'height' => '90' , 'alt' => 'YouTube thumbnail' );
1925 if ( $domain == 'youtu.be' ) // Youtube short links
1927 $path = parse_url ( $url , PHP_URL_PATH
);
1928 return array ( 'src' => 'https://img.youtube.com/vi' . $path . '/default.jpg' ,
1929 'href' => $href , 'width' => '120' , 'height' => '90' , 'alt' => 'YouTube thumbnail' );
1931 if ( $domain == 'pix.toile-libre.org' ) // pix.toile-libre.org image hosting
1933 parse_str ( parse_url ( $url , PHP_URL_QUERY
), $params ); // Extract image filename.
1934 if (! empty ( $params ) && ! empty ( $params [ 'img' ])) return array ( 'src' => 'http://pix.toile-libre.org/upload/thumb/' . urlencode ( $params [ 'img' ]),
1935 'href' => $href , 'style' => 'max-width:120px; max-height:150px' , 'alt' => 'pix.toile-libre.org thumbnail' );
1938 if ( $domain == 'imgur.com' )
1940 $path = parse_url ( $url , PHP_URL_PATH
);
1941 if ( startsWith ( $path , '/a/' )) return array (); // Thumbnails for albums are not available.
1942 if ( startsWith ( $path , '/r/' )) return array ( 'src' => 'https://i.imgur.com/' . basename ( $path ). 's.jpg' ,
1943 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1944 if ( startsWith ( $path , '/gallery/' )) return array ( 'src' => 'https://i.imgur.com' . substr ( $path , 8 ). 's.jpg' ,
1945 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1947 if ( substr_count ( $path , '/' )== 1 ) return array ( 'src' => 'https://i.imgur.com/' . substr ( $path , 1 ). 's.jpg' ,
1948 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1950 if ( $domain == 'i.imgur.com' )
1952 $pi = pathinfo ( parse_url ( $url , PHP_URL_PATH
));
1953 if (! empty ( $pi [ 'filename' ])) return array ( 'src' => 'https://i.imgur.com/' . $pi [ 'filename' ]. 's.jpg' ,
1954 'href' => $href , 'width' => '90' , 'height' => '90' , 'alt' => 'imgur.com thumbnail' );
1956 if ( $domain == 'dailymotion.com' || $domain == 'www.dailymotion.com' )
1958 if ( strpos ( $url , 'dailymotion.com/video/' )!== false )
1960 $thumburl = str_replace ( 'dailymotion.com/video/' , 'dailymotion.com/thumbnail/video/' , $url );
1961 return array ( 'src' => $thumburl ,
1962 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'DailyMotion thumbnail' );
1965 if ( endsWith ( $domain , '.imageshack.us' ))
1967 $ext = strtolower ( pathinfo ( $url , PATHINFO_EXTENSION
));
1968 if ( $ext == 'jpg' || $ext == 'jpeg' || $ext == 'png' || $ext == 'gif' )
1970 $thumburl = substr ( $url , 0 , strlen ( $url )- strlen ( $ext )). 'th.' . $ext ;
1971 return array ( 'src' => $thumburl ,
1972 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'imageshack.us thumbnail' );
1976 // Some other hosts are SLOW AS HELL and usually require an extra HTTP request to get the thumbnail URL.
1977 // So we deport the thumbnail generation in order not to slow down page generation
1978 // (and we also cache the thumbnail)
1980 if (! $GLOBALS [ 'config' ][ 'ENABLE_LOCALCACHE' ]) return array (); // If local cache is disabled, no thumbnails for services which require the use a local cache.
1982 if ( $domain == 'flickr.com' || endsWith ( $domain , '.flickr.com' )
1983 || $domain == 'vimeo.com'
1984 || $domain == 'ted.com' || endsWith ( $domain , '.ted.com' )
1985 || $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' )
1988 if ( $domain == 'vimeo.com' )
1989 { // Make sure this vimeo URL points to a video (/xxx... where xxx is numeric)
1990 $path = parse_url ( $url , PHP_URL_PATH
);
1991 if (! preg_match ( '!/\d+.+?!' , $path )) return array (); // This is not a single video URL.
1993 if ( $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' ))
1994 { // Make sure this URL points to a single comic (/xxx... where xxx is numeric)
1995 $path = parse_url ( $url , PHP_URL_PATH
);
1996 if (! preg_match ( '!/\d+.+?!' , $path )) return array ();
1998 if ( $domain == 'ted.com' || endsWith ( $domain , '.ted.com' ))
1999 { // Make sure this TED URL points to a video (/talks/...)
2000 $path = parse_url ( $url , PHP_URL_PATH
);
2001 if ( "/talks/" !== substr ( $path , 0 , 7 )) return array (); // This is not a single video URL.
2003 $sign = hash_hmac ( 'sha256' , $url , $GLOBALS [ 'salt' ]); // We use the salt to sign data (it's random, secret, and specific to each installation)
2004 return array ( 'src' => indexUrl (). '?do=genthumbnail&hmac=' . htmlspecialchars ( $sign ). '&url=' . urlencode ( $url ),
2005 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'thumbnail' );
2008 // For all other, we try to make a thumbnail of links ending with .jpg/jpeg/png/gif
2009 // Technically speaking, we should download ALL links and check their Content-Type to see if they are images.
2010 // But using the extension will do.
2011 $ext = strtolower ( pathinfo ( $url , PATHINFO_EXTENSION
));
2012 if ( $ext == 'jpg' || $ext == 'jpeg' || $ext == 'png' || $ext == 'gif' )
2014 $sign = hash_hmac ( 'sha256' , $url , $GLOBALS [ 'salt' ]); // We use the salt to sign data (it's random, secret, and specific to each installation)
2015 return array ( 'src' => indexUrl (). '?do=genthumbnail&hmac=' . htmlspecialchars ( $sign ). '&url=' . urlencode ( $url ),
2016 'href' => $href , 'width' => '120' , 'style' => 'height:auto;' , 'alt' => 'thumbnail' );
2018 return array (); // No thumbnail.
2023 // Returns the HTML code to display a thumbnail for a link
2024 // with a link to the original URL.
2025 // Understands various services (youtube.com...)
2026 // Input: $url = URL for which the thumbnail must be found.
2027 // $href = if provided, this URL will be followed instead of $url
2028 // Returns '' if no thumbnail available.
2029 function thumbnail ( $url , $href = false )
2031 $t = computeThumbnail ( $url , $href );
2032 if ( count ( $t )== 0 ) return '' ; // Empty array = no thumbnail for this URL.
2034 $html = '<a href="' . htmlspecialchars ( $t [ 'href' ]). '"><img src="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2035 if (! empty ( $t [ 'width' ])) $html .= ' width="' . htmlspecialchars ( $t [ 'width' ]). '"' ;
2036 if (! empty ( $t [ 'height' ])) $html .= ' height="' . htmlspecialchars ( $t [ 'height' ]). '"' ;
2037 if (! empty ( $t [ 'style' ])) $html .= ' style="' . htmlspecialchars ( $t [ 'style' ]). '"' ;
2038 if (! empty ( $t [ 'alt' ])) $html .= ' alt="' . htmlspecialchars ( $t [ 'alt' ]). '"' ;
2044 // Returns the HTML code to display a thumbnail for a link
2045 // for the picture wall (using lazy image loading)
2046 // Understands various services (youtube.com...)
2047 // Input: $url = URL for which the thumbnail must be found.
2048 // $href = if provided, this URL will be followed instead of $url
2049 // Returns '' if no thumbnail available.
2050 function lazyThumbnail ( $url , $href = false )
2052 $t = computeThumbnail ( $url , $href );
2053 if ( count ( $t )== 0 ) return '' ; // Empty array = no thumbnail for this URL.
2055 $html = '<a href="' . htmlspecialchars ( $t [ 'href' ]). '">' ;
2057 // Lazy image (only loaded by JavaScript when in the viewport).
2058 if (! empty ( $GLOBALS [ 'disablejquery' ])) // (except if jQuery is disabled)
2059 $html .= '<img class="lazyimage" src="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2061 $html .= '<img class="lazyimage" src="#" data-original="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2063 if (! empty ( $t [ 'width' ])) $html .= ' width="' . htmlspecialchars ( $t [ 'width' ]). '"' ;
2064 if (! empty ( $t [ 'height' ])) $html .= ' height="' . htmlspecialchars ( $t [ 'height' ]). '"' ;
2065 if (! empty ( $t [ 'style' ])) $html .= ' style="' . htmlspecialchars ( $t [ 'style' ]). '"' ;
2066 if (! empty ( $t [ 'alt' ])) $html .= ' alt="' . htmlspecialchars ( $t [ 'alt' ]). '"' ;
2069 // No-JavaScript fallback.
2070 $html .= '<noscript><img src="' . htmlspecialchars ( $t [ 'src' ]). '"' ;
2071 if (! empty ( $t [ 'width' ])) $html .= ' width="' . htmlspecialchars ( $t [ 'width' ]). '"' ;
2072 if (! empty ( $t [ 'height' ])) $html .= ' height="' . htmlspecialchars ( $t [ 'height' ]). '"' ;
2073 if (! empty ( $t [ 'style' ])) $html .= ' style="' . htmlspecialchars ( $t [ 'style' ]). '"' ;
2074 if (! empty ( $t [ 'alt' ])) $html .= ' alt="' . htmlspecialchars ( $t [ 'alt' ]). '"' ;
2075 $html .= '></noscript></a>' ;
2081 // -----------------------------------------------------------------------------------------------
2083 // This function should NEVER be called if the file data/config.php exists.
2086 // On free.fr host, make sure the /sessions directory exists, otherwise login will not work.
2087 if ( endsWith ( $_SERVER [ 'HTTP_HOST' ], '.free.fr' ) && ! is_dir ( $_SERVER [ 'DOCUMENT_ROOT' ]. '/sessions' )) mkdir ( $_SERVER [ 'DOCUMENT_ROOT' ]. '/sessions' , 0705 );
2090 // This part makes sure sessions works correctly.
2091 // (Because on some hosts, session.save_path may not be set correctly,
2092 // or we may not have write access to it.)
2093 if ( isset ( $_GET [ 'test_session' ]) && ( ! isset ( $_SESSION ) || ! isset ( $_SESSION [ 'session_tested' ]) || $_SESSION [ 'session_tested' ]!= 'Working' ))
2094 { // Step 2: Check if data in session is correct.
2095 echo '<pre>Sessions do not seem to work correctly on your server.<br>' ;
2096 echo 'Make sure the variable session.save_path is set correctly in your php config, and that you have write access to it.<br>' ;
2097 echo 'It currently points to ' . session_save_path (). '<br>' ;
2098 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>' ;
2099 echo '<br><a href="?">Click to try again.</a></pre>' ;
2102 if (! isset ( $_SESSION [ 'session_tested' ]))
2103 { // Step 1 : Try to store data in session and reload page.
2104 $_SESSION [ 'session_tested' ] = 'Working' ; // Try to set a variable in session.
2105 header ( 'Location: ' . indexUrl (). '?test_session' ); // Redirect to check stored data.
2107 if ( isset ( $_GET [ 'test_session' ]))
2108 { // Step 3: Sessions are OK. Remove test parameter from URL.
2109 header ( 'Location: ' . indexUrl ());
2113 if (! empty ( $_POST [ 'setlogin' ]) && ! empty ( $_POST [ 'setpassword' ]))
2116 if (! empty ( $_POST [ 'continent' ]) && ! empty ( $_POST [ 'city' ]))
2117 if ( isTZvalid ( $_POST [ 'continent' ], $_POST [ 'city' ]))
2118 $tz = $_POST [ 'continent' ]. '/' . $_POST [ 'city' ];
2119 $GLOBALS [ 'timezone' ] = $tz ;
2120 // Everything is ok, let's create config file.
2121 $GLOBALS [ 'login' ] = $_POST [ 'setlogin' ];
2122 $GLOBALS [ 'salt' ] = sha1 ( uniqid ( '' , true ). '_' . mt_rand ()); // Salt renders rainbow-tables attacks useless.
2123 $GLOBALS [ 'hash' ] = sha1 ( $_POST [ 'setpassword' ]. $GLOBALS [ 'login' ]. $GLOBALS [ 'salt' ]);
2124 $GLOBALS [ 'title' ] = ( empty ( $_POST [ 'title' ]) ? 'Shared links on ' . htmlspecialchars ( indexUrl ()) : $_POST [ 'title' ] );
2126 echo '<script language="JavaScript">alert("Shaarli is now configured. Please enter your login/password and start shaaring your links!");document.location= \' ?do=login \' ;</script>' ;
2130 // Display config form:
2131 list ( $timezone_form , $timezone_js ) = templateTZform ();
2132 $timezone_html = '' ; if ( $timezone_form != '' ) $timezone_html = '<tr><td valign="top"><b>Timezone:</b></td><td>' . $timezone_form . '</td></tr>' ;
2134 $PAGE = new pageBuilder
;
2135 $PAGE- > assign ( 'timezone_html' , $timezone_html );
2136 $PAGE- > assign ( 'timezone_js' , $timezone_js );
2137 $PAGE- > renderPage ( 'install' );
2141 // Generates the timezone selection form and JavaScript.
2142 // Input: (optional) current timezone (can be 'UTC/UTC'). It will be pre-selected.
2143 // Output: array(html,js)
2144 // Example: list($htmlform,$js) = templateTZform('Europe/Paris'); // Europe/Paris pre-selected.
2145 // Returns array('','') if server does not support timezones list. (e.g. PHP 5.1 on free.fr)
2146 function templateTZform ( $ptz = false )
2148 if ( function_exists ( 'timezone_identifiers_list' )) // because of old PHP version (5.1) which can be found on free.fr
2150 // Try to split the provided timezone.
2151 if ( $ptz == false ) { $l
= timezone_identifiers_list (); $ptz
= $l
[ 0 ]; }
2152 $spos = strpos ( $ptz , '/' ); $pcontinent = substr ( $ptz , 0 , $spos ); $pcity = substr ( $ptz , $spos +
1 );
2154 // Display config form:
2155 $timezone_form = '' ;
2157 // The list is in the form "Europe/Paris", "America/Argentina/Buenos_Aires"...
2158 // We split the list in continents/cities.
2159 $continents = array ();
2161 foreach ( timezone_identifiers_list () as $tz )
2163 if ( $tz == 'UTC' ) $tz = 'UTC/UTC' ;
2164 $spos = strpos ( $tz , '/' );
2167 $continent = substr ( $tz , 0 , $spos ); $city = substr ( $tz , $spos +
1 );
2168 $continents [ $continent ]= 1 ;
2169 if (! isset ( $cities [ $continent ])) $cities [ $continent ]= '' ;
2170 $cities [ $continent ].= '<option value="' . $city . '"' .( $pcity == $city ? 'selected' : '' ). '>' . $city . '</option>' ;
2173 $continents_html = '' ;
2174 $continents = array_keys ( $continents );
2175 foreach ( $continents as $continent )
2176 $continents_html .= '<option value="' . $continent . '"' .( $pcontinent == $continent ? 'selected' : '' ). '>' . $continent . '</option>' ;
2177 $cities_html = $cities [ $pcontinent ];
2178 $timezone_form = "Continent: <select name= \" continent \" id= \" continent \" onChange= \" onChangecontinent(); \" > ${continents_html} </select>" ;
2179 $timezone_form .= " City: <select name= \" city \" id= \" city \" > ${cities[$pcontinent]} </select><br />" ;
2180 $timezone_js = "<script language= \" JavaScript \" >" ;
2181 $timezone_js .= "function onChangecontinent() {document.getElementById(\"city\").innerHTML = citiescontinent[document.getElementById(\"continent\").value];} " ;
2182 $timezone_js .= "var citiescontinent = " . json_encode ( $cities ). ";" ;
2183 $timezone_js .= "</script>" ;
2184 return array ( $timezone_form , $timezone_js );
2186 return array ( '' , '' );
2189 // Tells if a timezone is valid or not.
2190 // If not valid, returns false.
2191 // If system does not support timezone list, returns false.
2192 function isTZvalid ( $continent , $city )
2194 $tz = $continent . '/' . $city ;
2195 if ( function_exists ( 'timezone_identifiers_list' )) // because of old PHP version (5.1) which can be found on free.fr
2197 if ( in_array ( $tz , timezone_identifiers_list ())) // it's a valid timezone?
2202 if (! function_exists ( 'json_encode' )) {
2203 function json_encode ( $data ) {
2204 switch ( $type = gettype ( $data )) {
2208 return ( $data ? 'true' : 'false' );
2214 return '"' . addslashes ( $data ) . '"' ;
2216 $data = get_object_vars ( $data );
2218 $output_index_count = 0 ;
2219 $output_indexed = array ();
2220 $output_associative = array ();
2221 foreach ( $data as $key => $value ) {
2222 $output_indexed [] = json_encode ( $value );
2223 $output_associative [] = json_encode ( $key ) . ':' . json_encode ( $value );
2224 if ( $output_index_count !== NULL && $output_index_count ++
!== $key ) {
2225 $output_index_count = NULL ;
2228 if ( $output_index_count !== NULL ) {
2229 return '[' . implode ( ',' , $output_indexed ) . ']' ;
2231 return ' {' . implode(',', $output_associative) . '} ' ;
2234 return '' ; // Not supported
2239 // Webservices (for use with jQuery/jQueryUI)
2240 // e.g. index.php?ws=tags&term=minecr
2241 function processWS ()
2243 if ( empty ( $_GET [ 'ws' ]) || empty ( $_GET [ 'term' ])) return ;
2244 $term = $_GET [ 'term' ];
2245 $LINKSDB = new linkdb ( isLoggedIn () || $GLOBALS [ 'config' ][ 'OPEN_SHAARLI' ]); // Read links from database (and filter private links if used it not logged in).
2246 header ( 'Content-Type: application/json; charset=utf-8' );
2248 // Search in tags (case insensitive, cumulative search)
2249 if ( $_GET [ 'ws' ]== 'tags' )
2251 $tags = explode ( ' ' , str_replace ( ',' , ' ' , $term )); $last = array_pop ( $tags ); // Get the last term ("a b c d" ==> "a b c", "d")
2252 $addtags = '' ; if ( $tags ) $addtags = implode ( ' ' , $tags ). ' ' ; // We will pre-pend previous tags
2254 /* To speed up things, we store list of tags in session */
2255 if ( empty ( $_SESSION [ 'tags' ])) $_SESSION [ 'tags' ] = $LINKSDB- > allTags ();
2256 foreach ( $_SESSION [ 'tags' ] as $key => $value )
2258 if ( startsWith ( $key , $last , $case = false ) && ! in_array ( $key , $tags )) $suggested [ $addtags . $key . ' ' ]= 0 ;
2260 echo json_encode ( array_keys ( $suggested ));
2264 // Search a single tag (case sensitive, single tag search)
2265 if ( $_GET [ 'ws' ]== 'singletag' )
2267 /* To speed up things, we store list of tags in session */
2268 if ( empty ( $_SESSION [ 'tags' ])) $_SESSION [ 'tags' ] = $LINKSDB- > allTags ();
2269 foreach ( $_SESSION [ 'tags' ] as $key => $value )
2271 if ( startsWith ( $key , $term , $case = true )) $suggested [ $key ]= 0 ;
2273 echo json_encode ( array_keys ( $suggested ));
2278 // Re-write configuration file according to globals.
2279 // Requires some $GLOBALS to be set (login,hash,salt,title).
2280 // If the config file cannot be saved, an error message is displayed and the user is redirected to "Tools" menu.
2281 // (otherwise, the function simply returns.)
2282 function writeConfig ()
2284 if ( is_file ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]) && ! isLoggedIn ()) die ( 'You are not authorized to alter config.' ); // Only logged in user can alter config.
2285 $config = '<?php $GLOBALS [ \' login \' ]=' . var_export ( $GLOBALS [ 'login' ], true ). '; $GLOBALS [ \' hash \' ]=' . var_export ( $GLOBALS [ 'hash' ], true ). '; $GLOBALS [ \' salt \' ]=' . var_export ( $GLOBALS [ 'salt' ], true ). '; ' ;
2286 $config .= ' $GLOBALS [ \' timezone \' ]=' . var_export ( $GLOBALS [ 'timezone' ], true ). '; date_default_timezone_set(' . var_export ( $GLOBALS [ 'timezone' ], true ). '); $GLOBALS [ \' title \' ]=' . var_export ( $GLOBALS [ 'title' ], true ). ';' ;
2287 $config .= ' $GLOBALS [ \' titleLink \' ]=' . var_export ( $GLOBALS [ 'titleLink' ], true ). '; ' ;
2288 $config .= ' $GLOBALS [ \' redirector \' ]=' . var_export ( $GLOBALS [ 'redirector' ], true ). '; ' ;
2289 $config .= ' $GLOBALS [ \' disablesessionprotection \' ]=' . var_export ( $GLOBALS [ 'disablesessionprotection' ], true ). '; ' ;
2290 $config .= ' $GLOBALS [ \' disablejquery \' ]=' . var_export ( $GLOBALS [ 'disablejquery' ], true ). '; ' ;
2291 $config .= ' $GLOBALS [ \' privateLinkByDefault \' ]=' . var_export ( $GLOBALS [ 'privateLinkByDefault' ], true ). '; ' ;
2293 if (! file_put_contents ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ], $config ) || strcmp ( file_get_contents ( $GLOBALS [ 'config' ][ 'CONFIG_FILE' ]), $config )!= 0 )
2295 echo '<script language="JavaScript">alert("Shaarli could not create the config file. Please make sure Shaarli has the right to write in the folder is it installed in.");document.location= \' ? \' ;</script>' ;
2300 /* Because some f*cking services like flickr require an extra HTTP request to get the thumbnail URL,
2301 I have deported the thumbnail URL code generation here, otherwise this would slow down page generation.
2302 The following function takes the URL a link (e.g. a flickr page) and return the proper thumbnail.
2303 This function is called by passing the URL:
2304 http://mywebsite.com/shaarli/?do=genthumbnail&hmac=[HMAC]&url=[URL]
2305 [URL] is the URL of the link (e.g. a flickr page)
2306 [HMAC] is the signature for the [URL] (so that these URL cannot be forged).
2307 The function below will fetch the image from the webservice and store it in the cache.
2309 function genThumbnail ()
2311 // Make sure the parameters in the URL were generated by us.
2312 $sign = hash_hmac ( 'sha256' , $_GET [ 'url' ], $GLOBALS [ 'salt' ]);
2313 if ( $sign != $_GET [ 'hmac' ]) die ( 'Naughty boy!' );
2315 // Let's see if we don't already have the image for this URL in the cache.
2316 $thumbname = hash ( 'sha1' , $_GET [ 'url' ]). '.jpg' ;
2317 if ( is_file ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ))
2318 { // We have the thumbnail, just serve it:
2319 header ( 'Content-Type: image/jpeg' );
2320 echo file_get_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname );
2323 // We may also serve a blank image (if service did not respond)
2324 $blankname = hash ( 'sha1' , $_GET [ 'url' ]). '.gif' ;
2325 if ( is_file ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $blankname ))
2327 header ( 'Content-Type: image/gif' );
2328 echo file_get_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $blankname );
2332 // Otherwise, generate the thumbnail.
2333 $url = $_GET [ 'url' ];
2334 $domain = parse_url ( $url , PHP_URL_HOST
);
2336 if ( $domain == 'flickr.com' || endsWith ( $domain , '.flickr.com' ))
2338 // Crude replacement to handle new flickr domain policy (They prefer www. now)
2339 $url = str_replace ( 'http://flickr.com/' , 'http://www.flickr.com/' , $url );
2341 // Is this a link to an image, or to a flickr page ?
2343 if ( endswith ( parse_url ( $url , PHP_URL_PATH
), '.jpg' ))
2344 { // This is a direct link to an image. e.g. http://farm1.staticflickr.com/5/5921913_ac83ed27bd_o.jpg
2345 preg_match ( '!(http://farm\d+\.staticflickr\.com/\d+/\d+_\w+_)\w.jpg!' , $url , $matches );
2346 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ]. 'm.jpg' ;
2348 else // This is a flickr page (html)
2350 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 20 ); // Get the flickr html page.
2351 if ( strpos ( $httpstatus , '200 OK' )!== false )
2353 // flickr now nicely provides the URL of the thumbnail in each flickr page.
2354 preg_match ( '!<link rel= \" image_src \" href= \" (.+?) \" !' , $data , $matches );
2355 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ];
2357 // In albums (and some other pages), the link rel="image_src" is not provided,
2358 // but flickr provides:
2359 // <meta property="og:image" content="http://farm4.staticflickr.com/3398/3239339068_25d13535ff_z.jpg" />
2362 preg_match ( '!<meta property= \" og:image \" content= \" (.+?) \" !' , $data , $matches );
2363 if (! empty ( $matches [ 1 ])) $imageurl = $matches [ 1 ];
2369 { // Let's download the image.
2370 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 10 ); // Image is 240x120, so 10 seconds to download should be enough.
2371 if ( strpos ( $httpstatus , '200 OK' )!== false )
2373 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname , $data ); // Save image to cache.
2374 header ( 'Content-Type: image/jpeg' );
2381 elseif ( $domain == 'vimeo.com' )
2383 // This is more complex: we have to perform a HTTP request, then parse the result.
2384 // Maybe we should deport this to JavaScript ? Example: http://stackoverflow.com/questions/1361149/get-img-thumbnails-from-vimeo/4285098#4285098
2385 $vid = substr ( parse_url ( $url , PHP_URL_PATH
), 1 );
2386 list ( $httpstatus , $headers , $data ) = getHTTP ( 'https://vimeo.com/api/v2/video/' . htmlspecialchars ( $vid ). '.php' , 5 );
2387 if ( strpos ( $httpstatus , '200 OK' )!== false )
2389 $t = unserialize ( $data );
2390 $imageurl = $t [ 0 ][ 'thumbnail_medium' ];
2391 // Then we download the image and serve it to our client.
2392 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 10 );
2393 if ( strpos ( $httpstatus , '200 OK' )!== false )
2395 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname , $data ); // Save image to cache.
2396 header ( 'Content-Type: image/jpeg' );
2403 elseif ( $domain == 'ted.com' || endsWith ( $domain , '.ted.com' ))
2405 // The thumbnail for TED talks is located in the <link rel="image_src" [...]> tag on that page
2406 // http://www.ted.com/talks/mikko_hypponen_fighting_viruses_defending_the_net.html
2407 // <link rel="image_src" href="http://images.ted.com/images/ted/28bced335898ba54d4441809c5b1112ffaf36781_389x292.jpg" />
2408 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 5 );
2409 if ( strpos ( $httpstatus , '200 OK' )!== false )
2411 // Extract the link to the thumbnail
2412 preg_match ( '!link rel="image_src" href="(http://images.ted.com/images/ted/.+_\d+x\d+\.jpg)"!' , $data , $matches );
2413 if (! empty ( $matches [ 1 ]))
2414 { // Let's download the image.
2415 $imageurl = $matches [ 1 ];
2416 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 20 ); // No control on image size, so wait long enough.
2417 if ( strpos ( $httpstatus , '200 OK' )!== false )
2419 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2420 file_put_contents ( $filepath , $data ); // Save image to cache.
2421 if ( resizeImage ( $filepath ))
2423 header ( 'Content-Type: image/jpeg' );
2424 echo file_get_contents ( $filepath );
2432 elseif ( $domain == 'xkcd.com' || endsWith ( $domain , '.xkcd.com' ))
2434 // There is no thumbnail available for xkcd comics, so download the whole image and resize it.
2435 // http://xkcd.com/327/
2436 // <img src="http://imgs.xkcd.com/comics/exploits_of_a_mom.png" title="<BLABLA>" alt="<BLABLA>" />
2437 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 5 );
2438 if ( strpos ( $httpstatus , '200 OK' )!== false )
2440 // Extract the link to the thumbnail
2441 preg_match ( '!<img src="(http://imgs.xkcd.com/comics/.*)" title="[^s]!' , $data , $matches );
2442 if (! empty ( $matches [ 1 ]))
2443 { // Let's download the image.
2444 $imageurl = $matches [ 1 ];
2445 list ( $httpstatus , $headers , $data ) = getHTTP ( $imageurl , 20 ); // No control on image size, so wait long enough.
2446 if ( strpos ( $httpstatus , '200 OK' )!== false )
2448 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2449 file_put_contents ( $filepath , $data ); // Save image to cache.
2450 if ( resizeImage ( $filepath ))
2452 header ( 'Content-Type: image/jpeg' );
2453 echo file_get_contents ( $filepath );
2463 // For all other domains, we try to download the image and make a thumbnail.
2464 list ( $httpstatus , $headers , $data ) = getHTTP ( $url , 30 ); // We allow 30 seconds max to download (and downloads are limited to 4 Mb)
2465 if ( strpos ( $httpstatus , '200 OK' )!== false )
2467 $filepath = $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $thumbname ;
2468 file_put_contents ( $filepath , $data ); // Save image to cache.
2469 if ( resizeImage ( $filepath ))
2471 header ( 'Content-Type: image/jpeg' );
2472 echo file_get_contents ( $filepath );
2479 // Otherwise, return an empty image (8x8 transparent gif)
2480 $blankgif = base64_decode ( 'R0lGODlhCAAIAIAAAP///////yH5BAEKAAEALAAAAAAIAAgAAAIHjI+py+1dAAA7' );
2481 file_put_contents ( $GLOBALS [ 'config' ][ 'CACHEDIR' ]. '/' . $blankname , $blankgif ); // Also put something in cache so that this URL is not requested twice.
2482 header ( 'Content-Type: image/gif' );
2486 // Make a thumbnail of the image (to width: 120 pixels)
2487 // Returns true if success, false otherwise.
2488 function resizeImage ( $filepath )
2490 if (! function_exists ( 'imagecreatefromjpeg' )) return false ; // GD not present: no thumbnail possible.
2492 // Trick: some stupid people rename GIF as JPEG... or else.
2493 // So we really try to open each image type whatever the extension is.
2494 $header = file_get_contents ( $filepath , false , NULL , 0 , 256 ); // Read first 256 bytes and try to sniff file type.
2496 $i = strpos ( $header , 'GIF8' ); if (( $i !== false ) && ( $i == 0 )) $im = imagecreatefromgif ( $filepath ); // Well this is crude, but it should be enough.
2497 $i = strpos ( $header , 'PNG' ); if (( $i !== false ) && ( $i == 1 )) $im = imagecreatefrompng ( $filepath );
2498 $i = strpos ( $header , 'JFIF' ); if ( $i !== false ) $im = imagecreatefromjpeg ( $filepath );
2499 if (! $im ) return false ; // Unable to open image (corrupted or not an image)
2502 $ystart = 0 ; $yheight = $h ;
2503 if ( $h > $w ) { $ystart
= ( $h
/ 2 )-( $w
/ 2 ); $yheight
= $w
/ 2 ; }
2504 $nw = 120 ; // Desired width
2505 $nh = min ( floor (( $h * $nw )/ $w ), 120 ); // Compute new width/height, but maximum 120 pixels height.
2507 $im2 = imagecreatetruecolor ( $nw , $nh );
2508 imagecopyresampled ( $im2 , $im , 0 , 0 , 0 , $ystart , $nw , $nh , $w , $yheight );
2509 imageinterlace ( $im2 , true ); // For progressive JPEG.
2510 $tempname = $filepath . '_TEMP.jpg' ;
2511 imagejpeg ( $im2 , $tempname , 90 );
2515 rename ( $tempname , $filepath ); // Overwrite original picture with thumbnail.
2519 // Invalidate caches when the database is changed or the user logs out.
2520 // (e.g. tags cache).
2521 function invalidateCaches ()
2523 unset ( $_SESSION [ 'tags' ]); // Purge cache attached to session.
2524 pageCache
:: purgeCache (); // Purge page cache shared by sessions.
2527 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=genthumbnail' )) { genThumbnail (); exit ; } // Thumbnail generation/cache does not need the link database.
2528 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=rss' )) { showRSS (); exit ; }
2529 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=atom' )) { showATOM (); exit ; }
2530 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=dailyrss' )) { showDailyRSS (); exit ; }
2531 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'do=daily' )) { showDaily (); exit ; }
2532 if ( isset ( $_SERVER [ "QUERY_STRING" ]) && startswith ( $_SERVER [ "QUERY_STRING" ], 'ws=' )) { processWS (); exit ; } // Webservices (for jQuery/jQueryUI)
2533 if (! isset ( $_SESSION [ 'LINKS_PER_PAGE' ])) $_SESSION [ 'LINKS_PER_PAGE' ]= $GLOBALS [ 'config' ][ 'LINKS_PER_PAGE' ];