Source for file formselfref.php

Documentation is available at formselfref.php
<?php
@include '../include_path.php';
/**
 * Frameset Page Upload
 * A form is used to select and submit any kind of file to webserver (frame 1) while
 * a progress meter is running in indeterminate mode in the bottom of page (frame 2)
 *
 * @version    $Id: formselfref.php,v 1.2 2004/07/02 17:49:06 farell Exp $
 * @author     Laurent Laville <pear@laurent-laville.org>
 * @package    HTML_Progress
 */
 
require_once 'HTML/QuickForm.php';
 
function myProcess($values)
{
    global $form;
    $destination = './uploads/';
    
    $file =& $form->getElement('tstUpload');
    if ($file->isUploadedFile()) {
        $ok = $file->moveUploadedFile($destination);
 
        if ($ok) {
            // write the semaphore to tell progress meter to stop
            // in script 'progressbar.php'
 
            $fp = fopen($destination . $_GET['ID'],'w',false);
            fwrite($fp, 'done');
            fclose($fp);
        }
    }
}
?>
<html>
<head>
<script language="javascript">
<!--
function DoUpload() {
  theUniqueID = (new Date()).getTime() % 1000000000;
  parent.meter.window.location = "progressbar.php?ID=" + theUniqueID;
  parent.files.selfref.action = "formselfref.php?ID=" + theUniqueID;
  parent.files.selfref.submit();
}
//-->
</script> 
</head>
<body>
<?php
 
$form =& new HTML_QuickForm('selfref');
 
// We need an additional label below the element
$renderer =& $form->defaultRenderer();
$renderer->setElementTemplate(<<<EOT
<tr>
    <td align="right" valign="top" nowrap="nowrap"><!-- BEGIN required --><span style="color: #ff0000">*</span><!-- END required --><b>{label}</b></td>
    <td valign="top" align="left">
        <!-- BEGIN error --><span style="color: #ff0000">{error}</span><br /><!-- END error -->{element}
        <!-- BEGIN label_2 --><br/><span style="font-size: 80%">{label_2}</span><!-- END label_2 -->
    </td>
</tr>
 
EOT
);
 
$form->addElement('header', null, 'Uploaded file rules');
$form->addElement('file', 'tstUpload', array('Upload file:', 'Rule types: \'uploadedfile\''));
$form->addRule('tstUpload', 'Upload is required', 'uploadedfile');
 
$form->addElement('header', null, 'Submit the form');
$submit[] =& $form->createElement('button', null, 'Upload', array('onClick'=>'DoUpload();'));
$form->addGroup($submit, null, null, '&nbsp;', false);
 
$form->applyFilter('__ALL__', 'trim');
 
if ($form->validate()) {
    // Form is validated, then processes the data
    $form->freeze();
    $form->process('myProcess', true);
    echo '<p>&lt;&lt; <a target="_top" href="../index.html">Back examples TOC</a></p>';
 
} elseif (isset($_GET['ID'])) {
    $destination = './uploads/';
    $fp = fopen($destination . $_GET['ID'],'w',false);
    fwrite($fp, 'error');
    fclose($fp);  
}
$form->display();
?>
</body>
</html>