Original release 20160919

[fex.git] / cgi-bin / foc

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

+use utf8;

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


@@ -24,7 +25,7 @@ my $error = 'F*EX operation control ERROR';
 
 chdir $spooldir or die "$spooldir - $!\n";
 
 
 chdir $spooldir or die "$spooldir - $!\n";
 

-$akeydir = "$spooldir/.akeys"; 
+$akeydir = "$spooldir/.akeys";

 $user = $id = '';
 
 # look for CGI parameters
 $user = $id = '';
 
 # look for CGI parameters


@@ -33,7 +34,7 @@ our %PARAM;
 foreach my $v (keys %PARAM) {
   my $vv = $PARAM{$v};
   # debuglog("Param: $v=\"$vv\"");
 foreach my $v (keys %PARAM) {
   my $vv = $PARAM{$v};
   # debuglog("Param: $v=\"$vv\"");

-  if ($v =~ /^akey$/i and $vv =~ /^(\w+)$/) { 
+  if ($v =~ /^akey$/i and $vv =~ /^(\w+)$/) {

     $akey = $1;
   } elsif ($v =~ /^(from|user)$/i) {
     $user = normalize_email($vv);
     $akey = $1;
   } elsif ($v =~ /^(from|user)$/i) {
     $user = normalize_email($vv);


@@ -85,7 +86,15 @@ if ($user and $id) {
   # authorized login URL
   my $url = "$ENV{PROTO}://$ENV{HTTP_HOST}/fup/".b64("from=$user&id=$id");
   pq(qq(
   # authorized login URL
   my $url = "$ENV{PROTO}://$ENV{HTTP_HOST}/fup/".b64("from=$user&id=$id");
   pq(qq(

-    '<h2>for user <a href="$url">$user</a></h2>'
+    '<script>'
+    '  function show_user() { return(alert('
+    '       "server:\\t$ENV{HTTP_HOST}\\n"+'
+    '       "user:\\t$user\\n"+'
+    '       "auth-ID:\\t$id\\n"+'
+    '       "URL:\\t\\t$url"'
+    '  ));}'
+    '</script>'
+    '<h2>for user <a href="#" onclick="show_user();" title="click to see account data">$user</a></h2>'

     '<table>'
   ));
   ($quota,$du) = check_sender_quota($user);
     '<table>'
   ));
   ($quota,$du) = check_sender_quota($user);


@@ -119,7 +128,7 @@ if ($user and $id) {
     '  <input type="hidden" name="user" value="$user">'
     '  <input type="hidden" name="id"   value="$id">'
     '  <script>function show_id() {return(alert("auth-ID: $id"));}</script>'
     '  <input type="hidden" name="user" value="$user">'
     '  <input type="hidden" name="id"   value="$id">'
     '  <script>function show_id() {return(alert("auth-ID: $id"));}</script>'

-    '  Change your <a href="" onclick="show_id();" title="$id">auth-ID</a> to'
+    '  Change your <a href="#" onclick="show_id();" title="$id">auth-ID</a> to'

     '  <input type="text"   name="nid"  size="16">'
     '  <input type="submit" value="remember it!">'
   ));
     '  <input type="text"   name="nid"  size="16">'
     '  <input type="submit" value="remember it!">'
   ));