mirror of
https://github.com/webmin/webmin.git
synced 2026-10-25 12:40:38 +00:00
69 lines
2.6 KiB
Perl
Executable File
69 lines
2.6 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Displays the form for adding a column to a table, or for renaming one.
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
our (%text, %in);
|
|
require './sqlite-lib.pl';
|
|
&ReadParse();
|
|
|
|
# Structure changes need a writable table; views cannot be altered.
|
|
my $path = &sqlite_database_path($in{'db'});
|
|
&sqlite_can_write($path) || &error($text{'error_readonly'});
|
|
my $dbh = &sqlite_connect($path, 0);
|
|
my $object = &sqlite_object($dbh, $in{'table'});
|
|
$object && $object->{'type'} eq 'table' || &error($text{'table_missing'});
|
|
my $columns = &sqlite_table_columns($dbh, $object->{'name'});
|
|
$dbh->disconnect();
|
|
|
|
my $existing;
|
|
# Renaming needs the column to still exist and the library to support it.
|
|
if ($in{'column'} ne '') {
|
|
($existing) = grep { $_->{'name'} eq $in{'column'} } @$columns;
|
|
$existing || &error($text{'column_emissing'});
|
|
&sqlite_supports('rename_column') ||
|
|
&error($text{'column_eunsupported'});
|
|
}
|
|
|
|
my $desc = &ui_tag('tt', &html_escape($object->{'name'})).
|
|
$text{'table_in'}.' '.&ui_tag('tt', &html_escape($path));
|
|
&ui_print_header($desc,
|
|
$text{$existing ? 'column_title_rename' : 'column_title_add'}, '',
|
|
'column');
|
|
print &ui_form_start('save_column.cgi', 'post');
|
|
print &ui_hidden('db', $path);
|
|
print &ui_hidden('table', $object->{'name'});
|
|
print &ui_hidden('mode', $existing ? 'rename' : 'add');
|
|
print &ui_table_start($text{$existing ? 'column_header_rename' :
|
|
'column_header_add'}, 'width=100%', 2);
|
|
# A rename shows the current name and asks for the new one only.
|
|
if ($existing) {
|
|
print &ui_hidden('column', $existing->{'name'});
|
|
print &ui_table_row($text{'column_current'},
|
|
&ui_tag('tt', &html_escape($existing->{'name'})).' '.
|
|
&ui_tag('small', &html_escape($existing->{'type'} ||
|
|
$text{'edit_untyped'})));
|
|
print &ui_table_row($text{'column_newname'},
|
|
&ui_textbox('name', $existing->{'name'}, 40));
|
|
}
|
|
else {
|
|
# A new column takes a name, a type, a NULL rule and a default.
|
|
print &ui_table_row($text{'column_name'},
|
|
&ui_textbox('name', $in{'name'}, 40));
|
|
print &ui_table_row($text{'column_type'},
|
|
&ui_select('type', $in{'type'} || 'TEXT',
|
|
[ map { [ $_ ] } &sqlite_column_types() ]));
|
|
print &ui_table_row($text{'column_null'},
|
|
&ui_yesno_radio('null', defined($in{'null'}) ? $in{'null'} : 1));
|
|
print &ui_table_row($text{'column_default'},
|
|
&ui_textbox('default', $in{'default'}, 30).' '.
|
|
&ui_help($text{'column_default_help'}));
|
|
}
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ undef,
|
|
$text{$existing ? 'column_rename' : 'column_add'} ] ]);
|
|
&ui_print_footer('table.cgi?db='.&urlize($path).'&table='.
|
|
&urlize($object->{'name'}).'&view=structure', $text{'column_return'});
|