function instArchiveAnswer(&$session)
{
    $session->trace(TC_Init, "instArchiveAnswer");
    $message = null;
    if (isset($_POST['archive_upload'])) {
        $session->trace(TC_Init, 'instArchiveAnswer: archive_upload');
        $name = $_FILES['archive_uploadfile']['name'];
        if (move_uploaded_file($_FILES['archive_uploadfile']['tmp_name'], $session->fFileSystemBase . PATH_DELIM . $name)) {
            $message = 'Datei erfolgreich hochgeladen: ' . $name;
        } else {
            $message = 'Problem beim Hochladen von ' . $name . ': ' . $_FILES['archive_uploadfile']['error'];
        }
    } else {
        $session->trace(TC_Init, 'instArchiveAnswer: Button-Antworten');
        foreach ($_POST as $name => $value) {
            if (preg_match('/^archive_extract(\\d+)/', $name, $match)) {
                $var = 'archive_file' . $match[1];
                $name = $_POST[$var];
                $session->trace(TC_Init, "instArchiveAnswer: {$name}");
                if (!($message = extractFromArchive($session, $name, false, "*"))) {
                    $message = "Archiv {$name} wurde entpackt";
                }
                break;
            }
        }
    }
    instArchive($session, $message);
}
function instArchiveAnswer(&$session)
{
    global $archive_dir, $archive_name, $HTTP_POST_VARS, $archive_uploadfile, $archive_upload;
    $session->trace(TC_Init, "instArchiveAnswer");
    $message = null;
    if (isset($archive_upload)) {
        $name = $_FILES['archive_uploadfile']['name'];
        if (move_uploaded_file($_FILES['archive_uploadfile']['tmp_name'], $session->fFileSystemBase . PATH_DELIM . $name)) {
            $message = 'Datei erfolgreich hochgeladen: ' . $name;
        } else {
            $message = 'Problem beim Hochladen von ' . $name . ': ' . $_FILES['archive_uploadfile']['error'];
        }
    } else {
        for ($no = 1; $no < 100; $no++) {
            $ref = 'archive_extract' . $no;
            global ${$ref};
            if (isset(${$ref})) {
                $ref = 'archive_file' . $no;
                $archive_name = $HTTP_POST_VARS[$ref];
                if (!($message = extractFromArchive($session, $archive_name, false, "*"))) {
                    $message = "Archiv {$archive_name} wurde entpackt";
                }
                break;
            }
        }
    }
    instArchive($session, $message);
}