We are now viewing a plain text file inside of a HTML-document. Just for making things easy for you as a reader. Back to previous page.
open(MAILFILE, "<$mail_inbox_folder/$mail_get_message_number");
@mail_message_lines=;
close(MAILFILE);
$i=0;
while(1) {
$i++;
if ($mail_message_lines[$i]=~/To:*\@*\.*/) {
print "$mail_message_lines[$i+1]";
print "$mail_message_lines[$i+2]";
print "$mail_message_lines[$i+3]\n";
$mail_reply_to=substr($mail_message_lines[$i+1], 6);
chomp($mail_reply_subject=substr($mail_message_lines[$i+2],
9));
}
if ($mail_message_lines[$i] eq "\n") {
$mail_message_lines[$i];
while(1) {
$i++;
print $mail_message_lines[$i];
last if $mail_message_lines[$i] eq "";
}
End of file /src/snapshots/inlook-0.8.14.txt. (View/download the original file.)