PAL.C.T MINI SHELL
#!/usr/bin/perl
#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;
our (%in, $current_theme, $config_directory, $remote_user, %theme_text);
do("$ENV{'THEME_ROOT'}/authentic-lib.pl");
my $file = $config_directory . "/$current_theme/favorites-$remote_user.json";
my $data = &read_file_contents($file);
($data =~ /\{(?:\{.*\}|[^{])*\}/sg);
&ui_print_header(undef, $theme_text{'left_favorites_edit'}, undef, undef, undef, 1);
print '' . &theme_text('left_favorites_edit_desc') . '<p></p>';
print &ui_form_start("settings-editor_favorites_write.cgi", "form-data");
print &ui_textarea("data", $data, 20, 80, undef, undef);
print &ui_form_end([["save", $theme_text{'theme_xhred_global_save'}]]);
&ui_print_footer();
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`