sms upozorneni na mobil (qmail + vpopmail)

[Petr Vileta]

Pavel Lisý wrote:
> Milan Suchánek píše v Út 06. 12. 2005 v 16:32 +0100:
>> Hello Jindra,
>>
>> Tuesday, December 6, 2005, 1:46:56 PM, you wrote:
>>
>>> ze bych byl jediny, kdo resi tenhle problm? :-(
>>
No ja pouzivam tohle a vola se to z pravidla v .procmailrc asi takhle

---procmailrc pravidla---
# kdyz to bylo echo na mobil, tak zahodit
:0
* ^X-Loop: 00420724111111 na sms.eurotel.cz
/dev/null

# oznameni mailu na mobil
:0 ch
* ^.*
| /usr/local/bin/smsecho.pl 00420724111111 na sms.eurotel.cz
---procmailrc pravidla---

---mail na SMS skript---
#!/usr/bin/perl
use CGI qw(:cgi);
use strict;

my ($jmeno,$from,$subj, na radky,$cnt);
my $mailprog = '/usr/sbin/sendmail';
$jmeno=$subj=$from='';
$sms=$ARGV[0];
@radky=split(/\n/,$sms);
$cnt = 0;
while($cnt < $#radky and length($from)==0)
    {
    my $radka=$radky[$cnt];
    if(substr($radka,0,6) eq 'From: ')
        {
        $from=$jmeno=substr($radka,6);
        $from=~s/^.*(<.+?>).*$/$1/;
        $jmeno=~s/^(.*)?<.+$/$1/;
        $jmeno=~s/\"//g;
        $jmeno=~s/^\s*(.*?)\s*$/$1/;
        }
    elsif(substr($radka,0,9) eq 'Subject: ')
        {
        $subj=substr($radka,9);
        }
    $cnt++;
    }
$subj='(neni)' if(length($subj)==0);
open(MAIL,"|$mailprog -t");
print MAIL  "From: $from\n",
            "To: $sms\n",
            "X-Loop: $sms\n",
            "Content-Transfer-Encoding: 8bit\n\n";
$txt="$jmeno\n" if(length($jmeno)>0);
$txt.="Predmet: $subj";
$txt=substr($txt,0,65) if($sms=~m/eurotel/);
$txt=substr($txt,0,120) if($sms=~m/oskar/);
print MAIL "$txt\n\n";
close MAIL;
---mail na SMS skript---

-- 
Petr

Skype: callto://fidokomik

Na mail uvedeny v headeru zpravy nema cenu nic posilat, konci to v PR*
:-) Odpovidejte na petr na practisoft cz