Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	2.96 KB	-rw-r--r--
aliases-lib.pl	7.93 KB	-rwxr-xr-x
autoreply-file-lib.pl	2.28 KB	-rwxr-xr-x
config	218 B	-rw-r--r--
config.info	489 B	-rw-r--r--
config.info.ca	556 B	-rw-r--r--
config.info.ca.UTF-8	575 B	-rw-r--r--
config.info.cz	344 B	-rw-r--r--
config.info.cz.UTF-8	370 B	-rw-r--r--
config.info.de	598 B	-rw-r--r--
config.info.de.UTF-8	598 B	-rw-r--r--
config.info.el	264 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	584 B	-rw-r--r--
config.info.nl.UTF-8	584 B	-rw-r--r--
config.info.no	527 B	-rw-r--r--
config.info.no.UTF-8	527 B	-rw-r--r--
config.info.pl	580 B	-rw-r--r--
config.info.pl.UTF-8	604 B	-rw-r--r--
delete.cgi	431 B	-rwxr-xr-x
down.cgi	261 B	-rwxr-xr-x
edit.cgi	8.97 KB	-rwxr-xr-x
edit_auto.cgi	3.11 KB	-rwxr-xr-x
edit_forward.cgi	1.18 KB	-rwxr-xr-x
filter-lib.pl	17.71 KB	-rwxr-xr-x
index.cgi	4.33 KB	-rwxr-xr-x
module.info	260 B	-rw-r--r--
module.info.ca	109 B	-rw-r--r--
module.info.ca.UTF-8	121 B	-rw-r--r--
module.info.cz	39 B	-rw-r--r--
module.info.cz.UTF-8	52 B	-rw-r--r--
module.info.de	114 B	-rw-r--r--
module.info.de.UTF-8	126 B	-rw-r--r--
module.info.hu	81 B	-rw-r--r--
module.info.hu.UTF-8	104 B	-rw-r--r--
module.info.ms_MY	109 B	-rw-r--r--
module.info.ms_MY.UTF-8	121 B	-rw-r--r--
module.info.nl	34 B	-rw-r--r--
module.info.nl.UTF-8	40 B	-rw-r--r--
module.info.no	37 B	-rw-r--r--
module.info.no.UTF-8	43 B	-rw-r--r--
module.info.pl	114 B	-rw-r--r--
module.info.pl.UTF-8	130 B	-rw-r--r--
move.cgi	1.61 KB	-rwxr-xr-x
save.cgi	7.63 KB	-rwxr-xr-x
save_auto.cgi	2.73 KB	-rwxr-xr-x
save_forward.cgi	959 B	-rwxr-xr-x
up.cgi	259 B	-rwxr-xr-x

Code Editor : save_auto.cgi

#!/usr/bin/perl
# Create, update or delete an autoreply filter

require './filter-lib.pl';
&ReadParse();
&error_setup($text{'auto_err'});
use Time::Local;

# Find existing autoreply filter object
&lock_file($procmail::procmailrc);
@filters = &list_filters();
($old) = grep { $_->{'actionreply'} && $_->{'nocond'} } @filters;
$filter = $old;

if ($filter && !$in{'enabled'}) {
	# Just delete
	&delete_filter($filter);
	}
elsif ($in{'enabled'}) {
	# Create or update
	if (!$filter) {
		$filter = { 'actionreply' => 1,
			    'body' => 0,
			    'continue' => 1 };
		}
	$in{'reply'} =~ /\S/ || &error($text{'save_ereply'});
	$in{'reply'} =~ s/\r//g;
	$filter->{'reply'}->{'autotext'} = $in{'reply'};

# From address (automatic)
	$filter->{'reply'}->{'from'} = &mailbox::get_preferred_from_address();

# File
	$idx = defined($filter->{'index'}) ? $filter->{'index'}
					   : scalar(@filters);
	$filter->{'reply'}->{'autoreply'} ||=
		"$remote_user_info[7]/autoreply.$idx.txt";

# Reply period
	if ($config{'reply_force'}) {
		# Forced to minimum
		$min = $config{'reply_min'} || 60;
		$filter->{'reply'}->{'period'} = $min*60;
		$filter->{'reply'}->{'replies'} ||=
			"$user_module_config_directory/replies";
		}
	elsif ($in{'period_def'}) {
		# No autoreply period
		delete($filter->{'reply'}->{'replies'});
		delete($filter->{'reply'}->{'period'});
		}
	else {
		# Set reply period and tracking file
		$in{'period'} =~ /^\d+$/ ||
			&error($text{'save_eperiod'});
		if ($config{'reply_min'} &&
		    $in{'period'} < $config{'reply_min'}) {
			&error(&text('save_eperiodmin', $config{'reply_min'}));
			}
		$filter->{'reply'}->{'period'} = $in{'period'}*60;
		$filter->{'reply'}->{'replies'} ||=
			"$user_module_config_directory/replies";
		}

# Save character set
	if ($in{'charset_def'} == 1) {
		delete($filter->{'reply'}->{'charset'});
		}
	elsif ($in{'charset_def'} == 2) {
		$filter->{'reply'}->{'charset'} = &get_charset();
		}
	else {
		$in{'charset'} =~ /^[a-z0-9\.\-\_]+$/i ||
			error($text{'save_echarset'});
		$filter->{'reply'}->{'charset'} = $in{'charset'};
		}

# Save subject
	if ($in{'subject_def'}) {
		delete($filter->{'reply'}->{'subject'});
		}
	else {
		$filter->{'reply'}->{'subject'} = $in{'subject'};
		}

# Save autoreply start and end
	foreach $p ('start', 'end') {
		local ($s, $m, $h) = $p eq 'start' ? (0, 0, 0) :
					(59, 59, 23);
		if (!$in{$p.'_def'}) {
			eval {
				$tm = timelocal($s, $m, $h, $in{'d'.$p},
				    $in{'m'.$p}-1, $in{'y'.$p}-1900);
				};
			$tm || &error($text{'save_e'.$p});
			$filter->{'reply'}->{'autoreply_'.$p} = $tm;
			}
		else {
			delete($filter->{'reply'}->{'autoreply_'.$p});
			}
		}

if ($old) {
		&modify_filter($filter);
		}
	else {
		&insert_filter($filter);
		}
	}

&unlock_file($procmail::procmailrc);
&redirect("");

${this.title}

Code Editor : save_auto.cgi