@@ -, +, @@ "max:s" => \$max, "point this test to your staff client. If you do not have ". "KOHA_CONF set, you must also set KOHA_USER and KOHA_PASS for ". "your username and password") unless $intranet; print "$i "; $cumul_time += launch ( "$intranet/cgi-bin/koha/admin/preferences.pl", $max ); print "$i "; $cumul_time += launch ( "$intranet/cgi-bin/koha/catalogue/search.pl?q=d", $max ); my ( $url, $max ) = @_; my $p = new Time::Progress; $p->restart; for my $cpt ( 1 .. $max ) { my $pid; next if $pid = fork; die "fork failed: $!" unless defined $pid; $agent->get( $url ); exit; } 1 while (wait() != -1); $p->stop; return $p->report("%l");