Bug 16733: Adjust other debian scripts using PERL5LIB
[koha.git] / debian / scripts / koha-reset-passwd
blob317e2bce66bdea0183dec28136d2e17f02ddea1e
1 #!/bin/sh
3 # koha-reset-passwd -- reset password for a user in a Koha instance
4 # Copyright 2010 Catalyst IT, Ltd
5 #
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation, either version 3 of the License, or
9 # (at your option) any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program. If not, see <http://www.gnu.org/licenses/>.
20 set -e
22 # include helper functions
23 if [ -f "/usr/share/koha/bin/koha-functions.sh" ]; then
24 . "/usr/share/koha/bin/koha-functions.sh"
25 else
26 echo "Error: /usr/share/koha/bin/koha-functions.sh not present." 1>&2
27 exit 1
30 pwdigest() {
31 echo -n "$1" |
32 perl -e 'use Digest::MD5 qw(md5_base64);
33 while (<>) { print md5_base64($_), "\n"; }'
37 [ $# -lt 2 ] && die "Usage: $0 instancename username..."
38 instance="$1"
39 shift
41 temp="$(mktemp)"
43 cat <<eof > "$temp"
44 use koha_$instance;
45 eof
47 for userid in "$@"
49 password="$(pwgen 12 1)"
50 digest="$(pwdigest $password)"
51 echo "$userid $password"
52 echo "UPDATE borrowers SET password = '$digest' WHERE userid = '$userid';" \
53 >> "$temp"
54 done
56 mysql --defaults-extra-file=/etc/mysql/koha-common.cnf < "$temp"
58 rm "$temp"