Yet Another CPAN Grep

MySQL-Admin ( L/LZ/LZE/MySQL-Admin-1.18.tar.gz, LZE, 2019; MetaCPAN )

MySQL-Admin/lib/MySQL/Admin/GUI.pm ( view source; MetaCPAN )

#use diagnostics;
use Authen::Captcha;
use JSON::XS;
use XML::Simple;
use CGI::Carp qw(fatalsToBrowser);
require Exporter;
use vars qw(
  $m_outXML
  $m_sJson
  $m_bMainTemplate
  $DefaultClass
  $ACC


    $m_sAction = ( $m_sAction =~ /^(\w{3,50})$/ ) ? $1 : $m_hrSettings->{defaultAction};
    $m_sJson = {
        m_sCurrentAction => $m_sAction,
        m_nRight         => $m_nRight,
        m_nHtm

?>\n<xml>\n\n);
    $m_sJson->{m_sSid} = $m_sSid;
    my $encode_json = encode_json $m_sJson;
    print qq|<output id="sid"><![CDATA[
    <script>
    m_sJson   = '$encode_json';
    m_sid     = "$m_s