File: save_expframe.cgi

package info (click to toggle)
webmin-virtual-server 2.50-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,608 kB
  • ctags: 392
  • sloc: perl: 15,687; makefile: 95; sh: 8
file content (21 lines) | stat: -rwxr-xr-x 563 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/local/bin/perl
# Save frame-forwarding HTML

require './virtual-server-lib.pl';
&ReadParseMime();
$d = &get_domain($in{'dom'});
$access{'edit'} && &can_edit_domain($d) || &error($text{'edit_ecannot'});

$ff = &framefwd_file($d);
&switch_to_domain_user($d);
$in{'text'} =~ s/\r//g;
$in{'text'} =~ s/\n*$/\n/;
&lock_file($ff);
open(FILE, ">$ff") ||
	&error(&text('expframe_ewrite', $ff, $d->{'user'}, $!));
print FILE $in{'text'};
close(FILE);
&unlock_file($ff);

&webmin_log("frame", "domain", $d->{'dom'}, $d);
&redirect("edit_domain.cgi?dom=$in{'dom'}");