www/nwiutil.tcl

   1 #
   2 # $Id: nwiutil.tcl,v 1.1 1996/03/12 16:30:27 adam Exp $
   3 #
   4
   5 proc button-main {} {
   6     global useIcons
   7     html {<a href="http://europagate.dtv.dk/">}
   8     if {$useIcons} {
   9         html {<img src="/egwgif/button-nwi.gif" alt="NWI" border=0></a>}
  10     } else {
  11         html {NWI</a>}
  12     }
  13 }
  14
  15 proc maintenance {} {
  16     html {<hr>This page is maintained by }
  17     html {<a href="mailto:adam@index.ping.dk"> Adam Dickmeiss </a>.}
  18     html {Last modified March 12, 1996. <br>}
  19 }
  20