C4/InstallAuth.pm

   1 package C4::InstallAuth;
   2
   3 # Copyright 2000-2002 Katipo Communications
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 use strict;
  21 #use warnings; FIXME - Bug 2505
  22 use Digest::MD5 qw(md5_base64);
  23 use File::Spec;
  24
  25 require Exporter;
  26 use C4::Context;
  27 use C4::Output;
  28 use C4::Templates;
  29 use C4::Koha;
  30 use CGI::Session;
  31
  32 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  33
  34
  35 =head1 NAME
  36
  37 InstallAuth - Authenticates Koha users for Install process
  38
  39 =head1 SYNOPSIS
  40
  41   use CGI qw ( -utf8 );
  42   use InstallAuth;
  43   use C4::Output;
  44
  45   my $query = new CGI;
  46
  47     my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
  48         {   template_name   => "opac-main.tt",
  49             query           => $query,
  50             type            => "opac",
  51             authnotrequired => 1,
  52             flagsrequired   => { acquisition => '*' },
  53         }
  54     );
  55
  56   output_html_with_http_headers $query, $cookie, $template->output;
  57
  58 =head1 DESCRIPTION
  59
  60     The main function of this module is to provide
  61     authentification. However the get_template_and_user function has
  62     been provided so that a users login information is passed along
  63     automatically. This gets loaded into the template.
  64     This package is different from C4::Auth in so far as
  65     C4::Auth uses many preferences which are supposed NOT to be obtainable when installing the database.
  66
  67     As in C4::Auth, Authentication is based on cookies.
  68
  69 =head1 FUNCTIONS
  70
  71 =over 2
  72
  73 =cut
  74
  75 @ISA    = qw(Exporter);
  76 @EXPORT = qw(
  77   &checkauth
  78   &get_template_and_user
  79 );
  80
  81 =item get_template_and_user
  82
  83     my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
  84         {   template_name   => "opac-main.tt",
  85             query           => $query,
  86             type            => "opac",
  87             authnotrequired => 1,
  88             flagsrequired   => { acquisition => '*' },
  89         }
  90     );
  91
  92     This call passes the C<query>, C<flagsrequired> and C<authnotrequired>
  93     to C<&checkauth> (in this module) to perform authentification.
  94     See C<&checkauth> for an explanation of these parameters.
  95
  96     The C<template_name> is then used to find the correct template for
  97     the page. The authenticated users details are loaded onto the
  98     template in the HTML::Template LOOP variable C<USER_INFO>. Also the
  99     C<sessionID> is passed to the template. This can be used in templates
 100     if cookies are disabled. It needs to be put as and input to every
 101     authenticated page.
 102
 103     More information on the C<gettemplate> sub can be found in the
 104     Templates.pm module.
 105
 106 =cut
 107
 108 sub get_template_and_user {
 109     my $in       = shift;
 110     my $query    = $in->{'query'};
 111     my $language =_get_template_language($query->cookie('KohaOpacLanguage'));
 112     my $path     = C4::Context->config('intrahtdocs'). "/prog/". $language;
 113
 114     my $tmplbase = $in->{template_name};
 115     my $filename = "$path/modules/" . $tmplbase;
 116     my $interface = 'intranet';
 117     my $template = C4::Templates->new( $interface, $filename, $tmplbase, $query);
 118
 119     my ( $user, $cookie, $sessionID, $flags ) = checkauth(
 120         $in->{'query'},
 121         $in->{'authnotrequired'},
 122         $in->{'flagsrequired'},
 123         $in->{'type'}
 124     );
 125
 126     #     use Data::Dumper;warn "utilisateur $user cookie : ".Dumper($cookie);
 127
 128     my $borrowernumber;
 129     if ($user) {
 130         $template->param( loggedinusername => $user );
 131         $template->param( sessionID        => $sessionID );
 132
 133         # We are going to use the $flags returned by checkauth
 134         # to create the template's parameters that will indicate
 135         # which menus the user can access.
 136         if ( ( $flags && $flags->{superlibrarian} == 1 ) ) {
 137             $template->param( CAN_user_circulate        => 1 );
 138             $template->param( CAN_user_catalogue        => 1 );
 139             $template->param( CAN_user_parameters       => 1 );
 140             $template->param( CAN_user_borrowers        => 1 );
 141             $template->param( CAN_user_permission       => 1 );
 142             $template->param( CAN_user_reserveforothers => 1 );
 143             $template->param( CAN_user_editcatalogue    => 1 );
 144             $template->param( CAN_user_updatecharges    => 1 );
 145             $template->param( CAN_user_acquisition      => 1 );
 146             $template->param( CAN_user_management       => 1 );
 147             $template->param( CAN_user_tools            => 1 );
 148             $template->param( CAN_user_editauthorities  => 1 );
 149             $template->param( CAN_user_serials          => 1 );
 150             $template->param( CAN_user_reports          => 1 );
 151         }
 152
 153         my $minPasswordLength = C4::Context->preference('minPasswordLength');
 154         $minPasswordLength = 3 if not $minPasswordLength or $minPasswordLength < 3;
 155         $template->param(minPasswordLength => $minPasswordLength,);
 156     }
 157     return ( $template, $borrowernumber, $cookie );
 158 }
 159
 160 sub _get_template_language {
 161
 162     #verify if opac language exists in staff (bug 5660)
 163     #conditions are 1) dir exists and 2) enabled in prefs
 164     my ($opaclang) = @_;
 165     return 'en' unless $opaclang;
 166     $opaclang =~ s/[^a-zA-Z_-]*//g;
 167     my $path = C4::Context->config('intrahtdocs') . "/prog/$opaclang";
 168     -d $path ? $opaclang : 'en';
 169 }
 170
 171 =item checkauth
 172
 173   ($userid, $cookie, $sessionID) = &checkauth($query, $noauth, $flagsrequired, $type);
 174
 175 Verifies that the user is authorized to run this script.  If
 176 the user is authorized, a (userid, cookie, session-id, flags)
 177 quadruple is returned.  If the user is not authorized but does
 178 not have the required privilege (see $flagsrequired below), it
 179 displays an error page and exits.  Otherwise, it displays the
 180 login page and exits.
 181
 182 Note that C<&checkauth> will return if and only if the user
 183 is authorized, so it should be called early on, before any
 184 unfinished operations (e.g., if you've opened a file, then
 185 C<&checkauth> won't close it for you).
 186
 187 C<$query> is the CGI object for the script calling C<&checkauth>.
 188
 189 The C<$noauth> argument is optional. If it is set, then no
 190 authorization is required for the script.
 191
 192 C<&checkauth> fetches user and session information from C<$query> and
 193 ensures that the user is authorized to run scripts that require
 194 authorization.
 195
 196 The C<$flagsrequired> argument specifies the required privileges
 197 the user must have if the username and password are correct.
 198 It should be specified as a reference-to-hash; keys in the hash
 199 should be the "flags" for the user, as specified in the Members
 200 intranet module. Any key specified must correspond to a "flag"
 201 in the userflags table. E.g., { circulate => 1 } would specify
 202 that the user must have the "circulate" privilege in order to
 203 proceed. To make sure that access control is correct, the
 204 C<$flagsrequired> parameter must be specified correctly.
 205
 206 The C<$type> argument specifies whether the template should be
 207 retrieved from the opac or intranet directory tree.  "opac" is
 208 assumed if it is not specified; however, if C<$type> is specified,
 209 "intranet" is assumed if it is not "opac".
 210
 211 If C<$query> does not have a valid session ID associated with it
 212 (i.e., the user has not logged in) or if the session has expired,
 213 C<&checkauth> presents the user with a login page (from the point of
 214 view of the original script, C<&checkauth> does not return). Once the
 215 user has authenticated, C<&checkauth> restarts the original script
 216 (this time, C<&checkauth> returns).
 217
 218 The login page is provided using a HTML::Template, which is set in the
 219 systempreferences table or at the top of this file. The variable C<$type>
 220 selects which template to use, either the opac or the intranet
 221 authentification template.
 222
 223 C<&checkauth> returns a user ID, a cookie, and a session ID. The
 224 cookie should be sent back to the browser; it verifies that the user
 225 has authenticated.
 226
 227 =cut
 228
 229 sub checkauth {
 230     my $query = shift;
 231
 232 # $authnotrequired will be set for scripts which will run without authentication
 233     my $authnotrequired = shift;
 234     my $flagsrequired   = shift;
 235     my $type            = shift;
 236     $type = 'intranet' unless $type;
 237
 238     my $dbh = C4::Context->dbh();
 239     my $template_name;
 240     $template_name = "installer/auth.tt";
 241     my $sessdir = File::Spec->catdir( File::Spec->tmpdir, 'cgisess_' . C4::Context->config('database') ); # same construction as in C4/Auth
 242
 243     # state variables
 244     my $loggedin = 0;
 245     my %info;
 246     my ( $userid, $cookie, $sessionID, $flags, $envcookie );
 247     my $logout = $query->param('logout.x');
 248     if ( $sessionID = $query->cookie("CGISESSID") ) {
 249         C4::Context->_new_userenv($sessionID);
 250         my $session =
 251           new CGI::Session( "driver:File;serializer:yaml", $sessionID,
 252             { Directory => $sessdir } );
 253         if ( $session->param('cardnumber') ) {
 254             C4::Context->set_userenv(
 255                 $session->param('number'),
 256                 $session->param('id'),
 257                 $session->param('cardnumber'),
 258                 $session->param('firstname'),
 259                 $session->param('surname'),
 260                 $session->param('branch'),
 261                 $session->param('branchname'),
 262                 $session->param('flags'),
 263                 $session->param('emailaddress'),
 264                 $session->param('branchprinter')
 265             );
 266             $cookie = $query->cookie(
 267                 -name     => 'CGISESSID',
 268                 -value    => $session->id,
 269                 -HttpOnly => 1,
 270             );
 271             $loggedin = 1;
 272             $userid   = $session->param('cardnumber');
 273         }
 274         my ( $ip, $lasttime );
 275
 276         if ($logout) {
 277
 278             # voluntary logout the user
 279             C4::Context->_unset_userenv($sessionID);
 280             $sessionID = undef;
 281             $userid    = undef;
 282            # Commented out due to its lack of usefulness
 283            # open L, ">>/tmp/sessionlog";
 284            # my $time = localtime( time() );
 285            # printf L "%20s from %16s logged out at %30s (manually).\n", $userid,
 286            #   $ip, $time;
 287            # close L;
 288         }
 289     }
 290     unless ($userid) {
 291         my $session =
 292           new CGI::Session( "driver:File;serializer:yaml", undef, { Directory => $sessdir } );
 293         $sessionID = $session->id;
 294         $userid    = $query->param('userid');
 295         C4::Context->_new_userenv($sessionID);
 296         my $password = $query->param('password');
 297         C4::Context->_new_userenv($sessionID);
 298         my ( $return, $cardnumber ) = checkpw( $userid, $password );
 299         if ($return) {
 300             $loggedin = 1;
 301             # open L, ">>/tmp/sessionlog";
 302             # my $time = localtime( time() );
 303             # printf L "%20s from %16s logged in  at %30s.\n", $userid,
 304             #  $ENV{'REMOTE_ADDR'}, $time;
 305             # close L;
 306             $cookie = $query->cookie(
 307                 -name     => 'CGISESSID',
 308                 -value    => $sessionID,
 309                 -HttpOnly => 1,
 310             );
 311             if ( $return == 2 ) {
 312
 313            #Only superlibrarian should have access to this page.
 314            #Since if it is a user, it is supposed that there is a borrower table
 315            #And thus that data structure is loaded.
 316                 my $hash = C4::Context->set_userenv(
 317                     0,                           0,
 318                     C4::Context->config('user'), C4::Context->config('user'),
 319                     C4::Context->config('user'), "",
 320                     "NO_LIBRARY_SET",            1,
 321                     ""
 322                 );
 323                 $session->param( 'number',     0 );
 324                 $session->param( 'id',         C4::Context->config('user') );
 325                 $session->param( 'cardnumber', C4::Context->config('user') );
 326                 $session->param( 'firstname',  C4::Context->config('user') );
 327                 $session->param( 'surname',    C4::Context->config('user'), );
 328                 $session->param( 'branch',     'NO_LIBRARY_SET' );
 329                 $session->param( 'branchname', 'NO_LIBRARY_SET' );
 330                 $session->param( 'flags',      1 );
 331                 $session->param( 'emailaddress',
 332                     C4::Context->preference('KohaAdminEmailAddress') );
 333                 $session->param( 'ip',       $session->remote_addr() );
 334                 $session->param( 'lasttime', time() );
 335                 $userid = C4::Context->config('user');
 336             }
 337         }
 338         else {
 339             if ($userid) {
 340                 $info{'invalid_username_or_password'} = 1;
 341                 C4::Context->_unset_userenv($sessionID);
 342             }
 343         }
 344     }
 345
 346     # finished authentification, now respond
 347     if ($loggedin) {
 348
 349         # successful login
 350         unless ($cookie) {
 351             $cookie = $query->cookie(
 352                 -name    => 'CGISESSID',
 353                 -value   => '',
 354                 -HttpOnly => 1,
 355                 -expires => ''
 356             );
 357         }
 358         if ($envcookie) {
 359             return ( $userid, [ $cookie, $envcookie ], $sessionID, $flags );
 360         }
 361         else {
 362             return ( $userid, $cookie, $sessionID, $flags );
 363         }
 364     }
 365
 366     # else we have a problem...
 367     # get the inputs from the incoming query
 368     my @inputs = ();
 369     foreach my $name ( param $query) {
 370         (next) if ( $name eq 'userid' || $name eq 'password' );
 371         my $value = $query->param($name);
 372         push @inputs, { name => $name, value => $value };
 373     }
 374
 375     my $path =
 376       C4::Context->config('intrahtdocs') . "/prog/"
 377       . ( $query->param('language') ? $query->param('language') : "en" );
 378     my $filename = "$path/modules/$template_name";
 379     my $interface = 'intranet';
 380     my $template = C4::Templates->new( $interface, $filename, '', $query);
 381     $template->param(
 382         INPUTS => \@inputs,
 383
 384     );
 385     $template->param( login => 1 );
 386     $template->param( loginprompt => 1 ) unless $info{'nopermission'};
 387
 388     if ($info{'invalid_username_or_password'} == 1) {
 389                 $template->param( 'invalid_username_or_password' => $info{'invalid_username_or_password'});
 390     }
 391
 392     $template->param( \%info );
 393     $cookie = $query->cookie(
 394         -name    => 'CGISESSID',
 395         -value   => $sessionID,
 396         -HttpOnly => 1,
 397         -expires => ''
 398     );
 399     print $query->header(
 400         -type    => 'text/html; charset=utf-8',
 401         -cookie  => $cookie
 402       ),
 403       $template->output;
 404     exit;
 405 }
 406
 407 sub checkpw {
 408
 409     my ( $userid, $password ) = @_;
 410
 411     if (   $userid
 412         && $userid     eq C4::Context->config('user')
 413         && "$password" eq C4::Context->config('pass') )
 414     {
 415
 416         # Koha superuser account
 417         C4::Context->set_userenv(
 418             0, 0,
 419             C4::Context->config('user'),
 420             C4::Context->config('user'),
 421             C4::Context->config('user'),
 422             "", "NO_LIBRARY_SET", 1
 423         );
 424         return 2;
 425     }
 426     return 0;
 427 }
 428
 429 END { }    # module clean-up code here (global destructor)
 430 1;
 431 __END__
 432
 433 =back
 434
 435 =head1 SEE ALSO
 436
 437 CGI(3)
 438
 439 C4::Output(3)
 440
 441 Digest::MD5(3)
 442
 443 =cut