Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Filter via Perl 1
- Thread starter unixkid
- Start date
-
1
- #2
in your .forward file.
[tt]| cat >> /opt/newmail/$USER.mail[/tt]
Why do you want to do this by the way? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
[tt]| cat >> /opt/newmail/$USER.mail[/tt]
Why do you want to do this by the way? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
- Thread starter
- #3
Possible yes -- a Perl script in that command line instead of [tt]cat[/tt] would work and, in the script, you could filter the mail message in any way you want.
What are you trying to achive here? Do you want to stop your users receiving email with attachments or .....? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
What are you trying to achive here? Do you want to stop your users receiving email with attachments or .....? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
- Thread starter
- #5
Ok, here's an example to start you thinking.
[tt]
#!/usr/bin/perl -w
use strict;
my $attachment_file = shift
or die "I need the attachment filename on the command line please\n";
while(<>){
next unless /Start of attachment/;
open(F,$attachment_file) || die "can't write file $!\n";
while(<>){
last if /End of attachment/;
print F $_;
}
close(F);
}
[/tt]
The logic of the script runs like this:
Read through the mail until I find the string that marks the begininning of an attachment.
Open a file to store the attachment.
Print each line from the mail into the attachment file, until I find the string that marks the end of an attachment.
Close the attachment file.
You with me? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
[tt]
#!/usr/bin/perl -w
use strict;
my $attachment_file = shift
or die "I need the attachment filename on the command line please\n";
while(<>){
next unless /Start of attachment/;
open(F,$attachment_file) || die "can't write file $!\n";
while(<>){
last if /End of attachment/;
print F $_;
}
close(F);
}
[/tt]
The logic of the script runs like this:
Read through the mail until I find the string that marks the begininning of an attachment.
Open a file to store the attachment.
Print each line from the mail into the attachment file, until I find the string that marks the end of an attachment.
Close the attachment file.
You with me? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.
- Thread starter
- #7
- Status