#!/usr/bin/env perl #!/usr/bin/perl -T # WWW interface for CW beacon, beacon.main.cgi ## Setup user config # # file that holds current beacon status $file = "/usr/local/etc/beacon.status"; # your callsign $call = "CALL"; # default message $def = "v v de CALL/b GRID li qsl via EMAIL"; # enter antenna 1 description (default antenna) $ant1 = "Vertical 1/2 wave dipole"; # enter antenna 2 description $ant2 = "Horizontal 1/2 wave dipole"; # ## End user config # Setup # select STDOUT; $| = 1; # Print MIME # print "Content-type:text/html\n\n"; open F, $file or print "Can't open $file: $!\n"; while () { ($status, $freq) = split /\|/; } close F; # Check current beacon status # if (!$status) { $status = "off"; } if (!$freq) { $freq = "0.0"; } $call =~ tr/a-z/A-Z/; print <Web Controlled 6 meter Amatuer Radio CW Beacon
Control the $call 6 meter CW beacon via this webpage

You can control the CW speed, power, antenna and send your own message.
When no user message is present, the beacon sends: $def

Enter message (20 characters max):
Choose a delay (between characters):
Choose an antenna:
Select output power attenuation (3 dB):
CW speed (5 to 50 wpm):

Current beacon status: $status @ $freq MHz

List of other 6 meter beacons
END_OF_FILE