parent $file
object $http_file

var $root dbref 'http_file
var $root child_index 7
var $root fertile 1
var $root manager $http_file
var $root owned [$http_file]
var $root owners [$http_file]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $file data 0
var $file header 0
var $file content_type "text/plain"
var $root inited 1
var $file filename "generic_http_file"

method retrieve_html
    return .file_data();
.

method set_filename
    arg fname;
    
    if (fname in ["bin", "objects"])
        throw(~invalid, "HTTP Filenames cannot be \"bin\" or \"objects\"");
    (> pass(fname) <);
.