8 $dbi_string="DBI:mysql:nadiraktuell";
10 die "parameter [-form] tableName" if ($#ARGV>1 | $#ARGV==-1);
11 die unless ($dbh=DBI->connect($dbi_string,$db_user));
23 $sth=$dbh->prepare(<<EO_QUERY);
24 show fields from $tableName
35 nadiraktuell.$tableName
40 <B>nadiraktuell.$tableName</B><P>
45 print "<form action=\"/scripts/NadirAktuell\">
46 \t<input type=hidden name=module value=$tableName>
47 <input type=\"hidden\" name=\"id\" value=\"\${id}\">
49 <input type=\"hidden\" name=\"do\" value=\"insert\">
51 <input type=\"hidden\" name=\"do\" value=\"update\">
54 <table border=\"0\">\n";
59 while (@data=$sth->fetchrow_array) {
61 print "\n<tr>\n<td align=\"right\"><B>$data[0]:</B></td>\n";
63 print "<td><input type=\"text\" size=\"40\" name=\"$data[0]\" value=\"\$\{$data[0]\}\"></td>\n";
66 print "<td><\$\{$data[0]\}></td>\n";
73 print "<td colspan=\"2\" align=\"right\">
75 <input type=\"submit\" name=\"save\" value=\"einfügen\">
77 <input type=\"submit\" name=\"save\" value=\"speichern\">