\n"; goto donebackup; } } foreach $db (@dbs) { if ($in{'all'}) { $dir = &date_subs($in{'file'}); &make_dir($dir, 0755) if ($in{'mkdir'}); $file = $dir."/".$db.".sql". ($in{'compress'} == 1 ? ".gz" : $in{'compress'} == 2 ? ".bz2" : ""); } else { $file = &date_subs($in{'file'}); } if ($cron && $cmode == 0) { # Run and check before-backup command (for one DB) $bok = &execute_before($db, STDOUT, 1, $file, $in{'all'} ? undef : $db); if (!$bok) { print "$main::whatfailed : ",$text{'backup_ebefore'},"
\n"; next; } } unlink($file); if ($in{'compress'} == 0) { $writer = ">$file"; } elsif ($in{'compress'} == 1) { $writer = "| gzip -c >$file"; } elsif ($in{'compress'} == 2) { $writer = "| bzip2 -c >$file"; } local $err = &backup_database($db, $file, $in{'compress'}, $in{'drop'}, $in{'where_def'} ? undef : $in{'where'}, $in{'charset_def'} ? undef : $in{'charset'}, \@compat, \@tables, $access{'buser'}); if ($err) { print "$main::whatfailed : ", &text('backup_ebackup',"
$err"),"
\n"; } else { @st = stat($file); print &text('backup_done', "$db", "$file", int($st[7])),"
\n"; } &execute_after($db, STDOUT, 1, $file, $in{'all'} ? undef : $db) if ($cron && $cmode == 0); } &execute_after(undef, STDOUT, 1, $in{'file'}, undef) if ($cmode == 1); donebackup: } if ($cron) { &lock_file($cron_cmd); &cron::create_wrapper($cron_cmd, $module_name, "backup.pl"); &unlock_file($cron_cmd); &lock_file(&cron::cron_file($job)); if ($in{'sched'} && !$oldjob) { &cron::create_cron_job($job); $what = "backup_ccron"; } elsif (!$in{'sched'} && $oldjob) { # Need to delete cron job &cron::delete_cron_job($job); $what = "backup_dcron"; } elsif ($in{'sched'} && $oldjob) { # Need to update cron job &cron::change_cron_job($job); $what = "backup_ucron"; } else { $what = "backup_ncron"; } &unlock_file(&cron::cron_file($job)); # Tell the user what was done print $text{$what},"
\n" if ($what); } &webmin_log("backup", undef, $in{'all'} ? "" : $in{'db'}, \%in); if ($in{'all'}) { &ui_print_footer("", $text{'index_return'}); } else { &ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'}, "", $text{'index_return'}); } mysql/config.info.uk_UA 0000664 0005671 0000012 00000001540 11220734044 015027 0 ustar jcameron wheel mysqlimport= mysqlimport,0 start_cmd= MySQL,0 line1= , ,11 host= MySQL ',3,localhost line2= ,11 perpage=ʳ , ,0 sock= MySQL,3, mysqladmin= mysqladmin,0 mysql_libs= MySQL,3, style= ,1,1-,0- pass= ,12 stop_cmd= MySQL,3, nodbi= DBI '?,1,0-,1- mysqldump= mysqldump,0 mysqlshow= mysqlshow,0 mysql= mysql,0 login= ,0 add_mode= ,1,1-,0- mysql/config.info.tr 0000644 0005671 0000012 00000002073 11220734044 014450 0 ustar jcameron wheel line1=Yaplandrlabilir seenekler,11 login=Ynetici girii,0 pass=Ynetici ifresi,0 perpage=Sayfa bana gsterilecek olan satr says,0 style=Veritabanlar ve tablolar u ekilde gster,1,1-Liste,0-Simgeler add_mode=Dikey satr dzenleme arayzn kullan,1,1-Evet,0-Hayr blob_mode=Blob ve Metin alanlar u ekilde gster,1,0-Tablodaki veri,1-ndirilecek linkler nodbi=Eer mmknse DBI kullanlsn m?,1,0-Evet,1-Hayr date_subs=Yedekleme hedefleri iin strftime gsterimi kullanlsn?,1,1-Evet,0-Hayr passwd_mode=Parola hashing biimi,1,1-Eski,0-ntanml line2=Sistem yaplandrmas,11 mysqlshow=mysqlshow komutunun yolu,0 mysqladmin=mysqladmin komutunun yolu,0 mysql=mysql komutunun yolu,0 mysqldump=mysqldump komutunun yolu,0 mysqlimport=mysqlimport komutunun yolu,0 start_cmd=Mysql sunucusunu balatma komutu,0 stop_cmd=Mysql sunucusunu durdurma komutu,3,Otomatik mysql_libs=Mysql paylatrlm ktphanelerinin yeri,3,Hibiri host=Balanlacak MySQL sunucusu,3,localhost port=Balanlacak MySQL port numaras,3,ntanml sock=MySQL soket dosyas,3,ntanml mysql/config 0000644 0005671 0000012 00000000766 11220734044 013101 0 ustar jcameron wheel start_cmd=cd /usr/local/mysql ; (./bin/safe_mysqld || ./bin/mysqld_safe) & perpage=25 mysql=/usr/local/mysql/bin/mysql mysqldump=/usr/local/mysql/bin/mysqldump mysqlimport=/usr/local/mysql/bin/mysqlimport pass=foo mysqlshow=/usr/local/mysql/bin/mysqlshow login=root mysql_libs=/usr/local/mysql/lib mysqladmin=/usr/local/mysql/bin/mysqladmin style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/usr/local/mysql/var max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/config-openmamba-linux 0000664 0005671 0000012 00000000615 11220734044 016166 0 ustar jcameron wheel start_cmd=/etc/rc.d/init.d/mysql start stop_cmd=/etc/rc.d/init.d/mysql stop mysql=/usr/bin/mysql mysqldump=/usr/bin/mysqldump mysqlimport=/usr/bin/mysqlimport mysql_libs= mysqladmin=/usr/bin/mysqladmin mysqlshow=/usr/bin/mysqlshow perpage=25 style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/acl_security.pl 0000775 0005671 0000012 00000010653 11220734044 014735 0 ustar jcameron wheel require 'mysql-lib.pl'; # acl_security_form(&options) # Output HTML for editing security options for the mysql module sub acl_security_form { print "
\n"; } &ui_print_footer("", $text{'index_return'}); sub nice_time { local ($s) = @_; return sprintf "%2.2d:%2.2d:%2.2d", int($s / 3600), int($s / 60)%60, $s % 60; } mysql/edit_user.cgi 0000755 0005671 0000012 00000003750 11220734044 014357 0 ustar jcameron wheel #!/usr/local/bin/perl # edit_user.cgi # Display a form for editing or creating a MySQL user require './mysql-lib.pl'; &ReadParse(); $access{'perms'} == 1 || &error($text{'perms_ecannot'}); if ($in{'new'}) { &ui_print_header(undef, $text{'user_title1'}, "", "create_user"); } else { &ui_print_header(undef, $text{'user_title2'}, "", "edit_user"); if ($in{'user'}) { $d = &execute_sql_safe($master_db, "select * from user where user = ?", $in{'user'}); $u = $d->{'data'}->[0]; } else { $d = &execute_sql_safe($master_db, "select * from user order by user"); $u = $d->{'data'}->[$in{'idx'}]; } } # Form header print &ui_form_start("save_user.cgi", "post"); if ($in{'new'}) { print &ui_hidden("new", 1); } else { print &ui_hidden("olduser", $u->[1]); print &ui_hidden("oldhost", $u->[0]); } print &ui_table_start($text{'user_header'}, undef, 2); %sizes = &table_field_sizes($master_db, "user"); # Username field print &ui_table_row($text{'user_user'}, &ui_opt_textbox("mysqluser", $u->[1], $sizes{'user'}, $text{'user_all'})); # Password field print &ui_table_row($text{'user_pass'}, &ui_radio("mysqlpass_mode", $in{'new'} ? 0 : $u->[2] ? 1 : 2, [ [ 2, $text{'user_none'} ], $in{'new'} ? ( ) : ( [ 1, $text{'user_leave'} ] ), [ 0, $text{'user_set'} ] ])." ". &ui_password("mysqlpass", undef, 20)); # Allowed host / network print &ui_table_row($text{'user_host'}, &ui_opt_textbox("host", $u->[0] eq '%' ? '' : $u->[0], 40, $text{'user_any'})); # User's permissions for($i=3; $i<=&user_priv_cols()+3-1; $i++) { push(@opts, [ $i, $text{"user_priv$i"} ]); push(@sel, $i) if ($u->[$i] eq 'Y'); } print &ui_table_row($text{'user_perms'}, &ui_select("perms", \@sel, \@opts, 10, 1, 1)); print &ui_table_end(); print &ui_form_end([ $in{'new'} ? ( [ undef, $text{'create'} ] ) : ( [ undef, $text{'save'} ], [ 'delete', $text{'delete'} ] ) ]); &ui_print_footer('list_users.cgi', $text{'users_return'}, "", $text{'index_return'}); mysql/config_info.pl 0000775 0005671 0000012 00000001077 11220734044 014527 0 ustar jcameron wheel require './mysql-lib.pl'; sub show_charset { local ($value) = @_; local $main::error_must_die = 1; local @charsets; eval { @charsets = &list_character_sets(); }; if (@charsets) { @charsets = sort { $a->[1] cmp $b->[1] } @charsets; return &ui_select("charset", $value, [ [ "", "<$text{'default'}>" ], @charsets ]); } else { return &ui_opt_textbox("charset", $value, 20, $text{'default'}); } } sub parse_charset { if ($in{'charset_def'}) { return undef; } else { $in{'charset'} =~ /^\S*$/ || &error($text{'config_echarset'}); return $in{'charset'}; } } mysql/config-suse-linux 0000644 0005671 0000012 00000000605 11220734044 015203 0 ustar jcameron wheel start_cmd=/sbin/init.d/mysql start stop_cmd=/sbin/init.d/mysql stop mysql=/usr/bin/mysql mysqldump=/usr/bin/mysqldump mysqlimport=/usr/bin/mysqlimport mysql_libs= mysqladmin=/usr/bin/mysqladmin mysqlshow=/usr/bin/mysqlshow perpage=25 style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/config-slackware-linux-8.0-* 0000644 0005671 0000012 00000000655 11220734044 016637 0 ustar jcameron wheel mysqlimport=/usr/bin/mysqlimport start_cmd=cd /usr ; (/usr/bin/safe_mysqld || /usr/bin/mysqld_safe) & perpage=25 mysqladmin=/usr/bin/mysqladmin style=0 mysql_libs= pass= mysqldump=/usr/bin/mysqldump mysqlshow=/usr/bin/mysqlshow mysql=/usr/bin/mysql login=root add_mode=1 host= sock= stop_cmd= nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/config-freebsd 0000644 0005671 0000012 00000000713 11220734044 014501 0 ustar jcameron wheel start_cmd=(/usr/local/bin/safe_mysqld || /usr/local/bin/mysqld_safe) & perpage=25 mysql=/usr/local/bin/mysql mysqldump=/usr/local/bin/mysqldump mysqlimport=/usr/local/bin/mysqlimport mysqlshow=/usr/local/bin/mysqlshow login=root mysql_libs=/usr/local/lib/mysql mysqladmin=/usr/local/bin/mysqladmin style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/usr/local/var/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/config.info.zh_TW.Big5 0000644 0005671 0000012 00000001322 11220734044 015637 0 ustar jcameron wheel line1=պAﶵ,11 login=Ʈwz̦W,0 pass=ƮwẕKX,12 perpage=CܪC,0 style=ܸƮwP欰,1,1-M,0-ϥ add_mode=ϥΫCs褶,1,1-O,0-_ blob_mode=ܲb,1,0-椤,1-Us nodbi=pGiHܨϥDBIs?,1,0-O,1-_ date_subs=strftime Nƥؼ?,1,1-O,0-_ line2=tβպA,11 mysqlshow= mysqlshow O|,0 mysqladmin= mysqladmin O|,0 mysql= mysql O|,0 mysqldump=mysqldumpO|,0 mysqlimport=mysqlimportO|,0 start_cmd=Ұ MySQL ARO,0 stop_cmd= MySQL ARO,3,۰ mysql_libs= MySQL @ɨ禡w|,3,L host=sMySQLDD,3,a port=MySQLs,3,w] sock=MySQL socket ɮ,3,w] mysql/list_vars.cgi 0000775 0005671 0000012 00000003265 11220734044 014405 0 ustar jcameron wheel #!/usr/local/bin/perl # Show a list of MySQL runtime variables for editing require './mysql-lib.pl'; $access{'perms'} == 1 || &error($text{'vars_ecannot'}); &ui_print_header(undef, $text{'vars_title'}, "", "vars"); &ReadParse(); %d = map { $_, 1 } split(/\0/, $in{'d'}); # Work out which ones can be edited %canedit = map { $_->[0], 1 } &list_system_variables(); # Show search form print &ui_form_start("list_vars.cgi"); print "$text{'vars_search'} ", &ui_textbox("search", $in{'search'}, 20)," ", &ui_submit($text{'vars_ok'}); print &ui_form_end(); $d = &execute_sql($master_db, "show variables". ($in{'search'} ? " like '%".quotemeta($in{'search'})."%'" : "")); if (@{$d->{'data'}}) { print &ui_form_start("save_vars.cgi"); print &ui_hidden("search", $in{'search'}); @tds = ( "width=5" ); print &ui_columns_start([ "", $text{'vars_name'}, $text{'vars_value'} ], 100, 0, \@tds); foreach $v (@{$d->{'data'}}) { if (!$canedit{$v->[0]}) { # Cannot edit, so just show value print &ui_columns_row( [ "", $v->[0], &html_escape($v->[1]) ], \@tds); } elsif ($d{$v->[0]}) { # Editing now print &ui_columns_row([ "->", "[0]>$v->[0]", &ui_textbox("value_".$v->[0], $v->[1], 40) ], \@tds); } else { # Can edit print &ui_checked_columns_row([ "[0]>$v->[0]", &html_escape($v->[1]) ], \@tds, "d", $v->[0]); } } print &ui_columns_end(); print &ui_form_end([ [ "edit", $text{'vars_edit'} ], %d ? ( [ "save", $text{'save'} ] ) : ( ) ]); } else { print "",$in{'search'} ? $text{'vars_none2'} : $text{'vars_none'},"
\n"; } &ui_print_footer("", $text{'index_return'}); mysql/config.info.ru_RU 0000664 0005671 0000012 00000001473 11220734044 015064 0 ustar jcameron wheel mysqlimport= mysqlimport,0 start_cmd= MySQL,0 line1= ,11 host= MySQL ,3,localhost line2= ,11 perpage= , ,0 sock= MySQL,3, mysqladmin= mysqladmin,0 mysql_libs= MySQL,3, style= ,1,1-,0- pass= ,12 stop_cmd= MySQL,3, nodbi= DBI ?,1,0-,1- mysqldump= mysqldump,0 mysqlshow= mysqlshow,0 mysql= mysql,0 login= ,0 add_mode= ,1,1-,0- mysql/root_form.cgi 0000775 0005671 0000012 00000001426 11220734044 014402 0 ustar jcameron wheel #!/usr/local/bin/perl # Show a form for changing the MySQL root password require './mysql-lib.pl'; &ReadParse(); $access{'perms'} == 1 || &error($text{'perms_ecannot'}); &ui_print_header(undef, $text{'root_title'}, ""); print &ui_form_start("save_root.cgi", "post"); print &ui_table_start($text{'root_header'}, undef, 2); print &ui_table_row($text{'root_user'}, $mysql_login ? "$mysql_login" : "$text{'root_auto'}"); print &ui_table_row($text{'root_pass'}, $mysql_pass ? "$mysql_pass" : "$text{'root_none'}"); print &ui_table_row($text{'root_newpass1'}, &ui_password("newpass1", undef, 20)); print &ui_table_row($text{'root_newpass2'}, &ui_password("newpass2", undef, 20)); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'root_ok'} ] ]); mysql/config-open-linux 0000644 0005671 0000012 00000000615 11220734044 015166 0 ustar jcameron wheel start_cmd=/etc/rc.d/init.d/mysql start stop_cmd=/etc/rc.d/init.d/mysql stop mysql=/usr/bin/mysql mysqldump=/usr/bin/mysqldump mysqlimport=/usr/bin/mysqlimport mysql_libs= mysqladmin=/usr/bin/mysqladmin mysqlshow=/usr/bin/mysqlshow perpage=25 style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/edit_db.cgi 0000755 0005671 0000012 00000003245 11220734044 013765 0 ustar jcameron wheel #!/usr/local/bin/perl # edit_db.cgi # Edit or create a db table record require './mysql-lib.pl'; &ReadParse(); $access{'perms'} || &error($text{'perms_ecannot'}); if ($in{'new'}) { &ui_print_header(undef, $text{'db_title1'}, "", "create_db"); } else { $d = &execute_sql_safe($master_db, "select * from db order by db"); $u = $d->{'data'}->[$in{'idx'}]; $access{'perms'} == 1 || &can_edit_db($u->[1]) || &error($text{'perms_edb'}); &ui_print_header(undef, $text{'db_title2'}, "", "edit_db"); } print &ui_form_start("save_db.cgi"); if ($in{'new'}) { print &ui_hidden("new", 1); } else { print &ui_hidden("oldhost", $u->[0]); print &ui_hidden("olddb", $u->[1]); print &ui_hidden("olduser", $u->[2]); } print &ui_table_start($text{'db_header'}, undef, 2); # Database name print &ui_table_row($text{'db_db'}, &select_db($u->[1])); # Apply to user print &ui_table_row($text{'db_user'}, &ui_opt_textbox("user", $u->[2], 20, $text{'db_anon'})); # Apply to hosts print &ui_table_row($text{'db_host'}, &ui_radio("host_mode", $u->[0] eq '' ? 0 : $u->[0] eq '%' ? 1 : 2, [ [ 0, $text{'db_hosts'} ], [ 1, $text{'db_any'} ], [ 2, &ui_textbox("host", $u->[0] eq '%' ? '' : $u->[0], 40) ] ])); # Permissions for DB for($i=3; $i<=&db_priv_cols()+3-1; $i++) { push(@opts, [ $i, $text{"db_priv$i"} ]); push(@sel, $i) if ($u->[$i] eq 'Y'); } print &ui_table_row($text{'db_perms'}, &ui_select("perms", \@sel, \@opts, 10, 1, 1)); print &ui_table_end(); print &ui_form_end([ $in{'new'} ? ( [ undef, $text{'create'} ] ) : ( [ undef, $text{'save'} ], [ 'delete', $text{'delete'} ] ) ]); &ui_print_footer('list_dbs.cgi', $text{'dbs_return'}, "", $text{'index_return'}); mysql/config-suse-linux-7.1-* 0000644 0005671 0000012 00000000603 11220734044 015633 0 ustar jcameron wheel start_cmd=/etc/init.d/mysql start stop_cmd=/etc/init.d/mysql stop mysql=/usr/bin/mysql mysqldump=/usr/bin/mysqldump mysqlimport=/usr/bin/mysqlimport mysql_libs= mysqladmin=/usr/bin/mysqladmin mysqlshow=/usr/bin/mysqlshow perpage=25 style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/config-debian-linux 0000644 0005671 0000012 00000000614 11220734044 015446 0 ustar jcameron wheel start_cmd=(/usr/bin/safe_mysqld || /usr/bin/mysqld_safe) >/dev/null 2>&1 & mysql=/usr/bin/mysql mysqldump=/usr/bin/mysqldump mysqlimport=/usr/bin/mysqlimport mysql_libs= mysqladmin=/usr/bin/mysqladmin mysqlshow=/usr/bin/mysqlshow perpage=25 style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/config.info.ja_JP.UTF-8 0000664 0005671 0000012 00000003321 11220734044 015607 0 ustar jcameron wheel line1=設定可能なオプション,11 login=管理ログイン,0 pass=管理パスワード,12 perpage=１ページに表示する列数,0 style=データベースとテーブルの表示,1,1-リスト,0-アイコン,2-名前のみ add_mode=垂直列編集インターフェイスを使用する,1,1-はい,0-いいえ blob_mode=BLOBとテキストフィールドの表示,1,0-テーブル内のデータ,1-ダウンロードリンク nodbi=可能であれば接続にDBIを使用しますか?,1,0-はい,1-いいえ date_subs=バックアップ先の strftime 置換をおこないますか?,1,1-はい,0-いいえ passwd_mode=パスワードハッシュモード,1,1-旧式,0-デフォルト encoding=データベース内容のエンコーディング,3,デフォルト (現在の言語設定) max_dbs=データベースとテーブルを表示する最大数,0,5 max_text=テキストフィールドの最大表示長,3,無制限 charset=MySQLデータのキャラクターセット,15,charset line2=システム設定,11 mysqlshow=mysqlshowコマンドへのパス,0 mysqladmin=mysqladminコマンドへのパス,0 mysql=mysqlコマンドへのパス,0 mysqldump=mysqldumpコマンドへのパス,0 mysqlimport=mysqlimportコマンドへのパス,0 mysqld=mysqldコマンドへのパス,3,自動 start_cmd=MySQLサーバの起動コマンド,0 stop_cmd=MySQLサーバの停止コマンド,3,自動 mysql_libs=MySQL共有ライブラリディレクトリへのパス,3,なし mysql_data=MySQLデータベースディレクトリへのパス,3,なし host=接続先のMySQLホスト,3,localhost port=MySQLの接続ポート,3,デフォルト sock=MySQLのソケットファイル,3,デフォルト my_cnf=MySQL設定ファイル,0 mysql/module.info 0000644 0005671 0000012 00000001725 11220734045 014050 0 ustar jcameron wheel category=servers risk=low medium high desc_ko_KR.euc=MySQL ͺ̽ desc_zh_TW.Big5=MySQL ƮwA desc_tr=MySQL Veritaban Sunucusu desc=MySQL Database Server desc_pl=Serwer baz danych MySQL desc_sv=MySQL-databasserver desc_de=MySQL Datenbank-Server desc_es=Servidor de Base de Datos MySQL name=MySQL desc_ja_JP.euc=MySQL ǡ١ desc_zh_CN=MySQL ݿ desc_pt=Servidor de base de dados MySQL desc_ca=Servidor de BD MySQL desc_hu=MySQL Adatbzis szerver desc_ru_SU= MySQL desc_ru_RU= MySQL longdesc=Setup databases, tables and permissions in your MySQL database server. readonly=1 syslog=1 desc_zh_TW.UTF-8=MySQL 資料庫伺服器 desc_zh_CN.UTF-8=MySQL 数据库服务器 desc_ja_JP.UTF-8=MySQL データベース サーバ cpan=1 desc_ko_KR.UTF-8=MySQL 데이터베이스 서버 desc_it=Server di database MySQL desc_cz=Databzov server MySQL desc_ru.UTF-8=Сервер баз данных MySQL version=1.481 mysql/delete_dbs.cgi 0000775 0005671 0000012 00000001245 11220734044 014465 0 ustar jcameron wheel #!/usr/local/bin/perl # Delete several selected users require './mysql-lib.pl'; &ReadParse(); $access{'perms'} || &error($text{'perms_ecannot'}); &error_setup($text{'dbs_derr'}); @d = split(/\0/, $in{'d'}); @d || &error($trext{'dbs_enone'}); # Delete the users foreach $hdu (@d) { ($host, $db, $user) = split(/ /, $hdu); $access{'perms'} == 1 || &can_edit_db($db) || &error($text{'perms_edb'}); &execute_sql_logged($master_db, "delete from db where user = '$user' ". "and host = '$host' ". "and db = '$db'"); } &execute_sql_logged($master_db, 'flush privileges'); # Log it &webmin_log("delete", "dbprivs", scalar(@d)); &redirect("list_dbs.cgi"); mysql/save_user.cgi 0000755 0005671 0000012 00000005675 11220734044 014400 0 ustar jcameron wheel #!/usr/local/bin/perl # save_user.cgi # Save, create or delete a user require './mysql-lib.pl'; &ReadParse(); $access{'perms'} == 1 || &error($text{'perms_ecannot'}); if ($in{'delete'}) { # Delete some user &execute_sql_logged($master_db, "delete from user where user = '$in{'olduser'}' ". "and host = '$in{'oldhost'}'"); } else { # Validate inputs &error_setup($text{'user_err'}); $in{'mysqluser_def'} || $in{'mysqluser'} =~ /^\S+$/ || &error($text{'user_euser'}); $in{'host_def'} || $in{'host'} =~ /^\S+$/ || &error($text{'user_ehost'}); map { $perms[$_]++ } split(/\0/, $in{'perms'}); @desc = &table_structure($master_db, 'user'); $host = $in{'host_def'} ? '' : $in{'host'}; $user = $in{'mysqluser_def'} ? '' : $in{'mysqluser'}; if ($in{'new'}) { # Create a new user for($i=3; $i<=&user_priv_cols()+3-1; $i++) { push(@yesno, $perms[$i] ? "'Y'" : "'N'"); } $sql = sprintf "insert into user (%s) values ('%s', '%s', '', %s)", join(",", map { $desc[$_]->{'field'} } (0 .. &user_priv_cols()+3-1)), $host, $user, join(",", @yesno); } else { # Update existing user for($i=3; $i<=&user_priv_cols()+3-1; $i++) { push(@yesno, $desc[$i]->{'field'}."=". ($perms[$i] ? "'Y'" : "'N'")); } $sql = sprintf "update user set host = '%s', user = '%s', ". "%s where user = '%s' and host = '%s'", $host, $user, join(" , ", @yesno), $in{'olduser'}, $in{'oldhost'}; } &execute_sql_logged($master_db, $sql); if ($in{'mysqlpass_mode'} == 0) { $esc = &escapestr($in{'mysqlpass'}); &execute_sql_logged($master_db, "update user set password = $password_func('$esc') ". "where user = '$user' and host = '$host'"); } elsif ($in{'mysqlpass_mode'} == 2) { &execute_sql_logged($master_db, "update user set password = NULL ". "where user = '$user' and host = '$host'"); } } &execute_sql_logged($master_db, 'flush privileges'); if (!$in{'delete'} && !$in{'new'} && $in{'olduser'} eq $config{'login'} && !$access{'user'}) { # Renamed or changed the password for the Webmin login .. update # it too! $config{'login'} = $in{'mysqluser'}; if ($in{'mysqlpass_mode'} == 0) { $config{'pass'} = $in{'mysqlpass'}; } elsif ($in{'mysqlpass_mode'} == 2) { $config{'pass'} = undef; } &lock_file($module_config_file); &save_module_config(); &unlock_file($module_config_file); } if ($in{'delete'}) { &webmin_log("delete", "user", $in{'olduser'}, { 'user' => $in{'olduser'}, 'host' => $in{'oldhost'} } ); } elsif ($in{'new'}) { &webmin_log("create", "user", $in{'mysqluser_def'} ? '' : $in{'mysqluser'}, { 'user' => $in{'mysqluser_def'} ? '' : $in{'mysqluser'}, 'host' => $in{'host_def'} ? '' : $in{'host'} } ); } else { &webmin_log("modify", "user", $in{'mysqluser_def'} ? '' : $in{'mysqluser'}, { 'user' => $in{'mysqluser_def'} ? '' : $in{'mysqluser'}, 'host' => $in{'host_def'} ? '' : $in{'host'} } ); } &redirect("list_users.cgi"); mysql/save_host.cgi 0000755 0005671 0000012 00000004502 11220734044 014363 0 ustar jcameron wheel #!/usr/local/bin/perl # save_host.cgi # Save, create or delete a host table record require './mysql-lib.pl'; &ReadParse(); $access{'perms'} || &error($text{'perms_ecannot'}); if ($in{'delete'}) { # Delete some host $access{'perms'} == 1 || &can_edit_db($in{'olddb'}) || &error($text{'perms_edb'}); &execute_sql_logged($master_db, "delete from host where host = '$in{'oldhost'}' ". "and db = '$in{'olddb'}'"); } else { # Validate inputs &error_setup($text{'host_err'}); $in{'host_def'} || $in{'host'} =~ /^\S+$/ || &error($text{'host_ehost'}); if ($access{'perms'} == 2 && $access{'dbs'} ne '*') { $db = $in{'dbs'}; } else { $db = $in{'db_def'} == 1 ? "" : $in{'db_def'} == 2 ? $in{'dbs'} : $in{'db'}; $db =~ /^\S*$/ || &error($text{'host_edb'}); } if ($access{'perms'} == 2) { $in{'new'} || &can_edit_db($in{'olddb'}) || &error($text{'perms_edb'}); &can_edit_db($db) || &error($text{'perms_edb'}); } map { $perms[$_]++ } split(/\0/, $in{'perms'}); @desc = &table_structure($master_db, 'host'); if ($in{'new'}) { # Create a new host for($i=2; $i<=&host_priv_cols()+2-1; $i++) { push(@yesno, $perms[$i] ? "'Y'" : "'N'"); } $sql = sprintf "insert into host (%s) values ('%s', '%s', %s)", join(",", map { $desc[$_]->{'field'} } (0 .. &host_priv_cols()+2-1)), $in{'host_def'} ? '' : $in{'host'}, $db, join(",", @yesno); } else { # Update existing host for($i=2; $i<=&host_priv_cols()+2-1; $i++) { push(@yesno, $desc[$i]->{'field'}."=". ($perms[$i] ? "'Y'" : "'N'")); } $sql = sprintf "update host set host = '%s', db = '%s', %s ". "where host = '%s' and db = '%s'", $in{'host_def'} ? '' : $in{'host'}, $db, join(" , ", @yesno), $in{'oldhost'}, $in{'olddb'}; } &execute_sql_logged($master_db, $sql); } &execute_sql_logged($master_db, 'flush privileges'); if ($in{'delete'}) { &webmin_log("delete", "host", $in{'oldhost'}, { 'db' => $in{'olddb'}, 'host' => $in{'oldhost'} } ); } elsif ($in{'new'}) { &webmin_log("create", "host", $in{'host_def'} ? '' : $in{'host'}, { 'db' => $db, 'host' => $in{'host_def'} ? '' : $in{'host'} } ); } else { &webmin_log("modify", "host", $in{'host_def'} ? '' : $in{'host'}, { 'db' => $db, 'host' => $in{'host_def'} ? '' : $in{'host'} } ); } &redirect("list_hosts.cgi"); mysql/backup_form.cgi 0000775 0005671 0000012 00000012653 11220734044 014670 0 ustar jcameron wheel #!/usr/local/bin/perl # backup_form.cgi # Display a form for backing up this database, or all databases require './mysql-lib.pl'; &ReadParse(); if ($in{'all'}) { @alldbs = &list_databases(); @dbs = grep { &can_edit_db($_) } @alldbs; @alldbs == @dbs || &error($text{'dbase_ecannot'}); } else { &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'}); } $access{'edonly'} && &error($text{'dbase_ecannot'}); $access{'buser'} || &error($text{'dbase_ecannot'}); &ui_print_header(undef, $in{'all'} ? $text{'backup_title2'} : $text{'backup_title'}, "", "backup_form"); if (!-x $config{'mysqldump'}) { print &text('backup_edump', "$config{'mysqldump'}", "../config.cgi?$module_name"),"
\n"; &ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'}); exit; } $cron = !$module_info{'usermin'} && $access{'buser'} eq 'root' && !$access{'user'} && &foreign_installed("cron"); if ($in{'all'}) { print "$text{'backup_desc3'}\n"; } else { print &text('backup_desc', "$in{'db'}"),"\n"; } if ($cron) { print "$text{'backup_desc2'}\n"; } print "
\n";
%c = $module_info{'usermin'} ? %userconfig : %config;
print &ui_form_start("backup_db.cgi", "post");
print &ui_hidden("db", $in{'db'});
print &ui_hidden("all", $in{'all'});
print &ui_hidden_table_start($text{'backup_header1'}, "width=100%", 2, "main",
1, [ "width=30%" ]);
# Destination file or directory
print &ui_table_row($in{'all'} ? $text{'backup_file2'}
: $text{'backup_file'},
&ui_textbox("file", $c{'backup_'.$in{'db'}}, 60)." ".
&file_chooser_button("file"));
# Create destination dir
if ($in{'all'}) {
print &ui_table_row($text{'backup_mkdir'},
&ui_yesno_radio("mkdir", int($c{'backup_mkdir_'.$in{'db'}})));
}
if (!$in{'all'}) {
# Show input to select tables
$t = $c{'backup_tables_'.$in{'db'}};
@tables = &list_tables($in{'db'});
print &ui_table_row($text{'backup_tables'},
&ui_radio("tables_def", $t ? 0 : 1,
[ [ 1, $text{'backup_alltables'} ],
[ 0, $text{'backup_seltables'} ] ])."
".
&ui_select("tables", [ split(/\s+/, $t) ],
[ sort @tables ], 5, 1));
}
print &ui_hidden_table_end("main");
print &ui_hidden_table_start($text{'backup_header2'}, "width=100%", 2, "opts",
0, [ "width=30%" ]);
# Show input for where clause
$w = $c{'backup_where_'.$in{'db'}};
print &ui_table_row($text{'backup_where'},
&ui_opt_textbox("where", $w, 30, $text{'backup_none'}));
# Show option to include drop statements in SQL
$d = $c{'backup_drop_'.$in{'db'}};
print &ui_table_row($text{'backup_drop'},
&ui_yesno_radio("drop", $d ? 1 : 0));
# Show input for character set
$s = $c{'backup_charset_'.$in{'db'}};
print &ui_table_row($text{'backup_charset'},
&ui_radio("charset_def", $s ? 0 : 1,
[ [ 1, $text{'default'} ],
[ 0, &ui_select("charset", $s,
[ &list_character_sets($in{'db'}) ]) ] ]));
if ($mysql_version >= 5.0) {
# Show compatability format option
$cf = $c{'backup_compatible_'.$in{'db'}};
print &ui_table_row($text{'backup_compatible'},
&ui_radio("compatible_def", $cf ? 0 : 1,
[ [ 1, $text{'default'} ],
[ 0, &text('backup_compwith',
&ui_select("compatible", $cf,
[ &list_compatible_formats() ])) ] ]));
%co = map { $_, 1 } split(/\s+/, $c{'backup_options_'.$in{'db'}});
$opts = "";
foreach $o (&list_compatible_options()) {
$opts .= &ui_checkbox("options", $o->[0], $o->[1] || $o->[0],
$co{$o->[0]})."
\n";
}
print &ui_table_row($text{'backup_options'}, $opts);
}
else {
print &ui_hidden("compatible_def", 1),"\n";
}
# Show compression option
$cp = int($c{'backup_compress_'.$in{'db'}});
print &ui_table_row($text{'backup_compress'},
&ui_radio("compress", $cp,
[ [ 0, $text{'backup_cnone'} ],
[ 1, $text{'backup_gzip'} ],
[ 2, $text{'backup_bzip2'} ] ]));
if ($cron) {
# Show before/after commands
$b = $c{'backup_before_'.$in{'db'}};
print &ui_table_row($text{'backup_before'},
&ui_textbox("before", $b, 60));
$a = $c{'backup_after_'.$in{'db'}};
print &ui_table_row($text{'backup_after'},
&ui_textbox("after", $a, 60));
if ($in{'all'}) {
# Command mode option
$cmode = $c{'backup_cmode_'.$in{'db'}};
print &ui_table_row($text{'backup_cmode'},
&ui_radio("cmode", int($cmode),
[ [ 0, $text{'backup_cmode0'} ],
[ 1, $text{'backup_cmode1'} ] ]));
}
print &ui_hidden_table_end("opts");
print &ui_hidden_table_start($text{'backup_header3'}, "width=100%", 2,
"sched", 1, [ "width=30%" ]);
# Show cron time
&foreign_require("cron", "cron-lib.pl");
@jobs = &cron::list_cron_jobs();
$cmd = $in{'all'} ? "$cron_cmd --all" : "$cron_cmd $in{'db'}";
($job) = grep { $_->{'command'} eq $cmd } @jobs;
print &ui_table_row($text{'backup_sched'},
&ui_radio("sched", $job ? 1 : 0,
[ [ 0, $text{'no'} ], [ 1, $text{'backup_sched1'} ] ]));
$job ||= { 'mins' => 0,
'hours' => 0,
'days' => '*',
'months' => '*',
'weekdays' => '*' };
print &ui_table_row(undef,
"
\n",
$in{'db'}, $in{'table'},
$in{'start'} - $displayconfig{'perpage'},
$searchargs, $sortargs;
}
print "",&text('view_pos', $in{'start'}+1,
$in{'start'}+$displayconfig{'perpage'} > $total ? $total :
$in{'start'}+$displayconfig{'perpage'}, $total),"\n";
if ($in{'start'}+$displayconfig{'perpage'} < $total) {
printf "".
"
",
$in{'db'}, $in{'table'},
$in{'start'} + $displayconfig{'perpage'},
$searchargs, $sortargs;
}
print "| ",&text('view_searchhead', "$in{'for'}", "$in{'field'}")," | \n"; print "$text{'view_searchreset'} |
| ",&text('view_searchhead2', $advcount)," | \n"; print "$text{'view_searchreset'} |
| ",&text($in{'sortdir'} ? 'view_sorthead2' : 'view_sorthead1', "$in{'sortfield'}")," | \n"; print "$text{'view_sortreset'} |
| $text{'view_field'} | ". "$text{'view_data'} |
| $str[$j]->{'field'} | \n"; if ($displayconfig{'blob_mode'} && &is_blob($str[$j]) && $d[$j]) { # Show as keep/upload inputs $et .= &ui_radio($nm."_def", 1, [ [ 1, $text{'view_keep'} ], [ 0, $text{'view_set'} ] ])." ". &ui_upload($nm); } elsif ($displayconfig{'blob_mode'} && &is_blob($str[$j])) { # Show upload input $et .= &ui_upload($nm); } elsif ($str[$j]->{'type'} =~ /^enum\((.*)\)$/) { # Show as enum list $et .= &ui_select($nm, $d[$j], [ [ "", " " ], map { [ $_ ] } &split_enum($1) ], 1, 0, 1); } elsif ($str[$j]->{'type'} =~ /\((\d+)\)/) { # Show as known-size text if ($1 > 255) { # Too big, use text area $et .= &ui_textarea( $nm, $d[$j], 5, 70); } else { # Text box local $nw = $1 > 70 ? 70 : $1; $et .= &ui_textbox( $nm, $d[$j], $nw); } } elsif (&is_blob($str[$j])) { # Show as multiline text $et .= &ui_textarea($nm, $d[$j], 5, 70); } else { # Show as fixed-size text $et .= &ui_textbox($nm, $d[$j], 30); } $et .= " |
\n"; } # Show buttons to edit / delete rows if (!$keyed) { print "$text{'view_nokey'}
\n"; print &ui_form_end(); } elsif (!$check) { if ($in{'new'}) { print &ui_form_end([ [ "savenew", $text{'save'} ], [ "cancel", $text{'cancel'} ] ]); } else { print &ui_form_end([ [ "save", $text{'save'} ], [ "cancel", $text{'cancel'} ] ]); } } elsif ($total) { print &ui_form_end([ [ "edit", $text{'view_edit'} ], [ "new", $text{'view_new'} ], [ "delete", $text{'view_delete'} ] ]); } else { print &ui_form_end([ [ "new", $text{'view_new'} ] ]); } if (!$in{'field'} && $total > $displayconfig{'perpage'}) { # Show search and jump buttons print &ui_hr(); print "
";
}
mysql/config-debian-linux-2.2-* 0000644 0005671 0000012 00000000677 11220734044 016105 0 ustar jcameron wheel start_cmd=/etc/init.d/mysql start >/dev/null 2>&1 &
stop_cmd=/etc/init.d/mysql stop >/dev/null 2>&1
mysql=/usr/bin/mysql
mysqldump=/usr/bin/mysqldump
mysqlimport=/usr/bin/mysqlimport
mysql_libs=/usr/local/mysql/lib
mysqladmin=/usr/bin/mysqladmin
mysqlshow=/usr/bin/mysqlshow
perpage=25
style=0
add_mode=1
nodbi=0
access=*: *
blob_mode=0
date_subs=0
passwd_mode=0
mysql_data=/var/lib/mysql
max_dbs=50
my_cnf=/etc/mysql/my.cnf
max_text=1000
nopwd=0
mysql/save_vars.cgi 0000775 0005671 0000012 00000001367 11220734044 014371 0 ustar jcameron wheel #!/usr/local/bin/perl
# Either return to the list_vars.cgi page with new variables for editing,
# or save those that were edited
require './mysql-lib.pl';
$access{'perms'} == 1 || &error($text{'vars_ecannot'});
&ReadParse();
@d = split(/\0/, $in{'d'});
if ($in{'save'} || !@d) {
# Update edited
$count = 0;
foreach $v (keys %in) {
if ($v =~ /^value_(\S+)$/) {
&execute_sql_logged($master_db,
"set global $1 = $in{$v}");
$first ||= $1;
$count++;
}
}
&webmin_log("set", undef, $count);
&redirect("list_vars.cgi?search=".&urlize($in{'search'})."#$first");
}
else {
# Return to list page, but in edit mode
&redirect("list_vars.cgi?search=".&urlize($in{'search'})."&".
join("&", map { "d=".&urlize($_) } @d).
"#".$d[0]);
}
mysql/edit_table.cgi 0000755 0005671 0000012 00000005367 11220734044 014476 0 ustar jcameron wheel #!/usr/local/bin/perl
# edit_table.cgi
# Display the structure of some table
require './mysql-lib.pl';
&ReadParse();
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
if ($access{'edonly'}) {
&redirect("view_table.cgi?db=$in{'db'}&table=".&urlize($in{'table'}));
exit;
}
$desc = &text('table_header', "$in{'table'}", "$in{'db'}");
&ui_print_header($desc, $text{'table_title'}, "", "edit_table");
print &ui_form_start("delete_fields.cgi", "post");
print &ui_hidden("db", $in{'db'}),"\n";
print &ui_hidden("table", $in{'table'}),"\n";
@desc = &table_structure($in{'db'}, $in{'table'});
@tds = ( "width=5" );
@rowlinks = ( &select_all_link("d"), &select_invert_link("d") );
print &ui_links_row(\@rowlinks);
print &ui_columns_start([ "",
$text{'table_field'},
$text{'table_type'},
$text{'table_null'},
$text{'table_key'},
$text{'table_default'},
$text{'table_extra'} ], 100, 0, \@tds);
$i = 0;
foreach $r (@desc) {
local @cols;
push(@cols, "".&html_escape($r->{'field'})."");
push(@cols, &html_escape($r->{'type'}));
push(@cols, $r->{'null'} eq 'YES' ? $text{'yes'} : $text{'no'});
push(@cols,
$r->{'key'} eq 'PRI' ? $text{'table_pri'} :
$r->{'key'} eq 'MUL' ? $text{'table_mul'} :
$text{'table_none'});
push(@cols, &html_escape(defined($r->{'default'}) ? $r->{'default'}
: 'NULL'));
push(@cols, &html_escape($r->{'extra'}));
print &ui_checked_columns_row(\@cols, \@tds, "d", $r->{'field'});
$i++;
}
print &ui_columns_end();
print &ui_links_row(\@rowlinks);
print &ui_form_end([ [ "delete", $text{'table_delete'} ] ]);
$hiddens = &ui_hidden("db", $in{'db'}).&ui_hidden("table", $in{'table'});
print "| ",&ui_submit($text{'table_add'}); print &ui_select("type", undef, \@type_list); print " | ",&ui_form_end(); # View and edit data button print &ui_form_start("view_table.cgi", "form-data"); print $hiddens; print "",&ui_submit($text{'table_data'}); print " | ",&ui_form_end(); # CSV export button print &ui_form_start("csv_form.cgi"); print $hiddens; print "",&ui_submit($text{'table_csv'}); print " | ",&ui_form_end(); if ($access{'indexes'}) { # Create index button print &ui_form_start("edit_index.cgi"); print $hiddens; print "",&ui_submit($text{'table_index'}); print " | ",&ui_form_end(); } # Drop table button print &ui_form_start("drop_table.cgi"); print $hiddens; print "",&ui_submit($text{'table_drop'}); print " | ",&ui_form_end(); print "
\n"; } print &ui_links_row(\@rowlinks); print &ui_form_end([ [ "delete", $text{'users_delete'} ]]) if (@{$d->{'data'}}); &ui_print_footer("", $text{'index_return'}); mysql/config-redhat-linux-7.0-* 0000644 0005671 0000012 00000000617 11220734044 016127 0 ustar jcameron wheel start_cmd=/etc/rc.d/init.d/mysqld start stop_cmd=/etc/rc.d/init.d/mysqld stop mysql=/usr/bin/mysql mysqldump=/usr/bin/mysqldump mysqlimport=/usr/bin/mysqlimport mysql_libs= mysqladmin=/usr/bin/mysqladmin mysqlshow=/usr/bin/mysqlshow perpage=25 style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/cgi_args.pl 0000775 0005671 0000012 00000001101 11220734044 014011 0 ustar jcameron wheel do 'mysql-lib.pl'; sub cgi_args { my ($cgi) = @_; if ($cgi eq 'list_vars.cgi') { # Works with no args return ''; } elsif ($cgi eq 'edit_dbase.cgi' || $cgi eq 'backup_form.cgi' || $cgi eq 'exec_form.cgi') { # Use default DB return 'db=mysql'; } elsif ($cgi eq 'table_form.cgi') { return 'db=mysql&fields=4'; } elsif ($cgi eq 'edit_view.cgi') { return 'db=mysql&new=1'; } elsif ($cgi eq 'edit_table.cgi' || $cgi eq 'view_table.cgi') { return 'db=mysql&table=user'; } elsif ($cgi eq 'edit_field.cgi') { return 'db=mysql&table=user&idx=0'; } return undef; } mysql/config.info.fi 0000644 0005671 0000012 00000000000 11220734044 014405 0 ustar jcameron wheel mysql/edit_tpriv.cgi 0000755 0005671 0000012 00000004234 11220734044 014543 0 ustar jcameron wheel #!/usr/local/bin/perl # edit_tpriv.cgi # Display a form for editing or creating new table permissions require './mysql-lib.pl'; &ReadParse(); $access{'perms'} || &error($text{'perms_ecannot'}); if (defined($in{'db'})) { $in{'db'} =~ /^\S+$/ || &error($text{'tpriv_edb'}); &ui_print_header(undef, $text{'tpriv_title1'}, "", "create_tpriv"); } else { $d = &execute_sql_safe($master_db, "select * from tables_priv order by table_name"); $u = $d->{'data'}->[$in{'idx'}]; $access{'perms'} == 1 || &can_edit_db($u->[1]) || &error($text{'perms_edb'}); &ui_print_header(undef, $text{'tpriv_title2'}, "", "edit_tpriv"); } print &ui_form_start("save_tpriv.cgi"); if ($in{'db'}) { print &ui_hidden("db", $in{'db'}); } else { print &ui_hidden("oldhost", $u->[0]); print &ui_hidden("olddb", $u->[1]); print &ui_hidden("olduser", $u->[2]); print &ui_hidden("oldtable", $u->[3]); } print &ui_table_start($text{'tpriv_header'}, undef, 2); # Apply to DB print &ui_table_row($text{'tpriv_db'}, $in{'db'} || $u->[1]); # Apply to table print &ui_table_row($text{'tpriv_table'}, &ui_select("table", $in{'db'} ? '' : $u->[3], [ $in{'db'} ? ( [ '' ] ) : ( ), &list_tables($in{'db'} || $u->[1]) ], 1, 0, 1)); # Apply to user print &ui_table_row($text{'tpriv_user'}, &ui_opt_textbox("user", $u->[2], 20, $text{'tpriv_anon'})); # Apply to host print &ui_table_row($text{'tpriv_host'}, &ui_opt_textbox("host", $u->[0] eq '%' ? '' : $u->[0], 40, $text{'tpriv_any'})); # Table permissions print &ui_table_row($text{'tpriv_perms1'}, &ui_select("perms1", [ split(/,/, $u->[6]) ], [ 'Select','Insert','Update','Delete','Create', 'Drop','Grant','References','Index','Alter', ($mysql_version >= 5 ? ('Create View','Show view') : ( )) ], 4, 1)); # Field permissions print &ui_table_row($text{'tpriv_perms2'}, &ui_select("perms2", [ split(/,/, $u->[7]) ], [ 'Select','Insert','Update','References' ], 4, 1)); print &ui_table_end(); print &ui_form_end([ $in{'db'} ? ( [ undef, $text{'create'} ] ) : ( [ undef, $text{'save'} ], [ 'delete', $text{'delete'} ] ) ]); &ui_print_footer('list_tprivs.cgi', $text{'tprivs_return'}, "", $text{'index_return'}); mysql/config.info 0000644 0005671 0000012 00000002647 11220734044 014033 0 ustar jcameron wheel line1=Configurable options,11 login=Administration login,3,Automatic pass=Administration password,12 perpage=Number of rows to display per page,0,5 style=Show databases and tables as,1,1-List,0-Icons,2-Names only add_mode=Use vertical row editing interface,1,1-Yes,0-No blob_mode=Show blob and text fields as,1,0-Data in table,1-Links to download nodbi=Use DBI to connect if available?,1,0-Yes,1-No nopwd=Use MYSQL_PWD variable to pass password?,1,0-Yes,1-No date_subs=Do strftime substitution of backup destinations?,1,1-Yes,0-No passwd_mode=Password hashing mode,1,1-Old,0-Default encoding=Encoding for database content,3,Default (from current language) max_dbs=Maximum number of databases and tables to display,0,5 max_text=Maximum display length for text fields,3,Unlimited charset=Character set for MySQL data,15,charset line2=System configuration,11 mysqlshow=Path to mysqlshow command,0 mysqladmin=Path to mysqladmin command,0 mysql=Path to mysql command,0 mysqldump=Path to mysqldump command,0 mysqlimport=Path to mysqlimport command,0 mysqld=Path to mysqld command,3,Automatic start_cmd=Command to start MySQL server,0 stop_cmd=Command to stop MySQL server,3,Automatic mysql_libs=Path to MySQL shared libraries directory,3,None mysql_data=Path to MySQL databases directory,3,None host=MySQL host to connect to,3,localhost port=MySQL port to connect to,3,Default sock=MySQL socket file,3,Default my_cnf=MySQL configuration file,0 mysql/negativeacl 0000664 0005671 0000012 00000000010 11220734044 014076 0 ustar jcameron wheel files=0 mysql/config.info.hu 0000644 0005671 0000012 00000002367 11220734044 014445 0 ustar jcameron wheel line1=Konfigurcis belltsok,11 login=Adminisztrtori felhasznli nv,0 pass=Adminisztrtori jelsz,0 perpage=A megjelentend sorok szma oldalanknt,0 style=Mutassam az adatbzisokat s tblkat mint,1,1-Listaknt,0-Ikonknt add_mode=Vertiklis sor szerkesztsi kinzet,1,1-Igen,0-Nem blob_mode=Jelentse meg a blob s szveges mezt mint,1,0-Adatknt a tblban,1-Linkknt letltsre nodbi=Hasznljam a DBI -t csatlakozsra ha ltezik?,1,0-Igen,1-Nem date_subs=Csinljon strftime cserlt a msolati clon?1,1-Igen,0-Nem passwd_mode=Jelsz kdolsi md,1,1-Rgi,0-ltalnos encoding=Elkdolja az adatbzis tartalmat,3,ltalnos max_dbs=Maximlis adatbzis s tbla megjelents,0 line2=Rendszer belltsok,11 mysqlshow=A mysqlshow parancs tvonala,0 mysqladmin=A mysqladmin parancs tvonala,0 mysql=A mysql parancs tvonala,0 mysqldump=A mysqldump parancs tvonala,0 mysqlimport=A mysqlimport parancs tvonala,0 start_cmd=A mysql szerver indt parancssora,0 stop_cmd=A mysql szerver lellt parancssora,3,Automatikus mysql_libs=A mysql megosztott knyvtrainak tvonala,3,Nincs mysql_data=A MySQL adatbizsok knyvtra,3,Nincs host=MySQL hoszt a csatlakozshoz,3,localhost port=MySQL port a csatlakozshoz,3,ltalnos sock=MySQL socket file,3,ltalnos mysql/config-redhat-linux 0000644 0005671 0000012 00000000615 11220734044 015474 0 ustar jcameron wheel start_cmd=/etc/rc.d/init.d/mysql start stop_cmd=/etc/rc.d/init.d/mysql stop mysql=/usr/bin/mysql mysqldump=/usr/bin/mysqldump mysqlimport=/usr/bin/mysqlimport mysql_libs= mysqladmin=/usr/bin/mysqladmin mysqlshow=/usr/bin/mysqlshow perpage=25 style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/lib/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/config.info.nl 0000644 0005671 0000012 00000003014 11220734044 014430 0 ustar jcameron wheel line1=Configureerbare opties,11 login=Administratie login,3,Automatisch pass=Administratie wachtwoord,12 perpage=Aantal rijen om te laten zien per pagina,0,5 style=Laat databasen en tabellen zien als,1,1-Lijst,0-Iconen,2-Alleen namen add_mode=Gebruik een verticale rij bewerkings interface,1,1-Ja,0-Nee blob_mode=Laat blob en tekst velden zien als,1,0-Data in tabel,1-Links om te downloaden nodbi=Gebruik DBI om te verbinden indien beschikbaar?,1,0-Ja,1-Nee date_subs=Doe een strftime toevoeging van backup bestemmingen?,1,1-Ja,0-Nee passwd_mode=Wachtwoord hashing mode,1,1-Oud,0-Standaard encoding=Versleutelen van database inhoud,3,Standaard ( van huidig taal) max_dbs=Maximum aantal databases en tabellen om te laten zien,0,5 max_text=Maximum lengte voor tekst velden om te laten zien,3,Ongelimiteerd charset=Karakterset voor MySQL data,15,charset line2=Systeem configuratie,11 mysqlshow=Pad naar de mysqlshow opdracht,0 mysqladmin=Pad naar de mysqladmin opdracht,0 mysql=Pad naar de mysql opdracht,0 mysqldump=Pad naar de mysqldump opdracht,0 mysqlimport=Pad naar de mysqlimport opdracht,0 mysqld=Pad naar de mysqld opdracht,3,Automatisch start_cmd=Opdracht om MySQL server te starten,0 stop_cmd=Opdracht om MySQL server te stoppen,3,Automatisch mysql_libs=Pad naar de MySQL gedeelde bibliotheken directory,3,Geen mysql_data=Pad naar de MySQL databasis directory,3,Geen host=MySQL host om mee te verbinden,3,localhost port=MySQL poort om mee te verbinden,3,Standaard sock=MySQL socket file,3,Standaard my_cnf=MySQL configuratie file,0 mysql/config-solaris-9 0000664 0005671 0000012 00000000736 11220734044 014720 0 ustar jcameron wheel start_cmd=cd /opt/sfw/mysql ; (./bin/safe_mysqld || ./bin/mysqld_safe) & perpage=25 mysql=/opt/sfw/mysql/bin/mysql mysqldump=/opt/sfw/mysql/bin/mysqldump mysqlimport=/opt/sfw/mysql/bin/mysqlimport pass=foo mysqlshow=/opt/sfw/mysql/bin/mysqlshow login=root mysql_libs=/opt/sfw/mysql/lib mysqladmin=/opt/sfw/mysql/bin/mysqladmin style=0 add_mode=1 nodbi=0 access=*: * blob_mode=0 date_subs=0 passwd_mode=0 mysql_data=/var/mysql max_dbs=50 my_cnf=/etc/my.cnf max_text=1000 nopwd=0 mysql/drop_table.cgi 0000755 0005671 0000012 00000002366 11220734044 014511 0 ustar jcameron wheel #!/usr/local/bin/perl # drop_table.cgi # Delete an existing table require './mysql-lib.pl'; &ReadParse(); &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'}); $access{'edonly'} && &error($text{'dbase_ecannot'}); if ($in{'confirm'}) { # Drop the table &error_setup($text{'tdrop_err'}); &execute_sql_logged($in{'db'}, "drop table "."estr($in{'table'})); &webmin_log("delete", "table", $in{'table'}, \%in); &redirect("edit_dbase.cgi?db=$in{'db'}"); } else { # Ask the user if he is sure.. &ui_print_header(undef, $text{'tdrop_title'}, ""); @tables = &list_tables($in{'db'}); $d = &execute_sql($in{'db'}, "select count(*) from "."estr($in{'table'})); $rows = $d->{'data'}->[0]->[0]; print "
\n"; print "
\n";
}
&show_button();
&ui_print_footer("", $text{'index_return'});
sub show_button
{
print &ui_form_start("edit_tpriv.cgi");
print &ui_submit($text{'tprivs_add'});
local @dbs = sort { $a cmp $b } &list_databases();
if (@dbs > $max_dbs) {
# Just show DB name
print &ui_textbox("db", undef, 20);
}
else {
# DB selector
print &ui_select("db", undef,
[ grep { $access{'perms'} == 1 || &can_edit_db($_) }
&list_databases() ]);
}
print &ui_form_end();
}
mysql/config-mandrake-linux-10.1-* 0000644 0005671 0000012 00000000617 11220734044 016515 0 ustar jcameron wheel start_cmd=/etc/rc.d/init.d/mysqld start
stop_cmd=/etc/rc.d/init.d/mysqld stop
mysql=/usr/bin/mysql
mysqldump=/usr/bin/mysqldump
mysqlimport=/usr/bin/mysqlimport
mysql_libs=
mysqladmin=/usr/bin/mysqladmin
mysqlshow=/usr/bin/mysqlshow
perpage=25
style=0
add_mode=1
nodbi=0
access=*: *
blob_mode=0
date_subs=0
passwd_mode=0
mysql_data=/var/lib/mysql
max_dbs=50
my_cnf=/etc/my.cnf
max_text=1000
nopwd=0
mysql/install_check.pl 0000775 0005671 0000012 00000000726 11220734044 015052 0 ustar jcameron wheel # install_check.pl
do 'mysql-lib.pl';
# is_installed(mode)
# For mode 1, returns 2 if the server is installed and configured for use by
# Webmin, 1 if installed but not configured, or 0 otherwise.
# For mode 0, returns 1 if installed, 0 if not
sub is_installed
{
return 0 if (!-x $config{'mysqladmin'} || !-x $config{'mysql'});
return 0 if (&get_mysql_version(\$dummy) <= 0);
if ($_[0]) {
# Check if can login
return 2 if (&is_mysql_running() == 1);
}
return 1;
}
mysql/mysql-lib.pl 0000775 0005671 0000012 00000103010 11220734044 014146 0 ustar jcameron wheel # mysql-lib.pl
# Common MySQL functions
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
if ($config{'mysql_libs'}) {
$ENV{$gconfig{'ld_env'}} .= ':' if ($ENV{$gconfig{'ld_env'}});
$ENV{$gconfig{'ld_env'}} .= $config{'mysql_libs'};
}
if ($config{'mysql'} =~ /^(\S+)\/bin\/mysql$/ && $1 ne '' && $1 ne '/usr') {
$ENV{$gconfig{'ld_env'}} .= ':' if ($ENV{$gconfig{'ld_env'}});
$ENV{$gconfig{'ld_env'}} .= "$1/lib";
}
if ($module_info{'usermin'}) {
# Usermin always runs this module as the logged-in Unix user.
# %access is faked up to prevent attempts to create and delete DBs
&switch_to_remote_user();
&create_user_config_dirs();
%access = ( 'create', 0,
'delete', 0,
'bpath', '/',
'buser', 'root',
'edonly', 0 );
if ($config{'useident'} ne 'yes') {
$mysql_login = $userconfig{'login'};
$mysql_pass = $userconfig{'pass'};
}
if (open(VERSION, "$user_module_config_directory/version")) {
chop($mysql_version =
La pgina principal mostra una llista d'icones de bases de dades a la
part superior, amb un enlla per afegir-ne una de nova a sota. Tot
servidor MySQL t almenys la base de dades mysql, que emmagatzema
les taules de configuraci i control d'accs. Ms avall de les bases
de dades hi ha unes icones per configurar el control d'accs, i a baix
de tot hi ha un bot per engegar o aturar el servidor de bases de dades.
Per afegir nous permisos de columna, primer has de seleccionar la base
de dades i la taula on est continguda la columna fent servir el formulari
del peu de la pgina. Llavors, fes clic sobre el bot Afegeix permisos
nous per treure un formulari per seleccionar la columna i altres
detalls.
nW[sƪv, znbݿܸƪҦbƮw, MUW[svsHoܪƪLӸ`.
DnebWCXFƮwϥ, P@ӼW[sƮws. C MySQL Aܤ֦@ӥs mysql Ʈw, oxsFպAPsC. eUhOΥHպAsϥ, ݫhO/ҰʸƮwAs.
Users may not login from any hosts other than those specified in
User Permissions. However, you may grant different permissions
for different hosts by creating multiple rows for the same user.
mysql/help/users.it.html 0000755 0005671 0000012 00000001225 11220734044 015275 0 ustar jcameron wheel
Visto che i permessi impostati per ciascun utente riguarderanno tutti i database buona norma non garantire agli utenti in questa pagina tutti i permessi. E' invece pi opportuno usare la pagina relativa ai Permessi sui database per impostare i diritti di accesso per ciascun database agli utenti.
ϥΪ̤qwϥΪv~DnJƮw. M, ziHgѦboP@ӨϥΪ̫إߦhӤPDPv, ϱoϥΪ̨ӦۤPDɦPv.
在下面的按鈕則使用以在這個資料庫中建立新的資料表, 在資料庫中資料表執行 SQL 查詢與丟棄這個資料庫與其中的所有資料. 使用丟棄資料庫按鈕時要特別小心, 因為這是不可復原的!
Per afegir nous permisos de taules, primer has de seleccionar la base de
dades on est continguda la taula, utilitzant el formulari del peu de la
pgina. Desprs, fes clic sobre el bot Afegeix permisos nous
per obrir un formulari per seleccionar la taula i altres detalls.
\n";
}
# select_db(db)
sub select_db
{
local $rv;
local @dbs = &list_databases();
local $d;
if ($access{'perms'} == 2 && $access{'dbs'} ne '*') {
# Can only select his own databases
$rv = &ui_select("dbs", $_[0],
[ grep { &can_edit_db($_) } @dbs ], 1, 0, $_[0] ? 1 : 0);
}
else {
# Can select any databases
local $ind = &indexof($_[0],@dbs) >= 0;
$rv = &ui_radio("db_def", $_[0] eq '%' || $_[0] eq '' ? 1 :
$ind ? 2 : 0,
[ [ 1, $text{'host_any'} ],
[ 2, $text{'host_sel'}." ".
&ui_select("dbs", $_[0], \@dbs) ],
[ 0, $text{'host_otherdb'}." ".
&ui_textbox("db", $_[0] eq '%' || $_[0] eq '' ||
$ind ? '' : $_[0], 30) ] ]);
}
return $rv;
}
sub quote_table
{
return "estr($_[0]);
}
# quotestr(string)
sub quotestr
{
local $rv = $_[0];
if (&supports_quoting()) {
return "`$rv`";
}
else {
return $rv;
}
}
# escapestr(string)
# Returns a string with quotes escaped, for use in SQL
sub escapestr
{
local $rv = $_[0];
$rv =~ s/'/''/g;
return $rv;
}
# supports_quoting()
# Returns 1 if running mysql version 3.23.6 or later
sub supports_quoting
{
if ($mysql_version =~ /^(\d+)\.(\d+)\.(\d+)$/ &&
($1 > 3 || ($1 == 3 && $2 > 23) || ($1 == 3 && $2 == 23 && $3 >= 6))) {
return 1;
}
elsif ($mysql_version > 4) {
return 1;
}
else {
return 0;
}
}
# supports_routines()
# Returns 1 if mysqldump supports routines
sub supports_routines
{
local $out = &backquote_command("$config{'mysqldump'} --help 2>&1 = 0) {
# Has information_schema DB .. but does it have views?
local @ist = &list_tables("information_schema", 1, 1);
if (&indexoflc("views", @ist) >= 0) {
$supports_views_cache = 1;
}
else {
$supports_views_cache = 0;
}
}
else {
$supports_views_cache = 0;
}
}
}
return $supports_views_cache;
}
# supports_variables()
# Returns 1 if running mysql version 4.0.3 or later
sub supports_variables
{
if ($mysql_version =~ /^(\d+)\.(\d+)\.(\d+)$/ &&
($1 > 4 || ($1 == 4 && $2 > 0) || ($1 == 4 && $2 == 0 && $3 >= 3))) {
return 1;
}
elsif ($mysql_version > 4) {
return 1;
}
else {
return 0;
}
}
# supports_env_pass()
# Returns 1 if passing the password via an environment variable is supported
sub supports_env_pass
{
if ($mysql_version >= 4.1 && !$config{'nopwd'}) {
# Theortically possible .. but don't do this if ~/.my.cnf contains
# a [client] block with password= in it
my @uinfo = getpwuid($<);
foreach my $cf ($config{'my_cnf'}, "$uinfo[7]/.my.cnf",
"$ENV{'HOME'}/.my.cnf") {
next if (!$cf || !-r $cf);
local @cf = &parse_mysql_config($cf);
local $client = &find("client", \@cf);
next if (!$client);
local $password = &find("password", $client->{'members'});
return 0 if ($password ne '');
}
return 1;
}
return 0;
}
# working_env_pass()
# Returns 1 if MYSQL_PWD can be used to pass the password to mysql
sub working_env_pass
{
return 1 if (!&supports_env_pass()); # Not even used
local $config{'nodbi'} = 1;
local $data;
local $main::error_must_die = 1;
eval { $data = &execute_sql_safe(undef, "select version()") };
return $@ || !$data ? 0 : 1;
}
# user_priv_cols()
# Returns the number of columns used for privileges in the user table
sub user_priv_cols
{
if (!$user_priv_cols) {
local @str = &table_structure("mysql", "user");
local $s;
foreach $s (@str) {
$user_priv_cols++ if ($s->{'field'} =~ /_priv/i);
}
}
return $user_priv_cols;
}
# db_priv_cols()
# Returns the number of columns used for privileges in the db table
sub db_priv_cols
{
if (!$db_priv_cols) {
local @str = &table_structure("mysql", "db");
local $s;
foreach $s (@str) {
$db_priv_cols++ if ($s->{'field'} =~ /_priv/i);
}
}
return $db_priv_cols;
}
# host_priv_cols()
# Returns the number of columns used for privileges in the db table
sub host_priv_cols
{
if (!$host_priv_cols) {
local @str = &table_structure("mysql", "host");
local $s;
foreach $s (@str) {
$host_priv_cols++ if ($s->{'field'} =~ /_priv/i);
}
}
return $host_priv_cols;
}
sub is_blob
{
return $_[0]->{'type'} =~ /(text|blob)$/i;
}
# get_mysql_version(&out)
# Returns a version number, undef if one cannot be found, or -1 for a .so
# problem
sub get_mysql_version
{
local $out = &backquote_command("\"$config{'mysql'}\" -V 2>&1");
${$_[0]} = $out if ($_[0]);
if ($out =~ /lib\S+\.so/) {
return -1;
}
elsif ($out =~ /distrib\s+((3|4|5|6)\.[0-9\.]*)/i) {
return $1;
}
else {
return undef;
}
}
# date_subs(filename)
# Does strftime-style date substitutions on a filename, if enabled
sub date_subs
{
if ($config{'date_subs'}) {
eval "use POSIX";
eval "use posix" if ($@);
local @tm = localtime(time());
&clear_time_locale();
local $rv = strftime($_[0], @tm);
&reset_time_locale();
return $rv;
}
else {
return $_[0];
}
}
# execute_before(db, handle, escape, path, db-for-config)
# Executes the before-backup command for some DB, and sends output to the
# given file handle. Returns 1 if the command suceeds, or 0 on failure
sub execute_before
{
local $cmd = $config{'backup_before_'.$_[4]};
if ($cmd) {
$ENV{'BACKUP_FILE'} = $_[3];
local $h = $_[1];
local $out;
local $rv = &execute_command($cmd, undef, \$out, \$out);
if ($h && $out) {
print $h $_[2] ? "\n";
foreach $s ([0, $mid-1], [$mid, @{$_[2]}-1]) {
print " \n";
# Header
local @tds = $_[1] ? ( "width=5" ) : ( );
if ($s->[0] <= $s->[1]) {
local @hcols;
foreach $t (@{$_[0]}) {
push(@hcols, $t);
}
print &ui_columns_start(\@hcols, 100, 0, \@tds);
}
for($i=$s->[0]; $i<=$s->[1]; $i++) {
local @cols;
push(@cols, "$_[3]->[$i]");
for($j=4; $j<@_; $j++) {
push(@cols, $_[$j]->[$i]);
}
if ($_[1]) {
print &ui_checked_columns_row(\@cols, \@tds, "d", $_[1]->[$i]);
}
else {
print &ui_columns_row(\@cols, \@tds);
}
}
if ($s->[0] <= $s->[1]) {
print &ui_columns_end();
}
print " \n";
}
print "".&html_escape($out)."
" : $out;
}
return !$rv;
}
return 1;
}
# execute_after(db, handle, escape, path, db-for-config)
sub execute_after
{
local $cmd = $config{'backup_after_'.$_[4]};
if ($cmd) {
$ENV{'BACKUP_FILE'} = $_[3];
local $h = $_[1];
local $out;
local $rv = &execute_command($cmd, undef, \$out, \$out);
if ($h && $out) {
print $h $_[2] ? "".&html_escape($out)."
" : $out;
}
return !$rv;
}
return 1;
}
# show_table_form(count)
sub show_table_form
{
print &ui_columns_start([ $text{'field_name'}, $text{'field_type'},
$text{'field_size'}, $text{'table_nkey'},
$text{'field_auto'}, $text{'field_null'},
$text{'field_unsigned'}, $text{'field_default'} ]);
local $i;
for($i=0; $i<$_[0]; $i++) {
local @cols;
push(@cols, &ui_textbox("field_$i", undef, 20));
push(@cols, &ui_select("type_$i", "", [ "", @type_list ]));
push(@cols, &ui_textbox("size_$i", undef, 10));
push(@cols, &ui_checkbox("key_$i", 1, $text{'yes'}, 0));
push(@cols, &ui_checkbox("auto_$i", 1, $text{'yes'}, 0));
push(@cols, &ui_checkbox("null_$i", 1, $text{'yes'}, 1));
push(@cols, &ui_checkbox("unsigned_$i", 1, $text{'yes'}, 0));
push(@cols, &ui_textbox("default_$i", undef, 20));
print &ui_columns_row(\@cols);
}
print &ui_columns_end();
}
# parse_table_form(&extrafields, tablename)
sub parse_table_form
{
local @fields = @{$_[0]};
local $i;
local (@auto, @pri);
for($i=0; defined($in{"field_$i"}); $i++) {
next if (!$in{"field_$i"});
$in{"field_$i"} =~ /^\S+$/ ||
&error(&text('table_efield', $in{"field_$i"}));
$in{"type_$i"} || &error(&text('table_etype', $in{"field_$i"}));
if ($in{"type_$i"} eq 'enum' || $in{"type_$i"} eq 'set') {
local @ev = split(/\s+/, $in{"size_$i"});
@ev || &error(&text('table_eenum', $in{"type_$i"},
$in{"field_$i"}));
$in{"size_$i"} = join(",", map { "'$_'" } @ev);
}
if ($in{"size_$i"}) {
push(@fields, sprintf "%s %s(%s)",
"estr($in{"field_$i"}), $in{"type_$i"},$in{"size_$i"});
}
else {
push(@fields, sprintf "%s %s",
"estr($in{"field_$i"}), $in{"type_$i"});
}
if ($in{"unsigned_$i"}) {
$fields[@fields-1] .= " unsigned";
}
if (!$in{"null_$i"}) {
$fields[@fields-1] .= " not null";
}
if ($in{"key_$i"}) {
$in{"null_$i"} && &error(&text('table_epnull',$in{"field_$i"}));
push(@pri, $in{"field_$i"});
}
if ($in{"auto_$i"}) {
push(@auto, $fields[@fields-1]);
push(@autokey, $in{"key_$i"});
}
if ($in{"default_$i"}) {
$fields[@fields-1] .= " default '".$in{"default_$i"}."'";
}
}
@auto < 2 || &error($text{'table_eauto'});
@fields || &error($text{'table_enone'});
local @sql;
local $sql = "create table "."estr($_[1])." (".join(",", @fields).")";
$sql .= " type = $in{'type'}" if ($in{'type'});
push(@sql, $sql);
if (@pri) {
# Setup primary fields too
push(@sql, "alter table "."estr($_[1])." add primary key (".
join(",", map { "estr($_) } @pri).")");
}
if (@auto) {
# Make field auto-increment
push(@sql, "alter table "."estr($_[1]).
" modify $auto[0] auto_increment ".
($autokey[0] ? "" : "unique"));
}
return @sql;
}
# execute_sql_file(database, file, [user, pass], [unix-user])
# Executes some file of SQL commands, and returns the exit status and output
sub execute_sql_file
{
if (&is_readonly_mode()) {
return (0, undef);
}
local ($db, $file, $user, $pass) = @_;
local $authstr = &make_authstr($user, $pass);
local $cmd = "$config{'mysql'} $authstr -t ".quotemeta($db)." <".quotemeta($file);
-r $file || return (1, "$file does not exist");
if ($_[4] && $_[4] ne 'root' && $< == 0) {
# Restoring as a Unix user
$cmd = &command_as_user($_[4], 0, $cmd);
}
local $out = &backquote_logged("$cmd 2>&1");
local @rv = ($?, $? ? $out || "$cmd failed" : $out);
&make_authstr(); # Put back old password environment variable
return @rv;
}
# start_mysql()
# Starts the MySQL database server, and returns undef on success or an
# error message on failure.
sub start_mysql
{
local $temp = &transname();
local $rv = &system_logged("($config{'start_cmd'}) >$temp 2>&1");
local $out = `cat $temp`; unlink($temp);
if ($rv || $out =~ /failed/i) {
return "$out
";
}
return undef;
}
# stop_mysql()
# Halts the MySQL database server, and returns undef on success or an
# error message on failure.
sub stop_mysql
{
local $out;
if ($config{'stop_cmd'}) {
$out = &backquote_logged("$config{'stop_cmd'} 2>&1");
}
else {
$out = &backquote_logged("$config{'mysqladmin'} $authstr shutdown 2>&1");
}
if ($? || $out =~ /failed/i) {
return "$out
";
}
return undef;
}
# split_enum(type)
# Returns a list of allowed values for an enum
sub split_enum
{
local ($type) = @_;
if ($type =~ /^(enum|set)\((.*)\)$/) {
$type = $2;
}
local $esize = $type;
local @ev;
while($esize =~ /^'([^']*)'(,?)(.*)$/) {
push(@ev, $1);
$esize = $3;
}
return @ev;
}
# Returns 1 if the mysql server being managed is on this system
sub is_mysql_local
{
return $config{'host'} eq '' || $config{'host'} eq 'localhost' ||
$config{'host'} eq &get_system_hostname() ||
&to_ipaddress($config{'host'}) eq &to_ipaddress(&get_system_hostname());
}
# get_mysql_config()
# Returns the parsed my.cnf file
sub get_mysql_config
{
if (!defined(@mysql_config_cache)) {
if (!-r $config{'my_cnf'}) {
return undef;
}
@mysql_config_cache = &parse_mysql_config($config{'my_cnf'});
}
return \@mysql_config_cache;
}
# parse_mysql_config(file)
# Reads one MySQL config file
sub parse_mysql_config
{
local ($file) = @_;
local @rv;
local $sect;
local $lnum = 0;
local $lref = &read_file_lines($file, 1);
local $_;
foreach (@$lref) {
s/\r|\n//g;
s/#.*$//;
s/\s+$//;
if (/^\s*\[(\S+)\]$/) {
# Start of a section
$sect = { 'name' => $1,
'members' => [ ],
'file' => $file,
'line' => $lnum,
'eline' => $lnum };
push(@rv, $sect);
}
elsif (/^\s*(\S+)\s*=\s*(.*)$/ && $sect) {
# Variable in a section
push(@{$sect->{'members'}},
{ 'name' => $1,
'value' => $2,
'file' => $file,
'line' => $lnum });
$sect->{'eline'} = $lnum;
}
elsif (/^\s*(\S+)$/ && $sect) {
# Single directive in a section
push(@{$sect->{'members'}},
{ 'name' => $1,
'file' => $file,
'line' => $lnum });
$sect->{'eline'} = $lnum;
}
$lnum++;
}
return @rv;
}
# find(name, &conf)
sub find
{
local ($name, $conf) = @_;
local @rv = grep { lc($_->{'name'}) eq lc($name) } @$conf;
return wantarray ? @rv : $rv[0];
}
# find_value(name, &conf)
sub find_value
{
local ($name, $conf) = @_;
local @rv = map { $_->{'value'} } &find($name, $conf);
return wantarray ? @rv : $rv[0];
}
# save_directive(&conf, §ion, name, &values)
# Updates one or multiple lines in a my.cnf section
sub save_directive
{
local ($conf, $sect, $name, $values) = @_;
local @old = &find($name, $sect->{'members'});
local $lref = &read_file_lines($config{'my_cnf'});
for(my $i=0; $i<@old || $i<@$values; $i++) {
local $old = $old[$i];
local $line = $values->[$i] eq "" ? $name :
"$name = $values->[$i]";
if ($old && defined($values->[$i])) {
# Updating
$lref->[$old->{'line'}] = $line;
$old->{'value'} = $values->[$i];
}
elsif (!$old && defined($values->[$i])) {
# Adding
splice(@$lref, $sect->{'eline'}+1, 0, $line);
&renumber($conf, $sect->{'eline'}, 1);
push(@{$sect->{'members'}},
{ 'name' => $name,
'value' => $values->[$i],
'line' => $sect->{'eline'}+1 });
}
elsif ($old && !defined($values->[$i])) {
# Deleting
splice(@$lref, $old->{'line'}, 1);
&renumber($conf, $old->{'line'}, -1);
@{$sect->{'members'}} = grep { $_ ne $old }
@{$sect->{'members'}};
}
}
}
sub renumber
{
local ($conf, $line, $offset) = @_;
foreach my $sect (@$conf) {
$sect->{'line'} += $offset if ($sect->{'line'} >= $line);
$sect->{'eline'} += $offset if ($sect->{'eline'} >= $line);
foreach my $m (@{$sect->{'members'}}) {
$m->{'line'} += $offset if ($m->{'line'} >= $line);
}
}
}
# parse_set_variables(value, ...)
# Returns a hash of variable mappings
sub parse_set_variables
{
local %vars;
foreach my $v (@_) {
if ($v =~ /^(\S+)=(\S+)$/) {
$vars{$1} = $2;
}
}
return %vars;
}
sub mysql_size_input
{
local ($name, $value) = @_;
local $units;
if ($value =~ /^(\d+)([a-z])$/i) {
$value = $1;
$units = $2;
}
$units = "" if ($units eq "b");
return &ui_textbox($name, $value, 8)."\n".
&ui_select($name."_units", $units,
[ [ "", "bytes" ], [ "K", "kB" ],
[ "M", "MB" ], [ "G", "GB" ] ]);
}
# list_indexes(db)
# Returns the names of all indexes in some database
sub list_indexes
{
local ($db) = @_;
local (@rv, $r);
foreach my $table (&list_tables($db)) {
local $s = &execute_sql_safe($db, "show index from "."estr($table));
local (%tp, $i);
for($i=0; $i<@{$s->{'titles'}}; $i++) {
$tp{lc($s->{'titles'}->[$i])} = $i;
}
foreach $r (@{$s->{'data'}}) {
if ($r->[$tp{'key_name'}] ne 'PRIMARY') {
push(@rv, $r->[$tp{'key_name'}]);
}
}
}
return &unique(@rv);
}
# index_structure(db, indexname)
# Returns information on an index
sub index_structure
{
local ($db, $index) = @_;
local (@rv, $r);
local $info;
foreach my $table (&list_tables($db)) {
local $s = &execute_sql_safe($db, "show index from "."estr($table));
local (%tp, $i);
for($i=0; $i<@{$s->{'titles'}}; $i++) {
$tp{lc($s->{'titles'}->[$i])} = $i;
}
foreach $r (@{$s->{'data'}}) {
if ($r->[$tp{'key_name'}] eq $index) {
# Found some info
$info->{'table'} = $r->[$tp{'table'}];
$info->{'name'} = $index;
$info->{'type'} = lc($r->[$tp{'index_type'}]) ||
lc($r->[$tp{'comment'}]);
push(@{$info->{'cols'}}, $r->[$tp{'column_name'}]);
}
}
}
return $info;
}
# list_views(db)
# Returns the names of all views in some database
sub list_views
{
local ($db) = @_;
local @rv;
local $d = &execute_sql($db, "select table_schema,table_name from information_schema.views where table_schema = ?", $db);
foreach $r (@{$d->{'data'}}) {
push(@rv, $r->[1]);
}
return @rv;
}
# view_structure(db, viewname)
# Returns information about a view
sub view_structure
{
local ($db, $view) = @_;
local $info = { 'name' => $view };
local $d = &execute_sql($db, "show create view $view");
local $c = $d->{'data'}->[0]->[1];
if ($c =~ /algorithm\s*=\s*(\S+)/i) {
$info->{'algorithm'} = lc($1);
}
if ($c =~ /definer\s*=\s*`(\S+)`\@`(\S+)`/i) {
$info->{'definer'} = "$1\@$2";
}
elsif ($c =~ /definer\s*=\s*(\S+)/i) {
$info->{'definer'} = $1;
}
if ($c =~ /sql\s+security\s+(\S+)/i) {
$info->{'security'} = lc($1);
}
if ($c =~ s/\s+with\s+(cascaded|local)\s+check\s+option//i) {
$info->{'check'} = lc($1);
}
if ($c =~ /view\s+(`\S+`|\S+)\s+as\s+(.*)/i) {
$info->{'query'} = $2;
}
return $info;
}
# list_character_sets([db])
# Returns a list of supported character sets. Each row is an array ref of
# a code and name
sub list_character_sets
{
local @rv;
local $db = $_[0] || $master_db;
if ($mysql_version < 4.1) {
local $d = &execute_sql($db, "show variables like 'character_sets'");
@rv = map { [ $_, $_ ] } split(/\s+/, $d->{'data'}->[0]->[1]);
}
else {
local $d = &execute_sql($db, "show character set");
@rv = map { [ $_->[0], $_->[1] ] } @{$d->{'data'}};
}
return sort { lc($a) cmp lc($b) } @rv;
}
# list_system_variables()
# Returns a list of all system variables, and their default values
sub list_system_variables
{
local $mysqld = $config{'mysqld'};
if (!$mysqld) {
# Mysqld path not in config .. guess from mysql path
$mysqld = $config{'mysql'};
$mysqld =~ s/mysql$/mysqld/g;
$mysqld =~ s/bin/sbin/g;
if (!-x $mysqld) {
$mysqld = $config{'mysql'};
$mysqld =~ s/mysql$/mysqld/g;
$mysqld =~ s/bin/libexec/g;
if (!-x $mysqld) {
# Look in Webmin path
&error($mysqld);
$mysqld = &has_command("mysqld");
}
}
}
return ( ) if (!$mysqld);
# Read supported variables
local @rv;
&open_execute_command(MYSQLD, "$mysqld --verbose --help", 1, 1);
while(
mysql/help/edit_tpriv.ca.html 0000644 0005671 0000012 00000000527 11220734044 016255 0 ustar jcameron wheel
mysql/help/create_field.sv.html 0000644 0005671 0000012 00000000365 11220734044 016557 0 ustar jcameron wheel
mysql/help/edit_field.it.html 0000755 0005671 0000012 00000000623 11220734044 016225 0 ustar jcameron wheel
mysql/help/edit_tpriv.es.html 0000644 0005671 0000012 00000000544 11220734044 016300 0 ustar jcameron wheel
mysql/help/cprivs.ca.html 0000644 0005671 0000012 00000001125 11220734044 015405 0 ustar jcameron wheel
mysql/help/tprivs.zh_TW.Big5.html 0000644 0005671 0000012 00000000537 11220734044 016671 0 ustar jcameron wheel
mysql/help/field.sv.html 0000644 0005671 0000012 00000001563 11220734044 015235 0 ustar jcameron wheel
mysql/help/field.html 0000644 0005671 0000012 00000001610 11220734044 014577 0 ustar jcameron wheel
mysql/help/db.it.html 0000755 0005671 0000012 00000001220 11220734044 014514 0 ustar jcameron wheel Sono disponibili i seguenti parametri:
mysql/help/edit_cpriv.hu.html 0000644 0005671 0000012 00000000520 11220734044 016256 0 ustar jcameron wheel
mysql/help/table_form.sv.html 0000644 0005671 0000012 00000000462 11220734044 016261 0 ustar jcameron wheel
mysql/help/intro.zh_TW.Big5.html 0000644 0005671 0000012 00000000744 11220734044 016475 0 ustar jcameron wheel
mysql/help/db.ca.html 0000644 0005671 0000012 00000001300 11220734044 014457 0 ustar jcameron wheel Es troben disponibles els segents parmetres:
mysql/help/dbs.html 0000644 0005671 0000012 00000000746 11220734044 014275 0 ustar jcameron wheel
mysql/help/tpriv.zh_TW.Big5.html 0000644 0005671 0000012 00000000632 11220734044 016502 0 ustar jcameron wheel ziHϥΤUCѼ:
mysql/help/create_tpriv.hu.html 0000644 0005671 0000012 00000000440 11220734044 016616 0 ustar jcameron wheel
mysql/help/user.sv.html 0000644 0005671 0000012 00000001430 11220734044 015121 0 ustar jcameron wheel Fr varje anvndare kan fljande instllningar gras:
mysql/help/edit_db.hu.html 0000644 0005671 0000012 00000000521 11220734044 015521 0 ustar jcameron wheel
mysql/help/user.es.html 0000644 0005671 0000012 00000001633 11220734044 015105 0 ustar jcameron wheel Para cada usuario estn disponibles los siguientes parmetros:
Per ciascun utente possibile specificare un nome utente, una password, gli host da cui possibile connettersi e un insieme di permessi che determina ci che l'utente pu fare.
mysql/help/field.it.html 0000755 0005671 0000012 00000001535 11220734044 015223 0 ustar jcameron wheel
mysql/help/backup_form.ca.html 0000644 0005671 0000012 00000001165 11220734044 016373 0 ustar jcameron wheel
mysql/help/edit_field.hu.html 0000644 0005671 0000012 00000000603 11220734044 016220 0 ustar jcameron wheel
mysql/help/create_field.zh_TW.Big5.html 0000644 0005671 0000012 00000000252 11220734044 017742 0 ustar jcameron wheel
mysql/help/create_cpriv.zh_TW.Big5.html 0000644 0005671 0000012 00000000237 11220734044 020005 0 ustar jcameron wheel
mysql/help/dbs.zh_TW.Big5.html 0000644 0005671 0000012 00000000545 11220734044 016111 0 ustar jcameron wheel
mysql/help/newdb_form.ca.html 0000644 0005671 0000012 00000000565 11220734044 016230 0 ustar jcameron wheel
mysql/help/edit_dbase.zh_TW.UTF-8.html 0000664 0005671 0000012 00000000654 11220734044 017444 0 ustar jcameron wheel
mysql/help/edit_field.es.html 0000644 0005671 0000012 00000000616 11220734044 016217 0 ustar jcameron wheel
mysql/help/tprivs.ca.html 0000644 0005671 0000012 00000001241 11220734044 015425 0 ustar jcameron wheel
mysql/help/create_field.zh_TW.UTF-8.html 0000664 0005671 0000012 00000000342 11220734044 017761 0 ustar jcameron wheel
mysql/help/vars.ca.html 0000755 0005671 0000012 00000000461 11220734044 015057 0 ustar jcameron wheel