<perl>
# Hinweis zum Gebrauch:
# Wenn mit Parameter $mdb aufgerufen, dann wird gleich exportiert
# ansonsten erscheint Formular zur Eingabe des Datenbanknamens
# Kann für jede beliebige DB benutzt werden, exportiert automatisch
# in der Feldreihenfolge wie sie in der DB-Struktur steht und ist so ausgelegt,
# dass die exportierten Feldtrenner, Texttrenner und Zeilentrenner optimiert für
# die Weiter-Bearbeitung in OpenOfficeOrg-Calc sind
$_header="Content-type: text/comma-separated-values\n";
$_header="Content-disposition: filename=$mdb.csv\n";
get "Id=*", "$mdb.fields", "felder";
push @fieldset, $Field while (get_next("felder"));
get "Id=*","$mdb", "datensaetze";
out "\"$_\"," foreach (@fieldset); # Feldnamen in erste Zeile schreiben
out "\n"; # Zeilenwechsel für neue Zeile
# nun die Datensätze holen und zeilenweise ausgeben
while(get_next("datensaetze")) {
do {${$_} =~ s/\n/<br>/g; out "\"${$_}\",";} foreach(@fieldset); out "\n"}
} else {
out<<EOF;
<table width=500 cellpadding=0 cellspacing=0 align=center>
<tr><td> </td></tr>
<tr><td>Bitte geben Sie den Pfad der zu exportierenden Datenbank an:</td></tr>
<tr><td> </td></tr>
<tr><td>
<form name=export action="$_link" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx" size="" maxlength="">
<input type="Text" name="mdb=" value="" size="40" maxlength="">
<input type="Submit" name="submit" value="Exportieren">
</form></td></tr>
</table>
EOF
}
</perl>
