]> scm.dxcluster.org Git - spider.git/blob - cmd/show/dx.pl
sh/dx and sh/dxcc now fully implemented
[spider.git] / cmd / show / dx.pl
1 #
2 # show dx (normal)
3 #
4 # $Id$
5 #
6
7 my ($self, $line) = @_;
8 my @list = split /\s+/, $line;                # split the line up
9
10 my @out;
11 my $f;
12 my $call;
13 my ($from, $to);
14 my ($fromday, $today);
15 my @freq;
16 my @ans;
17 my $pre;
18 my $spotter;
19 my $info;
20 my $expr;
21
22 while ($f = shift @list) {                 # next field
23   print "f: $f list: ", join(',', @list), "\n";
24   if (!$from && !$to) {
25     ($from, $to) = $f =~ /^(\d+)-(\d+)$/o;         # is it a from -> to count?
26     next if $from && $to > $from;
27   }
28   if (!$to) {
29     ($to) = $f =~ /^(\d+)$/o if !$to;              # is it a to count?
30     next if $to;
31   }
32   if (lc $f eq 'on' && $list[0]) {                  # is it freq range?
33     print "yup freq\n";
34     my @r = split '/', $list[0];
35         print "r0: $r[0] r1: $r[1]\n";
36         @freq = Bands::get_freq($r[0], $r[1]);
37         if (@freq) {                 # yup, get rid of extranous param
38           print "freq: ", join(',', @freq), "\n";
39           shift @list;
40           next;
41         }
42   }
43   if (lc $f eq 'day' && $list[0]) {
44     print "got day\n";
45     ($fromday, $today) = split '-', shift(@list);
46         next;
47   }
48   if (lc $f eq 'info' && $list[0]) {
49     print "got info\n";
50         $info = shift @list;
51         next;
52   }
53   if (lc $f eq 'spotter' && $list[0]) {
54     print "got spotter\n";
55         $spotter = uc shift @list;
56         next;
57   }
58   if (!$pre) {
59     $pre = uc $f;
60   }
61 }
62
63 # first deal with the prefix
64 if ($pre) {
65   $expr = "\$f1 =~ /";
66   $pre =~ s|/|\\/|;          # change the slashes to \/ 
67   if ($pre =~ /^\*/o) {
68     $pre =~ s/^\*//;;
69     $expr .= "$pre\$/o";
70   } else {
71         $expr .= "^$pre/o";
72   }
73 } else {
74   $expr = "1";             # match anything
75 }
76   
77 # now deal with any frequencies specified
78 if (@freq) {
79   $expr .= ($expr) ? " && (" : "(";
80   my $i;
81   for ($i; $i < @freq; $i += 2) {
82     $expr .= "(\$f0 >= $freq[0] && \$f0 <= $freq[1]) ||";
83   }
84   chop $expr;
85   chop $expr;
86   $expr .= ")";
87 }
88
89 # any info
90 if ($info) {
91   $expr .= " && " if $expr;
92   $info =~ s|/|\\/|;
93   $expr .= "\$f3 =~ /$info/io";
94 }
95
96 # any spotter
97 if ($spotter) {
98   $expr .= " && " if $expr;
99   $spotter =~ s|/|\\/|;
100   $expr .= "\$f4 =~ /$spotter/o";
101 }
102
103 print "expr: $expr from: $from to: $to fromday: $fromday today: $today\n";
104   
105 # now do the search
106 my @res = Spot::search($expr, $fromday, $today, $from, $to);
107 my $ref;
108 my @dx;
109 foreach $ref (@res) {
110   @dx = @$ref;
111   my $t = ztime($dx[2]);
112   my $d = cldate($dx[2]);
113   push @out, sprintf "%9s %-12s %s %s %-28s <%s>", $dx[0], $dx[1], $d, $t, $dx[3], $dx[4];
114 }
115
116 return (1, @out);