#!/usr/bin/perl

use strict;
use Net::MySQL;

my $mysql = Net::MySQL->new(
    hostname => 'panel.agserver.de',   # Default use UNIX socket
    database => '1_mfi',
    user     => '1_mfi',
    password => 'K01v1kk0!'
);
 
# INSERT example
#$mysql->query(q{
#    INSERT INTO tablename (first, next) VALUES ('Hello', 'World')
#});
#printf "Affected row: %d\n", $mysql->get_affected_rows_length;
 
# SELECT example
$mysql->query(q{SELECT count(*) FROM device});
my $record_set = $mysql->create_record_iterator;
my $DEVcount=0;
while (my $record = $record_set->each) {
#    printf "First column: %s Next column: %s\n",
#        $record->[0], $record->[1];
      $DEVcount = $record->[0];
}


#print "<table>\n";

#for (my $dev=1; $dev<=$DEVcount; $dev++) {
#   print " <tr>
#  <td>
#";
#}

   my $DEVname;
   my $DEVports;

   $mysql->query(q{SELECT name,ports FROM device});
   my $record_set = $mysql->create_record_iterator;
   while (my $record = $record_set->each) {
      $DEVname=$record->[0]; $DEVports=$record->[1];
   
      print "   <table>
    <tr>
     <td colspan=3>
      $DEVname $DEVports
     </td>
    </tr>\n";
    
      for (my $ports=0; $ports < $DEVports; $ports++) {
         print "    <tr>
     <td>
      Portname
     </td>
     <td>
      PortDescr
     </td>
     <td>
      PortState
     </td>
    </tr>\n";
         }
         print "
   </table>\n";
   }
   
   print "  </td>
 </tr>
 <tr>
 </tr>
   ";


print "</table>\n";


$mysql->close;