#!/usr/local/bin/perl

require './filemin-lib.pl';
&ReadParse();

get_paths();

my @errors;

# Validate inputs
my $file = &simplify_path($cwd.'/'.$in{'file'});
&check_allowed_path($file);
$data = $in{'data'};
$data =~ s/\r\n/\n/g;

if ( $in{'encoding'} && lc( $in{'encoding'} ) ne "utf-8" ) {
    eval { $data = Encode::encode( $in{'encoding'}, Encode::decode( 'utf-8', $data ) ) };
}
open(SAVE, ">", $file) or push @errors, "$text{'error_saving_file'} - $!";
print SAVE $data;
close SAVE;

if (scalar(@errors) > 0) {
    &ui_print_header(undef, $module_info{'name'}, "");
    print $text{'errors_occured'};
    print "<ul>";
    foreach $error(@errors) {
        print("<li>$error</li>");
    }
    print "<ul>";
    &ui_print_footer("javascript:history.back();", $text{'previous_page'});
} elsif ($in{'save_close'}) {
    &redirect("index.cgi?path=$path");
} else {
    &redirect("edit_file.cgi?path=$path&file=$in{'file'}");
}