koha-dev.rot13.org Git - koha_gimpoz/blob - userpage.pl

   1 #!/usr/bin/perl
   2 use HTML::Template;
   3 use strict;
   4 require Exporter;
   5 use C4::Database;
   6 use C4::Output;  # contains picktemplate
   7 use CGI;
   8 use C4::Search;
   9 use C4::Auth;
  10
  11 my $query=new CGI;
  12 my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
  13
  14
  15
  16 my %configfile;
  17 open (KC, "/etc/koha.conf");
  18 while (<KC>) {
  19  chomp;
  20  (next) if (/^\s*#/);
  21  if (/(.*)\s*=\s*(.*)/) {
  22    my $variable=$1;
  23    my $value=$2;
  24    # Clean up white space at beginning and end
  25    $variable=~s/^\s*//g;
  26    $variable=~s/\s*$//g;
  27    $value=~s/^\s*//g;
  28    $value=~s/\s*$//g;
  29    $configfile{$variable}=$value;
  30  }
  31 }
  32
  33
  34
  35 my $includes=$configfile{'includes'};
  36 ($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
  37 my $templatebase="user/userpage.tmpl";
  38 my $theme=picktemplate($includes, $templatebase);
  39
  40 my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
  41
  42 $template->param(loggedinuser => $loggedinuser);
  43
  44 print $query->header(-cookie => $cookie), $template->output;