#include <config_interface.h> |
#include <config.h> |
#include <roxen.h> |
|
#define _(X,Y) _STR_LOCALE("roxen_config",X,Y) |
|
mapping actions = ([ |
|
"configure_ext_db_con": ({ _(1145,"Configure database connection"), |
configure_ext_db_con, 0 }), |
"delete": ({ _(402,"Delete this database"), delete_db, 0 }), |
"group": ({ _(324,"Change group for this database"), change_group, 0 }), |
"clear": ({ _(403,"Delete all tables"), clear_db, 0 }), |
"backup": ({ _(404,"Make a backup"), backup_db, 1 }), |
"charset":({ _(536, "Change default character set"), change_charset, 0 }), |
"repair": ({ _(537, "Repair all tables"), repair_db, 0 }), |
"optimize":({ _(538, "Optimize all tables"), optimize_db, 0 }), |
"schedule":({ _(1109, "Change backup schedule"), change_schedule, 2 }), |
]); |
|
|
#define CU_AUTH id->misc->config_user->auth |
|
|
#define MAX_FIELD_FORMATTED_SIZE (32 * 1024) // 32 K |
#define MAX_TOTAL_FORMATTED_SIZE (1024 * 1024) // 1 MB |
|
|
#define VERIFY(X) do { \ |
if( !id->variables["yes.x"] ) \ |
{ \ |
return \ |
("<table><tr><td colspan='2'>\n"+ \ |
sprintf((string)(X), db)+ \ |
"</td><tr><td><input type=hidden name=action value='&form.action;' />"\ |
"<submit-gbutton2 name='yes' align='center' " \ |
" width='&usr.gbutton-width;'>"+_(0,"Yes")+ \ |
"</submit-gbutton2></td>\n" \ |
"<td align=right><cf-no href='"+Roxen.html_encode_string(id->not_query)+\ |
"?db="+Roxen.html_encode_string(id->variables->db)+ \ |
"&&usr.set-wiz-id;' />"+ \ |
"</td>\n</table>\n"); \ |
} \ |
} while(0) |
|
|
mixed change_group( string db, RequestID id ) |
{ |
if( !id->variables->group ) |
{ |
string res ="<br /><blockquote>" |
"<input type=hidden name=action value='&form.action;' />" |
"<h2>"+sprintf(_(423,"Changing group for %s"), db )+"</h2>" |
"<b>"+_(445,"Old group")+":</b> " + |
DBManager.get_group(DBManager.db_group(db))->lname+"<br />" |
"<b>"+_(504,"New group")+":</b> <select name='group'>"; |
foreach( DBManager.list_groups(), string g ) |
if( g == DBManager.db_group( db ) ) |
res += "<option selected value='"+g+"'>"+DBManager.get_group( g )->lname; |
else |
res += "<option value='"+g+"'>"+DBManager.get_group( g )->lname; |
return res + "</select><submit-gbutton2 name='ok'>"+(201,"OK")+ |
"</submit-gbutton2>"; |
} |
DBManager.set_db_group( db, id->variables->group ); |
return 0; |
} |
|
mixed change_charset( string db, RequestID id ) |
{ |
if( !id->variables->default_charset ) |
{ |
string old_charset = DBManager.get_db_default_charset(db); |
string res ="<br /><blockquote>" |
"<input type=hidden name=action value='&form.action;' />" |
"<h2>"+sprintf(_(539,"Changing default character set for %s"), db )+ |
"</h2>"+ |
(old_charset?("<b>"+_(540, "Old default character set")+":</b> " + |
old_charset+"<br />"):"")+ |
"<b>"+_(541,"New default character set")+":</b> " |
"<input type='string' name='default_charset' value='" + |
Roxen.html_encode_string(old_charset||"") +"' />"; |
return res + "</select><submit-gbutton2 name='ok'>"+(201,"OK")+ |
"</submit-gbutton2>"; |
} |
DBManager.set_db_default_charset( db, id->variables->default_charset ); |
return 0; |
} |
|
mixed change_schedule( string db, RequestID id ) |
{ |
Sql.Sql sql = connect_to_my_mysql(0, "roxen"); |
if( !id->variables->backup_schedule ) |
{ |
string old_schedule, old_schedule_id; |
array q = sql->query("SELECT schedule_id, schedule FROM dbs, db_schedules " |
" WHERE db_schedules.id = dbs.schedule_id " |
" AND dbs.name = %s", db); |
if (sizeof(q)) { |
old_schedule = q[0]->schedule; |
old_schedule_id = q[0]->schedule_id; |
} |
string res ="<br /><blockquote>" |
"<input type=hidden name=action value='&form.action;' />" |
"<h2>"+sprintf(_(1110,"Changing backup schedule for %s"), db )+ |
"</h2>"+ |
(old_schedule?("<b>"+_(1111, "Old backup schedule")+":</b> " + |
Roxen.html_encode_string(old_schedule)+"<br />"):"")+ |
"<b>"+_(1112,"New backup schedule")+":</b> " |
"<default name='backup_schedule' value='" + old_schedule_id + "'>" |
"<select name='backup_schedule'>"; |
foreach(sql->query("SELECT schedule, id FROM db_schedules " |
" ORDER BY schedule"), mapping(string:string) schedule) { |
res += sprintf("<option value='%s'>%s</option>", |
schedule->id, |
Roxen.html_encode_string(schedule->schedule)); |
} |
res += sprintf("<option value='0'>%s</option>", |
Roxen.html_encode_string(_(1113, "None"))) + |
"</select></default>"; |
return res + "<submit-gbutton2 name='ok'>"+(201,"OK")+ |
"</submit-gbutton2>"; |
} |
if (id->variables->backup_schedule == "0") { |
sql->query("UPDATE dbs SET schedule_id = NULL " |
" WHERE name = %s", db); |
} else { |
sql->query("UPDATE dbs SET schedule_id = %d " |
" WHERE name = %s", (int)id->variables->backup_schedule, db); |
} |
return 0; |
} |
|
mixed repair_db( string db, RequestID id ) |
{ |
|
string res = "<style type='text/css'>" |
"#tbl {" |
" font-size: smaller;" |
" text-align: left;" |
"}\n" |
"#tbl tr > td {" |
" padding-left: 1em;" |
" border-bottom: 1px solid &usr.matrix22;;" |
"}\n" |
"#tbl tr > th {" |
" font-weight: bold;" |
" background-color: &usr.matrix12;;" |
" padding-left: 1em;" |
"}\n" |
"#tbl tr > *:first-child {" |
" padding-left: 0;" |
"}\n" |
"</style>" |
|
"<a href='browser.pike?db=" + db + "&&usr.set-wiz-id;'><gbutton>Back</gbutton></a><br/><br/>" |
|
"<table id='tbl' cellspacing='0' cellpadding='1'>" |
"<thead>" |
"<tr>" |
"<th>Target</th>" |
"<th>Result</th>" |
"<th>Time</th>" |
"</tr>" |
"</thead>" |
"<tbody>"; |
|
mixed m = query("SHOW TABLE STATUS IN " + db); |
float t3 = 0; |
|
if (sizeof(m)) { |
foreach (m,m) { |
string result = ""; |
mixed q; |
int t = time(); |
float t1 = time(t); |
float t2; |
|
if ( mixed e = catch { q = query( "REPAIR TABLE `" + db + "`.`" + m->Name + "`" ); } ) { |
result = "<font color='red'>Error: " + describe_error(e) + "</font>"; |
} else { |
t2 = (time(t)-t1); |
t3 += t2; |
|
if (q->Msg_text = "OK") |
result = "<font color='green'>OK</font>"; |
else |
result = "<font color='red'>Failed: " + q->Msg_text + "</font>"; |
} |
|
res += "<tr>" + |
"<td><a href='browser.pike?db=" + db + "&&usr.set-wiz-id;'>" + db + "</a>.<a href='browser.pike?db=" + db + "&table=" + m->Name + "&&usr.set-wiz-id;'>" + m->Name + "</a></td>" + |
"<td><b>" + result + "</b></td>" + |
"<td>" + t2 + " sec</td>" + |
"</tr>"; |
} |
} |
res += "<tr><td colspan='2'>Total:</td><td>" + t3 + " sec</td></tr></tbody></table><br/>"; |
|
return res; |
} |
|
mixed optimize_db( string db, RequestID id ) |
{ |
|
string res = "<style type='text/css'>" |
"#tbl {" |
" font-size: smaller;" |
" text-align: left;" |
"}\n" |
"#tbl tr > td {" |
" padding-left: 1em;" |
" border-bottom: 1px solid &usr.matrix22;;" |
"}\n" |
"#tbl tr > th {" |
" font-weight: bold;" |
" background-color: &usr.matrix12;;" |
" padding-left: 1em;" |
"}\n" |
"#tbl tr > *:first-child {" |
" padding-left: 0;" |
"}\n" |
"</style>" |
|
"<a href='browser.pike?db=" + db + "&&usr.set-wiz-id;'><gbutton>Back</gbutton></a><br/><br/>" |
|
"<table id='tbl' cellspacing='0' cellpadding='1'>" |
"<thead>" |
"<tr>" |
"<th>Target</th>" |
"<th>Result</th>" |
"<th>Time</th>" |
"</tr>" |
"</thead>" |
"<tbody>"; |
|
mixed m = query("SHOW TABLE STATUS IN " + db); |
float t3 = 0; |
|
if (sizeof(m)) { |
foreach (m,m) { |
string result = ""; |
mixed q; |
int t = time(); |
float t1 = time(t); |
float t2; |
|
if ( mixed e = catch { q = query( "OPTIMIZE TABLE `" + db + "`.`" + m->Name + "`" ); } ) { |
result = "<font color='red'>Error: " + describe_error(e) + "</font>"; |
} else { |
t2 = (time(t)-t1); |
t3 += t2; |
|
if (q->Msg_text = "OK") |
result = "<font color='green'>OK</font>"; |
else |
result = "<font color='red'>Failed: " + q->Msg_text + "</font>"; |
} |
|
res += "<tr>" + |
"<td><a href='browser.pike?db=" + db + "&&usr.set-wiz-id;'>" + db + "</a>.<a href='browser.pike?db=" + db + "&table=" + m->Name + "&&usr.set-wiz-id;'>" + m->Name + "</a></td>" + |
"<td><b>" + result + "</b></td>" + |
"<td>" + t2 + " sec</td>" + |
"</tr>"; |
} |
} |
res += "<tr><td colspan='2'>Total:</td><td>" + t3 + " sec</td></tr></table><br/>"; |
|
return res;} |
|
mixed query( mixed ... args ) { |
return connect_to_my_mysql( 0, "roxen" )->query( @args ); |
} |
|
mixed backup_db( string db, RequestID id ) |
{ |
if( id->variables["ok.x"] ) |
{ |
if (roxenloader->parse_mysql_location()->mysqldump) { |
DBManager.dump |
(db, id->variables->dir == "auto" ? 0 : id->variables->dir); |
} else { |
DBManager.backup |
(db, id->variables->dir == "auto" ? 0 : id->variables->dir); |
} |
return 0; |
} |
return |
"<b>"+_(405,"Directory")+":</b> <input name='dir' size='60' value='auto' /><br />" |
"<i>" + sprintf (_(1061, #"\ |
The directory the backup will be saved in. If you chose auto, Roxen |
will generate a directory name that includes the database name and |
today's date in <tt>$VARDIR/backup</tt> (%s)."), |
combine_path (getcwd(), roxen_path ("$VARDIR/backup"))) + |
"</i>" |
"<table width='100%'><tr><td valign=top>" |
"<input type=hidden name=action value='&form.action;' />" |
"<cf-cancel href='"+ Roxen.html_encode_string(id->not_query)+ |
"?db="+Roxen.html_encode_string(id->variables->db)+"&&usr.set-wiz-id;'/>" |
"<td valign=top align=right><submit-gbutton2 name='ok'>"+_(201,"OK")+ |
"</submit-gbutton2></td>\n" |
"</td>\n</table>\n"; |
} |
|
mixed configure_ext_db_con( string db, RequestID id ) |
{ |
if( DBManager.is_internal( db ) ) { |
error("Configure external database connection not possible for internal " |
"databases."); |
} |
string warning=""; |
if( id->variables["ok.x"] ) |
{ |
if( !strlen(id->variables->url) ) { |
warning= "<font color='&usr.warncolor;'>" |
+_(406,"Please specify an URL to define an external database")+ |
"</font>"; |
} else if( mixed err = catch( Sql.Sql( id->variables->url ) ) ) { |
warning = sprintf("<font color='&usr.warncolor;'>"+ |
_(407,"It is not possible to connect to %s.")+ |
"<br /> (%s)" |
"</font>", |
id->variables->url, |
describe_error(err)); |
} |
if( !strlen( warning ) ) |
switch( id->variables->name ) |
{ |
case "": |
warning = "<font color='&usr.warncolor;'>"+ |
_(1146,"Please specify a name for the database connection.")+ |
"</font>"; |
break; |
case "mysql": |
case "roxen": |
warning = sprintf("<font color='&usr.warncolor;'>"+ |
_(1147,"<tt>%s</tt> is an internal database, used by Roxen. " |
"Please select another name.")+ |
"</font>", id->variables->name ); |
break; |
default: |
if( Roxen.is_mysql_keyword( id->variables->name ) ) |
warning = sprintf("<font color='&usr.warncolor;'>"+ |
_(1148,"<tt>%s</tt> is a MySQL keyword, used by MySQL. " |
"Please select another name.")+ |
"</font>", id->variables->name ); |
catch { |
|
|
if( !(DBManager.valid_db_name( id->variables->name )) ) |
{ |
warning = sprintf("<font color='&usr.warncolor;'>"+ |
_(1149,"<span style=\"white-space: pre;\">" |
"'<tt>%s</tt>'</span> " |
"is not a valid database name. " |
"Please select another name.")+ |
"</font>", |
Roxen.html_encode_string(id->variables->name)); |
} |
else if( db != id->variables->name && |
DBManager.get_db_url_info( id->variables->name ) ) |
{ |
warning = sprintf("<font color='&usr.warncolor;'>"+ |
_(529,"A database with name <tt>%s</tt> " |
"already exists. Please select another name.")+ |
"</font>", id->variables->name ); |
} |
}; |
break; |
} |
if( !strlen( warning ) ) |
{ |
if( db != id->variables->name ) |
{ |
DBManager.create_db( id->variables->name, |
id->variables->url, |
0, |
id->variables->group ); |
DBManager.copy_db_md( db, id->variables->name ); |
DBManager.drop_db( db ); |
} |
else if( id->variables->url != DBManager.db_url( db ) ) |
{ |
|
DBManager.set_url( db, id->variables->url, 0 ); |
} |
|
return Roxen.http_redirect( "/dbs/", id ); |
} |
} |
if( !id->variables->name ) |
id->variables->name = db; |
|
if( !id->variables->url ) |
id->variables->url = DBManager.db_url( db ) || ""; |
|
return |
"<gtext scale=0.6>"+_(414,"Configure external database connection")+"</gtext><br />\n" |
+warning+ |
"<table>\n" |
|
" <tr>\n" |
" <td><b>"+_(418,"Name")+":</b></td>\n" |
" <td><input name='name' value='&form.name;'/></td>\n" |
" </tr>\n" |
|
" <tr>\n" |
" <td valign=top colspan='2'>\n" |
" <i>"+_(530,"The name for the database. It is recommended to " |
"use only lowercase letters <tt>[a-z]</tt>, numbers " |
"and <tt>-</tt> (dash).")+"</i>\n" |
" </td>\n" |
" </tr>\n"+ |
|
" <tr>\n" |
" <td><nbsp><b>URL:</b></nbsp></td>\n" |
" <td colspan='3'><input name='url' size=50 value='&form.url;'/></td>\n" |
" </tr>\n"+ |
|
"</table>\n"+ |
"<table width='100%'><tr><td>" |
"<input type=hidden name=action value='&form.action;' />" |
"<cf-cancel href='" + Roxen.html_encode_string(id->not_query) + |
"?db=" + Roxen.html_encode_string(id->variables->db) + |
"&&usr.set-wiz-id;'/></td>\n" |
"<td align=right>" |
"<submit-gbutton2 name='ok'>" + _(201,"OK") + "</submit-gbutton2>" |
"</td>\n</table>\n"; |
} |
|
mixed delete_db( string db, RequestID id ) |
{ |
string msg; |
if( DBManager.is_internal( db ) ) |
msg = (string)_(361, "Are you sure you want to delete the database %s " |
"and the data?"); |
else |
msg = (string)_(362,"Are you sure you want to delete the database %s?" |
" No data will be deleted from the remote database."); |
|
VERIFY(msg); |
report_notice( _(424,"The database %s was deleted by %s")+"\n", |
db, id->misc->authenticated_user->name() ); |
DBManager.drop_db( db ); |
return Roxen.http_redirect( "/dbs/", id ); |
} |
|
mixed clear_db( string db, RequestID id ) |
{ |
VERIFY(_(425,"Are you sure you want to delete all tables in %s?")); |
|
Sql.Sql sq = DBManager.get( db ); |
|
|
|
int table_cnt; |
array(string) remaining_tables = DBManager.db_tables( db ); |
do { |
foreach( remaining_tables, string r ) { |
catch { sq->query( "DROP TABLE "+r ); }; |
} |
table_cnt = sizeof(remaining_tables); |
remaining_tables = DBManager.db_tables( db ); |
} while (sizeof(remaining_tables) && |
(table_cnt > sizeof(remaining_tables))); |
if (sizeof(remaining_tables)) { |
|
sq->query( "DROP TABLE " + remaining_tables[0]); |
} |
return 0; |
} |
|
|
int image_id = time() ^ gethrtime(); |
|
string is_image( string x ) |
{ |
if( !stringp(x) ) |
return 0; |
if( has_prefix( x, "GIF" ) ) |
return "gif"; |
if( has_value( x, "JFIF" ) ) |
return "jpeg"; |
if( has_prefix( x, "\x89PNG" ) ) |
return "png"; |
} |
|
int is_deflated (string what) |
{ |
|
if (!stringp (what) || sizeof (what) < 3) |
return 0; |
return ((what[0] & 0x0f) == 8) && !(((what[0] << 8) + what[1]) % 31); |
} |
|
int is_encode_value( string what ) |
{ |
if( !stringp(what) ) |
return 0; |
return strlen(what) >= 5 && has_prefix (what, "¶ke"); |
} |
|
string format_decode_value( string what ) |
{ |
#if 0 |
string trim_comments( string what ) |
{ |
string a, b; |
while( sscanf( what, "%s/*%*s*/%s", a, b ) ) |
what = a+b; |
return what; |
}; |
#endif |
|
|
if( (what[4] & 15) == 5 || (what[4] & 15) == 3 ) |
return Roxen.html_encode_string( |
sprintf("<"+_(233,"bytecode data")+" ("+ |
_(505,"%d bytes")+")>", strlen(what))); |
|
catch |
{ |
return |
"<pre>"+ |
Roxen.html_encode_string( |
String.trim_all_whites(sprintf("%O",decode_value(what))))+ |
"</pre>"; |
}; |
return Roxen.html_encode_string( what ); |
} |
|
string store_image( string x ) |
{ |
string id = (string)image_id++; |
|
.State->images[ id ] = ([ |
"type":"image/"+(is_image( x )||"unknown"), |
"data":x, |
"len":strlen(x), |
]); |
return id; |
} |
|
string db_switcher( RequestID id ) |
{ |
mapping q = DBManager.get_permission_map( ); |
if ( !sizeof( q )) |
return ""; |
|
string res = #" |
<script type='text/javascript'> |
function switch_db( objSel ) { |
if( objSel.selectedIndex == 0) { |
return; |
} |
var selValue = objSel.options[objSel.selectedIndex].value; |
if(selValue != '&form.db:js;') { |
window.location.href = window.location.pathname + '?db=' + escape( selValue ) + '\x26&usr.set-wiz-id:js;'; |
} |
} |
</script> |
<select name='db' onchange='switch_db(this)'> |
<option value=''>Switch to other DB</option>\n"; |
foreach( sort(indices(q)), string d ) { |
res += sprintf( "<option value='%s'%s>%s</option>\n", d, |
(d == id->variables->db)? "selected='selected'": "", d); |
} |
return res + "</select><noscript><input type='submit' value='Switch db'/></noscript>\n"; |
} |
|
string format_table_owner (mapping(string:string) mod_info, void|int skip_conf) |
{ |
|
|
if ((<0, "">)[mod_info->conf]) return 0; |
|
Configuration c = roxen.find_configuration( mod_info->conf ); |
RoxenModule m = c && !(<0, "">)[mod_info->module] && |
c->find_module( mod_info->module ); |
ModuleInfo i = |
!(<0, "">)[mod_info->module] && |
roxen.find_module( (mod_info->module/"#")[0] ); |
string mn; |
|
if (!skip_conf) { |
if (c) { |
mn = "<a href='../sites/site.html/" + |
Roxen.http_encode_url (mod_info->conf) + "/'>" + |
Roxen.html_encode_string (c->query_name()) + "</a>"; |
} |
else |
mn = Roxen.html_encode_string ( |
sprintf ((string) _(542, "the deleted site %O"), mod_info->conf)); |
} |
|
if( m ) { |
string module = "<a href='../sites/site.html/"+ |
Roxen.http_encode_url(mod_info->conf)+"/n!n/"+ |
replace(mod_info->module,"#","!")+"/"+ |
"'>"+ Roxen.html_encode_string (i->get_name())+"</a>"; |
if (mn) |
mn = sprintf ((string) _(543, "%s in %s"), module, mn); |
else |
mn = module; |
} |
else if( i ) { |
if (mn) |
mn = sprintf ( |
(string) _(544, "the deleted module %s in %s"), |
Roxen.html_encode_string (sprintf ("%O", (string) i->get_name())), |
mn); |
else |
mn = sprintf ( |
(string) _(545, "the deleted module %s"), |
Roxen.html_encode_string (sprintf ("%O", (string) i->get_name()))); |
} |
|
return mn; |
} |
|
mapping|string parse( RequestID id ) |
{ |
if( id->variables->image ) |
return m_delete( .State->images, id->variables->image ); |
|
if( !id->variables->db || |
!( CU_AUTH( "Edit Global Variables" ) ) ) |
return Roxen.http_redirect( "/dbs/", id ); |
|
string res = |
"<set variable='var.form-anchor' value='#dbquery'/>" |
"<use file='/template'/><tmpl>" |
"<topmenu base='../' selected='dbs'/>" |
"<content><cv-split><subtablist width='100%'><st-tabs>" |
"<insert file='subtabs.pike'/></st-tabs><st-page>" |
"<input type='hidden' name='sort' value='&form.sort:http;' />\n" |
"<style type='text/css'>\n" |
".num {" |
" text-align: right;" |
" white-space: nowrap;" |
"}\n" |
"#tbls a {" |
" color: #0033aa;" |
" text-decoration: none;" |
"}\n" |
"#tbls a:hover {" |
" color: #0055ff;" |
" text-decoration: underline;" |
"}\n" |
"#tbls {" |
" font-size: smaller;" |
" text-align: left;" |
" border-collapse: collapse;" |
"}\n" |
"#tbls > * > tr > td {" |
" padding-left: 1em;" |
" border-bottom: 1px solid &usr.matrix22;;" |
"}\n" |
"#tbls > * > tr > th {" |
" font-weight: bold;" |
" white-space: nowrap;" |
" background-color: &usr.matrix12;;" |
" padding-left: 1em;" |
"}\n" |
"#tbls > * > tr > *:first-child {" |
" padding-left: 0;" |
"}\n" |
"#tbls > * > tr.tbl-details > * {" |
" border-top-style: hidden;" |
"}\n" |
"#tbl-details {" |
" font-size: smaller;" |
"}\n" |
"#tbl-details > * > tr > * {" |
" padding-left: 1em;" |
"}\n" |
"#tbl-details > * > tr > *:first-child {" |
" padding-left: 0;" |
"}\n" |
"#res {" |
" font-size: smaller;" |
" text-align: left;" |
" border-collapse: collapse;" |
"}\n" |
"#res > * > tr {" |
" vertical-align: top;" |
"}\n" |
"#res > * > tr > * {" |
" border: 1px solid &usr.matrix22;;" |
"}\n" |
"#res > * > tr > th {" |
" font-weight: bold;" |
" background-color: &usr.matrix12;;" |
"}\n" |
"#res span.warn_exp {" |
" color: &usr.warncolor;;" |
" white-space: nowrap;" |
"}\n" |
"</style>\n"; |
|
if( id->variables->action && actions[ id->variables->action ]) |
{ |
res += "<input type='hidden' name='db' value='&form.db:http;' />\n"; |
mixed tmp = actions[ id->variables->action ][1]( id->variables->db, id ); |
if( stringp( tmp ) ) |
return res+tmp+"\n</st-page></content></tmpl>"; |
if( tmp ) |
return tmp; |
} |
|
string url = DBManager.db_url( id->variables->db ); |
|
string charset = "unicode"; |
#if !constant (Mysql.mysql.HAVE_MYSQL_FIELD_CHARSETNR) |
if (DBManager.is_mysql (url)) { |
|
|
charset = "broken-unicode"; |
} |
#endif |
|
Sql.Sql db; |
mixed db_connect_error = |
catch (db = DBManager.get (id->variables->db, 0, 0, 0, charset)); |
if (db_connect_error) |
|
db_connect_error = catch (db = DBManager.get (id->variables->db)); |
if (!db && !db_connect_error) { |
db_connect_error = ({ "Failed to connect to database.\n", ({}) }); |
} |
|
string qres=""; |
|
class QueryHistory |
{ |
inherit Variable.Variable; |
constant type = "QueryHistory"; |
|
void create() |
{ |
::create( ([]), 65535 ); |
} |
}; |
|
object user = id->misc->config_user; |
QueryHistory hs; |
if( !(hs = user->settings->getvar( "db_history" ) ) ) |
{ |
user->settings->defvar( "db_history", (hs = QueryHistory( )) ); |
user->settings->restore(); |
} |
if( (!id->variables->query || id->variables["reset_q.x"]) ) |
{ |
array sel_t_columns = ({}); |
if( !(<0, "">)[id->variables->table] ) { |
if (mixed err = catch { |
sel_t_columns = DBManager.db_table_fields( id->variables->db, |
id->variables->table ) |
->name; |
}) { |
report_debug ("Error listing fields for table %s.%s: %s", |
id->variables->db, id->variables->table, |
describe_error (err)); |
} |
} |
|
mapping h = hs->query(); |
|
function(string:string) quote_name = lambda (string s) {return s;}; |
if (DBManager.is_mysql (id->variables->db)) |
|
quote_name = lambda (string s) { |
if (db && db->master_sql->is_keyword (s)) |
return "`" + s + "`"; |
return s; |
}; |
|
if( !id->variables["reset_q.x"] && |
h[id->variables->db+"."+id->variables->table] ) |
id->variables->query = h[id->variables->db+"."+id->variables->table]; |
else if( !(<0, "">)[id->variables->table] ) |
id->variables->query = "SELECT "+ |
(sizeof (sel_t_columns) ? |
map (sel_t_columns, quote_name) *", " : "*") + |
" FROM "+ quote_name (id->variables->table); |
else if( DBManager.is_mysql( id->variables->db ) ) |
id->variables->query = "SHOW TABLES"; |
else |
id->variables->query = ""; |
} |
|
if (id->variables["run_q.x"] || id->variables["reset_q.x"]) |
hs->query()[ id->variables->db+"."+id->variables->table ] |
= id->variables->query-"\r"; |
|
if(db && id->variables["run_q.x"]) |
{ |
user->settings->save(); |
|
string query = ""; |
|
foreach( (id->variables->query-"\r")/"\n", string q ) |
{ |
|
q = String.trim_all_whites (q); |
if (q == "--") break; |
if (q != "") |
query = (query == "" ? q : query + "\n" + q); |
} |
|
foreach( (query/";\n")-({""}); int i; string q ) |
{ |
Sql.sql_result big_q; |
|
int h = gethrtime(); |
if (mixed err = catch (big_q = db->big_query( q ))) { |
qres += "<p><font color='&usr.warncolor;'>"+ |
sprintf((string)_(1062,"Error running query %d: %s"), i + 1, |
replace (Roxen.html_encode_string ( |
String.trim_all_whites (describe_error(err))), |
"\n", "<br/>\n"))+ |
"</font></p>\n"; |
continue; |
} |
float qtime = (gethrtime()-h)/1000000.0; |
|
if (!big_q) |
|
continue; |
|
do { |
int qrows; |
qres += "<p>\n" |
"<table id='res'><tr class='tr-sticky'>"; |
|
|
|
multiset right_columns = (<>); |
int column; |
|
array(string) col_types = ({}); |
array(string) col_names = ({}); |
|
foreach( big_q->fetch_fields(), mapping field ) |
{ |
switch( field->type ) |
{ |
case "char": |
case "tiny integer": |
case "short": |
case "int": |
case "integer": |
case "long": |
case "long integer": |
case "int24": |
case "longlong": |
right_columns[column]=1; |
qres += "<th class='num'>"; |
col_types += ({"int"}); |
break; |
case "real": |
case "float": |
case "double": |
right_columns[column]=1; |
qres += "<th class='num'>"; |
col_types += ({"float"}); |
break; |
case "decimal": |
case "numeric": |
qres += "<th class='num'>"; |
col_types += ({"string"}); |
break; |
case "bit": |
default: |
qres += "<th>"; |
col_types += ({"string"}); |
} |
qres += Roxen.html_encode_string (field->name) + "</th>\n"; |
col_names += ({ field->name }); |
column++; |
} |
qres += "</tr>"; |
|
mapping(string:string) mod_info = |
DBManager.module_table_info (id->variables->db, ""); |
|
Configuration c = !(<0, "">)[mod_info->conf] && |
roxen.find_configuration (mod_info->conf); |
RoxenModule m = c && !(<0, "">)[mod_info->module] && |
c->find_module (mod_info->module); |
|
|
|
function(string,string,string,array(string),array(string),array(string), |
RequestID:string) format_col_cb = |
m && m->format_db_browser_value; |
array(int) formatted_total_size = allocate(sizeof(col_names), 0); |
if (id->variables->exp_fields == "disabled") |
format_col_cb = 0; |
|
while( array q = big_q->fetch_row() ) |
{ |
qrows++; |
qres += "<tr>"; |
for( int i = 0; i<sizeof(q); i++ ) { |
qres += right_columns[i] ? "<td class='num'>" : "<td>"; |
if( !q[i] ) |
qres += "<i>NULL</i>"; |
else if( intp( q[i] ) || col_types[i] == "int" ) |
qres += (string) (int) q[i]; |
else if( floatp( q[i] ) || col_types[i] == "float" ) |
qres += (string) (float) q[i]; |
else if( is_image( q[i] ) ) |
qres += |
"<img src='browser.pike?image=" + store_image( q[i] ) + |
"&&usr.set-wiz-id;' />"; |
else { |
mixed tmp = q[i]; |
int got_result; |
if (format_col_cb) { |
|
if (formatted_total_size[i] > MAX_TOTAL_FORMATTED_SIZE) { |
qres += |
"<span class='warn_exp'>" + |
"Total formatted data length exceeded – limit your query." |
"</span>"; |
got_result = 1; |
} else if (mixed formatted = |
format_col_cb (id->variables->db, |
id->variables->table, |
col_names[i], col_names, |
col_types, q, id)) { |
int formatted_len = sizeof(formatted); |
if ((formatted_len >= MAX_FIELD_FORMATTED_SIZE) && |
(id->variables->exp_fields == "auto")) { |
|
qres += |
"<span class='warn_exp'>" + |
"Skipping " + (formatted_len / 1024) + "K formatted data." |
"</span>"; |
got_result = 1; |
} else { |
formatted_total_size[i] += formatted_len; |
qres += formatted; |
got_result = 1; |
} |
} |
} |
|
if (!got_result) { |
if (is_deflated (tmp)) { |
|
catch { |
tmp = Gz.inflate()->inflate (tmp); |
}; |
} |
|
if( is_encode_value( tmp ) ) |
qres += format_decode_value(tmp); |
else if (String.width (tmp) > 8) { |
|
|
string q = ""; |
int s; |
foreach (tmp; int i; int c) |
if (c >= 256) { |
if (s < i) q += sprintf ("%q", tmp[s..i - 1])[1..<1]; |
q += sprintf ("%c", c); |
s = i + 1; |
} |
q += sprintf ("%q", tmp[s..])[1..<1]; |
qres += Roxen.html_encode_string (q); |
} |
else |
qres += Roxen.html_encode_string(sprintf("%q", tmp)[1..<1]); |
} |
} |
qres += "</td>"; |
} |
qres += "</tr>\n"; |
} |
|
qres += "</table>"+ |
sprintf( _(426,"Query took %[0].3fs, %[1]d rows in the reply")+ |
"\n</p>\n", qtime, qrows); |
|
if (!big_q->next_result) break; |
h = gethrtime(); |
if (mixed err = catch (big_q = big_q->next_result())) { |
qres += "<p><font color='&usr.warncolor;'>"+ |
sprintf((string)_(1062,"Error running query %d: %s"), i + 1, |
replace (Roxen.html_encode_string ( |
String.trim_all_whites (describe_error(err))), |
"\n", "<br/>\n"))+ |
"</font></p>\n"; |
break; |
} |
qtime = (gethrtime()-h)/1000000.0; |
if (!big_q) break; |
|
|
} while(1); |
} |
} |
|
if( !(<0, "">)[id->variables->table] ) |
res += "<input type=hidden name='table' value='&form.table:http;' />\n"; |
|
|
|
res += "<p>" |
"<table><tr valign='center'>" |
"<td><cimg border='0' format='gif' src='&usr.database-small;' alt='' " |
"max-height='20'/></td>" + |
"<td>" + db_switcher( id ) + "</td></tr></table>\n" |
"</p>\n" |
"<h3>Database " + Roxen.html_encode_string (id->variables->db) + "</h3>\n"; |
|
if (db_connect_error) |
res += "<p><font color='red'>" + |
_(1063, "Error connecting to database: ") + |
Roxen.html_encode_string (describe_error (db_connect_error)) + |
"</font></p>\n"; |
|
|
|
res += "<p><ul>\n"; |
|
switch(id->variables->db) { |
case "local": |
res += "<li>" + |
_(546, "Internal data that cannot be shared between servers.") + "</li>\n"; |
break; |
case "shared": |
res += "<li>" + |
_(547, "Internal data that may be shared between servers.") + "</li>\n"; |
break; |
case "mysql": |
res += "<li>" + |
_(1140, "MySQL/MariaDB-internal database.") + "</li>\n"; |
break; |
case "roxen": |
res += "<li>" + |
_(1141, "Roxen-internal database.") + "</li>\n"; |
break; |
default: |
if( !url ) |
res += "<li>Internal database.</li>\n"; |
else |
res += "<li>Database URL: " + Roxen.html_encode_string(url)+"</li>\n"; |
break; |
} |
|
mapping(string:string) db_info = |
DBManager.module_table_info (id->variables->db, ""); |
if (string owner = format_table_owner (db_info)) |
res += "<li>" + sprintf((string)_(428,"Defined by %s."), owner) + |
"</li>\n"; |
if (string c = db_info->comment) { |
c = String.trim_all_whites (c); |
if (c != "") |
res += "<li>" + Roxen.html_encode_string (c) + "</li>\n"; |
} |
|
string default_charset = DBManager.get_db_default_charset(id->variables->db); |
if (default_charset) { |
res += "<li>" + _(548,"Default charset:") + |
Roxen.html_encode_string(default_charset) + "</li>"; |
} |
|
res +="<li>" + |
sprintf( (string) |
_(506,"Member of the %s database group."), |
"<a href='edit_group.pike?group="+ |
Roxen.http_encode_url(DBManager.db_group( id->variables->db ))+ |
"&&usr.set-wiz-id;'>" + |
DBManager.get_group( DBManager.db_group( id->variables->db ) ) |
->lname + |
"</a>") |
+ "</li>"; |
|
string schedule = DBManager.db_schedule(id->variables->db); |
if (schedule) { |
res += "<li>" + |
sprintf( (string)_(1114, "Backuped via the %s backup schedule."), |
"<a href='schedules.html'>" + |
Roxen.html_encode_string(schedule) + |
"</a>") + |
"</li>"; |
} else { |
res += "<li><b>" + |
_(1115, "Not a member of any backup schedule.") + |
"</b></li>"; |
} |
res += "</ul></p>\n"; |
|
if (db) { |
|
|
res += "<p><table id='tbls' border='0' cellpadding='2' cellspacing='0'>"; |
|
array table_data = ({}); |
int sort_ok, got_owner_column; |
|
string deep_table_info( string table ) |
{ |
array(mapping(string:mixed)) data = |
DBManager.db_table_fields( id->variables->db, table ); |
if( !data ) |
return sprintf((string)_(507,"Cannot list fields in %s databases"), |
DBManager.db_driver(id->variables->db) ); |
|
multiset(string) props = (<>); |
foreach (data, mapping(string:mixed) r) |
foreach (r; string prop;) |
props[prop] = 1; |
props->name = 0; |
props->type = 0; |
props->table = 0; |
array(string) sort_props = sort (indices (props)); |
|
string res = "<table id='tbl-details'>" |
"<tr>" |
"<th>Column</th>" |
"<th>Type</th>" + |
map (sort_props, |
lambda (string prop) { |
return "<th>" + Roxen.html_encode_string ( |
String.capitalize (prop)) + "</th>"; |
}) * "" + |
"</tr>\n"; |
|
foreach( data, mapping(string:mixed) r ) |
{ |
res += "<tr>" |
"<td>" + Roxen.html_encode_string (r->name) + "</td>" |
"<td>" + Roxen.html_encode_string (r->type) + "</td>"; |
|
foreach (sort_props, string prop) { |
mixed val = r[prop]; |
if (zero_type (val)) |
res += "<td></td>"; |
else if (intp (val) || floatp (val)) |
res += "<td class='num'>" + val + "</td>"; |
else if (stringp (val)) |
res += "<td>" + Roxen.html_encode_string (val) + "</td>"; |
else if (arrayp (val) && |
!catch (val = (array(string)) val)) |
res += "<td>" + Roxen.html_encode_string (val * ", ") + "</td>"; |
else if (multisetp (val) && |
!catch (val = (array(string)) indices (val))) |
res += "<td>" + Roxen.html_encode_string (val * ", ") + "</td>"; |
else if (objectp (val)) |
res += "<td>" + Roxen.html_encode_string (sprintf ("%O", val)) + |
"</td>"; |
else |
res += "<td>" + Roxen.html_encode_string (sprintf ("<%t>", val)) + |
"</td>"; |
} |
|
res += "</tr>\n"; |
} |
|
return res+ "</table>"; |
}; |
|
void add_table_info( string table, mapping tbi ) |
{ |
mapping(string:string) tbl_info = |
DBManager.module_table_info (id->variables->db, table); |
|
int deep_info = id->variables->table == table; |
|
string res = |
"<tr" + |
(tbl_info->inhibit_backups == "yes"? |
" bgcolor='&usr.fade1;' fgcolor='&usr.top-fgcolor;'":"") + |
">" |
"<td style='white-space: nowrap'>" |
"<a href='browser.pike?sort=&form.sort:http;&" |
"db=&form.db:http;&&usr.set-wiz-id;" + |
(deep_info ? "" : "&table="+Roxen.http_encode_url(table)) +"'>"+ |
"<cimg style='vertical-align: -2px' border='0' format='gif'" |
" src='&usr.table-small;' alt='' max-height='12'/> " + |
table+"</a></td>" |
"<td class='num'>"+ |
(!tbi || zero_type (tbi->rows) ? "" : tbi->rows) + "</td>" |
"<td class='num'>" + |
(!tbi || zero_type (tbi->data_length) ? "" : |
sprintf ("%d KiB", |
((int)tbi->data_length+(int)tbi->index_length) / 1024)) + |
"</td>"; |
|
string owner; |
if ((db_info->conf || "") != (tbl_info->conf || "")) |
owner = format_table_owner (tbl_info, 0); |
else if ((db_info->module || "") != (tbl_info->module || "")) |
owner = format_table_owner (tbl_info, 1); |
res += "<td>"; |
if (owner) { |
res += owner; |
got_owner_column = 1; |
} |
res += "</td>"; |
|
if (deep_info) { |
res += "</tr>\n<tr class='tbl-details'><td colspan='5'>"; |
|
if (tbl_info->comment) |
sscanf( tbl_info->comment, "%s\0%s", |
tbl_info->tbl, tbl_info->comment ); |
|
if( tbl_info->tbl && tbl_info->tbl != table) |
if( tbl_info->tbl != (string)0 ) |
res += |
sprintf((string) _(429,"The table is known as %O " |
"in the module."), tbl_info->tbl ) + "<br/>\n"; |
else |
res += |
sprintf((string) _(430,"The table is an anonymous table defined " |
"by the module."), tbl_info->tbl ) + "<br/>\n"; |
|
if (string c = tbl_info->comment) { |
c = String.trim_all_whites (c); |
if (c != "" && c != "0") |
res += Roxen.html_encode_string (c) + "<br/>\n"; |
} |
|
if (tbl_info->inhibit_backups == "yes") { |
res += _(1142, "The table is not included in backups of this database.") + |
"<br />\n"; |
} |
|
res += deep_table_info (table) + "</td></tr>\n"; |
} |
else |
res += "</tr>\n"; |
|
if( tbi ) |
sort_ok = 1; |
|
table_data += ({({ |
table, |
(tbi ?(int)tbi->data_length+ (int)tbi->index_length:0), |
(tbi ?(int)tbi->rows:0), |
res |
})}); |
}; |
|
foreach( DBManager.db_tables( id->variables->db )-({0}), string tb ) |
add_table_info(tb, |
DBManager.db_table_information(id->variables->db, tb)); |
|
switch( id->variables->sort ) |
{ |
default: |
sort( column( table_data, 0 ), table_data ); |
break; |
|
case "rows": |
sort( column( table_data, 2 ), table_data ); |
table_data = reverse( table_data ); |
break; |
|
case "size": |
sort( column( table_data, 1 ), table_data ); |
table_data = reverse( table_data ); |
break; |
} |
#define SEL(X,Y) \ |
((id->variables->sort == X || (Y && !id->variables->sort)) ? \ |
"<img style='vertical-align: -2px' src='&usr.selected-indicator;'" \ |
" border='0' alt='>'/>" : \ |
"") |
|
if( sort_ok ) |
{ |
if (!got_owner_column) |
|
|
res += "<col span='3'/><col style='visiblity: collapse'/>\n"; |
res += |
"<thead><tr class='tr-sticky'>" |
"<th><a href='browser.pike?db=&form.db:http;&table=&form.table:http;&sort=name&&usr.set-wiz-id;'>"+ |
SEL("name", 1) + _(376,"Name")+ |
"</a></th>\n" |
"<th class='num'><a href='browser.pike?db=&form.db:http;&table=&form.table:http;&sort=rows&&usr.set-wiz-id;'>"+ |
SEL("rows",0)+String.capitalize(_(374,"rows"))+ |
"</a></th>\n" |
"<th class='num'><a href='browser.pike?db=&form.db:http;&table=&form.table:http;&sort=size&&usr.set-wiz-id;'>"+ |
SEL("size",0)+_(377,"Size")+ |
"</a></th>\n" |
"<th>Owner</th>\n" |
"</tr></thead>\n"; |
} |
|
res += "<tbody>" + column( table_data, 3 )*"\n" + |
"</tbody></table></p>\n"; |
|
|
|
string formatter_options = |
"<span style='font-size: smaller;'>Smart field formatters: </span>" |
"<default variable='form.exp_fields'>" |
"<select name='exp_fields'>" |
" <option value='auto'>Enabled for data < " + (MAX_FIELD_FORMATTED_SIZE / 1024) + "K</option>" |
" <option value='disabled'>Disabled</option>" |
" <option value='force'>Force expansion of long fields</option>" |
"</select>" |
"</default>" |
"<br />"; |
|
int db_has_formatters = 0; |
if (id->variables->db) { |
mapping(string:string) mod_info = |
DBManager.module_table_info (id->variables->db, ""); |
Configuration c = !(<0, "">)[mod_info->conf] && |
roxen.find_configuration (mod_info->conf); |
RoxenModule m = c && !(<0, "">)[mod_info->module] && |
c->find_module (mod_info->module); |
db_has_formatters = m && m->format_db_browser_value; |
} |
|
res += |
"<a name='dbquery'></a><p>" |
"<textarea rows='12' cols='90' wrap='soft' name='query' " |
" style='font-size: 90%'>" + |
Roxen.html_encode_string (id->variables->query) + "</textarea><br />" + |
(db_has_formatters ? formatter_options : "") + |
"<table><tr><td>" |
"<submit-gbutton2 name=reset_q> "+_(378,"Reset query")+" </submit-gbutton2>" |
"</td><td>" |
"<submit-gbutton2 name=run_q> "+_(379,"Run query")+" </submit-gbutton2>" |
"</td><td style='font-size: smaller; padding-left: 10px'>" + |
_(1064, "Tip: Put '--' on a line to ignore everything below it.") + |
"</td></tr></table></p>"; |
|
|
|
res += qres; |
} |
|
|
|
res += "<p>"; |
|
int flags = DBManager.is_internal(id->variables->db)*3; |
if (!flags) { |
mapping(string:mixed) url_info = |
DBManager.get_db_url_info(id->variables->db); |
if (url_info && has_prefix(url_info->path, "mysql://")) { |
|
flags = 2; |
} |
} |
|
#define ADD_ACTION(X) if(!actions[X][2] || (actions[X][2] & flags) ) \ |
res += sprintf("<a href='%s?db=%s&action=%s&&usr.set-wiz-id;'><gbutton>%s</gbutton></a>\n",\ |
id->not_query, id->variables->db, X, actions[X][0] ) |
|
switch( id->variables->db ) |
{ |
case "local": |
foreach( ({ "backup","optimize","repair","schedule" }), string x ) |
ADD_ACTION( x ); |
break; |
|
default: |
array(string) action_ids = sort( indices( actions ) ); |
if (DBManager.is_internal( id->variables->db )) { |
action_ids -= ({ "configure_ext_db_con" }); |
} |
foreach( action_ids, string x ) |
ADD_ACTION( x ); |
break; |
} |
return res+"</p></st-page></subtablist></cv-split></content></tmpl>"; |
} |
|
|