Wer kann bei Perl-Script helfen

[sinai]

Hallo zusammen

Ich betreibe einen Hylafaxserver, der völlig problemlos arbeitet.

Ab und an (bei bestimmten Kunden) möchte ich kontrollieren, ob das abgesendete Fax auch ankam - dazu nutze ich hylafax_mod für Webmin (dann kann das auch meine Frau)

Die Seite wird korrekt angezeigt, aber ich hätte gerne anstelle der Auftragsnummer das Versanddatum angezeigt.

Der Abschnitt wird wohl in send_done.pl in Zeile 59 erzeugt.

Nur woher kommt $item? Aus hylafax-lib.pl? Und wie?

Ich würde eben im Array $item den ersten Wert von der Auftragsnummer ins Versanddatum ändern. Das Versanddatum könnte man aus docq/doc in Zeile 60 holen, denn in dem Verzeichnis sind alle docxxx.ps-Dateien gespeichert.

Nur wie? Wenn weitere Dateien oder Infos benötigt werden, liefere ich die gerne.

Danke für die Hilfe, denn Perl kann ich nicht...

Andy

[soulianis]

Hallo sinai,

wenn ich das richtig sehe, passiert folgendes:

@lines=faxqueue($QPAR);
-> ruft faxstat -ld auf und liest die von faxstat -ld gelieferten Zeilen ins @lines Array ein
...
    foreach $line (@lines)
        {
        $line =~ /^(\d+) /;
        $faxorder{$1}=$line;
        }
-> baut aus den Zeilen ein assoziatives Array mit der Job-ID als Key
...
# sorting faxes by num
    if ($q->param('ASC.x'))
        { @sortfax = sort {$a <=> $b} (keys %faxorder); }
    else
        { @sortfax = sort {$b <=> $a} (keys %faxorder); }
       
  foreach $faxnum (@sortfax)
        {
        @items=&queueItems($faxorder{$faxnum},@sizes);
-> erzeugt einen Sortierschlüssel für das Array (Job-ID auf- oder absteigend), liest das Array dann in der Sortierfolge aus, bereitet die Felder der jeweiligen faxstat -ld Zeile als @items Array auf

Leider enthält die faxstat -ld Ausgabe das Versanddatum nicht. Dein Vorschlag, es aus dem modification date der Queue-Datei zu ermitteln, sollte funktionieren. Vielleicht so:

1) Vor der foreach $item (@items) Schleife merkst Du Dir den Wert von $items[0] (also die Job-ID). Zum Beispiel:

$id = $items[0];

2) Jetzt ersetzt Du nach der foreach $item (@items) Schleife alle Vorkommnisse von $items[0] durch $id.

3) Nach Deiner neuen $id = $items[0]; Zeile (vor der foreach $item (@items) Schleife) setzt Du $items[0] auf das modification date der Queue-Datei:

if (-e "docq/doc".$id.".ps") {
  $items[0] = strftime "%d.%m.%Y %H:%M", localtime((stat "docq/doc".$id.".ps")[9]);
}

Das ist ein normaler strftime Format-String, den Du nach Belieben anpassen kannst.
Mit if(-e ...) wird getestet, ob die Queue-Datei existiert. Sollte immer der Fall sein, aber falls nicht, wird verhindert, dass das Skript aufgrund eines stat() Fehlers abbricht, stattdesen wird wie vorher die Job-ID ausgegeben.

4) vermutlich brauchst Du jetzt noch am Anfang der Datei (nach den require Zeilen) ein

use POSIX;


Ungetestet  - sollte so oder ähnlich funktionieren 

Viel Glück!

[soulianis]

Bin neugierig: Hat's geklappt?

[sinai]

Werde grade mit Arbeit zugesch...

Kam noch nicht zum testen.

Sent from my HTC Hero using Tapatalk