PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_session.cgi
# Edit session login options
require './usermin-lib.pl';
$access{'session'} || &error($text{'acl_ecannot'});
print "Set-Cookie: sessiontest=1; path=/\n";
&ui_print_header(undef, $text{'session_title'}, "");
&get_usermin_miniserv_config(\%miniserv);
$ver = &get_usermin_version();
&get_usermin_config(\%uconfig);
print "$text{'session_desc1'}<p>\n";
print "$text{'session_desc2'}<p>\n";
print ui_form_start("change_session.cgi", "post");
print ui_table_start($text{'session_header'}, undef, 2);
# Bad password delay
print &ui_table_row($text{'session_ptimeout'},
&ui_radio("passdelay", $miniserv{'passdelay'} ? 1 : 0,
[ [ 0, $text{'session_pdisable'}."<br>\n" ],
[ 1, $text{'session_penable'} ] ]));
# Block hosts
print &ui_table_row($text{'session_pblock'},
&ui_checkbox("blockhost_on", 1,
text('session_blockhost',
ui_textbox("blockhost_failures", $miniserv{'blockhost_failures'}, 4),
ui_textbox("blockhost_time", $miniserv{'blockhost_time'}, 4)),
$miniserv{'blockhost_failures'} ? 1 : 0));
# Block users
print &ui_table_row("",
&ui_checkbox("blockuser_on", 1,
text('session_blockuser',
ui_textbox("blockuser_failures", $miniserv{'blockuser_failures'}, 4),
ui_textbox("blockuser_time", $miniserv{'blockuser_time'}, 4)),
$miniserv{'blockuser_failures'} ? 1 : 0));
# Log to syslog
eval "use Sys::Syslog qw(:DEFAULT setlogsock)";
if (!$@) {
print &ui_table_row($text{'session_syslog3'},
&ui_yesno_radio("syslog", $miniserv{'syslog'}));
}
else {
print ui_hidden('syslog', $miniserv{'syslog'});
}
print "<p>\n";
# Session authentication
print &ui_table_row($text{'session_stype'},
&ui_radio("session", $miniserv{'session'} ? 1 : 0,
[ [ 0, $text{'session_disable'}."<br>" ],
[ 1, $text{'session_enable'} ] ]));
# Session auth options
print &ui_table_row($text{'session_sopts'},
&ui_checkbox("logouttime_on", 1,
&text('session_logouttime',
&ui_textbox("logouttime", $miniserv{'logouttime'}, 10)),
$miniserv{'logouttime'} ? 1 : 0).
"<br>\n".
&ui_checkbox("remember", 1, $text{'session_remember'},
$gconfig{'noremember'} ? 0 : 1).
"<br>\n".
&ui_checkbox("realname", 1, $text{'session_realname'},
$gconfig{'realname'} ? 1 : 0).
"<br>\n".
&ui_checkbox("session_ip", 1, $text{'session_ip'},
$miniserv{'session_ip'} ? 1 : 0).
"<br>\n".
&ui_checkbox("utmp", 1, $text{'session_utmp'},
$miniserv{'utmp'} ? 1 : 0));
# Pre-login banner
print &ui_table_row($text{'session_banner'},
&ui_radio("banner_def", $gconfig{'loginbanner'} ? 0 : 1,
[ [ 1, $text{'session_banner1'}."<br>" ],
[ 0, $text{'session_banner0'} ] ]).
&ui_filebox("banner", $gconfig{'loginbanner'}, 50));
# Local authentication
print &ui_table_row($text{'session_local'},
&ui_radio("localauth", $miniserv{'localauth'} ? 1 : 0,
[ [ 0, $text{'session_localoff'}."<br>" ],
[ 1, $text{'session_localon'} ] ]));
# Authentication mode
@users = &get_usermin_miniserv_users();
$authmode = $users[0]->{'pass'} eq 'e' ? 2 :
$miniserv{'no_pam'} ? 1 : 0;
print &ui_table_row($text{'session_authmode'},
&ui_radio("authmode", $authmode,
[ [ 0, $text{'session_authmode0'}."<br>" ],
[ 1, &text('session_authmode1',
&ui_textbox("passwd_file",
$miniserv{'passwd_file'}, 20),
&ui_textbox("passwd_uindex",
$miniserv{'passwd_uindex'}, 2),
&ui_textbox("passwd_pindex",
$miniserv{'passwd_pindex'}, 2)).
"<br>" ],
[ 2, $text{'session_authmode2'}." ".
&ui_textbox("extauth", $miniserv{'extauth'}, 40) ] ]));
# PAM options
print &ui_table_row($text{'session_popts'},
ui_checkbox("pam_conv", 1, $text{'session_pamconv'},
$miniserv{'pam_conv'}).
"<br>".
ui_checkbox("pam_end", 1, $text{'session_pamend'},
$miniserv{'pam_end'}));
# Unix password change
print &ui_table_row($text{'session_cmddef'},
&ui_oneradio("cmd_def", 1, $text{'session_cmddef1'},
!$gconfig{'passwd_cmd'}).
"<br>".
&ui_oneradio("cmd_def", 0, $text{'session_cmddef0'},
$gconfig{'passwd_cmd'}).
" ".
&ui_textbox("cmd", $gconfig{'passwd_cmd'}, 60));
if ($miniserv{'passwd_cindex'} ne '') {
# Password expiry policy
print &ui_table_row($text{'session_pmodedesc3'},
&ui_radio("passwd_mode", $miniserv{'passwd_mode'} || 0,
[ [ 0, $text{'session_pmode0'}."<br>" ],
[ 1, $text{'session_pmode1'}."<br>" ],
[ 2, $text{'session_pmode2'} ] ]));
}
# Prompt to choose password at login
print &ui_table_row($text{'session_blank'},
&ui_yesno_radio("passwd_blank", $miniserv{'passwd_blank'}));
# Try adding domain name to username?
print &ui_table_row($text{'session_domain'},
&ui_yesno_radio("domainuser", $miniserv{'domainuser'}).
"<br>\n".
&ui_checkbox("domainstrip", 1, $text{'session_strip'},
$miniserv{'domainstrip'}).
"<br>\n".
&ui_checkbox("user_mapping_on", 1, $text{'session_usermap'},
$miniserv{'user_mapping'})." ".
&ui_filebox("user_mapping", $miniserv{'user_mapping'}, 30).
"<br>\n".
"<b>".$text{'session_userfmt'}."</b> ".
&ui_radio("user_mapping_reverse",
int($miniserv{'user_mapping_reverse'}),
[ [ 0, $text{'session_userfmt0'} ],
[ 1, $text{'session_userfmt1'} ] ]));
# Create homedir at login?
print &ui_table_row($text{'session_homedir'},
&ui_yesno_radio("create_homedir", $uconfig{'create_homedir'}));
# Perms for new homedir
print &ui_table_row($text{'session_homedir_perms'},
&ui_opt_textbox("create_homedir_perms",
$uconfig{'create_homedir_perms'}, 4, $text{'default'}));
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`