X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=3bdc7f77f09d0765f079d77534ac0e4f12ab8d33;hb=46a78df16b626c7455d6f1879415b0fa2da76744;hp=93fcf0bc1bda2c57d793b0ed7a7b3e196ab12494;hpb=20bea992a857ea1f03f19d81f7164b113a560e83;p=ypp-sc-tools.web-test.git diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index 93fcf0b..3bdc7f7 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -36,32 +36,49 @@ <%args> $quri $dbh +$baseqf +$queryqf $islandstring => ''; $capacitystring => ''; $lossperleague => ''; $capitalstring => ''; +$minprofitstring => ''; $distance => ''; +$prselector $someresults $emsgokorprint +$allargs %args> <%perl> +use BSD::Resource; + my $emsg; my @warningfs; my @islandids; +my $destspec; + +my $maxmaxdist=35; +my $maxcpu=90; +my $concur_lim=5; + my $qa= \%ARGS; my $routeparams= { EmsgRef => \$emsg, SayRequiredCapacity => 1 }; my $maxdist; +my $maxcountea=15; %perl> +