]> www.dxcluster.org Git - spider.git/blob - cmd/load/dxqsl.pl
679864c0077576eb82f43ec7e212500c45c93398
[spider.git] / cmd / load / dxqsl.pl
1 #
2 # load the QSL file after changing it
3 #
4 my $self = shift;
5 return (1, $self->msg('e5')) if $self->priv < 9;
6 QSL::finish();
7 my $r = QSL::init(1);
8 my @out;
9 push @out, $self->msg($r ? 'ok':'e2', "$!");
10 return (1, @out);