5 require './custom-lib.pl';
7 $edit = &get_command($in{'id'}, $in{'idx'});
8 &error_setup($text{'view_err'});
9 $edit->{'edit'} && &can_run_command($edit) || &error($text{'edit_ecannot'});
11 # Work out proper filename
12 $file = $edit->{'edit'};
14 # File is relative to user's home directory
15 @uinfo = getpwnam($remote_user);
16 $file = "$uinfo[7]/$file" if (@uinfo);
19 # Set environment variables for parameters
20 ($env, $export, $str, $displayfile) = &set_parameter_envs($edit, $file);
22 if ($edit->{'envs'} || @{$edit->{'args'}}) {
23 # Do environment variable substitution
24 chop($file = `echo "$file"`);
27 # Run the before-command
28 if ($edit->{'before'}) {
29 $out = &backquote_logged("($edit->{'before'}) 2>&1 </dev/null");
30 &error(&text('view_ebefore', &html_escape($out))) if ($?);
34 $in{'data'} =~ s/\r//g;
35 &open_lock_tempfile(FILE, ">$file", 1) ||
36 &error(&text('view_efile', $file, $!));
37 &print_tempfile(FILE, $in{'data'});
38 &close_tempfile(FILE);
41 if ($edit->{'user'}) {
42 &system_logged("chown $edit->{'user'}:$edit->{'group'} ".
43 "$file >/dev/null 2>&1");
45 if ($edit->{'perms'}) {
46 &system_logged("chmod $edit->{'perms'} ".
47 "$file >/dev/null 2>&1");
50 # Run the after-command
51 if ($edit->{'after'}) {
52 $out = &backquote_logged("($edit->{'after'}) 2>&1 </dev/null");
53 &error(&text('view_eafter', &html_escape($out))) if ($?);
56 &webmin_log("save", "edit", $cmd->{'id'}, $edit);