Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
ulang	[ DIR ]	drwxr-xr-x
CHANGELOG	2.13 KB	-rw-r--r--
config	316 B	-rw-r--r--
config-debian-linux	311 B	-rw-r--r--
config-freebsd	303 B	-rw-r--r--
config.info	1.9 KB	-rw-r--r--
config.info.ca	2.27 KB	-rwxr-xr-x
config.info.de	1.08 KB	-rw-r--r--
config.info.el	2.09 KB	-rw-r--r--
config.info.nl	2.04 KB	-rwxr-xr-x
config.info.no	2 KB	-rw-r--r--
defaultuconfig	38 B	-rw-r--r--
delete_all.cgi	257 B	-rwxr-xr-x
delete_awl.cgi	1.17 KB	-rwxr-xr-x
deleteone_awl.cgi	560 B	-rwxr-xr-x
detach.cgi	940 B	-rwxr-xr-x
edit_awl.cgi	3.54 KB	-rwxr-xr-x
edit_header.cgi	4.21 KB	-rwxr-xr-x
edit_procmail.cgi	1.87 KB	-rwxr-xr-x
edit_razor.cgi	875 B	-rwxr-xr-x
edit_report.cgi	4.3 KB	-rwxr-xr-x
edit_score.cgi	3.18 KB	-rwxr-xr-x
edit_setup.cgi	1.57 KB	-rwxr-xr-x
edit_simple.cgi	1.5 KB	-rwxr-xr-x
edit_user.cgi	2.76 KB	-rwxr-xr-x
edit_white.cgi	4.38 KB	-rwxr-xr-x
index.cgi	5.18 KB	-rwxr-xr-x
install_check.pl	400 B	-rwxr-xr-x
langs	718 B	-rw-r--r--
locales	69 B	-rw-r--r--
mail.cgi	4.66 KB	-rwxr-xr-x
mail_search.cgi	5 KB	-rwxr-xr-x
module.info	181 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	152 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	203 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	234 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	220 B	-rw-r--r--
module.info.ca	38 B	-rw-r--r--
module.info.ca.auto	135 B	-rw-r--r--
module.info.cs	36 B	-rw-r--r--
module.info.cs.auto	126 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	151 B	-rw-r--r--
module.info.de	141 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	334 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	163 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	165 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	193 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	145 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	161 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	172 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	159 B	-rw-r--r--
module.info.hu	41 B	-rw-r--r--
module.info.hu.auto	128 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	147 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	199 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	186 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	209 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	160 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	155 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	151 B	-rw-r--r--
module.info.nl	34 B	-rw-r--r--
module.info.no	35 B	-rw-r--r--
module.info.no.auto	117 B	-rw-r--r--
module.info.pl	35 B	-rw-r--r--
module.info.pl.auto	133 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	149 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	158 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	162 B	-rw-r--r--
module.info.ru	32 B	-rw-r--r--
module.info.ru.auto	205 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	182 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	156 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	160 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	280 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	171 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	279 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	255 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	187 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	151 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	160 B	-rw-r--r--
process.cgi	2.84 KB	-rwxr-xr-x
save_header.cgi	2.99 KB	-rwxr-xr-x
save_procmail.cgi	1.75 KB	-rwxr-xr-x
save_report.cgi	2.14 KB	-rwxr-xr-x
save_score.cgi	2.05 KB	-rwxr-xr-x
save_simple.cgi	2.75 KB	-rwxr-xr-x
save_user.cgi	1.64 KB	-rwxr-xr-x
save_white.cgi	2.1 KB	-rwxr-xr-x
setup.cgi	2.71 KB	-rwxr-xr-x
setup_razor.cgi	1.15 KB	-rwxr-xr-x
spam-lib.pl	27.95 KB	-rwxr-xr-x
uconfig.info	378 B	-rw-r--r--
uconfig.info.ca	448 B	-rwxr-xr-x
uconfig.info.cs	367 B	-rw-r--r--
uconfig.info.de	486 B	-rwxr-xr-x
uconfig.info.fr	533 B	-rw-r--r--
uconfig.info.nl	420 B	-rw-r--r--
uconfig.info.no	388 B	-rw-r--r--
uconfig.info.pl	0 B	-rw-r--r--
view_mail.cgi	8 KB	-rwxr-xr-x

Code Editor : view_mail.cgi

#!/usr/bin/perl
# view_mail.cgi
# View a single email message

require './spam-lib.pl';
&foreign_require("mailbox", "mailbox-lib.pl");
$folder = &spam_file_folder();
&disable_indexing($folder);

$force_charset = '';
&ReadParse();

&ui_print_header(undef, $mailbox::text{'view_title'}, "");
@mail = &mailbox::mailbox_list_mails_sorted($in{'idx'}, $in{'idx'}, $folder);
$mail = $mail[$in{'idx'}];
&mailbox::parse_mail($mail);
@sub = split(/\0/, $in{'sub'});
$subs = join("", map { "&sub=$_" } @sub);
foreach $s (@sub) {
        # We are looking at a mail within a mail ..
	&mailbox::decrypt_attachments($mail);
        local $amail = &mailbox::extract_mail($mail->{'attach'}->[$s]->{'data'});
        &mailbox::parse_mail($amail);
        $mail = $amail;
        }

dbmopen(%read, "$user_config_directory/mailbox/read", 0600);
if ($mailbox::userconfig{'auto_mark'}) {
	eval { $read{$mail->{'header'}->{'message-id'}} = 1 }
		if (!$read{$mail->{'header'}->{'message-id'}});
	}

print "<center>\n";
if (!@sub) {
	if ($in{'idx'}) {
		print "<a href='view_mail.cgi?idx=",
		      $in{'idx'}-1,"'>",
		      "<img src=/images/left.gif border=0 ",
		      "align=middle></a>\n";
		}
	print "<font size=+1>",&mailbox::text('view_desc', $in{'idx'}+1,
			$folder->{'name'}),"</font>\n";
	if ($in{'idx'} < @mail-1) {
		print "<a href='view_mail.cgi?idx=",
		      $in{'idx'}+1,"'>",
		      "<img src=/images/right.gif border=0 ",
		      "align=middle></a>\n";
		}
	}
else {
	print "<font size=+1>$text{'view_sub'}</font>\n";
	}
print "</center>\n";

# Check for encryption
($deccode, $decmessage) = &mailbox::decrypt_attachments($mail);
@attach = @{$mail->{'attach'}};

# Find body attachment and type
($textbody, $htmlbody, $body) = &mailbox::find_body($mail);

# XXX look for text/calendar body

# Check for signing
if (&has_command("gpg") && &foreign_check("gnupg")) {
	# Check for GnuPG signatures
	local $sig;
	foreach $a (@attach) {
		$sig = $a if ($a->{'type'} =~ /^application\/pgp-signature/);
		}
	if ($sig) {
		# Verify the signature against the rest of the attachment
		&foreign_require("gnupg", "gnupg-lib.pl");
		local $rest = $sig->{'parent'}->{'attach'}->[0];
		$rest->{'raw'} =~ s/\r//g;
		$rest->{'raw'} =~ s/\n/\r\n/g;
		($sigcode, $sigmessage) = &foreign_call("gnupg",
				"verify_data", $rest->{'raw'}, $sig->{'data'});
		@attach = grep { $_ ne $sig } @attach;
		}
	elsif ($body && $body eq $textbody && $body->{'data'} =~ /(-+BEGIN PGP SIGNED MESSAGE-+\n(Hash:\s+(\S+)\n\n)?([\000-\377]+\n)-+BEGIN PGP SIGNATURE-+\n([\000-\377]+)-+END PGP SIGNATURE-+\n)/i) {
		# Signature is in body text!
		local $sig = $1;
		local $text = $4;
		&foreign_require("gnupg", "gnupg-lib.pl");
		($sigcode, $sigmessage) = &foreign_call("gnupg",
							"verify_data", $sig);
		if ($sigcode == 0 || $sigcode == 1) {
			# XXX what about replying?
			$body->{'data'} = $text;
			}
		}
	}

# Strip out attachments not to display as icons
@attach = grep { $_ ne $body } @attach;
@attach = grep { !$_->{'attach'} } @attach;

print "<table width=100% border=1>\n";
print "<tr> <td $tb><table width=100% cellpadding=0 cellspacing=0><tr>",
      "<td><b>$mailbox::text{'view_headers'}</b></td>\n";
if ($in{'headers'}) {
	print "<td align=right><a href='view_mail.cgi?idx=$in{'idx'}&headers=0$subs'>$mailbox::text{'view_noheaders'}</a></td>\n";
	}
else {
	print "<td align=right><a href='view_mail.cgi?idx=$in{'idx'}&headers=1$subs'>$mailbox::text{'view_allheaders'}</a></td>\n";
	}
print "</tr></table></td> </tr>\n";

print "<tr> <td $cb><table width=100%>\n";
if ($in{'headers'}) {
	# Show all the headers
	if ($mail->{'fromline'}) {
		print "<tr> <td><b>$text{'mail_rfc'}</b></td>",
		      "<td>",&mailbox::eucconv(&html_escape($mail->{'fromline'})),
		      "</td> </tr>\n";
		}
	foreach $h (@{$mail->{'headers'}}) {
		print "<tr> <td><b>$h->[0]:</b></td> ",
		      "<td>",&mailbox::eucconv(&html_escape(&mailbox::decode_mimewords($h->[1]))),
		      "</td> </tr>\n";
		}
	}
else {
	# Just show the most useful headers
	print "<tr> <td><b>$mailbox::text{'mail_from'}</b></td> ",
	      "<td>",&address_link($mail->{'header'}->{'from'}),"</td> </tr>\n";
	print "<tr> <td><b>$mailbox::text{'mail_to'}</b></td> ",
	      "<td>",&address_link($mail->{'header'}->{'to'}),"</td> </tr>\n";
	print "<tr> <td><b>$mailbox::text{'mail_cc'}</b></td> ",
	      "<td>",&address_link($mail->{'header'}->{'cc'}),"</td> </tr>\n"
		if ($mail->{'header'}->{'cc'});
	print "<tr> <td><b>$mailbox::text{'mail_date'}</b></td> ",
	      "<td>",&mailbox::eucconv(&html_escape($mail->{'header'}->{'date'})),
	      "</td> </tr>\n";
	print "<tr> <td><b>$mailbox::text{'mail_subject'}</b></td> ",
	      "<td>",&mailbox::eucconv(&html_escape(&mailbox::decode_mimewords(
			$mail->{'header'}->{'subject'}))),"</td> </tr>\n";
	if (!@sub) {
		print "<tr> <td><b>$text{'mail_level2'}</b></td> ",
		      "<td>",length($mail->{'header'}->{'x-spam-level'}),"</td> </tr>\n";
		}
	}
print "</table></td></tr></table><p>\n";

# Show body attachment, with properly linked URLs
if ($body && $body->{'data'} =~ /\S/) {
	if ($body eq $textbody) {
		# Show plain text
		print "<table width=100% border=1><tr><td $cb><pre>\n";
		foreach $l (&mailbox::wrap_lines($body->{'data'},
					$mailbox::userconfig{'wrap_width'})) {
			print &mailbox::link_urls_and_escape($l),"\n";
			}
		print "</pre></td></tr></table><p>\n";
		}
	elsif ($body eq $htmlbody) {
		# Attempt to show HTML
		print "<table width=100% border=1><tr><td>\n";
		print &mailbox::safe_html($body->{'data'});
		print "</td></tr></table><p>\n";
		}
	}

# Display other attachments
if (@attach) {
	print "<table width=100% border=1>\n";
	print "<tr> <td $tb><b>$mailbox::text{'view_attach'}</b></td> </tr>\n";
	print "<tr> <td $cb>\n";
	foreach $a (@attach) {
		local $fn;
		$size = (int(length($a->{'data'})/1000)+1)." Kb";
		local $cb;
		if ($a->{'type'} eq 'message/rfc822') {
			push(@titles, "$mailbox::text{'view_sub'}<br>$size");
			}
		elsif ($a->{'filename'}) {
			push(@titles, &mailbox::decode_mimewords($a->{'filename'}).
				      "<br>$size");
			$fn = &mailbox::decode_mimewords($a->{'filename'});
			push(@detach, [ $a->{'idx'}, $fn ]);
			}
		else {
			push(@titles, "$a->{'type'}<br>$size");
			$a->{'type'} =~ /\/(\S+)$/;
			$fn = "file.$1";
			push(@detach, [ $a->{'idx'}, $fn ]);
			}
		$fn =~ s/ /_/g;
		$fn =~ s/\#/_/g;
		$fn = &html_escape($fn);
		if ($a->{'type'} eq 'message/rfc822') {
			push(@links, "view_mail.cgi?idx=$in{'idx'}$subs&sub=$a->{'idx'}");
			}
		else {
			push(@links, "detach.cgi/$fn?idx=$in{'idx'}&attach=$a->{'idx'}$subs");
			}
		push(@icons, "/mailbox/images/boxes.gif");
		}
	&icons_table(\@links, \@titles, \@icons, 8);
	print "</td></tr></table><p>\n";
	}

# Display GnuPG results
if (defined($sigcode)) {
	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$mailbox::text{'view_gnupg'}</b></td> </tr>\n";
	print "<tr $cb> <td>";
	$sigmessage = &html_escape($sigmessage);
	$sigmessage = $sigmessage if ($sigcode == 4);
	print &mailbox::text('view_gnupg_'.$sigcode, $sigmessage),"\n";
	if ($sigcode == 3) {
		local $url = "/$module_name/view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}$subs";
		print "<p>",&mailbox::text('view_recv', $sigmessage, "/gnupg/recv.cgi?id=$sigmessage&return=".&urlize($url)."&returnmsg=".&urlize($text{'view_return'})),"\n";
		}
	print "</td> </tr></table><p>\n";
	}
if ($deccode) {
	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$text{'view_crypt'}</b></td> </tr>\n";
	print "<tr $cb> <td>";
	print &mailbox::text('view_crypt_'.$deccode, "<pre>$decmessage</pre>");
	print "</td> </tr></table><p>\n";
	}

dbmclose(%read);

local @sr = !@sub ? ( ) :
    ( "view_mail.cgi?idx=$in{'idx'}", $mailbox::text{'view_return'} ),
$s = int((@mail - $in{'idx'} - 1) / $mailbox::userconfig{'perpage'}) *
	$mailbox::userconfig{'perpage'};
&ui_print_footer(@sub ? ( "view_mail.cgi?idx=$in{'idx'}",
		 $mailbox::text{'view_return'} ) : ( ),
	"mail.cgi", $text{'mail_return'});

# address_link(address)
sub address_link
{
local @addrs = &mailbox::split_addresses(&mailbox::decode_mimewords($_[0]));
local @rv;
foreach $a (@addrs) {
	push(@rv, &html_escape($a->[2]));
	}
return join(" , ", @rv);
}

${this.title}

Code Editor : view_mail.cgi