Original release 20150826

[fex.git] / cgi-bin / pup

diff --git a/cgi-bin/pup b/cgi-bin/pup
index 241e2d35b351e64660759be0b9e36d09679e2d05..0d0050947eee696ba31c588b9a74f7e662a3f856 100755 (executable)
--- a/cgi-bin/pup
+++ b/cgi-bin/pup
@@ -34,7 +34,7 @@ chdir $spooldir or http_die("$spooldir - $!\n");
 
 my $qs = $ENV{QUERY_STRING};
 (my $multi) = $qs =~ s/(^|&)multi//;
-  
+
 # parse HTTP QUERY_STRING (parameter=value pairs)
 if ($qs) {
   foreach (split '&',$qs) {
@@ -48,7 +48,7 @@ if ($qs) {
           ord($1)
         ));
       }
-      setparam($x,$_); 
+      setparam($x,$_);
     }
   }
 }
@@ -62,7 +62,7 @@ if ($ENV{REQUEST_METHOD} eq 'POST') {
   }
 
   binmode(STDIN,':raw');
-    
+
   READPOST: while (&nvt_read) {
     if (/^Content-Disposition:\s*form-data;\s*name="([a-z]\w*)"/i) {
       my $x = $1;
@@ -95,7 +95,7 @@ if ($to and $from and checkaddress($from)) {
   exec($FEXHOME.'/bin/fexsrv') if $ENV{KEEP_ALIVE};
   exit;
 }
-  
+
 http_header('200 ok');
 print html_header($head);
 
@@ -172,11 +172,11 @@ pq(qq(
 # set parameter variables
 sub setparam {
   my ($v,$vv) = @_;
-  
+
   $v = uc(despace($v));
   if ($v eq 'LOCALE' and $vv =~ /^(\w+)$/) {
     $locale = $1;
-  } elsif ($v eq 'FROM') { 
+  } elsif ($v eq 'FROM') {
     $from = normalize_email($vv);
   } elsif ($v eq 'TO') {
     $to        = normalize_email($vv);