req.dcgi - gophercgis - Collection of gopher CGI/DCGI for geomyidae
 (HTM) hg clone https://bitbucket.org/iamleot/gophercgis
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       req.dcgi
       ---
            1 #!/bin/sh
            2 
            3 . ../common/config.sh
            4 
            5 CGI_TICKET="${CGI_BASEDIR}/netbsd/ticket.cgi"
            6 
            7 
            8 branch="$2"
            9 case "${branch}" in
           10         pkgsrc | 7 | 8 | 9 )
           11                 ;;
           12         *)
           13                 exit 1
           14                 ;;
           15 esac
           16 
           17 
           18 #
           19 # Parse the <table> containing tickets information
           20 #
           21 filter_table()
           22 {
           23 
           24         awk '
           25         /<td align=left>/ && /show=/ {
           26                 match($0, /show=[0-9]+"/)
           27                 ticket = substr($0, RSTART + 5, RLENGTH - 6)
           28 
           29                 sub(/^.*show=[0-9]+">/, "")
           30                 sub(/<\/a><\/td>$/, "")
           31                 subject = $0
           32         }
           33 
           34         /<td / && /prio=/ {
           35                 match($0, /prio=[^"]+"/)
           36                 priority = substr($0, RSTART + 5, RLENGTH - 6)
           37         }
           38 
           39         /<td / && /owner=/ {
           40                 match($0, /owner=[^"]+"/)
           41                 owner = substr($0, RSTART + 6, RLENGTH - 7)
           42         }
           43 
           44         /<td / && /user=/ {
           45                 match($0, /user=[^"]+"/)
           46                 requester = substr($0, RSTART + 5, RLENGTH - 6)
           47         }
           48 
           49         ticket && priority && requester && subject {
           50                 title = "#" ticket " - " subject " " "(" requester ")"
           51                 printf("[0|%s|'"${CGI_TICKET}?${branch}/"'%s|server|port]\n",
           52                     title, ticket)
           53 
           54                 ticket = priority = requester = subject = owner = ""
           55         }
           56         '
           57 
           58 }
           59 
           60 echo ""
           61 echo "Pullup Ticket List - NetBSD ${branch}"
           62 echo ""
           63 
           64 url="http://releng.netbsd.org/cgi-bin/req-${branch}.cgi"
           65 curl -Lgs -- "${url}" |
           66     filter_table