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 URI::Escape; |
21 |
|
22 |
|
22 |
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print); |
23 |
my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print); |
23 |
GetOptions( |
24 |
GetOptions( |
Lines 241-247
if ($steps=~ /4/) {
Link Here
|
241 |
my $b2 = HTTPD::Bench::ApacheBench->new; |
242 |
my $b2 = HTTPD::Bench::ApacheBench->new; |
242 |
$b2->concurrency( $concurrency ); |
243 |
$b2->concurrency( $concurrency ); |
243 |
unless ($short_print) { |
244 |
unless ($short_print) { |
244 |
print "Step 5: patron detail page "; |
245 |
print "Step 4: patron detail page "; |
245 |
} |
246 |
} |
246 |
my $run2 = HTTPD::Bench::ApacheBench::Run->new |
247 |
my $run2 = HTTPD::Bench::ApacheBench::Run->new |
247 |
({ urls => \@borrowers, |
248 |
({ urls => \@borrowers, |
Lines 324-330
if ($steps=~ /6/) {
Link Here
|
324 |
until ($rand_barcode) { |
325 |
until ($rand_barcode) { |
325 |
my $rand_itemnumber = int(rand($itemnumber_max)+1); |
326 |
my $rand_itemnumber = int(rand($itemnumber_max)+1); |
326 |
$sth->execute($rand_itemnumber); |
327 |
$sth->execute($rand_itemnumber); |
327 |
($rand_barcode) = $sth->fetchrow(); |
328 |
($rand_barcode) = uri_escape_utf8($sth->fetchrow()); |
328 |
} |
329 |
} |
329 |
push @issues,"$baseurl/circ/circulation.pl?borrowernumber=$rand_borrowernumber&barcode=$rand_barcode&issueconfirmed=1"; |
330 |
push @issues,"$baseurl/circ/circulation.pl?borrowernumber=$rand_borrowernumber&barcode=$rand_barcode&issueconfirmed=1"; |
330 |
push @returns,"$baseurl/circ/returns.pl?barcode=$rand_barcode"; |
331 |
push @returns,"$baseurl/circ/returns.pl?barcode=$rand_barcode"; |
331 |
- |
|
|