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

View File Name : copy.cgi

#!/usr/bin/perl
# Copy (or move) all messages from one folder to another
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'}];
my $dest = $folders[$in{'dest'}];

&ui_print_unbuffered_header(undef, $text{'copy_title'}, "");

print &text('copy_doing', &html_escape($folder->{'name'}), &html_escape($dest->{'name'})),"<p>\n";
&mailbox_copy_folder($folder, $dest);
print $text{'copy_done'},"<p>\n";

if ($in{'move'}) {
	print &text('copy_deleting', &html_escape($folder->{'name'})),"<p>\n";
	&mailbox_empty_folder($folder);
	print $text{'copy_done'},"<p>\n";
	}

&ui_print_footer($config{'mail_system'} == 4 ? "list_ifolders.cgi"
					     : "list_folders.cgi",
		 $text{'folders_return'});