Order Tray | Contact Us | Home | SIG Lists

[aprssig] RE: Control my d700 using the web

Andrew Rich vk4tec at tech-software.net
Tue Sep 6 10:08:29 UTC 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";
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



andrew vk4tec

More information about the aprssig mailing list