PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show user and login options
require './dovecot-lib.pl';
&ui_print_header(undef, $text{'login_title'}, "");
$conf = &get_config();
print &ui_form_start("save_login.cgi", "post");
print &ui_table_start($text{'login_header'}, "width=100%", 4);
# SASL authentication realms
$realms = &find_value("auth_realms", $conf);
print &ui_table_row($text{'login_realms'},
&ui_opt_textbox("realms", $realms, 40, $text{'login_none'}), 3);
# Default authentication realm
$realm = &find_value("auth_default_realm", $conf);
print &ui_table_row($text{'login_realm'},
&ui_opt_textbox("realm", $realm, 10, $text{'default'}));
# Authentication mechanisms (MD5, etc..)
if (&find("auth_mechanisms", $conf, 2)) {
# Version 0.99 and 2.0 format
@mechs = split(/\s+/, &find_value("auth_mechanisms", $conf));
}
else {
# version 1.0 format
@mechs = split(/\s+/, &find_value("mechanisms", $conf, undef,
"auth", "default"));
}
print &ui_table_row($text{'login_mechs'},
&ui_select("mechs", \@mechs,
[ map { [ $_, $text{'login_'.$_} ] } @supported_auths ],
4, 1, 1));
print &ui_table_hr();
# User database, for mapping usernames to UIDs and homes
if (&find("auth_userdb", $conf, 2)) {
# Version 0.99 format
$userdb = &find_value("auth_userdb", $conf);
}
elsif ($usec = &find_section("userdb", $conf, undef, "auth", "default")) {
# Version 1.0.alpha format
$userdb = $usec->{'value'};
$args = &find_value("args", $conf, undef, "userdb", $usec->{'value'});
$userdb .= " $args" if ($args);
}
elsif (&find_value("driver", $conf, 2, "userdb")) {
# Version 2.0 format
$userdb = &find_value("driver", $conf, undef, "userdb");
$args = &find_value("args", $conf, undef, "userdb");
$userdb .= " ".$args if ($args);
}
else {
# Version 1.0 format
$userdb = &find_value("userdb", $conf, undef, "auth", "default");
}
if ($userdb eq "passwd") {
$usermode = "passwd";
}
elsif ($userdb =~ /^passwd-file\s+(.*)/) {
$usermode = "passwd-file";
$passwdfile = $1;
}
elsif ($userdb =~ /^static\s+uid=(\d+)\s+gid=(\d+)\s+home=(.*)/) {
$usermode = "static";
$uid = $1;
$gid = $2;
$home = $3;
}
elsif ($userdb eq "vpopmail") {
$usermode = "vpopmail";
}
elsif ($userdb =~ /^ldap\s+(.*)/) {
$usermode = "ldap";
$ldap = $1;
}
elsif ($userdb =~ /^pgsql\s+(.*)/) {
$usermode = "pgsql";
$pgsql = $1;
}
elsif ($userdb =~ /^sql\s+(.*)/) {
$usermode = "sql";
$sql = $1;
}
else {
$other = $userdb;
}
print &ui_table_row($text{'login_userdb'},
&ui_radio("usermode", $usermode,
[ [ "passwd", $text{'login_passwd'}."<br>" ],
[ "passwd-file", &text('login_passwdfile',
&ui_textbox("passwdfile", $passwdfile, 30))."<br>" ],
[ "static", &text('login_static',
&ui_textbox("uid", $uid, 6),
&ui_textbox("gid", $gid, 6),
&ui_textbox("home", $home, 20))."<br>" ],
[ "vpopmail", $text{'login_vpopmail'}."<br>" ],
[ "ldap", &text('login_ldap',
&ui_textbox("ldap", $ldap, 30))."<br>" ],
[ "pgsql", &text('login_pgsql',
&ui_textbox("pgsql", $pgsql, 30))."<br>" ],
[ "sql", &text('login_sql',
&ui_textbox("sql", $sql, 30))."<br>" ],
[ "", &text('login_other',
&ui_textbox("other", $other, 30))."<br>" ],
]), 3);
# Password authentication system
if (&find("auth_passdb", $conf, 2)) {
# Version 0.99 format
$passdb = &find_value("auth_passdb", $conf);
}
elsif ($psec = &find_section("passdb", $conf, undef, "auth", "default")) {
# Version 1.0.alpha format
$passdb = $psec->{'value'};
$args = &find_value("args", $conf, undef, "passdb", $psec->{'value'});
$passdb .= " $args" if ($args);
$alpha_opts = 1;
}
elsif (&find_value("driver", $conf, 2, "passdb")) {
# Version 2.0 format
$passdb = &find_value("driver", $conf, undef, "passdb");
$args = &find_value("args", $conf, undef, "passdb");
$passdb .= " ".$args if ($args);
}
else {
# Version 1.0 format
$passdb = &find_value("passdb", $conf, undef, "auth", "default");
}
if ($passdb eq "passwd") {
$passmode = "passwd";
}
elsif ($passdb eq "shadow") {
$passmode = "shadow";
}
elsif ($passdb eq "pam") {
$passmode = "dpam";
}
elsif ($passdb =~ /^pam(\s+\-session)?(\s+cache_key=(\S+))?\s+(\S*)$/) {
$passmode = "pam";
$ppam = $4;
$psession = $1 ? 1 : 0;
$pckey = $3;
}
elsif ($passdb =~ /^passwd-file\s+(.*)/) {
$passmode = "passwd-file";
$ppasswdfile = $1;
}
elsif ($passdb eq "vpopmail") {
$passmode = "vpopmail";
}
elsif ($passdb =~ /^ldap\s+(.*)/) {
$passmode = "ldap";
$pldap = $1;
}
elsif ($passdb =~ /^pgsql\s+(.*)/) {
$passmode = "pgsql";
$ppgsql = $1;
}
elsif ($passdb =~ /^sql\s+(.*)/) {
$passmode = "sql";
$psql = $1;
}
elsif ($passdb =~ /^bsdauth(\s+cache_key=(\S+))?$/) {
$passmode = "bsdauth";
$pbckey = $2;
}
elsif ($passdb =~ /^checkpassword\s+(.*)$/) {
$passmode = "checkpassword";
$checkpassword = $1;
}
else {
$pother = $passdb;
}
print &ui_table_row($text{'login_passdb'},
&ui_radio("passmode", $passmode,
[ [ "passwd", $text{'login_passwd2'}."<br>" ],
[ "shadow", $text{'login_shadow'}."<br>" ],
[ "dpam", &text('login_dpam')."<br>" ],
$alpha_opts ?
( [ "pam", &text('login_pam2',
&ui_textbox("ppam", $ppam, 10),
&ui_checkbox("ppam_session", 1,
$text{'login_session'}, $psession),
&ui_opt_textbox("ppam_ckey", $pckey, 10,
$text{'login_none'}))."<br>" ]
) :
( [ "pam", &text('login_pam',
&ui_textbox("ppam", $ppam, 10))."<br>" ]
),
[ "passwd-file", &text('login_passwdfile',
&ui_textbox("ppasswdfile", $ppasswdfile, 30))."<br>" ],
[ "vpopmail", $text{'login_vpopmail'}."<br>" ],
[ "ldap", &text('login_ldap',
&ui_textbox("pldap", $pldap, 30))."<br>" ],
[ "pgsql", &text('login_pgsql',
&ui_textbox("ppgsql", $ppgsql, 30))."<br>" ],
[ "sql", &text('login_sql',
&ui_textbox("psql", $psql, 30))."<br>" ],
$alpha_opts ?
( [ "bsdauth",
&text('login_bsdauth',
&ui_opt_textbox("bsdauth_ckey", $pbckey, 10,
$text{'login_none'}))."<br>" ],
[ "checkpassword",
&text('login_checkpassword',
&ui_textbox("checkpassword", $checkpassword, 40))."<br>" ],
) :
( ),
[ "", &text('login_other',
&ui_textbox("pother", $pother, 30))."<br>" ],
]), 3);
print &ui_table_hr();
$fuid = &find_value("first_valid_uid", $conf);
print &ui_table_row($text{'login_fuid'},
&ui_opt_textbox("fuid", $fuid, 6, &getdef("first_valid_uid")));
$luid = &find_value("last_valid_uid", $conf);
@mmap = ( [ 0, $text{'login_none'} ] );
print &ui_table_row($text{'login_luid'},
&ui_opt_textbox("luid", $luid, 6, &getdef("last_valid_uid", \@mmap)));
$fgid = &find_value("first_valid_gid", $conf);
print &ui_table_row($text{'login_fgid'},
&ui_opt_textbox("fgid", $fgid, 6, &getdef("first_valid_gid")));
$lgid = &find_value("last_valid_gid", $conf);
print &ui_table_row($text{'login_lgid'},
&ui_opt_textbox("lgid", $lgid, 6, &getdef("last_valid_gid", \@mmap)));
$extra = &find_value("mail_extra_groups", $conf);
print &ui_table_row($text{'login_extra'},
&ui_opt_textbox("extra", $extra, 50, $text{'login_none'})."\n".
&group_chooser_button("extra", 1), 3);
$chroot = &find_value("mail_chroot", $conf);
print &ui_table_row($text{'login_chroot'},
&ui_opt_textbox("chroot", $chroot, 40, $text{'login_none'})."\n".
&file_chooser_button("chroot", 1), 3);
# Number of login processes
if (&find("login_max_processes_count", $conf, 2)) {
print &ui_table_hr();
$procs = &find_value("login_max_processes_count", $conf);
print &ui_table_row($text{'login_procs'},
&ui_opt_textbox("procs", $procs, 6,
&getdef("login_max_processes_count")), 3);
}
if (&find("login_processes_count", $conf, 2)) {
$count = &find_value("login_processes_count", $conf);
print &ui_table_row($text{'login_count'},
&ui_opt_textbox("count", $count, 6,
&getdef("login_processes_count")), 3);
}
print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`