#! /usr/bin/perl ################################################################################ # # # logout.cgi # # ---------- # # INDIW-2000 / Futurama-prosjektet # # # ################################################################################ # # # This file is © Arne Sommer - rev. 12. May 2000. # # # ################################################################################ use FindBin; use lib "$FindBin::Bin/mylib"; # Get the directory where the program resides, and add the 'mylib' # # subdirectory to the library lookup table. # use CGI; require "lib/config.pl"; require "lib/misc.pl"; require "lib/language.pl"; ## Language Specific ########################################################### my($lang) = language(); # Get the user's prefered language. # ################################################################################ $q = new CGI; $cookie = $q->cookie(-name => 'UID', -value => "abc", -path => $cookie_path, -expires => '-1d'); print $q->header(-cookie => $cookie); ## The rest of the document #################################################### print start_doc($q, "indifu $lu_titl{$lang}"); print $q->h2($lu_titl{$lang}), "\n"; box_text($lu_reg{$lang}, "#FFFF00"); ## Finished #################################################################### print $q->p, bottom_line(), $q->end_html(); ################################################################################