Private
Server IP : 195.201.23.43  /  Your IP : 18.191.239.71
Web Server : Apache
System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64
User : kdecoratie ( 1041)
PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1
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,
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/usermin/mailbox/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ HOME SHELL ]     

Current File : /usr/share/usermin/mailbox/edit_folder.cgi
#!/usr/bin/perl
# edit_folder.cgi
# Display a form for creating or editing a folder of some kind
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %userconfig);
our $folders_dir;
our @remote_user_info;

require './mailbox-lib.pl';
&ReadParse();

my $mode;
my @folders;
my $folder;
if ($in{'new'}) {
	&ui_print_header(undef, $text{'edit_title1'}, "");
	$mode = $in{'mode'};
	}
else {
	&ui_print_header(undef, $text{'edit_title2'}, "");
	@folders = &list_folders();
	$folder = $folders[$in{'idx'}];
	$mode = $folder->{'mode'};
	}

# Form and table start
print &ui_form_start("save_folder.cgi");
print &ui_hidden("idx", $in{'idx'});
print &ui_hidden("new", $in{'new'});
print &ui_hidden("mode", $mode);
print &ui_table_start($text{'edit_header'}, undef, 2);

# Folder type
print &ui_table_row($text{'edit_mode'},
	&text("edit_mode$mode", "<tt>$folders_dir</tt>"));

if ($mode == 0) {
	# Adding/editing a new file or directory to ~/mail
	print &ui_table_row($text{'edit_name'},
		&ui_textbox("name", $folder->{'name'}, 40));

	if ($in{'new'} && $folders_dir eq "$remote_user_info[7]/Maildir") {
		# A new folder, but under a Maildir .. so it must be maildir too
		print &ui_table_row($text{'edit_type'},
			$text{'edit_type1'});
		print &ui_hidden("type", 1),"\n";
		}
	elsif ($in{'new'}) {
		# Can choose the type of a new folder
		print &ui_table_row($text{'edit_type'},
			&ui_radio("type", 0,
				[ [ 0, $text{'edit_type0'} ],
				  [ 1, $text{'edit_type1'} ],
				  $userconfig{'mailbox_recur'} ?
					( [ 3, $text{'edit_type3'} ] ) : ( )
				]));
		}
	else {
		# Show type of existing folder
		print &ui_table_row($text{'edit_type'},
			$text{'edit_type'.$folder->{'type'}});
		}
	}
elsif ($mode == 1) {
	# Adding/editing an external file or directory
	print &ui_table_row($text{'edit_name'},
		&ui_textbox("name", $folder->{'name'}, 40));

	print &ui_table_row($text{'edit_file'},
		&ui_textbox("file", $folder->{'file'}, 40)." ".
		&file_chooser_button("file"));
	}
elsif ($mode == 2) {
	# Selecting the sent mail folder
	my $sf = "$folders_dir/sentmail";
	print &ui_table_row($text{'edit_sent'},
		&ui_radio("sent_def", $folder->{'file'} eq $sf ? 1 : 0,
			  [ [ 1, $text{'edit_sent1'} ],
			    [ 0, $text{'edit_sent0'} ] ])." ".
		&ui_textbox("sent", $folder->{'file'} eq $sf ? "" :
					$folder->{'file'}, 40)." ".
		&file_chooser_button("sent"));
	}

&show_folder_options($folder, $mode);

print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	}
else {
	print &ui_form_end([ [ undef, $text{'save'} ],
			     $mode == 2 ? ( ) :
				( [ 'delete', $text{'delete'} ] ) ]);
	}

&ui_print_footer("list_folders.cgi", $text{'folders_return'});
Private