mirror of
https://github.com/webmin/webmin.git
synced 2026-03-11 13:22:01 +00:00
69 lines
1.8 KiB
Perl
Executable File
69 lines
1.8 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# save_user.cgi
|
|
# Create, update or delete a postgres user
|
|
|
|
require './postgresql-lib.pl';
|
|
&ReadParse();
|
|
$access{'users'} || &error($text{'user_ecannot'});
|
|
&error_setup($text{'user_err'});
|
|
|
|
if ($in{'delete'}) {
|
|
# just delete the user
|
|
$in{'user'} =~ /^[A-Za-z0-9_]+$/ || &error($text{'user_ename'});
|
|
&execute_sql_logged($config{'basedb'},
|
|
"drop user ".&pg_quote_ident($in{'user'}));
|
|
&webmin_log("delete", "user", $in{'user'});
|
|
}
|
|
else {
|
|
# parse inputs
|
|
$in{'pname'} =~ /^[A-Za-z0-9_]+$/ || &error($text{'user_ename'});
|
|
if (!$in{'new'}) {
|
|
$in{'user'} =~ /^[A-Za-z0-9_]+$/ || &error($text{'user_ename'});
|
|
}
|
|
$version = &get_postgresql_version();
|
|
if ($in{'ppass_def'} == 0) {
|
|
$in{'ppass'} =~ /^\S+$/ || &error($text{'user_epass'});
|
|
$sql .= $version >= 7 ? " with password ".&pg_quote_lit($in{'ppass'})
|
|
: " with password $in{'ppass'}";
|
|
}
|
|
elsif ($in{'ppass_def'} == 1) {
|
|
$sql .= " with password ''";
|
|
}
|
|
if ($in{'db'}) {
|
|
$sql .= " createdb";
|
|
}
|
|
else {
|
|
$sql .= " nocreatedb";
|
|
}
|
|
if (&get_postgresql_version() < 9.5) {
|
|
if ($in{'other'}) {
|
|
$sql .= " createuser";
|
|
}
|
|
else {
|
|
$sql .= " nocreateuser";
|
|
}
|
|
}
|
|
if (!$in{'until_def'}) {
|
|
$sql .= " valid until ".&pg_quote_lit($in{'until'});
|
|
}
|
|
if ($in{'new'}) {
|
|
&execute_sql_logged($config{'basedb'},
|
|
"create user ".&pg_quote_ident($in{'pname'})." $sql");
|
|
&webmin_log("create", "user", $in{'pname'});
|
|
}
|
|
else {
|
|
&execute_sql_logged($config{'basedb'},
|
|
"alter user ".&pg_quote_ident($in{'user'})." $sql");
|
|
if (&get_postgresql_version() >= 7.4 &&
|
|
$in{'pname'} ne $in{'user'}) {
|
|
# Rename too
|
|
&execute_sql_logged($config{'basedb'},
|
|
"alter user ".&pg_quote_ident($in{'user'})." ".
|
|
"rename to ".&pg_quote_ident($in{'pname'}));
|
|
}
|
|
&webmin_log("modify", "user", $in{'user'});
|
|
}
|
|
}
|
|
&redirect("list_users.cgi");
|
|
|