Forgot your password?
Dstar Monitor Page (Last Heard)
This will access a database in postgres to display Last Time Station Heard. Please see Pete Lovell's Dstarmon Documenation.
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<html><title>D-Star Monitor - (Last Time Station Heard)</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 "<a href=/cgi-perl/lastxmt.pl><center><font size=2>VIEW TX HISTORY</font></center></a>";
# load module
use DBI;
# connect
my $dbh = DBI->connect("DBI:Pg:dbname=(databasename);host=(servername)", "(username)", "(password)", {'RaiseError' => 1});
my $ref = "";
print "<center>";
print "<table width='50%' cellspacing=0 cellpadding=1 border=1>";
print "<tr bgcolor=#000000>";
print "<td><font color=#ffffff><center>Last Heard</center></font></td>";
print "<td><font color=#ffffff><center>Station Call</center></font></td>";
print "<td><font color=#ffffff><center>Repeater Call</center></font></td>";
print "<td><font color=#ffffff><center>Xmit Type</center></font></td>";
print "</tr>";
my $sth = $dbh->prepare("SELECT * from lastheard order by reporttime;");
$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->{'reporttime'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'stationcall'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'repeatercall'};
print "</font></center></td>";
print "<td><font color=#000000><center>";
print $ref->{'xmttype'};
print " ";
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>";
