|
Lines 42-51
my $short_psec="|-\n|ON\n";
Link Here
|
| 42 |
|
42 |
|
| 43 |
if ($help || !$baseurl || !$user || !$password) { |
43 |
if ($help || !$baseurl || !$user || !$password) { |
| 44 |
print <<EOF |
44 |
print <<EOF |
| 45 |
This script runs a benchmark of the staff interface. It benchmark 6 different pages: |
45 |
This script runs a benchmark of the staff interface. It benchmarks 6 different pages: |
| 46 |
\t1- the staff main page |
46 |
\t1- the staff main page |
| 47 |
\t2- the catalog detail page, with a random biblionumber |
47 |
\t2- the catalog detail page, with a random biblionumber |
| 48 |
\t3- the catalog search page, using a term retrieved from one of the 10 first title/author in the database |
48 |
\t3- the catalog search page, using a term retrieved from one of the 10 first titles/authors in the database |
| 49 |
\t4- the patron detail page, with a random borrowernumber |
49 |
\t4- the patron detail page, with a random borrowernumber |
| 50 |
\t5- the patron search page, searching for "Jean" |
50 |
\t5- the patron search page, searching for "Jean" |
| 51 |
\t6- the circulation itself, doing check-out and check-in of random items to random patrons |
51 |
\t6- the circulation itself, doing check-out and check-in of random items to random patrons |
|
Lines 125-132
$sth->execute;
Link Here
|
| 125 |
my ($title,$author); |
125 |
my ($title,$author); |
| 126 |
my @searchwords; |
126 |
my @searchwords; |
| 127 |
while (($title,$author)=$sth->fetchrow) { |
127 |
while (($title,$author)=$sth->fetchrow) { |
| 128 |
push @searchwords,split / /, $author; |
128 |
push @searchwords,split / /, $author//''; |
| 129 |
push @searchwords,split / /, $title; |
129 |
push @searchwords,split / /, $title//''; |
| 130 |
} |
130 |
} |
| 131 |
|
131 |
|
| 132 |
$sth = $dbh->prepare("select max(itemnumber) from items"); |
132 |
$sth = $dbh->prepare("select max(itemnumber) from items"); |
|
Lines 139-145
unless ($short_print) {
Link Here
|
| 139 |
print "--------------\n"; |
139 |
print "--------------\n"; |
| 140 |
print "Koha STAFF benchmarking utility\n"; |
140 |
print "Koha STAFF benchmarking utility\n"; |
| 141 |
print "--------------\n"; |
141 |
print "--------------\n"; |
| 142 |
print "Benchmarking with $max_tries occurences of each operation and $concurrency concurrent sessions \n"; |
142 |
print "Benchmarking with $max_tries occurrences of each operation and $concurrency concurrent sessions \n"; |
| 143 |
} |
143 |
} |
| 144 |
# |
144 |
# |
| 145 |
# the global benchmark we do at the end... |
145 |
# the global benchmark we do at the end... |
| 146 |
- |
|
|