PageRenderTime 37ms CodeModel.GetById 10ms RepoModel.GetById 0ms app.codeStats 0ms

/phpini/edit_dirs.cgi

http://github.com/webmin/webmin
Perl | 44 lines | 29 code | 9 blank | 6 comment | 1 complexity | ed95b78689b059f6215503c756ab05c4 MD5 | raw file
Possible License(s): BSD-3-Clause, GPL-3.0, CC-BY-SA-3.0
  1. #!/usr/local/bin/perl
  2. # Show options for program directories and directory limits
  3. require './phpini-lib.pl';
  4. &ReadParse();
  5. &can_php_config($in{'file'}) || &error($text{'list_ecannot'});
  6. $conf = &get_config($in{'file'});
  7. &ui_print_header("<tt>$in{'file'}</tt>", $text{'dirs_title'}, "");
  8. print &ui_form_start("save_dirs.cgi", "post");
  9. print &ui_hidden("file", $in{'file'}),"\n";
  10. print &ui_table_start($text{'dirs_header'}, "width=100%", 2);
  11. # Include files directories
  12. $include = &find_value("include_path", $conf);
  13. print &ui_table_row($text{'dirs_include'},
  14. &ui_radio("include_def", $include ? 0 : 1,
  15. [ [ 1, $text{'default'} ], [ 0, $text{'dirs_below'} ] ]).
  16. "<br>\n".
  17. &ui_textarea("include", join("\n", split(/:/, $include)), 3, 60)." ".
  18. &file_chooser_button("include", 1, undef, undef, 1));
  19. # Extensions directory
  20. print &ui_table_row($text{'dirs_ext'},
  21. &ui_opt_textbox("ext", &find_value("extension_dir", $conf),
  22. 60, $text{'default'})." ".
  23. &file_chooser_button("ext", 1));
  24. # Can accept uploads?
  25. print &ui_table_row($text{'dirs_upload'},
  26. &onoff_radio("file_uploads"));
  27. # Upload temp files directory
  28. print &ui_table_row($text{'dirs_utmp'},
  29. &ui_opt_textbox("utmp", &find_value("upload_tmp_dir", $conf),
  30. 60, $text{'default'})." ".
  31. &file_chooser_button("utmp", 1));
  32. print &ui_table_end();
  33. print &ui_form_end([ [ "save", $text{'save'} ] ]);
  34. &ui_print_footer("list_ini.cgi?file=".&urlize($in{'file'}),
  35. $text{'list_return'});