init III

Perl control mFi/alt/getstatus.pl

@@ -0,0 +1,81 @@
+#!/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;
+