Handle hostnames with upper-case letters
[webmin.git] / mysql / edit_tpriv.cgi
1 #!/usr/local/bin/perl
2 # edit_tpriv.cgi
3 # Display a form for editing or creating new table permissions
4
5 require './mysql-lib.pl';
6 &ReadParse();
7 $access{'perms'} || &error($text{'perms_ecannot'});
8 if (defined($in{'db'})) {
9         $in{'db'} =~ /^\S+$/ || &error($text{'tpriv_edb'});
10         &ui_print_header(undef, $text{'tpriv_title1'}, "", "create_tpriv");
11         }
12 else {
13         $d = &execute_sql_safe($master_db, "select * from tables_priv order by table_name");
14         $u = $d->{'data'}->[$in{'idx'}];
15         $access{'perms'} == 1 || &can_edit_db($u->[1]) ||
16                 &error($text{'perms_edb'});
17         &ui_print_header(undef, $text{'tpriv_title2'}, "", "edit_tpriv");
18         }
19
20 print &ui_form_start("save_tpriv.cgi");
21 if ($in{'db'}) {
22         print &ui_hidden("db", $in{'db'});
23         }
24 else {
25         print &ui_hidden("oldhost", $u->[0]);
26         print &ui_hidden("olddb", $u->[1]);
27         print &ui_hidden("olduser", $u->[2]);
28         print &ui_hidden("oldtable", $u->[3]);
29         }
30 print &ui_table_start($text{'tpriv_header'}, undef, 2);
31
32 # Apply to DB
33 print &ui_table_row($text{'tpriv_db'}, $in{'db'} || $u->[1]);
34
35 # Apply to table
36 print &ui_table_row($text{'tpriv_table'},
37         &ui_select("table", $in{'db'} ? '' : $u->[3],
38                    [ $in{'db'} ? ( [ '' ] ) : ( ),
39                      &list_tables($in{'db'} || $u->[1]) ], 1, 0, 1));
40
41 # Apply to user
42 print &ui_table_row($text{'tpriv_user'},
43         &ui_opt_textbox("user", $u->[2], 20, $text{'tpriv_anon'}));
44
45 # Apply to host
46 print &ui_table_row($text{'tpriv_host'},
47         &ui_opt_textbox("host", $u->[0] eq '%' ? '' : $u->[0], 40,
48                         $text{'tpriv_any'}));
49
50 # Table permissions
51 print &ui_table_row($text{'tpriv_perms1'},
52         &ui_select("perms1", [ split(/,/, $u->[6]) ],
53                    [ 'Select','Insert','Update','Delete','Create',
54                      'Drop','Grant','References','Index','Alter',
55                      ($mysql_version >= 5 ? ('Create View','Show view') : ( )) ],
56                    4, 1));
57
58 # Field permissions
59 print &ui_table_row($text{'tpriv_perms2'},
60         &ui_select("perms2", [ split(/,/, $u->[7]) ],
61                    [ 'Select','Insert','Update','References' ], 4, 1));
62
63 print &ui_table_end();
64 print &ui_form_end([ $in{'db'} ? ( [ undef, $text{'create'} ] )
65                                 : ( [ undef, $text{'save'} ],
66                                     [ 'delete', $text{'delete'} ] ) ]);
67
68 &ui_print_footer('list_tprivs.cgi', $text{'tprivs_return'},
69         "", $text{'index_return'});
70