$configs{images}{attach}{file}="height=19 width=15 src='/images/attach/file.gif' border=0"; $configs{images}{attach}{URL}="height=19 width=15 src='/images/attach/URL.gif' border=0"; $configs{images}{attach}{edit}="height=19 width=15 src='/images/attach/edit.gif' border=0"; $configs{mime_map} = MY::PATH::_get_mime_map (); #### sub _get_mime_map { my $mime_map = { '' => ["application/octet-stream","Unknown binary format"], # BEGIN these are non-standard 'aw' => ["application/applix","Applix Word Document"], 'as' => ["application/applix","Applix Spreadsheet"], 'ag' => ["application/applix","Applix Graphic"], # END these are non-standard 'ai' => ["application/postscript","Postscript ai File"], 'aif' => ["audio/x-aiff","Aif File"], 'asc' => ["text/plain","ASCII Text File"] return($mime_map); }