Original release 20150826

[fex.git] / cgi-bin / rup

diff --git a/cgi-bin/rup b/cgi-bin/rup
index 53fa952147635755a06d679693d56cf596c45fdc..5b2d4e0619805b2c2a31555aa3123b2d26a561be 100755 (executable)
--- a/cgi-bin/rup
+++ b/cgi-bin/rup
@@ -32,7 +32,7 @@ our %PARAM;
 foreach my $v (keys %PARAM) {
   my $vv = $PARAM{$v};
   $vv =~ s/[<>\'\`\"\000-\037]//g;
-  if ($v =~ /^akey$/i and $vv =~ /^(\w+)$/) { 
+  if ($v =~ /^akey$/i and $vv =~ /^(\w+)$/) {
     $akey = $1;
   } elsif ($v =~ /^(from|user)$/i) {
     $from = normalize_address($vv);
@@ -147,7 +147,7 @@ unless ($from and $id and $file and $oto and $nto) {
 }
 
 if ($nto) {
-  
+
   # read aliases from address book
   if (open my $AB,'<',"$from/\@ADDRESS_BOOK") {
     while (<$AB>) {
@@ -235,7 +235,7 @@ sub normalize_address {
 # standard log
 sub ruplog {
   my $msg = "@_";
-  
+
   $msg =~ s/\n/ /g;
   $msg =~ s/\s+$//;
   $msg = sprintf "%s [%s_%s] (%s) %s\n",