View | Details | Raw Unified | Return to bug 11124
Collapse All | Expand All

(-)a/misc/load_testing/benchmark_staff.pl (-1 / +4 lines)
Lines 18-23 use Data::Dumper; Link Here
18
use HTTP::Cookies;
18
use HTTP::Cookies;
19
use C4::Context;
19
use C4::Context;
20
use C4::Debug;
20
use C4::Debug;
21
use C4::Members qw ( GetMember );
21
use URI::Escape;
22
use URI::Escape;
22
23
23
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);
24
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);
Lines 89-94 if( $resp->is_success and $resp->content =~ m|<status>ok</status>| ) { Link Here
89
    die "Authentication failure: \n\t" . $resp->status_line;
90
    die "Authentication failure: \n\t" . $resp->status_line;
90
}
91
}
91
92
93
die "You cannot use the database administrator account to launch this script"
94
    unless defined C4::Members::GetMember(userid => $user);
95
92
# remove some unnecessary garbage from the cookie
96
# remove some unnecessary garbage from the cookie
93
$cookie =~ s/ path_spec; discard; version=0//;
97
$cookie =~ s/ path_spec; discard; version=0//;
94
$cookie =~ s/Set-Cookie3: //;
98
$cookie =~ s/Set-Cookie3: //;
95
- 

Return to bug 11124