6 while (my $openurl = <>) {
7 my $opensearch = '/opac/extras/opensearch/1.1/-/marcxml/-/?';
8 my @parts = split('&', $openurl);
23 if (/^au[^=]+=(.*)$/o) {
24 $params{au} .= $1 . ' ';
25 } elsif (/^[sa]?title=(.*)$/o) {
26 $params{ti} .= $1 . ' ';
27 } elsif (/^e?is.n=(.*)$/o) {
28 $params{kw} .= $1 . ' ';
29 } elsif (/^searchSort=(.*)$/o) {
30 $params{searchSort} = $1;
31 } elsif (/^searchSortDir=(.*)$/o) {
32 $params{searchSortDir} = $1;
33 } elsif (/^searchLang=(.*)$/o) {
34 $params{searchLang} = $1;
35 } elsif (/^startIndex=(.*)$/o) {
36 $params{startIndex} = $1;
37 } elsif (/^count=(.*)$/o) {
39 } elsif (/^searchOrg=(.*)$/o) {
40 $params{searchOrg} = $1;
41 } elsif (/^[^=]+=(.*)$/o) {
42 $params{kw} .= $1 . ' ';
46 $opensearch .= join('&', map { "$_=$params{$_}" } keys %params );
48 print $opensearch . "\n";