Hamlib/bindings/perltest.pl

#!/usr/bin/perl

# make sure the module is there, hint: "ln -s .lib/hamlibperl.so hamlib.so"
use hamlib;

print "Version: $hamlib::hamlib_version\n";
print "FM: $hamlib::RIG_MODE_FM\n";

hamlib::rig_set_debug($hamlib::RIG_DEBUG_TRACE);

$rig = new hamlib::Rig($hamlib::RIG_MODEL_DUMMY);
$rig->open();

$rpath = $rig->get_conf("rig_pathname");
$region = $rig->get_conf(1073741944);
print "get_conf: path=\"$rpath\", ITU region=$region\n";


$rig->set_freq(12000000, $hamlib::RIG_VFO_A);

$f = $rig->get_freq();
print "freq: $f\n";

($mode, $width) = $rig->get_mode();

print "mode: $mode, width: $width\n";

print "ITU region: $rig->{state}->{itu_region}\n";
print "Copyright: $rig->{caps}->{copyright}\n";
$inf = $rig->get_info();

print "get_info: $inf\n";

$rig->set_level("VOX", 1);
$lvl = $rig->get_level_i("VOX");
print "level: $lvl\n";
$rig->set_level($hamlib::RIG_LEVEL_VOX, 5);
$lvl = $rig->get_level_i($hamlib::RIG_LEVEL_VOX);
print "level: $lvl\n";



$chan = new hamlib::Chan($hamlib::RIG_VFO_A);

$rig->get_channel(\$chan);

print "VFO: $chan->{fields}->{vfo}, $chan->{fields}->{freq}\n";

$rig->close();

($long1, $lat1) = locator2longlat("IN98EC");
($long2, $lat2) = locator2longlat("DM33DX");
$loc1 = longlat2locator($long1, $lat1);
$loc2 = longlat2locator($long2, $lat2);
print "Loc1: $loc1\n";
print "Loc2: $loc2\n";

($dist, $az) = qrb($long1, $lat1, $long2, $lat2);
$longpath = distance_long_path($dist);
print "Distance: $dist km, long path: $longpath\n";
($deg, $min, $sec) = dec2dms($az);
$az2 = dms2dec($deg, $min, $sec);
print "Bearing: $az, $deg<65> $min' $sec\", recoded: $az2\n"