Mercurial > hg > vamp-website

annotate forum/Sources/PackageGet.php @ 85:6d7b61434be7 website

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a copy of this here, just in case!
author Chris Cannam
date Mon, 20 Jan 2014 11:02:36 +0000
parents e3e11437ecea
children
rev   line source
Chris@76 1 <?php
Chris@76 2
Chris@76 3 /**
Chris@76 4 * Simple Machines Forum (SMF)
Chris@76 5 *
Chris@76 6 * @package SMF
Chris@76 7 * @author Simple Machines http://www.simplemachines.org
Chris@76 8 * @copyright 2011 Simple Machines
Chris@76 9 * @license http://www.simplemachines.org/about/smf/license.php BSD
Chris@76 10 *
Chris@76 11 * @version 2.0
Chris@76 12 */
Chris@76 13
Chris@76 14 if (!defined('SMF'))
Chris@76 15 die('Hacking attempt...');
Chris@76 16
Chris@76 17 /* // !!!
Chris@76 18
Chris@76 19 void PackageGet()
Chris@76 20 // !!!
Chris@76 21
Chris@76 22 void PackageGBrowse()
Chris@76 23 // !!!
Chris@76 24
Chris@76 25 void PackageDownload()
Chris@76 26 // !!!
Chris@76 27
Chris@76 28 void PackageUpload()
Chris@76 29 // !!!
Chris@76 30
Chris@76 31 void PackageServerAdd()
Chris@76 32 // !!!
Chris@76 33
Chris@76 34 void PackageServerRemove()
Chris@76 35 // !!!
Chris@76 36 */
Chris@76 37
Chris@76 38 // Browse the list of package servers, add servers...
Chris@76 39 function PackageGet()
Chris@76 40 {
Chris@76 41 global $txt, $scripturl, $context, $boarddir, $sourcedir, $modSettings;
Chris@76 42
Chris@76 43 isAllowedTo('admin_forum');
Chris@76 44 require_once($sourcedir . '/Subs-Package.php');
Chris@76 45
Chris@76 46 // Use the Packages template... no reason to separate.
Chris@76 47 loadLanguage('Packages');
Chris@76 48 loadTemplate('Packages', 'admin');
Chris@76 49
Chris@76 50 $context['page_title'] = $txt['package'];
Chris@76 51
Chris@76 52 // Here is a list of all the potentially valid actions.
Chris@76 53 $subActions = array(
Chris@76 54 'servers' => 'PackageServers',
Chris@76 55 'add' => 'PackageServerAdd',
Chris@76 56 'browse' => 'PackageGBrowse',
Chris@76 57 'download' => 'PackageDownload',
Chris@76 58 'remove' => 'PackageServerRemove',
Chris@76 59 'upload' => 'PackageUpload',
Chris@76 60 );
Chris@76 61
Chris@76 62 // Now let's decide where we are taking this...
Chris@76 63 if (isset($_REQUEST['sa']) && isset($subActions[$_REQUEST['sa']]))
Chris@76 64 $context['sub_action'] = $_REQUEST['sa'];
Chris@76 65 // We need to support possible old javascript links...
Chris@76 66 elseif (isset($_GET['pgdownload']))
Chris@76 67 $context['sub_action'] = 'download';
Chris@76 68 else
Chris@76 69 $context['sub_action'] = 'servers';
Chris@76 70
Chris@76 71 // We need to force the "Download" tab as selected.
Chris@76 72 $context['menu_data_' . $context['admin_menu_id']]['current_subsection'] = 'packageget';
Chris@76 73
Chris@76 74 // Now create the tabs for the template.
Chris@76 75 $context[$context['admin_menu_name']]['tab_data'] = array(
Chris@76 76 'title' => $txt['package_manager'],
Chris@76 77 //'help' => 'registrations',
Chris@76 78 'description' => $txt['package_manager_desc'],
Chris@76 79 'tabs' => array(
Chris@76 80 'browse' => array(
Chris@76 81 ),
Chris@76 82 'packageget' => array(
Chris@76 83 'description' => $txt['download_packages_desc'],
Chris@76 84 ),
Chris@76 85 'installed' => array(
Chris@76 86 'description' => $txt['installed_packages_desc'],
Chris@76 87 ),
Chris@76 88 'perms' => array(
Chris@76 89 'description' => $txt['package_file_perms_desc'],
Chris@76 90 ),
Chris@76 91 'options' => array(
Chris@76 92 'description' => $txt['package_install_options_ftp_why'],
Chris@76 93 ),
Chris@76 94 ),
Chris@76 95 );
Chris@76 96
Chris@76 97 $subActions[$context['sub_action']]();
Chris@76 98 }
Chris@76 99
Chris@76 100 function PackageServers()
Chris@76 101 {
Chris@76 102 global $txt, $scripturl, $context, $boarddir, $sourcedir, $modSettings, $smcFunc;
Chris@76 103
Chris@76 104 // Ensure we use the correct template, and page title.
Chris@76 105 $context['sub_template'] = 'servers';
Chris@76 106 $context['page_title'] .= ' - ' . $txt['download_packages'];
Chris@76 107
Chris@76 108 // Load the list of servers.
Chris@76 109 $request = $smcFunc['db_query']('', '
Chris@76 110 SELECT id_server, name, url
Chris@76 111 FROM {db_prefix}package_servers',
Chris@76 112 array(
Chris@76 113 )
Chris@76 114 );
Chris@76 115 $context['servers'] = array();
Chris@76 116 while ($row = $smcFunc['db_fetch_assoc']($request))
Chris@76 117 {
Chris@76 118 $context['servers'][] = array(
Chris@76 119 'name' => $row['name'],
Chris@76 120 'url' => $row['url'],
Chris@76 121 'id' => $row['id_server'],
Chris@76 122 );
Chris@76 123 }
Chris@76 124 $smcFunc['db_free_result']($request);
Chris@76 125
Chris@76 126 $context['package_download_broken'] = !is_writable($boarddir . '/Packages') || !is_writable($boarddir . '/Packages/installed.list');
Chris@76 127
Chris@76 128 if ($context['package_download_broken'])
Chris@76 129 {
Chris@76 130 @chmod($boarddir . '/Packages', 0777);
Chris@76 131 @chmod($boarddir . '/Packages/installed.list', 0777);
Chris@76 132 }
Chris@76 133
Chris@76 134 $context['package_download_broken'] = !is_writable($boarddir . '/Packages') || !is_writable($boarddir . '/Packages/installed.list');
Chris@76 135
Chris@76 136 if ($context['package_download_broken'])
Chris@76 137 {
Chris@76 138 if (isset($_POST['ftp_username']))
Chris@76 139 {
Chris@76 140 loadClassFile('Class-Package.php');
Chris@76 141 $ftp = new ftp_connection($_POST['ftp_server'], $_POST['ftp_port'], $_POST['ftp_username'], $_POST['ftp_password']);
Chris@76 142
Chris@76 143 if ($ftp->error === false)
Chris@76 144 {
Chris@76 145 // I know, I know... but a lot of people want to type /home/xyz/... which is wrong, but logical.
Chris@76 146 if (!$ftp->chdir($_POST['ftp_path']))
Chris@76 147 {
Chris@76 148 $ftp_error = $ftp->error;
Chris@76 149 $ftp->chdir(preg_replace('~^/home[2]?/[^/]+?~', '', $_POST['ftp_path']));
Chris@76 150 }
Chris@76 151 }
Chris@76 152 }
Chris@76 153
Chris@76 154 if (!isset($ftp) || $ftp->error !== false)
Chris@76 155 {
Chris@76 156 if (!isset($ftp))
Chris@76 157 {
Chris@76 158 loadClassFile('Class-Package.php');
Chris@76 159 $ftp = new ftp_connection(null);
Chris@76 160 }
Chris@76 161 elseif ($ftp->error !== false && !isset($ftp_error))
Chris@76 162 $ftp_error = $ftp->last_message === null ? '' : $ftp->last_message;
Chris@76 163
Chris@76 164 list ($username, $detect_path, $found_path) = $ftp->detect_path($boarddir);
Chris@76 165
Chris@76 166 if ($found_path || !isset($_POST['ftp_path']))
Chris@76 167 $_POST['ftp_path'] = $detect_path;
Chris@76 168
Chris@76 169 if (!isset($_POST['ftp_username']))
Chris@76 170 $_POST['ftp_username'] = $username;
Chris@76 171
Chris@76 172 $context['package_ftp'] = array(
Chris@76 173 'server' => isset($_POST['ftp_server']) ? $_POST['ftp_server'] : (isset($modSettings['package_server']) ? $modSettings['package_server'] : 'localhost'),
Chris@76 174 'port' => isset($_POST['ftp_port']) ? $_POST['ftp_port'] : (isset($modSettings['package_port']) ? $modSettings['package_port'] : '21'),
Chris@76 175 'username' => isset($_POST['ftp_username']) ? $_POST['ftp_username'] : (isset($modSettings['package_username']) ? $modSettings['package_username'] : ''),
Chris@76 176 'path' => $_POST['ftp_path'],
Chris@76 177 'error' => empty($ftp_error) ? null : $ftp_error,
Chris@76 178 );
Chris@76 179 }
Chris@76 180 else
Chris@76 181 {
Chris@76 182 $context['package_download_broken'] = false;
Chris@76 183
Chris@76 184 $ftp->chmod('Packages', 0777);
Chris@76 185 $ftp->chmod('Packages/installed.list', 0777);
Chris@76 186
Chris@76 187 $ftp->close();
Chris@76 188 }
Chris@76 189 }
Chris@76 190 }
Chris@76 191
Chris@76 192 // Browse a server's list of packages.
Chris@76 193 function PackageGBrowse()
Chris@76 194 {
Chris@76 195 global $txt, $boardurl, $context, $scripturl, $boarddir, $sourcedir, $forum_version, $context, $smcFunc;
Chris@76 196
Chris@76 197 if (isset($_GET['server']))
Chris@76 198 {
Chris@76 199 if ($_GET['server'] == '')
Chris@76 200 redirectexit('action=admin;area=packages;get');
Chris@76 201
Chris@76 202 $server = (int) $_GET['server'];
Chris@76 203
Chris@76 204 // Query the server list to find the current server.
Chris@76 205 $request = $smcFunc['db_query']('', '
Chris@76 206 SELECT name, url
Chris@76 207 FROM {db_prefix}package_servers
Chris@76 208 WHERE id_server = {int:current_server}
Chris@76 209 LIMIT 1',
Chris@76 210 array(
Chris@76 211 'current_server' => $server,
Chris@76 212 )
Chris@76 213 );
Chris@76 214 list ($name, $url) = $smcFunc['db_fetch_row']($request);
Chris@76 215 $smcFunc['db_free_result']($request);
Chris@76 216
Chris@76 217 // If the server does not exist, dump out.
Chris@76 218 if (empty($url))
Chris@76 219 fatal_lang_error('couldnt_connect', false);
Chris@76 220
Chris@76 221 // If there is a relative link, append to the stored server url.
Chris@76 222 if (isset($_GET['relative']))
Chris@76 223 $url = $url . (substr($url, -1) == '/' ? '' : '/') . $_GET['relative'];
Chris@76 224
Chris@76 225 // Clear any "absolute" URL. Since "server" is present, "absolute" is garbage.
Chris@76 226 unset($_GET['absolute']);
Chris@76 227 }
Chris@76 228 elseif (isset($_GET['absolute']) && $_GET['absolute'] != '')
Chris@76 229 {
Chris@76 230 // Initialize the requried variables.
Chris@76 231 $server = '';
Chris@76 232 $url = $_GET['absolute'];
Chris@76 233 $name = '';
Chris@76 234 $_GET['package'] = $url . '/packages.xml?language=' . $context['user']['language'];
Chris@76 235
Chris@76 236 // Clear any "relative" URL. Since "server" is not present, "relative" is garbage.
Chris@76 237 unset($_GET['relative']);
Chris@76 238
Chris@76 239 $token = checkConfirm('get_absolute_url');
Chris@76 240 if ($token !== true)
Chris@76 241 {
Chris@76 242 $context['sub_template'] = 'package_confirm';
Chris@76 243
Chris@76 244 $context['page_title'] = $txt['package_servers'];
Chris@76 245 $context['confirm_message'] = sprintf($txt['package_confirm_view_package_content'], htmlspecialchars($_GET['absolute']));
Chris@76 246 $context['proceed_href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;absolute=' . urlencode($_GET['absolute']) . ';confirm=' . $token;
Chris@76 247
Chris@76 248 return;
Chris@76 249 }
Chris@76 250 }
Chris@76 251 // Minimum required parameter did not exist so dump out.
Chris@76 252 else
Chris@76 253 fatal_lang_error('couldnt_connect', false);
Chris@76 254
Chris@76 255 // Attempt to connect. If unsuccessful... try the URL.
Chris@76 256 if (!isset($_GET['package']) || file_exists($_GET['package']))
Chris@76 257 $_GET['package'] = $url . '/packages.xml?language=' . $context['user']['language'];
Chris@76 258
Chris@76 259 // Check to be sure the packages.xml file actually exists where it is should be... or dump out.
Chris@76 260 if ((isset($_GET['absolute']) || isset($_GET['relative'])) && !url_exists($_GET['package']))
Chris@76 261 fatal_lang_error('packageget_unable', false, array($url . '/index.php'));
Chris@76 262
Chris@76 263 // Might take some time.
Chris@76 264 @set_time_limit(600);
Chris@76 265
Chris@76 266 // Read packages.xml and parse into xmlArray. (the true tells it to trim things ;).)
Chris@76 267 loadClassFile('Class-Package.php');
Chris@76 268 $listing = new xmlArray(fetch_web_data($_GET['package']), true);
Chris@76 269
Chris@76 270 // Errm.... empty file? Try the URL....
Chris@76 271 if (!$listing->exists('package-list'))
Chris@76 272 fatal_lang_error('packageget_unable', false, array($url . '/index.php'));
Chris@76 273
Chris@76 274 // List out the packages...
Chris@76 275 $context['package_list'] = array();
Chris@76 276
Chris@76 277 $listing = $listing->path('package-list[0]');
Chris@76 278
Chris@76 279 // Use the package list's name if it exists.
Chris@76 280 if ($listing->exists('list-title'))
Chris@76 281 $name = $listing->fetch('list-title');
Chris@76 282
Chris@76 283 // Pick the correct template.
Chris@76 284 $context['sub_template'] = 'package_list';
Chris@76 285
Chris@76 286 $context['page_title'] = $txt['package_servers'] . ($name != '' ? ' - ' . $name : '');
Chris@76 287 $context['package_server'] = $server;
Chris@76 288
Chris@76 289 // By default we use an unordered list, unless there are no lists with more than one package.
Chris@76 290 $context['list_type'] = 'ul';
Chris@76 291
Chris@76 292 $instmods = loadInstalledPackages();
Chris@76 293
Chris@76 294 $installed_mods = array();
Chris@76 295 // Look through the list of installed mods...
Chris@76 296 foreach ($instmods as $installed_mod)
Chris@76 297 $installed_mods[$installed_mod['package_id']] = $installed_mod['version'];
Chris@76 298
Chris@76 299 // Get default author and email if they exist.
Chris@76 300 if ($listing->exists('default-author'))
Chris@76 301 {
Chris@76 302 $default_author = $smcFunc['htmlspecialchars']($listing->fetch('default-author'));
Chris@76 303 if ($listing->exists('default-author/@email'))
Chris@76 304 $default_email = $smcFunc['htmlspecialchars']($listing->fetch('default-author/@email'));
Chris@76 305 }
Chris@76 306
Chris@76 307 // Get default web site if it exists.
Chris@76 308 if ($listing->exists('default-website'))
Chris@76 309 {
Chris@76 310 $default_website = $smcFunc['htmlspecialchars']($listing->fetch('default-website'));
Chris@76 311 if ($listing->exists('default-website/@title'))
Chris@76 312 $default_title = $smcFunc['htmlspecialchars']($listing->fetch('default-website/@title'));
Chris@76 313 }
Chris@76 314
Chris@76 315 $the_version = strtr($forum_version, array('SMF ' => ''));
Chris@76 316 if (!empty($_SESSION['version_emulate']))
Chris@76 317 $the_version = $_SESSION['version_emulate'];
Chris@76 318
Chris@76 319 $packageNum = 0;
Chris@76 320 $packageSection = 0;
Chris@76 321
Chris@76 322 $sections = $listing->set('section');
Chris@76 323 foreach ($sections as $i => $section)
Chris@76 324 {
Chris@76 325 $context['package_list'][$packageSection] = array(
Chris@76 326 'title' => '',
Chris@76 327 'text' => '',
Chris@76 328 'items' => array(),
Chris@76 329 );
Chris@76 330
Chris@76 331 $packages = $section->set('title|heading|text|remote|rule|modification|language|avatar-pack|theme|smiley-set');
Chris@76 332 foreach ($packages as $thisPackage)
Chris@76 333 {
Chris@76 334 $package = array(
Chris@76 335 'type' => $thisPackage->name(),
Chris@76 336 );
Chris@76 337
Chris@76 338 if (in_array($package['type'], array('title', 'text')))
Chris@76 339 $context['package_list'][$packageSection][$package['type']] = $smcFunc['htmlspecialchars']($thisPackage->fetch('.'));
Chris@76 340 // It's a Title, Heading, Rule or Text.
Chris@76 341 elseif (in_array($package['type'], array('heading', 'rule')))
Chris@76 342 $package['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('.'));
Chris@76 343 // It's a Remote link.
Chris@76 344 elseif ($package['type'] == 'remote')
Chris@76 345 {
Chris@76 346 $remote_type = $thisPackage->exists('@type') ? $thisPackage->fetch('@type') : 'relative';
Chris@76 347
Chris@76 348 if ($remote_type == 'relative' && substr($thisPackage->fetch('@href'), 0, 7) != 'http://')
Chris@76 349 {
Chris@76 350 if (isset($_GET['absolute']))
Chris@76 351 $current_url = $_GET['absolute'] . '/';
Chris@76 352 elseif (isset($_GET['relative']))
Chris@76 353 $current_url = $_GET['relative'] . '/';
Chris@76 354 else
Chris@76 355 $current_url = '';
Chris@76 356
Chris@76 357 $current_url .= $thisPackage->fetch('@href');
Chris@76 358 if (isset($_GET['absolute']))
Chris@76 359 $package['href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;absolute=' . $current_url;
Chris@76 360 else
Chris@76 361 $package['href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;server=' . $context['package_server'] . ';relative=' . $current_url;
Chris@76 362 }
Chris@76 363 else
Chris@76 364 {
Chris@76 365 $current_url = $thisPackage->fetch('@href');
Chris@76 366 $package['href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;absolute=' . $current_url;
Chris@76 367 }
Chris@76 368
Chris@76 369 $package['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('.'));
Chris@76 370 $package['link'] = '<a href="' . $package['href'] . '">' . $package['name'] . '</a>';
Chris@76 371 }
Chris@76 372 // It's a package...
Chris@76 373 else
Chris@76 374 {
Chris@76 375 if (isset($_GET['absolute']))
Chris@76 376 $current_url = $_GET['absolute'] . '/';
Chris@76 377 elseif (isset($_GET['relative']))
Chris@76 378 $current_url = $_GET['relative'] . '/';
Chris@76 379 else
Chris@76 380 $current_url = '';
Chris@76 381
Chris@76 382 $server_att = $server != '' ? ';server=' . $server : '';
Chris@76 383
Chris@76 384 $package += $thisPackage->to_array();
Chris@76 385
Chris@76 386 if (isset($package['website']))
Chris@76 387 unset($package['website']);
Chris@76 388 $package['author'] = array();
Chris@76 389
Chris@76 390 if ($package['description'] == '')
Chris@76 391 $package['description'] = $txt['package_no_description'];
Chris@76 392 else
Chris@76 393 $package['description'] = parse_bbc(preg_replace('~\[[/]?html\]~i', '', $smcFunc['htmlspecialchars']($package['description'])));
Chris@76 394
Chris@76 395 $package['is_installed'] = isset($installed_mods[$package['id']]);
Chris@76 396 $package['is_current'] = $package['is_installed'] && ($installed_mods[$package['id']] == $package['version']);
Chris@76 397 $package['is_newer'] = $package['is_installed'] && ($installed_mods[$package['id']] > $package['version']);
Chris@76 398
Chris@76 399 // This package is either not installed, or installed but old. Is it supported on this version of SMF?
Chris@76 400 if (!$package['is_installed'] || (!$package['is_current'] && !$package['is_newer']))
Chris@76 401 {
Chris@76 402 if ($thisPackage->exists('version/@for'))
Chris@76 403 $package['can_install'] = matchPackageVersion($the_version, $thisPackage->fetch('version/@for'));
Chris@76 404 }
Chris@76 405 // Okay, it's already installed AND up to date.
Chris@76 406 else
Chris@76 407 $package['can_install'] = false;
Chris@76 408
Chris@76 409 $already_exists = getPackageInfo(basename($package['filename']));
Chris@76 410 $package['download_conflict'] = is_array($already_exists) && $already_exists['id'] == $package['id'] && $already_exists['version'] != $package['version'];
Chris@76 411
Chris@76 412 $package['href'] = $url . '/' . $package['filename'];
Chris@76 413 $package['name'] = $smcFunc['htmlspecialchars']($package['name']);
Chris@76 414 $package['link'] = '<a href="' . $package['href'] . '">' . $package['name'] . '</a>';
Chris@76 415 $package['download']['href'] = $scripturl . '?action=admin;area=packages;get;sa=download' . $server_att . ';package=' . $current_url . $package['filename'] . ($package['download_conflict'] ? ';conflict' : '') . ';' . $context['session_var'] . '=' . $context['session_id'];
Chris@76 416 $package['download']['link'] = '<a href="' . $package['download']['href'] . '">' . $package['name'] . '</a>';
Chris@76 417
Chris@76 418 if ($thisPackage->exists('author') || isset($default_author))
Chris@76 419 {
Chris@76 420 if ($thisPackage->exists('author/@email'))
Chris@76 421 $package['author']['email'] = $thisPackage->fetch('author/@email');
Chris@76 422 elseif (isset($default_email))
Chris@76 423 $package['author']['email'] = $default_email;
Chris@76 424
Chris@76 425 if ($thisPackage->exists('author') && $thisPackage->fetch('author') != '')
Chris@76 426 $package['author']['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('author'));
Chris@76 427 else
Chris@76 428 $package['author']['name'] = $default_author;
Chris@76 429
Chris@76 430 if (!empty($package['author']['email']))
Chris@76 431 {
Chris@76 432 // Only put the "mailto:" if it looks like a valid email address. Some may wish to put a link to an SMF IM Form or other web mail form.
Chris@76 433 $package['author']['href'] = preg_match('~^[\w\.\-]+@[\w][\w\-\.]+[\w]$~', $package['author']['email']) != 0 ? 'mailto:' . $package['author']['email'] : $package['author']['email'];
Chris@76 434 $package['author']['link'] = '<a href="' . $package['author']['href'] . '">' . $package['author']['name'] . '</a>';
Chris@76 435 }
Chris@76 436 }
Chris@76 437
Chris@76 438 if ($thisPackage->exists('website') || isset($default_website))
Chris@76 439 {
Chris@76 440 if ($thisPackage->exists('website') && $thisPackage->exists('website/@title'))
Chris@76 441 $package['author']['website']['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('website/@title'));
Chris@76 442 elseif (isset($default_title))
Chris@76 443 $package['author']['website']['name'] = $default_title;
Chris@76 444 elseif ($thisPackage->exists('website'))
Chris@76 445 $package['author']['website']['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('website'));
Chris@76 446 else
Chris@76 447 $package['author']['website']['name'] = $default_website;
Chris@76 448
Chris@76 449 if ($thisPackage->exists('website') && $thisPackage->fetch('website') != '')
Chris@76 450 $authorhompage = $thisPackage->fetch('website');
Chris@76 451 else
Chris@76 452 $authorhompage = $default_website;
Chris@76 453
Chris@76 454 if (strpos(strtolower($authorhompage), 'a href') === false)
Chris@76 455 {
Chris@76 456 $package['author']['website']['href'] = $authorhompage;
Chris@76 457 $package['author']['website']['link'] = '<a href="' . $authorhompage . '">' . $package['author']['website']['name'] . '</a>';
Chris@76 458 }
Chris@76 459 else
Chris@76 460 {
Chris@76 461 if (preg_match('/a href="(.+?)"/', $authorhompage, $match) == 1)
Chris@76 462 $package['author']['website']['href'] = $match[1];
Chris@76 463 else
Chris@76 464 $package['author']['website']['href'] = '';
Chris@76 465 $package['author']['website']['link'] = $authorhompage;
Chris@76 466 }
Chris@76 467 }
Chris@76 468 else
Chris@76 469 {
Chris@76 470 $package['author']['website']['href'] = '';
Chris@76 471 $package['author']['website']['link'] = '';
Chris@76 472 }
Chris@76 473 }
Chris@76 474
Chris@76 475 $package['is_remote'] = $package['type'] == 'remote';
Chris@76 476 $package['is_title'] = $package['type'] == 'title';
Chris@76 477 $package['is_heading'] = $package['type'] == 'heading';
Chris@76 478 $package['is_text'] = $package['type'] == 'text';
Chris@76 479 $package['is_line'] = $package['type'] == 'rule';
Chris@76 480
Chris@76 481 $packageNum = in_array($package['type'], array('title', 'heading', 'text', 'remote', 'rule')) ? 0 : $packageNum + 1;
Chris@76 482 $package['count'] = $packageNum;
Chris@76 483
Chris@76 484 if (!in_array($package['type'], array('title', 'text')))
Chris@76 485 $context['package_list'][$packageSection]['items'][] = $package;
Chris@76 486
Chris@76 487 if ($package['count'] > 1)
Chris@76 488 $context['list_type'] = 'ol';
Chris@76 489 }
Chris@76 490
Chris@76 491 $packageSection++;
Chris@76 492 }
Chris@76 493
Chris@76 494 // Lets make sure we get a nice new spiffy clean $package to work with. Otherwise we get PAIN!
Chris@76 495 unset($package);
Chris@76 496
Chris@76 497 foreach ($context['package_list'] as $ps_id => $packageSection)
Chris@76 498 {
Chris@76 499 foreach ($packageSection['items'] as $i => $package)
Chris@76 500 {
Chris@76 501 if ($package['count'] == 0 || isset($package['can_install']))
Chris@76 502 continue;
Chris@76 503
Chris@76 504 $context['package_list'][$ps_id]['items'][$i]['can_install'] = false;
Chris@76 505
Chris@76 506 $packageInfo = getPackageInfo($url . '/' . $package['filename']);
Chris@76 507 if (is_array($packageInfo) && $packageInfo['xml']->exists('install'))
Chris@76 508 {
Chris@76 509 $installs = $packageInfo['xml']->set('install');
Chris@76 510 foreach ($installs as $install)
Chris@76 511 if (!$install->exists('@for') || matchPackageVersion($the_version, $install->fetch('@for')))
Chris@76 512 {
Chris@76 513 // Okay, this one is good to go.
Chris@76 514 $context['package_list'][$ps_id]['items'][$i]['can_install'] = true;
Chris@76 515 break;
Chris@76 516 }
Chris@76 517 }
Chris@76 518 }
Chris@76 519 }
Chris@76 520 }
Chris@76 521
Chris@76 522 // Download a package.
Chris@76 523 function PackageDownload()
Chris@76 524 {
Chris@76 525 global $txt, $scripturl, $boarddir, $context, $sourcedir, $smcFunc;
Chris@76 526
Chris@76 527 // Use the downloaded sub template.
Chris@76 528 $context['sub_template'] = 'downloaded';
Chris@76 529
Chris@76 530 // Security is good...
Chris@76 531 checkSession('get');
Chris@76 532
Chris@76 533 // To download something, we need a valid server or url.
Chris@76 534 if (empty($_GET['server']) && (!empty($_GET['get']) && !empty($_REQUEST['package'])))
Chris@76 535 fatal_lang_error('package_get_error_is_zero', false);
Chris@76 536
Chris@76 537 if (isset($_GET['server']))
Chris@76 538 {
Chris@76 539 $server = (int) $_GET['server'];
Chris@76 540
Chris@76 541 // Query the server table to find the requested server.
Chris@76 542 $request = $smcFunc['db_query']('', '
Chris@76 543 SELECT name, url
Chris@76 544 FROM {db_prefix}package_servers
Chris@76 545 WHERE id_server = {int:current_server}
Chris@76 546 LIMIT 1',
Chris@76 547 array(
Chris@76 548 'current_server' => $server,
Chris@76 549 )
Chris@76 550 );
Chris@76 551 list ($name, $url) = $smcFunc['db_fetch_row']($request);
Chris@76 552 $smcFunc['db_free_result']($request);
Chris@76 553
Chris@76 554 // If server does not exist then dump out.
Chris@76 555 if (empty($url))
Chris@76 556 fatal_lang_error('couldnt_connect', false);
Chris@76 557
Chris@76 558 $url = $url . '/';
Chris@76 559 }
Chris@76 560 else
Chris@76 561 {
Chris@76 562 // Initialize the requried variables.
Chris@76 563 $server = '';
Chris@76 564 $url = '';
Chris@76 565 }
Chris@76 566
Chris@76 567 if (isset($_REQUEST['byurl']) && !empty($_POST['filename']))
Chris@76 568 $package_name = basename($_REQUEST['filename']);
Chris@76 569 else
Chris@76 570 $package_name = basename($_REQUEST['package']);
Chris@76 571
Chris@76 572 if (isset($_REQUEST['conflict']) || (isset($_REQUEST['auto']) && file_exists($boarddir . '/Packages/' . $package_name)))
Chris@76 573 {
Chris@76 574 // Find the extension, change abc.tar.gz to abc_1.tar.gz...
Chris@76 575 if (strrpos(substr($package_name, 0, -3), '.') !== false)
Chris@76 576 {
Chris@76 577 $ext = substr($package_name, strrpos(substr($package_name, 0, -3), '.'));
Chris@76 578 $package_name = substr($package_name, 0, strrpos(substr($package_name, 0, -3), '.')) . '_';
Chris@76 579 }
Chris@76 580 else
Chris@76 581 $ext = '';
Chris@76 582
Chris@76 583 // Find the first available.
Chris@76 584 $i = 1;
Chris@76 585 while (file_exists($boarddir . '/Packages/' . $package_name . $i . $ext))
Chris@76 586 $i++;
Chris@76 587
Chris@76 588 $package_name = $package_name . $i . $ext;
Chris@76 589 }
Chris@76 590
Chris@76 591 // First make sure it's a package.
Chris@76 592 $packageInfo = getPackageInfo($url . $_REQUEST['package']);
Chris@76 593 if (!is_array($packageInfo))
Chris@76 594 fatal_lang_error($packageInfo);
Chris@76 595
Chris@76 596 // Use FTP if necessary.
Chris@76 597 create_chmod_control(array($boarddir . '/Packages/' . $package_name), array('destination_url' => $scripturl . '?action=admin;area=packages;get;sa=download' . (isset($_GET['server']) ? ';server=' . $_GET['server'] : '') . (isset($_REQUEST['auto']) ? ';auto' : '') . ';package=' . $_REQUEST['package'] . (isset($_REQUEST['conflict']) ? ';conflict' : '') . ';' . $context['session_var'] . '=' . $context['session_id'], 'crash_on_error' => true));
Chris@76 598 package_put_contents($boarddir . '/Packages/' . $package_name, fetch_web_data($url . $_REQUEST['package']));
Chris@76 599
Chris@76 600 // Done! Did we get this package automatically?
Chris@76 601 if (preg_match('~^http://[\w_\-]+\.simplemachines\.org/~', $_REQUEST['package']) == 1 && strpos($_REQUEST['package'], 'dlattach') === false && isset($_REQUEST['auto']))
Chris@76 602 redirectexit('action=admin;area=packages;sa=install;package=' . $package_name);
Chris@76 603
Chris@76 604 // You just downloaded a mod from SERVER_NAME_GOES_HERE.
Chris@76 605 $context['package_server'] = $server;
Chris@76 606
Chris@76 607 $context['package'] = getPackageInfo($package_name);
Chris@76 608
Chris@76 609 if (!is_array($context['package']))
Chris@76 610 fatal_lang_error('package_cant_download', false);
Chris@76 611
Chris@76 612 if ($context['package']['type'] == 'modification')
Chris@76 613 $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['install_mod'] . ' ]</a>';
Chris@76 614 elseif ($context['package']['type'] == 'avatar')
Chris@76 615 $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['use_avatars'] . ' ]</a>';
Chris@76 616 elseif ($context['package']['type'] == 'language')
Chris@76 617 $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['add_languages'] . ' ]</a>';
Chris@76 618 else
Chris@76 619 $context['package']['install']['link'] = '';
Chris@76 620
Chris@76 621 $context['package']['list_files']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=list;package=' . $context['package']['filename'] . '">[ ' . $txt['list_files'] . ' ]</a>';
Chris@76 622
Chris@76 623 // Free a little bit of memory...
Chris@76 624 unset($context['package']['xml']);
Chris@76 625
Chris@76 626 $context['page_title'] = $txt['download_success'];
Chris@76 627 }
Chris@76 628
Chris@76 629 // Upload a new package to the directory.
Chris@76 630 function PackageUpload()
Chris@76 631 {
Chris@76 632 global $txt, $scripturl, $boarddir, $context, $sourcedir;
Chris@76 633
Chris@76 634 // Setup the correct template, even though I'll admit we ain't downloading ;)
Chris@76 635 $context['sub_template'] = 'downloaded';
Chris@76 636
Chris@76 637 // !!! TODO: Use FTP if the Packages directory is not writable.
Chris@76 638
Chris@76 639 // Check the file was even sent!
Chris@76 640 if (!isset($_FILES['package']['name']) || $_FILES['package']['name'] == '')
Chris@76 641 fatal_lang_error('package_upload_error_nofile');
Chris@76 642 elseif (!is_uploaded_file($_FILES['package']['tmp_name']) || (@ini_get('open_basedir') == '' && !file_exists($_FILES['package']['tmp_name'])))
Chris@76 643 fatal_lang_error('package_upload_error_failure');
Chris@76 644
Chris@76 645 // Make sure it has a sane filename.
Chris@76 646 $_FILES['package']['name'] = preg_replace(array('/\s/', '/\.[\.]+/', '/[^\w_\.\-]/'), array('_', '.', ''), $_FILES['package']['name']);
Chris@76 647
Chris@76 648 if (strtolower(substr($_FILES['package']['name'], -4)) != '.zip' && strtolower(substr($_FILES['package']['name'], -4)) != '.tgz' && strtolower(substr($_FILES['package']['name'], -7)) != '.tar.gz')
Chris@76 649 fatal_lang_error('package_upload_error_supports', false, array('zip, tgz, tar.gz'));
Chris@76 650
Chris@76 651 // We only need the filename...
Chris@76 652 $packageName = basename($_FILES['package']['name']);
Chris@76 653
Chris@76 654 // Setup the destination and throw an error if the file is already there!
Chris@76 655 $destination = $boarddir . '/Packages/' . $packageName;
Chris@76 656 // !!! Maybe just roll it like we do for downloads?
Chris@76 657 if (file_exists($destination))
Chris@76 658 fatal_lang_error('package_upload_error_exists');
Chris@76 659
Chris@76 660 // Now move the file.
Chris@76 661 move_uploaded_file($_FILES['package']['tmp_name'], $destination);
Chris@76 662 @chmod($destination, 0777);
Chris@76 663
Chris@76 664 // If we got this far that should mean it's available.
Chris@76 665 $context['package'] = getPackageInfo($packageName);
Chris@76 666 $context['package_server'] = '';
Chris@76 667
Chris@76 668 // Not really a package, you lazy bum!
Chris@76 669 if (!is_array($context['package']))
Chris@76 670 {
Chris@76 671 @unlink($destination);
Chris@76 672 loadLanguage('Errors');
Chris@76 673 fatal_lang_error('package_upload_error_broken', false, $txt[$context['package']]);
Chris@76 674 }
Chris@76 675 // Is it already uploaded, maybe?
Chris@76 676 elseif ($dir = @opendir($boarddir . '/Packages'))
Chris@76 677 {
Chris@76 678 while ($package = readdir($dir))
Chris@76 679 {
Chris@76 680 if ($package == '.' || $package == '..' || $package == 'temp' || $package == $packageName || (!(is_dir($boarddir . '/Packages/' . $package) && file_exists($boarddir . '/Packages/' . $package . '/package-info.xml')) && substr(strtolower($package), -7) != '.tar.gz' && substr(strtolower($package), -4) != '.tgz' && substr(strtolower($package), -4) != '.zip'))
Chris@76 681 continue;
Chris@76 682
Chris@76 683 $packageInfo = getPackageInfo($package);
Chris@76 684 if (!is_array($packageInfo))
Chris@76 685 continue;
Chris@76 686
Chris@76 687 if ($packageInfo['id'] == $context['package']['id'] && $packageInfo['version'] == $context['package']['version'])
Chris@76 688 {
Chris@76 689 @unlink($destination);
Chris@76 690 loadLanguage('Errors');
Chris@76 691 fatal_lang_error('package_upload_error_exists');
Chris@76 692 }
Chris@76 693 }
Chris@76 694 closedir($dir);
Chris@76 695 }
Chris@76 696
Chris@76 697 if ($context['package']['type'] == 'modification')
Chris@76 698 $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['install_mod'] . ' ]</a>';
Chris@76 699 elseif ($context['package']['type'] == 'avatar')
Chris@76 700 $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['use_avatars'] . ' ]</a>';
Chris@76 701 elseif ($context['package']['type'] == 'language')
Chris@76 702 $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['add_languages'] . ' ]</a>';
Chris@76 703 else
Chris@76 704 $context['package']['install']['link'] = '';
Chris@76 705
Chris@76 706 $context['package']['list_files']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=list;package=' . $context['package']['filename'] . '">[ ' . $txt['list_files'] . ' ]</a>';
Chris@76 707
Chris@76 708 unset($context['package']['xml']);
Chris@76 709
Chris@76 710 $context['page_title'] = $txt['package_uploaded_success'];
Chris@76 711 }
Chris@76 712
Chris@76 713 // Add a package server to the list.
Chris@76 714 function PackageServerAdd()
Chris@76 715 {
Chris@76 716 global $smcFunc;
Chris@76 717
Chris@76 718 // Validate the user.
Chris@76 719 checkSession();
Chris@76 720
Chris@76 721 // If they put a slash on the end, get rid of it.
Chris@76 722 if (substr($_POST['serverurl'], -1) == '/')
Chris@76 723 $_POST['serverurl'] = substr($_POST['serverurl'], 0, -1);
Chris@76 724
Chris@76 725 // Are they both nice and clean?
Chris@76 726 $servername = trim($smcFunc['htmlspecialchars']($_POST['servername']));
Chris@76 727 $serverurl = trim($smcFunc['htmlspecialchars']($_POST['serverurl']));
Chris@76 728
Chris@76 729 // Make sure the URL has the correct prefix.
Chris@76 730 if (strpos($serverurl, 'http://') !== 0 && strpos($serverurl, 'https://') !== 0)
Chris@76 731 $serverurl = 'http://' . $serverurl;
Chris@76 732
Chris@76 733 $smcFunc['db_insert']('',
Chris@76 734 '{db_prefix}package_servers',
Chris@76 735 array(
Chris@76 736 'name' => 'string-255', 'url' => 'string-255',
Chris@76 737 ),
Chris@76 738 array(
Chris@76 739 $servername, $serverurl,
Chris@76 740 ),
Chris@76 741 array('id_server')
Chris@76 742 );
Chris@76 743
Chris@76 744 redirectexit('action=admin;area=packages;get');
Chris@76 745 }
Chris@76 746
Chris@76 747 // Remove a server from the list.
Chris@76 748 function PackageServerRemove()
Chris@76 749 {
Chris@76 750 global $smcFunc;
Chris@76 751
Chris@76 752 checkSession('get');
Chris@76 753
Chris@76 754 $smcFunc['db_query']('', '
Chris@76 755 DELETE FROM {db_prefix}package_servers
Chris@76 756 WHERE id_server = {int:current_server}',
Chris@76 757 array(
Chris@76 758 'current_server' => (int) $_GET['server'],
Chris@76 759 )
Chris@76 760 );
Chris@76 761
Chris@76 762 redirectexit('action=admin;area=packages;get');
Chris@76 763 }
Chris@76 764
Chris@76 765 ?>