use HTTP::Cookies;
use C4::Context;
use C4::Debug;
+use URI::Escape;
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);
GetOptions(
my $cookie;
$ua->cookie_jar($cookie_jar);
my $resp = $ua->post( "$baseurl"."/svc/authentication" , {userid =>$user, password => $password} );
-if( $resp->is_success ) {
+if( $resp->is_success and $resp->content =~ m|<status>ok</status>| ) {
$cookie_jar->extract_cookies( $resp );
$cookie = $cookie_jar->as_string;
unless ($short_print) {
print "Authentication successful\n";
print "Auth:\n $resp->content" if $debug;
}
+} elsif ( $resp->is_success ) {
+ die "Authentication failure: bad login/password";
+} else {
+ die "Authentication failure: \n\t" . $resp->status_line;
}
# remove some unnecessary garbage from the cookie
my $b2 = HTTPD::Bench::ApacheBench->new;
$b2->concurrency( $concurrency );
unless ($short_print) {
- print "Step 5: patron detail page ";
+ print "Step 4: patron detail page ";
}
my $run2 = HTTPD::Bench::ApacheBench::Run->new
({ urls => \@borrowers,
until ($rand_barcode) {
my $rand_itemnumber = int(rand($itemnumber_max)+1);
$sth->execute($rand_itemnumber);
- ($rand_barcode) = $sth->fetchrow();
+ ($rand_barcode) = uri_escape_utf8($sth->fetchrow());
}
push @issues,"$baseurl/circ/circulation.pl?borrowernumber=$rand_borrowernumber&barcode=$rand_barcode&issueconfirmed=1";
push @returns,"$baseurl/circ/returns.pl?barcode=$rand_barcode";