Hier mein Script. Entspricht im großen und ganzen dem, was hier gepostet wurde. SUBSCRIBE habe ich auskommentiert, da bei deiner BIN nicht implementiert.
Sendmail funktioniert auch ohne den Bildanhang ...]* nicht.
>D 40
ssize=25
SB=8192
res=0
cnt=0
tmp=0
pr=0
w=0
h=0
bs=0
shot=0
tstr=""
fnam=""
fil="LEER"
df=0
>B
; initialisiere cam mit QVGA (wc(0 4))
res=wc(0 4)
; hole Bildgröße horizontal und vertikal in Pixeln
w=wc(3)
h=wc(4)
; erzeuge Bildordner falls nicht vorhanden
res=fo("/PICS" r)
if res<0
then
fmd("/PICS")
endif
>BS
;+>subscribe shot, %topic%/cmnd/EVENT
>S
if wific>0
then
; starte stream wenn wifi verbunden
res=wc(5 1)
endif
if bs>0
or shot==1
then
; Bild speichern in RAM Buffer 1
res=wc(1 1)
; Datei öffnen, Name ist gleich Zeitstempel
; Dateiname darf aber keinen Doppelpunkt enhalten
; deshalb diese umständliche Zusammensetzung
dp2.0
;
fil=st(tstamp : 1)+"-"+s(mins)+"-"+s(secs)
res=fo("/PICS/"+st(tstamp : 1)+"-"+s(mins)+"-"+s(secs)+".jpg" w)
if res>=0
then
; RAM Buffer speichern
pr=fwp(1 res)
fc(res)
endif
=>sendmail [smtp.gmail.com:465:mymail@gmail.com:mypass:mymail@gmail.com:empfaenger@gmx.de:%fil%]*
bs=0
shot=0
endif
>F
; lösche alle Bilder
if df>0
then
df=0
=#delfolder("PICS")
endif
; lösche den Ordner Inhalt
#delfolder(tstr)
pr=fo("/"+tstr r)
for cnt 1 1000 1
tmp=fr(fnam pr)
if tmp>0
then
fd("/"+tstr+"/"+fnam)
else
break
endif
next
fc(pr)
>m
$1
#
>W
; zeige einige Werte im WEBUI
Filesystem frei{m}%3(fsi(1)/1000)% MB
bu(bs "ok" "Bild speichern")
bu(df "ok" "Bildordner leeren")
; zeige stream auf WEBUI
$<br>
$<img src="http://%lip%:81/stream" style="width:%w%px;height:%h%px">
$<br><center>webcam stream
$<br>