The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

MySQL::Admin - Just a MySQL administration Web-App

SYNOPSIS

use MySQL::Admin;

Here is a MySQL::Admin Developrs Guide.

#############################################

# .window #

# ####################################### #

# #.tab # #

# ####################################### #

# #.menu #.content # #

# # ##################### # # #

# # #.menuContainer # # # #

# # #.verticalMenuLayout# #.ShowTables # #

# # #.menuCaption # #.caption # #

# # #.menuContent # # # #

# # ##################### # # #

# # # # #

# ####################################### #

# #

#############################################

javascript/cms.js

//In the function init() a ( xmlhttprequest ) load the Content. <a onclick="requestURI('$ENV{SCRIPT_NAME}?action=HelloWorld','HelloWorld','HelloWorld')">HelloWorld</a>

requestURI(

  url,     // Script url

  id,      // Tabwidget id

  txt,     // Tabwidget text

  bHistory,// Browser History

  formData,// Form Data

  method,  // Submit Type GET or POST

);

or

<form onsubmit="submitForm(this,'$m_sAction','$m_sTitle');return false;" method="GET" enctype="multipart/form-data">

<input type="hidden" name="action" value="">

since apache 2.x GET have maxrequestline so use POST for alarge requests.

POST requests don't saved in the Browser history (back button ).

install.sql

The actions will bill stored in actions.

INSERT INTO actions ( `action`, #Name of the action `file`, #file contain the code `title`, #title `right`, #right 0 guest 1 user 5 admin `sub` # sub name main for the while file ) values('HelloWorld','HelloWorld.pl','HelloWorld','0','main');

INSERT INTO actions (`action`,`file`,`title`,`right`,`sub`) values('HelloSub','HelloSub.pl','HelloWorld','0','HelloSub');

In action_set:

INSERT INTO actions_set ( `action`, #action called `foreign_action`, #foreign key `output_id` #output id ) values('HelloWorld','HelloWorld','content');

INSERT INTO actions_set (`action`,`foreign_action`,`output_id`) values('HelloWorld','HelloSub','otherOutput');

INSERT INTO mainMenu (

    `title`,   # link title
    
    `action`,  # action defined in actions_set
    
    `right`,   # 0 guest 1 user 5 admin
    
    `position`,# top 1 ... x bottom 
    
    `menu`,    #top or left
    
    `output`   #requestURI or javascript or loadPage  or href
    
    )  values('HelloWorld','HelloWorld','0','1','top','requestURI');

This will call 2 files HelloWorld.pl HelloSub.pl with following output.

cgi-bin/Content/HelloWorld.pl

    #Files are called via do ().
    
    #you are in the MySQL::Admin::GUI namespace

    print  "Hello World !"
    
    .br()
    
    .a(
    
      {
      
      -href => "mailto:$m_hrSettings->{admin}{email}"
      
      },'Mail me')
    
    .br()
    
    1;

cgi-bin/Content/HelloSub.pl

    sub HelloSub{

      print "sub called";
    
    }
    
    1;

cgi-bin/mysql.pl

    returns a actionset stored in the Mysql Database.
    
    One sub for every output id.
    
    <xml>
    
    <output id="otherOutput">sub called</output>

    <output id="content">Hello World !<br /><a href="mailto:">Mail me</a><br /></output>

    </xml>

this file will be transformed trough xslt in main Template

index.html

    <div id=otherOutput>sub called</div>

    <div id=content>Hello World !<br /><a href="mailto:">Mail me</a><br /></div>
    

DESCRIPTION

MySQL::Admin is a Database Web-frontend and CMS.

This Module is an CGI subclass, mainly written for MySQL::Admin::GUI.

EXPORT

export_ok:

$ACCEPT_LANGUAGE translate init session createSession $m_hrParams clearSession $m_qy include sessionValidity includeAction

export tags: myqsl: $ACCEPT_LANGUAGE translate init session createSession $m_hrParams clearSession $m_qy include sessionValidity includeAction

and all export tags from CGI.pm

Public

new()

init()

        init("/srv/www/cgi-bin/config/settings.pl");

        default: /srv/www/cgi-bin

include

        %vars = (sub => 'main','file' => "fo.pl");

        $qstring = createSession(\%vars);

        include($qstring); #InVoid context param('include') will be used.

includeAction

        includeAction('welcome');

see MySQL::Admin::Actions

createSession

    Secure your Session (or simple store session informations);

    my %vars = (first => 'query', secondly => "Jo" , validity => time() );

    my $qstring = createSession(\%vars);

    *params= \$MySQL::Admin::params;

    session( $qstring );

    print $m_hrParams->{first};

session

        $qstring = session(\%vars);

        session($qstring);

        print $m_hrParams->{'key'};

clearSession

delete old sessions. Delete all session older then 120 sec.

sessionValidity()

set the session Validity in seconds in scalar context:

        sessionValidity(120); #120is the dafault value

or get it in void context:

        $time = sessionValidity();

translate()

        translate(key);

see MySQL::Admin::Translate

param

param don't work in oo syntax

hook

used by include and includeAction.

Private

getSelf()

AUTHOR

Dirk Lindner <lze@cpan.org>

LICENSE

Copyright (C) 2005-2015 by Hr. Dirk Lindner

This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

see Also

CGI MySQL::Admin::GUI MySQL::Admin::Actions MySQL::Admin::Translate MySQL::Admin::Settings MySQL::Admin::Config

AUTHOR

Dirk Lindner <lze@cpan.org>