bin/mozilla/kopf.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use DateTime;
   5
   6 sub run {
   7   my $session_result = shift;
   8
   9   %::myconfig = $::auth->read_user($::form->{login})  if $::form->{login};
  10   $::locale   = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
  11
  12   $::form->header;
  13   print $::form->parse_html_template('menu/header', {
  14     now        => DateTime->now,
  15     show_debug => $::lx_office_conf{debug}{show_debug_menu},
  16     lxdebug    => $::lxdebug,
  17     is_links   => ($ENV{HTTP_USER_AGENT} =~ /links/i),
  18   });
  19 }
  20
  21 1;
  22
  23 #