| Server IP : 172.67.134.114 / Your IP : 162.159.115.41 Web Server : Apache/2.4.37 System : Linux almalinux.duckdns.org 4.18.0-553.111.1.el8_10.x86_64 #1 SMP Sun Mar 8 20:06:07 EDT 2026 x86_64 User : ricodeal ( 1046) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/libexec/usermin/mailbox/ |
Upload File : |
#!/usr/bin/perl
# Create a new virtual folder from some search results
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in);
require './mailbox-lib.pl';
&ReadParse();
my @folders = &list_folders();
$in{'virtual'} || &error($text{'virtualize_ename'});
my $folder = { 'type' => 6,
'mode' => 0,
'name' => $in{'virtual'},
'virtual' => 1,
'members' => [ ] };
foreach my $k (keys %in) {
if ($k =~ /^idx_(\d+)$/) {
my ($idx, $fidx) = split(/\s+/, $in{$k}, 2);
my ($folder) = grep { $_->{'index'} == $fidx } @folders;
$folder || &error($text{'view_efolder'});
$folder->{'members'}->[$1] = [ $folder, $idx ];
}
}
&save_folder($folder);
&redirect("index.cgi?folder=".scalar(@folders));