Hi,
ich hab den PDF-Printer nach Anleitung installiert... Nur leider mag er nicht. Es gibt überhaupt keine Ausgabedatei. Weiß aber als Linux-Neuling nicht wirklich woran es liegt. Ich poste hier halt mal alle Config-Dateien:
pdfprint.pl
ich hab den PDF-Printer nach Anleitung installiert... Nur leider mag er nicht. Es gibt überhaupt keine Ausgabedatei. Weiß aber als Linux-Neuling nicht wirklich woran es liegt. Ich poste hier halt mal alle Config-Dateien:
pdfprint.pl
Code:
#!/usr/bin/perl
# Samba/Ghostscript/Unix PDF Services -- Scriptsammlung von Mattias Schlenker,
# webweaver.de zur Einrichtung eines PDF-Printservices für Windows-Clients
#==============================================================================#
# #
# pdfprint.pl v0.9.1 #
# (c) Mattias Schlenker #
# #
# Konvertiert eine PS-Datei nach PDF und benennt diese Datei nach Benutzer und #
# Uhrzeit. #
# #
# Bekommt übergeben: Dateiname und Username #
# #
#==============================================================================#
#
# Falls Gruppe und Zugriffsrechte gesetzt werden sollen, muß der entsprechende
# System-Befehl unten aktiviert werden.
#
#
# Bugs:
#
# Doppelpunkt im Dateinamen ist nicht zulässig, wenn von MacOS auf den
# Samba-Server zugegriffen wird, da der Doppelpunkt hier Pfadtrenner ist.
#
# Auf manchen Unices enthält der Suchpfad bei von nobody geöffneten Shells
# gs nicht. Hier muß explizit ein Pfad mit angegeben werden. Ein Beispiel
# findet sich unten im Quellcode.
#
# Änderungen: Führende Null bei einstelligen Tagen wird erzwungen
# Bitte Pfadangabe zum Basisverzeichnis des PDF-Services anpassen!
$pdf_base = "/home/public/PDF";
# Temporäres Verzeichnis, in dem die empfangenen Druckdateien
# zwischengespeichert werden.
$tmp_dir = "/tmp";
@months = ("01_Januar", "02_Februar", "03_Maerz", "04_April", "05_Mai",
"06_Juni", "07_Juli", "08_August", "09_September", "10_Oktober",
"11_November", "12_Dezember");
($s,$m,$h,$day,$month,$year,$wtag,$jtag,$isds) = localtime(time);
$mon = $months[$month];
$year += 1900;
$day = sprintf "%02d", $day;
$m = sprintf "%02d", $m;
$s = sprintf "%02d", $s;
$h = sprintf "%02d", $h;
$filename = join '' , $ARGV[1],"_",$h,".",$m,".",$s,".pdf";
$file = join '/', $pdf_base,$year,$mon,$day,$filename;
system ("ps2pdf -sPAPERSIZE=a4 $tmp_dir/$ARGV[0] $file");
# Anpassung für FreeBSD:
#system ("PATH=$PATH:/usr/local/bin ps2pdf -sPAPERSIZE=a4 $tmp_dir/$ARGV[0] $file");
system ("rm -f $tmp_dir/$ARGV[0]")
