# -*- tcl -*-
# $Id: jet,v 1.3 2002/01/15 13:09:51 tobotras Exp $
rename HtmlFooter {}

proc HtmlFooter {} {
    set fqdn {}
    global env
    if { [info exist env(HOST) ] } {
	set fqdn $env(HOST)
    } elseif { [info exist env(HOSTNAME)] } {
	set fqdn $env(HOSTNAME)
    } else {
	catch {set fqdn [exec hostname]}
    }
    if { [string first "." $fqdn] == -1 } {
	catch {set fqdn "${fqdn}.[exec domainname]"}
    }
    return "
<BR><HR>
Copyright &copy; [exec date +%Y]
<A HREF=\"mailto:$env(USER)@$fqdn\">[exec finger $env(USER) | head -1 | cut -d: -f3]</A><BR>
Modified: [exec date +%c]<BR>
<P><SMALL>
[localize producedby] <A HREF=\"http://xtalk.msk.su/SGML/TEItools/\">TEItools</A>
</SMALL>
</HTML>
<!--
Converted to HTML by $env(USER)@$fqdn at [exec date]
-->
"
}
