From 470595d71444493b3b024f543c4db70b2262694b Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 22 Jul 2005 17:10:06 +0000 Subject: [PATCH] module for redirecting from / to /opac/?location=x based on source ip of lib git-svn-id: svn://svn.open-ils.org/ILS/trunk@1360 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm | 134 ++++++++++++++++++ 1 file changed, 134 insertions(+) create mode 100644 Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm new file mode 100644 index 0000000000..abddc32088 --- /dev/null +++ b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm @@ -0,0 +1,134 @@ +package OpenILS::WWW::Redirect; +use strict; use warnings; +use Socket; + +use Apache2 (); +use Apache::Log; +use Apache::Const -compile => qw(OK REDIRECT :log); +use APR::Const -compile => qw(:error SUCCESS); +use Template qw(:template); +use Apache::RequestRec (); +use Apache::RequestIO (); +use CGI (); + +use OpenSRF::AppSession; +use OpenSRF::System; +use OpenILS::Utils::Fieldmapper; + +use vars '$lib_ips_hash'; + +my $bootstrap_config_file; +sub import { + my( $self, $config ) = @_; + $bootstrap_config_file = $config; +} + +sub init { + OpenSRF::System->bootstrap_client( config_file => $bootstrap_config_file ); +} + + +sub handler { + + my $user_ip = $ENV{REMOTE_ADDR}; + my $apache_obj = shift; + my $cgi = CGI->new( $apache_obj ); + + my $hostname = $cgi->server_name(); + my $port = $cgi->server_port(); + + my $proto = "http"; + if($cgi->https) { $proto = "https"; } + + my $url = "$proto://$hostname:$port/opac/"; + + my $path = $apache_obj->path_info(); + + warn "Client connecting from $user_ip\n"; + + if( my $lib_data = redirect_libs( $user_ip ) ) { + my $region = $lib_data->[0]; + my $library = $lib_data->[1]; + + warn "Will redirect to $region / $library\n"; + my $session = OpenSRF::AppSession->create("open-ils.storage"); + my $shortname = "$region-$library"; + + my $org = $session->request( + "open-ils.storage.direct.actor.org_unit.search.shortname", + $shortname)->gather(1); + + if($org) { $url .= "?location=" . $org->id; } + + } + +# print "Location: $url\n\n"; +# return Apache::REDIRECT; + + return print_page($url); +} + +sub redirect_libs { + my $source_ip = shift; + my $aton_binary = inet_aton( $source_ip ); + + if( ! $aton_binary ) { return 0; } + + # do this the linear way for now... + for my $reg (keys %$lib_ips_hash) { + for my $lib( keys %{$lib_ips_hash->{$reg}} ) { + for my $ip_block (@{$lib_ips_hash->{$reg}->{$lib}}) { + + if(defined($ip_block->[0]) && defined($ip_block->[1]) ) { + my $start_binary = inet_aton( $ip_block->[0] ); + my $end_binary = inet_aton( $ip_block->[1] ); + unless( $start_binary and $end_binary ) { next; } + if( $start_binary le $aton_binary and + $end_binary ge $aton_binary ) { + return [ $reg, $lib ]; + } + } + + } + } + } + return 0; +} + + +sub print_page { + + my $url = shift; + + print "Content-type: text/html; charset=utf-8\n\n"; + print <<" HTML"; + + + + + + +

+

Loading...

+

+

+ + + HTML + + return Apache::OK; +} + + +1; -- 2.43.2