foreach $line (@data)
{
if ($line =~ /start:/)
{
@stst = (split /\:/, $line);
print "$stst[1]\n";
print "\n";
print "\n";
print "| Hostname | \n";
print "IP-Adresse | \n";
print "Model | \n";
print "uptime (d) | \n";
print "OS | \n";
print "Last Update | \n";
print "SN | \n";
print "
";
}
elsif ($line =~ /end:/)
{
print "
\n";
print "
\n";
}
else
{
print "";
$file=$path . ".html" . $line;
if (-f $file)
{
open(TEMP,$file);
}
else
{
@myunkn= split /\./, $file,3;
$myunknown=$myunkn[0] . "." . $myunkn[1];
open(TEMP,$myunknown);
$file=$myunknown;
}
@lines=;