qi-hardware/eda-tools
1
0
Fork 0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-11-25 23:52:51 +02:00
Code

ds-catq.pl: allow selecting multiple values and added a test mode.

Browse Source 
- boom/dist/dk/dk-catq.pl: allow multiple values of a parameter to be
  selected
- boom/dist/dk/dk-catq.pl: new option -t to run in test mode, in which the
  resulting pages are not downloaded but only the URL leading to them is
  printed
This commit is contained in:
Werner Almesberger 2010-10-16 10:43:39 -03:00
parent 58bca0e24e
commit 331094ec8f
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
boom/dist/dk/dk-catq.pl vendored
View File

@ -24,6 +24,11 @@ sub query
# --- Read query specification ------------------------------------------------ # --- Read query specification ------------------------------------------------
if ($ARGV[0] eq "-t") {
$test = 1;
shift @ARGV;
}
$spec = $ARGV[0]; $spec = $ARGV[0];
while (<>) { while (<>) {
@ -38,7 +43,7 @@ $key = shift @q;
$cat = shift @q; $cat = shift @q;
for (@q) { for (@q) {
die "not a field=value pair: \"$_\"" unless /\s*=\s*/; die "not a field=value pair: \"$_\"" unless /\s*=\s*/;
$f{$`} = $'; push(@{ $f{$`} }, $');
} }
@ -91,9 +96,20 @@ for (@q) {
for (keys %f) { for (keys %f) {
$field = $col_field{$_}; $field = $col_field{$_};
die "no such field: $_" unless defined $field; die "no such field: $_" unless defined $field;
$value = $val{$_}{$f{$_}}; for $v (@{ $f{$_} }) {
die "no such value: \"$_\"=\"$f{$_}\"" unless defined $value; $value = $val{$_}{$v};
$url .= "&$field=$value"; die "no such value: \"$_\"=\"$f{$_}\"" unless defined $value;
$url .= "&$field=$value";
}
}
# --- Stop here if in test mode -----------------------------------------------
if ($test) {
print "$url\n";
exit(0);
} }