⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
usermin
/
mailbox
/
View File Name :
save_virt.cgi
#!/usr/bin/perl # Create, modify or delete a virtual folder 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, $old); if (!$in{'new'}) { $folder = $folders[$in{'idx'}]; $old = { %$folder }; } &error_setup($text{'save_err'}); if ($in{'delete'}) { # Just delete this folder file &delete_folder($old); } else { # Validate inputs $in{'name'} =~ /\S/ || &error($text{'save_ename'}); &parse_folder_options($folder, 0, \%in); # Save the folder $folder->{'type'} = 6; $folder->{'name'} = $in{'name'}; $folder->{'delete'} = $in{'deletesub'}; $folder->{'perpage'} = $in{'perpage_def'} ? undef : $in{'perpage'}; $folder->{'fromaddr'} = $in{'fromaddr_def'} ? undef : $in{'fromaddr'}; $folder->{'sent'} = $in{'sent'}; &save_folder($folder, $old); } &redirect(($config{'mail_system'} == 4 ? "list_ifolders.cgi" : "list_folders.cgi"). "?refresh=".&urlize($folder->{'name'}));