3 # Display messages and readmes
5 require './wuftpd-lib.pl';
6 &ui_print_header(undef, $text{'message_title'}, "", "message");
8 $conf = &get_ftpaccess();
10 print "<form action=save_message.cgi>\n";
11 print "<table border width=100%>\n";
12 print "<tr $tb> <td><b>$text{'message_header'}</b></td> </tr>\n";
13 print "<tr $cb> <td><table width=100%>\n";
15 @message = ( &find_value("message", $conf), [ ] );
16 print "<tr> <td valign=top><b>$text{'message_message'}</b></td>\n";
17 print "<td><table border width=100%>\n";
18 print "<tr $tb> <td><b>$text{'message_path'}</b></td>\n",
19 "<td><b>$text{'message_when'}</b></td>\n",
20 "<td><b>$text{'message_classes'}</b></td> </tr>\n";
22 foreach $m (@message) {
24 print "<td><input name=mpath_$i size=15 value='$m->[0]'></td>\n";
25 printf "<td nowrap><input name=mwhen_$i type=radio value=0 %s> %s\n",
26 $m->[1] =~ /^login$/i ? 'checked' : '',
27 $text{'message_login'};
28 printf "<input name=mwhen_$i type=radio value=1 %s> %s\n",
29 $m->[1] =~ /^cwd=\*$/ ? 'checked' : '',
30 $text{'message_alldir'};
31 printf "<input name=mwhen_$i type=radio value=2 %s> %s\n",
32 $m->[1] =~ /^cwd=([^\*].*)$/ ? 'checked' : '',
34 printf "<input name=mcwd_$i size=20 value='%s'></td>\n",
35 $m->[1] =~ /^cwd=([^\*].*)$/ ? $1 : '';
36 printf "<td><input name=mclasses_$i size=15 value='%s'></td>\n",
37 join(" ", @$m[2..@$m-1]);
41 print "</table></td> </tr>\n";
42 print "<tr> <td colspan=2><hr></td> </tr>\n";
44 @readme = ( &find_value("readme", $conf), [ ] );
45 print "<tr> <td valign=top><b>$text{'message_readme'}</b></td>\n";
46 print "<td><table border width=100%>\n";
47 print "<tr $tb> <td><b>$text{'message_path'}</b></td>\n",
48 "<td><b>$text{'message_update'}</b></td>\n",
49 "<td><b>$text{'message_classes'}</b></td> </tr>\n";
51 foreach $m (@readme) {
53 print "<td><input name=rpath_$i size=15 value='$m->[0]'></td>\n";
54 printf "<td nowrap><input name=rwhen_$i type=radio value=0 %s> %s\n",
55 $m->[1] =~ /^login$/i ? 'checked' : '',
56 $text{'message_login'};
57 printf "<input name=rwhen_$i type=radio value=1 %s> %s\n",
58 $m->[1] =~ /^cwd=\*$/ ? 'checked' : '',
59 $text{'message_alldir'};
60 printf "<input name=rwhen_$i type=radio value=2 %s> %s\n",
61 $m->[1] =~ /^cwd=([^\*].*)$/ ? 'checked' : '',
63 printf "<input name=rcwd_$i size=20 value='%s'></td>\n",
64 $m->[1] =~ /^cwd=([^\*].*)$/ ? $1 : '';
65 printf "<td><input name=rclasses_$i size=15 value='%s'></td>\n",
66 join(" ", @$m[2..@$m-1]);
70 print "</table></td> </tr>\n";
71 print "<tr> <td colspan=2><hr></td> </tr>\n";
73 $g = &find_value('greeting', $conf);
74 print "<tr> <td><b>$text{'message_greeting'}</b></td>\n";
75 printf "<td><input type=radio name=greeting value=full %s> %s\n",
76 $g->[0] eq 'full' || !$g->[0] ? 'checked' : '', $text{'message_full'};
77 printf "<input type=radio name=greeting value=brief %s> %s\n",
78 $g->[0] eq 'brief' ? 'checked' : '', $text{'message_brief'};
79 printf "<input type=radio name=greeting value=terse %s> %s</td> </tr>\n",
80 $g->[0] eq 'terse' ? 'checked' : '', $text{'message_terse'};
82 $b = &find_value('banner', $conf);
83 print "<tr> <td><b>$text{'message_banner'}</b></td>\n";
84 printf "<td><input type=radio name=banner_def value=1 %s> %s\n",
85 $b ? '' : 'checked', $text{'message_none'};
86 printf "<input type=radio name=banner_def value=0 %s> %s\n",
87 $b ? 'checked' : '', $text{'message_file'};
88 printf "<input name=banner size=30 value='%s'> %s</td> </tr>\n",
89 $b->[0], &file_chooser_button('banner', 0);
91 $h = &find_value('hostname', $conf);
92 print "<tr> <td><b>$text{'message_hostname'}</b></td>\n";
93 printf "<td><input type=radio name=hostname_def value=1 %s> %s\n",
94 $h ? '' : 'checked', $text{'message_hostdef'};
95 printf "<input type=radio name=hostname_def value=0 %s>\n",
97 printf "<input name=hostname size=30 value='%s'> %s</td> </tr>\n",
100 $e = &find_value('email', $conf);
101 print "<tr> <td><b>$text{'message_email'}</b></td>\n";
102 printf "<td><input type=radio name=email_def value=1 %s> %s\n",
103 $e ? '' : 'checked', $text{'default'};
104 printf "<input type=radio name=email_def value=0 %s>\n",
106 printf "<input name=email size=30 value='%s'> %s</td> </tr>\n",
109 print "</table></td></tr></table>\n";
110 print "<input type=submit value=\"$text{'save'}\"></form>\n";
112 &ui_print_footer("", $text{'index_return'});