mainpage.pl

   1 #!/usr/bin/perl
   2 use HTML::Template;
   3 use strict;
   4 require Exporter;
   5 use C4::Database;
   6 use C4::Output;  # contains gettemplate
   7 use CGI;
   8 use C4::Auth;
   9
  10 my $query = new CGI;
  11 my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
  12
  13 my $template = gettemplate("intranet-main.tmpl");
  14
  15 print "Content-Type: text/html\n\n", $template->output;