1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#!/usr/local/bin/perl
# frame_form.cgi
# Display frame-forwarding settings form
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
$access{'edit'} && &can_edit_domain($d) || &error($text{'edit_ecannot'});
&ui_print_header(&domain_in($d), $text{'frame_title'}, "");
$ff = &framefwd_file($d);
print &text('frame_desc', "<tt>$ff</tt>"),"<p>\n";
print "<form action=save_frame.cgi method=post>\n";
print "<input type=hidden name=dom value='$in{'dom'}'>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'frame_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
print "<tr> <td><b>$text{'frame_url'}</b></td>\n";
printf "<td><input name=url size=40 value='%s'></td> </tr>\n",
$d->{'proxy_pass'};
print "<tr> <td><b>$text{'frame_owner'}</b></td>\n";
printf "<td><input name=title size=40 value='%s'></td> </tr>\n",
$d->{'proxy_title'} || $d->{'owner'};
print "<tr> <td valign=top><b>$text{'frame_meta'}</b></td>\n";
print "<td><textarea name=meta rows=5 cols=50>",
join("\n", split(/\t+/, $d->{'proxy_meta'})),
"</textarea></td> </tr>\n";
print "</table></td></tr></table>\n";
print "<input type=submit value='$text{'frame_ok'}'></form>\n";
# Show button for 'expert' mode
print "<hr>\n";
print "<table>\n";
print "<form action=expframe_form.cgi>\n";
print "<input type=hidden name=dom value='$in{'dom'}'>\n";
print "<tr> <td><input type=submit value='$text{'edit_expframe'}'></td>\n";
print "<td>$text{'edit_expframedesc'}</td> </tr>\n";
print "</form>\n";
print "</table>\n";
&ui_print_footer("edit_domain.cgi?dom=$in{'dom'}", $text{'edit_return'},
"", $text{'index_return'});
|
