RFID: disable register popup

[koha_ffzg] / ffzg / rfid / register.pl

diff --git a/ffzg/rfid/register.pl b/ffzg/rfid/register.pl
index f56c465..aedf4ec 100755 (executable)
--- a/ffzg/rfid/register.pl
+++ b/ffzg/rfid/register.pl
@@ -6,43 +6,131 @@ use warnings;
 use CGI;
 use JSON;
 use FindBin;
+use IO::Socket::INET;
 
 my $query = new CGI;
 
+use Data::Dump qw(dump);
+my $v = $query->Vars;
+warn "# v ", dump( $v );
+
 my $hash = {
        remote_host => $query->remote_host,
 };
 
+
+if ( my $c = $query->cookie('rfid_reader') ) {
+       warn "## RFID cookie rfid_reader = $c\n";
+       $hash->{local_ip} = $c;
+       $hash->{have_reader} = 1;
+}
+
+if ( my $session = $query->cookie("CGISESSID") ) {
+       $hash->{session} = $session;
+       my $path = "/dev/shm/rfid.$session";
+       warn "## RFID session $path\n";
+       if ( -e $path ) {
+               open(my $fh, '<', $path);
+               $hash->{local_ip} = <$fh>;
+               $hash->{have_reader} = 1;
+       }
+}
+
 my $dir = $FindBin::Bin;
-my $path = "$dir/ip/" . $hash->{remote_host};
 
-if ( my $ip = $query->param('local_ip') ) {
+if ( my $koha_login = $query->param('koha_login') ) {
+       my $path = "$dir/user/$koha_login";
+       $hash->{koha_login} = $koha_login;
+       if ( -e $path ) {
+               open(my $fh, '<', $path);
+               $hash->{local_ip} = <$fh>;
+               $hash->{have_reader} = 1;
+               warn "RFID: $koha_login -> $hash->{local_ip}\n";
+               close $fh;
+       } else {
+               #warn "# no $path";
+       }
 
-       $hash->{local_ip} = $ip;
+} elsif ( $query->param('_last') ) {
+
+       my $v = $query->Vars;
+       my $ip = $v->{HTTP_LISTEN};
+
+       if ( ! $ip ) {
+               die "RFID ERROR: no HTTP_LISTEN in ",dump($v);
+       }
+
+       my $path = "$dir/ip/$ip"; # FIXME
        open(my $fh, '>', $path);
-       print $fh $hash->{local_ip};
+       print $fh encode_json( $v );
        close($fh);
-       warn "# $path ", -s $path, "\n";
+       warn "RFID $path $ip ", -s $path, "\n";
+
+       # XXX this place is too early to test connection, since our client is not listening yet
+       #my $sock = IO::Socket::INET->new($ip) || die "RFID $ip : $!"; # XXX
 
-} elsif ( -e $path ) {
-       open(my $fh, '<', $path);
-       my $ip = <$fh>;
-       chomp $ip;
        $hash->{local_ip} = $ip;
-       close($fh);
+
+       $path = "$dir/reader/$ip";
+       mkdir $path unless -e $path;
+       $path .= '/mainpage.pl';
+       symlink "$dir/koha-reader.pl", $path unless -e $path;
+
+       $hash->{have_reader} = -e $path;
+
 } else {
        warn $hash->{_error} = "ERROR: ", $hash->{remote_host}, " don't have RFID reader assigned";
 }
 
+sub js_console {
+       warn "RFID: ",@_;
+       return q|
+//$(document).ready( function() {
+       console.log('|, join('', @_), qq|');
+//}
+|;
+}
+
 if ( $query->param('intranet-js') ) {
        print "Content-type: application/javascript\r\n\r\n";
-       open(my $js, '<', 'koha-rfid.js');
-       while(<$js>) {
-               s/localhost/$hash->{local_ip}/g;
-               print;
+
+       if ( exists $hash->{have_reader} ) {
+               if ( my $local_ip = $hash->{local_ip} ) {
+                               chomp $local_ip;
+                               my $url = "/rfid/to/$local_ip";
+                               open(my $js, '<', 'koha-rfid.js');
+                               while(<$js>) {
+                                       s/local_ip/$local_ip/g;
+                                       s/localhost:9000/$url/g;
+                                       s{///$url}{$url}g; # relative urls
+                                       print;
+                               }
+                               close($js);
+               } else {
+                       warn "## RFID no local_ip for ",dump($hash);
+                       print js_console('no local_ipr');
+               }
+       } else {
+               warn "## RFID doesn't have reader ",dump($hash);
+               print js_console('no have_reader');
+               print q|
+!<--
+$(document).ready( function() {
+               $('#breadcrumbs').append('<div id="rfid_popup" style="position: fixed; bottom: 0; right: 0; background: #fff; border: 0.25em solid #ff0; padding: 0.25em; opacity: 0.9; z-index: 1040; font-size: 200%"><a href="https://ffzg.koha-dev.rot13.org:8443/cgi-bin/koha/ffzg/rfid/koha-reader.pl" target="select_rfid_reader">select RFID reader</a></div>');
+});
+-->
+|;
        }
-       close($js);
+
+} elsif ( my $ip = $query->param('register_reader') ) {
+       my $url = $query->self_url;
+       $url =~ s{/koha/ffzg/rfid.*$}{/koha/mainpage.pl};
+       warn "## RFID register_rader $ip -> $url\n";
+       print "Location: $url\r\n",
+               "Cookie: rfid_reader=$ip\r\n",
+               "\r\n";
 } else {
        print "Content-type: application/json; charset=utf-8\r\n\r\n";
        print encode_json $hash;
 }
+warn "## RFID hash = ",dump($hash);