Private
Server IP : 195.201.23.43  /  Your IP : 3.143.254.11
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/forward/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ HOME SHELL ]     

Current File : /usr/share/usermin/forward//edit_vacation.cgi
#!/usr/bin/perl
# Show form for editing vacation command options

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

&ui_print_header(undef, $text{'vacation_title'}, "");

if ($config{'mail_system'} == 0) {
	@aliases = &list_aliases();
	$a = $aliases[$in{'num'}];
	}
else {
	$a = &get_dotqmail($in{'file'});
	}
$dst = $a->{'values'}->[$in{'idx'}];
($type, $args) = &alias_type($dst);
$type == 8 || &error("Not a vacation alias!");

# Parse command-line args
@args = split(/\s+/, $args);
$user = pop(@args);
while(@args) {
	$arg = shift(@args);
	if ($arg eq "-m") {
		$msg = shift(@args);
		}
	elsif ($arg eq "-a") {
		$alias = shift(@args);
		push(@als, $alias);
		}
	elsif ($arg eq "-r") {
		$interval = shift(@args);
		}
	else {
		push(@unknown, $arg);
		}
	}

print &ui_form_start("save_vacation.cgi", "post");
print &ui_table_start($text{'vacation_header'}, undef, 2);
print &ui_hidden("file", $in{'file'});
print &ui_hidden("num", $in{'num'});
print &ui_hidden("idx", $in{'idx'});
foreach $u (@unknown) {
	print &ui_hidden("unknown", $u);
	}

# Username for this user
print &ui_table_row($text{'vacation_user'},
		    &ui_radio("user_def", $user eq $remote_user ? 1 : 0,
			      [ [ 1, $text{'default'} ],
				[ 0, $text{'vacation_usersel'} ] ])."\n".
		    &ui_textbox("user", $user eq $remote_user ? undef : $user,
				20));

# Extra aliases
print &ui_table_row($text{'vacation_aliases'},
		    &ui_textarea("aliases", join("\n", @als), 5, 30));

# Message file
$defmsg = ".vacation.msg";
print &ui_table_row($text{'vacation_msg'},
		    &ui_radio("msg_def", $msg ? 0 : 1,
			      [ [ 1, $text{'default'}." (<tt>$defmsg</tt>)" ],
				[ 0, " " ] ])."\n".
		    &ui_textbox("msg", $msg, 30)." ".
		    "<a href='edit_vfile.cgi?vfile=".
		    &urlize($msg || $defmsg)."&num=$a->{'num'}&".
		    "file=$in{'file'}&idx=$in{'idx'}'>".
		    "$text{'aform_afile'}</a>\n");

# Autoreply interval
print &ui_table_row($text{'vacation_interval'},
		    &ui_radio("interval_def", $interval ? 0 : 1,
			      [ [ 1, $text{'default'} ],
				[ 0, " " ] ])."\n".
		    &ui_textbox("interval", $interval, 5)." ".
			        $text{'vacation_days'});

print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);

&ui_print_footer("edit_alias.cgi?num=$in{'num'}file=$in{'file'}",
		 $text{'aform_return'});

Private