[aprssig] RE: Control my d700 using the web

Tue Sep 6 06:08:29 EDT 2005

@pairs= split(/&/, $ENV{'QUERY_STRING'});
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$date = $FORM{'Date'};
$frequency = $FORM{'freq'};
print ("Content-type: text/html\n\n");
print "<html>\n";
print "<body> \n";
open (tnc, "> /dev/ttyS0");
print tnc "FQ 00".$frequency."000,0\n";
print "FQ 00".$frequency."000,0\n";
close(tnc);
print "</body>";
print "</html>";       


-----Original Message-----
From: Andrew Rich [mailto:vk4tec at tech-software.net]
Sent: Tuesday, 6 September 2005 8:06 PM
To: Amsat-Bb
Cc: TAPR APRS Mailing List
Subject: Control my d700 using the web


I have rigged up a perl code to control my d700

http://vk4tec.no-ip.org/cgi-bin/set_freq.cgi?freq=145175

kewl 

andrew vk4tec