mirror of
https://github.com/webmin/webmin.git
synced 2026-02-08 00:12:14 +00:00
55 lines
1.3 KiB
Perl
Executable File
55 lines
1.3 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Save, create or delete an SQL command
|
|
|
|
require './custom-lib.pl';
|
|
&ReadParse();
|
|
|
|
$access{'edit'} || &error($text{'save_ecannot'});
|
|
@cmds = &list_commands();
|
|
if ($in{'delete'}) {
|
|
$cmd = $cmds[$in{'idx'}];
|
|
&delete_command($cmd);
|
|
&webmin_log("delete", "command", $cmd->{'id'}, $cmd);
|
|
}
|
|
else {
|
|
&error_setup($text{'sql_err'});
|
|
if (!$in{'new'}) {
|
|
$cmd = $cmds[$in{'idx'}];
|
|
}
|
|
else {
|
|
$cmd = { 'id' => time() };
|
|
}
|
|
|
|
# parse and validate inputs
|
|
$cmd->{'desc'} = $in{'desc'};
|
|
$in{'html'} =~ s/\r//g;
|
|
$in{'html'} =~ s/\n*/\n/;
|
|
$cmd->{'html'} = $in{'html'};
|
|
$cmd->{'type'} = $in{'type'};
|
|
$in{'db'} =~ /^\S+$/ || &error($text{'sql_edb'});
|
|
$cmd->{'db'} = $in{'db'};
|
|
$in{'sql'} =~ /\S/ || &error($text{'sql_esql'});
|
|
$in{'sql'} =~ s/\r//g;
|
|
$cmd->{'sql'} = $in{'sql'};
|
|
$cmd->{'user'} = $in{'dbuser'};
|
|
$cmd->{'pass'} = $in{'dbpass'};
|
|
if ($in{'host_def'}) {
|
|
delete($cmd->{'host'});
|
|
}
|
|
else {
|
|
gethostbyname($in{'host'}) || &error($text{'sql_ehost'});
|
|
$cmd->{'host'} = $in{'host'};
|
|
}
|
|
&parse_params_inputs($cmd);
|
|
&save_command($cmd);
|
|
&webmin_log($in{'new'} ? "create" : "modify", "command",
|
|
$cmd->{'id'}, $cmd);
|
|
|
|
if ($in{'new'} && $access{'cmds'} ne '*') {
|
|
$access{'cmds'} .= " ".$cmd->{'id'};
|
|
&save_module_acl(\%access);
|
|
}
|
|
}
|
|
&redirect("");
|
|
|