/usr/share/courier/webadmin/admin-15mysql.pl is in courier-webadmin 0.76.3-5+deb9u1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | #!/usr/bin/perl
#
# TITLE: MySQL
#
#
# Copyright 2001-2004 Double Precision, Inc. See COPYING for
# distribution information.
use webadmin;
my $errstr="";
display_form("notsupp.html")
unless -f "$authmysqlrc";
if ($cgi->param("Save"))
{
my $mysql=ReadKWConfigFile("authmysqlrc");
my $newkw={
"LOCATION" => "MYSQL_SERVER\t" . param('SERVER') . "\nMYSQL_USERNAME\t" . param('USERNAME') . "\nMYSQL_PASSWORD\t" . $$mysql{'MYSQL_PASSWORD'},
'MYSQL_OPT' => "MYSQL_OPT\t" . $$mysql{'MYSQL_OPT'},
"MYSQL_PORT" => "MYSQL_PORT\t" . param('PORT'),
"MYSQL_DATABASE" => "MYSQL_DATABASE\t" . param('DATABASE'),
"MYSQL_USER_TABLE" => "MYSQL_USER_TABLE\t" . param('USER_TABLE'),
"MYSQL_UID_FIELD" => "MYSQL_UID_FIELD\t" . param('UID_FIELD'),
"MYSQL_GID_FIELD" => "MYSQL_GID_FIELD\t" . param('GID_FIELD'),
"MYSQL_LOGIN_FIELD" => "MYSQL_LOGIN_FIELD\t" . param('LOGIN_FIELD'),
"MYSQL_HOME_FIELD" => "MYSQL_HOME_FIELD\t" . param('HOME_FIELD'),
} ;
$errstr="\@REQUIRED\@"
unless required
('SERVER', 'USERNAME', 'DATABASE', 'USER_TABLE',
'UID_FIELD', 'GID_FIELD', 'LOGIN_FIELD', 'HOME_FIELD') &&
(param('CRYPT_PWFIELD') || param('CLEAR_PWFIELD'));
foreach (("MYSQL_SOCKET=MYSQL_SOCKET=SOCKET",
"MYSQL_CRYPT_PWFIELD=MYSQL_CRYPT_PWFIELD=CRYPT_PWFIELD",
"MYSQL_CLEAR_PWFIELD=MYSQL_CLEAR_PWFIELD=CLEAR_PWFIELD",
"MYSQL_DEFAULT_DOMAIN=DEFAULT_DOMAIN=DEFAULT_DOMAIN",
"MYSQL_NAME_FIELD=MYSQL_NAME_FIELD=NAME_FIELD",
"MYSQL_MAILDIR_FIELD=MYSQL_MAILDIR_FIELD=MAILDIR_FIELD",
"MYSQL_DEFAULTDELIVERY=MYSQL_DEFAULTDELIVERY=DEFAULTDELIVERY",
"MYSQL_QUOTA_FIELD=MYSQL_QUOTA_FIELD=QUOTA_FIELD",
"MYSQL_WHERE_CLAUSE=MYSQL_WHERE_CLAUSE=WHERE_CLAUSE"
))
{
next unless /(.*)=(.*)=(.*)/;
$$newkw{$1}="$2\t" . param($3)
if param($3);
}
SaveKWConfigFile("authmysqlrc", $newkw);
unless ($errstr)
{
$errstr="\@SAVED\@";
}
changed("$authdaemond restart");
}
my $mysql=ReadKWConfigFile("authmysqlrc");
display_form("admin-15mysql.html",
{
"ERROR" => $errstr,
"SERVER" => $$mysql{'MYSQL_SERVER'},
"PORT" => $$mysql{'MYSQL_PORT'},
"USERNAME" => $$mysql{'MYSQL_USERNAME'},
"SOCKET" => $$mysql{'MYSQL_SOCKET'},
"DATABASE" => $$mysql{'MYSQL_DATABASE'},
"USER_TABLE" => $$mysql{'MYSQL_USER_TABLE'},
"DEFAULT_DOMAIN" => $$mysql{'DEFAULT_DOMAIN'},
"LOGIN_FIELD" => $$mysql{'MYSQL_LOGIN_FIELD'},
"HOME_FIELD" => $$mysql{'MYSQL_HOME_FIELD'},
"MAILDIR_FIELD" => $$mysql{'MYSQL_MAILDIR_FIELD'},
"DEFAULTDELIVERY" => $$mysql{'MYSQL_DEFAULTDELIVERY'},
"QUOTA_FIELD" => $$mysql{'MYSQL_QUOTA_FIELD'},
"NAME_FIELD" => $$mysql{'MYSQL_NAME_FIELD'},
"CLEAR_PWFIELD" => $$mysql{'MYSQL_CLEAR_PWFIELD'},
"CRYPT_PWFIELD" => $$mysql{'MYSQL_CRYPT_PWFIELD'},
"UID_FIELD" => $$mysql{'MYSQL_UID_FIELD'},
"GID_FIELD" => $$mysql{'MYSQL_GID_FIELD'},
"WHERE_CLAUSE" => $$mysql{'MYSQL_WHERE_CLAUSE'},
}
);
|