"; } # quoted_decode(text) sub quoted_decode { local $t = $_[0]; $t =~ s/=\n//g; $t =~ s/=(\S\S)/pack("c",hex($1))/ge; return $t; } # quoted_encode(text) sub quoted_encode { local $t = $_[0]; $t =~ s/([=\177-\377])/sprintf("=%2.2X",ord($1))/ge; return $t; } sub decode_mimewords { my $encstr = shift; my %params = @_; my @tokens; $@ = ''; ### error-return ### Collapse boundaries between adjacent encoded words: $encstr =~ s{(\?\=)\r?\n[ \t](\=\?)}{$1$2}gs; pos($encstr) = 0; ### print STDOUT "ENC = [", $encstr, "]\n"; ### Decode: my ($charset, $encoding, $enc, $dec); while (1) { last if (pos($encstr) >= length($encstr)); my $pos = pos($encstr); ### save it ### Case 1: are we looking at "=?..?..?="? if ($encstr =~ m{\G # from where we left off.. =\?([^?]*) # "=?" + charset + \?([bq]) # "?" + encoding + \?([^?]+) # "?" + data maybe with spcs + \?= # "?=" }xgi) { ($charset, $encoding, $enc) = ($1, lc($2), $3); $dec = (($encoding eq 'q') ? _decode_Q($enc) : _decode_B($enc)); push @tokens, [$dec, $charset]; next; } ### Case 2: are we looking at a bad "=?..." prefix? ### We need this to detect problems for case 3, which stops at "=?": pos($encstr) = $pos; # reset the pointer. if ($encstr =~ m{\G=\?}xg) { $@ .= qq|unterminated "=?..?..?=" in "$encstr" (pos $pos)\n|; push @tokens, ['=?']; next; } ### Case 3: are we looking at ordinary text? pos($encstr) = $pos; # reset the pointer. if ($encstr =~ m{\G # from where we left off... ([\x00-\xFF]*? # shortest possible string, \n*) # followed by 0 or more NLs, (?=(\Z|=\?)) # terminated by "=?" or EOS }xg) { length($1) or die "MIME::Words: internal logic err: empty token\n"; push @tokens, [$1]; next; } ### Case 4: bug! die "MIME::Words: unexpected case:\n($encstr) pos $pos\n\t". "Please alert developer.\n"; } return join('',map {$_->[0]} @tokens); } # _decode_Q STRING # Private: used by _decode_header() to decode "Q" encoding, which is # almost, but not exactly, quoted-printable. :-P sub _decode_Q { my $str = shift; $str =~ s/_/\x20/g; # RFC-1522, Q rule 2 $str =~ s/=([\da-fA-F]{2})/pack("C", hex($1))/ge; # RFC-1522, Q rule 1 $str; } # _decode_B STRING # Private: used by _decode_header() to decode "B" encoding. sub _decode_B { my $str = shift; &decode_base64($str); } # user_mail_file(user|file, [other details]) sub user_mail_file { if ($_[0] =~ /^\//) { return $_[0]; } elsif ($config{'mail_dir'}) { return &mail_file_style($_[0], $config{'mail_dir'}, $config{'mail_style'}); } elsif (@_ > 1) { return "$_[7]/$config{'mail_file'}"; } else { local @u = getpwnam($_[0]); return "$u[7]/$config{'mail_file'}"; } } # mail_file_style(user, basedir, style) sub mail_file_style { if ($_[2] == 0) { return "$_[1]/$_[0]"; } elsif ($_[2] == 1) { return $_[1]."/".substr($_[0], 0, 1)."/".$_[0]; } elsif ($_[2] == 2) { return $_[1]."/".substr($_[0], 0, 1)."/". substr($_[0], 0, 2)."/".$_[0]; } else { return $_[1]."/".substr($_[0], 0, 1)."/". substr($_[0], 1, 1)."/".$_[0]; } } # user_index_file(user|file) sub user_index_file { local $us = $_[0]; $us =~ s/\//_/g; local $f = $_[0] =~ /^\/.*\/([^\/]+)$/ ? ($user_module_config_directory ? "$user_module_config_directory/$1.findex" : "$module_config_directory/$us.findex") : $user_module_config_directory ? "$user_module_config_directory/$_[0].index" : "$module_config_directory/$_[0].index"; local $hn = &get_system_hostname(); return -r $f && !-r "$f.$hn" ? $f : "$f.$hn"; } # extract_mail(data) # Converts the text of a message into mail object. sub extract_mail { local ($amail, @aheaders, $i); local @alines = split(/\n/, $_[0]); while($i < @alines && $alines[$i]) { if ($alines[$i] =~ /^(\S+):\s*(.*)/) { push(@aheaders, [ $1, $2 ]); $amail->{'rawheaders'} .= $alines[$i]."\n"; } elsif ($alines[$i] =~ /^(\s+.*)/) { $aheaders[$#aheaders]->[1] .= $1 unless($#aheaders < 0); $amail->{'rawheaders'} .= $alines[$i]."\n"; } $i++; } $amail->{'headers'} = \@aheaders; foreach $h (@aheaders) { $amail->{'header'}->{lc($h->[0])} = $h->[1]; } splice(@alines, 0, $i); $amail->{'body'} = join("\n", @alines)."\n"; return $amail; } # split_addresses(string) # Splits a comma-separated list of addresses into [ email, real-name, original ] # triplets sub split_addresses { local (@rv, $str = $_[0]); while(1) { if ($str =~ /^[\s,]*(([^<>\(\)\s]+)\s+\(([^\(\)]+)\))(.*)$/) { # An address like foo@bar.com (Fooey Bar) push(@rv, [ $2, $3, $1 ]); $str = $4; } elsif ($str =~ /^[\s,]*("([^"]+)"\s*<([^\s<>,]+)>)(.*)$/ || $str =~ /^[\s,]*(([^<>]+)\s+<([^\s<>,]+)>)(.*)$/ || $str =~ /^[\s,]*(([^<>\[\]]+)\s+\[mailto:([^\s\[\]]+)\])(.*)$/|| $str =~ /^[\s,]*(()<([^<>,]+)>)(.*)/ || $str =~ /^[\s,]*(()([^\s<>,]+))(.*)/) { # Addresses like "Fooey Bar"
\n"; @folders = &list_folders_sorted(); if (!defined($in{'folder'}) && $userconfig{'default_folder'}) { $df = &find_named_folder($userconfig{'default_folder'}, \@folders); $in{'folder'} = $df->{'index'} if ($df); } ($folder) = grep { $_->{'index'} == $in{'folder'} } @folders; # Check if this is a POP3 or IMAP inbox with no login set if (($folder->{'type'} == 2 || $folder->{'type'} == 4) && $folder->{'mode'} == 3 && !defined($folder->{'user'})) { print "\n"; print "
\n"; &footer("/", $text{'index'}); exit; } # Get folder-selection HTML $sel = &folder_select(\@folders, $folder, "folder"); # Work out start from jump page $perpage = $folder->{'perpage'} || $userconfig{'perpage'} || 20; if ($in{'jump'} =~ /^\d+$/ && $in{'jump'} > 0) { $in{'start'} = ($in{'jump'}-1)*$perpage; } # View mail from the most recent @mail = reverse(&mailbox_list_mails(-$in{'start'}, -$in{'start'}-$perpage+1, $folder, 1, \@error)); if ($in{'start'} >= @mail && $in{'jump'}) { # Jumped too far! $in{'start'} = @mail - $perpage; @mail = reverse(&mailbox_list_mails(-$in{'start'}, -$in{'start'}-$perpage+1, $folder, 1, \@error)); } # Show page flipping arrows &show_arrows(); print "\n"; # Show search form print "
\n"; print "
| \n"; } print " | |
| \n"; } print " | |
| \n"; } print " | \n"; if ($logout) { # Add button for logging out of inbox print "\n"; } print " |
\n"; &footer("/", $text{'index'}); &pop3_logout(); # show_buttons(number) sub show_buttons { print "
| \n"; print "\n"; print " | \n"; print "\n"; print "\n"; print " | \n"; if (@folders > 1) { print "",&movecopy_select($_[0], \@folders, $folder)," | \n"; } print "\n"; } print " | \n"; print " |
\n"; print &check_clicks_function(); &show_arrows(); print "
\n"; print "\n"; dbmclose(%read); print "
\n"; local @sr = !@sub ? ( ) : ( "view_mail.cgi?idx=$in{'idx'}", $text{'view_return'} ), $s = int((@mail - $in{'idx'} - 1) / $userconfig{'perpage'}) * $userconfig{'perpage'}; &footer(@sub ? ( "view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}", $text{'view_return'} ) : ( ), "index.cgi?folder=$in{'folder'}", $text{'mail_return'}); &pop3_logout_all(); # show_buttons(pos, submode) sub show_buttons { if ($folder->{'sent'} || $folder->{'drafts'}) { if (!$_[1]) { print "\n"; } } else { print "\n"; print "\n"; } print "\n"; if (!$_[1]) { if (!$folder->{'sent'} && !$folder->{'drafts'}) { $m = $read{$mail->{'header'}->{'message-id'}}; print " \n"; print "\n"; print "\n"; } print " \n"; print "\n"; } print " \n"; print "\n"; if (!$_[1]) { @modules = &get_available_module_infos(1); ($hasspam) = grep { $_->{'dir'} eq "spam" } @modules; if (&foreign_installed("spam") && $hasspam) { print " \n"; print "\n"; print "\n"; } } } # address_link(address) sub address_link { local @addrs = &split_addresses(&decode_mimewords($_[0])); local @rv; foreach $a (@addrs) { if ($inbook{$a->[0]}) { push(@rv, &html_escape(&eucconv($a->[2]))); } else { push(@rv, "". &html_escape(&eucconv($a->[2])).""); } } return join(" , ", @rv); } sub show_arrows { print "
\n";
}
print "",&text('view_desc', $in{'idx'}+1,
$folder->{'name'}),"\n";
if ($in{'idx'} < @mail-1) {
print "",
"
\n";
}
}
else {
print "$text{'view_sub'}\n";
}
print "\n"; print "\n"; print "
\n"; &footer("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}", $text{'view_return'}, "index.cgi?folder=$in{'folder'}", $text{'index'}); exit; } &lock_folder($folder); &mailbox_delete_mail($folder, $mail); &unlock_folder($folder); &pop3_logout_all(); &redirect("index.cgi?folder=$in{'folder'}"); exit; } elsif ($in{'print'}) { # Extract the mail body &decode_and_sub(); ($textbody, $htmlbody, $body) = &find_body($mail, $userconfig{'view_html'}); # Output HTML header &PrintHeader(); print "\n"; print "
| $text{'view_headers'} | ||||||||||
|
\n"; # Just display the mail body for printing if ($body eq $textbody) { print "
";
foreach $l (&wrap_lines($body->{'data'},
$userconfig{'wrap_width'})) {
print &eucconv(&html_escape($l)),"\n";
}
print " |
| \n"; print &safe_html($body->{'data'}); print " |
\n"; for($i=0; $i<@dattach; $i++) { local $sz = (int(length($dattach[$i]->{'data'}) / 1000)+1)." Kb"; print "
",&text('detach_ok', "$paths[$i]", $sz),"
\n"; } print "
\n"; &footer("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}", $text{'view_return'}, "index.cgi?folder=$in{'folder'}", $text{'mail_return'}); exit; } elsif ($in{'black'}) { # Add sender to SpamAssassin blacklist, and tell user &header($text{'black_title'}, ""); print "
\n"; &foreign_require("spam", "spam-lib.pl"); local $conf = &spam::get_config(); local @from = map { @{$_->{'words'}} } &spam::find("blacklist_from", $conf); local %already = map { $_, 1 } @from; local ($spamfrom) = &address_parts($mail->{'header'}->{'from'}); if ($already{$spamfrom}) { print "",&text('black_already', "$spamfrom"),"
\n"; } else { push(@from, $spamfrom); &spam::save_directives($conf, 'blacklist_from', \@from, 1); &flush_file_lines(); print "",&text('black_done', "$spamfrom"),"
\n"; } print "
\n"; &footer("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}", $text{'view_return'}, "index.cgi?folder=$in{'folder'}", $text{'mail_return'}); exit; } elsif ($in{'razor'}) { # Report message to Razor and tell user &header($text{'razor_title'}, ""); print "
\n"; print "
$text{'razor_report'}\n"; print "
";
local %sconfig = &foreign_config("spam");
local $temp = &tempname();
&send_mail($mail, $temp, 0, 1);
open(OUT, "$sconfig{'spamassassin'} --report <$temp 2>&1 |");
local $error;
while() {
print &html_escape($_);
$error++ if (/failed/i);
}
close(OUT);
unlink($temp);
print " \n";
if ($? || $error) {
print "$text{'razor_err'}\n"; } else { print "$text{'razor_done'}
\n"; } print "
\n"; &footer("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}", $text{'view_return'}, "index.cgi?folder=$in{'folder'}", $text{'mail_return'}); exit; } if (!@mailforward) { &parse_mail($mail); &decrypt_attachments($mail); @attach = @{$mail->{'attach'}}; } &header($in{'forward'} || @mailforward ? $text{'forward_title'} : $in{'enew'} ? $text{'enew_title'} : $text{'reply_title'}, ""); if ($in{'enew'}) { # Editing an existing message, so keep same fields $to = $mail->{'header'}->{'to'}; $rto = $mail->{'header'}->{'reply-to'}; $from = $mail->{'header'}->{'from'}; $cc = $mail->{'header'}->{'cc'}; $ouser = $1 if ($from =~ /^(\S+)\@/); } else { if (!$in{'forward'} && !@mailforward) { # Replying to a message, so set To: field $to = $mail->{'header'}->{'reply-to'}; $to = $mail->{'header'}->{'from'} if (!$to); } if ($in{'rall'}) { # If replying to all, add any addresses in the original # To: or Cc: to our new Cc: address. # XXX should strip own addresses $cc = $mail->{'header'}->{'to'}; $cc .= ", ".$mail->{'header'}->{'cc'} if ($mail->{'header'}->{'cc'}); } } # Work out new subject, depending on whether we are replying # our forwarding a message (or neither) local $qu = !$in{'enew'} && (!$in{'forward'} || !$userconfig{'fwd_mode'}); $subject = &html_escape(&decode_mimewords( $mail->{'header'}->{'subject'})); $subject = "Re: ".$subject if ($subject !~ /^Re/i && !$in{'forward'} && !@mailforward && !$in{'enew'}); $subject = "Fwd: ".$subject if ($subject !~ /^Fwd/i && ($in{'forward'} || @mailforward)); # Construct the initial mail text local ($plainbody, $htmlbody) = find_body($mail, $userconfig{'view_html'}); if ($plainbody) { $body = $plainbody; $quote = $plainbody->{'data'}; } elsif ($htmlbody) { $body = $htmlbody; $quote = &html_to_text($htmlbody->{'data'}); } if ($quote && $qu) { $quote = join("", map { "> $_\n" } &wrap_lines($quote, 70)); } $quote = &decode_mimewords($mail->{'header'}->{'from'}). " wrote ..\n".$quote if ($quote && $qu); $sig = &get_signature(); $quote .= "\n$sig" if ($sig); if ($in{'forward'} || $in{'enew'}) { @attach = grep { $_ ne $body } @attach; } else { undef(@attach); } } print "
\n"; print "\n"; print "
\n"; &footer("index.cgi?folder=$in{'folder'}", $text{'mail_return'}); &pop3_logout_all(); sub decode_and_sub { return if (!$mail); ¬es_decode($mail, $folder); &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 .. &decrypt_attachments($mail); local $amail = &extract_mail( $mail->{'attach'}->[$s]->{'data'}); &parse_mail($amail); $mail = $amail; } ($deccode, $decmessage) = &decrypt_attachments($mail); } mailbox/CHANGES 0100664 0005671 0000012 00000000334 10026476413 013172 0 ustar jcameron wheel ---- Changes since 1.060 ---- Added links for switching between HTML and plain text view, and for showing the raw mail message. Improved the simple search function to accept 'and' and 'or' separated boolean expressions. mailbox/config-msc-linux 0100664 0005671 0000012 00000000504 10035762242 015301 0 ustar jcameron wheel edit_from=1 mail_system=1 mail_dir=/var/spool/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/lib/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 pop_locks=1 no_crlf=0 mailbox/folders-lib.pl 0100664 0005671 0000012 00000057055 10031435446 014747 0 ustar jcameron wheel # folders-lib.pl # Functions for dealing with mail folders in various formats $pop3_port = 110; $imap_port = 143; $cache_directory = $user_module_config_directory || $module_config_directory; # mailbox_list_mails(start, end, &folder, [headersonly], [&error]) sub mailbox_list_mails { if ($_[2]->{'type'} == 0) { # List a single mbox formatted file return &list_mails($_[2]->{'file'}, $_[0], $_[1]); } elsif ($_[2]->{'type'} == 1) { # List a qmail maildir local $md = $_[2]->{'file'}; return &list_maildir($md, $_[0], $_[1]); } elsif ($_[2]->{'type'} == 2) { # Get mail headers/body from a remote POP3 server # Login first local @rv = &pop3_login($_[2]); if ($rv[0] != 1) { # Failed to connect or login if ($_[4]) { @{$_[4]} = @rv; return (); } elsif ($rv[0] == 0) { &error($rv[1]); } else { &error(&text('save_elogin', $rv[1])); } } local $h = $rv[1]; local @uidl = &pop3_uidl($h); local %onserver = map { &safe_uidl($_), 1 } @uidl; # Work out what range we want local ($start, $end); if (!defined($_[0])) { $start = 0; $end = @uidl-1; } elsif ($_[1] < 0) { $start = @uidl+$_[1]-1; $end = @uidl+$_[0]-1; $start = $start<0 ? 0 : $start; } else { $start = $_[0]; $end = $_[1]; $end = @uidl-1 if ($end >= @uidl); } local @rv = map { undef } @uidl; # For each message in the range, get the headers or body local ($i, $f, %cached, %sizeneed); local $cd = "$cache_directory/$_[2]->{'id'}.cache"; if (opendir(CACHE, $cd)) { while($f = readdir(CACHE)) { if ($f =~ /^(\S+)\.body$/) { $cached{$1} = 2; } elsif ($f =~ /^(\S+)\.headers$/) { $cached{$1} = 1; } } closedir(CACHE); } else { mkdir($cd, 0700); } for($i=$start; $i<=$end; $i++) { local $u = &safe_uidl($uidl[$i]); if ($cached{$u} == 2 || $cached{$u} == 1 && $_[3]) { # We already have everything that we need } elsif ($cached{$u} == 1 || !$_[3]) { # We need to get the entire mail &pop3_command($h, "retr ".($i+1)); open(CACHE, ">$cd/$u.body"); while(<$h>) { s/\r//g; last if ($_ eq ".\n"); print CACHE $_; } close(CACHE); unlink("$cd/$u.headers"); $cached{$u} = 2; } else { # We just need the headers &pop3_command($h, "top ".($i+1)." 0"); open(CACHE, ">$cd/$u.headers"); while(<$h>) { s/\r//g; last if ($_ eq ".\n"); print CACHE $_; } close(CACHE); $cached{$u} = 1; } local $mail = &read_mail_file($cached{$u} == 2 ? "$cd/$u.body" : "$cd/$u.headers"); if ($cached{$u} == 1) { if ($mail->{'body'} ne "") { $mail->{'size'} = int($mail->{'body'}); } else { $sizeneed{$i} = 1; } } $mail->{'uidl'} = $uidl[$i]; $mail->{'idx'} = $i; $rv[$i] = $mail; } # Get sizes for mails if needed if (%sizeneed) { &pop3_command($h, "list"); while(<$h>) { s/\r//g; last if ($_ eq ".\n"); if (/^(\d+)\s+(\d+)/ && $sizeneed{$1-1}) { # Add size to the mail cache $rv[$1-1]->{'size'} = $2; local $u = &safe_uidl($uidl[$1-1]); open(CACHE, ">>$cd/$u.headers"); print CACHE $2,"\n"; close(CACHE); } } } # Clean up any cached mails that no longer exist on the server foreach $f (keys %cached) { if (!$onserver{$f}) { unlink($cached{$f} == 1 ? "$cd/$f.headers" : "$cd/$f.body"); } } return @rv; } elsif ($_[2]->{'type'} == 3) { # List an MH directory local $md = $_[2]->{'file'}; return &list_mhdir($md, $_[0], $_[1]); } elsif ($_[2]->{'type'} == 4) { # Get headers and possibly bodies from an IMAP server # Login and select the specified mailbox local @rv = &imap_login($_[2]); if ($rv[0] != 1) { # Something went wrong if ($_[4]) { @{$_[4]} = @rv; return (); } elsif ($rv[0] == 0) { &error($rv[1]); } elsif ($rv[0] == 3) { &error(&text('save_emailbox', $rv[1])); } elsif ($rv[0] == 2) { &error(&text('save_elogin2', $rv[1])); } } local $h = $rv[1]; local $count = $rv[2]; return () if (!$count); # Work out what range we want local ($start, $end); if (!defined($_[0])) { $start = 0; $end = $count-1; } elsif ($_[1] < 0) { $start = $count+$_[1]-1; $end = $count+$_[0]-1; $start = $start<0 ? 0 : $start; } else { $start = $_[0]; $end = $_[1]; $end = $count-1 if ($end >= $count); } local @mail = map { undef } (0 .. $count-1); # Get the headers or body of messages in the specified range local @rv; if ($_[3]) { # Just the headers @rv = &imap_command($h, sprintf "FETCH %d:%d (RFC822.SIZE RFC822.HEADER)", $start+1, $end+1); } else { # Whole messages @rv = &imap_command($h, sprintf "FETCH %d:%d RFC822", $start+1, $end+1); } # Parse the headers or whole messages that came back local $i; for($i=0; $i<@{$rv[1]}; $i++) { # Extract the actual mail part local $mail = &parse_imap_mail($rv[1]->[$i]); if ($mail) { $mail->{'idx'} = $start+$i; $mail[$start+$i] = $mail; } } return @mail; } } # mailbox_search_mail(&fields, andmode, &folder) sub mailbox_search_mail { if ($_[2]->{'type'} == 0) { # Just search an mbox format file return &advanced_search_mail($_[2]->{'file'}, $_[0], $_[1]); } elsif ($_[2]->{'type'} == 1) { # Search a maildir directory local $md = $_[2]->{'file'}; return &advanced_search_maildir($md, $_[0], $_[1]); } elsif ($_[2]->{'type'} == 2) { # Get all of the mail from the POP3 server and search it local @mails = &mailbox_list_mails(undef, undef, $_[2], &indexof('body', &search_fields($_[0])) >= 0 ? 0 : 1); local @rv = grep { &mail_matches($_[0], $_[1], $_) } @mails; } elsif ($_[2]->{'type'} == 3) { # Search an MH directory local $md = $_[2]->{'file'}; return &advanced_search_mhdir($md, $_[0], $_[1]); } elsif ($_[2]->{'type'} == 4) { # Use IMAP's remote search feature # XXX broken! local @rv = &imap_login($_[2]); if ($rv[0] == 0) { &error($rv[1]); } elsif ($rv[0] == 3) { &error(&text('save_emailbox', $rv[1])); } elsif ($rv[0] == 2) { &error(&text('save_elogin2', $rv[1])); } local $h = $rv[1]; # Do the search to get back a list of matching numbers local @search; foreach $f (@{$_[0]}) { local $field = $f->[0]; local $neg = ($field =~ s/^\!//); local $what = $f->[1]; $what = "\"$what\"" if ($field ne "size"); $field = "LARGER" if ($field eq "size"); local $search = uc($field)." ".$what.""; $search = "NOT $search" if ($neg); push(@searches, $search); } local $searches; if (@searches == 1) { $searches = $searches[0]; } elsif ($_[1]) { $searches = join(" ", @searches); } else { $searches = $searches[$#searches]; for($i=$#searches-1; $i>=0; $i--) { $searches = "or $searches[$i] ($searches)"; } } @rv = &imap_command($h, "SEARCH $searches"); &error(&text('save_esearch', $rv[3])) if (!$rv[0]); # Get and parse those specific messages local ($srch) = grep { $_ =~ /^\*\s+SEARCH/i } @{$rv[1]}; local @ids = split(/\s+/, $srch); shift(@ids); shift(@ids); # lose * SEARCH local (@mail, $idx); foreach $idx (@ids) { local @rv = &imap_command($h, "FETCH $idx (RFC822.SIZE RFC822.HEADER)"); &error(&text('save_esearch', $rv[3])) if (!$rv[0]); local $mail = &parse_imap_mail($rv[1]->[0]); if ($mail) { $mail->{'idx'} = $idx-1; push(@mail, $mail); } } return reverse(@mail); } } # mailbox_delete_mail(&folder, mail, ...) # Delete multiple messages from some folder sub mailbox_delete_mail { local $f = shift(@_); if ($userconfig{'delete_mode'} == 1 && !$f->{'trash'}) { # Copy to trash folder first local ($trash) = grep { $_->{'trash'} } &list_folders(); local $m; foreach $m (@_) { &write_mail_folder($m, $trash); } } if ($f->{'type'} == 0) { &delete_mail($f->{'file'}, @_); } elsif ($f->{'type'} == 1) { &delete_maildir(@_); } elsif ($f->{'type'} == 2) { # Login and delete from the POP3 server local @rv = &pop3_login($f); if ($rv[0] == 0) { &error($rv[1]); } elsif ($rv[0] == 2) { &error(&text('save_elogin', $rv[1])); } local $h = $rv[1]; local @uidl = &pop3_uidl($h); local $m; local $cd = "$cache_directory/$f->{'id'}.cache"; foreach $m (@_) { local $idx = &indexof($m->{'uidl'}, @uidl); if ($idx >= 0) { &pop3_command($h, "dele ".($idx+1)); local $u = &safe_uidl($m->{'uidl'}); unlink("$cd/$u.headers", "$cd/$u.body"); } } } elsif ($f->{'type'} == 3) { &delete_mhdir(@_); } elsif ($f->{'type'} == 4) { # Delete from the IMAP server local @rv = &imap_login($f); if ($rv[0] == 0) { &error($rv[1]); } elsif ($rv[0] == 3) { &error(&text('save_emailbox', $rv[1])); } elsif ($rv[0] == 2) { &error(&text('save_elogin2', $rv[1])); } local $h = $rv[1]; local $m; foreach $m (@_) { @rv = &imap_command($h, "STORE ".($m->{'idx'}+1). " +FLAGS (\\Deleted)"); &error(&text('save_edelete', $rv[3])) if (!$rv[0]); } @rv = &imap_command($h, "EXPUNGE"); &error(&text('save_edelete', $rv[3])) if (!$rv[0]); } } # mailbox_empty_folder(&folder) # Remove the entire contents of a mail folder sub mailbox_empty_folder { local $f = $_[0]; if ($f->{'type'} == 0) { # mbox format mail file &empty_mail($f->{'file'}); } elsif ($f->{'type'} == 1) { # qmail format maildir &empty_maildir($f->{'file'}); } elsif ($f->{'type'} == 2) { # POP3 server .. delete all messages local @rv = &pop3_login($f); if ($rv[0] == 0) { &error($rv[1]); } elsif ($rv[0] == 2) { &error(&text('save_elogin', $rv[1])); } local $h = $rv[1]; @rv = &pop3_command($h, "stat"); $rv[1] =~ /^(\d+)/ || return; local $count = $1; local $i; for($i=1; $i<=$count; $i++) { &pop3_command($h, "dele ".$i); } } elsif ($f->{'type'} == 3) { # mh format maildir &empty_mhdir($f->{'file'}); } elsif ($f->{'type'} == 4) { # IMAP server .. delete all messages local @rv = &imap_login($f); if ($rv[0] == 0) { &error($rv[1]); } elsif ($rv[0] == 3) { &error(&text('save_emailbox', $rv[1])); } elsif ($rv[0] == 2) { &error(&text('save_elogin2', $rv[1])); } local $h = $rv[1]; local $count = $rv[2]; local $i; for($i=1; $i<=$count; $i++) { @rv = &imap_command($h, "STORE ".$i. " +FLAGS (\\Deleted)"); &error(&text('save_edelete', $rv[3])) if (!$rv[0]); } @rv = &imap_command($h, "EXPUNGE"); &error(&text('save_edelete', $rv[3])) if (!$rv[0]); } } # mailbox_move_mail(&source, &dest, mail, ...) # Move mail from one folder to another sub mailbox_move_mail { local $src = shift(@_); local $dst = shift(@_); local $now = time(); local $hn = &get_system_hostname(); &create_folder_maildir($dst); if (($src->{'type'} == 1 || $src->{'type'} == 3) && $dst->{'type'} == 1) { # Can just move mail files local $dd = $dst->{'file'}; &create_folder_maildir($dst); foreach $m (@_) { rename($m->{'file'}, "$dd/cur/$now.$$.$hn"); $now++; } } elsif (($src->{'type'} == 1 || $src->{'type'} == 3) && $dst->{'type'} == 3) { # Can move and rename to MH numbering local $dd = $dst->{'file'}; local $num = &max_mhdir($dst->{'file'}) + 1; foreach $m (@_) { rename($m->{'file'}, "$dd/$num"); $num++; } } else { # Append to new folder file, or create in folder directory local $m; foreach $m (@_) { &write_mail_folder($m, $dst); } &mailbox_delete_mail($src, @_); } } # mailbox_copy_mail(&source, &dest, mail, ...) # Copy mail from one folder to another sub mailbox_copy_mail { local $src = shift(@_); local $dst = shift(@_); local $now = time(); local $hn = &get_system_hostname(); &create_folder_maildir($dst); local $m; foreach $m (@_) { &write_mail_folder($m, $dst); } } # folder_type(file_or_dir) sub folder_type { return -d "$_[0]/cur" ? 1 : -d $_[0] ? 3 : 0; } # create_folder_maildir(&folder) # Ensure that a maildir folder has the needed new, cur and tmp directories sub create_folder_maildir { mkdir($folders_dir, 0700); if ($_[0]->{'type'} == 1) { local $id = $_[0]->{'file'}; mkdir("$id/cur", 0700); mkdir("$id/new", 0700); mkdir("$id/tmp", 0700); } } # write_mail_folder(&mail, &folder, textonly) # Writes some mail message to a folder sub write_mail_folder { &create_folder_maildir($_[1]); if ($_[1]->{'type'} == 1) { # Add to a maildir directory local $md = $_[1]->{'file'}; &write_maildir($_[0], $md, $_[2]); } elsif ($_[1]->{'type'} == 3) { # Create a new MH file local $num = &max_mhdir($_[1]->{'file'}) + 1; local $md = $_[1]->{'file'}; &send_mail($_[0], "$md/$num", $_[2], 1); } elsif ($_[1]->{'type'} == 0) { # Just append to the folder file &send_mail($_[0], $_[1]->{'file'}, $_[2], 1); } elsif ($_[1]->{'type'} == 4) { # Upload to the IMAP server local @rv = &imap_login($_[1]); if ($rv[0] == 0) { &error($rv[1]); } elsif ($rv[0] == 3) { &error(&text('save_emailbox', $rv[1])); } elsif ($rv[0] == 2) { &error(&text('save_elogin2', $rv[1])); } local $h = $rv[1]; # Create a temp file and use it to create the IMAP command local $temp = &tempname(); &send_mail($_[0], $temp, $_[2], 1); open(TEMP, $temp); local $text; while(
/\n\n/gi;
$html =~ s/
/\n/gi;
$html =~ s/<[^>]+>//g;
$html = &entities_to_ascii($html);
return $html;
}
}
# folder_select(&folders, selected-folder, name, [extra-options])
# Returns HTML for selecting a folder
sub folder_select
{
local $sel = "\n";
return $sel;
}
# folder_size(&folder, ...)
# Sets the 'size' field of one or more folders
sub folder_size
{
local ($f, $total);
foreach $f (@_) {
if ($f->{'type'} == 0) {
local @st = stat($f->{'file'});
$f->{'size'} = $st[7];
}
elsif ($f->{'type'} == 1 || $f->{'type'} == 3) {
$f->{'size'} = &disk_usage_kb($f->{'file'})*1024;
}
else {
$f->{'size'} = undef;
}
$total += $f->{'size'};
}
return $total;
}
# parse_boolean(string)
# Separates a string into a series of and/or separated values. Returns a
# mode number (0=or, 1=and, 2=both) and a list of words
sub parse_boolean
{
local @rv;
local $str = $_[0];
local $mode = -1;
local $lastandor = 0;
while($str =~ /^\s*"([^"]*)"(.*)$/ ||
$str =~ /^\s*"([^"]*)"(.*)$/ ||
$str =~ /^\s*(\S+)(.*)$/) {
local $word = $1;
$str = $2;
if (lc($word) eq "and") {
if ($mode < 0) { $mode = 1; }
elsif ($mode != 1) { $mode = 2; }
$lastandor = 1;
}
elsif (lc($word) eq "or") {
if ($mode < 0) { $mode = 0; }
elsif ($mode != 0) { $mode = 2; }
$lastandor = 1;
}
else {
if (!$lastandor && @rv) {
$rv[$#rv] .= " ".$word;
}
else {
push(@rv, $word);
}
$lastandor = 0;
}
}
$mode = 0 if ($mode < 0);
return ($mode, \@rv);
}
# recursive_files(dir, do-subdirs)
sub recursive_files
{
local ($f, @rv);
opendir(DIR, $_[0]);
local @files = readdir(DIR);
closedir(DIR);
foreach $f (@files) {
next if ($f =~ /^\./ || $f =~ /\.lock$/i);
local $p = "$_[0]/$f";
if ($_[1] || !-d $p || -d "$p/cur") {
push(@rv, $p);
}
else {
push(@rv, &recursive_files($p));
}
}
return @rv;
}
1;
mailbox/config-osf1 0100664 0005671 0000012 00000000471 10035762242 014235 0 ustar jcameron wheel edit_from=1
mail_system=0
mail_dir=/var/spool/mail
perpage=20
wrap_width=80
top_buttons=1
show_to=0
sendmail_path=/usr/sbin/sendmail
server_attach=1
mail_style=0
mail_file=mbox
mail_dir_qmail=Maildir
from_map=/etc/mail/generics
index_min=1000000
index_dbm=0
folder_types=local,ext,pop3,imap
pop_locks=1
no_crlf=0
mailbox/search_form.cgi 0100775 0005671 0000012 00000003217 07766047447 015203 0 ustar jcameron wheel #!/usr/local/bin/perl
# search_form.cgi
# Display a form for searching a mailbox
require './mailbox-lib.pl';
&ReadParse();
@folders = &list_folders_sorted();
($folder) = grep { $_->{'index'} == $in{'folder'} } @folders;
$module_index_link = "/$module_name/index.cgi?folder=$in{'folder'}";
&header($text{'sform_title'}, "");
print "
\n"; print "\n"; print "
\n"; &footer("index.cgi?folder=$in{'folder'}", $text{'mail_return'}); mailbox/config-freebsd 0100664 0005671 0000012 00000000463 10035762242 015000 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/sbin/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-hpux 0100664 0005671 0000012 00000000463 10035762242 014352 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/sbin/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-irix 0100664 0005671 0000012 00000000462 10035762242 014340 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/lib/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-macos 0100664 0005671 0000012 00000000463 10035762242 014470 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/sbin/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-netbsd 0100664 0005671 0000012 00000000463 10035762242 014645 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/sbin/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-openbsd 0100664 0005671 0000012 00000000463 10035762242 015020 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/sbin/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-openserver 0100664 0005671 0000012 00000000470 10035762242 015554 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/usr/spool/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/lib/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-solaris 0100664 0005671 0000012 00000000462 10035762242 015041 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/lib/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/config-unixware 0100664 0005671 0000012 00000000462 10035762242 015227 0 ustar jcameron wheel edit_from=1 mail_system=0 mail_dir=/var/mail perpage=20 wrap_width=80 top_buttons=1 show_to=0 sendmail_path=/usr/lib/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 index_dbm=0 folder_types=local,ext,pop3,imap pop_locks=1 no_crlf=0 mailbox/delete_mail.cgi 0100755 0005671 0000012 00000007527 10023256346 015141 0 ustar jcameron wheel #!/usr/local/bin/perl # delete_mail.cgi # Delete, mark, move or copy multiple messages require './mailbox-lib.pl'; &ReadParse(); @delete = sort { $a <=> $b } split(/\0/, $in{'d'}); @folders = &list_folders(); $folder = $folders[$in{'folder'}]; if ($in{'mark1'} || $in{'mark2'}) { # Marking emails with some status @delete || &error($text{'delete_emnone'}); @mail = &mailbox_list_mails($delete[0], $delete[@delete-1], $folder); dbmopen(%read, "$user_module_config_directory/read", 0600); local $m = $in{'mark1'} ? $in{'mode1'} : $in{'mode2'}; foreach $d (@delete) { local $hid = $mail[$d]->{'header'}->{'message-id'}; if ($m) { $read{$hid} = $m; } else { delete($read{$hid}); } } dbmclose(%read); $perpage = $folder->{'perpage'} || $userconfig{'perpage'}; $s = int((@mail - $delete[0] - 1) / $perpage) * $perpage; &redirect("index.cgi?start=$s&folder=$in{'folder'}"); } elsif ($in{'move1'} || $in{'move2'}) { # Moving mails to some other folder @delete || &error($text{'delete_emnone'}); $mfolder = $folders[$in{'move1'} ? $in{'mfolder1'} : $in{'mfolder2'}]; @mail = &mailbox_list_mails($delete[0], $delete[@delete-1], $folder); foreach $d (@delete) { $mail[$d] || &error($text{'mail_eexists'}); push(@movemail, $mail[$d]); } &lock_folder($folder); &lock_folder($mfolder); &mailbox_move_mail($folder, $mfolder, @movemail); &unlock_folder($mfolder); &unlock_folder($folder); &redirect("index.cgi?folder=$in{'folder'}"); } elsif ($in{'copy1'} || $in{'copy2'}) { # Copying mails to some other folder @delete || &error($text{'delete_emnone'}); $cfolder = $folders[$in{'copy1'} ? $in{'mfolder1'} : $in{'mfolder2'}]; @mail = &mailbox_list_mails($delete[0], $delete[@delete-1], $folder); foreach $d (@delete) { $mail[$d] || &error($text{'mail_eexists'}); push(@copymail, $mail[$d]); } &lock_folder($cfolder); &mailbox_copy_mail($folder, $cfolder, @copymail); &unlock_folder($cfolder); &redirect("index.cgi?folder=$in{'folder'}"); } elsif ($in{'forward'}) { # Forwarding selected mails .. redirect @delete || &error($text{'delete_efnone'}); &redirect("reply_mail.cgi?folder=$in{'folder'}&". join("&", map { "mailforward=$_" } @delete)); } elsif ($in{'new'}) { # Need to redirect to compose form &redirect("reply_mail.cgi?new=1&folder=$in{'folder'}"); } else { # Just deleting emails @delete || $in{'all'} || &error($text{'delete_enone'}); if (!$in{'confirm'} && &need_delete_warn($folder)) { # Need to ask for confirmation before deleting &header($text{'confirm_title'}, ""); print &check_clicks_function(); print "
\n"; print "\n"; print "
\n"; &footer("index.cgi?folder=$in{'folder'}", $text{'index'}); } else { # Go ahead and delete $gconfig{'logfiles'} = 0; &lock_folder($folder); if ($in{'all'}) { # Clear the whole folder &mailbox_empty_folder($folder); } else { # Just delete selected messages @mail = &mailbox_list_mails($delete[0], $delete[@delete-1], $folder); foreach $d (@delete) { $mail[$d] || &error($text{'mail_eexists'}); push(@delmail, $mail[$d]); } &mailbox_delete_mail($folder, @delmail); } &unlock_folder($folder); &redirect("index.cgi?folder=$in{'folder'}"); } } &pop3_logout_all(); mailbox/detach.cgi 0100755 0005671 0000012 00000005054 07775773615 014145 0 ustar jcameron wheel #!/usr/local/bin/perl # detach.cgi # View one attachment from a message use Socket; require './mailbox-lib.pl'; &ReadParse(); @folders = &list_folders(); $folder = $folders[$in{'folder'}]; @mail = &mailbox_list_mails($in{'idx'}, $in{'idx'}, $folder); $mail = $mail[$in{'idx'}]; &parse_mail($mail); @sub = split(/\0/, $in{'sub'}); foreach $s (@sub) { # We are looking at a mail within a mail .. &decrypt_attachments($mail); local $amail = &extract_mail($mail->{'attach'}->[$s]->{'data'}); &parse_mail($amail); $mail = $amail; } &decrypt_attachments($mail); $attach = $mail->{'attach'}->[$in{'attach'}]; if ($in{'scale'}) { # Scale the gif or jpeg image to 48 pixels high local $temp = &tempname(); open(TEMP, ">$temp"); print TEMP $attach->{'data'}; close(TEMP); $SIG{'CHLD'} = sub { wait; }; if ($attach->{'type'} eq 'image/gif') { ($pnmin, $pnmout) = &pipeopen("giftopnm $temp"); } elsif ($attach->{'type'} eq 'image/jpeg') { ($pnmin, $pnmout) = &pipeopen("djpeg -fast $temp"); } else { &dump_erroricon(); } close($pnmin); $type = <$pnmout>; $size = <$pnmout>; unlink($temp); $type =~ /^P[0-9]/ || &dump_erroricon(); $size =~ /(\d+)\s+(\d+)/ || &dump_erroricon(); ($w, $h) = ($1, $2); if ($w > 48) { $scale = 48.0 / $w; } else { $scale = 48.0 / $h; } ($jpegin, $jpegout) = &pipeopen("pnmscale $scale 2>/dev/null | cjpeg"); print $jpegin $type; print $jpegin $size; while(read($pnmout, $buf, 1024)) { print $jpegin $buf; } close($jpegin); close($pnmout); print "Content-type: image/jpeg\n\n"; while(read($jpegout, $buf, 1024)) { print $buf; } close($jpegout); } else { # Just output the attachment print "X-no-links: 1\n"; if ($attach->{'type'} eq 'message/delivery-status') { print "Content-type: text/plain\n\n"; } else { print "Content-type: $attach->{'type'}\n\n"; } if ($attach->{'type'} =~ /^text\/html/i) { print &filter_javascript($attach->{'data'}); } else { print $attach->{'data'}; } } &pop3_logout_all(); sub dump_erroricon { print "Content-type: image/gif\n\n"; open(ICON, "images/error.gif"); while(
".join("
", @lerrs)."
\n"); } } close(INw); close(OUTr); if (@errs) { # Spelling errors found! &header($text{'compose_title'}, ""); print "
\n"; print "$text{'send_espell'}
\n"; print @errs; print "
\n"; &footer("index.cgi?folder=$in{'folder'}", $text{'mail_return'}); exit; } } local $mt = "text/plain; charset=$userconfig{'charset'}"; if ($in{'body'} =~ /[\177-\377]/) { # Contains 8-bit characters .. need to make quoted-printable $quoted_printable++; @attach = ( { 'headers' => [ [ 'Content-Type', $mt ], [ 'Content-Transfer-Encoding', 'quoted-printable' ] ], 'data' => quoted_encode($in{'body'}) } ); } else { # Plain 7-bit ascii text @attach = ( { 'headers' => [ [ 'Content-Type', $mt ], [ 'Content-Transfer-Encoding', '7bit' ] ], 'data' => $in{'body'} } ); } $bodyattach = $attach[0]; } $attachsize = 0; foreach $i (0 .. 5) { # Add uploaded attachment next if (!$in{"attach$i"}); &test_max_attach($attachsize); if ($config{'max_attach'} && $attachsize > $config{'max_attach'}) { &error(&text('send_eattachsize', $config{'max_attach'})); } local $filename = $in{"attach${i}_filename"}; $filename =~ s/^.*(\\|\/)//; local $type = $in{"attach${i}_content_type"}."; name=\"". $filename."\""; local $disp = "inline; filename=\"".$filename."\""; push(@attach, { 'data' => $in{"attach${i}"}, 'headers' => [ [ 'Content-type', $type ], [ 'Content-Disposition', $disp ], [ 'Content-Transfer-Encoding', 'base64' ] ] }); } foreach $i (0 .. 2) { # Add server-side attachment next if (!$in{"file$i"} || !$config{'server_attach'}); if ($in{"file$i"} !~ /^\//) { $in{"file$i"} = $remote_user_info[7]."/".$in{"file$i"}; } -r $in{"file$i"} && !-d $in{"file$i"} || &error(&text('send_efile', $in{"file$i"})); local @st = stat($in{"file$i"}); &test_max_attach($st[7]); local $data; open(DATA, $in{"file$i"}) || &error(&text('send_efile', $in{"file$i"})); while() { $data .= $_; } close(DATA); $in{"file$i"} =~ s/^.*\///; local $type = &guess_type($in{"file$i"})."; name=\"".$in{"file$i"}."\""; local $disp = "inline; filename=\"".$in{"file$i"}."\""; push(@attach, { 'data' => $data, 'headers' => [ [ 'Content-type', $type ], [ 'Content-Disposition', $disp ], [ 'Content-Transfer-Encoding', 'base64' ] ] }); } @fwd = split(/\0/, $in{'forward'}); if (@fwd) { # Add forwarded attachments @mail = &mailbox_list_mails($in{'idx'}, $in{'idx'}, $folder); $fwdmail = $mail[$in{'idx'}]; &parse_mail($fwdmail); &decrypt_attachments($fwdmail); foreach $s (@sub) { # We are looking at a mail within a mail .. &decrypt_attachments($fwdmail); local $amail = &extract_mail($fwdmail->{'attach'}->[$s]->{'data'}); &parse_mail($amail); $fwdmail = $amail; } foreach $f (@fwd) { &test_max_attach(length($fwdmail->{'attach'}->[$f]->{'data'})); push(@attach, $fwdmail->{'attach'}->[$f]); } } @mailfwd = split(/\0/, $in{'mailforward'}); if (@mailfwd) { # Add forwarded emails @mail = &mailbox_list_mails($mailfwd[0], $mailfwd[@mailfwd-1], $folder); foreach $f (@mailfwd) { $fwdmail = $mail[$f]; local $headertext; foreach $h (@{$fwdmail->{'headers'}}) { $headertext .= $h->[0].": ".$h->[1]."\n"; } push(@attach, { 'data' => $headertext."\n".$fwdmail->{'body'}, 'headers' => [ [ 'Content-type', 'message/rfc822' ], [ 'Content-Description', $fwdmail->{'header'}->{'subject'} ] ] }); } } if ($in{'sign'} ne '' && !$in{'draft'}) { # Put all the attachments into a single attachment, with the signature # as the second attachment &foreign_require("gnupg", "gnupg-lib.pl"); local @keys = &foreign_call("gnupg", "list_keys"); $key = $keys[$in{'sign'}]; # Create the new attachment push(@{$mail->{'headers'}}, [ 'Content-Type', 'multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"' ] ); local ($tempdata, $tempbody); if (@attach == 1) { # Just use one part $tempdata = &write_attachment($attach[0]); $tempheaders = $attach[0]->{'headers'}; $tempbody = $attach[0]->{'data'}; } else { # Create new attachment containing all the parts local $bound = "sign".time(); foreach $a (@attach) { $tempbody .= "\r\n"; $tempbody .= "--".$bound."\r\n"; $tempbody .= &write_attachment($a); } $tempbody .= "\r\n"; $tempbody .= "--".$bound."--\r\n"; $tempdata ="Content-Type: multipart/mixed; boundary=\"$bound\"\r\n". "\r\n". $tempbody; $tempheaders = [ [ "Content-Type", "multipart/mixed; boundary=\"$bound\"" ] ]; } # Sign the file local $sigdata; local $rv = &foreign_call("gnupg", "sign_data", $tempdata, \$sigdata, $key, 2); if ($rv) { &error(&text('send_esign', $rv)); } @attach = ( { 'data' => $tempbody, 'headers' => $tempheaders }, { 'data' => $sigdata, 'headers' => [ [ "Content-Type", "application/pgp-signature; name=signature.asc" ] ] } ); } $mail->{'attach'} = \@attach; if ($in{'crypt'} ne '' && !$in{'draft'}) { # Encrypt the entire mail &foreign_require("gnupg", "gnupg-lib.pl"); local @keys = &foreign_call("gnupg", "list_keys"); local @ekeys; local $key; if ($in{'crypt'} == -1) { # Find the keys for the To:, Cc: and Bcc: address local @addrs = ( &address_parts($in{'to'}), &address_parts($in{'cc'}), &address_parts($in{'bcc'}) ); local $a; foreach $a (@addrs) { local $found; foreach $k (@keys) { if (&indexof($a, @{$k->{'email'}}) >= 0) { push(@ekeys, $k); $found++; last; } } &error(&text('send_ekey', $a)) if (!$found); } } else { @ekeys = ( $keys[$in{'crypt'}] ); } if ($userconfig{'self_crypt'}) { local ($skey) = grep { $_->{'secret'} } @keys; push(@ekeys, $skey); } local $temp = &tempname(); &send_mail($mail, $temp); local ($tempdata, $buf); open(TEMP, $temp); local $dummy =
\n"; @tos = ( split(/,/, $in{'to'}), split(/,/, $in{'cc'}), split(/,/, $in{'bcc'}) ); $tos = join(" , ", map { "".&html_escape($_)."" } @tos); print "
",&text($in{'draft'} ? 'send_draft' : 'send_ok', $tos),"
\n"; print "
\n"; if ($in{'idx'} ne '') { &footer("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}$subs", $text{'view_return'}, "index.cgi?folder=$in{'folder'}", $text{'mail_return'}); } else { &footer("index.cgi?folder=$in{'folder'}", $text{'mail_return'}); } # write_attachment(&attach) sub write_attachment { local ($a) = @_; local ($enc, $rv); foreach $h (@{$a->{'headers'}}) { $rv .= $h->[0].": ".$h->[1]."\r\n"; $enc = $h->[1] if (lc($h->[0]) eq 'content-transfer-encoding'); } $rv .= "\r\n"; if (lc($enc) eq 'base64') { local $encoded = &encode_base64($a->{'data'}); $encoded =~ s/\r//g; $encoded =~ s/\n/\r\n/g; $rv .= $encoded; } else { $a->{'data'} =~ s/\r//g; $a->{'data'} =~ s/\n/\r\n/g; $rv .= $a->{'data'}; if ($a->{'data'} !~ /\n$/) { $rv .= "\r\n"; } } return $rv; } sub test_max_attach { $attachsize += $_[0]; if ($config{'max_attach'} && $attachsize > $config{'max_attach'}) { &error(&text('send_eattachsize', $config{'max_attach'})); } } # expand_to(list) # Given a string containing multiple email addresses and group names, # expand out the group names (if any) # XXX must handle ALL email address formats, to avoid corruption # XXX strip out my address when doing reply-to-all sub expand_to { %address_groups = map { $_->[0], $_->[1] } &list_address_groups() if (!defined(%address_groups)); local @addrs = &split_addresses($_[0]); local (@alladdrs, $a, $expanded); foreach $a (@addrs) { if (defined($address_groups{$a->[0]})) { push(@alladdrs, &split_addresses($address_groups{$a->[0]})); $expanded++; } else { push(@alladdrs, $a); } } return $expanded ? join(", ", map { $_->[2] } @alladdrs) : $_[0]; } mailbox/ulang/ 0040775 0005671 0000012 00000000000 10032203243 013272 5 ustar jcameron wheel mailbox/ulang/en 0100664 0005671 0000012 00000011105 10026751547 013634 0 ustar jcameron wheel mail_title=Read Mail mail_none=There are no messages in folder $1 mail_pos=Messages $1 to $2 of $3 in folder $4 mail_return=mailbox send_efile=Attached file $1 is not readable or does not exist address_chooser=Select Address.. address_addr=Email address address_name=Real name address_none=Your address book is empty. address_title=Address Book address_desc=The table below lists addresses that you can select from when composing a new email. Addresses can also be added by clicking on them when viewing an email message. address_edit=Edit.. address_delete=Delete address_add=Add new address entry. address_err=Failed to save address address_eaddr=Missing or invalid email address address_from=From address? address_yd=Yes, default address_gdesc=This section lists groups of addresses that you can define for sending email to several people at once. address_gadd=Add a new group entry. address_gnone=Your group list is empty. address_group=Group address_members=Email addresses address_m=$1 members group_err=Failed to save address group group_egroup=Missing or invalid group name group_emembers=No member email addresses entered folders_title=Manage Folders folders_desc=Each of the folders listed below can contain mail that you move into it, or mail that is placed into it automatically. There are four kinds of folders :
- System folders like Inbox, Drafts and Sent Mail that always exist
- Folders under the $1 directory that can be created or deleted by Usermin
- Other files or directories that can be managed as folders by Usermin
- POP3 accounts on other servers that can be treated as folders
du dossier Inbox sur le serveur mail $1. mail_loginuser=Nom utilisateur mail_loginpass=Mot de passe mail_loginmailbox=IMAP mailbox mail_login=Login mail_reset=Reset mail_logout=Change POP3 login mail_logout2=Change IMAP login mail_sig=Editer la Signature mail_jump=Saut la page : mail_of=de mail_replyto=Rpondre send_epass=Vous ne pouvez pas signer un message cat votre phrase de passeur passphrase has not be setup yet in the GnuPG module. send_esign=Echec de la signature du message : $1 send_ekey=Ne pas pas trouver de cl pour l'adresse email $1 send_ecrypt=Echec du cryptage du message : $1 send_eword=Mot mal pel $1 send_eword2=Mot mal pel $1 - Corrections possible $2 send_eline=Line $1 : send_espell=Les erreurs d'orthographe suivante ont t trouv dans votre message .. send_draft=Mail $1 sauv dans le dossier Brouillon (drafts). send_eattachsize=L'attachement au mail dpasse la taille maximum autorise de $1 octets address_chooser=Choisir Adresse.. address_addr=Adresse Email address_name=Nom rel address_none=Votre carnet d adresse est vide. address_title=Carnet d adresse address_desc=La table suivante liste les adresses que vous pouvez slectionner comme metteur quand vous composez un nouveau mail. Ces adresses peuvent tre ajoutes en cliquant dessus quand vous consulter un email. address_edit=Editer.. address_delete=Effacer address_add=Ajouter une nouvelle adresse. address_err=Echec de la sauvegarde de l'adresse address_eaddr=Adresse Email manquante ou invalide address_from=Adresse metteur? address_yd=Oui, defaut reply_spell=Vrifier les erreurs d'orthographe? reply_draft=Sauver en Brouillon folder_inbox=Messages reus folder_sent=Messages envoys folder_drafts=Brouillons delete_emnone=Aucun mail dplacer selectionn folders_title=Grer les dossiers folders_desc=Each of the folders listed below can contain mail that you move into it, or mail that is placed into it automatically. There are four kinds of folders :
- System folders like Inbox, Drafts and Sent Mail that always exist
- Folders under the $1 directory that can be created or deleted by Usermin
- Other files or directories that can be managed as folders by Usermin
- POP3 accounts on other servers that can be treated as folders
in uw inbox op server $1 te lezen. mail_loginuser=Gebruikersnaam mail_loginpass=Wachtwoord mail_login=Login mail_reset=Opnieuw send_epass=U kunt nog geen berichten ondertekenen omdat U nog geen passphrase heeft opgegeven in de GnuPG module. send_esign=Kon e-mail $1 niet ondertekenen send_ekey=Kon geen key vinden voor e-mailadres $1 send_ecrypt=Kon e-mail $1 niet coderen send_eword=Spelfout in woord $1 send_eword2=Spelfout in woord $1 - mogelijke correctie $2 send_eline=In regel $1 : send_espell=De volgende spelfouten zijn gevonden in uw bericht.. send_draft=E-mail aan $1 opgeslagen in concepten map. address_chooser=Kies Adres.. address_addr=E-mail adres address_name=Volledige naam address_none=Uw adresboek is leeg. address_title=Adresboek address_desc=De tabel hieronder bevat e-mailadressen die U kunt gebruiken bij het aanmaken van e-mails. U kunt adressen toevoegen door op het adres te klikken tijdens het lezen van e-mail. address_edit=Bewerk.. address_delete=Verwijder address_add=Voeg nieuw adres toe. address_err=Kon adres niet opslaan address_eaddr=Ontbrekend of ongeldig e-mailadres reply_spell=Spellingscontrole? reply_draft=Bewaar als concept folder_inbox=Inbox folder_sent=Verzonden mail folder_drafts=Concepten delete_emnone=Geen e-mail geselecteerd voor verplaatsen folders_title=Beheer mappen folders_desc=De mappen die hieronder staan afgebeeld kunnen elk e-mail bevatten die u daarin plaatst, of daarin automatisch terecht komt. Er zijn vier soorten mappen:
- Systeem mappen zoals Inbox, Concepten en Verzonden mail, deze mappen bestaan altijd.
- Mappen onder de $1 directory die door Usermin gemaakt of verwijderd kunnen worden.
- Andere files of directories die als mappen beheerd kunnen worden door Usermin
- POP3 accounts op andere servers die als mappen gezien worden.
- System-Verzeichnisse wie "Posteingang", "Entwürfe" oder "Gesendete Nachrichten", die immer existieren und bei Löschung automatisch neu erstellt werden.
- Verzeichnisse unterhalb dem $1 Verzeichnis, welche von Usermin erstellt oder gelöscht werden können.
- Andere Dateien oder Verzeichnisse, welche von Usermin wie Verzeichnisse behandelt werden können.
- POP3-Accounts auf anderen Servern, die von Usermin als Verzeichnisse behandelt werden können. folder_sent=Gesendete Nachrichten folders_iadd=Eine IMAP-E-Mailbox as Verzeichnis hinzufügen folders_maildir=Verzeichnis folders_mbox=Datei folders_mhdir=MH-Verzeichnis folders_name=Verzeichnisname folders_padd=Einen POP3-Account als Verzeichnis hinzufügen folders_path=Standort folders_return=Verzeichnisliste folders_serv=$1 auf Server $2 folders_size=Größe folders_title=Verzeichnisse verwalten folders_type=Typ folder_trash=Mülleimer group_egroup=Fehlender oder ungültiger Gruppenname group_emembers=Es wurden keine Mitglieds-E-Mail-Adressen eingegeben group_err=Konnte die E-Mail-Gruppe nicht speichern mail_addresses=Adressbuch verwalten mail_advanced=Erweiterte Sucheinstellungen mail_crypt=GnuPG verschlüsselt für: mail_delall=Alles löschen mail_deltrash=Mülleimer leeren mail_err=Eine Fehler ist beim Listen dieses Verzeichnisses aufgetreten : $1 mail_fchange=Ändern mail_folder=Ordner mail_folders=Verzeichnisse verwalten mail_jump=Springe zu Seite : mail_logindesc=Sie müssen Benutzernamen und Passwort angeben,
- ,
- $1 Usermin
- Usermin
- POP3
- System folders like Inbox, Drafts and Sent Mail that always exist
- Folders under the $1 directory that can be created or deleted by Usermin
- Other files or directories that can be managed as folders by Usermin
- POP3 accounts on other servers that can be treated as folders
Ihren Posteingang auf $1 einzusehen. mail_loginheader=POP3-Server-Login mail_login=Login mail_loginmailbox=IMAP-E-Mailbox mail_loginpass=Passwort mail_loginuser=Benutzername mail_logout2=IMAP-Login ändern mail_logout=POP3-Login ändern mail_move=Verschieben nach: mail_nocrypt=<Nicht verschlüsseln> mail_none=Es gibt keine E-Mails im Verzeichnis $1 mail_nosign=<Nicht signieren> mail_of=von mail_pos=E-Mail $1 bis $2 von $3 im Ordner $4 mail_replyto=Antworten an mail_reset=Löschen mail_return=E-Mailbox mail_samecrypt=<Schlüssel der Zieladresse(n)> mail_search2=Suchen nach: mail_sign=Mit dem GnuPG-Schlüssel signieren: mail_sig=Signatur bearbeiten mail_title=E-Mail lesen razor_done=.. fertig razor_err=.. Fehler! Beachten Sie obige Fehlermeldung. razor_report=Diese E-Mail wird der Spam-Datenbank von SpamAssassin gemeldet. razor_title=An SpamAssassin melden reply_draft=Als Entwurf speichern reply_spell=Auf Schreibfehler prüfen? save_delete=Jetzt löschen save_eappend=Konnte diese E-Mail(s) nicht der IMAP-E-Mailbox zustellen : $1 save_ecannot=Sie dürfen die Art der Verzeichnisse nicht benutzen. save_eclash=Ein anderes Verzeichnis mit dem gleichen Namen existiert bereits. save_edelete=Konnte die E-Mail nicht löschen : $1 save_efile='$1' existiert nicht oder ist nicht erreichbar save_efromaddr=Fehlende oder ungültige From:-Adresse save_eindir=Externe E-Maildateien können nicht unter dem Verzeichnis $1 liegen. save_elogin2=Konnte nicht in den IMAP-Server einloggen : $1 save_elogin=Konnte nicht in den POP3-Server einloggen : $1 save_emailbox2=Fehlende oder ungültige IMAP-E-Mailbox save_emailbox=Konnte IMAP-E-Mailbox nicht öffnen : $1 save_emaildir='$1' scheint kein gültiges Qmail- oder MH-Verzeichnis zu sein save_embox='$1' scheint keine gültige E-Mailboxdatei zu sein save_ename=Fehlender oder ungültiger Verzeichnisname save_eperpage=Fehlende oder ungültige Anzahl von anzuzeigenden E-Mails pro Seite save_err=Konnte Verzeichnis nicht speichern save_esearch=Fehler beim Suchen der IMAP-E-Mailbox : $1 save_eserver=Fehlender oder ungültiger POP3-Server save_esys=Der Verzeichnisname ist mit einem Systemverzeichnisnamen identisch oder ähnlich und wird zurückgewiesen. save_euser=Fehlender Benutzername save_rusure=Sind Sie sicher, daß Sie das Verzeichnis $1 in $2 löschen wollen? $3 KiB an E-Mails werden für immer gelöscht. save_title=Verzeichnis löschen send_draft=E-Mail an $1 wurde im Verzeichnis "Entwürfe" gespeichert. send_eattachsize=Die Größe des Anhanges überschreitet die voreingestellte maximale Größe für E-Mailanhänge send_ecrypt=Konnte E-Mail nicht entschlüsseln : $1 send_efile=Die anghängte Datei $1 ist nicht lesbar oder existiert nicht. send_ekey=Konnte den GnuPG/PGP-Schlüssel für die E-Mail-Adresse $1 nicht finden send_eline=In Zeile $1 : send_epass=Sie können keine Nachrichten signieren, da Sie keine Passphrase im GnuPG-Modul hinterlegt haben. send_esign=Konnte E-Mail nicht signieren : $1 send_espell=Die folgenden Rechtschreibefehler wurden in Ihrer E-Mail gefunden ... send_eword2=Falsch geschriebenes Wort $1 - Mögliche Korrekturvorschläge $2 send_eword=Falsch geschriebenes Wort $1 sform_all=<Alle Ordner> sform_and=Finde Nachrichten, die alle unten aufgeführten Bedingungen erfüllen ... sform_body=Nachrichtentext sform_cc=Cc: Headerzeile sform_date=Datum: Headerzeile sform_folder=in Ordner(n) sform_from=Von: Headerzeile sform_headers=any header sform_local=<Lokale Ordner> sform_neg0=beinhaltet sform_neg1=beinhaltet nicht sform_ok=Jetzt suchen sform_or=Finde Nachrichten, die irgendeine der unten aufgeführten Bedingungen erfüllen ... sform_return=Suchformular Erweiterte Suche sform_size=Nachrichtengröße sform_subject=Betreff: Headerzeile sform_text=den Text sform_title=Erweiterte Suche sform_to=An: Headerzeile sform_where=Wo view_black=Absender blockieren view_crypt_1=Die E-Mail ist verschlüsselt, aber GnuPG-Unterstützung ist nicht installiert. view_crypt_2=Konnte E-Mail nicht entschlüsseln : $1 view_crypt_3=E-Mail wurde erfolgreich entschlüsselt. view_crypt=GnuPG E-Mail-Entschlüsselung view_detach=Anhang entfernen: view_diagnostic-code=Grund des Fehlers view_dir=in eine Serverdatei oder ein Verzeichnis: view_dstatus=Konnte Versandstatus nicht ermitteln view_final-recipient=Endgültiger Empfänger view_folder=Zurück zur E-Mailbox view_gnupg_0=Die GnuPG/PGP-Signatur von $1 ist gültig. view_gnupg_1=Die GnuPG/PGP-Signatur von $1 ist gültig, aber es konnte keine Vertrauensstellung abgefragt werden. view_gnupg_2=Die GnuPG/PGP-Signatur von $1 ist NICHT gültig. view_gnupg_3=Die Schlüssel-ID $1 befindet sich nicht in Ihrem Schlüsselbund, weswegen die GnuPG/PGP-Signatur nicht geprüft werden kann. view_gnupg_4=Konnte GnuPG/PGP-Signatur nicht überprüfen : $1 view_gnupg=GnuPG/PGP-Signatur-Überprüfung view_razor=An Razor melden view_recv=Hole Schlüssel-ID $1 vom Schlüsselserver. view_remote-mta=Entfernter E-Mail-Server view_reporting-mta=Berichtender E-Mail-Server mailbox/ulang/el 0100755 0005671 0000012 00000014657 07671622220 013647 0 ustar jcameron wheel send_efile= $1 view_gnupg= GnuPG view_gnupg_0= $1 . view_gnupg_1= $1 , trust chain. view_gnupg_2= $1 . view_gnupg_3= Key ID $1 . view_gnupg_4= : $1 view_crypt= GnuPG view_crypt_1=Message is encrypted, but GnuPG support is not installed. view_crypt_2= : $1 view_crypt_3= . view_recv= key ID $1 keyserver. view_folder= mail_sign= GnuPG : mail_nosign=< > mail_crypt= GnuPG : mail_nocrypt=< > mail_samecrypt=< > mail_addresses= mail_none= $1 mail_pos= $1 $2 $3 $4 mail_fchange= mail_move= : mail_return= mail_folders= mail_err= : $1 mail_loginheader= POP3 mail_logindesc=
$1. mail_loginuser= mail_loginpass= mail_loginmailbox= IMAP mail_login= mail_reset= mail_logout= POP3 mail_logout2= IMAP send_epass= GnuPG. send_esign= : $1 send_ekey= $1 send_ecrypt= : $1 send_eword= $1 send_eword2= $1 - $2 send_eline= $1 : send_espell= .. send_draft= $1 . address_chooser= .. address_addr= address_name= address_none= . address_title= address_desc= . , . address_edit=.. address_delete= address_add= . address_err= address_eaddr= address_from= ; reply_spell= ; reply_draft= folder_inbox= folder_sent= folder_drafts= delete_emnone= folders_title= folders_desc= , . :
in your inbox on the mail server $1. mail_loginuser=Username mail_loginpass=Password mail_loginmailbox=IMAP mailbox mail_login=Login mail_reset=Clear mail_logout=Change POP3 login mail_logout2=Change IMAP login mail_sig=Edit Signature mail_jump=Jump to page : mail_of=of mail_replyto=Reply to mail_folder=Folder mail_delall=Delete All mail_deltrash=Empty Trash send_efile=Attached file $1 is not readable or does not exist send_epass=You cannot sign a message because your passphrase has not be setup yet in the GnuPG module. send_esign=Failed to sign message : $1 send_ekey=Couldn't find key for email address $1 send_ecrypt=Failed to encrypt message : $1 send_eword=Misspelt word $1 send_eword2=Misspelt word $1 - possible corrections $2 send_eline=In line $1 : send_espell=The following spelling errors were found in your message .. send_draft=Mail to $1 saved in drafts folder. send_eattachsize=The mail attachment exceeded the maximum allowed size of $1 bytes address_chooser=Select Address.. address_addr=Email address address_name=Real name address_none=Your address book is empty. address_title=Address Book address_desc=The table below lists addresses that you can select from when composing a new email. Addresses can also be added by clicking on them when viewing an email message. address_edit=Edit.. address_delete=Delete address_add=Add new address entry. address_err=Failed to save address address_eaddr=Missing or invalid email address address_from=From address? address_yd=Yes, default address_gdesc=This section lists groups of addresses that you can define for sending email to several people at once. address_gadd=Add a new group entry. address_gnone=Your group list is empty. address_group=Group address_members=Email addresses address_m=$1 members group_err=Failed to save address group group_egroup=Missing or invalid group name group_emembers=No member email addresses entered reply_spell=Check for spelling errors? reply_draft=Save as Draft folder_inbox=Inbox folder_sent=Sent mail folder_drafts=Drafts folder_trash=Trash delete_emnone=No mail selected to move folders_title=Manage Folders folders_desc=Each of the folders listed below can contain mail that you move into it, or mail that is placed into it automatically. There are four kinds of folders :
\n"; if ($in{'simple'}) { # Just search by Subject and From in one folder ($mode, $words) = &parse_boolean($in{'search'}); if ($mode == 0) { # Can just do a single 'or' search @searchlist = map { ( [ 'subject', $_ ], [ 'from', $_ ] ) } @$words; @rv = &mailbox_search_mail(\@searchlist, 0, $folder); } elsif ($mode == 1) { # Need to do two 'and' searches and combine @searchlist1 = map { ( [ 'subject', $_ ] ) } @$words; @rv1 = &mailbox_search_mail(\@searchlist1, 1, $folder); @searchlist2 = map { ( [ 'from', $_ ] ) } @$words; @rv2 = &mailbox_search_mail(\@searchlist2, 1, $folder); @rv = @rv1; %gotidx = map { $_->{'idx'}, 1 } @rv; foreach $mail (@rv2) { push(@rv, $mail) if (!$gotidx{$mail->{'idx'}}); } } else { &error($text{'search_eboolean'}); } foreach $mail (@rv) { $mail->{'folder'} = $folder; } print "
",&text('search_results2', scalar(@rv), "$in{'search'}"),"
\n"; } else { # Complex search, perhaps over multiple folders! if ($in{'folder'} == -2) { @sfolders = grep { !$_->{'remote'} } @folders; $multi_folder = 1; } elsif ($in{'folder'} == -1) { @sfolders = @folders; $multi_folder = 1; } else { @sfolders = ( $folder ); } foreach $sf (@sfolders) { local @frv = &mailbox_search_mail(\@fields, $in{'and'}, $sf); foreach $mail (@frv) { $mail->{'folder'} = $sf; } push(@rv, @frv); } print "
",&text('search_results4', scalar(@rv)),"
\n"; } @rv = reverse(@rv); $showto = $folder->{'sent'} || $folder->{'drafts'}; if (@rv) { print "
\n"; } else { print "$text{'search_none'}
\n"; } print "
\n"; &footer($in{'simple'} ? ( ) : ( "search_form.cgi?folder=$in{'folder'}", $text{'sform_return'} ), "index.cgi?folder=$in{'folder'}", $text{'mail_return'}); &pop3_logout_all(); mailbox/uconfig.info 0100664 0005671 0000012 00000003557 10033256344 014515 0 ustar jcameron wheel line0=User interface,11 perpage=Mail messages to display per page,0,5 wrap_width=Width to wrap mail messages at,0,5 top_buttons=Show buttons at top for,1,2-Mailboxes and mails,1-Mailboxes only,0-Never arrows=Show pager arrows at bottom for,1,2-Mailboxes and mails,1-Mailboxes only,0-Never show_to=Show To: address in mailboxes?,1,1-Yes,0-No auto_mark=Automatically mark read messages?,1,1-Yes,0-No thumbnails=Show image attachments as thumbnails
(Requires cjpeg, djpeg and PNM library commands),1,1-Yes,0-No refresh=Seconds between automatic mailbox refreshes,3,Don't refresh view_html=Show message body as,4,0-Always plain text,1-Text if possible, HTML otherwise,2-HTML if possible, text otherwise,3-Convert HTML to plain text line1=Sending email,11 no_mime=Send text-only messages when possible?,1,1-Yes,0-No save_sent=Save sent mail?,1,1-Yes,0-No real_name=Include real name in From: address?,1,1-Yes,0-No charset=Character set for sent mail,0,15 sig_file=Signature file,10,*-None,.signature-~/.signature,Other file self_crypt=Encrypt email with your secret key too?,1,1-Yes,0-No fwd_mode=Forward messages with quoting?,1,0-Yes,1-No from_in_to=Show From: addresses when selecting a To: address?,1,1-Yes,0-No sort_addrs=Sort address book by,1,0-Order added,1-Real name,2-Email address reply_to=Reply-to: address,10,x-None,*-Choose when sending,Address.. line3=Mail folders,11 mailbox_dir=Mailboxes directory under home directory,0,30 mailbox_recur=Treat mailbox subdirectories as,1,1-Folders,0-Subdirectories default_folder=Default folder file,3,Inbox delete_warn=Ask for confirmation before deleting?,10,y-Yes,n-No,For mbox files larger than delete_mode=When deleting mail,1,0-Just delete from mail file,1-Move to Trash folder folder_sort=Folder sort mode,4,0-Builtin, then ~/mail, then external,1-Builtin, then rest sorted by name,2-All sorted by name mailbox/save_address.cgi 0100775 0005671 0000012 00000001312 07653063472 015337 0 ustar jcameron wheel #!/usr/local/bin/perl # save_address.cgi # Save, add or delete an address book entry require './mailbox-lib.pl'; &ReadParse(); if ($in{'delete'} ne '') { &delete_address($in{'delete'}); } else { &error_setup($text{'address_err'}); $in{'addr'} =~ /^\S+$/ || &error($text{'address_eaddr'}); if ($in{'from'} == 2) { # Turn off default for all others foreach $a (&list_addresses()) { if ($a->[3] == 2 && $a->[2] != $in{'edit'}) { &modify_address($a->[2], $a->[0], $a->[1], 1); } } } if ($in{'add'}) { &create_address($in{'addr'}, $in{'name'}, $in{'from'}); } else { &modify_address($in{'edit'}, $in{'addr'}, $in{'name'}, $in{'from'}); } } &redirect("list_addresses.cgi"); mailbox/add_address.cgi 0100775 0005671 0000012 00000000510 07510532726 015123 0 ustar jcameron wheel #!/usr/local/bin/perl # add_address.cgi # Add an address from an email to the user's address book require './mailbox-lib.pl'; &ReadParse(); &create_address($in{'addr'}, $in{'name'}); @sub = split(/\0/, $in{'sub'}); $subs = join("", map { "&sub=$_" } @sub); &redirect("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}$subs"); mailbox/address_chooser.cgi 0100775 0005671 0000012 00000006405 10016250605 016032 0 ustar jcameron wheel #!/usr/local/bin/perl # address_chooser.cgi # Display a list of entries from the address book # XXX fix up ifield problem require './mailbox-lib.pl'; &ReadParse(); &PrintHeader(); print <
\n"; } print "