The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

DBI::Library::Database - Database interface for MySQL::Admin::GUI

SYNOPSIS

use DBI::Library::Database;

new()

constructor

getName

$name = $m_oDatabase->getName($m_sSid);

setSid

$sid = $m_oDatabase->setSid( name, pass );

checkSession

$bool = $m_oDatabase->checkSession($sUser,$m_sSid);

checkPass

bool checkPass( user, crypt_pass);

right()

$nRight = right($m_sAction,$sUsername);

userright()

userright( user );

catright()

catright( 'name|name2' );

isMember

isMember($sUser);

hasAcount

bool hasAcount( $email )

addUser

$m_oDatabase->addUser(user, pass,mail);

serverName()

set serverName.

floodtime()

set floodtime.

checkFlood

checkFlood(ip,optional time in seconds )

checkFlood( remote_addr() );

GetAutoIncrementValue()

GetAutoIncrementValue(table)

GetPrimaryKey()

liefert die primary_key(s) der tabelle zurueck

@array = GetPrimaryKey(table)

getIndex()

getConstraintKeys()

GetAutoIncrement()

returns the auto_increment Column.

GetAutoIncrement(table)

fetch_string()

GetDataBases()

returns a <select> list with the Databases.

TableCount4Db()

Gibt die anzahl der tabellen fuer die angegebene Datenbank zurueck.

GetCharacterSet()

gibt das Charset zu coalation zurueck.

GetCharacterSet(coalation);

GetEngines()

gibt die verfuegbaren Engines zurueck.

GetEngines(tabelle);

GetEngineForRow()

GetEngineForRow(tabelle, zeile);

GetNull()

gibt die NULL( NULL | not NULL ) auswahlliste zurueck

GetNull( selected extra, slect_name );

GetExtra()

gibt die extra(auto_increment) auswahlliste zurueck

GetExtra(selected extra, slect_name);

GetColumnCollation()

gibt eine auswahlliste (select) zurueck.

GetColumnCollation( tabelle ,columne, name_select);

GetCollation()

$sel = GetCollation( name, selected );

GetCharset()

$sel = GetCharset(name,selected table);

GetAttrs

$sel = GetAttrs($tbl, $field, $name );

GetColumns

$sel = GetColumns($tbl , $name, $selected);

addMessage

my %message = (

     thread => $thread,

     title => $headline,

     body  => $body,

     thread => $thread,

     cat    => $cat,

     attach => $sra,

     format => $format,

     id => $id,

     user => $sUser,

     attach => $m_sFilename,

     ip => remote_addr(),


);

my $id = addMessage(\%message);

editMessage()

my %message = (

     thread => $thread,

     title => $headline,

     body  => $body,

     thread => $thread,

     cat    => $cat,

     attach => $sra,

     format => $format,

     id => $id,

     user => $sUser,

     attach => $m_sFilename,

     ip => remote_addr(),

);

editMessage(\%message);

reply

my %reply =(

     title => $headline,

     body => $body,

     id => $reply,

     user => $sUser,

     attach =>  $sra,

     format => $html,

     ip => remote_addr(),

);

reply(\%reply);

deleteMessage

$bool = $self->deleteMessage($table,$id);

readMenu()

@menu = $m_oDatabase->readMenu($sThread,$nRight,$nStart,$nEnd);

rss()

$rss = $m_oDatabase->rss($thread,int start);

searchDB()

searchDB($query,$column,$table,$rigt,$start,$end);

regexp search in tabelle ...

fulltext()

@messages = fulltext(query,table);

fulltextsuche in tabelle ...

getAction

$hashref = $m_oDatabase->getAction($m_sAction);

getActionRight

$right = $m_oDatabase->getActionRight($m_sAction);

topicright()

topicright(id);

getSelf()

getSelf or CGI

prepare()

execute()

fetch()

SEE ALSO

MySQL::Admin::GUI DBI DBI::Library

AUTHOR

Dirk Lindner <lze@cpan.org>

LICENSE

Copyright (C) 2005-2016 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.