{ version => '01', contest_name => 'SPDX RTTY Contest', contest_id => 'SPDX-RTTY', filter => { mode => "RTTY", band => \"IN('80M','40M','20M','15M','10M')", }, defaults => { contest_url => 'http://www.pkrvg.org/zbior.html#Robot_contestowy', log_cols => [qw/ mycall call qso_date time_on mode freq band rst_sent stx rst_rcvd srx pfx cont dxccprefix /], placeholders => [qw/ cont dxccprefix /], dropbox_options => { cont => [qw/ AF AN AS EU NA OC SA /], dxccprefix => [ sort keys %{{ do 'dxcc.inc' }} ], 'ARRL-SECTION' => [qw/ DX /], CATEGORY => [qw/ A B C D E /], }, update => sub { my $row = shift; my %h; my $srx = $row->{srx}; $srx = $row->{srx_string} if $srx eq '599' && $row->{srx_string}; $srx =~ s/^599 (.+)/$1/; my $stx = $row->{stx}; $stx = $row->{stx_string} if $stx eq '599' && $row->{stx_string}; $stx =~ s/^599 (.+)/$1/; $h{srx} = sprintf '%03d', $srx unless $srx =~ /\D/; $h{stx} = sprintf '%03d', $stx unless $stx =~ /\D/; $h{srx} = $srx if $srx =~ /\D/; # area code return \%h; }, Qs => [ { label => 'Own Country', weight => 2, group_by => 'band, call', where => {dxccprefix=>$INPUT{dxccprefix}} }, { label => 'Own Continent', weight => 5, group_by => 'band, call', where => { cont=>$INPUT{cont}, dxccprefix=>{'!=' => $INPUT{dxccprefix}} } }, { label => 'Different Continent', weight => 10, group_by => 'cont, band, call', where => { cont=>{'!=' => $INPUT{cont}} } }, { label => "ERRORS - unknown DXCC; no mult credit", weight => 0, group_by => 'qso_date,time_on,band,call', where => {dxccprefix=>'??'} }, ], mults => [ { label => 'DXCC', group_by => 'band, dxccprefix' }, { label => 'SP Areas', group_by => 'band, srx', where => { dxccprefix=>'SP' } }, ], super_mults => [ { label => 'Continents', group_by => 'cont' }, # TODO: LIMIT 6 for super_mults ], cabrillo => { cabrillo_url => '', version => '2.0', headers => [qw/ ARRL-SECTION CATEGORY CLUB NAME ADDRESS OPERATORS EMAIL SOAPBOX /], qso_cols => [qw/cab_freq cab_mode cab_date cab_time mycall rst_sent stx call rst_rcvd srx /], qso_fmt => '%-5s %-2s %-10s %-04s %-10s %-3s %-3s %-13s %-3s %-3s', # --------info sent------- -------info rcvd-------- # QSO: freq mo date time call rst exch call rst exch # QSO: ***** ** yyyy-mm-dd nnnn ********** nnn *** ************* nnn *** # QSO: 3584 PO 2011-02-18 2103 SJ3AZ 599 001 RM9DAZ 599 SV # QSO: 3582 PO 2011-02-18 2105 SJ3AZ 599 002 UT1I 599 002 # 000000000111111111122222222223333333333444444444455555555556666666666777777777788 # 123456789012345678901234567890123456789012345678901234567890123456789012345678901 }, }, years => { 2011 => { sample => '', filter => { qso_date => { -between => [20110423, 20110424] }, }, }, }, }