#get the UNWEB procedure in here
  $FORM=&unweb;

if($FORM{action} eq "toggleon")
{
   &toggle_on;
}
else
{
   print "<a href=\"?action=toggleon\">ON</a>\n";
}