From: dhaeseg@se.bel.alcatel.be (Gratien D'haese) Message-Id: <9509070619.AA14191@btmpfd.se> To: req@ccs.neu.edu Subject: Re: CGI wrapper? X-Sun-Charset: US-ASCII > From: Geoff Allen > Subject: CGI wrapper? > > We've been asked to make the req info available to our users on the > web. Seems like a pretty good idea. It would just need a wrapper for q > and another for 'req -show #', and maybe a 'mailto' link on the 'req -show' > page to allow them to send mail about the req (I'm not thinking of > anything fancy here). > > This seems like some pretty straightforward perl, and I was wondering > if anybody's done it yet. If not, I'll do it and let Remy put it in > the req-contrib directory so others can use it, build upon it, etc. > I've written something quiet simple, but on your webserver one has to run an identd! Because "status" may only show your own problems and not of the rest too. This CGI is put in a restricted area where only my users (=certain subnets) are allowed to execute CGIs (=protected by httpd). I certaintly hope this is a start for lots of new (and better then mine) CGIs behind req! Gratien ______ Gratien D'haese Switching Systems Division se121 \ / Alcatel F. Wellesplein 1, B-2018 Antwerpen, Belgium \ / Bell E-mail: dhaeseg@se.bel.alcatel.be Phone: (32) 3 240 94 51 \/ Telephone Fax: (32) 3 240 99 50 ------- file: qstat ------ #! /usr/local/bin/perl # # Show the general request q # ##### $Query = $ENV{'QUERY_STRING'}; $User = $ENV{'REMOTE_USER'}; print "Content-type: text/html\n\n\n"; &status_overview unless $Query; while($Query =~ /%(..)/) { # unpack encoded puctuation in query $hex = $1; $c = sprintf("%c", hex($hex)); $Query =~ s/%$hex/$c/; } $Query1 = $Query; $Query =~ s/([+.?])/\\$1/g; # escape R.E. metacharacters print "\n"; print "Show Ticket for Req# $Query1\n"; print "\n"; print "

An empty search field shows all open problems owned by you.\n"; print "

\n"; print "

Show Ticket for Req# $Query1

\n"; print "
\n";
open(Q, "/req/bin/status $Query|");
while () { print "$_"; }
close(Q);
 
print "
\n"; print "\n"; print "\n"; exit 0; ### subroutines sub status_overview { print "\n"; print "Request Queue Mode\n"; print "\n"; print "

Fill in the Request number (Req #) to see a full description of the problem.\n"; print "

\n"; print "

Open problems submitted by $User

\n"; print "
\n";

open(Q, "/req/bin/status |");
while () { print "$_"; }
close(Q);

print "
\n"; print "

More information about Request Queue Mode.\n"; print "\n"; print "

Gratien D'haese
"; print "\n"; exit 0; }