Original release 20160104

[fex.git] / cgi-bin / rup

diff --git a/cgi-bin/rup b/cgi-bin/rup
index 53fa952147635755a06d679693d56cf596c45fdc..0a4d0b033a95efe90d7c90af5f55ff0d965f0fed 100755 (executable)
--- a/cgi-bin/rup
+++ b/cgi-bin/rup
@@ -7,6 +7,7 @@
 
 BEGIN { ($ENV{PERLINIT}||'') =~ /(.+)/s and eval $1 }
 
 
 BEGIN { ($ENV{PERLINIT}||'') =~ /(.+)/s and eval $1 }
 

+use utf8;

 use Fcntl      qw(:flock :seek :mode);
 use Digest::MD5        qw(md5_hex);
 
 use Fcntl      qw(:flock :seek :mode);
 use Digest::MD5        qw(md5_hex);
 


@@ -32,7 +33,7 @@ our %PARAM;
 foreach my $v (keys %PARAM) {
   my $vv = $PARAM{$v};
   $vv =~ s/[<>\'\`\"\000-\037]//g;
 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);
     $akey = $1;
   } elsif ($v =~ /^(from|user)$/i) {
     $from = normalize_address($vv);


@@ -147,7 +148,7 @@ unless ($from and $id and $file and $oto and $nto) {
 }
 
 if ($nto) {
 }
 
 if ($nto) {

-  
+

   # read aliases from address book
   if (open my $AB,'<',"$from/\@ADDRESS_BOOK") {
     while (<$AB>) {
   # read aliases from address book
   if (open my $AB,'<',"$from/\@ADDRESS_BOOK") {
     while (<$AB>) {


@@ -235,7 +236,7 @@ sub normalize_address {
 # standard log
 sub ruplog {
   my $msg = "@_";
 # standard log
 sub ruplog {
   my $msg = "@_";

-  
+

   $msg =~ s/\n/ /g;
   $msg =~ s/\s+$//;
   $msg = sprintf "%s [%s_%s] (%s) %s\n",
   $msg =~ s/\n/ /g;
   $msg =~ s/\s+$//;
   $msg = sprintf "%s [%s_%s] (%s) %s\n",