32 lines
1.1 KiB
PHP
32 lines
1.1 KiB
PHP
|
<?
|
||
|
|
$beg=3500000;
|
||
|
|
$end=3800000;
|
||
|
|
$step=20000;
|
||
|
|
$rigctl='/usr/bin/rigctl'; # where rigctl lives
|
||
|
|
$rmodel='363'; # rig model for hamlib
|
||
|
|
$device='/dev/ttyUSB0'; # serial device connected to rig
|
||
|
|
$dspeed='19200'; # serial speed set in rig
|
||
|
|
###############################################################
|
||
|
|
print "==> RIG CONNECT... ";
|
||
|
|
$rigcmd=$rigctl.' -m '.$rmodel.' -r '.$device.' -s '.$dspeed;
|
||
|
|
$socket=popen($rigcmd,'r');
|
||
|
|
print "OK (".$device.")\n";
|
||
|
|
print "CMD[".$rigcmd."]\n";
|
||
|
|
for ($freq = $beg; $freq <= $end; $freq+=$step) {
|
||
|
|
$afreq=array(); exec($rigcmd.' F '.$freq,$afreq,$fret);
|
||
|
|
exec($rigcmd.' T 1');
|
||
|
|
usleep(200000);
|
||
|
|
$aswr=array(); $get_swr=$rigcmd.' l SWR'; exec($get_swr,$aswr,$sret); $swr=trim($aswr[0]);
|
||
|
|
if ( $swr == 0 || $swr > 1 || preg_match("/error/",$swr) ) {
|
||
|
|
usleep(200000);
|
||
|
|
$aswr=array(); $get_swr=$rigcmd.' l SWR'; exec($get_swr,$aswr,$sret); $swr=trim($aswr[0]);
|
||
|
|
}
|
||
|
|
if ( $swr == 0 || $swr > 1 || preg_match("/error/",$swr) ) {
|
||
|
|
usleep(200000);
|
||
|
|
$aswr=array(); $get_swr=$rigcmd.' l SWR'; exec($get_swr,$aswr,$sret); $swr=trim($aswr[0]);
|
||
|
|
}
|
||
|
|
print "[".$freq."] [".$swr."] ".str_repeat("|",ceil($swr*100))."\n";
|
||
|
|
exec($rigcmd.' T 0');
|
||
|
|
usleep(200000);
|
||
|
|
}
|