X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fquery_routesearch;h=151824cdec7a8a77db75f0b6b1c0c1055a0da2fa;hp=dc8c230c54767b3b5310004eed0d6b48c495d4db;hb=HEAD;hpb=9101afe763ab49064b0ac3b5ab5ea066bcbc6259 diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch index dc8c230..126c4e8 100644 --- a/yarrg/web/query_routesearch +++ b/yarrg/web/query_routesearch @@ -36,23 +36,32 @@ <%args> $quri $dbh +$baseqf +$queryqf $islandstring => ''; $capacitystring => ''; $lossperleague => ''; $capitalstring => ''; +$minprofitstring => ''; $distance => ''; +$prselector $someresults $emsgokorprint +$allargs %args> <%perl> +no warnings qw(exec); + use BSD::Resource; my $emsg; my @warningfs; my @islandids; -my $maxmaxdist=35; +my $destspec; + +my @maxmaxdist= qw(100 100 100); my $maxcpu=90; my $concur_lim=5; @@ -63,12 +72,18 @@ my $maxcountea=15; %perl> +