Branch: Tag:

2001-02-04

2001-02-04 22:53:48 by Leif Stensson <leif@lysator.liu.se>

Nicer error handling when evaluating tags.

Rev: server/perl/bin/perlhelper:1.3

2:      # Perl helper script for Roxen Webserver. By Leif Stensson.   # - # $Id: perlhelper,v 1.2 2001/02/01 13:12:37 leif Exp $ + # $Id: perlhelper,v 1.3 2001/02/04 22:53:48 leif Exp $      package Roxen::Internal;   
411:    if ($cmd eq "C")    { my ($cmdin, $cmdout, $cmd);    eval $data; +  if ($@) +  { Senderror("PERL EVAL ERROR: $@"); +  die "Perl: $@";    } -  +  }    else    { diag "{S:$data}\n";    Roxen::Internal::runscript($data);
432:    if ($cmd eq "P")    { Sendreply(""); }    elsif ($cmd eq "V") -  { Sendreply('Roxen Perl Helper: $Id: perlhelper,v 1.2 2001/02/01 13:12:37 leif Exp $'); } +  { Sendreply('Roxen Perl Helper: $Id: perlhelper,v 1.3 2001/02/04 22:53:48 leif Exp $'); }    else    { die "perlhelper $$/MLQQ: exiting.\n"; }    }