Handle hostnames with upper-case letters
[webmin.git] / postgresql / useradmin_update.pl
1
2 $use_global_login = 1;          # Always login as master user, not the mysql
3                                 # login of the current Webmin user
4 do 'postgresql-lib.pl';
5
6 # useradmin_create_user(&details)
7 # Create a new postgesql user if syncing is enabled
8 sub useradmin_create_user
9 {
10 if ($config{'sync_create'}) {
11         local $version = &get_postgresql_version();
12         local $sql = "create user \"$_[0]->{'user'}\"";
13         if ($_[0]->{'passmode'} == 3) {
14                 $sql .= " with password '$_[0]->{'plainpass'}'";
15                 }
16         $sql .= " nocreatedb nocreateuser";
17         &execute_sql_logged($config{'basedb'}, $sql);
18         }
19 }
20
21 # useradmin_delete_user(&details)
22 # Delete a mysql user
23 sub useradmin_delete_user
24 {
25 if ($config{'sync_delete'}) {
26         local $s = &execute_sql($config{'basedb'},
27                 "select * from pg_shadow where usename = '$_[0]->{'user'}'");
28         return if (!@{$s->{'data'}});
29         &execute_sql_logged($config{'basedb'}, "drop user \"$_[0]->{'user'}\"");
30         }
31 }
32
33 # useradmin_modify_user(&details)
34 # Update a mysql user
35 sub useradmin_modify_user
36 {
37 if ($config{'sync_modify'}) {
38         local $s = &execute_sql($config{'basedb'},
39                 "select * from pg_shadow where usename = '$_[0]->{'olduser'}'");
40         return if (!@{$s->{'data'}});
41         local $version = &get_postgresql_version();
42         if ($_[0]->{'user'} ne $_[0]->{'olduser'}) {
43                 # Need to delete and re-create to rename :(
44                 local @user = @{$s->{'data'}->[0]};
45                 &execute_sql_logged($config{'basedb'},
46                                     "drop user \"$_[0]->{'olduser'}\"");
47                 local $sql = "create user \"$_[0]->{'user'}\"";
48                 if ($_[0]->{'passmode'} == 3) {
49                         $sql .= " with password '$_[0]->{'plainpass'}'";
50                         }
51                 elsif ($_[0]->{'passmode'} == 4) {
52                         $sql .= " with password '$user[6]'";
53                         }
54                 &execute_sql_logged($config{'basedb'}, $sql);
55                 }
56         elsif ($_[0]->{'passmode'} != 4) {
57                 # Just change password
58                 local $sql = "alter user \"$_[0]->{'user'}\"";
59                 if ($_[0]->{'passmode'} == 3) {
60                         $sql .= " with password '$_[0]->{'plainpass'}'";
61                         }
62                 &execute_sql_logged($config{'basedb'}, $sql);
63                 }
64         }
65 }
66
67 1;
68