Skip to content
Snippets Groups Projects
Select Git revision
  • adaf46313be9cc5ca23c1020726415ca4b8458b0
  • master default protected
  • 9.0
  • 8.0
  • 7.8
  • 7.6
  • 7.4
  • 7.2
  • 7.0
  • 0.6
  • rosuav/latex-markdown-renderer
  • rxnpatch/rxnpatch
  • marcus/gobject-introspection
  • rxnpatch/8.0
  • rosuav/pre-listening-ports
  • nt-tools
  • rosuav/async-annotations
  • rosuav/pgsql-ssl
  • rxnpatch/rxnpatch-broken/2023-10-06T094250
  • grubba/fdlib
  • grubba/wip/sakura/8.0
  • v8.0.2000
  • v8.0.1998
  • v8.0.1996
  • v8.0.1994
  • v8.0.1992
  • v8.0.1990
  • v8.0.1988
  • v8.0.1986
  • rxnpatch/clusters/8.0/2025-04-29T124414
  • rxnpatch/2025-04-29T124414
  • v8.0.1984
  • v8.0.1982
  • v8.0.1980
  • v8.0.1978
  • v8.0.1976
  • v8.0.1974
  • v8.0.1972
  • v8.0.1970
  • v8.0.1968
  • v8.0.1966
41 results

Process.pmod

Blame
  • query.cgi 26.21 KiB
    #!/usr/bonsaitools/bin/perl -w
    # -*- Mode: perl; indent-tabs-mode: nil -*-
    #
    # The contents of this file are subject to the Mozilla Public
    # License Version 1.1 (the "License"); you may not use this file
    # except in compliance with the License. You may obtain a copy of
    # the License at http://www.mozilla.org/MPL/
    #
    # Software distributed under the License is distributed on an "AS
    # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
    # implied. See the License for the specific language governing
    # rights and limitations under the License.
    #
    # The Original Code is the Bugzilla Bug Tracking System.
    #
    # The Initial Developer of the Original Code is Netscape Communications
    # Corporation. Portions created by Netscape are
    # Copyright (C) 1998 Netscape Communications Corporation. All
    # Rights Reserved.
    #
    # Contributor(s): Terry Weissman <terry@mozilla.org>
    #                 David Gardiner <david.gardiner@unisa.edu.au>
    #                 Matthias Radestock <matthias@sorted.org>
    
    use diagnostics;
    use strict;
    
    require "CGI.pl";
    
    $::CheckOptionValues = 0;       # It's OK if we have some bogus things in the
                                    # pop-up lists here, from a remembered query
                                    # that is no longer quite valid.  We don't
                                    # want to crap out in the query page.
    
    # Shut up misguided -w warnings about "used only once":
    
    use vars
      @::CheckOptionValues,
      @::legal_resolution,
      @::legal_bug_status,
      @::legal_components,
      @::legal_keywords,
      @::legal_opsys,
      @::legal_platform,
      @::legal_priority,
      @::legal_product,
      @::legal_severity,
      @::legal_target_milestone,
      @::legal_versions,
      @::log_columns,
      %::versions,
      %::components,
      %::FORM;
    
    
    if (defined $::FORM{"GoAheadAndLogIn"}) {
        # We got here from a login page, probably from relogin.cgi.  We better
        # make sure the password is legit.
        confirm_login();
    } else {
        quietly_check_login();
    }
    my $userid = 0;
    if (defined $::COOKIE{"Bugzilla_login"}) {
        $userid = DBNameToIdAndCheck($::COOKIE{"Bugzilla_login"});
    }
    
    # Backwards compatability hack -- if there are any of the old QUERY_*
    # cookies around, and we are logged in, then move them into the database
    # and nuke the cookie.