os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

remove (apparently) unused variable $query_state;

Browse source 
add -c option for text mode only - allow confidential PR's in report.
add -C option for text mode only - only show confidential PR's in report.
This commit is contained in:
Peter Wemm 1996-12-17 04:07:33 +00:00
parent 92a876be7a
commit 181191f157
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=822
2 changed files with 18 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
data/cgi/query-pr-summary.cgi
View file

@ -1,10 +1,8 @@
#!/usr/bin/perl
# $Id: query-pr-summary.cgi,v 1.7 1996-12-17 04:03:41 peter Exp $
# $Id: query-pr-summary.cgi,v 1.8 1996-12-17 04:07:33 peter Exp $
$self_ref = $ENV{'SCRIPT_NAME'};
($query_pr_ref = $ENV{'SCRIPT_NAME'}) =~ s/-summary//;
$query_args = '--restricted ';
$state_args = '--restricted ';
$avail_file = '/home/ncvs/CVSROOT/avail';
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -24,15 +22,21 @@ if ($ENV{'QUERY_STRING'} eq 'query') {
}
if ($html_mode) {
&ReadParse(*input) if $html_mode;
$query_args = '--restricted ';
&ReadParse(*input) if $html_mode;
} else {
&Getopts('qRr:s:');
&Getopts('CcqRr:s:');
$input{"responsible"} = "summary" if $opt_R;
$input{"responsible"} = $opt_r if $opt_r;
$input{"state"} = $opt_s if $opt_s;
$input{"quiet"} = $opt_q if $opt_q;
if ($opt_C) {
$query_args = '--confidential=yes ';
} elsif (!$opt_c) {
$query_args = '--restricted ';
}
}
#------------------------------------------------------------------------