PAL.C.T MINI SHELL
#!/usr/bin/perl
# index.cgi
require './idmapd-lib.pl';
# Check if rpc.idmapd is installed
@st = stat($config{'idmapd_path'});
if (!@st) {
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("idmapd", "man"));
print &text('index_eidmapd', "<tt>$config{'idmapd_path'}</tt>",
"@{[&get_webprefix()]}/config.cgi?$module_name"),"<p>\n";
&ui_print_footer("/", $text{'index'});
exit;
}
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("idmapd", "man"));
%conf = &get_config();
print "<form action=\"save.cgi\">\n";
print "<table border width=100%>\n";
print "<tr $cb> <td><table>\n";
print "<tr $tb> <td colspan=4><b>$text{'general'}</b></td> </tr>\n";
print "<tr $cb> <td>",&hlink("<b>$text{'pipefs_dir'}</b>","pipefsdir"),"</td>\n";
print "<td><input name=pipefsdir size=40 value=\"$conf{'Pipefs-Directory'}\">",
&file_chooser_button("pipefsdir", 1), "</td></tr>\n";
print "<tr> <td>",&hlink("<b>$text{'domain'}</b>","domain"),"</td>\n";
print "<td><input name=domain size=40 value=\"$conf{'Domain'}\"> </td></tr>\n";
print "<tr $tb> <td colspan=3><b>$text{'mapping'}</b></td> </tr>\n";
print "<tr> <td>",&hlink("<b>$text{'nobody_user'}</b>","nobody_user"),"</td>\n";
print "<td><input name=nobody_user size=40 value=\"$conf{'Nobody-User'}\">",
&user_chooser_button("nobody_user", 0), "</td></tr>\n";
print "<tr> <td>",&hlink("<b>$text{'nobody_group'}</b>","nobody_group"),"</td>\n";
print "<td><input name=nobody_group size=40 value=\"$conf{'Nobody-Group'}\">",
&group_chooser_button("nobody_group", 0), "</td></tr>\n";
print "</table></td></tr></table>\n";
print "<input type=submit value=\"$text{'save'}\"></form>\n";
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`