48 lines
1.3 KiB
Perl
48 lines
1.3 KiB
Perl
#!/usr/bin/perl
|
|
|
|
require './geohelm-lib.pl';
|
|
&ui_print_header($text{'editor_desc1'}, $text{'editor_title'}, "");
|
|
|
|
my $files_home = '/var/www/html';
|
|
my $home_path = ($in{'home_path'}) ? $in{'home_path'} : $files_home;
|
|
|
|
if($ENV{'CONTENT_TYPE'} =~ /boundary=(.*)$/) {
|
|
&ReadParseMime();
|
|
|
|
$home_path = $in{'home_path'};
|
|
|
|
if(-d $home_path.'/'.$in{'file'}){
|
|
$home_path .= $in{'file'};
|
|
}else{
|
|
$in{'file'} = $home_path. '/'.$in{'file'};
|
|
}
|
|
}else{
|
|
&ReadParse();
|
|
$home_path = $files_home;
|
|
}
|
|
|
|
print &ui_form_start("edit_files.cgi", 'form-data');
|
|
print &ui_hidden("home_path" , $home_path);
|
|
|
|
print "<b>$text{'manual_file'}</b>\n";
|
|
if(-f $in{'file'}){
|
|
print &ui_textbox("file", $in{'file'}, 40)." ".&file_chooser_button("file", 0, undef, $home_path, '1');
|
|
}else{
|
|
print &ui_textbox("file", $home_path, 40)." ".&file_chooser_button("file", 0, undef, $home_path, '1');
|
|
}
|
|
print &ui_submit($text{'load_ok'});
|
|
print &ui_form_end();
|
|
|
|
# Show the file contents
|
|
print &ui_form_start("save_files.cgi", "form-data");
|
|
print &ui_hidden("file", $in{'file'}),"\n";
|
|
if(-f $in{'file'}){
|
|
$data = &read_file_contents($in{'file'});
|
|
print &ui_textarea("data", $data, 20, 80),"\n";
|
|
print &ui_form_end([["save", $text{'save'} ]]);
|
|
}else{
|
|
print &ui_form_end();
|
|
}
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|