Forgot your password?
Dstar Monitor (Transmit History)
Please consult Pete Lovell's Dstarmon Documentation on database setup.
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<html><title>D-Star Monitor (Transmit History)</title>";
print "<head>";
print "<style type='text/css'>";
print "BODY { scrollbar-base-color: #99CCFF ; scrollbar-arrow-color: white;scrollbar-DarkShadow-Color: blue; font-family: Verdana, Tahoma; font-size: 8px; }";
print "table { font-family: Verdana, Tahoma; font-size: 9px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px;padding-top: 0px;padding-right: 0px;padding-bottom: 0px;padding-left: 0px;}";
print "</STYLE>";
print "<meta http-equiv='Expires' content='-1'>";
print "<meta name='description' content='D-Star Amateur Radio Systems'>";
print "<meta name='keywords' content='amateur,ham radio,emergency communications,dstar,opensource'>";
print "<meta http-equiv='REFRESH' content='60'>";
print "</head>";
print "<body bgcolor=#ffffff background='stripes.gif'>";
print "<center><font size=2> Limited to last fifty records</font></center>";
# load module
use DBI;
# connect
my $dbh = DBI->connect("DBI:Pg:dbname=(databasename);host=(server)", "(username)", "(password)", {'RaiseError' => 1});
my $ref = "";
print "<center>";
print "<table width='100%' cellspacing=0 cellpadding=1 border=1>";
print "<tr bgcolor=#000000>";
print "<td><font color=#ffffff><center>Start Time</center></font></td>";
print "<td><font color=#ffffff><center>Duration</center></font></td>";
print "<td><font color=#ffffff><center>Xmit Type</center></font></td>";
print "<td><font color=#ffffff><center>flag1</center></font></td>";
print "<td><font color=#ffffff><center>flag2</center></font></td>";
print "<td><font color=#ffffff><center>flag3</center></font></td>";
print "<td><font color=#ffffff><center>Destination<br>Repeater</center></font></td>";
print "<td><font color=#ffffff><center>Source<br>Repeater</center></font></td>";
print "<td><font color=#ffffff><center>Destination<br>Station</center></font></td>";
print "<td><font color=#ffffff><center>Source<br>Station</center></font></td>";
print "<td><font color=#ffffff><center>Next<br>Station</center></font></td>";
print "<td><font color=#ffffff><center>Length</center></font></td>";
print "</tr>";
my $sth = $dbh->prepare("SELECT * from lastxmt order by starttime desc LIMIT 100;");
$sth->execute();
my $color = 1;
while($ref = $sth->fetchrow_hashref()) {
if ($color eq 1) { print "<tr bgcolor=#e0e0e0>"; $color = 0; } else { print "<tr bgcolor=#ffffff>"; $color = 1; }
print "<td><font color=#000000><center>";
print $ref->{'starttime'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'duration'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'xmttype'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'flag1'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'flag2'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'flag3'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'destrptr'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'srcrptr'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'deststn'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'srcstn'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'srcstnext'};
print " ";
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'length'};
print "</font></center></td>";
print "</tr>";
}
print "</table>";
print "</center>";
my $now = localtime time;
print "<center>Last refresh: $now<center>\n";
print "<center>Copyright 2008 - W. Stillwell - KI4SWY</Center><br>\n";
$dbh->disconnect();
print "</body></html>";
