заново отправить почту из ящика

Рисуем малюсенький скриптовый перл (в смысле, перловый скрипт)

resend.pl:

=========Start==============

#!/usr/bin/perl



$users_email = 'one_user@domain.my';

$first_time = 1;



while( <> ) {

  chomp;

  if( /^From\s(\S+)\s*$/ ) {

    my $sender = $1;

    close MAILER if( !$first_time );

    open( MAILER, "| /usr/sbin/sendmail -f $sender $users_email" ) ||

    die "open: $!";

    $first_time = 0;

  }

  print MAILER "$_\n";

}

=========The End=============

Использовать:

./script.pl < /var/spool/mail/one_user

Стартовать от имени trusted user.

Перед запуском проверить!

Спасибо биг!