1:   2:   3:   4:   5:   6:   7:   8:   9:  10:  11:  12:  13:  14:  15:  16:  17:  18:  19:  20:  21:  22:  23:  24:  25:  26:  27:  28:  29:  30:  31:  32:  33:  34:  35:  36:  37:  38:  39:  40:  41:  42:  43:  44:  45:  46:  47:  48:  49:  50:  51:  52:  53:  54:  55:  56:  57:  58:  59:  60:  61:  62:  63:  64:  65:  66:  67:  68:  69:  70:  71:  72:  73:  74:  75:  76:  77:  78:  79:  80:  81:  82:  83:  84:  85:  86:  87:  88:  89:  90:  91:  92:  93:  94:  95:  96:  97:  98:  99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 252: 253: 254: 255: 256: 257: 258: 259: 260: 261: 262: 263: 264: 265: 266: 267: 268: 269: 270: 271: 272: 273: 274: 275: 276: 277: 278: 279: 280: 281: 282: 283: 284: 285: 286: 287: 288: 289: 290: 291: 292: 293: 294: 295: 296: 297: 298: 299: 300: 301: 302: 303: 304: 305: 306: 307: 308: 309: 310: 311: 312: 313: 314: 315: 316: 317: 318: 319: 320: 321: 322: 323: 324: 325: 326: 327: 328: 329: 330: 331: 332: 333: 334: 335: 336: 337: 338: 339: 340: 341: 342: 343: 344: 345: 346: 347: 348: 349: 350: 351: 352: 353: 354: 355: 356: 357: 358: 359: 360: 361: 362: 363: 364: 365: 366: 367: 368: 369: 370: 371: 372: 373: 374: 375: 376: 377: 378: 379: 380: 381: 382: 383: 384: 385: 386: 387: 388: 389: 390: 391: 392: 393: 394: 395: 396: 397: 398: 399: 400: 401: 402: 403: 404: 405: 406: 407: 408: 409: 410: 411: 412: 413: 414: 415: 416: 417: 418: 419: 420: 421: 422: 423: 424: 425: 426: 427: 428: 429: 430: 431: 432: 433: 434: 435: 436: 437: 438: 439: 440: 441: 442: 443: 444: 445: 446: 447: 448: 449: 450: 451: 452: 453: 454: 455: 456: 457: 458: 459: 460: 461: 462: 463: 464: 465: 466: 467: 468: 469: 470: 471: 472: 473: 474: 475: 476: 477: 478: 479: 480: 481: 482: 483: 484: 485: 486: 487: 488: 489: 490: 491: 492: 493: 494: 495: 496: 497: 498: 499: 500: 501: 502: 503: 504: 505: 506: 507: 508: 509: 510: 511: 512: 513: 514: 515: 516: 517: 518: 519: 520: 521: 522: 523: 524: 525: 526: 527: 528: 529: 530: 531: 532: 533: 534: 535: 536: 537: 538: 539: 540: 541: 542: 543: 544: 545: 546: 547: 548: 549: 550: 551: 552: 553: 554: 555: 556: 557: 558: 559: 560: 561: 562: 563: 564: 565: 566: 567: 568: 569: 570: 571: 572: 573: 574: 575: 576: 577: 578: 579: 580: 581: 582: 583: 584: 585: 586: 587: 588: 589: 590: 591: 592: 593: 594: 595: 596: 597: 598: 599: 600: 601: 602: 603: 604: 605: 606: 607: 608: 609: 610: 611: 612: 613: 614: 615: 616: 617: 618: 619: 620: 621: 622: 623: 624: 625: 626: 627: 628: 629: 630: 631: 632: 633: 634: 635: 636: 637: 638: 639: 640: 641: 642: 643: 644: 645: 646: 647: 648: 649: 650: 651: 652: 653: 654: 655: 656: 657: 658: 659: 660: 661: 662: 663: 664: 665: 666: 667: 668: 669: 670: 671: 672: 673: 674: 675: 676: 677: 678: 679: 680: 681: 682: 683: 684: 685: 686: 687: 688: 689: 690: 691: 692: 693: 694: 695: 696: 697: 698: 699: 700: 701: 702: 703: 704: 705: 706: 707: 708: 709: 710: 711: 712: 713: 714: 715: 716: 717: 718: 719: 720: 721: 722: 723: 724: 725: 726: 727: 728: 729: 730: 731: 732: 733: 734: 735: 736: 737: 738: 739: 740: 741: 742: 743: 744: 745: 746: 747: 748: 749: 750: 751: 752: 753: 754: 755: 756: 757: 758: 759: 760: 761: 762: 763: 764: 765: 766: 767: 768: 769: 770: 771: 772: 773: 774: 775: 776: 777: 778: 779: 780: 781: 782: 783: 784: 
<?php

/**
 * This file handles the package servers and packages download from Package Manager.
 *
 * Simple Machines Forum (SMF)
 *
 * @package SMF
 * @author Simple Machines http://www.simplemachines.org
 * @copyright 2019 Simple Machines and individual contributors
 * @license http://www.simplemachines.org/about/smf/license.php BSD
 *
 * @version 2.1 RC1
 */

if (!defined('SMF'))
    die('No direct access...');

/**
 * Browse the list of package servers, add servers...
 */
function PackageGet()
{
    global $txt, $context, $sourcedir;

    isAllowedTo('admin_forum');
    require_once($sourcedir . '/Subs-Package.php');

    // Use the Packages template... no reason to separate.
    loadLanguage('Packages');
    loadTemplate('Packages', 'admin');

    $context['page_title'] = $txt['package'];

    // Here is a list of all the potentially valid actions.
    $subActions = array(
        'servers' => 'PackageServers',
        'add' => 'PackageServerAdd',
        'browse' => 'PackageGBrowse',
        'download' => 'PackageDownload',
        'remove' => 'PackageServerRemove',
        'upload' => 'PackageUpload',
    );

    // Now let's decide where we are taking this...
    if (isset($_REQUEST['sa']) && isset($subActions[$_REQUEST['sa']]))
        $context['sub_action'] = $_REQUEST['sa'];
    // We need to support possible old javascript links...
    elseif (isset($_GET['pgdownload']))
        $context['sub_action'] = 'download';
    else
        $context['sub_action'] = 'servers';

    // We need to force the "Download" tab as selected.
    $context['menu_data_' . $context['admin_menu_id']]['current_subsection'] = 'packageget';

    // Now create the tabs for the template.
    $context[$context['admin_menu_name']]['tab_data'] = array(
        'title' => $txt['package_manager'],
        //'help' => 'registrations',
        'description' => $txt['package_manager_desc'],
        'tabs' => array(
            'browse' => array(
            ),
            'packageget' => array(
                'description' => $txt['download_packages_desc'],
            ),
            'perms' => array(
                'description' => $txt['package_file_perms_desc'],
            ),
            'options' => array(
                'description' => $txt['package_install_options_ftp_why'],
            ),
        ),
    );

    call_integration_hook('integrate_package_get', array(&$subActions));

    call_helper($subActions[$context['sub_action']]);
}

/**
 * Load a list of package servers.
 */
function PackageServers()
{
    global $txt, $context, $sourcedir, $packagesdir, $modSettings, $smcFunc;

    // Ensure we use the correct template, and page title.
    $context['sub_template'] = 'servers';
    $context['page_title'] .= ' - ' . $txt['download_packages'];

    // Load the list of servers.
    $request = $smcFunc['db_query']('', '
        SELECT id_server, name, url
        FROM {db_prefix}package_servers',
        array(
        )
    );
    $context['servers'] = array();
    while ($row = $smcFunc['db_fetch_assoc']($request))
    {
        $context['servers'][] = array(
            'name' => $row['name'],
            'url' => $row['url'],
            'id' => $row['id_server'],
        );
    }
    $smcFunc['db_free_result']($request);

    $context['package_download_broken'] = !is_writable($packagesdir);

    if ($context['package_download_broken'])
    {
        smf_chmod($packagesdir, 0777);
    }

    $context['package_download_broken'] = !is_writable($packagesdir);

    if ($context['package_download_broken'])
    {
        if (isset($_POST['ftp_username']))
        {
            require_once($sourcedir . '/Class-Package.php');
            $ftp = new ftp_connection($_POST['ftp_server'], $_POST['ftp_port'], $_POST['ftp_username'], $_POST['ftp_password']);

            if ($ftp->error === false)
            {
                // I know, I know... but a lot of people want to type /home/xyz/... which is wrong, but logical.
                if (!$ftp->chdir($_POST['ftp_path']))
                {
                    $ftp_error = $ftp->error;
                    $ftp->chdir(preg_replace('~^/home[2]?/[^/]+?~', '', $_POST['ftp_path']));
                }
            }
        }

        if (!isset($ftp) || $ftp->error !== false)
        {
            if (!isset($ftp))
            {
                require_once($sourcedir . '/Class-Package.php');
                $ftp = new ftp_connection(null);
            }
            elseif ($ftp->error !== false && !isset($ftp_error))
                $ftp_error = $ftp->last_message === null ? '' : $ftp->last_message;

            list ($username, $detect_path, $found_path) = $ftp->detect_path($packagesdir);

            if ($found_path || !isset($_POST['ftp_path']))
                $_POST['ftp_path'] = $detect_path;

            if (!isset($_POST['ftp_username']))
                $_POST['ftp_username'] = $username;

            $context['package_ftp'] = array(
                'server' => isset($_POST['ftp_server']) ? $_POST['ftp_server'] : (isset($modSettings['package_server']) ? $modSettings['package_server'] : 'localhost'),
                'port' => isset($_POST['ftp_port']) ? $_POST['ftp_port'] : (isset($modSettings['package_port']) ? $modSettings['package_port'] : '21'),
                'username' => isset($_POST['ftp_username']) ? $_POST['ftp_username'] : (isset($modSettings['package_username']) ? $modSettings['package_username'] : ''),
                'path' => $_POST['ftp_path'],
                'error' => empty($ftp_error) ? null : $ftp_error,
            );
        }
        else
        {
            $context['package_download_broken'] = false;

            $ftp->chmod('.', 0777);
            $ftp->close();
        }
    }

    addInlineJavaScript('
    $(\'.new_package_content\').hide();
    $(\'.download_new_package\').on(\'click\', function() {
        var collapseState = $(\'.new_package_content\').css(\'display\');
        var icon = $(\'.download_new_package\').children(\'span\');
        var collapsedDiv = $(\'.new_package_content\');

        if (collapseState == \'none\')
        {
            collapsedDiv.show(\'slow\');
            icon.removeClass(\'toggle_down\').addClass(\'toggle_up\');
            icon.prop(\'title\', ' . JavaScriptEscape($txt['hide']) . ');
        }

        else
        {
            collapsedDiv.hide(\'slow\');
            icon.removeClass(\'toggle_up\').addClass(\'toggle_down\');
            icon.prop(\'title\', ' . JavaScriptEscape($txt['show']) . ');
        }
    });', true);
}

/**
 * Browse a server's list of packages.
 */
function PackageGBrowse()
{
    global $txt, $context, $scripturl, $sourcedir, $smcFunc;

    if (isset($_GET['server']))
    {
        if ($_GET['server'] == '')
            redirectexit('action=admin;area=packages;get');

        $server = (int) $_GET['server'];

        // Query the server list to find the current server.
        $request = $smcFunc['db_query']('', '
            SELECT name, url
            FROM {db_prefix}package_servers
            WHERE id_server = {int:current_server}
            LIMIT 1',
            array(
                'current_server' => $server,
            )
        );
        list ($name, $url) = $smcFunc['db_fetch_row']($request);
        $smcFunc['db_free_result']($request);

        // If the server does not exist, dump out.
        if (empty($url))
            fatal_lang_error('couldnt_connect', false);

        // If there is a relative link, append to the stored server url.
        if (isset($_GET['relative']))
            $url = $url . (substr($url, -1) == '/' ? '' : '/') . $_GET['relative'];

        // Clear any "absolute" URL.  Since "server" is present, "absolute" is garbage.
        unset($_GET['absolute']);
    }
    elseif (isset($_GET['absolute']) && $_GET['absolute'] != '')
    {
        // Initialize the requried variables.
        $server = '';
        $url = $_GET['absolute'];
        $name = '';
        $_GET['package'] = $url . '/packages.xml?language=' . $context['user']['language'];

        // Clear any "relative" URL.  Since "server" is not present, "relative" is garbage.
        unset($_GET['relative']);

        $token = checkConfirm('get_absolute_url');
        if ($token !== true)
        {
            $context['sub_template'] = 'package_confirm';

            $context['page_title'] = $txt['package_servers'];
            $context['confirm_message'] = sprintf($txt['package_confirm_view_package_content'], $smcFunc['htmlspecialchars']($_GET['absolute']));
            $context['proceed_href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;absolute=' . urlencode($_GET['absolute']) . ';confirm=' . $token;

            return;
        }
    }
    // Minimum required parameter did not exist so dump out.
    else
        fatal_lang_error('couldnt_connect', false);

    // Attempt to connect.  If unsuccessful... try the URL.
    if (!isset($_GET['package']) || file_exists($_GET['package']))
        $_GET['package'] = $url . '/packages.xml?language=' . $context['user']['language'];

    // Check to be sure the packages.xml file actually exists where it is should be... or dump out.
    if ((isset($_GET['absolute']) || isset($_GET['relative'])) && !url_exists($_GET['package']))
        fatal_lang_error('packageget_unable', false, array($url . '/index.php'));

    // Might take some time.
    @set_time_limit(600);

    // Read packages.xml and parse into xmlArray. (the true tells it to trim things ;).)
    require_once($sourcedir . '/Class-Package.php');
    $listing = new xmlArray(fetch_web_data($_GET['package']), true);

    // Errm.... empty file?  Try the URL....
    if (!$listing->exists('package-list'))
        fatal_lang_error('packageget_unable', false, array($url . '/index.php'));

    // List out the packages...
    $context['package_list'] = array();

    $listing = $listing->path('package-list[0]');

    // Use the package list's name if it exists.
    if ($listing->exists('list-title'))
        $name = $smcFunc['htmlspecialchars']($listing->fetch('list-title'));

    // Pick the correct template.
    $context['sub_template'] = 'package_list';

    $context['page_title'] = $txt['package_servers'] . ($name != '' ? ' - ' . $name : '');
    $context['package_server'] = $server;

    // By default we use an unordered list, unless there are no lists with more than one package.
    $context['list_type'] = 'ul';

    $instmods = loadInstalledPackages();

    $installed_mods = array();
    // Look through the list of installed mods...
    foreach ($instmods as $installed_mod)
        $installed_mods[$installed_mod['package_id']] = $installed_mod['version'];

    // Get default author and email if they exist.
    if ($listing->exists('default-author'))
    {
        $default_author = $smcFunc['htmlspecialchars']($listing->fetch('default-author'));
        if ($listing->exists('default-author/@email') && filter_var($listing->fetch('default-author/@email'), FILTER_VALIDATE_EMAIL))
            $default_email = $smcFunc['htmlspecialchars']($listing->fetch('default-author/@email'));
    }

    // Get default web site if it exists.
    if ($listing->exists('default-website'))
    {
        $default_website = $smcFunc['htmlspecialchars']($listing->fetch('default-website'));
        if ($listing->exists('default-website/@title'))
            $default_title = $smcFunc['htmlspecialchars']($listing->fetch('default-website/@title'));
    }

    $the_version = SMF_VERSION;
    if (!empty($_SESSION['version_emulate']))
        $the_version = $_SESSION['version_emulate'];

    $packageNum = 0;
    $packageSection = 0;

    $sections = $listing->set('section');
    foreach ($sections as $i => $section)
    {
        $context['package_list'][$packageSection] = array(
            'title' => '',
            'text' => '',
            'items' => array(),
        );

        $packages = $section->set('title|heading|text|remote|rule|modification|language|avatar-pack|theme|smiley-set');
        foreach ($packages as $thisPackage)
        {
            $package = array(
                'type' => $thisPackage->name(),
            );

            if (in_array($package['type'], array('title', 'text')))
                $context['package_list'][$packageSection][$package['type']] = $smcFunc['htmlspecialchars']($thisPackage->fetch('.'));
            // It's a Title, Heading, Rule or Text.
            elseif (in_array($package['type'], array('heading', 'rule')))
                $package['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('.'));
            // It's a Remote link.
            elseif ($package['type'] == 'remote')
            {
                $remote_type = $thisPackage->exists('@type') ? $thisPackage->fetch('@type') : 'relative';

                if ($remote_type == 'relative' && substr($thisPackage->fetch('@href'), 0, 7) != 'http://' && substr($thisPackage->fetch('@href'), 0, 8) != 'https://')
                {
                    if (isset($_GET['absolute']))
                        $current_url = $_GET['absolute'] . '/';
                    elseif (isset($_GET['relative']))
                        $current_url = $_GET['relative'] . '/';
                    else
                        $current_url = '';

                    $current_url .= $thisPackage->fetch('@href');
                    if (isset($_GET['absolute']))
                        $package['href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;absolute=' . $current_url;
                    else
                        $package['href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;server=' . $context['package_server'] . ';relative=' . $current_url;
                }
                else
                {
                    $current_url = $thisPackage->fetch('@href');
                    $package['href'] = $scripturl . '?action=admin;area=packages;get;sa=browse;absolute=' . $current_url;
                }

                $package['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('.'));
                $package['link'] = '<a href="' . $package['href'] . '">' . $package['name'] . '</a>';
            }
            // It's a package...
            else
            {
                if (isset($_GET['absolute']))
                    $current_url = $_GET['absolute'] . '/';
                elseif (isset($_GET['relative']))
                    $current_url = $_GET['relative'] . '/';
                else
                    $current_url = '';

                $server_att = $server != '' ? ';server=' . $server : '';

                $package += $thisPackage->to_array();

                if (isset($package['website']))
                    unset($package['website']);
                $package['author'] = array();

                if ($package['description'] == '')
                    $package['description'] = $txt['package_no_description'];
                else
                    $package['description'] = parse_bbc(preg_replace('~\[[/]?html\]~i', '', $smcFunc['htmlspecialchars']($package['description'])));

                $package['is_installed'] = isset($installed_mods[$package['id']]);
                $package['is_current'] = $package['is_installed'] && ($installed_mods[$package['id']] == $package['version']);
                $package['is_newer'] = $package['is_installed'] && ($installed_mods[$package['id']] > $package['version']);

                // This package is either not installed, or installed but old.  Is it supported on this version of SMF?
                if (!$package['is_installed'] || (!$package['is_current'] && !$package['is_newer']))
                {
                    if ($thisPackage->exists('version/@for'))
                        $package['can_install'] = matchPackageVersion($the_version, $thisPackage->fetch('version/@for'));
                }
                // Okay, it's already installed AND up to date.
                else
                    $package['can_install'] = false;

                $already_exists = getPackageInfo(basename($package['filename']));
                $package['download_conflict'] = is_array($already_exists) && $already_exists['id'] == $package['id'] && $already_exists['version'] != $package['version'];

                $package['href'] = $url . '/' . $package['filename'];
                $package['link'] = '<a href="' . $package['href'] . '">' . $package['name'] . '</a>';
                $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'];
                $package['download']['link'] = '<a href="' . $package['download']['href'] . '">' . $package['name'] . '</a>';

                if ($thisPackage->exists('author') || isset($default_author))
                {
                    if ($thisPackage->exists('author/@email') && filter_var($thisPackage->fetch('author/@email'), FILTER_VALIDATE_EMAIL))
                        $package['author']['email'] = $thisPackage->fetch('author/@email');
                    elseif (isset($default_email))
                        $package['author']['email'] = $default_email;

                    if ($thisPackage->exists('author') && $thisPackage->fetch('author') != '')
                        $package['author']['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('author'));
                    else
                        $package['author']['name'] = $default_author;

                    if (!empty($package['author']['email']))
                        $package['author']['link'] = '<a href="mailto:' . $package['author']['email'] . '">' . $package['author']['name'] . '</a>';
                }

                if ($thisPackage->exists('website') || isset($default_website))
                {
                    if ($thisPackage->exists('website') && $thisPackage->exists('website/@title'))
                        $package['author']['website']['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('website/@title'));
                    elseif (isset($default_title))
                        $package['author']['website']['name'] = $default_title;
                    elseif ($thisPackage->exists('website'))
                        $package['author']['website']['name'] = $smcFunc['htmlspecialchars']($thisPackage->fetch('website'));
                    else
                        $package['author']['website']['name'] = $default_website;

                    if ($thisPackage->exists('website') && $thisPackage->fetch('website') != '')
                        $authorhompage = $smcFunc['htmlspecialchars']($thisPackage->fetch('website'));
                    else
                        $authorhompage = $default_website;

                    $package['author']['website']['href'] = $authorhompage;
                    $package['author']['website']['link'] = '<a href="' . $authorhompage . '">' . $package['author']['website']['name'] . '</a>';
                }
                else
                {
                    $package['author']['website']['href'] = '';
                    $package['author']['website']['link'] = '';
                }
            }

            $package['is_remote'] = $package['type'] == 'remote';
            $package['is_title'] = $package['type'] == 'title';
            $package['is_heading'] = $package['type'] == 'heading';
            $package['is_text'] = $package['type'] == 'text';
            $package['is_line'] = $package['type'] == 'rule';

            $packageNum = in_array($package['type'], array('title', 'heading', 'text', 'remote', 'rule')) ? 0 : $packageNum + 1;
            $package['count'] = $packageNum;

            if (!in_array($package['type'], array('title', 'text')))
                $context['package_list'][$packageSection]['items'][] = $package;

            if ($package['count'] > 1)
                $context['list_type'] = 'ol';
        }

        $packageSection++;
    }

    // Lets make sure we get a nice new spiffy clean $package to work with.  Otherwise we get PAIN!
    unset($package);

    foreach ($context['package_list'] as $ps_id => $packageSection)
    {
        foreach ($packageSection['items'] as $i => $package)
        {
            if ($package['count'] == 0 || isset($package['can_install']))
                continue;

            $context['package_list'][$ps_id]['items'][$i]['can_install'] = false;

            $packageInfo = getPackageInfo($url . '/' . $package['filename']);
            if (is_array($packageInfo) && $packageInfo['xml']->exists('install'))
            {
                $installs = $packageInfo['xml']->set('install');
                foreach ($installs as $install)
                {
                    if (!$install->exists('@for') || matchPackageVersion($the_version, $install->fetch('@for')))
                    {
                        // Okay, this one is good to go.
                        $context['package_list'][$ps_id]['items'][$i]['can_install'] = true;
                        break;
                    }

                    // no install found for this version, lets see if one exists for another
                    if ($context['package_list'][$ps_id]['items'][$i]['can_install'] === false && $install->exists('@for'))
                    {
                        $reset = true;

                        // Get the highest install version that is available from the package
                        foreach ($installs as $install)
                        {
                            $context['package_list'][$ps_id]['items'][$i]['can_emulate_install'] = matchHighestPackageVersion($install->fetch('@for'), $reset, $the_version);
                            $reset = false;
                        }
                    }
                }
            }
        }
    }
}

/**
 * Download a package.
 */
function PackageDownload()
{
    global $txt, $scripturl, $context, $packagesdir, $smcFunc;

    // Use the downloaded sub template.
    $context['sub_template'] = 'downloaded';

    // Security is good...
    checkSession('get');

    // To download something, we need a valid server or url.
    if (empty($_GET['server']) && (!empty($_GET['get']) && !empty($_REQUEST['package'])))
        fatal_lang_error('package_get_error_is_zero', false);

    if (isset($_GET['server']))
    {
        $server = (int) $_GET['server'];

        // Query the server table to find the requested server.
        $request = $smcFunc['db_query']('', '
            SELECT name, url
            FROM {db_prefix}package_servers
            WHERE id_server = {int:current_server}
            LIMIT 1',
            array(
                'current_server' => $server,
            )
        );
        list ($name, $url) = $smcFunc['db_fetch_row']($request);
        $smcFunc['db_free_result']($request);

        // If server does not exist then dump out.
        if (empty($url))
            fatal_lang_error('couldnt_connect', false);

        $url = $url . '/';
    }
    else
    {
        // Initialize the requried variables.
        $server = '';
        $url = '';
    }

    if (isset($_REQUEST['byurl']) && !empty($_POST['filename']))
        $package_name = basename($_REQUEST['filename']);
    else
        $package_name = basename($_REQUEST['package']);

    if (isset($_REQUEST['conflict']) || (isset($_REQUEST['auto']) && file_exists($packagesdir . '/' . $package_name)))
    {
        // Find the extension, change abc.tar.gz to abc_1.tar.gz...
        if (strrpos(substr($package_name, 0, -3), '.') !== false)
        {
            $ext = substr($package_name, strrpos(substr($package_name, 0, -3), '.'));
            $package_name = substr($package_name, 0, strrpos(substr($package_name, 0, -3), '.')) . '_';
        }
        else
            $ext = '';

        // Find the first available.
        $i = 1;
        while (file_exists($packagesdir . '/' . $package_name . $i . $ext))
            $i++;

        $package_name = $package_name . $i . $ext;
    }

    // Use FTP if necessary.
    create_chmod_control(array($packagesdir . '/' . $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));
    package_put_contents($packagesdir . '/' . $package_name, fetch_web_data($url . $_REQUEST['package']));

    // Done!  Did we get this package automatically?
    // @ TODO: These are usually update packages.  Allowing both for now until more testing has been done.
    if (preg_match('~^https?://[\w_\-]+\.simplemachines\.org/~', $_REQUEST['package']) == 1 && strpos($_REQUEST['package'], 'dlattach') === false && isset($_REQUEST['auto']))
        redirectexit('action=admin;area=packages;sa=install;package=' . $package_name);

    // You just downloaded a mod from SERVER_NAME_GOES_HERE.
    $context['package_server'] = $server;

    $context['package'] = getPackageInfo($package_name);

    if (!is_array($context['package']))
        fatal_lang_error('package_cant_download', false);

    if ($context['package']['type'] == 'modification')
        $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['install_mod'] . ' ]</a>';
    elseif ($context['package']['type'] == 'avatar')
        $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['use_avatars'] . ' ]</a>';
    elseif ($context['package']['type'] == 'language')
        $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['add_languages'] . ' ]</a>';
    else
        $context['package']['install']['link'] = '';

    // Does a 3rd party hook want to do some additional changes?
    call_integration_hook('integrate_package_download');

    $context['package']['list_files']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=list;package=' . $context['package']['filename'] . '">[ ' . $txt['list_files'] . ' ]</a>';

    // Free a little bit of memory...
    unset($context['package']['xml']);

    $context['page_title'] = $txt['download_success'];
}

/**
 * Upload a new package to the directory.
 */
function PackageUpload()
{
    global $txt, $scripturl, $context, $packagesdir;

    // Setup the correct template, even though I'll admit we ain't downloading ;)
    $context['sub_template'] = 'downloaded';
    $allowext = array('.zip', '.tgz', '.gz');
    // @todo Use FTP if the Packages directory is not writable.

    // Check the file was even sent!
    if (!isset($_FILES['package']['name']) || $_FILES['package']['name'] == '')
        fatal_lang_error('package_upload_error_nofile');
    elseif (!is_uploaded_file($_FILES['package']['tmp_name']) || (ini_get('open_basedir') == '' && !file_exists($_FILES['package']['tmp_name'])))
        fatal_lang_error('package_upload_error_failed');

    // Make sure it has a sane filename.
    $_FILES['package']['name'] = preg_replace(array('/\s/', '/\.[\.]+/', '/[^\w_\.\-]/'), array('_', '.', ''), $_FILES['package']['name']);
    $extension = substr(strrchr(strtolower($_FILES['package']['name']), '.'), 0);
    if (!in_array($extension, $allowext))
    {
        fatal_lang_error('package_upload_error_supports', false, array('zip, tgz, tar.gz'));
    }

    // We only need the filename...
    $extension = ($extension == '.gz') ? '.tar.gz' : $extension;
    $packageName = time() . $extension;

    // Setup the destination and throw an error if the file is already there!
    $destination = $packagesdir . '/' . $packageName;
    // @todo Maybe just roll it like we do for downloads?
    if (file_exists($destination))
        fatal_lang_error('package_upload_error_exists');

    // Now move the file.
    move_uploaded_file($_FILES['package']['tmp_name'], $destination);
    smf_chmod($destination, 0777);

    // If we got this far that should mean it's available.
    $context['package'] = getPackageInfo($packageName);
    $context['package_server'] = '';

    // Not really a package, you lazy bum!
    if (!is_array($context['package']))
    {
        @unlink($destination);
        loadLanguage('Errors');
        $txt[$context['package']] = str_replace('{MANAGETHEMEURL}', $scripturl . '?action=admin;area=theme;sa=admin;' . $context['session_var'] . '=' . $context['session_id'] . '#theme_install', $txt[$context['package']]);
        fatal_lang_error('package_upload_error_broken', false, $txt[$context['package']]);
    }
    // Is it already uploaded, maybe?
    elseif ($dir = @opendir($packagesdir))
    {
        while ($package = readdir($dir))
        {
            if ($package == '.' || $package == '..' || $package == 'temp' || $package == $packageName || (!(is_dir($packagesdir . '/' . $package) && file_exists($packagesdir . '/' . $package . '/package-info.xml')) && substr(strtolower($package), -7) != '.tar.gz' && substr(strtolower($package), -4) != '.tgz' && substr(strtolower($package), -4) != '.zip'))
                continue;

            $packageInfo = getPackageInfo($package);
            if (!is_array($packageInfo))
                continue;

            if ($packageInfo['id'] == $context['package']['id'] && $packageInfo['version'] == $context['package']['version'])
            {
                @unlink($destination);
                loadLanguage('Errors');
                fatal_lang_error('package_upload_error_exists');
            }
        }
        closedir($dir);
    }

    if ($context['package']['type'] == 'modification')
        $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['install_mod'] . ' ]</a>';
    elseif ($context['package']['type'] == 'avatar')
        $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['use_avatars'] . ' ]</a>';
    elseif ($context['package']['type'] == 'language')
        $context['package']['install']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=install;package=' . $context['package']['filename'] . '">[ ' . $txt['add_languages'] . ' ]</a>';
    else
        $context['package']['install']['link'] = '';

    // Does a 3rd party hook want to do some additional changes?
    call_integration_hook('integrate_package_upload');

    $context['package']['list_files']['link'] = '<a href="' . $scripturl . '?action=admin;area=packages;sa=list;package=' . $context['package']['filename'] . '">[ ' . $txt['list_files'] . ' ]</a>';

    unset($context['package']['xml']);

    $context['page_title'] = $txt['package_uploaded_success'];
}

/**
 * Add a package server to the list.
 */
function PackageServerAdd()
{
    global $smcFunc;

    // Validate the user.
    checkSession();

    // If they put a slash on the end, get rid of it.
    if (substr($_POST['serverurl'], -1) == '/')
        $_POST['serverurl'] = substr($_POST['serverurl'], 0, -1);

    // Are they both nice and clean?
    $servername = trim($smcFunc['htmlspecialchars']($_POST['servername']));
    $serverurl = trim($smcFunc['htmlspecialchars']($_POST['serverurl']));

    // Make sure the URL has the correct prefix.
    if (strpos($serverurl, 'http://') !== 0 && strpos($serverurl, 'https://') !== 0)
        $serverurl = 'http://' . $serverurl;

    $smcFunc['db_insert']('',
        '{db_prefix}package_servers',
        array(
            'name' => 'string-255', 'url' => 'string-255',
        ),
        array(
            $servername, $serverurl,
        ),
        array('id_server')
    );

    redirectexit('action=admin;area=packages;get');
}

/**
 * Remove a server from the list.
 */
function PackageServerRemove()
{
    global $smcFunc;

    checkSession('get');

    $smcFunc['db_query']('', '
        DELETE FROM {db_prefix}package_servers
        WHERE id_server = {int:current_server}',
        array(
            'current_server' => (int) $_GET['server'],
        )
    );

    redirectexit('action=admin;area=packages;get');
}

?>