X-Git-Url: http://git.treefish.org/fex.git/blobdiff_plain/e60096926213ce02293a261254ff065cae44c1c8..HEAD:/cgi-bin/rup?ds=inline

diff --git a/cgi-bin/rup b/cgi-bin/rup
index 53fa952..0a4d0b0 100755
--- a/cgi-bin/rup
+++ b/cgi-bin/rup
@@ -7,6 +7,7 @@
 
 BEGIN { ($ENV{PERLINIT}||'') =~ /(.+)/s and eval $1 }
 
+use utf8;
 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;
-  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 +148,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 +236,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",