mailboxes/config_info.pl

   1 require './mailboxes-lib.pl';
   2
   3 sub show_userIgnoreList
   4 {
   5   my($ig_usr) = shift(@_) || '';
   6   $ig_usr =~ s/\t/\n/g;
   7   my($preta)  = '<TEXTAREA NAME="ignore_users" COLS="35" ROWS="4">';
   8   my($postta) = '</TEXTAREA>';
   9
  10   return
  11       $preta .
  12       $ig_usr .
  13       $postta .
  14       '&nbsp;' .
  15       &user_chooser_button("ignore_users", 1);
  16 }
  17
  18 sub parse_userIgnoreList
  19 {
  20   $in{'ignore_users'} =~ s/\r?\n/\t/g;
  21   return $main::in{'ignore_users'};
  22 }