Gecko [ www.thearyasamaj.org ]

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	575 B	-rw-r--r--
config.info.cs	370 B	-rw-r--r--
config.info.de	594 B	-rw-r--r--
config.info.el	404 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.nl	584 B	-rw-r--r--
config.info.no	519 B	-rw-r--r--
config.info.pl	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.65 KB	-rwxr-xr-x
module.info	260 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	101 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	175 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	170 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	195 B	-rw-r--r--
module.info.ca	109 B	-rw-r--r--
module.info.cs	46 B	-rw-r--r--
module.info.cs.auto	88 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	110 B	-rw-r--r--
module.info.de	114 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	289 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	114 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	120 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	144 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	132 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	124 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	111 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	124 B	-rw-r--r--
module.info.hu	92 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	100 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	151 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	121 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	125 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	127 B	-rw-r--r--
module.info.ms	103 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	107 B	-rw-r--r--
module.info.nl	34 B	-rw-r--r--
module.info.nl.auto	75 B	-rw-r--r--
module.info.no	37 B	-rw-r--r--
module.info.no.auto	74 B	-rw-r--r--
module.info.pl	118 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	104 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	110 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	123 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	200 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	125 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	133 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	124 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	187 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	127 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	194 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	165 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	113 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	97 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	103 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 : edit.cgi

#!/usr/bin/perl
# Show details of one filter

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

# Show page header and get the filter
if ($in{'new'}) {
	&ui_print_header(undef, $text{'edit_title1'}, "");
	$filter = { 'actiondefault' => 1,
		    'nobounce' => 1 };
	if ($in{'header'}) {
		# Initial filter is based on URL params
		$filter->{'condheader'} = $in{'header'};
		$filter->{'condvalue'} = $in{'value'};
		}
	}
else {
	&ui_print_header(undef, $text{'edit_title2'}, "");
	@filters = &list_filters();
	($filter) = grep { $_->{'index'} == $in{'idx'} } @filters;
	}

@tds = ( "nowrap width=30%", "width=70%" );
print &ui_form_start("save.cgi", "post");
print &ui_hidden("new", $in{'new'});
print &ui_hidden("idx", $in{'idx'});

# Start of condition section
$cmode = $filter->{'condspam'} ? 5 :
	 $filter->{'condlevel'} ? 6 :
 $filter->{'condheader'} ? 4 :
	 $filter->{'condtype'} eq '<' ? 3 :
	 $filter->{'condtype'} eq '>' ? 2 :
	 $filter->{'cond'} ? 1 : 0;
print &ui_table_start($text{'edit_header1'}, "width=100%", 2);

# Always do action
print &ui_table_row(
	&ui_oneradio("cmode", 0, $text{'edit_cmode0'}, $cmode == 0),
	"", undef, \@tds);

# Is spam
print &ui_table_row(
	&ui_oneradio("cmode", 5, $text{'edit_cmode5'}, $cmode == 5),
	"", undef, \@tds);

# Spam level is at or above
print &ui_table_row(
	&ui_oneradio("cmode", 6, $text{'edit_cmode6'}, $cmode == 6),
	&ui_textbox("condlevel", $filter->{'condlevel'}, 4, 0, undef,
		    "onFocus='form.cmode[2].checked = true'"), undef, \@tds);

# Check some header
@headers = ( "From", "To", "Subject", "Cc", "Reply-To", "List-Id" );
$common = &indexoflc($filter->{'condheader'}, @headers) >= 0;
if ($filter->{'condvalue'} =~ /^\.\*(.*)\$$/) {
	# Ends with
	$condvalue = $1;
	$condmode = 2;
	}
elsif ($filter->{'condvalue'} =~ /^\.\*(.*)\.\*$/ ||
 $filter->{'condvalue'} =~ /^\.\*(.*)$/) {
	# Contains
	$condvalue = $1;
	$condmode = 1;
	}
elsif ($filter->{'condvalue'} =~ /^(.*)\.\*$/ ||
 $filter->{'condvalue'} =~ /^(.*)$/) {
	# Starts with
	$condvalue = $1;
	$condmode = 0;
	}
if ($condvalue =~ /^[a-zA-Z0-9_ ]*$/) {
	# Contains no special chars, so not a regexp
	$regexp = 0;
	}
else {
	# Has special chars .. but if they are all escaped, then not a regexp
	$condre = $condvalue;
	$condre =~ s/\\./x/g;
	if ($condre =~ /^[a-zA-Z0-9_ ]*$/) {
		$condvalue =~ s/\\(.)/$1/g;
		$regexp = 0;
		}
	else {
		$regexp = 1;
		}
	}
$condvalue = &mailbox::decode_mimewords($condvalue);
print &ui_table_row(
	&ui_oneradio("cmode", 4, $text{'edit_cmode4'}, $cmode == 4),
	&text('edit_cheader2',
	 &ui_select("condmenu", $cmode != 4 ? "From" :
				 $common ? $filter->{'condheader'} : "",
			 [ (map { [ $_ ] } @headers),
			 [ "", $text{'edit_other'} ] ],
			 1, 0, 0, 0,
			 "onChange='form.condheader.disabled = (form.condmenu.value!=\"\")'"),
	 &ui_textbox("condheader",
			 $common ? "" : $filter->{'condheader'}, 20,
			 $cmode != 4 || $common),
	 &ui_select("condmode", $condmode,
			 [ [ 0, $text{'edit_modestart'} ],
			 [ 1, $text{'edit_modecont'} ],
			 [ 2, $text{'edit_modeend'} ] ]),
	 &ui_textbox("condvalue", $condvalue, 40, 0, undef,
			 "onFocus='form.cmode[3].checked = true'")." \n".
	 &ui_checkbox("condregexp", 1, $text{'edit_regexp'}, $regexp)),
	undef, \@tds);

# Smaller
print &ui_table_row(
	&ui_oneradio("cmode", 3, $text{'edit_cmode3'}, $cmode == 3),
	&ui_bytesbox("condsmall", $cmode == 3 ? $filter->{'cond'} : "",
		     undef, 0, "onFocus='form.cmode[4].checked = true'"),
	undef, \@tds);

# Larger
print &ui_table_row(
	&ui_oneradio("cmode", 2, $text{'edit_cmode2'}, $cmode == 2),
	&ui_bytesbox("condlarge", $cmode == 2 ? $filter->{'cond'} : "",
		     undef, 0, "onFocus='form.cmode[5].checked = true'"),
	undef, \@tds);

# Matches regexp
print &ui_table_row(
	&ui_oneradio("cmode", 1, $text{'edit_cmode1'}, $cmode == 1),
	&ui_textbox("cond", $cmode == 1 ? $filter->{'cond'} : "", 70, 0, undef,
		 "onFocus='form.cmode[6].checked = true'")." ".
	&ui_checkbox("body", 1, $text{'edit_cbody'}, $filter->{'body'}),
	undef, \@tds);

print &ui_table_end();

# Start of action section
$amode = $filter->{'actionreply'} ? 6 :
	 $filter->{'actionspam'} ? 5 :
	 $filter->{'actionthrow'} ? 4 :
	 $filter->{'actiondefault'} ? 3 :
	 $filter->{'actionreply'} ? 2 :
	 $filter->{'actiontype'} eq '!' ? 1 : 0;
print &ui_table_start($text{'edit_header2'}, "width=100%", 2);

# Deliver normally
print &ui_table_row(
	&ui_oneradio("amode", 3, $text{'edit_amode3'}, $amode == 3),
	"", undef, \@tds);

if ($amode == 5 || &has_spamassassin()) {
	# Run spamassassin
	print &ui_table_row(
		&ui_oneradio("amode", 5, $text{'edit_amode5'}, $amode == 5),
		"", undef, \@tds);
	}

# Throw away
print &ui_table_row(
	&ui_oneradio("amode", 4, $text{'edit_amode4'}, $amode == 4),
	"", undef, \@tds);

# Forward to some addresses
print &ui_table_row(
	&ui_oneradio("amode", 1, $text{'edit_amode1'}, $amode == 1),
	&ui_textarea("forward", $amode == 1 ?
		join("\n", split(/,/, $filter->{'action'})) : "", 3, 70).
	" \n".
	&ui_checkbox("nobounce", 1, $text{'edit_nobounce'},
		 $filter->{'nobounce'}),
	undef, \@tds);

# Save to a folder or file
@folders = grep { $_->{'file'} } &mailbox::list_folders_sorted();
if ($amode == 0) {
	$folder = &file_to_folder($filter->{'action'}, \@folders);
	}
else {
	$folder = $folders[0];
	}
print &ui_table_row(
	&ui_oneradio("amode", 0, $text{'edit_amode0'}, $amode == 0),
	&ui_select("folder", $folder ? &mailbox::folder_name($folder) : "",
		   [ (map { [ &mailbox::folder_name($_), $_->{'name'} ] }
			  @folders),
		     [ "", $text{'edit_file'} ] ],
		   1, 0, 0, 0,
                   "onChange='form.file.disabled = (form.folder.value!=\"\")'").
		   "\n".
	&ui_textbox("file", $folder ? "" : $filter->{'action'}, 50,
		    $folder ? 1 : 0),
	undef, \@tds);

# Save to a new folder
print &ui_table_row(
	&ui_oneradio("amode", 7, $text{'edit_amode7'}, 0),
	&ui_textbox("newfolder", undef, 20),
	undef, \@tds);

# Send autoreply
if ($amode == 6) {
	$r = $filter->{'reply'};
	$period = $in{'new'} ? 60 :
		 $r->{'replies'} && $r->{'period'} ? int($r->{'period'}/60) :
		 $r->{'replies'} ? 60 : undef;
	if ($r->{'autoreply_start'}) {
		@stm = localtime($r->{'autoreply_start'});
		$stm[4]++; $stm[5] += 1900;
		}
	if ($r->{'autoreply_end'}) {
		@etm = localtime($r->{'autoreply_end'});
		$etm[4]++; $etm[5] += 1900;
		}
	}
else {
	$period = 60;
	}
if ($config{'reply_force'}) {
	$replyblock = "";
	}
elsif ($config{'reply_min'}) {
	$replyblock = "<tr> <td>$text{'index_period'}</td> ".
		 "<td>".&ui_textbox("period", $period, 3)." ".
			 $text{'index_mins'}."</td> </tr>\n";
	}
else {
	$replyblock = "<tr> <td>$text{'index_period'}</td> ".
		 "<td>".&ui_opt_textbox("period", $period, 3,
			 $text{'index_noperiod'})." ".$text{'index_mins'}.
		 "</td> </tr>\n";
	}
$cs = !$in{'new'} ? $r->{'charset'} :
 &get_charset() eq $default_charset ? undef : &get_charset();
print &ui_table_row(
	&ui_oneradio("amode", 6, $text{'edit_amode6'}, $amode == 6,
		 "onClick='form.continue.checked = true'"),
	&ui_textarea("reply", $filter->{'reply'}->{'autotext'}, 5, 60)." ".
	"<table>\n".
	$replyblock.
	"<tr> <td>$text{'index_astart'}</td> ".
	"<td>".&ui_date_input($stm[3], $stm[4], $stm[5],
			 "dstart", "mstart", "ystart")." ".
 &date_chooser_button("dstart", "mstart", "ystart")."</td> </tr>\n".
	"<tr> <td>$text{'index_aend'}</td> ".
	"<td>".&ui_date_input($etm[3], $etm[4], $etm[5],
			 "dend", "mend", "yend")." ".
 &date_chooser_button("dend", "mend", "yend")."</td> </tr>\n".
	"<tr> <td>$text{'index_charset'}</td> ".
	"<td>".&ui_opt_textbox("charset", $cs, 20,
		 $text{'default'}." ($default_charset)")."</td> </tr>\n".
	"<tr> <td>$text{'index_subject'}</td> ".
	"<td>".&ui_opt_textbox("subject", $in{'new'} ? "" : $r->{'subject'}, 20,
		 $text{'default'}." (Autoreply to \$SUBJECT)")."</td> </tr>\n".
	"</table>",
	undef, \@tds);

# Continue checkbox
print &ui_table_row(
	undef, &ui_checkbox("continue", 1, $text{'edit_continue'},
			    $filter->{'continue'}), 2);

print &ui_table_end();

# End of the form, with buttons
if ($in{'new'}) {
	@buts = ( [ "create", $text{'create'} ] );
	}
else {
	@buts = ( [ "save", $text{'save'} ],
		  [ "delete", $text{'delete'} ] );
	($inbox) = grep { $_->{'inbox'} } @folders;
	if ($cmode == 4 || $cmode == 5 || $cmode == 6) {
		# Add button to show results of a search for the filter's
		# conditions
		push(@buts, undef,
			    [ "apply", $text{'edit_apply'},
			      &ui_select("applyfrom",
				 $inbox ? &mailbox::folder_name($inbox) : "",
				 [ map { [ &mailbox::folder_name($_),
					   $_->{'name'} ] } @folders ]) ]);
		}
	if (($cmode == 4 || $cmode == 5 || $cmode == 6) && $amode == 0) {
		# Add button to apply the action to matching emails
		push(@buts, undef,
			    [ "move", $text{'edit_move'},
			      &ui_select("movefrom",
				 $inbox ? &mailbox::folder_name($inbox) : "",
				 [ map { [ &mailbox::folder_name($_),
					   $_->{'name'} ] } @folders ]) ]);
		}
	}
print &ui_form_end(\@buts);

# Show page footer
&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : edit.cgi