mirror of
https://github.com/webmin/webmin.git
synced 2026-02-06 23:42:21 +00:00
41 lines
1.2 KiB
Perl
Executable File
41 lines
1.2 KiB
Perl
Executable File
#!/usr/local/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'});
|
|
|