6 while (my $openurl = <>) {
7 my $opensearch = '/opac/extras/opensearch/1.1/-/marcxml/-/?';
8 my @parts = split('&', $openurl);
17 if (/^au[^=]+=(.*)$/o) {
18 $params{au} .= $1 . ' ';
19 } elsif (/^[sa]?title=(.*)$/o) {
20 $params{ti} .= $1 . ' ';
21 } elsif (/^e?is.n=(.*)$/o) {
22 $params{kw} .= $1 . ' ';
23 } elsif (/^[^=]+=(.*)$/o) {
24 $params{kw} .= $1 . ' ';
28 $opensearch .= join('&', map { "$_=$params{$_}" } keys %params );
30 print $opensearch . "\n";