#!/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'; my $action = $form->{'action'} // ''; # ── Handle SMTP Test (JSON) ────────────────────────────────── if ($action eq 'test_smtp') { print "Content-Type: application/json\r\n\r\n"; my $host = $form->{'SMTP_HOST'} // ''; my $port = $form->{'SMTP_PORT'} || '587'; my $user = $form->{'SMTP_USER'} // ''; my $password = $form->{'SMTP_PASSWORD'} // ''; my $from = $form->{'SMTP_FROM'} // ''; my $security = $form->{'SMTP_SECURITY'} || 'tls'; my $to = $form->{'NOTIFY_EMAIL'} // ''; if ($host eq '') { print qq({"success":false,"message":"SMTP Host is required."}); exit; } if ($to eq '') { print qq({"success":false,"message":"Notification email is required for test."}); exit; } my ($ok, $err) = GnizaWHM::UI::test_smtp_connection( host => $host, port => $port, user => $user, password => $password, from => $from, security => $security, to => $to, ); if ($ok) { print qq({"success":true,"message":"Test email sent successfully. Check your inbox."}); } else { $err //= 'Unknown error'; $err =~ s/\\/\\\\/g; $err =~ s/"/\\"/g; $err =~ s/\n/\\n/g; $err =~ s/\r/\\r/g; $err =~ s/\t/\\t/g; $err =~ s/[\x00-\x1f]//g; print qq({"success":false,"message":"SMTP test failed: $err"}); } exit; } # ── 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, $tip) = @_; $extra //= ''; my $val = GnizaWHM::UI::esc($conf->{$key} // ''); my $hint_html = $hint ? qq{ $hint} : ''; my $tip_html = $tip ? qq{ } : ''; 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', '', 'Temporary directory used for pkgacct output before transfer'); 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', '', 'Log files older than this are automatically deleted'); print qq{
\n
\n}; # Section: Notifications print qq{
\n
\n}; print qq{

Notifications

\n}; field_text('NOTIFY_EMAIL', 'Email Address(es)', 'Comma-separated, empty = disabled'); field_select('NOTIFY_ON', 'Notify On', ['always', 'failure', 'never']); print qq{
\n
\n}; # Section: SMTP Settings print qq{
\n
\n}; print qq{

SMTP Settings

\n}; print qq{

Optional. When SMTP Host is empty, system mail/sendmail is used.

\n}; field_text('SMTP_HOST', 'SMTP Host', 'e.g. smtp.gmail.com'); field_text('SMTP_PORT', 'SMTP Port', 'Default: 587'); field_text('SMTP_USER', 'SMTP Username', 'e.g. user@gmail.com'); # SMTP Password (type=password) my $smtp_pw_val = GnizaWHM::UI::esc($conf->{SMTP_PASSWORD} // ''); print qq{
\n}; print qq{ \n}; print qq{ \n}; print qq{
\n}; field_text('SMTP_FROM', 'From Address', 'Falls back to SMTP Username'); field_select('SMTP_SECURITY', 'Security', ['tls', 'ssl', 'none']); print qq{
\n}; print qq{ \n}; print qq{
\n}; print qq{
\n}; 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', '', 'Prevents multiple backup processes from running simultaneously'); field_text('SSH_TIMEOUT', 'SSH Timeout (seconds)', 'Default: 30', '', 'How long to wait for an SSH connection before giving up'); field_text('SSH_RETRIES', 'SSH Retries', 'Default: 3', '', 'Number of rsync retry attempts with exponential backoff on failure'); field_text('RSYNC_EXTRA_OPTS', 'Extra rsync Options', 'Additional flags for rsync', '', 'Global extra flags appended to all rsync commands, e.g. --compress'); print qq{
\n
\n}; # Submit print qq{
\n}; print qq{ \n}; print qq{
\n}; print qq{
\n}; print <<'JS'; JS print GnizaWHM::UI::page_footer(); Whostmgr::HTMLInterface::footer();