Unmittelbar vor und nach dem Aufruf des externen Programms können die Daten einer in 'prepare_function' angegebenen Funktion übergeben werden. Beidesmal wird die selbe Funktion verwendet. Eine solche Funktion kann beispielsweise direkt in einem Modul-Skript stehen. Sie wird von 'modul_extprog' aufgerufen, wobei ihr zwei Parameter übergeben werden:
Eine Referenz auf das Array, in dem die aktuellen Daten liegen. Dieses Array ist mit den Feldnamen indiziert.
Ein boolscher Wert, über den die Funktion erkennen kann, ob der Aufruf des externen Programms noch folgt oder schon beendet ist. Im ersten Fall ist der Parameter nicht definiert, im zweiten Fall auf 'false' gesetzt.
Mit Hilfe einer solchen Funktion könnten beispielsweise die Daten vor dem Aufruf des externen Programms und zusätzlich zu den Möglichkeiten von 'dataconversion' und 'form_param' bearbeitet werden. Eine weitere Anwendung wäre die Speicherung der aktuellen Daten in einer Datei nach erfolgtem Programmaufruf. Die im folgenden Beispiel dargestellte Funktion erzeugt eine Datei mit einer Liste, der zu einer Klausur angemeldeten Studenten. Im Datenarray (als Referenz übergeben) findet die Funktion die Nummern der Vorlesung ('vn_nr') und der Klausur ('kl_nr'). Außerdem enthält das Array Platz für den Namen der erzeugten Datei ('file0'). Wenn die Funktion vor dem externen Programmaufruf gestartet wird, erzeugt sie die Datei. Nach dem Aufruf ($vorher == 0) wird die Datei wieder gelöscht.
if (!$vorher) {
unlink($daten[file0]);
return;
}
$query = "SELECT s.name, s.vorname,
s.matrikelnummer, ssk.platznummer
FROM student s, student_schreibt_klausur ssk
WHERE ssk.klausurnummer='".$daten[kl_nr]."'
AND ssk.vorlesungnummer='".$daten[vn_nr]."'
AND ssk.studentnummer=s.studentnummer";
$res = db_query($query);
if (!$res){
debug("Fehler beim Ausführen des Query");
return;
}
$tmpfname = tempnam("/tmp", "");
if (!$tmpfname){
debug("Fehler beim Anlegen der temp. Datei ");
return;
}
$fd = fopen($tmpfname, "w");
if (!$fd){
debug("Fehler beim Öffnen der temp. Datei ");
return;
}
while ($zeile = db_fetchnext_array($res)){
$string = "$zeile[platznummer] $zeile[vorname] $zeile[name]\n";
fputs($fd, $string);
}
fclose($fd);
$daten[file0] = $tmpfname;
}
id=>"liste",
values=>array(
vn_nr=>10,
kl_nr=>1,
),
cols=>array("vn_nr", "kl_nr"),
aendern_cols=>array("kl_nr"),
table_param=>array(
headcell_format=>array(
kl_nr=>"Klausurnr.",
vn_nr=>"Vorlesungsnr.",
),
),
prepare_function=>"liste_erzeugen",
prog_aufruf=>"cat $(file0)",
);
modul_extprog($modul_param);