Lines Matching refs:QUERY
31 use vars qw($QUERY $DEBUG $USER $TITLE $CLDR
51 $QUERY = new CGI;
53 $DEBUG = $QUERY->param('debug');
58 $USER = $QUERY->param('user');
206 my $path_info = $QUERY->path_info;
207 if ($QUERY->param('path_info')) {
208 $path_info = $QUERY->param('path_info');
219 print $QUERY->header;
228 print $QUERY->header;
236 print $QUERY->end_html;
296 my $self = $QUERY->url(-full=>1, -query=>1);
321 print $QUERY->start_html(-title=>$TITLE,
324 my $script_name = $QUERY->script_name;
326 print $QUERY->startform(-action=>urlPathInfo($script_name, '/difflist'),
330 my $user = $QUERY->param('user') || '';
336 print "ID? ",$QUERY->textfield(-name=>'id',-size=>5)
337 , $QUERY->submit(-name=>'Search')
347 print $QUERY->textfield(-name=>'mod',
354 print $QUERY->checkbox(-name=>"include_attic",
356 print $QUERY->checkbox(-name=>"localdiff",
365 print $QUERY->hidden('user');
366 print $QUERY->hidden('debug');
368 print $QUERY->hidden('cldr');
371 print $QUERY->end_form;
375 print $QUERY->start_html(-title=>$TITLE,
381 print $QUERY->start_html(-title=>$TITLE,
387 my $ID = $QUERY->param('id') || '';
411 my $user = $QUERY->param('user');
419 my $localDiff = $QUERY->param('localdiff');
468 print $QUERY->header(-type=>'application/octet-stream',
470 my $file = $QUERY->param('file');
471 my $r1 = $QUERY->param('r1');
472 my $r2 = $QUERY->param('r2');
473 my $mod = $QUERY->param('m');
489 print $QUERY->start_html(-title=>$TITLE);
555 my $self = $QUERY->url(-full=>1, -query=>1);
576 print $QUERY->start_html(-title=>$TITLE,
579 my $script_name = $QUERY->script_name;
581 print $QUERY->startform(-action=>urlPathInfo($script_name, '/adminresult'),
586 my $user = $QUERY->param('user');
597 print $QUERY->textfield(-name=>'mod',
604 print $QUERY->textfield(-name=>'tag_lo',-size=>30);
606 print $QUERY->textfield(-name=>'tag_hi',-size=>30);
608 print $QUERY->submit(-name=>'Find Bugs');
616 print $QUERY->textfield(-name=>'dcut_tag',-size=>33);
618 print $QUERY->textarea(-name=>'dcut_ids',-rows=>8,-columns=>26);
620 print $QUERY->submit(-name=>'Check');
628 print $QUERY->submit(-name=>'Reset Insta Cache'), "<BR>";
635 print $QUERY->submit(-name=>'Delete Cache File:'), " ";
636 print $QUERY->textfield(-name=>'del_cache',-size=>17), "<BR>";
642 print $QUERY->hidden('user');
643 print $QUERY->hidden('debug');
645 print $QUERY->end_form;
650 print $QUERY->start_html(-title=>$TITLE);
652 if ($QUERY->param('Find Bugs')) {
657 if ($QUERY->param('Check')) {
662 if ($QUERY->param('Reset Insta Cache')) {
668 if ($QUERY->param('Delete Cache File:')) {
669 my $f = $QUERY->param('del_cache');
742 if (!$QUERY->param('include_attic')) {
764 my $localDiff = $QUERY->param('localdiff');
797 my $self = $QUERY->url(-full=>1, -query=>1);
834 my $self = $QUERY->url(-full=>1, -query=>1);
859 my $self = $QUERY->url(-full=>1, -query=>1);
908 $TAGSCAN_TAG_LO = expandTag($QUERY->param('tag_lo'));
909 $TAGSCAN_TAG_HI = expandTag($QUERY->param('tag_hi'));
918 my $user = $QUERY->param('user');
1329 $DCUTHELP_TAG = expandTag($QUERY->param('dcut_tag'));
1330 my $ids = $QUERY->param('dcut_ids');
1331 my $user = $QUERY->param('user');
1877 if (!$QUERY->param('include_attic')) {
1961 my $dir = $QUERY->param('include_attic') ? $INSTA_ATTIC : $INSTA;
1978 my $dir = $QUERY->param('include_attic') ? $INSTA_ATTIC : $INSTA;
2246 my $mod = $QUERY->param('mod') || $DEFAULT_MOD;