3 # show sunrise and sunset times for each callsign or prefix entered
5 # 1999/11/9 Steve Franke K9AN
8 my ($self, $line) = @_;
9 my @list = split /\s+/, $line;
13 my ($lat, $lon); # lats and longs in radians
14 my ($sec, $min, $hr, $day, $month, $yr) = (gmtime($main::systime))[0,1,2,3,4,5];
20 my @ans = Prefix::extract($l);
29 my $string=Sun::riseset($yr,$month,$day,$lat,$lon);
30 push @out,sprintf("%-2s %s %s",$pre,$a->name(),$string);