38 lines
1.2 KiB
Perl
38 lines
1.2 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use DBI;
|
|
use strict;
|
|
|
|
my ($db_user, $db_name, $db_pass, $db_host) = ('1_mfi', '1_mfi', 'K01v1kk0!', 'panel.agserver.de');
|
|
|
|
my $dbh = DBI->connect("DBI:mysql:database=$db_name;host=$db_host", $db_user, $db_pass) or die "Cannot connect to DB\n";
|
|
#my $rows = $dbh->do("select * from device") or die "$dbh->errstr";
|
|
|
|
my $sql;
|
|
|
|
#my $sql="select id, name, ports from device";
|
|
#my @row_ary = $dbh->selectrow_array("$sql");
|
|
#my $ary_ref1 = $dbh->selectrow_arrayref("$sql");
|
|
#my $hash_ref1 = $dbh->selectrow_hashref("$sql");
|
|
#my $ary_ref2 = $dbh->selectall_arrayref("$sql");
|
|
#my $hash_ref2 = $dbh->selectall_hashref("$sql", 'id');
|
|
|
|
$sql = "select * from device";
|
|
my $res_ref_device = $dbh->selectall_arrayref("$sql");
|
|
|
|
my $res_ref_port;
|
|
print "<table>
|
|
<tr><td colspan=2>Device</td><td>Ports</td></tr>\n";
|
|
|
|
foreach (@$res_ref_device) {
|
|
print "<tr><td colspan=2>$_->[1] (ID: $_->[0])</td><td>$_->[2]</td></tr>\n";
|
|
$sql = "select id, nr, descr, state from port where dev_id = '$_->[0]'";
|
|
$res_ref_port = $dbh->selectall_arrayref("$sql");
|
|
print "<tr><td>Port</td><td>Description</td><td>State</td></tr>\n";
|
|
foreach (@$res_ref_port) {
|
|
print "<tr><td>$_->[1] (ID $_->[0])</td><td>$_->[2]</td><td>$_->[3]</td></tr>\n";
|
|
}
|
|
}
|
|
print "</table>";
|
|
exit 0;
|