#!/usr/local/cpanel/3rdparty/bin/perl # gniza WHM Plugin — Main Config Editor use strict; use warnings; use lib '/usr/local/cpanel/whostmgr/docroot/cgi/gniza-whm/lib'; use Whostmgr::HTMLInterface (); use Cpanel::Form (); use GnizaWHM::Config; use GnizaWHM::Validator; use GnizaWHM::UI; my $CONFIG_FILE = '/etc/gniza/gniza.conf'; my $form = Cpanel::Form::parseform(); my $method = $ENV{'REQUEST_METHOD'} // 'GET'; # ── Handle POST ────────────────────────────────────────────── my @errors; my $saved = 0; if ($method eq 'POST') { unless (GnizaWHM::UI::verify_csrf_token($form->{'gniza_csrf'})) { push @errors, 'Invalid or expired form token. Please try again.'; } if (!@errors) { my %data; for my $key (@GnizaWHM::Config::MAIN_KEYS) { $data{$key} = $form->{$key} // ''; } my $validation_errors = GnizaWHM::Validator::validate_main_config(\%data); if (@$validation_errors) { @errors = @$validation_errors; } else { my ($ok, $err) = GnizaWHM::Config::write($CONFIG_FILE, \%data, \@GnizaWHM::Config::MAIN_KEYS); if ($ok) { GnizaWHM::UI::set_flash('success', 'Configuration saved successfully.'); print "Status: 302 Found\r\n"; print "Location: settings.cgi\r\n\r\n"; exit; } else { push @errors, "Failed to save config: $err"; } } } } # ── Render Page ────────────────────────────────────────────── print "Content-Type: text/html\r\n\r\n"; Whostmgr::HTMLInterface::defheader('gniza Backup Manager — Settings', '', '/cgi/gniza-whm/settings.cgi'); print GnizaWHM::UI::page_header('Settings'); print GnizaWHM::UI::render_nav('settings.cgi'); print GnizaWHM::UI::render_flash(); if (@errors) { print GnizaWHM::UI::render_errors(\@errors); } # Load current config (or use POST data if validation failed) my $conf; if (@errors && $method eq 'POST') { $conf = {}; for my $key (@GnizaWHM::Config::MAIN_KEYS) { $conf->{$key} = $form->{$key} // ''; } } else { $conf = GnizaWHM::Config::parse($CONFIG_FILE, 'main'); } # Helper to output a text field row sub field_text { my ($key, $label, $hint, $extra) = @_; $extra //= ''; my $val = GnizaWHM::UI::esc($conf->{$key} // ''); my $hint_html = $hint ? qq{ $hint} : ''; print qq{
\n}; print qq{ \n}; print qq{ \n}; print qq{ $hint_html\n} if $hint; print qq{
\n}; } # Helper to output a select field row sub field_select { my ($key, $label, $options_ref) = @_; my $current = $conf->{$key} // ''; print qq{
\n}; print qq{ \n}; print qq{ \n}; print qq{
\n}; } # ── Form ───────────────────────────────────────────────────── print qq{
\n}; print GnizaWHM::UI::csrf_hidden_field(); # Section: Local Settings print qq{
\n
\n}; print qq{

Local Settings

\n}; field_text('TEMP_DIR', 'Working Directory', 'Default: /usr/local/gniza/workdir'); print qq{
\n
\n}; # Section: Account Filtering print qq{
\n
\n}; print qq{

Account Filtering

\n}; my $inc_val = GnizaWHM::UI::esc($conf->{INCLUDE_ACCOUNTS} // ''); my $exc_val = GnizaWHM::UI::esc($conf->{EXCLUDE_ACCOUNTS} // ''); print qq{
\n}; print qq{ \n}; print qq{ \n}; print qq{
\n}; print qq{
\n}; print qq{ \n}; print qq{ \n}; print qq{
\n}; my @accounts = GnizaWHM::UI::get_cpanel_accounts(); if (@accounts) { print qq{
}; print qq{Available accounts: } . GnizaWHM::UI::esc(join(', ', @accounts)); print qq{
\n}; } print qq{
\n
\n}; # Section: Logging print qq{
\n
\n}; print qq{

Logging

\n}; field_text('LOG_DIR', 'Log Directory', 'Default: /var/log/gniza'); field_select('LOG_LEVEL', 'Log Level', ['debug', 'info', 'warn', 'error']); field_text('LOG_RETAIN', 'Log Retention (days)', 'Default: 90'); print qq{
\n
\n}; # Section: Notifications print qq{
\n
\n}; print qq{

Notifications

\n}; field_text('NOTIFY_EMAIL', 'Email Address', 'Empty = disabled'); field_select('NOTIFY_ON', 'Notify On', ['always', 'failure', 'never']); print qq{
\n
\n}; # Section: Advanced print qq{
\n
\n}; print qq{

Advanced

\n}; field_text('LOCK_FILE', 'Lock File', 'Default: /var/run/gniza.lock'); field_text('SSH_TIMEOUT', 'SSH Timeout (seconds)', 'Default: 30'); field_text('SSH_RETRIES', 'SSH Retries', 'Default: 3'); field_text('RSYNC_EXTRA_OPTS', 'Extra rsync Options', 'Additional flags for rsync'); print qq{
\n
\n}; # Submit print qq{
\n}; print qq{ \n}; print qq{
\n}; print qq{
\n}; print GnizaWHM::UI::page_footer(); Whostmgr::HTMLInterface::footer();