"; } # quoted_decode(text) sub quoted_decode { local $t = $_[0]; $t =~ s/=\n//g; $t =~ s/=(\S\S)/pack("c",hex($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 $f = $_[0] =~ /^\/.*\/([^\/]+)$/ ? ($user_module_config_directory ? "$user_module_config_directory/$1.findex" : "$module_config_directory/$1.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 ]); } elsif ($alines[$i] =~ /^(\s+.*)/) { $aheaders[$#aheaders]->[1] .= $1; } $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 ] pairs sub split_addresses { local (@rv, $str = $_[0]); while(1) { if ($str =~ /^[\s,]*(([^<>\(\)\s]+)\s+\(([^\(\)]+)\))(.*)$/) { push(@rv, [ $2, $3, $1 ]); $str = $4; } elsif ($str =~ /^[\s,]*("([^"]+)"\s+<([^\s<>]+)>)(.*)$/ || $str =~ /^[\s,]*(([^<>]+)\s+<([^\s<>]+)>)(.*)$/ || $str =~ /^[\s,]*(([^<>\[\]]+)\s+\[mailto:([^\s\[\]]+)\])(.*)$/|| $str =~ /^[\s,]*(()<([^\s<>]+)>)(.*)/ || $str =~ /^[\s,]*(()([^\s<>,]+))(.*)/) { push(@rv, [ $3, $2, $1 ]); $str = $4; } else { last; } } return @rv; } $match_ascii = '\x1b\([BHJ]([\t\x20-\x7e]*)'; $match_jis = '\x1b\$[@B](([\x21-\x7e]{2})*)'; sub eucconv { local($_) = @_; if ($current_lang eq 'ja_JP.euc') { s/$match_jis/&j2e($1)/geo; s/$match_ascii/$1/go; } $_; } sub j2e { local($_) = @_; tr/\x21-\x7e/\xa1-\xfe/; $_; } # list_maildir(file, [start], [end]) # Returns a subset of mail from a maildir format directory sub list_maildir { local (@rv, $i, $f, @files); foreach $d ("$_[0]/cur", "$_[0]/new") { opendir(DIR, $d); while($f = readdir(DIR)) { push(@files, "$d/$f") if ($f !~ /^\./); } closedir(DIR); } @files = sort { $a =~ /([^\/]+)$/; local $an = $1; $b =~ /([^\/]+)$/; local $bn = $1; $an cmp $bn } @files; local ($start, $end); if (!defined($_[1])) { $start = 0; $end = @files - 1; } elsif ($_[2] < 0) { $start = @files + $_[2] - 1; $end = @files + $_[1] - 1; $start = 0 if ($start < 0); } else { $start = $_[1]; $end = $_[2]; $end = @files-1 if ($end >= @files); } foreach $f (@files) { if ($i < $start || $i > $end) { # Skip files outside requested index range push(@rv, undef); $i++; next; } local $mail = &read_mail_file($f); $mail->{'idx'} = $i++; push(@rv, $mail); } return @rv; } # search_maildir(file, field, what) # Search for messages in a maildir directory, and return the result sub search_maildir { local @rv; local $field = $_[1]; local $neg = ($field =~ s/^\!//); foreach $mail (&list_maildir($_[0])) { if ($field eq 'body') { push(@rv, $mail) if (!$neg && $mail->{'body'} =~ /\Q$_[2]\E/i || $neg && $mail->{'body'} !~ /\Q$_[2]\E/i); } elsif ($field eq 'size') { push(@rv, $mail) if (!$neg && $mail->{'size'} > $_[2] || $neg && $mail->{'size'} < $_[2]); } else { push(@rv, $mail) if (!$neg && $mail->{'header'}->{$field} =~ /\Q$_[2]\E/i || $neg && $mail->{'header'}->{$field} !~ /\Q$_[2]\E/i); } } return @rv; } # delete_maildir(&mail, ...) # Delete messages from a maildir directory sub delete_maildir { local $m; foreach $m (@_) { unlink($m->{'file'}); } } # modify_maildir(&oldmail, &newmail, textonly) # Replaces a message in a maildir directory sub modify_maildir { unlink($_[0]->{'file'}); &send_mail($_[1], $_[0]->{'file'}, $_[2]); } # list_mhdir(file, [start], [end]) # Returns a subset of mail from an MH format directory sub list_mhdir { local ($start, $end, $f, $i, @rv); opendir(DIR, $_[0]); local @files = map { "$_[0]/$_" } sort { $a <=> $b } grep { /^\d+$/ } readdir(DIR); closedir(DIR); if (!defined($_[1])) { $start = 0; $end = @files - 1; } elsif ($_[2] < 0) { $start = @files + $_[2] - 1; $end = @files + $_[1] - 1; $start = 0 if ($start < 0); } else { $start = $_[1]; $end = $_[2]; $end = @files-1 if ($end >= @files); } foreach $f (@files) { if ($i < $start || $i > $end) { # Skip files outside requested index range push(@rv, undef); $i++; next; } local $mail = &read_mail_file($f); $mail->{'idx'} = $i++; push(@rv, $mail); } return @rv; } # search_mhdir(file, field, what) # Search for messages in an MH directory, and return the result sub search_mhdir { local @rv; local $field = $_[1]; local $neg = ($field =~ s/^\!//); foreach $mail (&list_mhdir($_[0])) { if ($field eq 'body') { push(@rv, $mail) if (!$neg && $mail->{'body'} =~ /\Q$_[2]\E/i || $neg && $mail->{'body'} !~ /\Q$_[2]\E/i); } elsif ($field eq 'size') { push(@rv, $mail) if (!$neg && $mail->{'size'} > $_[2] || $neg && $mail->{'size'} < $_[2]); } else { push(@rv, $mail) if (!$neg && $mail->{'header'}->{$field} =~ /\Q$_[2]\E/i || $neg && $mail->{'header'}->{$field} !~ /\Q$_[2]\E/i); } } return @rv; } # delete_mhdir(&mail, ...) # Delete messages from an MH directory sub delete_mhdir { local $m; foreach $m (@_) { unlink($m->{'file'}); } } # modify_mhdir(&oldmail, &newmail, textonly) # Replaces a message in a maildir directory sub modify_mhdir { unlink($_[0]->{'file'}); &send_mail($_[1], $_[0]->{'file'}, $_[2]); } # max_mhdir(dir) # Returns the maximum message ID in the directory sub max_mhdir { local $max = 1; opendir(DIR, $_[0]); foreach $f (readdir(DIR)) { $max = $f if ($f =~ /^\d+$/ && $f > $max); } closedir(DIR); return $max; } # read_mail_file(file) # Read a single message from a file sub read_mail_file { local (@headers, $mail); $mail->{'file'} = $_[0]; # Read the headers open(MAIL, $_[0]); while(1) { local $line =
\n"; @folders = &list_folders(); if (!defined($in{'folder'}) && $userconfig{'default_folder'}) { ($df) = grep { $_->{'file'} eq $userconfig{'default_folder'} } @folders; $in{'folder'} = $df->{'index'} if ($df); } $folder = $folders[$in{'folder'}]; # Check if this is a pop3 inbox with no login set if ($folder->{'type'} == 2 && $folder->{'mode'} == 3 && !defined($folder->{'user'})) { print "\n"; print "
\n"; &footer("/", $text{'index'}); exit; } $sel = "\n"; # View mail from the most recent @mail = reverse(&mailbox_list_mails(-$in{'start'}, -$in{'start'}-$userconfig{'perpage'}+1, $folder, 1, \@error)); print "
\n"; print "
| \n"; print " |
\n"; &footer("/", $text{'index'}); # show_buttons(number) sub show_buttons { print "
| \n"; print "\n"; print " | \n"; print "\n"; print "\n"; print " | \n"; if (@folders > 1) { print "\n"; print " | \n"; } print "\n"; } print " | \n"; 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"; 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'}); # show_buttons(pos) sub show_buttons { if ($folder->{'sent'} || $folder->{'drafts'}) { print "\n"; } else { print "\n"; print "\n"; } print "\n"; if (!$folder->{'sent'} && !$folder->{'drafts'}) { $m = $read{$mail->{'header'}->{'message-id'}}; print " \n"; print "\n"; 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($a->[2])); } else { push(@rv, "". &eucconv(&html_escape($a->[2])).""); } } return join(" , ", @rv); } mailbox/reply_mail.cgi 0100755 0005671 0000012 00000021305 07536534373 015036 0 ustar jcameron wheel #!/usr/local/bin/perl # Display a form for replying to an email require './mailbox-lib.pl'; &ReadParse(); $module_index_link = "/$module_name/index.cgi?folder=$in{'folder'}"; if ($in{'new'}) { # Composing a new email &header($text{'compose_title'}, ""); } else { # Replying or forwarding @folders = &list_folders(); $folder = $folders[$in{'folder'}]; if ($in{'mailforward'} ne '') { @mailforward = split(/\0/, $in{'mailforward'}); @mails = &mailbox_list_mails( $mailforward[0], $mailforward[@mailforward-1], $folder); $mail = $mails[$mailforward[0]]; } else { @mails = &mailbox_list_mails($in{'idx'}, $in{'idx'}, $folder); $mail = $mails[$in{'idx'}]; } if ($in{'delete'}) { # Just delete the email &lock_folder($folder); &mailbox_delete_mail($folder, $mail); &unlock_folder($folder); &redirect("index.cgi?folder=$in{'folder'}"); exit; } elsif ($in{'mark1'} || $in{'mark2'}) { # Just mark the message dbmopen(%read, "$user_module_config_directory/read", 0600); $mode = $in{'mark1'} ? $in{'mode1'} : $in{'mode2'}; if ($mode) { $read{$mail->{'header'}->{'message-id'}} = $mode; } else { delete($read{$mail->{'header'}->{'message-id'}}); } $s = int((@mails - $in{'idx'} - 1) / $userconfig{'perpage'}) * $userconfig{'perpage'}; &redirect("index.cgi?start=$s&folder=$in{'folder'}"); 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'}) { $to = $mail->{'header'}->{'to'}; $from = $mail->{'header'}->{'from'}; $cc = $mail->{'header'}->{'cc'}; $ouser = $1 if ($from =~ /^(\S+)\@/); } else { if (!$in{'forward'} && !@mailforward) { $to = $mail->{'header'}->{'reply-to'}; $to = $mail->{'header'}->{'from'} if (!$to); } if ($in{'rall'}) { $cc = $mail->{'header'}->{'to'}; $cc .= ", ".$mail->{'header'}->{'cc'} if ($mail->{'header'}->{'cc'}); } } $subject = $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)); foreach $a (@attach) { if ($a->{'type'} eq 'text/plain') { $body = $a; if ($in{'enew'}) { $quote = $body->{'data'}; } else { foreach $l (&wrap_lines($body->{'data'}, 70)) { $quote .= "> $l\n"; } } last; } } $quote = &decode_mimewords($mail->{'header'}->{'from'}). " wrote ..\n".$quote if ($quote && !$in{'enew'}); 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'}); mailbox/delete_mail.cgi 0100755 0005671 0000012 00000003765 07526061144 015145 0 ustar jcameron wheel #!/usr/local/bin/perl # delete_mail.cgi # Delete 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); $s = int((@mail - $delete[0] - 1) / $userconfig{'perpage'}) * $userconfig{'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) { 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{'forward'}) { # Forwarding selected mails .. redirect &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 || &error($text{'delete_enone'}); $gconfig{'logfiles'} = 0; @mail = &mailbox_list_mails($delete[0], $delete[@delete-1], $folder); foreach $d (@delete) { push(@delmail, $mail[$d]); } &lock_folder($folder); &mailbox_delete_mail($folder, @delmail); &unlock_folder($folder); &redirect("index.cgi?folder=$in{'folder'}"); } mailbox/detach.cgi 0100755 0005671 0000012 00000004616 07516711554 014133 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 "Content-type: $attach->{'type'}\n\n"; if ($attach->{'type'} =~ /^text\/html/i) { print &filter_javascript($attach->{'data'}); } else { print $attach->{'data'}; } } 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; } } @attach = ( { 'headers' => [ [ 'Content-Type', 'text/plain' ], [ 'Content-Transfer-Encoding', '7bit' ] ], 'data' => $in{'body'} } ); $bodyattach = $attach[0]; } foreach $i (0 .. 5) { # Add uploaded attachment next if (!$in{"attach$i"}); 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' ] ] }); $atotal += length($in{"attach${i}"}); } foreach $i (0 .. 2) { # Add server-side attachment next if (!$in{"file$i"} || !$config{'server_attach'}); -r $in{"file$i"} || &error(&text('send_efile', $in{"file$i"})); 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' ] ] }); $atotal += length($data); } @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 $f (@fwd) { push(@attach, $fwdmail->{'attach'}->[$f]); $atotal += length($fwdmail->{'attach'}->[$f]->{'data'}); } } @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 $key; if ($in{'crypt'} == -1) { # Find the key for the To: address local ($to) = &address_parts($in{'to'}); foreach $k (@keys) { $key = $k if ($k->{'email'} eq $to); } &error(&text('send_ekey', $to)) if (!$key); } else { $key = $keys[$in{'crypt'}]; } local $temp = &tempname(); &send_mail($mail, $temp); local ($tempdata, $buf); open(TEMP, $temp); local $dummy =
$rv")); # Put into new attachments format $mail->{'headers'} = [ ( grep { lc($_->[0]) ne 'content-type' } @{$mail->{'headers'}} ), [ 'Content-Type', 'multipart/encrypted; protocol="application/pgp-encrypted"' ] ]; $mail->{'attach'} = [ { 'headers' => [ [ 'Content-Transfer-Encoding', '7bit' ], [ 'Content-Type', 'application/pgp-encrypted'] ], 'data' => "Version: 1\n" }, { 'headers' => [ [ 'Content-Transfer-Encoding', '7bit' ], [ 'Content-Type', 'application/octet-stream' ] ], 'data' => $crypted } ]; } # Check for text-only email local $textonly = $userconfig{'no_mime'} && @{$mail->{'attach'}} == 1 && $mail->{'attach'}->[0] eq $bodyattach; if ($in{'draft'}) { # Save in the drafts folder ($dfolder) = grep { $_->{'drafts'} } @folders; &lock_folder($dfolder); if ($in{'enew'} && $folder eq $dfolder) { # Update existing draft mail @oldmail = &mailbox_list_mails($in{'idx'}, $in{'idx'}, $dfolder); $oldmail = $oldmail[$in{'idx'}]; &mailbox_modify_mail($oldmail, $mail, $dfolder, $textonly); } else { # Save as a new draft &write_mail_folder($mail, $dfolder, $textonly); } &unlock_folder($dfolder); } else { # Send it off and optionally save in sent mail &send_mail($mail, undef, $textonly); if ($userconfig{'save_sent'}) { local ($sfolder) = grep { $_->{'sent'} } @folders; &lock_folder($sfolder); &write_mail_folder($mail, $sfolder, $textonly) if ($sfolder); &unlock_folder($sfolder); } } &header($text{'send_title'}, ""); print "
\n"; print "
",&text($in{'draft'} ? 'send_draft' : 'send_ok', "".&html_escape($in{'to'}).""),"
\n"; print "
\n"; if ($in{'idx'} ne '') { &footer("view_mail.cgi?idx=$in{'idx'}&folder=$in{'folder'}", $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; } mailbox/ulang/ 0040775 0005671 0000012 00000000000 07537401253 013313 5 ustar jcameron wheel mailbox/ulang/en 0100664 0005671 0000012 00000011020 07537246514 013636 0 ustar jcameron wheel send_efile=Attached file $1 is not readable or does not exist view_gnupg=GnuPG signature verification view_gnupg_0=Signature by $1 is valid. view_gnupg_1=Signature by $1 is valid, but trust chain could not be established. view_gnupg_2=Signature by $1 is NOT valid. view_gnupg_3=Key ID $1 is not in your list, so signature could not be verified. view_gnupg_4=Failed to verify signature : $1 view_crypt=GnuPG mail decryption view_crypt_1=Message is encrypted, but GnuPG support is not installed. view_crypt_2=Failed to decrypt message : $1 view_crypt_3=Mail was successfully decrypted. view_recv=Fetch key ID $1 from keyserver. view_folder=Return to mailbox mail_sign=Sign with GnuPG key: mail_nosign=<Don't sign> mail_crypt=GnuPG encrypt for: mail_nocrypt=<Don't encrypt> mail_samecrypt=<Key from To: address> mail_addresses=Manage Address Book mail_none=There are no messages in folder $1 mail_pos=Messages $1 to $2 of $3 in folder $4 mail_fchange=Change mail_move=Move to: mail_return=mailbox mail_folders=Manage Folders mail_err=An error occurred listing mail in this folder : $1 mail_loginheader=POP3 server login mail_logindesc=You must enter a username and password to access mail
in your inbox on the mail server $1. mail_loginuser=Username mail_loginpass=Password mail_login=Login mail_reset=Clear 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. 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 reply_spell=Check for spelling errors? reply_draft=Save as Draft folder_inbox=Inbox folder_sent=Sent mail folder_drafts=Drafts 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 :
- 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 your inbox on the mail server $1. mail_loginuser=Username mail_loginpass=Password mail_login=Login mail_reset=Clear form 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. 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 reply_spell=Check for spelling errors? reply_draft=Save as Draft folder_inbox=Inbox folder_sent=Sent mail folder_drafts=Drafts 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 :
- 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
\n"; @rv = &mailbox_search_mail($in{'field'}, $in{'match'}, $folder); print "
",&text($in{'field'} =~ /^\!/ ? 'search_results3' : 'search_results2', scalar(@rv), "$in{'match'}"),"
\n"; if (@rv) { print "
\n"; } else { print "$text{'search_none'}
\n"; } print "
\n"; &footer("index.cgi?folder=$in{'folder'}", $text{'mail_return'}); mailbox/config-generic-linux 0100664 0005671 0000012 00000000365 07533271322 016143 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/lib/sendmail server_attach=1 mail_style=0 mail_file=mbox mail_dir_qmail=Maildir from_map=/etc/mail/generics index_min=1000000 mailbox/uconfig.info 0100664 0005671 0000012 00000001470 07537365510 014520 0 ustar jcameron wheel perpage=Mail messages to display per page,0 wrap_width=Width to wrap mail messages at,0 top_buttons=Show buttons at top for,1,2-Mailboxes and mails,1-Mailboxes only,0-Never show_to=Show To: address in mailboxes?,1,1-Yes,0-No no_mime=Don't MIME encode messages if text only?,1,1-Yes,0-No mailbox_dir=Mailboxes directory under home directory,0 mailbox_recur=Treat mailbox subdirectories as,1,1-Folders,0-Subdirectories save_sent=Save sent mail,1,1-Yes,0-No auto_mark=Automatically mark read messages,1,1-Yes,0-No default_folder=Default folder file,3,Inbox thumbnails=Show image attachments as thumbnails
(Requires cjpeg, djpeg and PNM library commands),1,1-Yes,0-No sort_addrs=Sort address book by,1,0-Order added,1-Real name,2-Email address real_name=Include real name in From: address?,1,1-Yes,0-No mailbox/save_address.cgi 0100775 0005671 0000012 00000000727 07445335064 015346 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{'add'}) { &create_address($in{'addr'}, $in{'name'}); } else { &modify_address($in{'edit'}, $in{'addr'}, $in{'name'}); } } &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 00000003116 07533160076 016042 0 ustar jcameron wheel #!/usr/local/bin/perl # address_chooser.cgi # Display a list of entries from the address book require './mailbox-lib.pl'; &ReadParse(); &PrintHeader(); print <
| $text{'address_addr'} | \n"; print "$text{'address_name'} |
| "; $href = ""; } else { $td = " | "; $href = ""; } print $td,$href,$a->[0]," | \n"; print $td,$href,($a->[1] ? $a->[1] : "
\n"; } print "