| Server IP : 104.21.93.65 / Your IP : 104.23.243.50 Web Server : Apache System : Linux server.localhost.com 6.8.0-85-generic #85-Ubuntu SMP PREEMPT_DYNAMIC Thu Sep 18 15:26:59 UTC 2025 x86_64 User : pahana ( 1029) PHP Version : 7.4.33 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /usr/share/usermin/mailbox/ |
Upload File : |
#!/usr/bin/perl
# Show a form for setting up scheduled folder clearing
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %config);
require './mailbox-lib.pl';
&ReadParse();
my @folders = &list_folders();
my $folder = $folders[$in{'idx'}];
&ui_print_header(undef, $text{'auto_title'}, "");
print &ui_form_start("save_auto.cgi");
print &ui_hidden("idx", $in{'idx'});
print &ui_table_start($text{'auto_header'}, undef, 2);
# Folder name
print &ui_table_row($text{'auto_name'}, &html_escape($folder->{'name'}));
# Auto-clearing enabled
my $auto = &get_auto_schedule($folder);
$auto ||= { 'enabled' => 0, 'mode' => 0, 'days' => 30 };
print &ui_table_row($text{'auto_enabled'},
&ui_yesno_radio("enabled", int($auto->{'enabled'})));
# Deletion criteria
print &ui_table_row($text{'auto_mode'},
&ui_radio("mode", int($auto->{'mode'}),
[ [ 0, &text('auto_days',
&ui_textbox("days", $auto->{'days'}, 5))."<br>".
(" " x 4).&ui_checkbox("invalid", 1, $text{'auto_invalid'},
$auto->{'invalid'})."<br>" ],
[ 1, &text('auto_size',
&ui_bytesbox("size", $auto->{'size'}, 5)) ] ]));
# Delete whole mailbox, or just infringing mails, or move to another folder
my @fopts = map { [ &folder_name($_), &html_escape($_->{'name'}) ] }
grep { &folder_name($_) ne &folder_name($folder) }
@folders;
print &ui_table_row($text{'auto_action'},
&ui_radio("all", int($auto->{'all'}),
[ [ 0, $text{'auto_action0'}."<br>" ],
[ 1, $text{'auto_action1'}."<br>" ],
[ 2, &text('auto_action2',
&ui_select("dest", $auto->{'dest'},
\@fopts)) ] ]));
print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);
&ui_print_footer($config{'mail_system'} == 4 ? "list_ifolders.cgi"
: "list_folders.cgi",
$text{'folders_return'});