function output_list($type, $list, $fields, $idstr)
{
    switch ($type) {
        case 'xml':
            xml_header($fields);
            xml_data($list, $fields);
            xml_footer();
            break;
        case 'dom':
            dom_header($fields);
            dom_data($list, $fields);
            dom_footer();
            break;
        case 'img':
            img_header($fields);
            img_data($list, $fields, $idstr);
            img_footer();
            break;
        case 'csv':
        default:
            csv_header($fields);
            csv_data($list, $fields);
            csv_footer();
            break;
    }
}

function write_major_file($code, $data, $type)
{
    $pointer = new XMLWriter();
    $time = strftime("%Y-%m-%d %H:%m:%S");
    foreach (array_keys($data) as $group) {
        echo "writing major xml files for: {$group}\n";
        $dir = realpath(dirname(dirname(__FILE__)) . "/modules") . "/isco_{$code}/modules/" . "isco_{$code}_major_{$group}";
        if (!is_dir($dir)) {
            if (!mkdir($dir, 0777, TRUE)) {
                echo "Couldn't make {$dir}!";
                exit(1);
            }
        }
        $pointer->openURI("file://{$dir}/majorgroup" . $group . ".xml");
        xml_header($pointer, $code, $group);
        foreach ($type as $i => $level) {
            write_group($pointer, $i, $level, $code, $group, $data[$group], $time, $type);
        }
        xml_footer($pointer);
        $pointer->flush();
    }
}

// BOINC is free software; you can redistribute it and/or modify it
// under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation,
// either version 3 of the License, or (at your option) any later version.
//
// BOINC is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with BOINC.  If not, see <http://www.gnu.org/licenses/>.
require_once "../inc/forum_db.inc";
require_once "../inc/util.inc";
require_once "../inc/xml.inc";
xml_header();
if (DISABLE_FORUMS) {
    xml_error(-1, "Forums are disabled");
}
$retval = db_init_xml();
if ($retval) {
    xml_error($retval);
}
$method = get_str("method", true);
if ($method != "user_posts" && $method != "user_threads") {
    xml_error(-1);
}
$userid = get_int("userid", true);
$user = BoincUser::lookup_id($userid);
if (!$user) {
    xml_error(ERR_DB_NOT_FOUND);

function show_status_xml($x)
{
    xml_header();
    echo "<server_status>\n<daemon_status>\n";
    $daemons = $x->daemons;
    foreach ($daemons->local_daemons as $d) {
        daemon_xml($d);
    }
    foreach ($daemons->remote_daemons as $d) {
        daemon_xml($d);
    }
    foreach ($daemons->disabled_daemons as $d) {
        daemon_xml($d);
    }
    echo "</daemon_status>\n<database_file_states>\n";
    $j = $x->jobs;
    item_xml("results_ready_to_send", $j->results_ready_to_send);
    item_xml("results_in_progress", $j->results_in_progress);
    item_xml("workunits_waiting_for_validation", $j->wus_need_validate);
    item_xml("workunits_waiting_for_assimilation", $j->wus_need_assimilate);
    item_xml("workunits_waiting_for_deletion", $j->wus_need_file_delete);
    item_xml("results_waiting_for_deletion", $j->results_need_file_delete);
    item_xml("transitioner_backlog_hours", $j->transitioner_backlog);
    item_xml("users_with_recent_credit", $j->users_with_recent_credit);
    item_xml("users_with_credit", $j->users_with_credit);
    item_xml("users_registered_in_past_24_hours", $j->users_past_24_hours);
    item_xml("hosts_with_recent_credit", $j->hosts_with_recent_credit);
    item_xml("hosts_with_credit", $j->hosts_with_credit);
    item_xml("hosts_registered_in_past_24_hours", $j->hosts_past_24_hours);
    item_xml("current_floating_point_speed", $j->flops);
    echo "<tasks_by_app>\n";
    foreach ($j->apps as $app) {
        echo "<app>\n";
        item_xml("id", $app->id);
        item_xml("name", $app->name);
        item_xml("unsent", $app->unsent);
        item_xml("in_progress", $app->in_progress);
        item_xml("avg_runtime", $app->info->avg);
        item_xml("min_runtime", $app->info->min);
        item_xml("max_runtime", $app->info->max);
        item_xml("users", $app->info->users);
        echo "</app>\n";
    }
    echo "</tasks_by_app>\n</database_file_states>\n</server_status>\n";
}

/**
* Exports data of the given range.
*
* This function calls the functions that export the data sepcified by the given $export_range.
* It calls the function output_data afterwards.
*
* @access   public
* @param        string  $range_id   Stud.IP-range_id for export
*/
function export_range($range_id)
{
    global $o_mode, $range_name, $ex_person_details, $persons, $ex_sem;
    // Ist die Range-ID eine Einrichtungs-ID?
    $query = "SELECT Name FROM Institute WHERE Institut_id = ?";
    $statement = DBManager::get()->prepare($query);
    $statement->execute(array($range_id));
    $name = $statement->fetchColumn();
    if ($name) {
        $range_name = $name;
        output_data(xml_header(), $o_mode);
        $output_startet = true;
        export_inst($range_id);
    }
    // Ist die Range-ID eine Fakultaets-ID? Dann auch untergeordnete Institute exportieren!
    $query = "SELECT Name, Institut_id\n              FROM Institute\n              WHERE fakultaets_id = ? AND Institut_id != fakultaets_id";
    $statement = DBManager::get()->prepare($query);
    $statement->execute(array($range_id));
    while ($row = $statement->fetch(PDO::FETCH_ASSOC)) {
        if ($row['Name'] != '') {
            // output_data ( xml_header(), $o_mode);
            export_inst($row['Institut_id']);
        }
    }
    // Ist die Range-ID eine Seminar-ID?
    $query = "SELECT Name, Seminar_id, Institut_id\n              FROM seminare\n              WHERE Seminar_id = ?";
    $statement = DBManager::get()->prepare($query);
    $statement->execute(array($range_id));
    $row = $statement->fetch(PDO::FETCH_ASSOC);
    if ($row && $row['Name'] != '') {
        $range_name = $row['Name'];
        if (!$output_startet) {
            output_data(xml_header(), $o_mode);
            $output_startet = true;
        }
        export_inst($row['Institut_id'], $row['Seminar_id']);
    }
    //  Ist die Range-ID ein Range-Tree-Item?
    if ($range_id != 'root') {
        $tree_object = new RangeTreeObject($range_id);
        $range_name = $tree_object->item_data["name"];
        // Tree-Item ist ein Institut:
        if ($tree_object->item_data['studip_object'] == 'inst') {
            if (!$output_startet) {
                output_data(xml_header(), $o_mode);
                $output_startet = true;
            }
            export_inst($tree_object->item_data['studip_object_id']);
        }
        // Tree-Item hat Institute als Kinder:
        $inst_array = $tree_object->GetInstKids();
        if (count($inst_array) > 0) {
            if (!$output_startet) {
                output_data(xml_header(), $o_mode);
                $output_startet = true;
            }
            while (list($key, $inst_ids) = each($inst_array)) {
                export_inst($inst_ids);
            }
        }
    }
    $query = "SELECT 1 FROM sem_tree WHERE sem_tree_id = ?";
    $statement = DBManager::get()->prepare($query);
    $statement->execute(array($range_id));
    if ($statement->fetchColumn() || $range_id == 'root') {
        if (!$output_startet) {
            output_data(xml_header(), $o_mode);
            $output_startet = true;
        }
        if (isset($ex_sem) && ($semester = Semester::find($ex_sem))) {
            $args = array('sem_number' => array(SemesterData::GetSemesterIndexById($ex_sem)));
        } else {
            $args = array();
        }
        if ($range_id != 'root') {
            $the_tree = TreeAbstract::GetInstance('StudipSemTree', $args);
            $sem_ids = array_unique($the_tree->getSemIds($range_id, true));
        }
        if (is_array($sem_ids) || $range_id == 'root') {
            if (is_array($sem_ids)) {
                $query = "SELECT DISTINCT Institut_id\n                          FROM seminare\n                          WHERE Seminar_id IN (?)";
                $statement = DBManager::get()->prepare($query);
                $statement->execute(array($sem_ids));
                $to_export = $statement->fetchAll(PDO::FETCH_COLUMN);
            } else {
                $sem_ids = 'root';
                $query = "SELECT DISTINCT Institut_id\n                          FROM seminare\n                          INNER JOIN seminar_sem_tree USING (seminar_id)";
                if ($semester) {
                    $query .= " WHERE seminare.start_time <= :begin\n                                  AND (:begin <= (seminare.start_time + seminare.duration_time) OR\n                                       seminare.duration_time = -1)";
                    $statement = DBManager::get()->prepare($query);
                    $statement->bindValue(':begin', $semester->beginn);
//.........这里部分代码省略.........

/**
 * Display an XML error.
 */
function display_xml_error($e)
{
    xml_header();
    ?>
<error time="<?php 
    echo iso_date();
    ?>
">
<?php 
    echo xmlescape($e->getMessage());
    ?>
</error>
  <?php 
    die;
}

function show_teams_xml($list)
{
    xml_header();
    echo "<teams>\n";
    sort_list($list);
    foreach ($list as $team) {
        show_team_xml($team);
    }
    echo "</teams>\n";
}

function write_error($errorCode, $requestArray)
{
    $tree =& xml_header();
    $root =& $tree->getRoot();
    $xml_error =& $root->addChild('Error');
    $errorDescription = errorDescription($errorCode);
    $xml_errorCode =& $xml_error->addChild('Code', $errorCode);
    $xml_errorDescription =& $xml_error->addChild('Description', $errorDescription);
    send($tree, $requestArray);
}

        $sql_sort = "p.post_time DESC";
    } else {
        $sql_sort = "rand()";
    }
    $sql_news = '';
    if ($news_type == 'news') {
        $sql_news = "AND t.news_id > 0";
    }
    $sql = "SELECT t.topic_id, t.topic_title, t.topic_first_post_id, u.user_id, u.username, p.post_time\n\t\tFROM " . TOPICS_TABLE . " AS t, " . USERS_TABLE . " AS u, " . POSTS_TABLE . " AS p\n\t\tWHERE t.forum_id IN (" . $allowed_forums . ")\n\t\t\t\tAND u.user_id = t.topic_poster\n\t\t\t\tAND p.post_id = t.topic_first_post_id\n\t\t\t\t" . $sql_news . "\n\t\tORDER BY " . $sql_sort . "\n\t\tLIMIT " . $news_items;
    $result = $news_recent ? $db->sql_query($sql, 0, 'posts_flash_', POSTS_CACHE_FOLDER) : $db->sql_query($sql);
    $xml_content = '';
    while ($row = $db->sql_fetchrow($result)) {
        $topic_title = strip_tags($row['topic_title']);
        $topic_author = $row['username'];
        $topic_user_id = $row['user_id'];
        $news_url = $news_base_address . $news_base_url . '?' . POST_TOPIC_URL . '=' . $row['topic_id'];
        $xml_content .= '<item url="' . $news_url . '">' . $topic_title . '</item>' . "\n";
    }
    $time = gmdate('D, d M Y H:i:s', time()) . ' GMT';
    $xml_content = xml_file_content($xml_content);
    if ($news_cache) {
        if ($f = @fopen($news_cache_file, 'w')) {
            @fwrite($f, $xml_content, strlen($xml_content));
            @fclose($f);
        }
    }
    xml_header($time);
    echo $xml_content;
}
$db->sql_close();
exit;