koha-dev.rot13.org Git - koha_ffzg/blob - ffzg/rfid/koha-reader.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use CGI qw ( -utf8 );
   5 use lib '/srv/koha_ffzg';
   6 use C4::Auth;
   7 use C4::Output;
   8 use Data::Dump qw(dump);
   9
  10 my $query = new CGI;
  11
  12 # fake koha login so we can get valid session
  13 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
  14     {
  15         template_name   => "intranet-main.tt",
  16         query           => $query,
  17         type            => "intranet",
  18         authnotrequired => 0,
  19         flagsrequired   => { catalogue => 1, },
  20     }
  21 );
  22
  23 my $session = $query->cookie('CGISESSID');
  24 my $url = $query->self_url;
  25 my ( $redirect, $reader_ip_port ) = ( $1 . '/mainpage.pl', $2 ) if $url =~ s{(^.+)/ffzg/rfid/reader/([^/]+)/.+$}{$1};
  26
  27 warn "## $cookie $session $url";
  28
  29 open(my $fh, '>', "/dev/shm/rfid.$session");
  30 print $fh $reader_ip_port;
  31 close($fh);
  32
  33 output_html_with_http_headers $query, $cookie, qq{
  34 <html>
  35 <a id="redirect" href="$redirect"">$redirect</a>
  36 <pre>
  37 $reader_ip_port
  38 </pre>
  39 <script>
  40 var e = document.getElementById('redirect');
  41 console.log(e);
  42 e.click();
  43 </script>
  44 </html>
  45 };