#!/usr/bin/perl # 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. use strict; use warnings; use 5.10.1; use File::Basename; use File::Spec; BEGIN { require lib; my $dir = File::Spec->rel2abs( File::Spec->catdir( dirname(__FILE__), '..' ) ); lib->import( $dir, File::Spec->catdir( $dir, 'lib' ), File::Spec->catdir( $dir, qw(local lib perl5) ) ); } use Bugzilla; BEGIN { Bugzilla->extensions }; use JSON::MaybeXS; my $json = JSON::MaybeXS->new( canonical => 1, utf8 => 1, ascii => 1, ); print $json->encode(Bugzilla->localconfig);