X-Git-Url: https://git.treefish.org/fex.git/blobdiff_plain/7fa382617fbaccc0ce522b2b3adbbee9db5ad227..97b87610331f53e756d032ad21db786037f921a1:/cgi-bin/pup?ds=sidebyside

diff --git a/cgi-bin/pup b/cgi-bin/pup
index 4ddac70..241e2d3 100755
--- a/cgi-bin/pup
+++ b/cgi-bin/pup
@@ -5,7 +5,7 @@
 # Author: Ulli Horlacher <framstag@rus.uni-stuttgart.de>
 #
 
-use CGI::Carp qw(fatalsToBrowser);
+BEGIN { ($ENV{PERLINIT}||'') =~ /(.+)/s and eval $1 }
 
 # add fex lib
 (our $FEXLIB) = $ENV{FEXLIB} =~ /(.+)/;
@@ -182,17 +182,3 @@ sub setparam {
     $to	= normalize_email($vv);
   }
 }
-
-
-# read one line from STDIN (net socket) and assign it to $_
-# returns number of read bytes
-sub nvt_read {
-  my $len = 0;
-
-  if (defined ($_ = <STDIN>)) {
-    debuglog($_);
-    $len = length;
-    s/\r?\n//;
-  }
-  return $len;
-}