# CSV2HTML CSV Tabellen in HTML Tabellen umwandeln
# Autor: Rolf Rost (rolfrost@yahoo.com)
#                    mit Ergaenzungen von xwolf (xwolf@xwolf.com)
#################################################################
# Eine kleine Tabelle im CSV-Format:
# Name;Vorname;PLZ;Wohnort;Straße;Telefon
# Rost;Rolf;99091;Erfurt;Templiner Straße 7;0361 745 96 40
#################################################################
require "cgi-lib.pl";

print PrintHeader();
print HtmlTop('CSV - Tabelle zu HTML umwandeln');
print "
<form>
<pre>
  <input type=file name=datei> <input type=submit value='Tabelle in
HTML umwandeln'>
</pre>
</form>\n";

&ReadParse;
$in{datei} =~ s/[\x00-\x20<>\|;\(\)\$^\+!\^\[\]\?\"\'\`]//g;
    # Sonderzeichen beseitigen, damit niemand Shells aufmacht...
$in{datei} =~ s/\.\.//g;
    # Keine Rueckspruenge in hoehere Verzeichnisse
$in{datei} =~ s/^(\/etc|\/var|\/local|\/bin|\/adm)//g;
    # Keine Systemverzeichnisse

if (not (-r $in{datei})) { CgiDie("Ungueltiger Dateiname"); }
    
open(CSV, $in{datei})|| &fehler;
  @zeilen = <CSV>;
close (CSV);

CgiDie ("Tabelle ist leer") if !@zeilen;

print "<h3>Die Tabelle wurde umgewandelt, liegt im Quelltext zwischen
Schnipp und Schnapp</h3>\n\n";
print "<!-------------<Schnipp>------------------------>\n";
print "<table border=1 cellspacing=0 align=center>\n";
for(@zeilen){
        print "<tr>\n";
        @spalten = split (/;/,$_);
        for(@spalten){
                print "<td>$_</td>\n";
        }
        print "</tr>\n";
}
print "</table>\n";
print "<!-------------<Schnapp>------------------------>\n\n";
print HtmlBot();

exit;
#################################################################
sub fehler(){
        print "<h3>Fehlerhafte Eingabe, bitte eine CSV-Tabelle
auswählen...</h3>";
        die;
}
#################################################################