summaryrefslogtreecommitdiffstats
path: root/Bugzilla/Quantum/Legacy.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla/Quantum/Legacy.pm')
-rw-r--r--Bugzilla/Quantum/Legacy.pm58
1 files changed, 0 insertions, 58 deletions
diff --git a/Bugzilla/Quantum/Legacy.pm b/Bugzilla/Quantum/Legacy.pm
deleted file mode 100644
index d093d76a0..000000000
--- a/Bugzilla/Quantum/Legacy.pm
+++ /dev/null
@@ -1,58 +0,0 @@
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, You can obtain one at http://mozilla.org/MPL/2.0/.
-#
-# This Source Code Form is "Incompatible With Secondary Licenses", as
-# defined by the Mozilla Public License, v. 2.0.
-
-package Bugzilla::Quantum::Legacy;
-use Mojo::Base 'Mojolicious::Controller';
-use CGI::Compile;
-use File::Spec::Functions qw(catfile);
-use Bugzilla::Constants qw(bz_locations);
-use Taint::Util qw(untaint);
-use Sub::Name qw(subname);
-use File::Slurper qw(read_text);
-use Sub::Quote 2.005000;
-use Try::Tiny;
-
-my %CGIS;
-my %SKIP = ( 'xmlrpc.cgi' => 1, 'jsonrpc.cgi' => 1, 'rest.cgi' => 1);
-
-_load_all();
-
-sub expose_routes {
- my ($class, $r) = @_;
- foreach my $cgi (keys %CGIS) {
- $r->any("/$cgi")->to("Legacy#$CGIS{$cgi}");
- }
-}
-
-sub _load_all {
- foreach my $script (glob '*.cgi') {
- next if $SKIP{$script};
- my $name = _load_cgi($script);
- $CGIS{ $script } = $name;
- }
-}
-
-sub _load_cgi {
- my ($file) = @_;
- my $name = $file;
- $name =~ s/\./_/g;
- $name =~ s/\W+/_/g;
- my $content = read_text(catfile(bz_locations->{cgi_path}, $file));
- untaint($content);
- $content = 'my ($self) = @_; ' . $content;
- my %options = (
- package => __PACKAGE__ . "::$name",
- file => $file,
- line => 1,
- no_defer => 1,
- );
- quote_sub $name, $content, {}, \%options;
- return $name;
-}
-
-
-1;