Hallo Liste.
Ich spiele hier gerade an einem Script herum um mir eingegengene Anrufe
als Attachment per Mail zustellen zu lassen. Zur zeit befindet sich das
alles im Rohbau. Es lie�e sich sicher auch �ber nur ein script l�sen, aber
so konnte ich die Fehler, die drin waren offensichtlich machen.Jetzt scheint es
aber noch ein kleines Problemchen zu geben.
hier das erste Script: ( was es tut ist eigentlich schnell erkannt )
------------------------------------------------------------------
#!/bin/bin/perl
#
#
$WORKDIR = "/var/spool/vbox/holger/incoming";
chdir ("$WORKDIR");
for $FILE (`ls`)
{
open (MAILFILE ,">../MAILFILE.TXT");
##################################
# Zerlegen des Filenamen
##################################
$TEST=$FILE;
$YEA=substr ($TEST,0,2);
$MON=substr ($TEST,2,2);
$DAY=substr ($TEST,4,2);
$HOU=substr ($TEST,6,2);
$MIN=substr ($TEST,8,2);
$SEC=substr ($TEST,10,2);
$CPN=substr ($TEST,13);
chop $CPN;
chop $FILE;
$SUBJECT = "Anruf am:".$DAY.".".$MON.".".$YEA." um ".$HOU.":".$MIN.":".$SEC."
von:".$CPN;
print MAILFILE $SUBJECT."\n";
close (MAILFILE);
###############################################
# Convert to WAV
###############################################
@args = ("/usr/bin/mkwav ","$FILE ","6");
system ("@args");
$ATTACHFILE="../".$FILE.".wav";
###############################################
# send via MUTT
###############################################
@args = ("mutt ","holger\@servya3.ecl-neuss.de ","-a \"$ATTACHFILE\" ","-s
\"$SUBJECT\""," <../MAILFILE.TXT","\n");
system ("@args");
unlink ("../MAILFILE.TXT");
}
------------------------------------------------------------------
Jeder von Euch, der des wirklichen Programmieren m�chtig ist, schl�gt jetzt
wahrscheinlich
die H�nde �ber dem Kopf zusammen :|>
zum Umwandeln der vbox-files in das wav-format habe ich das auplay script ein wenig
modifiziert; dass klappt soweit auch ganz gut.
------------------------------------------------------------------
#!/bin/sh
#
#
FILENAME=$1
VOLUME=$2
OUTFILE="../"$1".wav"
rmdtopvf < ${FILENAME} |\
/usr/bin/pvfamp -A${VOLUME} |
/usr/bin/pvfspeed -s 7200 |
/usr/bin/pvftowav > ${OUTFILE}
------------------------------------------------------------------
Als Frontend l�uft zur Zeit noch Outlook auf $innlo$95. Das lief bisher auch ganz
zufriedenstellen
aber seit meinen Tests mit mutt bleibt das Teil beim herunterladen h�ngen. Ich habe
auch sonst
etliche Mails mit Attachment immer ohne Probleme laden und lesen (und die Attachments
speichern )
k�nnen, aber wie gesagt, seit meinen Tests mit Mutt klemmts
Hat einer von euch �ne Idee, wo ich suchen mu�. Beschr�nkung der Attachment-Gr��e ?
oder sonst irgend ein Unsinn, wiee drei angeh�ngte Nullen ??
Dankbar f�r jeden Hinweis
MfG Holger Lotz
-------------------------------------------------------------------------------
Phone : +49 (2131) 36259 | Fax : +49 (2131) 737630
Mobile : +49 (172) 668 25 02 | email : [EMAIL PROTECTED]
-------------------------------------------------------------------------------
http://www.edv-consulting.net
--
Um aus der Liste ausgetragen zu werden, eine Mail an [EMAIL PROTECTED]
schicken, mit dem Text: unsubscribe suse-linux
