#!/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'} );