------- .forward --------------
cbm, "|/home/cbm/MailDigest.pl"
-------------------------------

------- MailDigest.pl --------------
#!/usr/local/bin/perl

# MailDigest filter for delivering some message headers to 
# mobile phones by SMS and an appropriate internet gateway.
# Please keep the trafic low to keep the service available :)
# by Carlos Baquero, cbm@di.uminho.pt 

while (<>) {
	if( /^To:.*HPLX.*/ ) {exit;}	
	if( /^To:.*robots.*/ ) {exit;}	
	if( /^To:.*PalmPilotGear.*/ ) {exit;}	
	if( /^To:.*ilu.*/ ) {exit;}	
	if( /^To:.*gil.*/ ) {exit;}	
	if( /^To:.*linux.*/ ) {exit;}	
	if( /^To:.*mjolner.*/ ) {exit;}	
	if( /^To:.*8086.*/ ) {exit;}	
	if( /^Cc:.*8086.*/ ) {exit;}	
	if( /^From:.*cbm.*/ ) {exit;}	
	if( /^Cc:.*ilu.*/ ) {exit;}	
	if( /^To:.*addr\.com.*/ ) {exit;}	

	if( /^From:.*/ ) { s/^From:/De /; $l1=$_; }
	if( /^To:.*/ ) { s/^To:/Para /; $l2=$_; }
	if( /^Subject:.*/ ) { s/^Subject:/Tema /; $l3=$_; }
}
open (MAIL, "|mail 0931xxxxxx\@sms.telecel.pt");
print MAIL $l1; print MAIL $l2; print MAIL $l3;
close(MAIL);
--------------------------------