X-Git-Url: https://git.treefish.org/fex.git/blobdiff_plain/97b87610331f53e756d032ad21db786037f921a1..20150826:/cgi-bin/rup diff --git a/cgi-bin/rup b/cgi-bin/rup index 53fa952..5b2d4e0 100755 --- 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",