4 # run a script from the scripts directory
6 # Copyright (c) 1998 Dirk Koopman G1TLH
11 my ($self, $line) = @_;
12 my @f = split /\s+/, $line;
18 if (is_callsign(uc $f) && $self->priv < 8 && uc $f ne $self->call) {
19 push @out, $self->msg('e5');
23 my $script = new Script(lc $f);
25 push @out, $self->msg('e3', 'script', $f);