PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_alias.cgi
# Display alias and cd path options
require './wuftpd-lib.pl';
&ui_print_header(undef, $text{'alias_title'}, "", "alias");
$conf = &get_ftpaccess();
print "<form action=save_alias.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'alias_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
# display alias options
@alias = ( &find_value('alias', $conf), [ ] );
print "<tr> <td valign=top><b>$text{'alias_alias'}</b></td>\n";
print "<td><table border>\n";
print "<tr $tb> <td><b>$text{'alias_from'}</b></td> ",
"<td><b>$text{'alias_to'}</b></td> </tr>\n";
$i = 0;
foreach $a (@alias) {
print "<tr $cb>\n";
print "<td><input name=from_$i size=15 value='$a->[0]'></td>\n";
print "<td><input name=to_$i size=25 value='$a->[1]'></td>\n";
print "</tr>\n";
$i++;
}
print "</table></td> </tr>\n";
# display cdpath options
@cdpath = map { $_->[0] } &find_value('cdpath', $conf);
print "<tr> <td valign=top><b>$text{'alias_cdpath'}</b></td>\n";
print "<td><textarea name=cdpath rows=5 cols=40>",
join("\n", @cdpath),"</textarea></td> </tr>\n";
print "</table></td></tr></table>\n";
print "<input type=submit value=\"$text{'save'}\"></form>\n";
&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`