settings-editor_write.cgi

#!/usr/bin/perl

#
# Authentic Theme (https://github.com/qooob/authentic-theme)
# Copyright Ilia Rostovtsev <programming@rostovtsev.ru>
# Licensed under MIT (https://github.com/qooob/authentic-theme/blob/master/LICENSE)
#

use File::Basename;
require(dirname(__FILE__) . "/authentic-lib.pm");

!foreign_available("webmin") && error($Atext{'theme_error_access_not_root'});

theme_config_dir_available();

unlink_file($in{'file'});
write_file_contents($in{'file'}, $in{'data'});

if (usermin_available()) {
    (my $_file = $in{'file'}) =~ s/webmin/usermin/;
    unlink_file($_file);
    write_file_contents($_file, $in{'data'});
}
redirect("/webmin/edit_themes.cgi");