3 # This file is part of Koha.
5 # Copyright 2019 Koha Development Team
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.
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.
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>.
22 use Bytes::Random::Secure;
30 my ( $help, $password, $cardnumber, $patron_id, $userid );
33 'userid=s' => \$userid,
34 'password=s' => \$password,
35 'patron_id=s' => \$patron_id,
36 'cardnumber=s' => \$cardnumber,
39 pod2usage(1) if $help;
41 unless ( $userid or $patron_id or $cardnumber ) {
42 pod2usage("userid is mandatory") unless $userid;
43 pod2usage("patron_id is mandatory") unless $patron_id;
44 pod2usage("cardnumber is mandatory") unless $cardnumber;
48 my $generator = String::Random->new( rand_gen => \&alt_rand );
49 $password = $generator->randregex('[A-Za-z][A-Za-z0-9_]{6}.[A-Za-z][A-Za-z0-9_]{6}\d');
55 $filter->{userid} = $userid;
59 $filter->{cardnumber} = $cardnumber;
63 $filter->{borrowernumber} = $patron_id;
66 my $patrons = Koha::Patrons->search( $filter );
68 unless ( $patrons->count > 0 ) {
69 pod2usage( "No patron found matching the specified criteria" );
72 my $patron = $patrons->next;
73 $patron->set_password({ password => $password, skip_validation => 1 });
75 print $patron->userid . " " . $password . "\n";
77 sub alt_rand { # Alternative randomizer
79 my $random = Bytes::Random::Secure->new( NonBlocking => 1 );
80 my $r = $random->irand / 2**32;
81 return int( $r * $max );
86 set_password.pl - Set the specified password for the user in Koha
91 --userid <userid> --password <password> --patron_id <patron_id> --cardnumber <cardnumber>
94 -?|--help brief help message
95 --password the password to be set (optional)
96 --userid the userid to be used to find the patron
97 --patron_id the borrowernumber for the patron
98 --cardnumber the cardnumber for the patron
106 Print a brief help message and exits
110 The patron's userid (for finding the patron)
114 The password to be set in the database. If no password is passed, a random one is generated.
118 The patron's internal id (for finding the patron)
120 =item B<--cardnumber>
122 Patron's cardnumber (for finding the patron)
128 A simple script to change an existing's user password in the Koha database