*** empty log message ***
[Evergreen.git] / Evergreen / conf / load_ips.pl
1 #!/usr/bin/perl
2 use strict; use warnings;
3
4
5 # This file should be loaded by apache on startup (add to a "startup.pl" file)
6
7 open(F,"lib_ips.txt");
8
9 $OpenILS::WWW::Redirect::lib_ips_hash = {};
10 my $hash = $OpenILS::WWW::Redirect::lib_ips_hash;
11
12
13 while( my $data = <F> ) {
14
15         chomp($data);
16
17         my( $reglib, $ip1, $ip2 ) = split(/\t/, $data);
18         next unless ($reglib and $ip1 and $ip2);
19
20         my( $reg, $lib ) = split(/-/,$reglib);
21         next unless ($reg and $lib);
22
23 #       print "$reg : $lib : $ip1 : $ip2\n";
24         
25         $hash->{$reg} = {} unless exists $hash->{$reg};
26         $hash->{$reg}->{$lib} = [] unless exists $hash->{$reg}->{$lib};
27
28         push( @{$hash->{$reg}->{$lib}}, [ $ip1, $ip2 ] );
29 }
30