<?
$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);
}