#!/usr/local/bin/perl
require './filemin-lib.pl';
&ReadParse();
get_paths();
my $file = &simplify_path($cwd.'/'.$in{'file'});
&check_allowed_path($file);
my $data = &read_file_contents($file);
my $encoding_name;
eval "use Encode::Detect::Detector;";
if (!$@) {
$encoding_name = Encode::Detect::Detector::detect($data);
}
if ( lc( get_charset() ) eq "utf-8" && ( $encoding_name && lc($encoding_name) ne "utf-8" ) ) {
use Encode qw( encode decode );
eval { $data = Encode::encode( 'utf-8', Encode::decode( $encoding_name, $data ) ) };
}
&ui_print_header( undef, $text{'edit_file'}, "" );
$head = "";
if ( $current_theme ne 'authentic-theme' ) {
$head .= "";
$head .= "";
$head .= "";
# Include Codemirror specific files
$head .= "";
$head .= "";
$head .= "";
$head .= "";
$head .= "";
$head .= "";
$head .= "";
}
print $head;
print ui_table_start(&html_escape("$path/$in{'file'}"), undef, 1 );
print &ui_form_start( "save_file.cgi", "post", undef, "data-encoding=\"$encoding_name\"" );
print &ui_hidden( "file", $in{'file'} ), "\n";
print &ui_hidden( "encoding", $encoding_name ), "\n";
print &ui_textarea( "data", $data, 20, 80, undef, undef, "style='width: 100%' id='data'" );
print &ui_hidden( "path", $path );
print &ui_form_end( [ [ save, $text{'save'} ], [ save_close, $text{'save_close'} ] ] );
print ui_table_end();
print "";
print "";
&ui_print_footer( "index.cgi?path=".&urlize($path), $text{'previous_page'} );