Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 11124: disallow trying to run the staff benchmark script as the DB account

Browse source 
On step 6 (at least), the circulation and return page redirect to the
select branch page and nothing is done.

The script should die if the user used is the sql administrator account.

Test plan:
Suppose that the sql admin account is root/root and koha/koha a
superlibrarian account.

1/
perl misc/load_testing/benchmark_staff.pl --steps=6
--url=http://admin.koha.local/cgi-bin/koha/
--password="koha" --user="koha"
should produce:
  ...
  Step 6
  ...

2/
perl misc/load_testing/benchmark_staff.pl --steps=1
--url=http://admin.koha.local/cgi-bin/koha/
--password="root" --user="root"
should produce:
Authentication successful
You cannot use the database administrator account to launch this script

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Jonathan Druart 2013-10-23 16:48:14 +02:00 committed by Galen Charlton
parent 54937c5eb3
commit 4604f595d6
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
misc/load_testing/benchmark_staff.pl
View file

@ -18,6 +18,7 @@ use Data::Dumper;
use HTTP::Cookies;
use C4::Context;
use C4::Debug;
use C4::Members qw ( GetMember );
use URI::Escape;
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);
@ -89,6 +90,9 @@ if( $resp->is_success and $resp->content =~ m|<status>ok</status>| ) {
die "Authentication failure: \n\t" . $resp->status_line;
}
die "You cannot use the database administrator account to launch this script"
unless defined C4::Members::GetMember(userid => $user);
# remove some unnecessary garbage from the cookie
$cookie =~ s/ path_spec; discard; version=0//;
$cookie =~ s/Set-Cookie3: //;