> Imam eno zanimivo vprasanje...je mogoce ze kdo napisu kaksno skripto za linux
>sistem, ki bi ob prispetju novega maila prebrala Zadevo oz. Subject sporocila ter ga
>posredoval preko SMS na GSM telefon.
Jaz imam skripto ki deluje nekako takole:
1. Poglej e-mail
2. Ce ne ustreza e-mailu kakega cloveka v seznamu
Ignoriraj
3. Ce je mail v html formatu, ignoriraj (to je treba popraviti
pa se nisem imel casa)
4. Poberi ven vse cudne zadeve (url, e-mail, attachment...)
5. Poberi ven vse znake ki niso vidni
6. Prilepi skupaj e-mail:subject:tekst
7. Poslji prvih 100 (to je verjetno drugace na GSM) znakov na
SMS
To deluje krasno na mojem telefoncku Nokia 51** (Cellular ONE / Digital).
Cela stvar je narejena v perlu:
Korak 2 izgleda takole:
sub checkMail{
my $text=$_[0];
my $email;
open(FILE, "/home/andy/.pmail/email") or return 0;
$email=join("|",<FILE>);
$email=~s/\n//g;
my $found=0;
$found=1 if $text=~/$email/i;
return $found;
}
Koraki 3-5 izgledajo takole:
sub cleanSMS {
my $message=$_[0];
$message =~ s/.*!DOCTYPE HTML PUBLIC.*//;
$message =~ s/.*\*\*SMS\*\*.*//;
$message =~ s/.*Content.Type..text.plain//;
$message =~ s/.*charset\=\"iso-8859-2\"//;
$message =~ s/.*Transfer-Encoding\: quoted-printable//;
$message =~ s/.*Encoding: 7bit//;
$message =~ s/--NL--/ /g;
$message =~ s/--PIPE--/\|/g;
$message =~ s/[<>]+/ /g;
$message =~ s/([a-zA-Z0-9\._-]+@[a-zA-Z0-9\._-]+\.[a-zA-Z]+)/<email>/g;
$message =~ s/(https*:\/\/[a-zA-Z0-9._\/\-?@&=~]+)/<http>/g;
$message =~ s/(ftp*:\/\/[a-zA-Z0-9._\/-]+)/<ftp>/g;
$message =~ s/[^a-zA-Z0-9<>\s]*//g;
$message =~ s/[\s\n]+/ /g;
$message =~ s/^\s+//g;
$message =~ s/\s+$//g;
$message =~ s/^(.{0,100}).*$/$1/;
return $message;
}
Ostalo pa je odvisno od sistema kjer si.
Andy
--
------------------------------------------------
|\ _,,,,--,,_ E-MAIL: [EMAIL PROTECTED]
/,`.-'`' -, \-;, ICQ: 10024539
|,4- ) ),,__ ,\ ( ;; URL: http://andy.x0.org
'---''(.'--' `-'`.)`' TEL: 301 725 5724
------------------------------------------------
