Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
xinha	[ DIR ]	drwxr-xr-x
CHANGELOG	5.7 KB	-rw-r--r--
Makefile	125 B	-rw-r--r--
acl_security.pl	3 KB	-rwxr-xr-x
boxes-lib.pl	80.12 KB	-rwxr-xr-x
cgi_args.pl	520 B	-rwxr-xr-x
config	757 B	-rw-r--r--
config.info	4.92 KB	-rw-r--r--
config.info.ca	5.77 KB	-rw-r--r--
config.info.cs	5.18 KB	-rw-r--r--
config.info.de	6.25 KB	-rw-r--r--
config.info.el	8.13 KB	-rw-r--r--
config.info.fi	0 B	-rw-r--r--
config.info.fr	6.41 KB	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.it	5.96 KB	-rw-r--r--
config.info.ja	5.96 KB	-rw-r--r--
config.info.ko	5.28 KB	-rw-r--r--
config.info.nl	5.46 KB	-rw-r--r--
config.info.no	5.24 KB	-rw-r--r--
config.info.pt_BR	0 B	-rw-r--r--
config_info.pl	389 B	-rwxr-xr-x
defaultacl	50 B	-rw-r--r--
delete_all.cgi	1.25 KB	-rwxr-xr-x
delete_mail.cgi	7 KB	-rwxr-xr-x
detach.cgi	3.19 KB	-rwxr-xr-x
detachall.cgi	1.72 KB	-rwxr-xr-x
find.cgi	731 B	-rwxr-xr-x
folders-lib.pl	102.95 KB	-rwxr-xr-x
index.cgi	2.73 KB	-rwxr-xr-x
list_mail.cgi	5.15 KB	-rwxr-xr-x
log_parser.pl	1.02 KB	-rwxr-xr-x
mail_search.cgi	3.68 KB	-rwxr-xr-x
mailboxes-lib.pl	33.57 KB	-rwxr-xr-x
makelang.pl	1.35 KB	-rwxr-xr-x
module.info	137 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	82 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	145 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	185 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	167 B	-rw-r--r--
module.info.ca	97 B	-rw-r--r--
module.info.cs	37 B	-rw-r--r--
module.info.cs.auto	75 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	72 B	-rw-r--r--
module.info.de	77 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	232 B	-rw-r--r--
module.info.es	38 B	-rw-r--r--
module.info.es.auto	72 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	110 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	141 B	-rw-r--r--
module.info.fi	27 B	-rw-r--r--
module.info.fi.auto	61 B	-rw-r--r--
module.info.fr	40 B	-rw-r--r--
module.info.fr.auto	76 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	117 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	108 B	-rw-r--r--
module.info.hu	38 B	-rw-r--r--
module.info.hu.auto	72 B	-rw-r--r--
module.info.it	27 B	-rw-r--r--
module.info.it.auto	76 B	-rw-r--r--
module.info.ja	39 B	-rw-r--r--
module.info.ja.auto	79 B	-rw-r--r--
module.info.ko	29 B	-rw-r--r--
module.info.ko.auto	65 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	110 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	85 B	-rw-r--r--
module.info.ms	73 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	81 B	-rw-r--r--
module.info.nl	30 B	-rw-r--r--
module.info.nl.auto	57 B	-rw-r--r--
module.info.no	27 B	-rw-r--r--
module.info.no.auto	47 B	-rw-r--r--
module.info.pl	38 B	-rw-r--r--
module.info.pl.auto	67 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	94 B	-rw-r--r--
module.info.pt_BR	34 B	-rw-r--r--
module.info.pt_BR.auto	65 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	116 B	-rw-r--r--
module.info.ru	63 B	-rw-r--r--
module.info.ru.auto	99 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	120 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	97 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	78 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	154 B	-rw-r--r--
module.info.tr	104 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	193 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	117 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	99 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	79 B	-rw-r--r--
module.info.zh_TW	33 B	-rw-r--r--
module.info.zh_TW.auto	55 B	-rw-r--r--
prefs.info	225 B	-rw-r--r--
reply_mail.cgi	16.15 KB	-rwxr-xr-x
safeacl	32 B	-rw-r--r--
search_form.cgi	1.86 KB	-rwxr-xr-x
send_mail.cgi	9.56 KB	-rwxr-xr-x
slideshow.cgi	1.63 KB	-rwxr-xr-x
useradmin_update.pl	2.33 KB	-rwxr-xr-x
view_mail.cgi	10.43 KB	-rwxr-xr-x

Code Editor : view_mail.cgi

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

require './mailboxes-lib.pl';
&ReadParse();
&can_user($in{'user'}) || &error($text{'mail_ecannot'});
if (&is_user($in{'user'})) {
	@uinfo = &get_mail_user($in{'user'});
	@uinfo || &error($text{'view_eugone'});
	}

$uuser = &urlize($in{'user'});
@folders = &list_user_folders($in{'user'});
$folder = $folders[$in{'folder'}];
@mail = &mailbox_list_mails($in{'idx'}, $in{'idx'}, $folder);
$mail = $mail[$in{'idx'}];
&parse_mail($mail, undef, $in{'raw'});
@sub = split(/\0/, $in{'sub'});
$subs = join("", map { "&sub=$_" } @sub);
foreach $s (@sub) {
        # We are looking at a mail within a mail ..
        local $amail = &extract_mail($mail->{'attach'}->[$s]->{'data'});
        &parse_mail($amail, undef, $in{'raw'});
        $mail = $amail;
        }

dbmopen(%read, &user_read_dbm_file($in{'user'}), 0600);
eval { $read{$mail->{'header'}->{'message-id'}} = 1 }
	if (!$read{$mail->{'header'}->{'message-id'}});

if ($in{'raw'}) {
	# Special mode - viewing whole raw message
	print "Content-type: text/plain\n\n";
	if ($mail->{'fromline'}) {
		print $mail->{'fromline'},"\n";
		}
	if (defined($mail->{'rawheaders'})) {
		#$mail->{'rawheaders'} =~ s/(\S)\t/$1\n\t/g;
		print $mail->{'rawheaders'};
		}
	else {
		foreach $h (@{$mail->{'headers'}}) {
			#$h->[1] =~ s/(\S)\t/$1\n\t/g;
			print "$h->[0]: $h->[1]\n";
			}
		}
	print "\n";
	print $mail->{'body'};
	return;
	}

# Find body attachment and type
($textbody, $htmlbody, $body) = &find_body($mail, $config{'view_html'});
$body = $htmlbody if ($in{'body'} == 2);
$body = $textbody if ($in{'body'} == 1);
@attach = @{$mail->{'attach'}};

# Show pre-body HTML
if ($body && $body eq $htmlbody) {
	$headstuff = &head_html($body->{'data'});
	}

$mail_charset = &get_mail_charset($mail, $body);
if ($body && &get_charset() eq 'UTF-8' &&
    &can_convert_to_utf8(undef, $mail_charset)) {
        # Convert to UTF-8
        $body->{'data'} = &convert_to_utf8($body->{'data'}, $mail_charset);
        }
else {
        # Set the character set for the page to match email
	$main::force_charset = &get_mail_charset($mail, $body);
	}

&mail_page_header($text{'view_title'}, $headstuff, undef,
		  &folder_link($in{'user'}, $folder));
&show_arrows();

# Start of the form
print &ui_form_start("reply_mail.cgi");
print &ui_hidden("user", $in{'user'});
print &ui_hidden("dom", $in{'dom'});
print &ui_hidden("idx", $in{'idx'});
print &ui_hidden("folder", $in{'folder'});
print &ui_hidden("mod", &modification_time($folder));
foreach $s (@sub) {
	print &ui_hidden("sub", $s);
	}

# Find any delivery status attachment
($dstatus) = grep { $_->{'type'} eq 'message/delivery-status' } @attach;

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

if ($config{'top_buttons'} == 2 && &editable_mail($mail)) {
	&show_mail_buttons(1, scalar(@sub));
	print "<p>\n";
	}

# Start of headers section
$hbase = "view_mail.cgi?idx=$in{'idx'}&".
	 "folder=$in{'folder'}&dom=$in{'dom'}&user=$uuser$subs";
if ($in{'headers'}) {
	push(@hmode, "<a href='$hbase&headers=0&body=$in{'body'}'>$text{'view_noheaders'}</a>");
	}
else {
	push(@hmode, "<a href='$hbase&headers=1&body=$in{'body'}'>$text{'view_allheaders'}</a>");
	}
push(@hmode, "<a href='$hbase&raw=1'>$text{'view_raw'}</a>");
print &ui_table_start($text{'view_headers'},
		      "width=100%", 2, [ "width=10% nowrap" ],
		      &ui_links_row(\@hmode));

if ($in{'headers'}) {
	# Show all the headers
	if ($mail->{'fromline'}) {
		print &ui_table_row($text{'mail_rfc'},
			&eucconv_and_escape($mail->{'fromline'}));
		}
	foreach $h (@{$mail->{'headers'}}) {
		print &ui_table_row($h->[0].":",
			&eucconv_and_escape(&decode_mimewords($h->[1])));
		}
	}
else {
	# Just show the most useful headers
	print &ui_table_row($text{'mail_from'},
		&address_link($mail->{'header'}->{'from'}));
	print &ui_table_row($text{'mail_to'},
		&address_link($mail->{'header'}->{'to'}));
	if ($mail->{'header'}->{'cc'}) {
		print &ui_table_row($text{'mail_cc'},
			&address_link($mail->{'header'}->{'cc'}));
		}
	print &ui_table_row($text{'mail_date'},
		&eucconv_and_escape(
                        &simplify_date($mail->{'header'}->{'date'})));
	print &ui_table_row($text{'mail_subject'},
		&convert_header_for_display($mail->{'header'}->{'subject'}));
	}
print &ui_table_end();

# Show body attachment, with properly linked URLs
@bodyright = ( );
if ($body && $body->{'data'} =~ /\S/) {
	if ($body eq $textbody) {
		# Show plain text
		$bodycontents = "<pre>";
		foreach $l (&wrap_lines(&eucconv($body->{'data'}),
					$config{'wrap_width'})) {
			$bodycontents .= &link_urls_and_escape($l,
						$config{'link_mode'})."\n";
			}
		$bodycontents .= "</pre>";
		if ($htmlbody) {
			push(@bodyright,
			    "<a href='$hbase&body=2'>$text{'view_ashtml'}</a>");
			}
		}
	elsif ($body eq $htmlbody) {
		# Attempt to show HTML
		$bodycontents = &safe_html($body->{'data'});
		$bodycontents = &fix_cids($bodycontents, \@attach,
			"detach.cgi?user=$uuser&idx=$in{'idx'}&folder=$in{'folder'}$subs");
		if ($textbody) {
			push(@bodyright,
			    "<a href='$hbase&body=1'>$text{'view_astext'}</a>");
			}
		}
	}
if ($bodycontents) {
	print &ui_table_start($text{'view_body'}, "width=100%", 1,
                              undef, &ui_links_row(\@bodyright));
	print &ui_table_row(undef, $bodycontents);
	print &ui_table_end();
	}
else {
	print &ui_table_start($text{'view_body'}, "width=100%", 1);
	print &ui_table_row(undef, "<b>$text{'view_nobody'}</b>");
	print &ui_table_end();
	}

# Show delivery status
if ($dstatus) {
	&show_delivery_status($dstatus);
	}

# Display other attachments
if (@attach) {
	# Table of attachments
	$viewurl = "view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}&".
		   "user=$uuser$subs";
	$detachurl = "detach.cgi?idx=$in{'idx'}&folder=$in{'folder'}&".
		     "user=$uuser$subs";
        @detach = &attachments_table(\@attach, $folder, $viewurl, $detachurl,
				     undef, undef, undef);

# Links to download all / slideshow
	@links = ( );
	if (@attach > 1) {
		push(@links, &ui_link("detachall.cgi/attachments.zip?folder=$in{'folder'}&idx=$in{'idx'}&user=$uuser$subs","$text{'view_aall'}"));
		}
	@iattach = grep { $_->{'type'} =~ /^image\// } @attach;
	if (@iattach > 1) {
		push(@links, &ui_link("slideshow.cgi?folder=$in{'folder'}&idx=$in{'idx'}&user=$uuser$subs",$text{'view_aslideshow'}));
		}
	print &ui_links_row(\@links) if (@links);

# Show form to detact to server, if enabled
	if ($access{'candetach'} && @detach && defined($uinfo[2])) {
                print &ui_table_start($text{'view_dheader'}, "width=100%", 1);
                $dtach = &ui_submit($text{'view_detach'}, 'detach');
                $dtach .= &ui_hidden("bindex", $body->{'idx'}) if ($body);
                $dtach .= &ui_hidden("sindex", $sindex) if (defined($sindex));
                $dtach .= &ui_select("attach", undef,
                                [ [ '*', $text{'view_dall'} ],
                                  @detach ]);
                $dtach .= "<b>$text{'view_dir'}</b>\n";
                $dtach .= &ui_textbox("dir", undef, 60)." ".
                          &file_chooser_button("dir", 1);
                print &ui_table_row(undef, $dtach);
                print &ui_table_end();
                }
	}

&show_mail_buttons(2, scalar(@sub)) if (&editable_mail($mail));
if ($config{'arrows'} == 2 && !@sub) {
        &show_arrows();
        }
print "</form>\n";

dbmclose(%read);

# Footer with backlinks
local @sr = !@sub ? ( ) :
    ( "view_mail.cgi?idx=$in{'idx'}", $text{'view_return'} ),
$s = int((@mail - $in{'idx'} - 1) / $config{'perpage'}) *
	$config{'perpage'};
&mail_page_footer(
	@sub ? ("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}&".
		"user=$uuser&dom=$in{'dom'}", $text{'view_return'})
	     : ( ),
	"list_mail.cgi?folder=$in{'folder'}&user=$uuser&dom=$in{'dom'}",
	  $text{'mail_return'},
	&user_list_link(), $text{'index_return'});

# show_mail_buttons(pos, submode)
sub show_mail_buttons
{
local $spacer = "&nbsp;\n";
if (!$_[1]) {
	print "<input type=submit value=\"$text{'view_delete'}\" name=delete>";
	print $spacer;

if (!$folder->{'sent'} && !$folder->{'drafts'}) {
		$m = $read{$mail->{'header'}->{'message-id'}};
		print "<input name=mark$_[0] type=submit value=\"$text{'view_mark'}\">";
		print "<select name=mode$_[0]>\n";
		foreach $i (0 .. 2) {
			printf "<option value=%d %s>%s\n",
				$i, $m == $i ? 'selected' : '', $text{"view_mark$i"};
			}
		print "</select>";
		print $spacer;
		}
	}
if (&is_user($in{'user'})) {
	print "<input type=submit value=\"$text{'view_forward'}\" name=forward>";
	print $spacer;
	}

print "<input type=submit value=\"$text{'view_print'}\" name=print onclick='window.print();return false;'>";
print $spacer;

if (&is_user($in{'user'})) {
	print "<input type=submit value=\"$text{'view_reply'}\" name=reply>";
	print "<input type=submit value=\"$text{'view_reply2'}\" name=rall>";
	print $spacer;
	}

print "<input type=submit value=\"$text{'view_strip'}\" name=strip>";
print $spacer;

# Show spam report buttons
@modules = &get_available_module_infos(1);
($hasspam) = grep { $_->{'dir'} eq "spam" } @modules;
if (&foreign_installed("spam") &&
    $config{'spam_buttons'} =~ /mail/ &&
    &spam_report_cmd($in{'user'})) {
	if ($hasspam) {
		print "<input type=submit value=\"$text{'view_black'}\" name=black>";
		}
	if ($config{'spam_del'}) {
		print "<input type=submit value=\"$text{'view_razordel'}\" name=razor>\n";
		}
	else {
		print "<input type=submit value=\"$text{'view_razor'}\" name=razor>\n";
		}
	}
print "<br>\n";
}

sub show_arrows
{
print "<center>\n";
if (!@sub) {
	if ($in{'idx'}) {
		print "<a href='view_mail.cgi?idx=",
		    $in{'idx'}-1,"&folder=$in{'folder'}&user=$uuser'>",
		    "<img src=@{[&get_webprefix()]}/images/left.gif border=0 ",
		    "align=middle></a>\n";
		}
	print "<font size=+1>",&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,"&folder=$in{'folder'}&user=$uuser'>",
		    "<img src=@{[&get_webprefix()]}/images/right.gif border=0 ",
		    "align=middle></a>\n";
		}
	}
else {
	print "<font size=+1>$text{'view_sub'}</font>\n";
	}
print "</center><br>\n";
}

# address_link(address)
sub address_link
{
local ($mw, $cs) = &decode_mimewords($_[0]);
if (&get_charset() eq 'UTF-8' && &can_convert_to_utf8($mw, $cs)) {
        $mw = &convert_to_utf8($mw, $cs);
        }
local @addrs = &split_addresses($mw);
local @rv;
foreach $a (@addrs) {
	push(@rv, &eucconv_and_escape($a->[2]));
	}
return join(" , ", @rv);
}

${this.title}

Code Editor : view_mail.cgi