X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=cmd%2Fconnect.pl;h=1f1ad03f640b76f53f1a59f8b1e8aecd678afb5e;hb=6c06ed486e67b3e36e9af4794d2eb84f59f249c4;hp=d1c583cbd3d6a7f3a65a7062bd373523d34c48af;hpb=ca8e84c32e70ea8eb1f30e716b7dbdc92f7e5083;p=spider.git diff --git a/cmd/connect.pl b/cmd/connect.pl index d1c583cb..1f1ad03f 100644 --- a/cmd/connect.pl +++ b/cmd/connect.pl @@ -16,7 +16,16 @@ return (1, $self->msg('lockout', $call)) if $user && $user->lockout; my @out; push @out, $self->msg('constart', $call); -ExtMsg::start_connect($call, "$main::root/connect/$lccall"); +my $fn = "$main::root/connect/$lccall"; + +my $f = new IO::File $fn; +if ($f) { + my @f = <$f>; + $f->close; + ExtMsg::start_connect($call, @f); +} else { + push @out, $self->msg('e3', 'connect', $fn); +} return (1, @out);