]> dxcluster.net Git - spider.git/blob - cmd/do.pl
small change to LogDbg
[spider.git] / cmd / do.pl
1 #
2 # do anything
3 #
4 # Rape me!
5 #
6 # Copyright (c) 2000 - Dirk Koopman G1TLH
7 #
8 # $Id$
9 #
10
11 my ($self, $line) = @_;
12 return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd || $self->inscript;
13 Log('DXCommand', $self->call . " do $line" );
14 eval "$line";
15 return (1, $@ ? $@ : "Ok, done $line" );