Original release 20150615

[fex.git] / cgi-bin / pup

diff --git a/cgi-bin/pup b/cgi-bin/pup
index 4ddac701b4e2d1f4a22590a2d18f95d3478023c4..241e2d35b351e64660759be0b9e36d09679e2d05 100755 (executable)
--- a/cgi-bin/pup
+++ b/cgi-bin/pup
@@ -5,7 +5,7 @@
 # Author: Ulli Horlacher <framstag@rus.uni-stuttgart.de>
 #
 
 # 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} =~ /(.+)/;
 
 # add fex lib
 (our $FEXLIB) = $ENV{FEXLIB} =~ /(.+)/;


@@ -182,17 +182,3 @@ sub setparam {
     $to        = normalize_email($vv);
   }
 }
     $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;
-}