Message from cellphone is seen as: From: “=?ISO-8859-1?Q?jantjesmit1@xs4all.nl?=”
where only jantjesmit1@xs4all.nl is allowed to be used from the script
# confirm that the message is from somebody that is allowed to post to
# the blog
my $from = $header->get( “From”, 0 );
$from =~ s/^(?:\”?.*?\”?\s*\]+)\>?.*?$/$1/;
chop $from;
my %is_authAddress;
for( @authAddress ) { $is_authAddress{$_} = 1; }
exit 0 if( !$is_authAddress{$from} );
From this script I understand that now the whole line is seen as FROM address. in 99% of the cases this works fine but not with my Sony/Ericsson T610
Also: from the subject the [password] is chopped, but ?= at the end must be removed also including the first ?ISO stuff.
Subject: =?ISO-8859-1?Q?[password]?=
Here password is used to see if you are allowed to use it rest must be removed.
My knowledge about scripting / perl scripting is too little to understand how to chop if exist. Any help is appreciated.
Please notice that when using ie. Thunderbird for E-mail or Eudora or a webbased mailapplication this script is working.