82 lines
1.4 KiB
Perl
82 lines
1.4 KiB
Perl
#!/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;
|
|
|