[aprssig] RE: Worldwide satellite ground station status page

Wed Sep 21 06:58:20 EDT 2005

Da code

#!/usr/bin/perl
print ("Content-type: text/html\n\n");
print "<html>\n";
print "<body> \n";
$date = `date +%d/%m/%y`;
chop $date;
# print $date;
print "<font face='arial'  size=2>";
print "<table cellpadding=5 cellspacing=2 border=1 >";
print "<tr bgcolor='#c0c0c0'><td width=80>Callsign</td><td
width=80>ISS</td><td width=80>PCSAT</td><td width=80>PCSAT2</td></tr>";
open (sat_stations, "/srv/www/cgi-bin/sat_stations.txt");
while (<sat_stations>)
{
$callsign = $_;
# print $callsign;
chop $callsign;
$pcsat = "no";
$pcsat2 = "no";
$iss = "no";
open (tnc, "/data/vkdata.txt");
while (<tnc>)
{
if (m/$date/)
{
if (m/$callsign/)
{
if (m/RS0ISS/)
{
# print $_."<br>\n";
$iss = "yes";
}
}
}
}
open (tnc, "/data/vkdata.txt");
while (<tnc>)
{
if (m/$date/)
{
if (m/$callsign/)
{
if (m/W3ADO/)
{
# print $_."<br>\n";
$pcsat= "yes";
}
}
}
}
open (tnc, "/data/vkdata.txt");
while (<tnc>)
{
if (m/$date/)
{
if (m/$callsign/)
{
if (m/PCSAT2/ || m/ISSTLM/ || m/PC2ISS/)
{
# print $_."<br>\n";
$pcsat2 = "yes";
}
}
}
}
print "<tr><td>$callsign</td>";
if ($iss eq "yes")
{
print "<td bgcolor='#00ff00' align=middle>$iss</td>";
}
else
{
print "<td bgcolor='#ff0000' align=middle><font
color='#ffffff'>$iss</font></td>";
}
if ($pcsat eq "yes")
{
print "<td bgcolor='#00ff00' align=middle>$pcsat</td>";
}
else
{
print "<td bgcolor='#ff0000' align=middle><font
color='#ffffff'>$pcsat</font></td>";
}
if ($pcsat2 eq "yes")
{
print "<td bgcolor='#00ff00' align=middle>$pcsat2</td>";
}
else
{
print "<td bgcolor='#ff0000' align=middle><font
color='#ffffff'>$pcsat2</font></td>";
}
print "</tr>";
}
print "</table>";
print "<form action='http://vk4tec.no-ip.org/cgi-bin/add_sat_stationc.cgi'
method='get'>";
print "<b><font face='arial' size='2'></font></b>";
print "<input type='Text' name='Call' size=10 > ";
print "</td>";
print "<td>";
print "<input type='Submit' value='Add Call'>";
print "</form>";
print "</body>";
print "</html>";

-----------------------------------------
Andrew Rich - VK4TEC
Satellite Ground Station for PCSAT2
vk4tec at tech-software.net
www.tech-software.net
Brisbane AUSTRALIA

-----Original Message-----
From: Andrew Rich [mailto:vk4tec at tech-software.net]
Sent: Wednesday, 21 September 2005 5:13 PM
To: Amsat-Bb; TAPR List; VK / ZL APRS Users
Subject: Worldwide satellite ground station status page

Gudday,

I am going to put togther a tabular display of those stations that have
heard or digied via a satellite in the last 24 hours.

If you would like to be part of this project please let me know.

So far I have PCSAT, ISS and PCSAT2.

This is be a live web page, as derived from the APRS-IS stream.

All you have to do is submit you callsign and add to the project.

Cheers Andy VK4TEC

back soon with more details.

-----------------------------------------
Andrew Rich - VK4TEC
Satellite Ground Station for PCSAT2
vk4tec at tech-software.net
www.tech-software.net
Brisbane AUSTRALIA