View plain text file

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.)

Go back to previous page.


Copyright (C) 2006, 2009, 2010 Stian Skjæveland.
Verbatim copying and redistribution of this entire page are permitted provided thisnotice is preserved.

Powered by Perl Valid HTML 4.01!