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.

sub main_spambox() {
  print colored ['black on_white'], "\nSpam inbox\n";
  print color 'reset';
  opendir(INBOXDIR, "$mail_spambox_folder") || print "can't open spam inbox directory: $!\n";
  while (my @mail_text_file=readdir(INBOXDIR)) {
    open(TEMPFILE, ">$mail_spambox_data");
    my $i;
    for ($i=$i+2; $i<999; $i++) {
      $j=$i-1;
      if (!($mail_text_file[2])) {
        print "\nSpam inbox is empty.\n\n";
        &main();
      } else {
        print TEMPFILE "$j/$mail_text_file[$i]\n"; 
        my ($time, $date, $month, $year, $msgnum)=split('-',$mail_text_file[$i]);
        printf("\n%s) %-4s  %-3s %-4s %-4s\n", $j, $time, $date, $month, $year);
      }
      if (!($mail_text_file[$i+1])) {
        last;
      }
      next;
    }
    close(TEMPFILE);
  }
  closedir(INBOXDIR);
  print "\nWhich option would you like? ([r]ead message, [d]elete a message, delete [a]ll messages [c]ancel) [cancel] ";
  chomp($inbox_messages_option=);
  if ($inbox_messages_option eq "r") {
    print "\nWhich message to read? ";
    chomp($mail_message_to_read=);
    open(TEMPFILE, "$mail_spambox_data");
    @mail_read_temp_lines=;
    ($mail_read_message_number, $mail_get_message_number)=split('/',$mail_read_temp_lines[$mail_message_to_read-1]);
    close(TEMPFILE);
    if ($mail_message_to_read ne $mail_read_message_number) {
      print "$0: could not read message $mail_message_to_read: no such message\n";
    } else {
      open(MAILFILE, "<$mail_spambox_folder/$mail_get_message_number");
      @mail_message_lines=;
      close(MAILFILE);
      print @mail_message_lines;
    }
  } elsif ($inbox_messages_option eq "d") {
    print "\nWhich message to delete? ";
    chomp($mail_message_to_read=);
    open(TEMPFILE, "<$mail_spambox_data");
    @mail_read_temp_lines=;
     ($mail_read_message_number, $mail_get_message_number)=split('/',$mail_read_temp_lines[$mail_message_to_read-1]);
    close(TEMPFILE);
    if ($mail_message_to_read ne $mail_read_message_number) {
       print "$0: could not delete message $mail_message_to_read: nosuch message.\n";
    } else {
      chomp($mail_delete_file="$mail_spambox_folder/$mail_get_message_number");
      unlink $mail_delete_file;
      print "$0: message $mail_read_message_number deleted.\n";
    }
  } elsif ($inbox_messages_option eq "a") {
     print "\nWARNING: We are now going to delete ALL messages in thespam inbox folder ([d]elete, [c]ancel) [cancel] ";
    chomp($mail_message_to_read=);
    if ($mail_message_to_read eq "d") {
      open(TEMPFILE, "<$mail_spambox_data");
      @mail_read_temp_lines=;
      close(TEMPFILE);
      if (!($mail_read_temp_lines[0])) {
        print "$0: there's no messages to delete in the spam inbox folder.\n";
      } else {
        my $delete_whole_inbox="$mail_spambox_folder/*";
        `rm $delete_whole_inbox`;
        unlink $mail_inbox_data;
        print "$0: all messages from $mail_spambox_folder were deleted.\n";
      }
    }
  } else {
    print "$0: returning to main menu.\n";
  }
  &main();
}

Go back to previous page.