Hallo.
Ich habe mich letzte woche mit dem Thema auch zerfetzt und habe folgende
tipps/lösungen:
1) Im faxrcvd Skript. Erste Zeile = #!/usr/bin/perl ??
2) Ich hoffe das Skript hat UNIX linebreaks.
Dieses Problem habe ich gelöst mit folgenden Skripten:
Unten dran hängen meine skripte send.pl und faxrcvd. faxrcvd wird von
c2faxrecv im hylafax modus aufgerufen. send.pl sendet eine email mit
beliebigen anhang - sollte im gleichen verzeichnis wie faxrcvd sein, also
/var/spool/fax/bin .
Du solltest das faxrcvd abändern. Immoment verschickt es eine mail mit
TIFF anhang mit msn_<msn>@domain.com. Wobei der Mail Server das dann
aussortiert. Für die PDF konvertierung gibt es glaub ich tiff2pdf oder
fax2pdf. Bin mir aber nicht sicher..
Ich hoffe das hilft..
----- snip (send.pl) -----
#!/usr/bin/perl
#
# Automatisches Versenden einer E-Mail
# Programmaufruf:
# send.pl <Datei> <Empfaenger>
#
use strict;
# Folgende Variablen muessen vor Inbetriebnahme konfiguriert werden:
# ---------------------------------------------------------------------
# Pfad zum sendmail-Programm
my $MailProgram = '/usr/lib/sendmail -t';
# Absender der Automatik-Mail
#my $Mailfrom = 'automat@host.domain';
my $Mailfrom = 'Fax Server ';
# Betreff der E-Mail
#my $Subject = 'Automatische E-Mail';
my $Subject = $ARGV[2];
# Klartext-Nachricht
my $Message = "Dies ist eine automatisch generierte E-Mail\n";
$Message .= "mit einem Attachment.";
# ---------------------------------------------------------------------
############## AB HIER MUSS NICHTS MEHR GEAENDERT WERDEN ##############
my $Mailto = ''; # Empfaenger der E-Mail
my $file = ''; # zu sendende Datei
my $ext = ''; # Datei-Extension
my $fext = ''; # MIME-Typ dazu
my $buf = ''; # Dateipuffer
my $boundary = ''; # Mime-Begrenzer
die "Dateiangabe fehlt!" if ($ARGV[0] eq '');
die "Empfaengerangabe fehlt!" if ($ARGV[1] eq '');
$file = $ARGV[0];
$Mailto = $ARGV[1];
my @BoundaryChars = (0..9, 'A'..'F'); # Zeichen fuer Begrenzer
my %mime = # Mime-Typen
(
#-------------------------------------<TEXT>-----
'HTML', "text/html",
'HTM', "text/html",
'STM', "text/html",
'SHTML', "text/html",
'TXT', "text/plain",
'PREF', "text/plain",
'AIS', "text/plain",
'RTX', "text/richtext",
'TSV', "text/tab-separated-values",
'NFO', "text/warez-info",
'ETX', "text/x-setext",
'SGML', "text/x-sgml",
'SGM', "text/x-sgml",
'TALK', "text/x-speech",
'CGI', "text/plain",
'PL', "text/plain",
'C', "text/plain",
'CPP', "text/plain",
#-------------------------------------<IMAGE>----
'BMP', "image/bmp",
'COD', "image/cis-cod",
'FID', "image/fif",
'GIF', "image/gif",
'ICO', "image/ico",
'IEF', "image/ief",
'JPEG', "image/jpeg",
'JPG', "image/jpeg",
'JPE', "image/jpeg",
'PNG', "image/png",
'TIF', "image/tiff",
'TIFF', "image/tiff",
'MCF', "image/vasa",
'RAS', "image/x-cmu-raster",
'CMX', "image/x-cmx",
'PCD', "image/x-photo-cd",
'PNM', "image/x-portable-anymap",
'PBM', "image/x-portable-bitmap",
'PGM', "image/x-portable-graymap",
'PPM', "image/x-portable-pixmap",
'RGB', "image/x-rgb",
'XBM', "image/x-xbitmap",
'XPM', "image/x-xpixmap",
'XWD', "image/x-xwindowdump",
#-------------------------------------<APPS>-----
'EXE', "application/octet-stream",
'BIN', "application/octet-stream",
'DMS', "application/octet-stream",
'LHA', "application/octet-stream",
'CLASS', "application/octet-stream",
'DLL', "application/octet-stream",
'AAM', "application/x-authorware-map",
'AAS', "application/x-authorware-seg",
'AAB', "application/x-authorware-bin",
'VMD', "application/vocaltec-media-desc",
'VMF', "application/vocaltec-media-file",
'ASD', "application/astound",
'ASN', "application/astound",
'DWG', "application/autocad",
'DSP', "application/dsptype",
'DFX', "application/dsptype",
'EVY', "application/envoy",
'SPL', "application/futuresplash",
'IMD', "application/immedia",
'HQX', "application/mac-binhex40",
'CPT', "application/mac-compactpro",
'DOC', "application/msword",
'ODA', "application/oda",
'PDF', "application/pdf",
'AI', "application/postscript",
'EPS', "application/postscript",
'PS', "application/postscript",
'PPT', "application/powerpoint",
'RTF', "application/rtf",
'APM', "application/studiom",
'XAR', "application/vnd.xara",
'ANO', "application/x-annotator",
'ASP', "application/x-asap",
'CHAT', "application/x-chat",
'BCPIO', "application/x-bcpio",
'VCD', "application/x-cdlink",
'TGZ', "application/x-compressed",
'Z', "application/x-compress",
'CPIO', "application/x-cpio",
'PUZ', "application/x-crossword",
'CSH', "application/x-csh",
'DCR', "application/x-director",
'DIR', "application/x-director",
'DXR', "application/x-director",
'FGD', "application/x-director",
'DVI', "application/x-dvi",
'LIC', "application/x-enterlicense",
'EPB', "application/x-epublisher",
'FAXMGR', "application/x-fax-manager",
'FAXMGRJOB', "application/x-fax-manager-job",
'FM', "application/x-framemaker",
'FRAME', "application/x-framemaker",
'FRM', "application/x-framemaker",
'MAKER', "application/x-framemaker",
'GTAR', "application/x-gtar",
'GZ', "application/x-gzip",
'HDF', "application/x-hdf",
'INS', "application/x-insight",
'INSIGHT', "application/x-insight",
'INST', "application/x-install",
'IV', "application/x-inventor",
'JS', "application/x-javascript",
'SKP', "application/x-koan",
'SKD', "application/x-koan",
'SKT', "application/x-koan",
'SKM', "application/x-koan",
'LATEX', "application/x-latex",
'LICMGR', "application/x-licensemgr",
'MAIL', "application/x-mailfolder",
'MIF', "application/x-mailfolder",
'NC', "application/x-netcdf",
'CDF', "application/x-netcdf",
'SDS', "application/x-onlive",
'SGI-LPR', "application/x-sgi-lpr",
'SH', "application/x-sh",
'SHAR', "application/x-shar",
'SWF', "application/x-shockwave-flash",
'SPRITE', "application/x-sprite",
'SPR', "application/x-sprite",
'SIT', "application/x-stuffit",
'SV4CPIO', "application/x-sv4cpio",
'SV4CRC', "application/x-sv4crc",
'TAR', "application/x-tar",
'TARDIST', "application/x-tardist",
'TCL', "application/x-tcl",
'TEX', "application/x-tex",
'TEXINFO', "application/x-texinfo",
'TEXI', "application/x-texinfo",
'T', "application/x-troff",
'TR', "application/x-troff",
'TROFF', "application/x-troff",
'MAN', "application/x-troff-man",
'ME', "application/x-troff-me",
'MS', "application/x-troff-ms",
'TVM', "application/x-tvml",
'TVM', "application/x-tvml",
'USTAR', "application/x-ustar",
'SRC', "application/x-wais-source",
'WKZ', "application/x-wingz",
'ZIP', "application/x-zip-compressed",
'ZTARDIST', "application/x-ztardist",
#-------------------------------------<AUDIO>----
'AU', "audio/basic",
'SND', "audio/basic",
'ES', "audio/echospeech",
'MID', "audio/midi",
'KAR', "audio/midi",
'MPGA', "audio/mpeg",
'MP2', "audio/mpeg",
'TSI', "audio/tsplayer",
'VOX', "audio/voxware",
'AIF', "audio/x-aiff",
'AIFC', "audio/x-aiff",
'AIFF', "audio/x-aiff",
'MID', "audio/x-midi",
'MP3', "audio/x-mpeg",
'MP2A', "audio/x-mpeg2",
'MPA2', "audio/x-mpeg2",
'M3U', "audio/x-mpegurl",
'MP3URL', "audio/x-mpegurl",
'PAT', "audio/x-pat",
'RAM', "audio/x-pn-realaudio",
'RPM', "audio/x-pn-realaudio-plugin",
'RA', "audio/x-realaudio",
'SBK', "audio/x-sbk",
'STR', "audio/x-str",
'WAV', "audio/x-wav",
#-------------------------------------<VIDEO>----
'MPEG', "video/mpeg",
'MPG', "video/mpeg",
'MPE', "video/mpeg",
'QT', "video/quicktime",
'MOV', "video/quicktime",
'VIV', "video/vivo",
'VIVO', "video/vivo",
'MPS', "video/x-mpeg-system",
'SYS', "video/x-mpeg-system",
'MP2V', "video/x-mpeg2",
'MPV2', "video/x-mpeg2",
'AVI', "video/x-msvideo",
'MV', "video/x-sgi-movie",
'MOVIE', "video/x-sgi-movie",
#-------------------------------------<EXTRA>----
'PDB', "chemical/x-pdb",
'XYZ', "chemical/x-pdb",
'CHM', "chemical/x-cs-chemdraw",
'SMI', "chemical/x-daylight-smiles",
'SKC', "chemical/x-mdl-isis",
'MOL', "chemical/x-mdl-molfile",
'RXN', "chemical/x-mdl-rxn",
'SMD', "chemical/x-smd",
'ACC', "chemical/x-synopsys-accord",
'ICE', "x-conference/x-cooltalk",
'SVR', "x-world/x-svr",
'WRL', "x-world/x-vrml",
'VRML', "x-world/x-vrml",
'VRJ', "x-world/x-vrt",
'VRJT', "x-world/x-vrt",
);
# Begrenzer basteln
srand($$);
for (my $i = 0; $i++ < 24;)
{
$boundary .= $BoundaryChars[rand(@BoundaryChars)];
}
$boundary = "Next_Part_" . $boundary;
#--------------------------------------------------- Send attatchments etc...
open MAIL, "| $MailProgram" || die "Cannot open $MailProgram";
print MAIL "To: $Mailto\n";
print MAIL "From: $Mailfrom\n";
print MAIL "X-Mailer: Fax-to-Mail-Gateway\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Subject: $Subject\n";
print MAIL "Content-Type: multipart/mixed; boundary=\"$boundary\"\n";
print MAIL "\n";
print MAIL "This is a multi-part message in MIME format.\n";
print MAIL "--$boundary\n";
print MAIL "Content-Type: text/plain; charset=\"iso-8859-1\"\n";
print MAIL "Content-Transfer-Encoding: 8bit\n\n";
print MAIL "\n\n$Message\n";
# Attachment anhaengen
($ext) = $file =~ m/\.([^\.]*)$/;
$ext =~ tr/a-z/A-Z/;
$fext = $mime{$ext};
if ($fext && $fext =~ /^text/)
{
print MAIL "--$boundary\n";
print MAIL "Content-Type: $fext; charset=\"iso-8859-1\"; name=\"$file\"\n";
print MAIL "Content-Transfer-Encoding: 8bit\n";
print MAIL "Content-Disposition: attachment; filename=\"$file\"\n\n";
open INPUT, "$file";
print MAIL while (<INPUT>);
close INPUT;
}
else
{
print MAIL "--$boundary\n";
print MAIL "Content-Type: $fext; name=\"$file\"\n";
print MAIL "Content-Transfer-Encoding: base64\n";
print MAIL "Content-Disposition: attachment; filename=\"$file\"\n\n";
$/=0;
open INPUT, "$file" || die "Cannot open [$file].";
binmode INPUT;
while(read(INPUT, $buf, 60*57))
{
print MAIL &encode_base64($buf);
}
close INPUT;
}
# Attachment Ende
print MAIL "\n--$boundary--\n";
print MAIL "\n";
close MAIL;
sub encode_base64
{
my $res = '';
my $eol = "\n";
my $padding;
while (($_[0] =~ /(.{1,45})/gs))
{
$res .= substr(pack('u', $1), 1);
chop $res;
}
$res =~ tr|` -_|AA-Za-z0-9+/|; # translate from uuencode to base64
$padding = (3 - length($_[0]) % 3) % 3; # fix padding at the end
$res =~ s/.{$padding}$/'=' x $padding/e if $padding; # Fix the end padding
$res =~ s/(.{1,76})/$1$eol/g if (length $eol); # lines of at least 76
characters
return $res;
}
----- snip faxrcvd -----
#!/usr/bin/perl
#
# Wird verwendet um als faxrcvd Skript zu laufen um den
# einzelnen Teilnehmnern anhand der MSN die TIFF-Faxe
# via mail zukommen zu lassen.
#
# 06.10.2002 - Bastian Bense
#
# Usage:
# faxrcvd (hylafax)
# [Result Code] [CAPI Disconnect Reason] [Sender ID] [Called Number or
DDI] [Num of Pages] [File(s)]
use strict;
# Werte zuweisen
my $resultCode = $ARGV[0];
my $disconReason = $ARGV[1];
my $senderID = $ARGV[2];
my $msn = $ARGV[3];
my $pages = $ARGV[4];
my $tiffFile = $ARGV[5];
# EMail generieren und wegschicken
my $targetMail = "msn_" . $msn . "\@domain.com";
my $cmd = "./send.pl " . $tiffFile . " " . $targetMail . " 'Fax Empfangen
von " . $senderID . "'";
system $cmd;
-- /snip --
Cheers,
Bastian Bense
--
ulrichbense.de/kundenservice Ulrich Bense GmbH
Borkener Strasse 134a 46853 Coesfeld
Fax: +49 2541 918-131 Tel: +49 2541 918-155
Bastian Bense EMail: bb@bense.de
"If Windows is the solution, can we please have the problem back?"
SPING-WEI wrote:
Seit Fr. ist das Problem ja schon ganz schön gewälzt worden.
Schon mal Vielen Dank.
Also zu den Nachfragen
Die Scripte sind von der oben angegebenen URL und es sind auch Scripte.
Der Perl Interpreter ist auf dem System installiert (Paket perl
5.6.1-159).
Die Einstellung des Interpreters (disabled suid bit ) wurde wie
Orginalinst. beibehalten.
Die Rechte der Scripte wurde wie in der Beschreibung Hylafax dem Orginal
faxrcvd angepasst also user "uucp" group "uucp"
Lesen für alle, Schreiben user, Ausführen alle.
Die Vermutung Perl nicht inst. hatte ich auch schon da ich ja beim
Ausführen auch als root die Meldung "bad interpreter bekomme" aber perl
ist ja inst. (oder fehlen da noch Pakete)
oder hat es etwas mit suid bit zu tun?
