Autor: Adam Płaszczyca (_555_at_irc.pl)
Data: Thu 18 Jun 1998 - 13:41:14 MET DST
Witam!
Zakomórkowałem się, a skoro linuksiarze mogą sobie zrobić przesyłanie
pierwszych 160 znaków z każdej przychodzącej pocztą wiadomości
postanowiłem zrobić to samo (a co, OS/2 gorszy? ;>> ).
Programik jest w rexxiu, należy go podać w PMMailu w accounts/utilities
settings zakładka rexx, pozycja message recive exit. W programie należy
zmienić +48sssaabbcc na właściwy numer telefonu (można również zmienić
adres bramki).
Pmmail musi być ustawiony na ściąganie poczty co jakiś czas (bo wtedy
będzie pocztą obrywał).
W planach mam napisanie skryptu, który będzie chodził razem z OS/2
sendmailem i wtedy będzie jeszcze ładniej :-)
A oto programik:
/* forward do bramki SMS dla PMMaila */
parse arg mesg
sms='sms.msg'
smsaddr='<+48sssaabbcc_at_text.plusgsm.pl>'
rc=STREAM(sms,'c','open write')
if STREAM(mesg, 'c', 'query exists')='' then exit
dla=''
do while lines(mesg)\=0
linia=LINEIN(mesg)
PARSE UPPER VALUE(linia) WITH cmd
IF POS('FROM:', cmd)\=0 then
do
from=SUBSTR(linia,7)
p1=POS('<',from)
p2=POS('>',from)
if p2=0 then p2=length(from)
if p1=0 then p1=1
from=substr(from,p1,p2)
rc=LINEOUT(sms, 'FROM: 'from)
iz=LENGTH('FROM: 'from)
rc=LINEOUT(sms, 'TO: 'smsaddr)
iz=iz+LENGTH('TO: 'smsaddr)
end
IF POS('TO:', STRIP(cmd))=1 then dla=INSERT(dla,STRIP(cmd)' ')
if POS('SUBJECT', cmd)\=0 then
do
rc=LINEOUT(sms, linia)
iz=iz+LENGTH(linia)
do while LINES(mesg) & iz<=160
linia=LINEIN(mesg)
PARSE UPPER VALUE(linia) WITH clinia
if POS('APPARENTLY-TO:', clinia)=0 then
do
rc=LINEOUT(sms, linia)
iz=iz+LENGTH(linia)
end
end /* do */
end /* do */
end /* do */
rc=STREAM(sms,'c','close')
if POS('TEXT.PLUSGSM.PL', dla)=0 then
do
'@ECHO OFF'
'SENDMAIL -a' sms '-t'
end
'del' sms
return
Miłej zabawy :-))
--
___________ (R)
/_ _______ Adam Płaszczyca (601) 360969
___/ /_ ___ ul. Wilanowska 10/36, 00-422 Warszawa
_______/ /_ IRC: _555, http: chwilowo brak
___________/ mail: _555_at_irc.pl
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:17:23 MET DST