#!/usr/local/bin/perl
print "Content-type: html\n\n";
print "<html><head>";
print "<title>Inventory</title>";
print "</head>";
print "<body>";
print "<table>";
print "<tr>";
print "<th>item</th><th>description</th><th>on hand</th><th>on order</th>";
print "</tr>";
open (DB,"skyinv") ¦¦ die("There was a problem opening the file.");
while ($entry=<DB>) {
@fields=split(/\¦/,$entry);
print "<tr>";
print "<td>$fields[0]</td>";
print "<td>$fields[1]</td>";
print "<td>$fields[2]</td>";
print "<td>$fields[3]</td>";
print "</tr>";
}
close DB;
print "</table>";
print "</body>";
print "</html>";
[edited by: jatar_k at 7:15 pm (utc) on July 10, 2003]
[edit reason] no personal urls thanks [/edit]
Content-type: text/html
