← Back to branch summary

~ubuntu-branches/ubuntu/raring/surfraw/raring

« back to all changes in this revision

Viewing changes to elvi/debbugs

  • Committer: Bazaar Package Importer
  • Author(s): Ian Beckwith
  • Date: 2008-03-11 14:07:35 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20080311140735-8s6dh1auyn1ot7bi
Tags: 2.2.1-2
Remove my old email address from Uploaders.

Show diffs side-by-side

added added

removed removed

Lines of Context:
elvi/debbugs
1
1
#!/bin/sh
2
 
# $Id: debbugs,v 1.3 2006-03-15 23:05:10 ianb-guest Exp $
 
2
# $Id: debbugs,v 1.5 2008-03-11 12:59:45 ianb-guest Exp $
3
3
# elvis: debbugs                -- Search the debian BTS (bugs.debian.org)
4
4
. surfraw || exit 1
5
5
 
83
83
  -extag=tag3,tag4              Exclude given tags.
84
84
                                Available tags:
85
85
                                 potato, woody, sarge, sarge-ignore,
86
 
                                                                 etch, etch-ignore, sid, experimental,
87
 
                                                                 confirmed, d-i, fixed, fixed-in-experimental,
88
 
                                                                 fixed-upstream, help, l10n, moreinfo, patch,
89
 
                                                                 pending, security, unreproducible, upstream,
90
 
                                                                 wontfix, ipv6, lfs
 
86
                                 etch, etch-ignore, sid, experimental,
 
87
                                 confirmed, d-i, fixed, fixed-in-experimental,
 
88
                                 fixed-upstream, help, l10n, moreinfo, patch,
 
89
                                 pending, security, unreproducible, upstream,
 
90
                                 wontfix, ipv6, lfs
91
91
EOF
92
92
    w3_global_usage
93
93
}
128
128
    w3_browse_url "http://bugs.debian.org/"
129
129
else
130
130
    escaped_args=`w3_url_of_arg $w3_args`
131
 
        setoptyn donum 0
132
 
        setoptyn domaint 0
 
131
    setoptyn donum 0
 
132
    setoptyn domaint 0
133
133
 
134
 
        case "$SURFRAW_debbugs_search" in
135
 
                bug*) setoptyn donum 1;;
136
 
        esac
 
134
    case "$SURFRAW_debbugs_search" in
 
135
        bug*) setoptyn donum 1;;
 
136
    esac
137
137
        # default search unless searchtype set on cmdline
138
 
        if ifno setsearch
139
 
        then
140
 
            export escaped_args
141
 
                if perl -e 'if($ENV{escaped_args} =~/^((\#|\%23)(\s|\%20)*)?\d+$/) { exit 0; } exit 1;'
142
 
                then # %23 = uri escaped '#', %20=' '
143
 
                        setoptyn donum 1
144
 
                elif perl -e 'if($ENV{escaped_args} =~/\%40|@/) { exit 0; } exit 1;'
145
 
                then # %40 = uri escaped '@'
146
 
                        setopt SURFRAW_debbugs_search "maint"
147
 
                fi
148
 
        fi
149
 
        
150
 
        if ifyes donum
151
 
        then
152
 
                url="http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=${escaped_args}"
153
 
                if yesno SURFRAW_debbugs_asmbox
154
 
                then
155
 
                        url="$url&mbox=yes"
156
 
                fi
157
 
                if yesno SURFRAW_debbugs_headers
158
 
                then
159
 
                        url="$url&trim=no"
160
 
                fi
161
 
                if yesno SURFRAW_debbugs_boring
162
 
                then
163
 
                        url="$url&boring=yes"
164
 
                fi
 
138
    if ifno setsearch
 
139
    then
 
140
        export escaped_args
 
141
        if perl -e 'if($ENV{escaped_args} =~/^((\#|\%23)(\s|\%20)*)?\d+$/) { exit 0; } exit 1;'
 
142
        then # %23 = uri escaped '#', %20=' '
 
143
            setoptyn donum 1
 
144
        elif perl -e 'if($ENV{escaped_args} =~/\%40|@/) { exit 0; } exit 1;'
 
145
        then # %40 = uri escaped '@'
 
146
            setopt SURFRAW_debbugs_search "maint"
 
147
        fi
 
148
    fi
 
149
    
 
150
    if ifyes donum
 
151
    then
 
152
        url="http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=${escaped_args}"
 
153
        if yesno SURFRAW_debbugs_asmbox
 
154
        then
 
155
            url="$url&mbox=yes"
 
156
        fi
 
157
        if yesno SURFRAW_debbugs_headers
 
158
        then
 
159
            url="$url&trim=no"
 
160
        fi
 
161
        if yesno SURFRAW_debbugs_boring
 
162
        then
 
163
            url="$url&boring=yes"
 
164
        fi
 
165
    else
 
166
        url="http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=${SURFRAW_debbugs_search}&version=${SURFRAW_debbugs_version}&dist=${SURFRAW_debbugs_dist}&data=${escaped_args}"
 
167
        if yesno SURFRAW_debbugs_archive
 
168
        then
 
169
            url="$url&archive=yes"
165
170
        else
166
 
                url="http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=${SURFRAW_debbugs_search}&version=${SURFRAW_debbugs_version}&dist=${SURFRAW_debbugs_dist}&data=${escaped_args}"
167
 
                if yesno SURFRAW_debbugs_archive
168
 
                then
169
 
                        url="$url&archive=yes"
170
 
                else
171
 
                        url="$url&archive=no"
172
 
                fi
173
 
                if ifyes SURFRAW_debbugs_merge
174
 
                then
175
 
                        url="$url&repeatmerged=no"
176
 
                fi
177
 
                if ifno SURFRAW_debbugs_statussort
178
 
                then
179
 
                        url="$url&raw=yes"
180
 
                fi
181
 
                if ifno SURFRAW_debbugs_head
182
 
                then
183
 
                        url="$url&show_list_header=no"
184
 
                fi
185
 
                if ifno SURFRAW_debbugs_foot
186
 
                then
187
 
                        url="$url&show_list_footer=no"
188
 
                fi
189
 
                if ifyes SURFRAW_debbugs_revstat
190
 
                then
191
 
                        url="$url&pend-rev=yes"
192
 
                fi
193
 
                if ifyes SURFRAW_debbugs_revsev
194
 
                then
195
 
                        url="$url&sev-rev=yes"
196
 
                fi
197
 
                if ifyes SURFRAW_debbugs_revbugs
198
 
                then
199
 
                        url="$url&bug-rev=yes"
200
 
                fi
201
 
                if [ "$SURFRAW_debbugs_incstatus" != "" ]
202
 
                then
203
 
                        add=`echo "$SURFRAW_debbugs_incstatus"|perl -ne 's/pending/pending-fixed/g;s/open/pending/g;print(join("&pend-inc=","",split(/\s*,\s*/,$_)));'`
204
 
                        url="${url}${add}"
205
 
                fi
206
 
                if [ "$SURFRAW_debbugs_excstatus" != "" ]
207
 
                then
208
 
                        add=`echo "$SURFRAW_debbugs_excstatus"|perl -ne 'print(join("&pend-exc=","",split(/\s*,\s*/,$_)));'`
209
 
                        url="${url}${add}"
210
 
                fi
211
 
                if [ "$SURFRAW_debbugs_incsev" != "" ]
212
 
                then
213
 
                        add=`echo "$SURFRAW_debbugs_incsev"|perl -ne 'print(join("&sev-inc=","",split(/\s*,\s*/,$_)));'`
214
 
                        url="${url}${add}"
215
 
                fi
216
 
                if [ "$SURFRAW_debbugs_excsev" != "" ]
217
 
                then
218
 
                        add=`echo "$SURFRAW_debbugs_excsev"|perl -ne 'print(join("&sev-exc=","",split(/\s*,\s*/,$_)));'`
219
 
                        url="${url}${add}"
220
 
                fi
221
 
                if [ "$SURFRAW_debbugs_inctag" != "" ]
222
 
                then
223
 
                        add=`echo "$SURFRAW_debbugs_inctag"|perl -ne 'print(join("&include=","",split(/\s*,\s*/,$_)));'`
224
 
                        url="${url}${add}"
225
 
                fi
226
 
                if [ "$SURFRAW_debbugs_exctag" != "" ]
227
 
                then
228
 
                        add=`echo "$SURFRAW_debbugs_exctag"|perl -ne 'print(join("&exclude=","",split(/\s*,\s*/,$_)));'`
229
 
                        url="${url}${add}"
230
 
                fi
231
 
        fi
 
171
            url="$url&archive=no"
 
172
        fi
 
173
        if ifyes SURFRAW_debbugs_merge
 
174
        then
 
175
            url="$url&repeatmerged=no"
 
176
        fi
 
177
        if ifno SURFRAW_debbugs_statussort
 
178
        then
 
179
            url="$url&raw=yes"
 
180
        fi
 
181
        if ifno SURFRAW_debbugs_head
 
182
        then
 
183
            url="$url&show_list_header=no"
 
184
        fi
 
185
        if ifno SURFRAW_debbugs_foot
 
186
        then
 
187
            url="$url&show_list_footer=no"
 
188
        fi
 
189
        if ifyes SURFRAW_debbugs_revstat
 
190
        then
 
191
            url="$url&pend-rev=yes"
 
192
        fi
 
193
        if ifyes SURFRAW_debbugs_revsev
 
194
        then
 
195
            url="$url&sev-rev=yes"
 
196
        fi
 
197
        if ifyes SURFRAW_debbugs_revbugs
 
198
        then
 
199
            url="$url&bug-rev=yes"
 
200
        fi
 
201
        if [ "$SURFRAW_debbugs_incstatus" != "" ]
 
202
        then
 
203
            add=`echo "$SURFRAW_debbugs_incstatus"|perl -ne 's/pending/pending-fixed/g;s/open/pending/g;print(join("&pend-inc=","",split(/\s*,\s*/,$_)));'`
 
204
            url="${url}${add}"
 
205
        fi
 
206
        if [ "$SURFRAW_debbugs_excstatus" != "" ]
 
207
        then
 
208
            add=`echo "$SURFRAW_debbugs_excstatus"|perl -ne 'print(join("&pend-exc=","",split(/\s*,\s*/,$_)));'`
 
209
            url="${url}${add}"
 
210
        fi
 
211
        if [ "$SURFRAW_debbugs_incsev" != "" ]
 
212
        then
 
213
            add=`echo "$SURFRAW_debbugs_incsev"|perl -ne 'print(join("&sev-inc=","",split(/\s*,\s*/,$_)));'`
 
214
            url="${url}${add}"
 
215
        fi
 
216
        if [ "$SURFRAW_debbugs_excsev" != "" ]
 
217
        then
 
218
            add=`echo "$SURFRAW_debbugs_excsev"|perl -ne 'print(join("&sev-exc=","",split(/\s*,\s*/,$_)));'`
 
219
            url="${url}${add}"
 
220
        fi
 
221
        if [ "$SURFRAW_debbugs_inctag" != "" ]
 
222
        then
 
223
            add=`echo "$SURFRAW_debbugs_inctag"|perl -ne 'print(join("&include=","",split(/\s*,\s*/,$_)));'`
 
224
            url="${url}${add}"
 
225
        fi
 
226
        if [ "$SURFRAW_debbugs_exctag" != "" ]
 
227
        then
 
228
            add=`echo "$SURFRAW_debbugs_exctag"|perl -ne 'print(join("&exclude=","",split(/\s*,\s*/,$_)));'`
 
229
            url="${url}${add}"
 
230
        fi
 
231
    fi
232
232
    w3_browse_url "$url"
233
233
fi